TK.csc 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  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. global tixOption
  6. set tixOption(bg) #d9d9d9
  7. set tixOption(fg) black
  8. set tixOption(dark1_bg) #c3c3c3
  9. set tixOption(dark1_fg) black
  10. set tixOption(dark2_bg) #a3a3a3
  11. set tixOption(dark2_fg) black
  12. set tixOption(inactive_bg) #a3a3a3
  13. set tixOption(inactive_fg) black
  14. set tixOption(light1_bg) #ececec
  15. set tixOption(light1_fg) white
  16. set tixOption(light2_bg) #fcfcfc
  17. set tixOption(light2_fg) white
  18. set tixOption(active_bg) $tixOption(dark1_bg)
  19. set tixOption(active_fg) $tixOption(fg)
  20. set tixOption(disabled_fg) gray55
  21. set tixOption(input1_bg) #d9d9d9
  22. set tixOption(input2_bg) #d9d9d9
  23. set tixOption(output1_bg) $tixOption(dark1_bg)
  24. set tixOption(output2_bg) $tixOption(bg)
  25. set tixOption(select_fg) black
  26. set tixOption(select_bg) #c3c3c3
  27. set tixOption(selector) #b03060
  28. }
  29. proc tixPref:SetScheme-Mono:TK {} {
  30. global tixOption
  31. set tixOption(bg) lightgray
  32. set tixOption(fg) black
  33. set tixOption(dark1_bg) gray70
  34. set tixOption(dark1_fg) black
  35. set tixOption(dark2_bg) gray60
  36. set tixOption(dark2_fg) white
  37. set tixOption(inactive_bg) lightgray
  38. set tixOption(inactive_fg) black
  39. set tixOption(light1_bg) gray90
  40. set tixOption(light1_fg) white
  41. set tixOption(light2_bg) gray95
  42. set tixOption(light2_fg) white
  43. set tixOption(active_bg) gray90
  44. set tixOption(active_fg) $tixOption(fg)
  45. set tixOption(disabled_fg) gray55
  46. set tixOption(input1_bg) $tixOption(light1_bg)
  47. set tixOption(input2_bg) $tixOption(light1_bg)
  48. set tixOption(output1_bg) $tixOption(light1_bg)
  49. set tixOption(output2_bg) $tixOption(light1_bg)
  50. set tixOption(select_fg) white
  51. set tixOption(select_bg) black
  52. set tixOption(selector) black
  53. }