mingw/lib/tk8.5/ttk/xpTheme.tcl

   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 }