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/clamTheme.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/clamTheme.tcl')
| -rw-r--r-- | library/ttk/clamTheme.tcl | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl index 9061006..930ec97 100644 --- a/library/ttk/clamTheme.tcl +++ b/library/ttk/clamTheme.tcl @@ -1,5 +1,5 @@ # -# $Id: clamTheme.tcl,v 1.3 2006/12/13 17:06:32 jenglish Exp $ +# $Id: clamTheme.tcl,v 1.4 2006/12/18 19:33:14 jenglish Exp $ # # "Clam" theme. # @@ -10,8 +10,8 @@ namespace eval ttk::theme::clam { variable colors array set colors { -disabledfg "#999999" - -frame "#dcdad5" + -window "#ffffff" -dark "#cfcdc8" -darker "#bab5ab" -darkest "#9e9a91" @@ -111,6 +111,21 @@ namespace eval ttk::theme::clam { -lightcolor [list selected $colors(-lighter) {} $colors(-dark)] \ ; + # Treeview: + ttk::style configure Heading \ + -font TkHeadingFont -relief raised -padding {3} + 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)] ; + ttk::style map Item \ + -background [list selected $colors(-selectbg)] \ + -foreground [list selected $colors(-selectfg)] ; + ttk::style configure TLabelframe \ -labeloutside true -labelmargins {0 0 0 4} \ -borderwidth 2 -relief raised |