D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
usr
/
lib64
/
tcl8.6
/
Tix8.4.3
/
pref
/
Filename :
WmDefault.cs
back
Copy
# -*-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 }