diff options
Diffstat (limited to 'generic/tkPlatStubs.c')
-rw-r--r-- | generic/tkPlatStubs.c | 197 |
1 files changed, 197 insertions, 0 deletions
diff --git a/generic/tkPlatStubs.c b/generic/tkPlatStubs.c new file mode 100644 index 0000000..2d517d0 --- /dev/null +++ b/generic/tkPlatStubs.c @@ -0,0 +1,197 @@ +/* + * tkPlatStubs.c -- + * + * This file contains the wrapper functions for the platform independent + * unsupported Tk API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tkPlatStubs.c,v 1.2.2.1 1999/03/10 07:13:45 stanton Exp $ + */ + +#include "tk.h" + +#ifdef __WIN32__ +#include "tkWinInt.h" +#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 stub functions: + */ + +#ifdef __WIN32__ +/* Slot 0 */ +Window +Tk_AttachHWND(tkwin, hwnd) + Tk_Window tkwin; + HWND hwnd; +{ + return (tkPlatStubsPtr->tk_AttachHWND)(tkwin, hwnd); +} + +/* Slot 1 */ +HINSTANCE +Tk_GetHINSTANCE() +{ + return (tkPlatStubsPtr->tk_GetHINSTANCE)(); +} + +/* Slot 2 */ +HWND +Tk_GetHWND(window) + Window window; +{ + return (tkPlatStubsPtr->tk_GetHWND)(window); +} + +/* Slot 3 */ +Tk_Window +Tk_HWNDToWindow(hwnd) + HWND hwnd; +{ + return (tkPlatStubsPtr->tk_HWNDToWindow)(hwnd); +} + +/* Slot 4 */ +void +Tk_PointerEvent(hwnd, x, y) + HWND hwnd; + int x; + int y; +{ + (tkPlatStubsPtr->tk_PointerEvent)(hwnd, x, y); +} + +/* Slot 5 */ +int +Tk_TranslateWinEvent(hwnd, message, wParam, lParam, result) + HWND hwnd; + UINT message; + WPARAM wParam; + LPARAM lParam; + LRESULT * result; +{ + return (tkPlatStubsPtr->tk_TranslateWinEvent)(hwnd, message, wParam, lParam, result); +} + +/* Slot 6 */ +int +Tk_DdeObjCmd(clientData, interp, objc, objv) + ClientData clientData; + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tkPlatStubsPtr->tk_DdeObjCmd)(clientData, interp, objc, objv); +} + +#endif /* __WIN32__ */ +#ifdef MAC_TCL +/* Slot 0 */ +void +Tk_MacSetEmbedHandler(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc) + Tk_MacEmbedRegisterWinProc * registerWinProcPtr; + Tk_MacEmbedGetGrafPortProc * getPortProcPtr; + Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr; + Tk_MacEmbedGetClipProc * getClipProc; + Tk_MacEmbedGetOffsetInParentProc * getOffsetProc; +{ + (tkPlatStubsPtr->tk_MacSetEmbedHandler)(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc); +} + +/* Slot 1 */ +void +Tk_MacTurnOffMenus() +{ + (tkPlatStubsPtr->tk_MacTurnOffMenus)(); +} + +/* Slot 2 */ +void +Tk_MacTkOwnsCursor(tkOwnsIt) + int tkOwnsIt; +{ + (tkPlatStubsPtr->tk_MacTkOwnsCursor)(tkOwnsIt); +} + +/* Slot 3 */ +void +TkMacInitMenus(interp) + Tcl_Interp * interp; +{ + (tkPlatStubsPtr->tkMacInitMenus)(interp); +} + +/* Slot 4 */ +void +TkMacInitAppleEvents(interp) + Tcl_Interp * interp; +{ + (tkPlatStubsPtr->tkMacInitAppleEvents)(interp); +} + +/* Slot 5 */ +int +TkMacConvertEvent(eventPtr) + EventRecord * eventPtr; +{ + return (tkPlatStubsPtr->tkMacConvertEvent)(eventPtr); +} + +/* Slot 6 */ +int +TkMacConvertTkEvent(eventPtr, window) + EventRecord * eventPtr; + Window window; +{ + return (tkPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window); +} + +/* Slot 7 */ +void +TkGenWMConfigureEvent(tkwin, x, y, width, height, flags) + Tk_Window tkwin; + int x; + int y; + int width; + int height; + int flags; +{ + (tkPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags); +} + +/* Slot 8 */ +void +TkMacInvalClipRgns(winPtr) + TkWindow * winPtr; +{ + (tkPlatStubsPtr->tkMacInvalClipRgns)(winPtr); +} + +/* Slot 9 */ +int +TkMacHaveAppearance() +{ + return (tkPlatStubsPtr->tkMacHaveAppearance)(); +} + +/* Slot 10 */ +GWorldPtr +TkMacGetDrawablePort(drawable) + Drawable drawable; +{ + return (tkPlatStubsPtr->tkMacGetDrawablePort)(drawable); +} + +#endif /* MAC_TCL */ + +/* !END!: Do not edit above this line. */ |