diff options
author | das <das> | 2006-11-03 03:06:21 (GMT) |
---|---|---|
committer | das <das> | 2006-11-03 03:06:21 (GMT) |
commit | 6a21e72df71f06d61c44e3de34afe26973732214 (patch) | |
tree | ddde20bc872b7fac3e8a946a67418e60dcc23428 /generic/ttk/ttkInit.c | |
parent | 576cbeb2f5ccec11ea4ebb71b788d4527ee1aae3 (diff) | |
download | tk-6a21e72df71f06d61c44e3de34afe26973732214.zip tk-6a21e72df71f06d61c44e3de34afe26973732214.tar.gz tk-6a21e72df71f06d61c44e3de34afe26973732214.tar.bz2 |
* generic/ttk/ttkBlink.c, generic/ttk/ttkButton.c:
* generic/ttk/ttkClamTheme.c, generic/ttk/ttkClassicTheme.c:
* generic/ttk/ttkDecls.h, generic/ttk/ttkDefaultTheme.c:
* generic/ttk/ttkElements.c, generic/ttk/ttkEntry.c:
* generic/ttk/ttkFrame.c, generic/ttk/ttkImage.c:
* generic/ttk/ttkInit.c, generic/ttk/ttkLabel.c:
* generic/ttk/ttkLayout.c, generic/ttk/ttkManager.h:
* generic/ttk/ttkNotebook.c, generic/ttk/ttkPanedwindow.c:
* generic/ttk/ttkProgress.c, generic/ttk/ttkScale.c:
* generic/ttk/ttkScroll.c, generic/ttk/ttkScrollbar.c:
* generic/ttk/ttkSeparator.c, generic/ttk/ttkSquare.c:
* generic/ttk/ttkStubInit.c, generic/ttk/ttkStubLib.c:
* generic/ttk/ttkTheme.c, generic/ttk/ttkTheme.h:
* generic/ttk/ttkThemeInt.h, generic/ttk/ttkTrack.c:
* generic/ttk/ttkTreeview.c, generic/ttk/ttkWidget.c:
* generic/ttk/ttkWidget.h, macosx/ttkMacOSXTheme.c:
* win/ttkWinMonitor.c, win/ttkWinTheme.c, win/ttkWinXPTheme.c: ensure
all global Ttk symbols have Ttk or ttk prefix; declare all externally
visible Ttk symbols not contained in stubs table as MODULE_SCOPE (or as
static when possible); so that 'make check{exports,stubs}' once again
complete without errors.
Diffstat (limited to 'generic/ttk/ttkInit.c')
-rw-r--r-- | generic/ttk/ttkInit.c | 122 |
1 files changed, 61 insertions, 61 deletions
diff --git a/generic/ttk/ttkInit.c b/generic/ttk/ttkInit.c index 723708f..0b3143d 100644 --- a/generic/ttk/ttkInit.c +++ b/generic/ttk/ttkInit.c @@ -1,4 +1,4 @@ -/* $Id: ttkInit.c,v 1.1 2006/10/31 01:42:26 hobbs Exp $ +/* $Id: ttkInit.c,v 1.2 2006/11/03 03:06:22 das Exp $ * Copyright (c) 2003, Joe English * * Ttk package: initialization routine and miscellaneous utilities. @@ -13,7 +13,7 @@ * Legal values for the button -default option. * See also: enum Ttk_ButtonDefaultState in ttkTheme.h. */ -CONST char *TTKDefaultStrings[] = { +CONST char *ttkDefaultStrings[] = { "normal", "active", "disabled", NULL }; @@ -22,14 +22,14 @@ int Ttk_GetButtonDefaultStateFromObj( { *statePtr = TTK_BUTTON_DEFAULT_DISABLED; return Tcl_GetIndexFromObj(interp, objPtr, - TTKDefaultStrings, "default state", 0, statePtr); + ttkDefaultStrings, "default state", 0, statePtr); } /* * Legal values for the -compound option. * See also: enum Ttk_Compound in ttkTheme.h */ -const char *TTKCompoundStrings[] = { +const char *ttkCompoundStrings[] = { "none", "text", "image", "center", "top", "bottom", "left", "right", NULL }; @@ -39,14 +39,14 @@ int Ttk_GetCompoundFromObj( { *statePtr = TTK_COMPOUND_NONE; return Tcl_GetIndexFromObj(interp, objPtr, - TTKCompoundStrings, "compound layout", 0, statePtr); + ttkCompoundStrings, "compound layout", 0, statePtr); } /* * Legal values for the -orient option. * See also: enum TTK_ORIENT in ttkTheme.h */ -CONST char *TTKOrientStrings[] = { +CONST char *ttkOrientStrings[] = { "horizontal", "vertical", NULL }; @@ -55,7 +55,7 @@ int Ttk_GetOrientFromObj( { *resultPtr = TTK_ORIENT_HORIZONTAL; return Tcl_GetIndexFromObj(interp, objPtr, - TTKOrientStrings, "orientation", 0, resultPtr); + ttkOrientStrings, "orientation", 0, resultPtr); } /* @@ -72,7 +72,7 @@ enum { TTK_COMPAT_STATE_ACTIVE }; -/* CheckStateOption -- +/* TtkCheckStateOption -- * Handle -state compatibility option. * * NOTE: setting -state disabled / -state enabled affects the @@ -80,11 +80,11 @@ enum { * the value of the -state option. * This option is present for compatibility only. */ -void CheckStateOption(WidgetCore *corePtr, Tcl_Obj *objPtr) +void TtkCheckStateOption(WidgetCore *corePtr, Tcl_Obj *objPtr) { int stateOption = TTK_COMPAT_STATE_NORMAL; unsigned all = TTK_STATE_DISABLED|TTK_STATE_READONLY|TTK_STATE_ACTIVE; -# define SETFLAGS(f) WidgetChangeState(corePtr, f, all^f) +# define SETFLAGS(f) TtkWidgetChangeState(corePtr, f, all^f) (void)Tcl_GetIndexFromObj(NULL,objPtr,TTKStateStrings,"",0,&stateOption); switch (stateOption) { @@ -105,14 +105,14 @@ void CheckStateOption(WidgetCore *corePtr, Tcl_Obj *objPtr) # undef SETFLAGS } -/* SendVirtualEvent -- +/* TtkSendVirtualEvent -- * Send a virtual event notification to the specified target window. * Equivalent to "event generate $tgtWindow <<$eventName>>" * * Note that we use Tk_QueueWindowEvent, not Tk_HandleEvent, * so this routine does not reenter the interpreter. */ -void SendVirtualEvent(Tk_Window tgtWin, const char *eventName) +void TtkSendVirtualEvent(Tk_Window tgtWin, const char *eventName) { XEvent event; @@ -127,10 +127,10 @@ void SendVirtualEvent(Tk_Window tgtWin, const char *eventName) Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL); } -/* EnumerateOptions, GetOptionValue -- +/* TtkEnumerateOptions, TtkGetOptionValue -- * Common factors for data accessor commands. */ -int EnumerateOptions( +int TtkEnumerateOptions( Tcl_Interp *interp, void *recordPtr, Tk_OptionSpec *specPtr, Tk_OptionTable optionTable, Tk_Window tkwin) { @@ -155,7 +155,7 @@ int EnumerateOptions( return TCL_OK; } -int GetOptionValue( +int TtkGetOptionValue( Tcl_Interp *interp, void *recordPtr, Tcl_Obj *optionName, Tk_OptionTable optionTable, Tk_Window tkwin) { @@ -175,7 +175,7 @@ int GetOptionValue( */ /* public */ -Tk_OptionSpec CoreOptionSpecs[] = +Tk_OptionSpec ttkCoreOptionSpecs[] = { {TK_OPTION_STRING, "-takefocus", "takeFocus", "TakeFocus", "", Tk_Offset(WidgetCore, takeFocusPtr), -1, 0,0,0 }, @@ -192,51 +192,51 @@ Tk_OptionSpec CoreOptionSpecs[] = * +++ Widget definitions. */ -extern WidgetSpec FrameWidgetSpec; -extern WidgetSpec LabelframeWidgetSpec; -extern WidgetSpec LabelWidgetSpec; -extern WidgetSpec ButtonWidgetSpec; -extern WidgetSpec CheckbuttonWidgetSpec; -extern WidgetSpec RadiobuttonWidgetSpec; -extern WidgetSpec MenubuttonWidgetSpec; -extern WidgetSpec ScrollbarWidgetSpec; -extern WidgetSpec ScaleWidgetSpec; -extern WidgetSpec SeparatorWidgetSpec; -extern WidgetSpec SizegripWidgetSpec; - -extern void Progressbar_Init(Tcl_Interp *); -extern void Notebook_Init(Tcl_Interp *); -extern void EntryWidget_Init(Tcl_Interp *); -extern void Treeview_Init(Tcl_Interp *); -extern void Paned_Init(Tcl_Interp *); - +extern WidgetSpec ttkFrameWidgetSpec; +extern WidgetSpec ttkLabelframeWidgetSpec; +extern WidgetSpec ttkLabelWidgetSpec; +extern WidgetSpec ttkButtonWidgetSpec; +extern WidgetSpec ttkCheckbuttonWidgetSpec; +extern WidgetSpec ttkRadiobuttonWidgetSpec; +extern WidgetSpec ttkMenubuttonWidgetSpec; +extern WidgetSpec ttkScrollbarWidgetSpec; +extern WidgetSpec ttkScaleWidgetSpec; +extern WidgetSpec ttkSeparatorWidgetSpec; +extern WidgetSpec ttkSizegripWidgetSpec; + +extern int TtkProgressbar_Init(Tcl_Interp *); +extern int TtkNotebook_Init(Tcl_Interp *); +extern int TtkEntryWidget_Init(Tcl_Interp *); +#ifdef TTK_TREEVIEW_WIDGET +extern int TtkTreeview_Init(Tcl_Interp *); +#endif +extern int TtkPaned_Init(Tcl_Interp *); #ifdef TTK_SQUARE_WIDGET -extern void SquareWidget_Init(Tcl_Interp *); +extern int TtkSquareWidget_Init(Tcl_Interp *); #endif static void RegisterWidgets(Tcl_Interp *interp) { - RegisterWidget(interp, "::ttk::frame", &FrameWidgetSpec); - RegisterWidget(interp, "::ttk::labelframe", &LabelframeWidgetSpec); - RegisterWidget(interp, "::ttk::label", &LabelWidgetSpec); - RegisterWidget(interp, "::ttk::button", &ButtonWidgetSpec); - RegisterWidget(interp, "::ttk::checkbutton", &CheckbuttonWidgetSpec); - RegisterWidget(interp, "::ttk::radiobutton", &RadiobuttonWidgetSpec); - RegisterWidget(interp, "::ttk::menubutton", &MenubuttonWidgetSpec); - RegisterWidget(interp, "::ttk::scrollbar", &ScrollbarWidgetSpec); - RegisterWidget(interp, "::ttk::scale", &ScaleWidgetSpec); - RegisterWidget(interp, "::ttk::separator", &SeparatorWidgetSpec); - RegisterWidget(interp, "::ttk::sizegrip", &SizegripWidgetSpec); - Notebook_Init(interp); - EntryWidget_Init(interp); - Progressbar_Init(interp); - Paned_Init(interp); + RegisterWidget(interp, "::ttk::frame", &ttkFrameWidgetSpec); + RegisterWidget(interp, "::ttk::labelframe", &ttkLabelframeWidgetSpec); + RegisterWidget(interp, "::ttk::label", &ttkLabelWidgetSpec); + RegisterWidget(interp, "::ttk::button", &ttkButtonWidgetSpec); + RegisterWidget(interp, "::ttk::checkbutton", &ttkCheckbuttonWidgetSpec); + RegisterWidget(interp, "::ttk::radiobutton", &ttkRadiobuttonWidgetSpec); + RegisterWidget(interp, "::ttk::menubutton", &ttkMenubuttonWidgetSpec); + RegisterWidget(interp, "::ttk::scrollbar", &ttkScrollbarWidgetSpec); + RegisterWidget(interp, "::ttk::scale", &ttkScaleWidgetSpec); + RegisterWidget(interp, "::ttk::separator", &ttkSeparatorWidgetSpec); + RegisterWidget(interp, "::ttk::sizegrip", &ttkSizegripWidgetSpec); + TtkNotebook_Init(interp); + TtkEntryWidget_Init(interp); + TtkProgressbar_Init(interp); + TtkPaned_Init(interp); #ifdef TTK_TREEVIEW_WIDGET - Treeview_Init(interp); + TtkTreeview_Init(interp); #endif - #ifdef TTK_SQUARE_WIDGET - SquareWidget_Init(interp); + TtkSquareWidget_Init(interp); #endif } @@ -244,18 +244,18 @@ static void RegisterWidgets(Tcl_Interp *interp) * +++ Built-in themes. */ -extern int AltTheme_Init(Tcl_Interp *); -extern int ClassicTheme_Init(Tcl_Interp *); -extern int ClamTheme_Init(Tcl_Interp *); +extern int TtkAltTheme_Init(Tcl_Interp *); +extern int TtkClassicTheme_Init(Tcl_Interp *); +extern int TtkClamTheme_Init(Tcl_Interp *); extern int Ttk_ImageInit(Tcl_Interp *); static void RegisterThemes(Tcl_Interp *interp) { Ttk_ImageInit(interp); /* not really a theme... */ - AltTheme_Init(interp); - ClassicTheme_Init(interp); - ClamTheme_Init(interp); + TtkAltTheme_Init(interp); + TtkClassicTheme_Init(interp); + TtkClamTheme_Init(interp); } /* @@ -264,7 +264,7 @@ static void RegisterThemes(Tcl_Interp *interp) extern TtkStubs ttkStubs; -int DLLEXPORT +MODULE_SCOPE int Ttk_Init(Tcl_Interp *interp) { /* @@ -273,7 +273,7 @@ Ttk_Init(Tcl_Interp *interp) */ Ttk_StylePkgInit(interp); - RegisterElements(interp); + TtkRegisterElements(interp); RegisterWidgets(interp); RegisterThemes(interp); |