Import build of Tcl/Tk 8.6.8

win32/lib/tix8.4.3/pref/WmDefault.cs

@@ -0,0 +1,45 @@
+# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
+#
+#	$Id: WmDefault.cs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
+#
+
+proc tixSetScheme-Color {} {
+    global tixOption
+
+    package require wm_default
+    if {![info exists ::wm_default::wm]} {
+	wm_default::setup
+	wm_default::addoptions
+    }
+
+    set tixOption(bg)           $::wm_default::background
+    set tixOption(fg)           $::wm_default::foreground
+
+    set tixOption(dark1_bg)     #808080
+
+    set tixOption(inactive_bg)  $::wm_default::disabledbackground
+    set tixOption(inactive_fg)  black; # unused
+
+    # light1 was used for listbox widgets and trough colors
+    set tixOption(light1_bg)    $::wm_default::scrollbars
+    set tixOption(light1_fg)    white; # unused
+
+    # text is now used for listbox widgets
+    set tixOption(list_bg)   	$::wm_default::textbackground
+
+    set tixOption(active_bg)    $::wm_default::activebackground
+    set tixOption(active_fg)    $::wm_default::activeforeground
+
+    set tixOption(disabled_fg)  $::wm_default::disabledforeground
+    # new
+    set tixOption(disabled_bg)  $::wm_default::disabledtextbackground
+
+    set tixOption(input1_bg)    $::wm_default::textbackground
+    set tixOption(input1_fg)    $::wm_default::textforeground
+
+    set tixOption(select_fg)    $::wm_default::selectforeground
+    set tixOption(select_bg)    $::wm_default::selectbackground
+	
+    set tixOption(selector)	$::wm_default::selectcolor
+
+}