From 985c5ce727f1a2e8d7e168c4891eefe2247eaade Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 18 Oct 2002 03:01:33 +0000
Subject: 	* mac/tkMacAppInit.c: removed tcltest dependency. 	[Bug
 #592639] (porter)

---
 ChangeLog          |  5 +++++
 mac/tkMacAppInit.c | 25 +------------------------
 2 files changed, 6 insertions(+), 24 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0c9871a..b5ec0c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-18  Daniel Steffen  <das@users.sourceforge.net>
+
+	* mac/tkMacAppInit.c: removed tcltest dependency.
+	[Bug #592639] (porter)
+
 2002-10-17  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tests/imgPhoto.test:
diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c
index 50f6156..abbe279 100644
--- a/mac/tkMacAppInit.c
+++ b/mac/tkMacAppInit.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMacAppInit.c,v 1.14 2002/04/08 09:04:34 das Exp $
+ * RCS: @(#) $Id: tkMacAppInit.c,v 1.15 2002/10/18 03:01:33 das Exp $
  */
 
 #include <Gestalt.h>
@@ -31,13 +31,6 @@
 extern int		Tktest_Init _ANSI_ARGS_((Tcl_Interp *interp));
 #endif /* TK_TEST */
 
-#ifdef TCL_TEST
-extern int		Procbodytest_Init _ANSI_ARGS_((Tcl_Interp *interp));
-extern int		Procbodytest_SafeInit _ANSI_ARGS_((Tcl_Interp *interp));
-extern int		TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp));
-extern int		Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
-#endif /* TCL_TEST */
-
 Tcl_Interp *gStdoutInterp = NULL;
 
 int 	TkMacConvertEvent _ANSI_ARGS_((EventRecord *eventPtr));
@@ -152,22 +145,6 @@ Tcl_AppInit(
      * where "Mod" is the name of the module.
      */
 
-#ifdef TCL_TEST
-    if (Tcltest_Init(interp) == TCL_ERROR) {
-	return TCL_ERROR;
-    }
-    Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init,
-            (Tcl_PackageInitProc *) NULL);
-    if (TclObjTest_Init(interp) == TCL_ERROR) {
-	return TCL_ERROR;
-    }
-    if (Procbodytest_Init(interp) == TCL_ERROR) {
-	return TCL_ERROR;
-    }
-    Tcl_StaticPackage(interp, "procbodytest", Procbodytest_Init,
-            Procbodytest_SafeInit);
-#endif /* TCL_TEST */
-
 #ifdef TK_TEST
     if (Tktest_Init(interp) == TCL_ERROR) {
 	return TCL_ERROR;
-- 
cgit v0.12