47 lines
1.8 KiB
Plaintext
47 lines
1.8 KiB
Plaintext
$OpenBSD: patch-ui-resource_tcl,v 1.1 2001/07/30 15:33:22 espie Exp $
|
|
--- ui-resource.tcl.orig Tue Mar 12 16:32:56 1996
|
|
+++ ui-resource.tcl Mon Jul 30 17:25:38 2001
|
|
@@ -111,32 +111,24 @@ proc init_resources {} {
|
|
#
|
|
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
|