diff options
author | patthoyts <patthoyts@users.sourceforge.net> | 2009-12-03 23:58:34 (GMT) |
---|---|---|
committer | patthoyts <patthoyts@users.sourceforge.net> | 2009-12-03 23:58:34 (GMT) |
commit | 6bfafac9d297d4eac7877cd8318422dd9b2b557b (patch) | |
tree | af01d0a3f9a01d3ce36f35080c91b9855a8d1636 /library | |
parent | 14022fc6c55e92c6a09d8d6de1d6bd59e8de2d29 (diff) | |
download | tk-6bfafac9d297d4eac7877cd8318422dd9b2b557b.zip tk-6bfafac9d297d4eac7877cd8318422dd9b2b557b.tar.gz tk-6bfafac9d297d4eac7877cd8318422dd9b2b557b.tar.bz2 |
Fix the selection of treeview rows on Windows XP and Vista
Diffstat (limited to 'library')
-rw-r--r-- | library/ttk/vistaTheme.tcl | 12 | ||||
-rw-r--r-- | library/ttk/xpTheme.tcl | 14 |
2 files changed, 25 insertions, 1 deletions
diff --git a/library/ttk/vistaTheme.tcl b/library/ttk/vistaTheme.tcl index b96f4a7..9b9418d 100644 --- a/library/ttk/vistaTheme.tcl +++ b/library/ttk/vistaTheme.tcl @@ -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" diff --git a/library/ttk/xpTheme.tcl b/library/ttk/xpTheme.tcl index 9b1c697..8a0400e 100644 --- a/library/ttk/xpTheme.tcl +++ b/library/ttk/xpTheme.tcl @@ -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. |