update tcl/tk

1 files changed, 0 insertions, 118 deletions

diff --git a/tk8.6/macosx/tkMacOSXTest.c b/tk8.6/macosx/tkMacOSXTest.c
deleted file mode 100644
index 5576c44..0000000
--- a/tk8.6/macosx/tkMacOSXTest.c
+++ /dev/null
@@ -1,118 +0,0 @@
-/*
- * tkMacOSXTest.c --
- *
- *	Contains commands for platform specific tests for
- *	the Macintosh platform.
- *
- * Copyright (c) 1996 Sun Microsystems, Inc.
- * Copyright 2001-2009, Apple Inc.
- * Copyright (c) 2005-2009 Daniel A. Steffen <das@users.sourceforge.net>
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
-
-#include "tkMacOSXPrivate.h"
-
-/*
- * Forward declarations of procedures defined later in this file:
- */
-
-static int		DebuggerObjCmd (ClientData dummy, Tcl_Interp *interp,
-			    int objc, Tcl_Obj *const objv[]);
-
-/*
- *----------------------------------------------------------------------
- *
- * 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_CreateObjCommand(interp, "debugger", DebuggerObjCmd,
-	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
-
-    return TCL_OK;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * DebuggerObjCmd --
- *
- *	This procedure simply calls the low level debugger.
- *
- * Results:
- *	A standard Tcl result.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-static int
-DebuggerObjCmd(
-    ClientData clientData,		/* Not used. */
-    Tcl_Interp *interp,			/* Not used. */
-    int objc,				/* Not used. */
-    Tcl_Obj *const objv[])			/* Not used. */
-{
-    Debugger();
-    return TCL_OK;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TkTestSimulateDrawing --
- *
- *      A test widget display procedure which records calls can use this to
- *      avoid duplicate calls which would occur due to fact that no valid
- *      graphics context is available to the idle task which is running the
- *      display proc.  Note that no actual drawing to the screen will take
- *      place when this flag is set.  This is just a wrapper for the NSApp
- *      property.
- *
- *
- * Results:
- *      Calls to low level drawing routines will return without actually
- *	drawing anything to the screen.
- *
- * Side effects:
- *	None
- *
- *----------------------------------------------------------------------
- */
-MODULE_SCOPE void
-TkTestSimulateDrawing(Bool yesno) {
-    [NSApp setSimulateDrawing:yesno];
-}
-
-
-
-/*
- * Local Variables:
- * mode: objc
- * c-basic-offset: 4
- * fill-column: 79
- * coding: utf-8
- * End:
- */