summaryrefslogtreecommitdiffstats
path: root/library/ttk/aquaTheme.tcl
diff options
context:
space:
mode:
authordas <das>2008-07-22 17:02:31 (GMT)
committerdas <das>2008-07-22 17:02:31 (GMT)
commitac9105656dcdedaac77fbde7e874b7d1d9d3e2b1 (patch)
tree963a07427c6483076f46267687270a62b365b491 /library/ttk/aquaTheme.tcl
parentc2cecc8f25e42460d2b58b35f0f3329bcc24803e (diff)
downloadtk-ac9105656dcdedaac77fbde7e874b7d1d9d3e2b1.zip
tk-ac9105656dcdedaac77fbde7e874b7d1d9d3e2b1.tar.gz
tk-ac9105656dcdedaac77fbde7e874b7d1d9d3e2b1.tar.bz2
* library/ttk/aquaTheme.tcl: Use system color names and TIP145 named
font instead of hardcoded color values and deprecated native font name.
Diffstat (limited to 'library/ttk/aquaTheme.tcl')
-rw-r--r--library/ttk/aquaTheme.tcl44
1 files changed, 24 insertions, 20 deletions
diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl
index bc6d4e9..8ff2ea0 100644
--- a/library/ttk/aquaTheme.tcl
+++ b/library/ttk/aquaTheme.tcl
@@ -1,5 +1,5 @@
#
-# $Id: aquaTheme.tcl,v 1.11 2007/12/13 15:27:08 dgp Exp $
+# $Id: aquaTheme.tcl,v 1.11.2.1 2008/07/22 17:02:31 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,12 +41,15 @@ namespace eval ttk::theme::aqua {
# Treeview:
ttk::style configure Treeview -rowheight 18
ttk::style configure Heading -font TkHeadingFont
- ttk::style map Row -background [list \
- {selected background} "#c3c3c3" selected SystemHighlight] ;
- ttk::style map Cell -foreground [list \
- {selected background} "#000000" selected SystemHighlightText] ;
- ttk::style map Item -foreground [list \
- {selected background} "#000000" selected SystemHighlightText] ;
+ ttk::style map Row \
+ -background {{selected background} systemHighlightSecondary
+ selected systemHighlight}
+ ttk::style map Cell \
+ -foreground {{selected background} systemModelessDialogInactiveText
+ selected systemModelessDialogActiveText}
+ ttk::style map Item \
+ -foreground {{selected background} systemModelessDialogInactiveText
+ selected systemModelessDialogActiveText}
# Enable animation for ttk::progressbar widget:
ttk::style configure TProgressbar -period 100 -maxphase 255
@@ -54,7 +58,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)