diff options
| author | jenglish <jenglish@flightlab.com> | 2006-12-13 17:06:31 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2006-12-13 17:06:31 (GMT) |
| commit | 94acb8d71c38b7e493d498a69816f77b520f49f1 (patch) | |
| tree | 5750b2c23f77580621592431250ee7f66a508fd7 /generic | |
| parent | b7c21ec7f3c632eb27c460678d7382bf05eb1d38 (diff) | |
| download | tk-94acb8d71c38b7e493d498a69816f77b520f49f1.zip tk-94acb8d71c38b7e493d498a69816f77b520f49f1.tar.gz tk-94acb8d71c38b7e493d498a69816f77b520f49f1.tar.bz2 | |
Try to straighten out theme loading and selection logic.
Diffstat (limited to 'generic')
| -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*/ |