1 files changed, 0 insertions, 116 deletions
diff --git a/mac/tkMacMDEF.c b/mac/tkMacMDEF.c
deleted file mode 100644
index bf8743c..0000000
--- a/mac/tkMacMDEF.c
+++ /dev/null
@@ -1,116 +0,0 @@
-/*
- * TkMacMDEF.c --
- *
- *	This module is implements the MDEF for tkMenus. The address of the
- *	real entry proc will be blasted into the MDEF.
- *
- * Copyright (c) 1996 by 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: tkMacMDEF.c,v 1.2 1998/09/14 18:23:37 stanton Exp $
- */
-
-#define MAC_TCL
-#define NeedFunctionPrototypes 1
-#define NeedWidePrototypes 0
-
-#include <Menus.h>
-#include <LowMem.h>
-#include "tkMacInt.h"
-
-
-/*
- * The following structure is built from assembly equates in MPW 3.0 
- * AIncludes file: "Private.a." We're forced to update several locations not
- * documented in "Inside Mac" to make our MDEF behave properly with hierarchical 
- * menus.
- */
-
-#if STRUCTALIGNMENTSUPPORTED
-#pragma options align=mac68k
-#endif
-typedef struct mbPrivate {
-    Byte unknown[6];
-    Rect mbItemRect; 		/* rect of currently chosen menu item */
-} mbPrivate;
-#if STRUCTALIGNMENTSUPPORTED
-#pragma options align=reset
-#endif
-
-/*
- * We are forced to update a low-memory global to get cascades to work. This
- * global does not have a LMEquate associated with it.
- */
-
-#define SELECTRECT (*(Rect *)0x09fa) 	/* Menu select seems to need this */
-#define	MBSAVELOC (*(short *)0x0B5C) 	/* address of handle to mbarproc private data redefined below */
-
-pascal void		main _ANSI_ARGS_((short message,
-			    MenuHandle menu, Rect *menuRect,
-			    Point hitPt, short *whichItem));
-
-
-/*
- *----------------------------------------------------------------------
- *
- * TkMacStdMenu --
- *
- *	The dispatch routine called by the system to handle menu drawing,
- *	scrolling, etc. This is a stub; the address of the real routine
- *	is blasted in. The real routine will be a UniversalProcPtr,
- *	which will give the real dispatch routine in Tk globals
- *	and the like.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	This routine causes menus to be drawn and will certainly allocate
- *	memory as a result. Also, the menu can scroll up and down, and
- *	various other interface actions can take place
- *
- *----------------------------------------------------------------------
- */
-
-pascal void
-main(
-    short message,		/* What action are we taking? */
-    MenuHandle menu,		/* The menu we are working with */
-    Rect *menuRect,		/* A pointer to the rect we are working with */
-    Point hitPt,		/* Where the mouse was hit for appropriate
-    				 * messages. */
-    short *whichItemPtr)	/* Output result. Which item was hit by
-    				 * the user? */
-{	
-    /*
-     * The constant 'MDEF' is what will be punched during menu intialization.
-     */
-
-    TkMenuDefProcPtr procPtr = (TkMenuDefProcPtr) 'MDEF';
-    TkMenuLowMemGlobals globals;
-    short oldItem;
-   
-    globals.menuDisable = LMGetMenuDisable();
-    globals.menuTop = LMGetTopMenuItem();
-    globals.menuBottom = LMGetAtMenuBottom();
-    if (MBSAVELOC == -1) {
-        globals.itemRect = (**(mbPrivate***)&MBSAVELOC)->mbItemRect;
-    }
-    if (message == mChooseMsg) {
-        oldItem = *whichItemPtr;
-    }
-    
-    TkCallMenuDefProc(procPtr, message, menu, menuRect, hitPt, whichItemPtr,
-    	    &globals);
-    
-    LMSetMenuDisable(globals.menuDisable);
-    LMSetTopMenuItem(globals.menuTop);
-    LMSetAtMenuBottom(globals.menuBottom);
-    if ((message == mChooseMsg) && (oldItem != *whichItemPtr) 
-    	    && (MBSAVELOC != -1)) {
-    	(**(mbPrivate***)&MBSAVELOC)->mbItemRect = globals.itemRect;
-      	SELECTRECT = globals.itemRect;
-    }
-}