Initial revision

1 files changed, 282 insertions, 0 deletions

diff --git a/mac/tkMacInt.h b/mac/tkMacInt.h
new file mode 100644
index 0000000..fcb8174
--- /dev/null
+++ b/mac/tkMacInt.h
@@ -0,0 +1,282 @@
+/*
+ * tkMacInt.h --
+ *
+ *	Declarations of Macintosh specific shared variables and procedures.
+ *
+ * Copyright (c) 1995-1997 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkMacInt.h 1.67 97/11/20 18:30:38
+ */
+
+#ifndef _TKMACINT
+#define _TKMACINT
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+#ifndef _TKMAC
+#    include "tkMac.h"
+#endif /* _TKMAC */
+
+
+#include <AppleEvents.h>
+#include <Windows.h>
+#include <QDOffscreen.h>
+#include <Menus.h>
+
+#define TK_MAC_68K_STACK_GROWTH (256*1024)
+
+struct TkWindowPrivate {
+    TkWindow *winPtr;     	/* Ptr to tk window or NULL if Pixmap */
+    GWorldPtr portPtr;     	/* Either WindowRef or off screen world */
+    int xOff;	       		/* X offset from toplevel window */
+    int yOff;		       	/* Y offset from toplevel window */
+    RgnHandle clipRgn;		/* Visable region of window */
+    RgnHandle aboveClipRgn;	/* Visable region of window & it's children */
+    int referenceCount;		/* Don't delete toplevel until children are
+				 * gone. */
+    struct TkWindowPrivate *toplevel;	/* Pointer to the toplevel
+					 * datastruct. */
+    int flags;			/* Various state see defines below. */
+};
+typedef struct TkWindowPrivate MacDrawable;
+
+/*
+ * This list is used to keep track of toplevel windows that have a Mac
+ * window attached. This is useful for several things, not the least
+ * of which is maintaining floating windows.
+ */
+
+typedef struct TkMacWindowList {
+    struct TkMacWindowList *nextPtr;	/* The next window in the list. */
+    TkWindow *winPtr;			/* This window */
+} TkMacWindowList;
+
+/*
+ * Defines use for the flags field of the MacDrawable data structure.
+ */
+ 
+#define TK_SCROLLBAR_GROW	1
+#define TK_CLIP_INVALID		2
+#define TK_HOST_EXISTS		4
+#define TK_DRAWN_UNDER_MENU	8
+
+/*
+ * I am reserving TK_EMBEDDED = 0x100 in the MacDrawable flags
+ * This is defined in tk.h. We need to duplicate the TK_EMBEDDED flag in the
+ * TkWindow structure for the window,  but in the MacWin.  This way we can still tell
+ * what the correct port is after the TKWindow  structure has been freed.  This 
+ * actually happens when you bind destroy of a toplevel to Destroy of a child.
+ */
+
+/*
+ * Defines used for TkMacInvalidateWindow
+ */
+ 
+#define TK_WINDOW_ONLY 0
+#define TK_PARENT_WINDOW 1
+
+/*
+ * Accessor for the privatePtr flags field for the TK_HOST_EXISTS field
+ */
+ 
+#define TkMacHostToplevelExists(tkwin) \
+    (((TkWindow *) (tkwin))->privatePtr->toplevel->flags & TK_HOST_EXISTS)
+
+/*
+ * Defines use for the flags argument to TkGenWMConfigureEvent.
+ */
+ 
+#define TK_LOCATION_CHANGED	1
+#define TK_SIZE_CHANGED		2
+#define TK_BOTH_CHANGED		3
+
+/*
+ * Variables shared among various Mac Tk modules but are not
+ * exported to the outside world.
+ */
+ 
+extern int tkMacAppInFront;
+
+/*
+ * Globals shared among Macintosh Tk
+ */
+ 
+extern MenuHandle tkAppleMenu;		/* Handle to the Apple Menu */
+extern MenuHandle tkFileMenu;		/* Handles to menus */
+extern MenuHandle tkEditMenu;		/* Handles to menus */
+extern RgnHandle tkMenuCascadeRgn;	/* A region to clip with. */
+extern int tkUseMenuCascadeRgn;		/* If this is 1, clipping code
+					 * should intersect tkMenuCascadeRgn
+					 * before drawing occurs.
+					 * tkMenuCascadeRgn will only
+					 * be valid when the value of this
+					 * variable is 1. */
+extern TkMacWindowList *tkMacWindowListPtr;
+					/* The list of toplevels */
+
+/*
+ * The following types and defines are for MDEF support.
+ */
+
+#if STRUCTALIGNMENTSUPPORTED
+#pragma options align=mac8k
+#endif
+typedef struct TkMenuLowMemGlobals {
+    long menuDisable;			/* A combination of the menu and the item
+    					 * that the mouse is currently over. */
+    short menuTop;			/* Where in global coords the top of the
+    					 * menu is. */
+    short menuBottom;			/* Where in global coords the bottom of
+    					 * the menu is. */
+    Rect itemRect;			/* This is the rectangle of the currently
+    					 * selected item. */
+    short scrollFlag;			/* This is used by the MDEF and the
+    					 * Menu Manager to control when scrolling
+    					 * starts. With hierarchicals, an
+    					 * mChooseMsg can come before an
+    					 * mDrawMsg, and scrolling should not
+    					 * occur until after the mDrawMsg.
+    					 * The mDrawMsg sets this flag;
+    					 * mChooseMsg checks the flag and
+    					 * does not scroll if it is set;
+    					 * and then resets the flag. */
+} TkMenuLowMemGlobals;
+#if STRUCTALIGNMENTSUPPORTED
+#pragma options align=reset
+#endif
+
+typedef pascal void (*TkMenuDefProcPtr) (short message, MenuHandle theMenu,
+	Rect *menuRectPtr, Point hitPt, short *whichItemPtr,
+	TkMenuLowMemGlobals *globalsPtr);
+enum {
+    tkUppMenuDefProcInfo = kPascalStackBased
+	    | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(short)))
+	    | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(MenuRef)))
+	    | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(Rect*)))
+	    | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(Point)))
+	    | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(short*)))
+	    | STACK_ROUTINE_PARAMETER(6, SIZE_CODE(sizeof(TkMenuLowMemGlobals *)))
+};
+
+#if GENERATINGCFM
+typedef UniversalProcPtr TkMenuDefUPP;
+#else
+typedef TkMenuDefProcPtr TkMenuDefUPP;
+#endif
+
+#if GENERATINGCFM
+#define TkNewMenuDefProc(userRoutine)	\
+	(TkMenuDefUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), \
+	tkUppMenuDefProcInfo, GetCurrentArchitecture())
+#else
+#define TkNewMenuDefProc(userRoutine) 	\
+	((TkMenuDefUPP) (userRoutine))
+#endif
+
+#if GENERATINGCFM
+#define TkCallMenuDefProc(userRoutine, message, theMenu, menuRectPtr, hitPt, \
+	whichItemPtr, globalsPtr) \
+	CallUniversalProc((UniversalProcPtr)(userRoutine), TkUppMenuDefProcInfo, \
+	(message), (theMenu), (menuRectPtr), (hitPt), (whichItemPtr), \
+	(globalsPtr))
+#else
+#define TkCallMenuDefProc(userRoutine, message, theMenu, menuRectPtr, hitPt, \
+	whichItemPtr, globalsPtr) \
+	(*(userRoutine))((message), (theMenu), (menuRectPtr), (hitPt), \
+	(whichItemPtr), (globalsPtr))
+#endif
+
+/*
+ * Internal procedures shared among Macintosh Tk modules but not exported
+ * to the outside world:
+ */
+
+extern int		HandleWMEvent _ANSI_ARGS_((EventRecord *theEvent));
+extern void 		TkAboutDlg _ANSI_ARGS_((void));
+extern void		TkCreateMacEventSource _ANSI_ARGS_((void));
+extern void 		TkFontList _ANSI_ARGS_((Tcl_Interp *interp,
+			    Display *display));
+extern Window		TkGetTransientMaster _ANSI_ARGS_((TkWindow *winPtr));
+extern int		TkGenerateButtonEvent _ANSI_ARGS_((int x, int y,
+			    Window window, unsigned int state));
+extern int 		TkGetCharPositions _ANSI_ARGS_((
+			    XFontStruct *font_struct, char *string,
+			    int count, short *buffer));
+extern void		TkGenWMDestroyEvent _ANSI_ARGS_((Tk_Window tkwin));
+extern void		TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin,
+			    int x, int y, int width, int height, int flags));
+extern unsigned int	TkMacButtonKeyState _ANSI_ARGS_((void));
+extern void		TkMacClearMenubarActive _ANSI_ARGS_((void));
+extern int		TkMacConvertEvent _ANSI_ARGS_((EventRecord *eventPtr));
+extern int		TkMacDispatchMenuEvent _ANSI_ARGS_((int menuID, 
+			    int index));
+extern void		TkMacInstallCursor _ANSI_ARGS_((int resizeOverride));
+extern int		TkMacConvertTkEvent _ANSI_ARGS_((EventRecord *eventPtr,
+			    Window window));
+extern void		TkMacHandleTearoffMenu _ANSI_ARGS_((void));
+extern void		tkMacInstallMWConsole _ANSI_ARGS_((
+			    Tcl_Interp *interp));
+extern void		TkMacInvalClipRgns _ANSI_ARGS_((TkWindow *winPtr));
+extern void		TkMacDoHLEvent _ANSI_ARGS_((EventRecord *theEvent));
+extern void 		TkMacFontInfo _ANSI_ARGS_((Font fontId, short *family,
+			    short *style, short *size));
+extern Time		TkMacGenerateTime _ANSI_ARGS_(());
+extern GWorldPtr 	TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable));
+extern TkWindow * 	TkMacGetScrollbarGrowWindow _ANSI_ARGS_((
+			    TkWindow *winPtr));
+extern Window 		TkMacGetXWindow _ANSI_ARGS_((WindowRef macWinPtr));
+extern int		TkMacGrowToplevel _ANSI_ARGS_((WindowRef whichWindow,
+			    Point start));
+extern void 		TkMacHandleMenuSelect _ANSI_ARGS_((long mResult,
+			    int optionKeyPressed));
+extern void		TkMacInitAppleEvents _ANSI_ARGS_((Tcl_Interp *interp));
+extern void 		TkMacInitMenus _ANSI_ARGS_((Tcl_Interp 	*interp));
+extern void		TkMacInvalidateWindow _ANSI_ARGS_((MacDrawable *macWin, int flag));
+extern int		TkMacIsCharacterMissing _ANSI_ARGS_((Tk_Font tkfont,
+			    unsigned int searchChar));
+extern void		TkMacMakeRealWindowExist _ANSI_ARGS_((
+			    TkWindow *winPtr));
+extern BitMapPtr	TkMacMakeStippleMap(Drawable, Drawable);
+extern void		TkMacMenuClick _ANSI_ARGS_((void));
+extern void		TkMacRegisterOffScreenWindow _ANSI_ARGS_((Window window,
+			    GWorldPtr portPtr));
+extern int		TkMacResizable _ANSI_ARGS_((TkWindow *winPtr));
+extern void		TkMacSetEmbedRgn _ANSI_ARGS_((TkWindow *winPtr, RgnHandle rgn));
+extern void		TkMacSetHelpMenuItemCount _ANSI_ARGS_((void));
+extern void		TkMacSetScrollbarGrow _ANSI_ARGS_((TkWindow *winPtr,
+			    int flag));
+extern void		TkMacSetUpClippingRgn _ANSI_ARGS_((Drawable drawable));
+extern void		TkMacSetUpGraphicsPort _ANSI_ARGS_((GC gc));
+extern void 		TkMacUpdateClipRgn _ANSI_ARGS_((TkWindow *winPtr));
+extern void		TkMacUnregisterMacWindow _ANSI_ARGS_((GWorldPtr portPtr));
+extern int		TkMacUseMenuID _ANSI_ARGS_((short macID));
+extern RgnHandle 	TkMacVisableClipRgn _ANSI_ARGS_((TkWindow *winPtr));
+extern void		TkMacWinBounds _ANSI_ARGS_((TkWindow *winPtr,
+			    Rect *geometry));
+extern void		TkMacWindowOffset _ANSI_ARGS_((WindowRef wRef, 
+			    int *xOffset, int *yOffset));
+extern void		TkResumeClipboard _ANSI_ARGS_((void));
+extern int 		TkSetMacColor _ANSI_ARGS_((unsigned long pixel,
+			    RGBColor *macColor));
+extern void 		TkSetWMName _ANSI_ARGS_((TkWindow *winPtr,
+			    Tk_Uid titleUid));
+extern void		TkSuspendClipboard _ANSI_ARGS_((void));
+extern int		TkWMGrowToplevel _ANSI_ARGS_((WindowRef whichWindow,
+			    Point start));
+extern int		TkMacZoomToplevel _ANSI_ARGS_((WindowPtr whichWindow, 
+			    Point where, short zoomPart));
+extern Tk_Window	Tk_TopCoordsToWindow _ANSI_ARGS_((Tk_Window tkwin,
+			    int rootX, int rootY, int *newX, int *newY));
+extern MacDrawable *	TkMacContainerId _ANSI_ARGS_((TkWindow *winPtr));
+extern MacDrawable *	TkMacGetHostToplevel  _ANSI_ARGS_((TkWindow *winPtr));
+/*
+ * The following prototypes need to go into tkMac.h
+ */
+EXTERN void		Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin,
+			    int x, int y, int state));
+
+#endif /* _TKMACINT */