FM / ttk

/usr/share/tk8.6/ttk

Name	Size	Mode	Actions
altTheme.tcl	3540	0644	edit dl rm
aquaTheme.tcl	2001	0644	edit dl rm
button.tcl	2978	0644	edit dl rm
clamTheme.tcl	4599	0644	edit dl rm
classicTheme.tcl	3685	0644	edit dl rm
combobox.tcl	12423	0644	edit dl rm
cursors.tcl	4007	0644	edit dl rm
defaults.tcl	4347	0644	edit dl rm
entry.tcl	16396	0644	edit dl rm
fonts.tcl	5576	0644	edit dl rm
menubutton.tcl	4913	0644	edit dl rm
notebook.tcl	5619	0644	edit dl rm
panedwindow.tcl	1920	0644	edit dl rm
progress.tcl	1089	0644	edit dl rm
scale.tcl	2698	0644	edit dl rm
scrollbar.tcl	3097	0644	edit dl rm
sizegrip.tcl	2392	0644	edit dl rm
spinbox.tcl	4255	0644	edit dl rm
treeview.tcl	8859	0644	edit dl rm
ttk.tcl	4546	0644	edit dl rm
utils.tcl	8562	0644	edit dl rm
vistaTheme.tcl	9338	0644	edit dl rm
winTheme.tcl	2643	0644	edit dl rm
xpTheme.tcl	1920	0644	edit dl rm

Edit: /usr/share/tk8.6/ttk/xpTheme.tcl (1920B)

#
# Settings for 'xpnative' theme
#

namespace eval ttk::theme::xpnative {

ttk::style theme settings xpnative {

ttk::style configure . \
	    -background SystemButtonFace \
	    -foreground SystemWindowText \
	    -selectforeground SystemHighlightText \
	    -selectbackground SystemHighlight \
	    -font TkDefaultFont \
	    ;

ttk::style map "." \
	    -foreground [list disabled SystemGrayText] \
	    ;

ttk::style configure TButton -anchor center -padding {1 1} -width -11
	ttk::style configure TRadiobutton -padding 2
	ttk::style configure TCheckbutton -padding 2
	ttk::style configure TMenubutton -padding {8 4}

ttk::style configure TNotebook -tabmargins {2 2 2 0}
	ttk::style map TNotebook.Tab \
	    -expand [list selected {2 2 2 2}]

# Treeview:
	ttk::style configure Heading -font TkHeadingFont
	ttk::style configure Treeview -background SystemWindow
	ttk::style map Treeview \
	    -background [list selected SystemHighlight] \
	    -foreground [list selected SystemHighlightText] ;

ttk::style configure TLabelframe.Label -foreground "#0046d5"

# OR: -padding {3 3 3 6}, which some apps seem to use.
	ttk::style configure TEntry -padding {2 2 2 4}
	ttk::style map TEntry \
	    -selectbackground [list !focus SystemWindow] \
	    -selectforeground [list !focus SystemWindowText] \
	    ;
	ttk::style configure TCombobox -padding 2
	ttk::style map TCombobox \
	    -selectbackground [list !focus SystemWindow] \
	    -selectforeground [list !focus SystemWindowText] \
	    -foreground	[list \
		disabled		SystemGrayText \
	    	{readonly focus}	SystemHighlightText \
	    ] \
	    -focusfill	[list {readonly focus} SystemHighlight] \
	    ;

ttk::style configure TSpinbox -padding {2 0 14 0}
	ttk::style map TSpinbox \
	    -selectbackground [list !focus SystemWindow] \
	    -selectforeground [list !focus SystemWindowText] \
	    ;

ttk::style configure Toolbutton -padding {4 4}

}
}

# # Settings for 'xpnative' theme # namespace eval ttk::theme::xpnative { ttk::style theme settings xpnative { ttk::style configure . \ -background SystemButtonFace \ -foreground SystemWindowText \ -selectforeground SystemHighlightText \ -selectbackground SystemHighlight \ -font TkDefaultFont \ ; ttk::style map "." \ -foreground [list disabled SystemGrayText] \ ; ttk::style configure TButton -anchor center -padding {1 1} -width -11 ttk::style configure TRadiobutton -padding 2 ttk::style configure TCheckbutton -padding 2 ttk::style configure TMenubutton -padding {8 4} ttk::style configure TNotebook -tabmargins {2 2 2 0} ttk::style map TNotebook.Tab \ -expand [list selected {2 2 2 2}] # Treeview: ttk::style configure Heading -font TkHeadingFont ttk::style configure Treeview -background SystemWindow ttk::style map Treeview \ -background [list selected SystemHighlight] \ -foreground [list selected SystemHighlightText] ; ttk::style configure TLabelframe.Label -foreground "#0046d5" # OR: -padding {3 3 3 6}, which some apps seem to use. ttk::style configure TEntry -padding {2 2 2 4} ttk::style map TEntry \ -selectbackground [list !focus SystemWindow] \ -selectforeground [list !focus SystemWindowText] \ ; ttk::style configure TCombobox -padding 2 ttk::style map TCombobox \ -selectbackground [list !focus SystemWindow] \ -selectforeground [list !focus SystemWindowText] \ -foreground [list \ disabled SystemGrayText \ {readonly focus} SystemHighlightText \ ] \ -focusfill [list {readonly focus} SystemHighlight] \ ; ttk::style configure TSpinbox -padding {2 0 14 0} ttk::style map TSpinbox \ -selectbackground [list !focus SystemWindow] \ -selectforeground [list !focus SystemWindowText] \ ; ttk::style configure Toolbutton -padding {4 4} } }