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

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