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 / TK.csc < prev    next >
Text File  |  2000-05-17  |  2KB  |  73 lines
  1. #
  2. # $Id: TK.csc,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
  3. #
  4. proc tixPref:SetScheme-Color:TK {} {
  5.  
  6.     global tixOption
  7.  
  8.     set tixOption(bg)           #d9d9d9
  9.     set tixOption(fg)           black
  10.  
  11.     set tixOption(dark1_bg)     #c3c3c3
  12.     set tixOption(dark1_fg)     black
  13.     set tixOption(dark2_bg)     #a3a3a3
  14.     set tixOption(dark2_fg)     black
  15.     set tixOption(inactive_bg)  #a3a3a3
  16.     set tixOption(inactive_fg)  black
  17.  
  18.     set tixOption(light1_bg)    #ececec
  19.     set tixOption(light1_fg)    white
  20.     set tixOption(light2_bg)    #fcfcfc
  21.     set tixOption(light2_fg)    white
  22.  
  23.     set tixOption(active_bg)    $tixOption(dark1_bg)
  24.     set tixOption(active_fg)    $tixOption(fg)
  25.     set tixOption(disabled_fg)  gray55
  26.  
  27.     set tixOption(input1_bg)    #d9d9d9
  28.     set tixOption(input2_bg)    #d9d9d9
  29.     set tixOption(output1_bg)   $tixOption(dark1_bg)
  30.     set tixOption(output2_bg)   $tixOption(bg)
  31.  
  32.     set tixOption(select_fg)    black
  33.     set tixOption(select_bg)    #c3c3c3
  34.  
  35.     set tixOption(selector)    #b03060
  36.  
  37. }
  38. proc tixPref:SetScheme-Mono:TK {} {
  39.  
  40.  
  41.     global tixOption
  42.  
  43.     set tixOption(bg)           lightgray
  44.     set tixOption(fg)           black
  45.  
  46.     set tixOption(dark1_bg)     gray70
  47.     set tixOption(dark1_fg)     black
  48.     set tixOption(dark2_bg)     gray60
  49.     set tixOption(dark2_fg)     white
  50.     set tixOption(inactive_bg)  lightgray
  51.     set tixOption(inactive_fg)  black
  52.  
  53.     set tixOption(light1_bg)    gray90
  54.     set tixOption(light1_fg)    white
  55.     set tixOption(light2_bg)    gray95
  56.     set tixOption(light2_fg)    white
  57.  
  58.     set tixOption(active_bg)    gray90
  59.     set tixOption(active_fg)    $tixOption(fg)
  60.     set tixOption(disabled_fg)  gray55
  61.  
  62.     set tixOption(input1_bg)    $tixOption(light1_bg)
  63.     set tixOption(input2_bg)    $tixOption(light1_bg)
  64.     set tixOption(output1_bg)   $tixOption(light1_bg)
  65.     set tixOption(output2_bg)   $tixOption(light1_bg)
  66.  
  67.     set tixOption(select_fg)    white
  68.     set tixOption(select_bg)    black
  69.  
  70.     set tixOption(selector)    black
  71.  
  72. }
  73.