/usr/share/tcltk/tile0.8.2/aquaTheme.tcl is in tk-tile 0.8.2-2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | #
# aquaTheme.tcl,v 1.28 2007/11/19 01:57:21 jenglish Exp
#
# Aqua theme (OSX native look and feel)
#
namespace eval ttk::theme::aqua {
ttk::style theme settings aqua {
ttk::style configure . \
-font System \
-background White \
-foreground Black \
-selectbackground SystemHighlight \
-selectforeground SystemHighlightText \
-selectborderwidth 0 \
-insertwidth 1 \
;
ttk::style map . \
-foreground [list disabled "#7f7f7f" background "#7f7f7f"] \
-selectbackground [list background "#c3c3c3" !focus "#c3c3c3"] \
-selectforeground [list background "#a3a3a3" !focus "#000000"] \
;
# 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
# See Apple HIG figs 14-63, 14-65
ttk::style configure TNotebook -tabposition n -padding {20 12}
ttk::style configure TNotebook.Tab -padding {10 2 10 2}
# Combobox:
ttk::style configure TCombobox -postoffset {5 -2 -10 0}
# 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] ;
# 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)
}
}
|