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

   1 #
   2 # $Id: winTheme.tcl,v 1.4 2007/10/16 21:00:15 jenglish 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 -width -11 -relief raised -shiftrelief 1
  23         ttk::style configure TCheckbutton -padding "2 4"
  24         ttk::style configure TRadiobutton -padding "2 4"
  25         ttk::style configure TMenubutton \
  26             -padding "8 4" -arrowsize 3 -relief raised -anchor w
  27
  28         ttk::style map TButton -relief {{!disabled pressed} sunken}
  29
  30         ttk::style configure TEntry \
  31             -padding 2 -selectborderwidth 0 -insertwidth 1
  32         ttk::style map TEntry \
  33             -fieldbackground \
  34                 [list readonly SystemButtonFace disabled SystemButtonFace] \
  35             -selectbackground [list !focus SystemWindow] \
  36             -selectforeground [list !focus SystemWindowText] \
  37             ;
  38
  39         ttk::style configure TCombobox -padding 2
  40         ttk::style map TCombobox \
  41             -selectbackground [list !focus SystemWindow] \
  42             -selectforeground [list !focus SystemWindowText] \
  43             -foreground [list {readonly focus} SystemHighlightText] \
  44             -focusfill  [list {readonly focus} SystemHighlight] \
  45             ;
  46
  47         ttk::style configure TLabelframe -borderwidth 2 -relief groove
  48
  49         ttk::style configure Toolbutton -relief flat -padding {8 4}
  50         ttk::style map Toolbutton -relief \
  51             {disabled flat selected sunken  pressed sunken  active raised}
  52
  53         ttk::style configure TScale -groovewidth 4
  54
  55         ttk::style configure TNotebook -tabmargins {2 2 2 0}
  56         ttk::style configure TNotebook.Tab -padding {3 1} -borderwidth 1
  57         ttk::style map TNotebook.Tab -expand [list selected {2 2 2 0}]
  58
  59         # Treeview:
  60         ttk::style configure Heading -font TkHeadingFont -relief raised
  61         ttk::style configure Row -background SystemWindow
  62         ttk::style configure Cell -background SystemWindow
  63         ttk::style map Row \
  64             -background [list selected SystemHighlight] \
  65             -foreground [list selected SystemHighlightText] ;
  66         ttk::style map Cell \
  67             -background [list selected SystemHighlight] \
  68             -foreground [list selected SystemHighlightText] ;
  69         ttk::style map Item \
  70             -background [list selected SystemHighlight] \
  71             -foreground [list selected SystemHighlightText] ;
  72
  73         ttk::style configure TProgressbar \
  74             -background SystemHighlight -borderwidth 0 ;
  75     }
  76 }