diff options
| author | jenglish <jenglish@noemail.net> | 2007-11-18 19:20:23 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@noemail.net> | 2007-11-18 19:20:23 (GMT) |
| commit | f102c3060ae0fb90b034c352f579d718b1e8086e (patch) | |
| tree | aadad427b46a83b0e4b696481aba274e50fec32d /library/ttk/aquaTheme.tcl | |
| parent | 79904e57cde1be268c716ef406cd44cc30311ae9 (diff) | |
| download | tk-f102c3060ae0fb90b034c352f579d718b1e8086e.zip tk-f102c3060ae0fb90b034c352f579d718b1e8086e.tar.gz tk-f102c3060ae0fb90b034c352f579d718b1e8086e.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".
FossilOrigin-Name: c9d33ad05152a83ec440259c0638f37cf352e853
Diffstat (limited to 'library/ttk/aquaTheme.tcl')
| -rw-r--r-- | library/ttk/aquaTheme.tcl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl index e8ece15..bf34746 100644 --- a/library/ttk/aquaTheme.tcl +++ b/library/ttk/aquaTheme.tcl @@ -1,5 +1,5 @@ # -# $Id: aquaTheme.tcl,v 1.8 2007/11/18 17:00:28 jenglish Exp $ +# $Id: aquaTheme.tcl,v 1.9 2007/11/18 19:20:26 jenglish Exp $ # # Aqua theme (OSX native look and feel) # @@ -28,8 +28,7 @@ namespace eval ttk::theme::aqua { # ttk::style configure . -stipple {} - ttk::style configure TButton -width -6 - ttk::style configure TMenubutton -anchor w + ttk::style configure TButton -anchor center -width -6 ttk::style configure Toolbutton -padding 4 # See Apple HIG figs 14-63, 14-65 ttk::style configure TNotebook -tabposition n -padding {20 12} @@ -54,12 +53,9 @@ namespace eval ttk::theme::aqua { # Modify the the default Labelframe layout to use generic text element # instead of Labelframe.text; the latter erases the window background # (@@@ this still isn't right... want to fill with background pattern) - - ttk::style layout TLabelframe { - Labelframe.border - text - } # + ttk::style layout TLabelframe.Label { text } + # For Aqua, labelframe labels should appear outside the border, # with a 14 pixel inset and 4 pixels spacing between border and label # (ref: Apple Human Interface Guidelines / Controls / Grouping Controls) |