summaryrefslogtreecommitdiffstats
path: root/library/ttk
diff options
context:
space:
mode:
Diffstat (limited to 'library/ttk')
-rw-r--r--library/ttk/aquaTheme.tcl34
1 files changed, 18 insertions, 16 deletions
diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl
index ccb8bd3..85dcb04 100644
--- a/library/ttk/aquaTheme.tcl
+++ b/library/ttk/aquaTheme.tcl
@@ -1,5 +1,5 @@
#
-# $Id: aquaTheme.tcl,v 1.12 2008/05/23 20:20:06 jenglish Exp $
+# $Id: aquaTheme.tcl,v 1.13 2008/07/22 17:01:46 das Exp $
#
# Aqua theme (OSX native look and feel)
#
@@ -8,24 +8,25 @@ namespace eval ttk::theme::aqua {
ttk::style theme settings aqua {
ttk::style configure . \
- -font System \
- -background White \
- -foreground Black \
- -selectbackground SystemHighlight \
- -selectforeground SystemHighlightText \
+ -font TkDefaultFont \
+ -background systemWindowBody \
+ -foreground systemModelessDialogActiveText \
+ -selectbackground systemHighlight \
+ -selectforeground systemModelessDialogActiveText \
-selectborderwidth 0 \
- -insertwidth 1 \
- ;
+ -insertwidth 1
+
ttk::style map . \
- -foreground [list disabled "#7f7f7f" background "#7f7f7f"] \
- -selectbackground [list background "#c3c3c3" !focus "#c3c3c3"] \
- -selectforeground [list background "#a3a3a3" !focus "#000000"] \
- ;
+ -foreground {disabled systemModelessDialogInactiveText
+ background systemModelessDialogInactiveText} \
+ -selectbackground {background systemHighlightSecondary
+ !focus systemHighlightSecondary} \
+ -selectforeground {background systemModelessDialogInactiveText
+ !focus systemDialogActiveText}
# Workaround for #1100117:
# Actually, on Aqua we probably shouldn't stipple images in
# disabled buttons even if it did work...
- #
ttk::style configure . -stipple {}
ttk::style configure TButton -anchor center -width -6
@@ -40,8 +41,9 @@ namespace eval ttk::theme::aqua {
# Treeview:
ttk::style configure Heading -font TkHeadingFont
ttk::style configure Treeview -rowheight 18 -background White
- ttk::style map Treeview -background [list \
- {selected background} "#c3c3c3" selected SystemHighlight] ;
+ ttk::style map Treeview \
+ -background {{selected background} systemHighlightSecondary
+ selected systemHighlight}
# Enable animation for ttk::progressbar widget:
ttk::style configure TProgressbar -period 100 -maxphase 255
@@ -50,7 +52,7 @@ namespace eval ttk::theme::aqua {
# with a 14 pixel inset and 4 pixels spacing between border and label
# (ref: Apple Human Interface Guidelines / Controls / Grouping Controls)
#
- ttk::style configure TLabelframe \
+ ttk::style configure TLabelframe \
-labeloutside true -labelmargins {14 0 14 4}
# TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views)