figenc

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

xpTheme.tcl (1920B)

      1 #
      2 # Settings for 'xpnative' theme
      3 #
      4 
      5 namespace eval ttk::theme::xpnative {
      6 
      7     ttk::style theme settings xpnative {
      8 
      9 	ttk::style configure . \
     10 	    -background SystemButtonFace \
     11 	    -foreground SystemWindowText \
     12 	    -selectforeground SystemHighlightText \
     13 	    -selectbackground SystemHighlight \
     14 	    -font TkDefaultFont \
     15 	    ;
     16 
     17 	ttk::style map "." \
     18 	    -foreground [list disabled SystemGrayText] \
     19 	    ;
     20 
     21 	ttk::style configure TButton -anchor center -padding {1 1} -width -11
     22 	ttk::style configure TRadiobutton -padding 2
     23 	ttk::style configure TCheckbutton -padding 2
     24 	ttk::style configure TMenubutton -padding {8 4}
     25 
     26 	ttk::style configure TNotebook -tabmargins {2 2 2 0}
     27 	ttk::style map TNotebook.Tab \
     28 	    -expand [list selected {2 2 2 2}]
     29 
     30 	# Treeview:
     31 	ttk::style configure Heading -font TkHeadingFont
     32 	ttk::style configure Treeview -background SystemWindow
     33 	ttk::style map Treeview \
     34 	    -background [list selected SystemHighlight] \
     35 	    -foreground [list selected SystemHighlightText] ;
     36 
     37 	ttk::style configure TLabelframe.Label -foreground "#0046d5"
     38 
     39 	# OR: -padding {3 3 3 6}, which some apps seem to use.
     40 	ttk::style configure TEntry -padding {2 2 2 4}
     41 	ttk::style map TEntry \
     42 	    -selectbackground [list !focus SystemWindow] \
     43 	    -selectforeground [list !focus SystemWindowText] \
     44 	    ;
     45 	ttk::style configure TCombobox -padding 2
     46 	ttk::style map TCombobox \
     47 	    -selectbackground [list !focus SystemWindow] \
     48 	    -selectforeground [list !focus SystemWindowText] \
     49 	    -foreground	[list \
     50 		disabled		SystemGrayText \
     51 	    	{readonly focus}	SystemHighlightText \
     52 	    ] \
     53 	    -focusfill	[list {readonly focus} SystemHighlight] \
     54 	    ;
     55 
     56 	ttk::style configure TSpinbox -padding {2 0 14 0}
     57 	ttk::style map TSpinbox \
     58 	    -selectbackground [list !focus SystemWindow] \
     59 	    -selectforeground [list !focus SystemWindowText] \
     60 	    ;
     61 
     62 	ttk::style configure Toolbutton -padding {4 4}
     63 
     64     }
     65 }