blob: c4735e351557ab4784419780374aabe460ff4712 (
plain) (
blame)
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
|
--- ui-resource.tcl.orig Tue Mar 12 07:32:56 1996
+++ ui-resource.tcl Thu Feb 19 10:48:04 1998
@@ -111,32 +111,24 @@
#
option add *tearOff 0
- #
- # Make the color scheme a little darker than the default gray.
- # Go through all the palette resources and raise the option data
- # base priority from widgetDefault to 61 so that user's X resources
- # won't override these.
- #
- tk_setPalette gray80
- foreach option [array names tkPalette] {
- option add *$option $tkPalette($option) 61
- }
-
option add *highlightThickness 0
option add *Radiobutton.relief flat startupFile
option add *Checkbutton.anchor w startupFile
option add *Radiobutton.anchor w startupFile
option add *Radiobutton.relief flat startupFile
- option add *Scale.sliderForeground gray66 startupFile
- option add *Scale.activeForeground gray80 startupFile
- option add *Scale.background gray70 startupFile
- # vat widgets
- option add Vat.disabledColor gray50 startupFile
- option add Vat.highlightColor gray95 startupFile
+ # add color defaults for vat widgets - where possible, use
+ # the platform specific values compiled into tk widgets
+ scale .junk
+ option add *foreground [.junk cget -foreground] widgetDefault
+ option add *background [.junk cget -background] widgetDefault
+ option add *activeBackground [.junk cget -activebackground] widgetDefault
+ destroy .junk
+
+ option add *highlightColor white widgetDefault
option add Vat.infoHighlightColor LightYellow2 startupFile
- option add *VatVU.foreground black startupFile
+ option add Vat.disabledColor gray50 startupFile
option add *VatVU.peak gray50 startupFile
option add *VatVU.hot firebrick1 startupFile
option add *VatVU.hotLevel 90 startupFile
|
