From 7f2f93d14f82465b0f5d8e6b3ee070e217a8c0fc Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 15 Sep 2006 08:05:49 +0000
Subject: Added an init entry point for safe interpreters. Useful when loading
 in the Tcl Plugin. Untested.

---
 generic/tkZinc.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'generic/tkZinc.c')

diff --git a/generic/tkZinc.c b/generic/tkZinc.c
index 9a49cb6..9b9dca1 100644
--- a/generic/tkZinc.c
+++ b/generic/tkZinc.c
@@ -9098,6 +9098,12 @@ Tkzinc_Init(Tcl_Interp *interp) /* Used for error reporting. */
 }
 
 EXTERN int
+Tkzinc_SafeInit(Tcl_Interp *interp)   /* Used for error reporting. */
+{
+  return Tkzinc_Init(interp);
+}
+
+EXTERN int
 Tkzinc_debug_Init(Tcl_Interp *interp)   /* Used for error reporting. */
 {
   return Tkzinc_Init(interp);
-- 
cgit v1.1