summaryrefslogtreecommitdiffstats
path: root/tk8.6/library/ttk/aquaTheme.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tk8.6/library/ttk/aquaTheme.tcl')
-rw-r--r--tk8.6/library/ttk/aquaTheme.tcl64
1 files changed, 0 insertions, 64 deletions
diff --git a/tk8.6/library/ttk/aquaTheme.tcl b/tk8.6/library/ttk/aquaTheme.tcl
deleted file mode 100644
index d6be5a3..0000000
--- a/tk8.6/library/ttk/aquaTheme.tcl
+++ /dev/null
@@ -1,64 +0,0 @@
-#
-# 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 [list disabled systemDialogBackgroundInactive \
- {!disabled !selected} systemWindowBody \
- {selected background} systemHighlightSecondary \
- selected systemHighlight] \
- -foreground [list disabled systemModelessDialogInactiveText \
- {!disabled !selected} black \
- selected systemModelessDialogActiveText]
-
- # 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)
- }
-}