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

   1 #
   2 # $Id: xpTheme.tcl,v 1.6.2.1 2008/04/03 11:48:00 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 Row -background SystemWindow
  35         ttk::style configure Cell -background SystemWindow
  36         ttk::style map Row \
  37             -background [list selected SystemHighlight] \
  38             -foreground [list selected SystemHighlightText] ;
  39         ttk::style map Cell \
  40             -background [list selected SystemHighlight] \
  41             -foreground [list selected SystemHighlightText] ;
  42         ttk::style map Item \
  43             -background [list selected SystemHighlight] \
  44             -foreground [list selected SystemHighlightText] ;
  45
  46         ttk::style configure TLabelframe.Label -foreground "#0046d5"
  47
  48         # OR: -padding {3 3 3 6}, which some apps seem to use.
  49         ttk::style configure TEntry -padding {2 2 2 4}
  50         ttk::style map TEntry \
  51             -selectbackground [list !focus SystemWindow] \
  52             -selectforeground [list !focus SystemWindowText] \
  53             ;
  54         ttk::style configure TCombobox -padding 2
  55         ttk::style map TCombobox \
  56             -selectbackground [list !focus SystemWindow] \
  57             -selectforeground [list !focus SystemWindowText] \
  58             -foreground [list {readonly focus} SystemHighlightText] \
  59             -focusfill  [list {readonly focus} SystemHighlight] \
  60             ;
  61
  62         ttk::style configure Toolbutton -padding {4 4}
  63     }
  64 }