Home Explore Help
Register Sign In
wzj
/
Sources_For_Win
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Branch: license-dev
Branches Tags
Sources_For_...
/
Python
/
tcl
/
tix8.4.3
/
pref
/
TkWin.cs

TkWin.cs 2.2 KB
Permalink History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768 
  1. #
    2. 

  2. # $Id: TkWin.cs,v 1.1 2000/10/12 01:41:04 idiscovery Exp $
    3. 

  3. #
    4. 

  4. proc tixSetScheme-Color {} {
    5. 

  5.     global tixOption
    6. 

  6. 

  7.     set tixOption(bg)           SystemButtonFace
    8. 

  8.     set tixOption(fg)           SystemButtonText
    9. 

  9. 

  10.     set tixOption(dark1_bg)     SystemScrollbar
    11. 

  11.     set tixOption(dark1_fg)     SystemButtonText
    12. 

  12. #     set tixOption(dark2_bg)     SystemDisabledText
    13. 

  13. #     set tixOption(dark2_fg)     black
    14. 

  14.     set tixOption(inactive_bg)  SystemButtonFace
    15. 

  15.     set tixOption(inactive_fg)  SystemButtonText
    16. 

  16. 

  17.     set tixOption(light1_bg)    SystemButtonFace
    18. 

  18. #     set tixOption(light1_fg)    white
    19. 

  19. #     set tixOption(light2_bg)    #fcfcfc
    20. 

  20. #     set tixOption(light2_fg)    white
    21. 

  21. 

  22.     set tixOption(active_bg)    $tixOption(dark1_bg)
    23. 

  23.     set tixOption(active_fg)    $tixOption(fg)
    24. 

  24.     set tixOption(disabled_fg)  SystemDisabledText
    25. 

  25. 

  26.     set tixOption(input1_bg)    SystemWindow
    27. 

  27. #     set tixOption(input2_bg)    
    28. 

  28. #     set tixOption(output1_bg)   $tixOption(dark1_bg)
    29. 

  29. #     set tixOption(output2_bg)   $tixOption(bg)
    30. 

  30. 

  31.     set tixOption(select_fg)    SystemHighlightText
    32. 

  32.     set tixOption(select_bg)    SystemHighlight
    33. 

  33. 

  34.     set tixOption(selector)	SystemHighlight
    35. 

  35. }
    36. 

  36. 

  37. proc tixSetScheme-Mono {} {
    38. 

  38.     global tixOption
    39. 

  39. 

  40.     set tixOption(bg)           SystemButtonFace
    41. 

  41.     set tixOption(fg)           SystemButtonText
    42. 

  42. 

  43.     set tixOption(dark1_bg)     SystemScrollbar
    44. 

  44.     set tixOption(dark1_fg)     SystemButtonText
    45. 

  45. #     set tixOption(dark2_bg)     SystemDisabledText
    46. 

  46. #     set tixOption(dark2_fg)     black
    47. 

  47.     set tixOption(inactive_bg)  SystemButtonFace
    48. 

  48.     set tixOption(inactive_fg)  SystemButtonText
    49. 

  49. 

  50.     set tixOption(light1_bg)    SystemButtonFace
    51. 

  51. #     set tixOption(light1_fg)    white
    52. 

  52. #     set tixOption(light2_bg)    #fcfcfc
    53. 

  53. #     set tixOption(light2_fg)    white
    54. 

  54. 

  55.     set tixOption(active_bg)    $tixOption(dark1_bg)
    56. 

  56.     set tixOption(active_fg)    $tixOption(fg)
    57. 

  57.     set tixOption(disabled_fg)  SystemDisabledText
    58. 

  58. 

  59.     set tixOption(input1_bg)    white
    60. 

  60. #     set tixOption(input2_bg)    
    61. 

  61. #     set tixOption(output1_bg)   $tixOption(dark1_bg)
    62. 

  62. #     set tixOption(output2_bg)   $tixOption(bg)
    63. 

  63. 

  64.     set tixOption(select_fg)    SystemHighlightText
    65. 

  65.     set tixOption(select_bg)    SystemHighlight
    66. 

  66. 

  67.     set tixOption(selector)	SystemHighlight
    68. 

  68. }
    69.