From b6462f985eb774df826c9b427e7264e9f5f57c32 Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Thu, 23 Sep 2010 11:50:46 +0000
Subject: Dummy genstubs::export (from genStubs.tcl)

---
 ChangeLog                   |  1 +
 generic/ttk/ttkGenStubs.tcl | 20 +++++++++++++++++++-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 3f16853..20a2c4d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,7 @@
 	* win/winMain.c:
 	* unix/tkAppInit.c:      Many clean-ups in comments, so all
 	(tcl|tk)AppInit.c variants use the same style.
+	* generic/ttk/ttkGenStubs.tcl: Dummy genStubs::export (from genStubs.tcl)
 
 2010-09-20  Jan Nijtmans  <nijtmans@users.sf.net>
 
diff --git a/generic/ttk/ttkGenStubs.tcl b/generic/ttk/ttkGenStubs.tcl
index a96f815..a11ca8a 100644
--- a/generic/ttk/ttkGenStubs.tcl
+++ b/generic/ttk/ttkGenStubs.tcl
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: ttkGenStubs.tcl,v 1.10 2010/09/20 21:18:23 nijtmans Exp $
+# RCS: @(#) $Id: ttkGenStubs.tcl,v 1.11 2010/09/23 11:50:46 nijtmans Exp $
 #
 # SOURCE: tcl/tools/genStubs.tcl, revision 1.44
 #
@@ -211,7 +211,25 @@ proc genStubs::declare {args} {
     if {$index > $stubs($curName,lastNum)} {
 	set stubs($curName,lastNum) $index
     }
+    return
+}
+
+# genStubs::export --
+#
+#	This function is used in the declarations file to declare a symbol
+#	that is exported from the library but is not in the stubs table.
+#
+# Arguments:
+#	decl		The C function declaration, or {} for an undefined
+#			entry.
+#
+# Results:
+#	None.
 
+proc genStubs::export {args} {
+    if {[llength $args] != 1} {
+	puts stderr "wrong # args: export $args"
+    }
     return
 }
 
-- 
cgit v0.12