diff options
Diffstat (limited to 'generic/ttk')
| -rw-r--r-- | generic/ttk/ttkClamTheme.c | 4 | ||||
| -rw-r--r-- | generic/ttk/ttkElements.c | 7 |
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*/ |