diff options
Diffstat (limited to 'mac/tkMacInt.h')
| -rw-r--r-- | mac/tkMacInt.h | 231 |
1 files changed, 0 insertions, 231 deletions
diff --git a/mac/tkMacInt.h b/mac/tkMacInt.h deleted file mode 100644 index 4713d39..0000000 --- a/mac/tkMacInt.h +++ /dev/null @@ -1,231 +0,0 @@ -/* - * 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. - */ - -#ifndef _TKMACINT -#define _TKMACINT - -#ifndef _TKINT -#include "tkInt.h" -#endif - -/* - * Include platform specific public interfaces. - */ - -#ifndef _TKMAC -#include "tkMac.h" -#endif - -#ifndef _TKPORT -#include "tkPort.h" -#endif - -#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. - */ - -/* - * This structure is for handling Netscape-type in process - * embedding where Tk does not control the top-level. It contains - * various functions that are needed by Mac specific routines, like - * TkMacGetDrawablePort. The definitions of the function types - * are in tkMac.h. - */ - -typedef struct { - Tk_MacEmbedRegisterWinProc *registerWinProc; - Tk_MacEmbedGetGrafPortProc *getPortProc; - Tk_MacEmbedMakeContainerExistProc *containerExistProc; - Tk_MacEmbedGetClipProc *getClipProc; - Tk_MacEmbedGetOffsetInParentProc *getOffsetProc; -} TkMacEmbedHandler; - -extern TkMacEmbedHandler *gMacEmbedHandler; - -/* - * 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 - -#include "tkIntPlatDecls.h" - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * mac specific procedures exported from the DLL - */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKMACINT */ |