diff options
| author | jenglish <jenglish@flightlab.com> | 2007-11-18 19:20:24 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2007-11-18 19:20:24 (GMT) |
| commit | aa5ebe3414405d7b4ad1a8271f395866e8a65f79 (patch) | |
| tree | aadad427b46a83b0e4b696481aba274e50fec32d /library/ttk/clamTheme.tcl | |
| parent | d9b51f4b71e2318378ed9a818970213c3b381894 (diff) | |
| download | tk-aa5ebe3414405d7b4ad1a8271f395866e8a65f79.zip tk-aa5ebe3414405d7b4ad1a8271f395866e8a65f79.tar.gz tk-aa5ebe3414405d7b4ad1a8271f395866e8a65f79.tar.bz2 | |
* generic/ttk/ttkFrame.c: Use sublayout for ttk::labelframe labels
instead of single element.
* generic/ttk/ttkLabel.c: Default -anchor for text and label elements
is now "w" instead of "center". Fixes [Bug 1614540].
* library/ttk/defaults.tcl, library/ttk/*Theme.tcl: Button styles
now need explicit "-anchor center".
Diffstat (limited to 'library/ttk/clamTheme.tcl')
| -rw-r--r-- | library/ttk/clamTheme.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl index 930ec97..c519eab 100644 --- a/library/ttk/clamTheme.tcl +++ b/library/ttk/clamTheme.tcl @@ -1,5 +1,5 @@ # -# $Id: clamTheme.tcl,v 1.4 2006/12/18 19:33:14 jenglish Exp $ +# $Id: clamTheme.tcl,v 1.5 2007/11/18 19:20:26 jenglish Exp $ # # "Clam" theme. # @@ -45,7 +45,8 @@ namespace eval ttk::theme::clam { ; # -selectbackground [list !focus "#847d73"] - ttk::style configure TButton -width -11 -padding 5 -relief raised + ttk::style configure TButton \ + -anchor center -width -11 -padding 5 -relief raised ttk::style map TButton \ -background [list \ disabled $colors(-frame) \ @@ -56,7 +57,8 @@ namespace eval ttk::theme::clam { -bordercolor [list alternate "#000000"] \ ; - ttk::style configure Toolbutton -padding 2 -relief flat + ttk::style configure Toolbutton \ + -anchor center -padding 2 -relief flat ttk::style map Toolbutton \ -relief [list \ disabled flat \ @@ -85,7 +87,7 @@ namespace eval ttk::theme::clam { [list disabled $colors(-frame) pressed $colors(-frame)] ttk::style configure TMenubutton \ - -width -11 -padding 5 -relief raised -anchor w + -width -11 -padding 5 -relief raised ttk::style configure TEntry -padding 1 -insertwidth 1 ttk::style map TEntry \ |