blob: 0f92674a249ca208fb0e3f4486c9e9e21b42199e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
# kroc.tcl - Copyright (C) 2004 David Zolli <kroc@kroc.tk>
#
# A sample pixmap theme for the tile package.
#package require tile::pixmap
namespace eval tile {
namespace eval kroc {
variable version 0.0.1
}
}
namespace eval tile::kroc {
set imgdir [file join [file dirname [info script]] kroc]
array set Images [tile::LoadImages $imgdir *.gif]
style theme create kroc -parent alt -settings {
style default . -background #FCB64F -troughcolor #F8C278 -borderwidth 1
style default . -font TkDefaultFont -borderwidth 1
style map . -background [list active #694418]
style map . -foreground [list disabled #B2B2B2 active #FFE7CB]
style default TButton -padding "10 4"
style default TNotebook.Tab -padding {10 3} -font TkDefaultFont
style map TNotebook.Tab \
-background [list selected #FCB64F {} #FFE6BA] \
-foreground [list {} black] \
-padding [list selected {10 6 10 3}]
style map TScrollbar \
-background { pressed #694418} \
-arrowcolor { pressed #FFE7CB } \
-relief { pressed sunken } \
;
style layout Vertical.TScrollbar {
Scrollbar.trough -children {
Scrollbar.uparrow -side top
Scrollbar.downarrow -side bottom
Scrollbar.uparrow -side bottom
Scrollbar.thumb -side top -expand true
}
}
style layout Horizontal.TScrollbar {
Scrollbar.trough -children {
Scrollbar.leftarrow -side left
Scrollbar.rightarrow -side right
Scrollbar.leftarrow -side right
Scrollbar.thumb -side left -expand true
}
}
#
# Elements:
#
style element create Button.button pixmap -images [list \
pressed $Images(button-p) \
active $Images(button-h) \
{} $Images(button-n) \
] -border 3 -tiling tile
style element create Checkbutton.indicator pixmap -images [list \
{pressed selected} $Images(check-nc) \
pressed $Images(check-nu) \
{active selected} $Images(check-hc) \
active $Images(check-hu) \
selected $Images(check-nc) \
{} $Images(check-nu) \
] -tiling fixed
style element create Radiobutton.indicator pixmap -images [list \
{pressed selected} $Images(radio-nc) \
pressed $Images(radio-nu) \
{active selected} $Images(radio-hc) \
active $Images(radio-hu) \
selected $Images(radio-nc) \
{} $Images(radio-nu) \
] -tiling fixed
#
# Settings:
#
style layout TButton {
Button.button -children {
Button.focus -children {
Button.padding -children {
Button.label -expand true -sticky {}
}
}
}
}
style layout TCheckbutton {
Checkbutton.border -children {
Checkbutton.padding -children {
Checkbutton.indicator -side left
Checkbutton.focus -side left -children {
Checkbutton.label
}
}
}
}
style layout TRadiobutton {
Radiobutton.border -children {
Radiobutton.padding -children {
Radiobutton.indicator -side left
Radiobutton.focus -expand true -sticky w -children {
Radiobutton.label -side right -expand true
}
}
}
}
} }
# -------------------------------------------------------------------------
package provide tile::theme::kroc $::tile::kroc::version
# -------------------------------------------------------------------------
|