From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 17:07:39 +0000
Subject: 20060303a

---
 libtk/colrs.c | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 libtk/colrs.c

(limited to 'libtk/colrs.c')

diff --git a/libtk/colrs.c b/libtk/colrs.c
new file mode 100644
index 00000000..d4fc73c4
--- /dev/null
+++ b/libtk/colrs.c
@@ -0,0 +1,90 @@
+#include "lib9.h"
+#include "draw.h"
+#include "tk.h"
+
+#define RGB(R,G,B) ((R<<24)|(G<<16)|(B<<8)|(0xff))
+
+enum
+{
+	tkBackR		= 0xdd,		/* Background base color */
+	tkBackG 	= 0xdd,
+	tkBackB 	= 0xdd,
+
+	tkSelectR	= 0xb0,		/* Check box selected color */
+	tkSelectG	= 0x30,
+	tkSelectB	= 0x60,
+
+	tkSelectbgndR	= 0x40,		/* Selected item background */
+	tkSelectbgndG	= 0x40,
+	tkSelectbgndB	= 0x40
+};
+
+typedef struct Coltab Coltab;
+struct Coltab {
+	int	c;
+	ulong rgba;
+	int shade;
+};
+
+static Coltab coltab[] =
+{
+	TkCbackgnd,
+		RGB(tkBackR, tkBackG, tkBackB),
+		TkSameshade,
+	TkCbackgndlght,
+		RGB(tkBackR, tkBackG, tkBackB),
+		TkLightshade,
+	TkCbackgnddark,
+		RGB(tkBackR, tkBackG, tkBackB),
+		TkDarkshade,
+	TkCactivebgnd,
+		RGB(tkBackR+0x10, tkBackG+0x10, tkBackB+0x10),
+		TkSameshade,
+	TkCactivebgndlght,
+		RGB(tkBackR+0x10, tkBackG+0x10, tkBackB+0x10),
+		TkLightshade,
+	TkCactivebgnddark,
+		RGB(tkBackR+0x10, tkBackG+0x10, tkBackB+0x10),
+		TkDarkshade,
+	TkCactivefgnd,
+		RGB(0, 0, 0),
+		TkSameshade,
+	TkCforegnd,
+		RGB(0, 0, 0),
+		TkSameshade,
+	TkCselect,
+		RGB(tkSelectR, tkSelectG, tkSelectB),
+		TkSameshade,
+	TkCselectbgnd,
+		RGB(tkSelectbgndR, tkSelectbgndG, tkSelectbgndB),
+		TkSameshade,
+	TkCselectbgndlght,
+		RGB(tkSelectbgndR, tkSelectbgndG, tkSelectbgndB),
+		TkLightshade,
+	TkCselectbgnddark,
+		RGB(tkSelectbgndR, tkSelectbgndG, tkSelectbgndB),
+		TkDarkshade,
+	TkCselectfgnd,
+		RGB(0xff, 0xff, 0xff),
+		TkSameshade,
+	TkCdisablefgnd,
+		RGB(0x88, 0x88, 0x88),
+		TkSameshade,
+	TkChighlightfgnd,
+		RGB(0, 0, 0),
+		TkSameshade,
+	-1,
+};
+
+void
+tksetenvcolours(TkEnv *env)
+{
+	Coltab *c;
+
+	c = &coltab[0];
+	while(c->c != -1) {
+		env->colors[c->c] = tkrgbashade(c->rgba, c->shade);
+		env->set |= (1<<c->c);
+		c++;
+	}
+}
-- 
cgit v1.2.3