diff options
author | Bill Fenner <fenner@FreeBSD.org> | 1998-02-19 19:01:20 +0000 |
---|---|---|
committer | Bill Fenner <fenner@FreeBSD.org> | 1998-02-19 19:01:20 +0000 |
commit | 141bb0840a4b212c9791c37d03c35ac598a346fa (patch) | |
tree | 8d72fc786bc0f7a85e3b9e5da54b3240fa0472b4 /mbone/vat | |
parent | Handle a bug that LBL thought was fixed in 4.4BSD but wasn't: send() (diff) |
Fix color behavior with tk8.0 -- tk was setting the highlight color to black.
Notes
Notes:
svn path=/head/; revision=9838
Diffstat (limited to 'mbone/vat')
-rw-r--r-- | mbone/vat/files/patch-ag | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/mbone/vat/files/patch-ag b/mbone/vat/files/patch-ag new file mode 100644 index 000000000000..c4735e351557 --- /dev/null +++ b/mbone/vat/files/patch-ag @@ -0,0 +1,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 |