Posted to tcl by patthoyts at Sun Dec 06 22:59:10 GMT 2009view pretty
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.