figenc

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

winTheme.tcl (2643B)

      1 #
      2 # Settings for 'winnative' theme.
      3 #
      4 
      5 namespace eval ttk::theme::winnative {
      6     ttk::style theme settings winnative {
      7 
      8 	ttk::style configure "." \
      9 	    -background SystemButtonFace \
     10 	    -foreground SystemWindowText \
     11 	    -selectforeground SystemHighlightText \
     12 	    -selectbackground SystemHighlight \
     13 	    -troughcolor SystemScrollbar \
     14 	    -font TkDefaultFont \
     15 	    ;
     16 
     17 	ttk::style map "." -foreground [list disabled SystemGrayText] ;
     18         ttk::style map "." -embossed [list disabled 1] ;
     19 
     20 	ttk::style configure TButton \
     21 	    -anchor center -width -11 -relief raised -shiftrelief 1
     22 	ttk::style configure TCheckbutton -padding "2 4"
     23 	ttk::style configure TRadiobutton -padding "2 4"
     24 	ttk::style configure TMenubutton \
     25 	    -padding "8 4" -arrowsize 3 -relief raised
     26 
     27 	ttk::style map TButton -relief {{!disabled pressed} sunken}
     28 
     29 	ttk::style configure TEntry \
     30 	    -padding 2 -selectborderwidth 0 -insertwidth 1
     31 	ttk::style map TEntry \
     32 	    -fieldbackground \
     33 	    	[list readonly SystemButtonFace disabled SystemButtonFace] \
     34 	    -selectbackground [list !focus SystemWindow] \
     35 	    -selectforeground [list !focus SystemWindowText] \
     36 	    ;
     37 
     38 	ttk::style configure TCombobox -padding 2
     39 	ttk::style map TCombobox \
     40 	    -selectbackground [list !focus SystemWindow] \
     41 	    -selectforeground [list !focus SystemWindowText] \
     42 	    -fieldbackground [list \
     43 	    	readonly SystemButtonFace \
     44 		disabled SystemButtonFace] \
     45 	    -foreground	[list \
     46 		disabled		SystemGrayText \
     47 	    	{readonly focus}	SystemHighlightText \
     48 	    ] \
     49 	    -focusfill	[list {readonly focus} SystemHighlight] \
     50 	    ;
     51 
     52 	ttk::style element create ComboboxPopdownFrame.border from default
     53 	ttk::style configure ComboboxPopdownFrame \
     54 	    -borderwidth 1 -relief solid
     55 
     56         ttk::style configure TSpinbox -padding {2 0 16 0}
     57 
     58 	ttk::style configure TLabelframe -borderwidth 2 -relief groove
     59 
     60 	ttk::style configure Toolbutton -relief flat -padding {8 4}
     61 	ttk::style map Toolbutton -relief \
     62 	    {disabled flat selected sunken  pressed sunken  active raised}
     63 
     64 	ttk::style configure TScale -groovewidth 4
     65 
     66 	ttk::style configure TNotebook -tabmargins {2 2 2 0}
     67 	ttk::style configure TNotebook.Tab -padding {3 1} -borderwidth 1
     68 	ttk::style map TNotebook.Tab -expand [list selected {2 2 2 0}]
     69 
     70 	# Treeview:
     71 	ttk::style configure Heading -font TkHeadingFont -relief raised
     72 	ttk::style configure Treeview -background SystemWindow
     73 	ttk::style map Treeview \
     74 	    -background [list selected SystemHighlight] \
     75 	    -foreground [list selected SystemHighlightText] ;
     76 
     77         ttk::style configure TProgressbar \
     78 	    -background SystemHighlight -borderwidth 0 ;
     79     }
     80 }