Posted to tcl by patthoyts at Sun Dec 06 22:59:10 GMT 2009view raw

  1. Index: library/ttk/vistaTheme.tcl
  2. ===================================================================
  3. RCS file: /cvsroot/tktoolkit/tk/library/ttk/vistaTheme.tcl,v
  4. retrieving revision 1.2.2.3
  5. retrieving revision 1.2.2.4
  6. diff -u -p -r1.2.2.3 -r1.2.2.4
  7. --- library/ttk/vistaTheme.tcl 7 Oct 2009 19:26:50 -0000 1.2.2.3
  8. +++ library/ttk/vistaTheme.tcl 3 Dec 2009 23:58:35 -0000 1.2.2.4
  9. @@ -57,6 +57,18 @@ namespace eval ttk::theme::vista {
  10. -background [list selected SystemHighlight] \
  11. -foreground [list selected SystemHighlightText] ;
  12.  
  13. + ttk::style configure Row -background SystemWindow
  14. + ttk::style configure Cell -background SystemWindow
  15. + ttk::style map Row \
  16. + -background [list selected SystemHighlight] \
  17. + -foreground [list selected SystemHighlightText] ;
  18. + ttk::style map Cell \
  19. + -background [list selected SystemHighlight] \
  20. + -foreground [list selected SystemHighlightText] ;
  21. + ttk::style map Item \
  22. + -background [list selected SystemHighlight] \
  23. + -foreground [list selected SystemHighlightText] ;
  24. +
  25. # Label and Toolbutton
  26. ttk::style configure TLabelframe.Label -foreground "#0046d5"
  27.  
  28. Index: library/ttk/xpTheme.tcl
  29. ===================================================================
  30. RCS file: /cvsroot/tktoolkit/tk/library/ttk/xpTheme.tcl,v
  31. retrieving revision 1.6.2.2
  32. retrieving revision 1.6.2.3
  33. diff -u -p -r1.6.2.2 -r1.6.2.3
  34. --- library/ttk/xpTheme.tcl 14 May 2009 00:53:04 -0000 1.6.2.2
  35. +++ library/ttk/xpTheme.tcl 3 Dec 2009 23:58:35 -0000 1.6.2.3
  36. @@ -1,5 +1,5 @@
  37. #
  38. -# $Id: xpTheme.tcl,v 1.6.2.2 2009/05/14 00:53:04 patthoyts Exp $
  39. +# $Id: xpTheme.tcl,v 1.6.2.3 2009/12/03 23:58:35 patthoyts Exp $
  40. #
  41. # Settings for 'xpnative' theme
  42. #
  43. @@ -36,6 +36,18 @@ namespace eval ttk::theme::xpnative {
  44. -background [list selected SystemHighlight] \
  45. -foreground [list selected SystemHighlightText] ;
  46.  
  47. + ttk::style configure Row -background SystemWindow
  48. + ttk::style configure Cell -background SystemWindow
  49. + ttk::style map Row \
  50. + -background [list selected SystemHighlight] \
  51. + -foreground [list selected SystemHighlightText] ;
  52. + ttk::style map Cell \
  53. + -background [list selected SystemHighlight] \
  54. + -foreground [list selected SystemHighlightText] ;
  55. + ttk::style map Item \
  56. + -background [list selected SystemHighlight] \
  57. + -foreground [list selected SystemHighlightText] ;
  58. +
  59. ttk::style configure TLabelframe.Label -foreground "#0046d5"
  60.  
  61. # OR: -padding {3 3 3 6}, which some apps seem to use.