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 / TkWin.cs < prev    next >
Text File  |  2000-10-11  |  2KB  |  69 lines
  1. #
  2. # $Id: TkWin.cs,v 1.1 2000/10/12 01:41:04 idiscovery Exp $
  3. #
  4. proc tixSetScheme-Color {} {
  5.     global tixOption
  6.  
  7.     set tixOption(bg)           SystemButtonFace
  8.     set tixOption(fg)           SystemButtonText
  9.  
  10.     set tixOption(dark1_bg)     SystemScrollbar
  11.     set tixOption(dark1_fg)     SystemButtonText
  12. #     set tixOption(dark2_bg)     SystemDisabledText
  13. #     set tixOption(dark2_fg)     black
  14.     set tixOption(inactive_bg)  SystemButtonFace
  15.     set tixOption(inactive_fg)  SystemButtonText
  16.  
  17.     set tixOption(light1_bg)    SystemButtonFace
  18. #     set tixOption(light1_fg)    white
  19. #     set tixOption(light2_bg)    #fcfcfc
  20. #     set tixOption(light2_fg)    white
  21.  
  22.     set tixOption(active_bg)    $tixOption(dark1_bg)
  23.     set tixOption(active_fg)    $tixOption(fg)
  24.     set tixOption(disabled_fg)  SystemDisabledText
  25.  
  26.     set tixOption(input1_bg)    SystemWindow
  27. #     set tixOption(input2_bg)    
  28. #     set tixOption(output1_bg)   $tixOption(dark1_bg)
  29. #     set tixOption(output2_bg)   $tixOption(bg)
  30.  
  31.     set tixOption(select_fg)    SystemHighlightText
  32.     set tixOption(select_bg)    SystemHighlight
  33.  
  34.     set tixOption(selector)    SystemHighlight
  35. }
  36.  
  37. proc tixSetScheme-Mono {} {
  38.     global tixOption
  39.  
  40.     set tixOption(bg)           SystemButtonFace
  41.     set tixOption(fg)           SystemButtonText
  42.  
  43.     set tixOption(dark1_bg)     SystemScrollbar
  44.     set tixOption(dark1_fg)     SystemButtonText
  45. #     set tixOption(dark2_bg)     SystemDisabledText
  46. #     set tixOption(dark2_fg)     black
  47.     set tixOption(inactive_bg)  SystemButtonFace
  48.     set tixOption(inactive_fg)  SystemButtonText
  49.  
  50.     set tixOption(light1_bg)    SystemButtonFace
  51. #     set tixOption(light1_fg)    white
  52. #     set tixOption(light2_bg)    #fcfcfc
  53. #     set tixOption(light2_fg)    white
  54.  
  55.     set tixOption(active_bg)    $tixOption(dark1_bg)
  56.     set tixOption(active_fg)    $tixOption(fg)
  57.     set tixOption(disabled_fg)  SystemDisabledText
  58.  
  59.     set tixOption(input1_bg)    white
  60. #     set tixOption(input2_bg)    
  61. #     set tixOption(output1_bg)   $tixOption(dark1_bg)
  62. #     set tixOption(output2_bg)   $tixOption(bg)
  63.  
  64.     set tixOption(select_fg)    SystemHighlightText
  65.     set tixOption(select_bg)    SystemHighlight
  66.  
  67.     set tixOption(selector)    SystemHighlight
  68. }
  69.