1 files changed, 0 insertions, 82 deletions
diff --git a/mac/tkMacTest.c b/mac/tkMacTest.c
deleted file mode 100644
index 137ec44..0000000
--- a/mac/tkMacTest.c
+++ /dev/null
@@ -1,82 +0,0 @@
-/* 
- * tkMacTest.c --
- *
- *	Contains commands for platform specific tests for
- *	the Macintosh platform.
- *
- * Copyright (c) 1996 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tkMacTest.c,v 1.4 2002/10/09 11:56:57 das Exp $
- */
-
-#include <Types.h>
-#include <tcl.h>
-
-/*
- * Forward declarations of procedures defined later in this file:
- */
-
-int			TkplatformtestInit _ANSI_ARGS_((Tcl_Interp *interp));
-static int		DebuggerCmd _ANSI_ARGS_((ClientData dummy,
-			    Tcl_Interp *interp, int argc, CONST char **argv));
-
-/*
- *----------------------------------------------------------------------
- *
- * TkplatformtestInit --
- *
- *	Defines commands that test platform specific functionality for
- *	Unix platforms.
- *
- * Results:
- *	A standard Tcl result.
- *
- * Side effects:
- *	Defines new commands.
- *
- *----------------------------------------------------------------------
- */
-
-int
-TkplatformtestInit(
-    Tcl_Interp *interp)		/* Interpreter to add commands to. */
-{
-    /*
-     * Add commands for platform specific tests on MacOS here.
-     */
-    
-    Tcl_CreateCommand(interp, "debugger", DebuggerCmd,
-            (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
-
-    return TCL_OK;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * DebuggerCmd --
- *
- *	This procedure simply calls the low level debugger.
- *
- * Results:
- *	A standard Tcl result.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-static int
-DebuggerCmd(
-    ClientData clientData,		/* Not used. */
-    Tcl_Interp *interp,			/* Not used. */
-    int argc,				/* Not used. */
-    CONST char **argv)			/* Not used. */
-{
-    Debugger();
-    return TCL_OK;
-}