Try to straighten out theme loading and selection logic.

2 files changed, 9 insertions, 2 deletions

diff --git a/generic/ttk/ttkClamTheme.c b/generic/ttk/ttkClamTheme.c
index 87e5d23..188e8a0 100644
--- a/generic/ttk/ttkClamTheme.c
+++ b/generic/ttk/ttkClamTheme.c
@@ -1,5 +1,5 @@
 /*
- * $Id: ttkClamTheme.c,v 1.2 2006/11/03 03:06:22 das Exp $
+ * $Id: ttkClamTheme.c,v 1.3 2006/12/13 17:06:32 jenglish Exp $
  *
  * Copyright (C) 2004 Joe English
  *
@@ -965,5 +965,7 @@ TtkClamTheme_Init(Tcl_Interp *interp)
     Ttk_RegisterLayout(theme, "Horizontal.Sash", HorizontalSashLayout);
     Ttk_RegisterLayout(theme, "Vertical.Sash", VerticalSashLayout);
 
+    Tcl_PkgProvide(interp, "ttk::theme::clam", TTK_VERSION);
+
     return TCL_OK;
 }
diff --git a/generic/ttk/ttkElements.c b/generic/ttk/ttkElements.c
index 787ea64..e7af248 100644
--- a/generic/ttk/ttkElements.c
+++ b/generic/ttk/ttkElements.c
@@ -1,4 +1,4 @@
-/* $Id: ttkElements.c,v 1.2 2006/11/03 03:06:22 das Exp $
+/* $Id: ttkElements.c,v 1.3 2006/12/13 17:06:32 jenglish Exp $
  *
  * Copyright (c) 2003, Joe English
  *
@@ -1443,6 +1443,11 @@ void TtkRegisterElements(Tcl_Interp *interp)
     Ttk_RegisterLayout(theme, "Horizontal.TScale", HorizontalScaleLayout);
     Ttk_RegisterLayout(theme, "TSeparator", SeparatorLayout);
     Ttk_RegisterLayout(theme, "TSizegrip", SizegripLayout);
+
+    /*
+     * Register "default" as a user-loadable theme (for now):
+     */
+    Tcl_PkgProvide(interp, "ttk::theme::default", TTK_VERSION);
 }
 
 /*EOF*/