119 lines
2.7 KiB
C
119 lines
2.7 KiB
C
/*
|
||
* 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:
|
||
*/
|