| 123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- # -*-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
- }
|
