/* 
 * 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. */
