TK.cs 1.0 KB

1234567891011121314151617181920212223242526272829303132333435
  1. #
  2. # $Id: TK.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $
  3. #
  4. proc tixSetScheme-Color {} {
  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. }