diff options
| -rw-r--r-- | library/ttk/aquaTheme.tcl | 47 |
1 files changed, 22 insertions, 25 deletions
diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl index c6636d7..1c1994c 100644 --- a/library/ttk/aquaTheme.tcl +++ b/library/ttk/aquaTheme.tcl @@ -1,17 +1,13 @@ # -# $Id: aquaTheme.tcl,v 1.3 2007/07/06 19:44:51 jenglish Exp $ +# $Id: aquaTheme.tcl,v 1.4 2007/10/19 01:25:12 jenglish Exp $ # -# Ttk widget set: Aqua theme (OSX native look and feel) +# Aqua theme (OSX native look and feel) # -# -# TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views) -# - -namespace eval ttk { - style theme settings aqua { +namespace eval ttk::theme::aqua { + ttk::style theme settings aqua { - style configure . \ + ttk::style configure . \ -font System \ -background White \ -foreground Black \ @@ -20,7 +16,7 @@ namespace eval ttk { -selectborderwidth 0 \ -insertwidth 1 \ ; - style map . \ + ttk::style map . \ -foreground [list disabled "#a3a3a3" background "#a3a3a3"] \ -selectbackground [list background "#c3c3c3" !focus "#c3c3c3"] \ -selectforeground [list background "#a3a3a3" !focus "#000000"] \ @@ -30,33 +26,33 @@ namespace eval ttk { # Actually, on Aqua we probably shouldn't stipple images in # disabled buttons even if it did work... # - style configure . -stipple {} + ttk::style configure . -stipple {} - style configure TButton -padding {0 2} -width -6 - style configure TMenubutton -anchor w - style configure Toolbutton -padding 4 + ttk::style configure TButton -padding {0 2} -width -6 + ttk::style configure TMenubutton -anchor w + ttk::style configure Toolbutton -padding 4 # See Apple HIG figs 14-63, 14-65 - style configure TNotebook -tabposition n -padding {20 12} - style configure TNotebook.Tab -padding {10 2 10 2} + ttk::style configure TNotebook -tabposition n -padding {20 12} + ttk::style configure TNotebook.Tab -padding {10 2 10 2} # Treeview: - style configure Treeview -rowheight 18 - style configure Heading -font TkHeadingFont - style map Row -background [list \ + ttk::style configure Treeview -rowheight 18 + ttk::style configure Heading -font TkHeadingFont + ttk::style map Row -background [list \ {selected background} "#c3c3c3" selected SystemHighlight] ; - style map Cell -foreground [list \ + ttk::style map Cell -foreground [list \ {selected background} "#000000" selected SystemHighlightText] ; - style map Item -foreground [list \ + ttk::style map Item -foreground [list \ {selected background} "#000000" selected SystemHighlightText] ; # Enable animation for ttk::progressbar widget: - style configure TProgressbar -period 100 -maxphase 255 + ttk::style configure TProgressbar -period 100 -maxphase 255 # 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) - style layout TLabelframe { + ttk::style layout TLabelframe { Labelframe.border text } @@ -65,8 +61,9 @@ namespace eval ttk { # with a 14 pixel inset and 4 pixels spacing between border and label # (ref: Apple Human Interface Guidelines / Controls / Grouping Controls) # - style configure TLabelframe \ - -labeloutside true -labelmargins {14 0 14 4} + ttk::style configure TLabelframe \ + -labeloutside true -labelmargins {14 0 14 4} + # TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views) } } |