From 141bb0840a4b212c9791c37d03c35ac598a346fa Mon Sep 17 00:00:00 2001 From: Bill Fenner Date: Thu, 19 Feb 1998 19:01:20 +0000 Subject: Fix color behavior with tk8.0 -- tk was setting the highlight color to black. --- mbone/vat/files/patch-ag | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 mbone/vat/files/patch-ag (limited to 'mbone') 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 -- cgit v1.2.3