Removed support for Mac OS Classic platform [Patch 918142]

1 files changed, 0 insertions, 172 deletions

diff --git a/mac/tclMacPanic.c b/mac/tclMacPanic.c
deleted file mode 100644
index d916cab..0000000
--- a/mac/tclMacPanic.c
+++ /dev/null
@@ -1,172 +0,0 @@
-/* 
- * 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
-}
-