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