home *** CD-ROM | disk | FTP | other *** search
- /*
- * tkPlatDecls.h --
- *
- * Declarations of functions in the platform-specific public Tcl API.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tkPlatDecls.h,v 1.4 1999/04/30 22:49:55 stanton Exp $
- */
-
- #ifndef _TKPLATDECLS
- #define _TKPLATDECLS
-
- #ifdef BUILD_tk
- #undef TCL_STORAGE_CLASS
- #define TCL_STORAGE_CLASS DLLEXPORT
- #endif
-
- /*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tk.decls script.
- */
-
-
- /* !BEGIN!: Do not edit below this line. */
-
- /*
- * Exported function declarations:
- */
-
- #ifdef __WIN32__
- /* 0 */
- EXTERN Window Tk_AttachHWND _ANSI_ARGS_((Tk_Window tkwin,
- HWND hwnd));
- /* 1 */
- EXTERN HINSTANCE Tk_GetHINSTANCE _ANSI_ARGS_((void));
- /* 2 */
- EXTERN HWND Tk_GetHWND _ANSI_ARGS_((Window window));
- /* 3 */
- EXTERN Tk_Window Tk_HWNDToWindow _ANSI_ARGS_((HWND hwnd));
- /* 4 */
- EXTERN void Tk_PointerEvent _ANSI_ARGS_((HWND hwnd, int x, int y));
- /* 5 */
- EXTERN int Tk_TranslateWinEvent _ANSI_ARGS_((HWND hwnd,
- UINT message, WPARAM wParam, LPARAM lParam,
- LRESULT * result));
- #endif /* __WIN32__ */
- #ifdef MAC_TCL
- /* 0 */
- EXTERN void Tk_MacSetEmbedHandler _ANSI_ARGS_((
- Tk_MacEmbedRegisterWinProc * registerWinProcPtr,
- Tk_MacEmbedGetGrafPortProc * getPortProcPtr,
- Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr,
- Tk_MacEmbedGetClipProc * getClipProc,
- Tk_MacEmbedGetOffsetInParentProc * getOffsetProc));
- /* 1 */
- EXTERN void Tk_MacTurnOffMenus _ANSI_ARGS_((void));
- /* 2 */
- EXTERN void Tk_MacTkOwnsCursor _ANSI_ARGS_((int tkOwnsIt));
- /* 3 */
- EXTERN void TkMacInitMenus _ANSI_ARGS_((Tcl_Interp * interp));
- /* 4 */
- EXTERN void TkMacInitAppleEvents _ANSI_ARGS_((
- Tcl_Interp * interp));
- /* 5 */
- EXTERN int TkMacConvertEvent _ANSI_ARGS_((
- EventRecord * eventPtr));
- /* 6 */
- EXTERN int TkMacConvertTkEvent _ANSI_ARGS_((
- EventRecord * eventPtr, Window window));
- /* 7 */
- EXTERN void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin,
- int x, int y, int width, int height,
- int flags));
- /* 8 */
- EXTERN void TkMacInvalClipRgns _ANSI_ARGS_((TkWindow * winPtr));
- /* 9 */
- EXTERN int TkMacHaveAppearance _ANSI_ARGS_((void));
- /* 10 */
- EXTERN GWorldPtr TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable));
- #endif /* MAC_TCL */
-
- typedef struct TkPlatStubs {
- int magic;
- struct TkPlatStubHooks *hooks;
-
- #ifdef __WIN32__
- Window (*tk_AttachHWND) _ANSI_ARGS_((Tk_Window tkwin, HWND hwnd)); /* 0 */
- HINSTANCE (*tk_GetHINSTANCE) _ANSI_ARGS_((void)); /* 1 */
- HWND (*tk_GetHWND) _ANSI_ARGS_((Window window)); /* 2 */
- Tk_Window (*tk_HWNDToWindow) _ANSI_ARGS_((HWND hwnd)); /* 3 */
- void (*tk_PointerEvent) _ANSI_ARGS_((HWND hwnd, int x, int y)); /* 4 */
- int (*tk_TranslateWinEvent) _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT * result)); /* 5 */
- #endif /* __WIN32__ */
- #ifdef MAC_TCL
- void (*tk_MacSetEmbedHandler) _ANSI_ARGS_((Tk_MacEmbedRegisterWinProc * registerWinProcPtr, Tk_MacEmbedGetGrafPortProc * getPortProcPtr, Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr, Tk_MacEmbedGetClipProc * getClipProc, Tk_MacEmbedGetOffsetInParentProc * getOffsetProc)); /* 0 */
- void (*tk_MacTurnOffMenus) _ANSI_ARGS_((void)); /* 1 */
- void (*tk_MacTkOwnsCursor) _ANSI_ARGS_((int tkOwnsIt)); /* 2 */
- void (*tkMacInitMenus) _ANSI_ARGS_((Tcl_Interp * interp)); /* 3 */
- void (*tkMacInitAppleEvents) _ANSI_ARGS_((Tcl_Interp * interp)); /* 4 */
- int (*tkMacConvertEvent) _ANSI_ARGS_((EventRecord * eventPtr)); /* 5 */
- int (*tkMacConvertTkEvent) _ANSI_ARGS_((EventRecord * eventPtr, Window window)); /* 6 */
- void (*tkGenWMConfigureEvent) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height, int flags)); /* 7 */
- void (*tkMacInvalClipRgns) _ANSI_ARGS_((TkWindow * winPtr)); /* 8 */
- int (*tkMacHaveAppearance) _ANSI_ARGS_((void)); /* 9 */
- GWorldPtr (*tkMacGetDrawablePort) _ANSI_ARGS_((Drawable drawable)); /* 10 */
- #endif /* MAC_TCL */
- } TkPlatStubs;
-
- #ifdef __cplusplus
- extern "C" {
- #endif
- extern TkPlatStubs *tkPlatStubsPtr;
- #ifdef __cplusplus
- }
- #endif
-
- #if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
-
- /*
- * Inline function declarations:
- */
-
- #ifdef __WIN32__
- #ifndef Tk_AttachHWND
- #define Tk_AttachHWND \
- (tkPlatStubsPtr->tk_AttachHWND) /* 0 */
- #endif
- #ifndef Tk_GetHINSTANCE
- #define Tk_GetHINSTANCE \
- (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */
- #endif
- #ifndef Tk_GetHWND
- #define Tk_GetHWND \
- (tkPlatStubsPtr->tk_GetHWND) /* 2 */
- #endif
- #ifndef Tk_HWNDToWindow
- #define Tk_HWNDToWindow \
- (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */
- #endif
- #ifndef Tk_PointerEvent
- #define Tk_PointerEvent \
- (tkPlatStubsPtr->tk_PointerEvent) /* 4 */
- #endif
- #ifndef Tk_TranslateWinEvent
- #define Tk_TranslateWinEvent \
- (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */
- #endif
- #endif /* __WIN32__ */
- #ifdef MAC_TCL
- #ifndef Tk_MacSetEmbedHandler
- #define Tk_MacSetEmbedHandler \
- (tkPlatStubsPtr->tk_MacSetEmbedHandler) /* 0 */
- #endif
- #ifndef Tk_MacTurnOffMenus
- #define Tk_MacTurnOffMenus \
- (tkPlatStubsPtr->tk_MacTurnOffMenus) /* 1 */
- #endif
- #ifndef Tk_MacTkOwnsCursor
- #define Tk_MacTkOwnsCursor \
- (tkPlatStubsPtr->tk_MacTkOwnsCursor) /* 2 */
- #endif
- #ifndef TkMacInitMenus
- #define TkMacInitMenus \
- (tkPlatStubsPtr->tkMacInitMenus) /* 3 */
- #endif
- #ifndef TkMacInitAppleEvents
- #define TkMacInitAppleEvents \
- (tkPlatStubsPtr->tkMacInitAppleEvents) /* 4 */
- #endif
- #ifndef TkMacConvertEvent
- #define TkMacConvertEvent \
- (tkPlatStubsPtr->tkMacConvertEvent) /* 5 */
- #endif
- #ifndef TkMacConvertTkEvent
- #define TkMacConvertTkEvent \
- (tkPlatStubsPtr->tkMacConvertTkEvent) /* 6 */
- #endif
- #ifndef TkGenWMConfigureEvent
- #define TkGenWMConfigureEvent \
- (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 7 */
- #endif
- #ifndef TkMacInvalClipRgns
- #define TkMacInvalClipRgns \
- (tkPlatStubsPtr->tkMacInvalClipRgns) /* 8 */
- #endif
- #ifndef TkMacHaveAppearance
- #define TkMacHaveAppearance \
- (tkPlatStubsPtr->tkMacHaveAppearance) /* 9 */
- #endif
- #ifndef TkMacGetDrawablePort
- #define TkMacGetDrawablePort \
- (tkPlatStubsPtr->tkMacGetDrawablePort) /* 10 */
- #endif
- #endif /* MAC_TCL */
-
- #endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */
-
- /* !END!: Do not edit above this line. */
-
- #undef TCL_STORAGE_CLASS
- #define TCL_STORAGE_CLASS DLLIMPORT
-
- #endif /* _TKPLATDECLS */
-