diff options
| author | jenglish <jenglish@flightlab.com> | 2006-12-18 19:33:10 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2006-12-18 19:33:10 (GMT) |
| commit | fb835826dd21c44784539b40e590866ffb89bd93 (patch) | |
| tree | b0a6aa116ab0a8f8f7eefc79d7816eb5eb6e5c58 /library/ttk/classicTheme.tcl | |
| parent | 16cde6f4aaf0d168843b71218b3b76cad1f1da4c (diff) | |
| download | tk-fb835826dd21c44784539b40e590866ffb89bd93.zip tk-fb835826dd21c44784539b40e590866ffb89bd93.tar.gz tk-fb835826dd21c44784539b40e590866ffb89bd93.tar.bz2 | |
Big batch of ttk::treeview improvements:
Added column '-stretch' and '-minwidth' options.
Improved column drag and resize behavior.
Added horizontal scrolling [#1518650].
Row height and child indent specifiable on Treeview style.
Decreased default row height, no default -padding.
Use correct heading height [#1163349].
Apply tag settings to tree item as well as to data columns
[NOTE: 'tag configure' still buggy].
Fix off-by-one condition when moving nodes forward [#1618142]
Prevent overscroll ([#1173434])
Treeview style settings specified separately in each theme.
Added disclosure triangle element in aqua theme.
Diffstat (limited to 'library/ttk/classicTheme.tcl')
| -rw-r--r-- | library/ttk/classicTheme.tcl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index 5e29787..2061b4e 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -1,5 +1,5 @@ # -# $Id: classicTheme.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $ +# $Id: classicTheme.tcl,v 1.3 2006/12/18 19:33:14 jenglish Exp $ # # "classic" Tk theme. # @@ -10,6 +10,7 @@ namespace eval ttk::theme::classic { variable colors; array set colors { -frame "#d9d9d9" + -window "#ffffff" -activebg "#ececec" -troughbg "#c3c3c3" -selectbg "#c3c3c3" @@ -84,6 +85,17 @@ namespace eval ttk::theme::classic { -background $colors(-troughbg) style map TNotebook.Tab -background [list selected $colors(-frame)] + # Treeview: + ttk::style configure Heading -font TkHeadingFont -relief raised + ttk::style configure Row -background $colors(-window) + ttk::style configure Cell -background $colors(-window) + ttk::style map Row \ + -background [list selected $colors(-selectbg)] \ + -foreground [list selected $colors(-selectfg)] ; + ttk::style map Cell \ + -background [list selected $colors(-selectbg)] \ + -foreground [list selected $colors(-selectfg)] ; + # # Toolbar buttons: # |