summaryrefslogtreecommitdiff
path: root/audio/vat/files/patch-ag
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