1 files changed, 51 insertions, 0 deletions
diff --git a/library/ttk/xpTheme.tcl b/library/ttk/xpTheme.tcl
new file mode 100644
index 0000000..7749e56
--- /dev/null
+++ b/library/ttk/xpTheme.tcl
@@ -0,0 +1,51 @@
+#
+# $Id: xpTheme.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+#
+# Ttk widget set: XP Native theme
+#
+# @@@ todo: spacing and padding needs tweaking
+
+namespace eval ttk {
+
+    style theme settings xpnative {
+
+	style configure . \
+	    -background SystemButtonFace \
+	    -foreground SystemWindowText \
+	    -selectforeground SystemHighlightText \
+	    -selectbackground SystemHighlight \
+	    -font TkDefaultFont \
+	    ;
+
+	style map "." \
+	    -foreground [list disabled SystemGrayText] \
+	    ;
+
+	style configure TButton -padding {1 1} -width -11
+	style configure TRadiobutton -padding 2
+	style configure TCheckbutton -padding 2
+	style configure TMenubutton -padding {8 4}
+
+	style configure TNotebook -tabmargins {2 2 2 0}
+	style map TNotebook.Tab \
+	    -expand [list selected {2 2 2 2}]
+
+	style configure TLabelframe -foreground "#0046d5"
+
+	# OR: -padding {3 3 3 6}, which some apps seem to use.
+	style configure TEntry -padding {2 2 2 4}
+	style map TEntry \
+	    -selectbackground [list !focus SystemWindow] \
+	    -selectforeground [list !focus SystemWindowText] \
+	    ;
+	style configure TCombobox -padding 2
+	style map TCombobox \
+	    -selectbackground [list !focus SystemWindow] \
+	    -selectforeground [list !focus SystemWindowText] \
+	    -foreground	[list {readonly focus} SystemHighlightText] \
+	    -focusfill	[list {readonly focus} SystemHighlight] \
+	    ;
+
+	style configure Toolbutton -padding {4 4}
+    }
+}