1 files changed, 186 insertions, 0 deletions
diff --git a/generic/tkPlatStubs.c b/generic/tkPlatStubs.c
new file mode 100644
index 0000000..f58d8ed
--- /dev/null
+++ b/generic/tkPlatStubs.c
@@ -0,0 +1,186 @@
+/* 
+ * 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 1999/03/10 07:04:42 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);
+}
+
+#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. */