diff options
Diffstat (limited to 'library/ttk/altTheme.tcl')
| -rw-r--r-- | library/ttk/altTheme.tcl | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl index b1bbc65..62a0607 100644 --- a/library/ttk/altTheme.tcl +++ b/library/ttk/altTheme.tcl @@ -1,5 +1,5 @@ # -# $Id: altTheme.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $ +# $Id: altTheme.tcl,v 1.3 2006/12/18 19:33:14 jenglish Exp $ # # Ttk widget set: Alternate theme # @@ -9,6 +9,7 @@ namespace eval ttk::theme::alt { variable colors array set colors { -frame "#d9d9d9" + -window "#ffffff" -darker "#c3c3c3" -activebg "#ececec" -disabledfg "#a3a3a3" @@ -77,6 +78,20 @@ namespace eval ttk::theme::alt { -expand [list selected {2 2 1 0}] \ ; + # Treeview: + style configure Heading -font TkHeadingFont -relief raised + style configure Row -background $colors(-window) + style configure Cell -background $colors(-window) + style map Row \ + -background [list selected $colors(-selectbg)] \ + -foreground [list selected $colors(-selectfg)] ; + style map Cell \ + -background [list selected $colors(-selectbg)] \ + -foreground [list selected $colors(-selectfg)] ; + style map Item \ + -background [list selected $colors(-selectbg)] \ + -foreground [list selected $colors(-selectfg)] ; + style configure TScale \ -groovewidth 4 -troughrelief sunken \ -sliderwidth raised -borderwidth 2 |