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

   1 #
   2 # $Id: xpTheme.tcl,v 1.6.2.2 2009/05/14 00:53:04 patthoyts Exp $
   3 #
   4 # Settings for 'xpnative' theme
   5 #
   6
   7 namespace eval ttk::theme::xpnative {
   8
   9     ttk::style theme settings xpnative {
  10
  11         ttk::style configure . \
  12             -background SystemButtonFace \
  13             -foreground SystemWindowText \
  14             -selectforeground SystemHighlightText \
  15             -selectbackground SystemHighlight \
  16             -font TkDefaultFont \
  17             ;
  18
  19         ttk::style map "." \
  20             -foreground [list disabled SystemGrayText] \
  21             ;
  22
  23         ttk::style configure TButton -anchor center -padding {1 1} -width -11
  24         ttk::style configure TRadiobutton -padding 2
  25         ttk::style configure TCheckbutton -padding 2
  26         ttk::style configure TMenubutton -padding {8 4}
  27
  28         ttk::style configure TNotebook -tabmargins {2 2 2 0}
  29         ttk::style map TNotebook.Tab \
  30             -expand [list selected {2 2 2 2}]
  31
  32         # Treeview:
  33         ttk::style configure Heading -font TkHeadingFont
  34         ttk::style configure Treeview -background SystemWindow
  35         ttk::style map Treeview \
  36             -background [list selected SystemHighlight] \
  37             -foreground [list selected SystemHighlightText] ;
  38
  39         ttk::style configure TLabelframe.Label -foreground "#0046d5"
  40
  41         # OR: -padding {3 3 3 6}, which some apps seem to use.
  42         ttk::style configure TEntry -padding {2 2 2 4}
  43         ttk::style map TEntry \
  44             -selectbackground [list !focus SystemWindow] \
  45             -selectforeground [list !focus SystemWindowText] \
  46             ;
  47         ttk::style configure TCombobox -padding 2
  48         ttk::style map TCombobox \
  49             -selectbackground [list !focus SystemWindow] \
  50             -selectforeground [list !focus SystemWindowText] \
  51             -foreground [list {readonly focus} SystemHighlightText] \
  52             -focusfill  [list {readonly focus} SystemHighlight] \
  53             ;
  54
  55         ttk::style configure Toolbutton -padding {4 4}
  56     }
  57 }