1# blue.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net>
2#
3# blue.tcl,v 1.27 2005/10/08 14:56:57 jenglish Exp
4#
5#
6
7namespace eval tile::theme::blue {
8
9    package provide tile::theme::blue 0.7
10
11    set imgdir [file join [file dirname [info script]] blue]
12    array set I [tile::LoadImages $imgdir *.gif]
13
14    array set colors {
15	-frame  	"#6699cc"
16	-lighter	"#bcd2e8"
17	-window	 	"#e6f3ff"
18	-selectbg	"#ffff33"
19	-selectfg	"#000000"
20	-disabledfg	"#666666"
21    }
22
23    style theme create blue -settings {
24
25	style default . \
26	    -borderwidth 	1 \
27	    -background 	$colors(-frame) \
28	    -fieldbackground	$colors(-window) \
29	    -troughcolor	$colors(-lighter) \
30	    -selectbackground	$colors(-selectbg) \
31	    -selectforeground	$colors(-selectfg) \
32	    ;
33	style map . -foreground [list disabled $colors(-disabledfg)]
34
35	## Buttons.
36	#
37	style default TButton -padding "10 0"
38	style layout TButton {
39	    Button.button -children {
40		Button.focus -children {
41		    Button.padding -children {
42			Button.label
43		    }
44		}
45	    }
46	}
47
48	style element create button image $I(button-n) \
49	    -map [list pressed $I(button-p)  active $I(button-h)] \
50	    -border 4 -sticky ew
51
52	style element create Checkbutton.indicator image $I(check-nu) \
53	    -width 24 -sticky w -map [list \
54		{!disabled active selected} $I(check-hc) \
55		{!disabled active} $I(check-hu) \
56		{!disabled selected} $I(check-nc) ]
57
58	style element create Radiobutton.indicator image $I(radio-nu) \
59	    -width 24 -sticky w -map [list \
60		{!disabled active selected} $I(radio-hc) \
61		{!disabled active} $I(radio-hu) \
62		selected $I(radio-nc) ]
63
64	style default TMenubutton -relief raised -padding {10 2}
65
66	## Toolbar buttons.
67	#
68	style default Toolbutton \
69	    -width 0 -relief flat -borderwidth 2 -padding 4 \
70	    -background $colors(-frame) -foreground #000000 ;
71	style map Toolbutton -background [list active $colors(-selectbg)]
72	style map Toolbutton -foreground [list active $colors(-selectfg)]
73	style map Toolbutton -relief {
74	    disabled 	flat
75	    selected	sunken
76	    pressed 	sunken
77	    active  	raised
78	}
79
80	## Entry widgets.
81	#
82	style default TEntry \
83	    -selectborderwidth 1 -padding 2 -insertwidth 2 -font TkTextFont
84	style default TCombobox \
85	    -selectborderwidth 1 -padding 2 -insertwidth 2 -font TkTextFont
86
87	## Notebooks.
88	#
89	style default TNotebook.Tab -padding {4 2 4 2}
90	style map TNotebook.Tab \
91	    -background \
92		[list selected $colors(-frame) active $colors(-lighter)] \
93	    -padding [list selected {4 4 4 2}]
94
95	## Labelframes.
96	#
97	style default TLabelframe -borderwidth 2 -relief groove
98
99	## Scrollbars.
100	#
101	style layout Vertical.TScrollbar {
102	    Scrollbar.trough -children {
103		Scrollbar.uparrow -side top
104		Scrollbar.downarrow -side bottom
105		Scrollbar.uparrow -side bottom
106		Vertical.Scrollbar.thumb -side top -expand true -sticky ns
107	    }
108	}
109
110	style layout Horizontal.TScrollbar {
111	    Scrollbar.trough -children {
112		Scrollbar.leftarrow -side left
113		Scrollbar.rightarrow -side right
114		Scrollbar.leftarrow -side right
115		Horizontal.Scrollbar.thumb -side left -expand true -sticky we
116	    }
117	}
118
119	style element create Horizontal.Scrollbar.thumb image $I(sb-thumb) \
120	    -map [list {pressed !disabled} $I(sb-thumb-p)] -border 3
121
122	style element create Vertical.Scrollbar.thumb image $I(sb-vthumb) \
123	    -map [list {pressed !disabled} $I(sb-vthumb-p)] -border 3
124
125	foreach dir {up down left right} {
126	    style element create ${dir}arrow image $I(arrow${dir}) \
127		-map [list \
128		    disabled $I(arrow${dir}) \
129		    pressed $I(arrow${dir}-p) \
130		    active $I(arrow${dir}-h)] \
131	        -border 1 -sticky {}
132	}
133
134	## Scales.
135	#
136	style element create Scale.slider \
137	    image $I(slider) -map [list {pressed !disabled} $I(slider-p)]
138
139	style element create Vertical.Scale.slider \
140	    image $I(vslider) -map [list {pressed !disabled} $I(vslider-p)]
141
142	style element create Horizontal.Progress.bar \
143	    image $I(sb-thumb) -border 2
144	style element create Vertical.Progress.bar \
145	    image $I(sb-vthumb) -border 2
146
147    }
148}
149
150