diff options
| author | das <das> | 2008-03-19 16:57:21 (GMT) |
|---|---|---|
| committer | das <das> | 2008-03-19 16:57:21 (GMT) |
| commit | a41be574d71eae4b6fcfe7845fdab8b395b0a82e (patch) | |
| tree | 48343c87f1f71353b3279d9a84afafef69335a0a /generic | |
| parent | 9b42a60edca63854c20fc62ffa51bb8dc2467293 (diff) | |
| download | tk-a41be574d71eae4b6fcfe7845fdab8b395b0a82e.zip tk-a41be574d71eae4b6fcfe7845fdab8b395b0a82e.tar.gz tk-a41be574d71eae4b6fcfe7845fdab8b395b0a82e.tar.bz2 | |
ensure symbols needed for Ttk stub support are exported
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tk.decls | 11 | ||||
| -rw-r--r-- | generic/ttk/ttkStubLib.c | 7 |
2 files changed, 12 insertions, 6 deletions
diff --git a/generic/tk.decls b/generic/tk.decls index 753dea5..12f4afa 100644 --- a/generic/tk.decls +++ b/generic/tk.decls @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tk.decls,v 1.35 2007/12/13 15:24:13 dgp Exp $ +# RCS: @(#) $Id: tk.decls,v 1.36 2008/03/19 16:57:21 das Exp $ library tk @@ -1159,7 +1159,11 @@ export { } export { CONST char *Tk_PkgInitStubsCheck(Tcl_Interp *interp, CONST char *version, - int exact); + int exact) +} +export { + const char *TtkInitializeStubs(Tcl_Interp *, const char *version, + int epoch, int revision) } # Global variables that need to be exported from the tcl shared library. @@ -1179,3 +1183,6 @@ export { export { TkIntXlibStubs *tkIntXlibStubsPtr (fool checkstubs) } +export { + TtkStubs *ttkStubsPtr (fool checkstubs) +} diff --git a/generic/ttk/ttkStubLib.c b/generic/ttk/ttkStubLib.c index a693fcf..697107a 100644 --- a/generic/ttk/ttkStubLib.c +++ b/generic/ttk/ttkStubLib.c @@ -1,5 +1,5 @@ /* - * $Id: ttkStubLib.c,v 1.2 2006/11/03 03:06:22 das Exp $ + * $Id: ttkStubLib.c,v 1.3 2008/03/19 16:57:22 das Exp $ * SOURCE: tk/generic/tkStubLib.c, version 1.9 2004/03/17 */ @@ -8,8 +8,7 @@ #define USE_TTK_STUBS 1 #include "ttkTheme.h" -MODULE_SCOPE const TtkStubs *ttkStubsPtr; -const TtkStubs *ttkStubsPtr; +const TtkStubs *ttkStubsPtr = NULL; /* *---------------------------------------------------------------------- @@ -26,7 +25,7 @@ const TtkStubs *ttkStubsPtr; * Sets the stub table pointer. * */ -MODULE_SCOPE const char * +const char * TtkInitializeStubs( Tcl_Interp *interp, const char *version, int epoch, int revision) { |