/usr/share/tcltk/tcl8.5/Tix8.4.3/pref/WmDefault.cs is in tix 8.4.3-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 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
}
|