venv/tcl/tk8.6/ttk/aquaTheme.tcl

   1 #
   2 # Aqua theme (OSX native look and feel)
   3 #
   4
   5 namespace eval ttk::theme::aqua {
   6     ttk::style theme settings aqua {
   7
   8         ttk::style configure . \
   9             -font TkDefaultFont \
  10             -background systemWindowBody \
  11             -foreground systemModelessDialogActiveText \
  12             -selectbackground systemHighlight \
  13             -selectforeground systemModelessDialogActiveText \
  14             -selectborderwidth 0 \
  15             -insertwidth 1
  16
  17         ttk::style map . \
  18             -foreground {disabled systemModelessDialogInactiveText
  19                     background systemModelessDialogInactiveText} \
  20             -selectbackground {background systemHighlightSecondary
  21                     !focus systemHighlightSecondary} \
  22             -selectforeground {background systemModelessDialogInactiveText
  23                     !focus systemDialogActiveText}
  24
  25         # Workaround for #1100117:
  26         # Actually, on Aqua we probably shouldn't stipple images in
  27         # disabled buttons even if it did work...
  28         ttk::style configure . -stipple {}
  29
  30         ttk::style configure TButton -anchor center -width -6
  31         ttk::style configure Toolbutton -padding 4
  32
  33         ttk::style configure TNotebook -tabmargins {10 0} -tabposition n
  34         ttk::style configure TNotebook -padding {18 8 18 17}
  35         ttk::style configure TNotebook.Tab -padding {12 3 12 2}
  36
  37         # Combobox:
  38         ttk::style configure TCombobox -postoffset {5 -2 -10 0}
  39
  40         # Treeview:
  41         ttk::style configure Heading -font TkHeadingFont
  42         ttk::style configure Treeview -rowheight 18 -background White
  43         ttk::style map Treeview \
  44             -background {{selected background} systemHighlightSecondary
  45                     selected systemHighlight}
  46
  47         # Enable animation for ttk::progressbar widget:
  48         ttk::style configure TProgressbar -period 100 -maxphase 255
  49
  50         # For Aqua, labelframe labels should appear outside the border,
  51         # with a 14 pixel inset and 4 pixels spacing between border and label
  52         # (ref: Apple Human Interface Guidelines / Controls / Grouping Controls)
  53         #
  54         ttk::style configure TLabelframe \
  55                 -labeloutside true -labelmargins {14 0 14 4}
  56
  57         # TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views)
  58     }
  59 }