home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tix8.1 / pref / WmDefault.cs < prev    next >
Text File  |  2001-11-26  |  2KB  |  46 lines
  1. # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: WmDefault.cs,v 1.1.2.2 2001/11/27 04:16:42 idiscovery Exp $
  4. #
  5.  
  6. proc tixSetScheme-Color {} {
  7.     global tixOption
  8.  
  9.     package require wm_default
  10.     if {![info exists ::wm_default::wm]} {
  11.     wm_default::setup
  12.     wm_default::addoptions
  13.     }
  14.  
  15.     set tixOption(bg)           $::wm_default::background
  16.     set tixOption(fg)           $::wm_default::foreground
  17.  
  18.     set tixOption(dark1_bg)     #808080
  19.  
  20.     set tixOption(inactive_bg)  $::wm_default::disabledbackground
  21.     set tixOption(inactive_fg)  black; # unused
  22.  
  23.     # light1 was used for listbox widgets and trough colors
  24.     set tixOption(light1_bg)    $::wm_default::scrollbars
  25.     set tixOption(light1_fg)    white; # unused
  26.  
  27.     # text is now used for listbox widgets
  28.     set tixOption(list_bg)       $::wm_default::textbackground
  29.  
  30.     set tixOption(active_bg)    $::wm_default::activebackground
  31.     set tixOption(active_fg)    $::wm_default::activeforeground
  32.  
  33.     set tixOption(disabled_fg)  $::wm_default::disabledforeground
  34.     # new
  35.     set tixOption(disabled_bg)  $::wm_default::disabledtextbackground
  36.  
  37.     set tixOption(input1_bg)    $::wm_default::textbackground
  38.     set tixOption(input1_fg)    $::wm_default::textforeground
  39.  
  40.     set tixOption(select_fg)    $::wm_default::selectforeground
  41.     set tixOption(select_bg)    $::wm_default::selectbackground
  42.     
  43.     set tixOption(selector)    $::wm_default::selectcolor
  44.  
  45. }
  46.