/* 

  * tclMacPanic.c --

  *

  *	Source code for the "Tcl_Panic" library procedure used in "Simple

  *	Shell";	other Mac applications will probably call Tcl_SetPanicProc

  *	to set a more robust application-specific panic procedure.

  *

  * Copyright (c) 1993-1994 Lockheed Missle & Space Company, AI Center

  * Copyright (c) 1995-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: tclMacPanic.c,v 1.6 2001/11/23 01:28:08 das Exp $

  */

 #include <Events.h>

 #include <Controls.h>

 #include <ControlDefinitions.h>

 #include <Windows.h>

 #include <TextEdit.h>

 #include <Fonts.h>

 #include <Dialogs.h>

 #include <Icons.h>

 #include <Sound.h>

 #include <stdarg.h>

 #include <stdio.h>

 #include <stdlib.h>

 #include "tclInt.h"

 #include "tclMacInt.h"

 /*

  * constants for panic dialog

  */

 #define PANICHEIGHT 150				/* Height of dialog */

 #define PANICWIDTH 350				/* Width of dialog */

 #define PANIC_BUTTON_RECT {125, 260, 145, 335}	/* Rect for button. */

 #define PANIC_ICON_RECT   {10, 20, 42, 52}	/* Rect for icon. */

 #define PANIC_TEXT_RECT   {10, 65, 140, 330}	/* Rect for text. */

 #define	ENTERCODE  (0x03)

 #define	RETURNCODE (0x0D)

 /*

  *----------------------------------------------------------------------

  *

  * TclpPanic --

  *

  *	Displays panic info, then aborts

  *

  * Results:

  *	None.

  *

  * Side effects:

  *	The process dies, entering the debugger if possible.

  *

  *----------------------------------------------------------------------

  */

         /* VARARGS ARGSUSED */

 void

 TclpPanic TCL_VARARGS_DEF(CONST char *, format)

 {

     va_list varg;

     char msg[256];

     WindowRef macWinPtr, foundWinPtr;

     Rect macRect;

     Rect buttonRect = PANIC_BUTTON_RECT;

     Rect iconRect = PANIC_ICON_RECT;

     Rect textRect = PANIC_TEXT_RECT;

     ControlHandle okButtonHandle;

     EventRecord event;

     Handle stopIconHandle;

     int	part;

     Boolean done = false;

     va_start(varg, format);

     vsprintf(msg, format, varg);

     va_end(varg);

     /*

      * Put up an alert without using the Resource Manager (there may 

      * be no resources to load). Use the Window and Control Managers instead.

      * We want the window centered on the main monitor. The following 

      * should be tested with multiple monitors. Look and see if there is a way

      * not using qd.screenBits.

      */

     macRect.top = (qd.screenBits.bounds.top + qd.screenBits.bounds.bottom)

 	/ 2 - (PANICHEIGHT / 2);

     macRect.bottom = (qd.screenBits.bounds.top + qd.screenBits.bounds.bottom)

 	/ 2 + (PANICHEIGHT / 2);

     macRect.left = (qd.screenBits.bounds.left + qd.screenBits.bounds.right)

 	/ 2 - (PANICWIDTH / 2);

     macRect.right = (qd.screenBits.bounds.left + qd.screenBits.bounds.right)

 	/ 2 + (PANICWIDTH / 2);

     macWinPtr = NewWindow(NULL, &macRect, "\p", true, dBoxProc, (WindowRef) -1,

             false, 0);

     if (macWinPtr == NULL) {

 	goto exitNow;

     }

     okButtonHandle = NewControl(macWinPtr, &buttonRect, "\pOK", true,

 	    0, 0, 1, pushButProc, 0);

     if (okButtonHandle == NULL) {

 	CloseWindow(macWinPtr);

 	goto exitNow;

     }

     SelectWindow(macWinPtr);

     SetCursor(&qd.arrow);

     stopIconHandle = GetIcon(kStopIcon);

     while (!done) {

 	if (WaitNextEvent(mDownMask | keyDownMask | updateMask,

 		&event, 0, NULL)) {

 	    switch(event.what) {

 		case mouseDown:

 		    part = FindWindow(event.where, &foundWinPtr);

 		    if ((foundWinPtr != macWinPtr) || (part != inContent)) {

 		    	SysBeep(1);

 		    } else {

 		    	SetPortWindowPort(macWinPtr);

 		    	GlobalToLocal(&event.where);

 		    	part = FindControl(event.where, macWinPtr,

 				&okButtonHandle);

 			if ((kControlButtonPart == part) && 

 				(TrackControl(okButtonHandle,

 					event.where, NULL))) {

 			    done = true;

 			}

 		    }

 		    break;

 		case keyDown:

 		    switch (event.message & charCodeMask) {

 			case ENTERCODE:

 			case RETURNCODE:

 			    HiliteControl(okButtonHandle, 1);

 			    HiliteControl(okButtonHandle, 0);

 			    done = true;

 		    }

 		    break;

 		case updateEvt:   

 		    SetPortWindowPort(macWinPtr);

 		    TextFont(systemFont);

 		    BeginUpdate(macWinPtr);

 		    if (stopIconHandle != NULL) {

 			PlotIcon(&iconRect, stopIconHandle);

 		    }

 		    TETextBox(msg, strlen(msg), &textRect, teFlushDefault);

 		    DrawControls(macWinPtr);

 		    EndUpdate(macWinPtr);

 	    }

 	}

     }

     CloseWindow(macWinPtr);

   exitNow:

 #ifdef TCL_DEBUG

     Debugger();

 #else

     abort();

 #endif

 }