From a41be574d71eae4b6fcfe7845fdab8b395b0a82e Mon Sep 17 00:00:00 2001
From: das <das>
Date: Wed, 19 Mar 2008 16:57:21 +0000
Subject: ensure symbols needed for Ttk stub support are exported

---
 generic/tk.decls         | 11 +++++++++--
 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)
 {
-- 
cgit v0.12