diff options
| author | jenglish@flightlab.com <jenglish> | 2006-12-14 19:51:02 (GMT) |
|---|---|---|
| committer | jenglish@flightlab.com <jenglish> | 2006-12-14 19:51:02 (GMT) |
| commit | e0a77c7c5578429f885bc7c5d7b5b146676c0982 (patch) | |
| tree | eddfc995a90320e7557281183d21567f58985d44 /generic/ttk/ttkScale.c | |
| parent | 7ea653691de3555fabaae6c4c7b08830d2eff991 (diff) | |
| download | tk-e0a77c7c5578429f885bc7c5d7b5b146676c0982.zip tk-e0a77c7c5578429f885bc7c5d7b5b146676c0982.tar.gz tk-e0a77c7c5578429f885bc7c5d7b5b146676c0982.tar.bz2 | |
Global reduction: use per-file *_Init() routines to reduce
the number of globally-visible initialization records.
Diffstat (limited to 'generic/ttk/ttkScale.c')
| -rw-r--r-- | generic/ttk/ttkScale.c | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/generic/ttk/ttkScale.c b/generic/ttk/ttkScale.c index 56169d0..6cf3cbb 100644 --- a/generic/ttk/ttkScale.c +++ b/generic/ttk/ttkScale.c @@ -1,7 +1,7 @@ -/* $Id: ttkScale.c,v 1.2 2006/11/03 03:06:22 das Exp $ +/* $Id: ttkScale.c,v 1.3 2006/12/14 19:51:04 jenglish Exp $ * Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net> * - * Ttk widget set: scale widget. + * ttk::scale widget. */ #include <tk.h> @@ -485,8 +485,7 @@ static WidgetCommandSpec ScaleCommands[] = { 0, 0 } }; -MODULE_SCOPE WidgetSpec ttkScaleWidgetSpec; -WidgetSpec ttkScaleWidgetSpec = +static WidgetSpec ScaleWidgetSpec = { "TScale", /* Class name */ sizeof(Scale), /* record size */ @@ -502,3 +501,12 @@ WidgetSpec ttkScaleWidgetSpec = TtkWidgetDisplay /* displayProc */ }; +/* + * Initialization. + */ +MODULE_SCOPE +void TtkScale_Init(Tcl_Interp *interp) +{ + RegisterWidget(interp, "ttk::scale", &ScaleWidgetSpec); +} + |