123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- #
- # 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)
- }
- }
|