summaryrefslogtreecommitdiff
path: root/mbone
diff options
context:
space:
mode:
authorBill Fenner <fenner@FreeBSD.org>1998-02-19 19:01:20 +0000
committerBill Fenner <fenner@FreeBSD.org>1998-02-19 19:01:20 +0000
commit141bb0840a4b212c9791c37d03c35ac598a346fa (patch)
tree8d72fc786bc0f7a85e3b9e5da54b3240fa0472b4 /mbone
parentHandle 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')
-rw-r--r--mbone/vat/files/patch-ag45
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