| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- #
- # Settings for 'winnative' theme.
- #
- namespace eval ttk::theme::winnative {
- ttk::style theme settings winnative {
- ttk::style configure "." \
- -background SystemButtonFace \
- -foreground SystemWindowText \
- -selectforeground SystemHighlightText \
- -selectbackground SystemHighlight \
- -troughcolor SystemScrollbar \
- -font TkDefaultFont \
- ;
- ttk::style map "." -foreground [list disabled SystemGrayText] ;
- ttk::style map "." -embossed [list disabled 1] ;
- ttk::style configure TButton \
- -anchor center -width -11 -relief raised -shiftrelief 1
- ttk::style configure TCheckbutton -padding "2 4"
- ttk::style configure TRadiobutton -padding "2 4"
- ttk::style configure TMenubutton \
- -padding "8 4" -arrowsize 3 -relief raised
- ttk::style map TButton -relief {{!disabled pressed} sunken}
- ttk::style configure TEntry \
- -padding 2 -selectborderwidth 0 -insertwidth 1
- ttk::style map TEntry \
- -fieldbackground \
- [list readonly SystemButtonFace disabled SystemButtonFace] \
- -selectbackground [list !focus SystemWindow] \
- -selectforeground [list !focus SystemWindowText] \
- ;
- ttk::style configure TCombobox -padding 2
- ttk::style map TCombobox \
- -selectbackground [list !focus SystemWindow] \
- -selectforeground [list !focus SystemWindowText] \
- -fieldbackground [list \
- readonly SystemButtonFace \
- disabled SystemButtonFace] \
- -foreground [list \
- disabled SystemGrayText \
- {readonly focus} SystemHighlightText \
- ] \
- -focusfill [list {readonly focus} SystemHighlight] \
- ;
- ttk::style element create ComboboxPopdownFrame.border from default
- ttk::style configure ComboboxPopdownFrame \
- -borderwidth 1 -relief solid
- ttk::style configure TSpinbox -padding {2 0 16 0}
- ttk::style configure TLabelframe -borderwidth 2 -relief groove
- ttk::style configure Toolbutton -relief flat -padding {8 4}
- ttk::style map Toolbutton -relief \
- {disabled flat selected sunken pressed sunken active raised}
- ttk::style configure TScale -groovewidth 4
- ttk::style configure TNotebook -tabmargins {2 2 2 0}
- ttk::style configure TNotebook.Tab -padding {3 1} -borderwidth 1
- ttk::style map TNotebook.Tab -expand [list selected {2 2 2 0}]
- # Treeview:
- ttk::style configure Heading -font TkHeadingFont -relief raised
- ttk::style configure Treeview -background SystemWindow
- ttk::style map Treeview \
- -background [list selected SystemHighlight] \
- -foreground [list selected SystemHighlightText] ;
- ttk::style configure TProgressbar \
- -background SystemHighlight -borderwidth 0 ;
- }
- }
|
