diff options
| author | fenner <fenner@FreeBSD.org> | 1998-02-19 19:01:20 +0000 |
|---|---|---|
| committer | fenner <fenner@FreeBSD.org> | 1998-02-19 19:01:20 +0000 |
| commit | 4e1797f4040cc6ee288939d1fd27f5829bd7be51 (patch) | |
| tree | 2921a54605f9620d0613d5737b2065d5b66d8ab7 /mbone/vat | |
| parent | b774a0cb957482c98977324140ea847d4a40dbcc (diff) | |
| download | FreeBSD-ports-4e1797f4040cc6ee288939d1fd27f5829bd7be51.zip FreeBSD-ports-4e1797f4040cc6ee288939d1fd27f5829bd7be51.tar.gz | |
Fix color behavior with tk8.0 -- tk was setting the highlight color to black.
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 0000000..c4735e3 --- /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 |
