1 files changed, 59 insertions, 0 deletions
diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl
new file mode 100644
index 0000000..fa0fa12
--- /dev/null
+++ b/library/ttk/aquaTheme.tcl
@@ -0,0 +1,59 @@
+#
+# Aqua theme (OSX native look and feel)
+#
+
+namespace eval ttk::theme::aqua {
+    ttk::style theme settings aqua {
+
+	ttk::style configure . \
+	    -font TkDefaultFont \
+	    -background systemWindowBody \
+	    -foreground systemModelessDialogActiveText \
+	    -selectbackground systemHighlight \
+	    -selectforeground systemModelessDialogActiveText \
+	    -selectborderwidth 0 \
+	    -insertwidth 1
+
+	ttk::style map . \
+	    -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
+	ttk::style configure Toolbutton -padding 4
+
+	ttk::style configure TNotebook -tabmargins {10 0} -tabposition n
+	ttk::style configure TNotebook -padding {18 8 18 17}
+	ttk::style configure TNotebook.Tab -padding {12 3 12 2}
+
+	# Combobox:
+	ttk::style configure TCombobox -postoffset {5 -2 -10 0}
+
+	# Treeview:
+	ttk::style configure Heading -font TkHeadingFont
+	ttk::style configure Treeview -rowheight 18 -background White
+	ttk::style map Treeview \
+	    -background {{selected background} systemHighlightSecondary
+		    selected systemHighlight}
+
+	# Enable animation for ttk::progressbar widget:
+	ttk::style configure TProgressbar -period 100 -maxphase 255
+
+	# 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)
+	#
+	ttk::style configure TLabelframe \
+		-labeloutside true -labelmargins {14 0 14 4}
+
+	# TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views)
+    }
+}