Posted to tcl by patthoyts at Sun Dec 06 22:59:10 GMT 2009view raw
- Index: library/ttk/vistaTheme.tcl
- ===================================================================
- RCS file: /cvsroot/tktoolkit/tk/library/ttk/vistaTheme.tcl,v
- retrieving revision 1.2.2.3
- retrieving revision 1.2.2.4
- diff -u -p -r1.2.2.3 -r1.2.2.4
- --- library/ttk/vistaTheme.tcl 7 Oct 2009 19:26:50 -0000 1.2.2.3
- +++ library/ttk/vistaTheme.tcl 3 Dec 2009 23:58:35 -0000 1.2.2.4
- @@ -57,6 +57,18 @@ namespace eval ttk::theme::vista {
- -background [list selected SystemHighlight] \
- -foreground [list selected SystemHighlightText] ;
- + ttk::style configure Row -background SystemWindow
- + ttk::style configure Cell -background SystemWindow
- + ttk::style map Row \
- + -background [list selected SystemHighlight] \
- + -foreground [list selected SystemHighlightText] ;
- + ttk::style map Cell \
- + -background [list selected SystemHighlight] \
- + -foreground [list selected SystemHighlightText] ;
- + ttk::style map Item \
- + -background [list selected SystemHighlight] \
- + -foreground [list selected SystemHighlightText] ;
- +
- # Label and Toolbutton
- ttk::style configure TLabelframe.Label -foreground "#0046d5"
- Index: library/ttk/xpTheme.tcl
- ===================================================================
- RCS file: /cvsroot/tktoolkit/tk/library/ttk/xpTheme.tcl,v
- retrieving revision 1.6.2.2
- retrieving revision 1.6.2.3
- diff -u -p -r1.6.2.2 -r1.6.2.3
- --- library/ttk/xpTheme.tcl 14 May 2009 00:53:04 -0000 1.6.2.2
- +++ library/ttk/xpTheme.tcl 3 Dec 2009 23:58:35 -0000 1.6.2.3
- @@ -1,5 +1,5 @@
- #
- -# $Id: xpTheme.tcl,v 1.6.2.2 2009/05/14 00:53:04 patthoyts Exp $
- +# $Id: xpTheme.tcl,v 1.6.2.3 2009/12/03 23:58:35 patthoyts Exp $
- #
- # Settings for 'xpnative' theme
- #
- @@ -36,6 +36,18 @@ namespace eval ttk::theme::xpnative {
- -background [list selected SystemHighlight] \
- -foreground [list selected SystemHighlightText] ;
- + ttk::style configure Row -background SystemWindow
- + ttk::style configure Cell -background SystemWindow
- + ttk::style map Row \
- + -background [list selected SystemHighlight] \
- + -foreground [list selected SystemHighlightText] ;
- + ttk::style map Cell \
- + -background [list selected SystemHighlight] \
- + -foreground [list selected SystemHighlightText] ;
- + ttk::style map Item \
- + -background [list selected SystemHighlight] \
- + -foreground [list selected SystemHighlightText] ;
- +
- ttk::style configure TLabelframe.Label -foreground "#0046d5"
- # OR: -padding {3 3 3 6}, which some apps seem to use.