figenc

[RADIOACTIVE] rsa and symmetric key encryption scripts and executables
git clone git://git.figbert.com/figenc.git
Log | Files | Refs | README

aquaTheme.tcl (2001B)

      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 }