Blue.cs 1.0 KB

1234567891011121314151617181920212223242526272829303132333435
  1. #
  2. # $Id: Blue.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) #9090f0
  7. set tixOption(fg) black
  8. set tixOption(dark1_bg) #8080d0
  9. set tixOption(dark1_fg) black
  10. set tixOption(dark2_bg) #7070c0
  11. set tixOption(dark2_fg) black
  12. set tixOption(inactive_bg) #8080da
  13. set tixOption(inactive_fg) black
  14. set tixOption(light1_bg) #a8a8ff
  15. set tixOption(light1_fg) black
  16. set tixOption(light2_bg) #c0c0ff
  17. set tixOption(light2_fg) black
  18. set tixOption(active_bg) $tixOption(dark1_bg)
  19. set tixOption(active_fg) $tixOption(fg)
  20. set tixOption(disabled_fg) gray25
  21. set tixOption(input1_bg) $tixOption(light1_bg)
  22. set tixOption(input2_bg) $tixOption(bg)
  23. set tixOption(output1_bg) $tixOption(light1_bg)
  24. set tixOption(output2_bg) $tixOption(bg)
  25. set tixOption(select_fg) white
  26. set tixOption(select_bg) black
  27. set tixOption(selector) yellow
  28. }