head	1.3;
access;
symbols
	core-8-0-6-branch:1.2.0.4
	core-8-0-6-base:1.2
	core-8-1-b2:1.2.2.1
	dev-8-1-stubs-branch:1.1.0.4
	dev-stubs-branch:1.1.0.2;
locks; strict;
comment	@ * @;


1.3
date	99.04.16.01.51.21;	author stanton;	state dead;
branches;
next	1.2;

1.2
date	99.03.10.07.04.42;	author stanton;	state Exp;
branches
	1.2.2.1;
next	1.1;

1.1
date	99.03.06.00.08.06;	author redman;	state dead;
branches
	1.1.2.1
	1.1.4.1;
next	;

1.1.2.1
date	99.03.06.00.08.06;	author redman;	state Exp;
branches;
next	1.1.2.2;

1.1.2.2
date	99.03.07.00.15.45;	author redman;	state Exp;
branches;
next	;

1.1.4.1
date	99.03.09.18.57.12;	author redman;	state Exp;
branches;
next	;

1.2.2.1
date	99.03.10.07.13.45;	author stanton;	state Exp;
branches;
next	1.2.2.2;

1.2.2.2
date	99.03.30.02.08.03;	author redman;	state dead;
branches;
next	;


desc
@@


1.3
log
@* Merged 8.1 branch into the main trunk
@
text
@/* 
 * 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. */
@


1.2
log
@integrated stubs into 8.0 main branch
@
text
@d10 1
a10 1
 * RCS: @@(#) $Id: tkPlatStubs.c,v 1.1.2.2 1999/03/07 00:15:45 redman Exp $
@


1.2.2.1
log
@integrated stubs from development branch
@
text
@d10 1
a10 1
 * RCS: @@(#) $Id: tkPlatStubs.c,v 1.1.4.1 1999/03/09 18:57:12 redman Exp $
a83 11
}

/* 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);
@


1.2.2.2
log
@Remove stub functions.  Always use stubs when building with --enable-shared
(which is the default).  Wish links to -ltcl and -ltk (the real libraries).
@
text
@d10 1
a10 1
 * RCS: @@(#) $Id: tkPlatStubs.c,v 1.2.2.1 1999/03/10 07:13:45 stanton Exp $
@


1.1
log
@file tkPlatStubs.c was initially added on branch dev-stubs-branch.
@
text
@d1 186
@


1.1.4.1
log
@Added files new to 8.1, from 8.0.6 dev-stubs-branch.
@
text
@a0 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.1.2.2 1999/03/07 00:15:45 redman 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. */
@


1.1.2.1
log
@Changes for Tk Stubs implementation.
@
text
@a0 182
/* 
 * 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/04 01:01:59 stanton Exp $
 */

#include "tk.h"

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


1.1.2.2
log
@Stubs changes, now wish works on Windows.
@
text
@d10 1
a10 1
 * RCS: @@(#) $Id: tkPlatStubs.c,v 1.1.2.1 1999/03/06 00:08:06 redman Exp $
a13 4

#ifdef __WIN32__
#include "tkWinInt.h"
#endif
@


