summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorstanton <stanton@noemail.net>1999-03-10 07:04:38 (GMT)
committerstanton <stanton@noemail.net>1999-03-10 07:04:38 (GMT)
commitec2ba5f6728b8b5f1a252e25b4433d29c4319403 (patch)
treeb83515b886272ee3c61631f31cfe3fad937dc0a7 /generic
parentf7d299b766bb808ca70de46712e13469c076fcdd (diff)
downloadtk-ec2ba5f6728b8b5f1a252e25b4433d29c4319403.zip
tk-ec2ba5f6728b8b5f1a252e25b4433d29c4319403.tar.gz
tk-ec2ba5f6728b8b5f1a252e25b4433d29c4319403.tar.bz2
integrated stubs into 8.0 main branch
FossilOrigin-Name: 4c74dd207943932e6d9a6d06a3ec11b8e4459199
Diffstat (limited to 'generic')
-rw-r--r--generic/tk.decls980
-rw-r--r--generic/tk.h524
-rw-r--r--generic/tkBind.c6
-rw-r--r--generic/tkCmds.c10
-rw-r--r--generic/tkConsole.c18
-rw-r--r--generic/tkDecls.h1595
-rw-r--r--generic/tkGrab.c6
-rw-r--r--generic/tkImgPhoto.c9
-rw-r--r--generic/tkInt.decls1577
-rw-r--r--generic/tkInt.h387
-rw-r--r--generic/tkIntDecls.h844
-rw-r--r--generic/tkIntPlatDecls.h955
-rw-r--r--generic/tkIntPlatStubs.c1050
-rw-r--r--generic/tkIntStubs.c965
-rw-r--r--generic/tkIntXlibDecls.h1157
-rw-r--r--generic/tkIntXlibStubs.c1570
-rw-r--r--generic/tkMain.c38
-rw-r--r--generic/tkPlatDecls.h202
-rw-r--r--generic/tkPlatStubs.c186
-rw-r--r--generic/tkPointer.c6
-rw-r--r--generic/tkStubInit.c649
-rw-r--r--generic/tkStubLib.c102
-rw-r--r--generic/tkStubs.c1933
-rw-r--r--generic/tkTextDisp.c6
-rw-r--r--generic/tkWindow.c22
25 files changed, 14009 insertions, 788 deletions
diff --git a/generic/tk.decls b/generic/tk.decls
new file mode 100644
index 0000000..6d301f5
--- /dev/null
+++ b/generic/tk.decls
@@ -0,0 +1,980 @@
+# tk.decls --
+#
+# This file contains the declarations for all supported public
+# functions that are exported by the Tk library via the stubs table.
+# This file is used to generate the tkDecls.h, tkPlatDecls.h,
+# tkStub.c, and tkPlatStub.c files.
+#
+#
+# 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: tk.decls,v 1.2 1999/03/10 07:04:38 stanton Exp $
+
+library tk
+
+# Define the tk interface with 3 sub interfaces:
+# tkPlat - platform specific public
+# tkInt - generic private
+# tkPlatInt - platform specific private
+
+interface tk
+hooks {tkPlat tkInt tkIntPlat tkIntXlib}
+
+# Declare each of the functions in the public Tk interface. Note that
+# the an index should never be reused for a different function in order
+# to preserve backwards compatibility.
+
+declare 0 generic {
+ void Tk_MainLoop (void)
+}
+
+declare 1 generic {
+ XColor *Tk_3DBorderColor (Tk_3DBorder border)
+}
+
+declare 2 generic {
+ GC Tk_3DBorderGC (Tk_Window tkwin, Tk_3DBorder border, \
+ int which)
+}
+
+declare 3 generic {
+ void Tk_3DHorizontalBevel (Tk_Window tkwin, \
+ Drawable drawable, Tk_3DBorder border, int x, \
+ int y, int width, int height, int leftIn, \
+ int rightIn, int topBevel, int relief)
+}
+
+declare 4 generic {
+ void Tk_3DVerticalBevel (Tk_Window tkwin, \
+ Drawable drawable, Tk_3DBorder border, int x, \
+ int y, int width, int height, int leftBevel, \
+ int relief)
+}
+
+declare 5 generic {
+ void Tk_AddOption (Tk_Window tkwin, char *name, \
+ char *value, int priority)
+}
+
+declare 6 generic {
+ void Tk_BindEvent (Tk_BindingTable bindingTable, \
+ XEvent *eventPtr, Tk_Window tkwin, int numObjects, \
+ ClientData *objectPtr)
+}
+
+declare 7 generic {
+ void Tk_CanvasDrawableCoords (Tk_Canvas canvas, \
+ double x, double y, short *drawableXPtr, \
+ short *drawableYPtr)
+}
+
+declare 8 generic {
+ void Tk_CanvasEventuallyRedraw (Tk_Canvas canvas, int x1, int y1, \
+ int x2, int y2)
+}
+
+declare 9 generic {
+ int Tk_CanvasGetCoord (Tcl_Interp *interp, \
+ Tk_Canvas canvas, char *string, double *doublePtr)
+}
+
+declare 10 generic {
+ Tk_CanvasTextInfo *Tk_CanvasGetTextInfo (Tk_Canvas canvas)
+}
+
+declare 11 generic {
+ int Tk_CanvasPsBitmap (Tcl_Interp *interp, \
+ Tk_Canvas canvas, Pixmap bitmap, int x, int y, \
+ int width, int height)
+}
+
+declare 12 generic {
+ int Tk_CanvasPsColor (Tcl_Interp *interp, \
+ Tk_Canvas canvas, XColor *colorPtr)
+}
+
+declare 13 generic {
+ int Tk_CanvasPsFont (Tcl_Interp *interp, \
+ Tk_Canvas canvas, Tk_Font font)
+}
+
+declare 14 generic {
+ void Tk_CanvasPsPath (Tcl_Interp *interp, \
+ Tk_Canvas canvas, double *coordPtr, int numPoints)
+}
+
+declare 15 generic {
+ int Tk_CanvasPsStipple (Tcl_Interp *interp, \
+ Tk_Canvas canvas, Pixmap bitmap)
+}
+
+declare 16 generic {
+ double Tk_CanvasPsY (Tk_Canvas canvas, double y)
+}
+
+declare 17 generic {
+ void Tk_CanvasSetStippleOrigin (Tk_Canvas canvas, GC gc)
+}
+
+declare 18 generic {
+ int Tk_CanvasTagsParseProc (ClientData clientData, Tcl_Interp *interp, \
+ Tk_Window tkwin, char *value, char *widgRec, int offset)
+}
+
+declare 19 generic {
+ char * Tk_CanvasTagsPrintProc (ClientData clientData, Tk_Window tkwin, \
+ char *widgRec, int offset, Tcl_FreeProc **freeProcPtr)
+}
+
+declare 20 generic {
+ Tk_Window Tk_CanvasTkwin (Tk_Canvas canvas)
+}
+
+declare 21 generic {
+ void Tk_CanvasWindowCoords (Tk_Canvas canvas, double x, double y, \
+ short *screenXPtr, short *screenYPtr)
+}
+
+declare 22 generic {
+ void Tk_ChangeWindowAttributes (Tk_Window tkwin, unsigned long valueMask, \
+ XSetWindowAttributes *attsPtr)
+}
+
+declare 23 generic {
+ int Tk_CharBbox (Tk_TextLayout layout, int index, int *xPtr, \
+ int *yPtr, int *widthPtr, int *heightPtr)
+}
+
+declare 24 generic {
+ void Tk_ClearSelection (Tk_Window tkwin, Atom selection)
+}
+
+declare 25 generic {
+ int Tk_ClipboardAppend (Tcl_Interp *interp,Tk_Window tkwin, \
+ Atom target, Atom format, char* buffer)
+}
+
+declare 26 generic {
+ int Tk_ClipboardClear (Tcl_Interp *interp, Tk_Window tkwin)
+}
+
+declare 27 generic {
+ int Tk_ConfigureInfo (Tcl_Interp *interp, \
+ Tk_Window tkwin, Tk_ConfigSpec *specs, \
+ char *widgRec, char *argvName, int flags)
+}
+
+declare 28 generic {
+ int Tk_ConfigureValue (Tcl_Interp *interp, \
+ Tk_Window tkwin, Tk_ConfigSpec *specs, \
+ char *widgRec, char *argvName, int flags)
+}
+
+declare 29 generic {
+ int Tk_ConfigureWidget (Tcl_Interp *interp, \
+ Tk_Window tkwin, Tk_ConfigSpec *specs, \
+ int argc, char **argv, char *widgRec, \
+ int flags)
+}
+
+declare 30 generic {
+ void Tk_ConfigureWindow (Tk_Window tkwin, \
+ unsigned int valueMask, XWindowChanges *valuePtr)
+}
+
+declare 31 generic {
+ Tk_TextLayout Tk_ComputeTextLayout (Tk_Font font, \
+ CONST char *string, int numChars, int wrapLength, \
+ Tk_Justify justify, int flags, int *widthPtr, \
+ int *heightPtr)
+}
+
+declare 32 generic {
+ Tk_Window Tk_CoordsToWindow (int rootX, int rootY, Tk_Window tkwin)
+}
+
+declare 33 generic {
+ unsigned long Tk_CreateBinding (Tcl_Interp *interp, \
+ Tk_BindingTable bindingTable, ClientData object, \
+ char *eventString, char *command, int append)
+}
+
+declare 34 generic {
+ Tk_BindingTable Tk_CreateBindingTable (Tcl_Interp *interp)
+}
+
+declare 35 generic {
+ Tk_ErrorHandler Tk_CreateErrorHandler (Display *display, \
+ int errNum, int request, int minorCode, \
+ Tk_ErrorProc *errorProc, ClientData clientData)
+}
+
+declare 36 generic {
+ void Tk_CreateEventHandler (Tk_Window token, \
+ unsigned long mask, Tk_EventProc *proc, \
+ ClientData clientData)
+}
+
+declare 37 generic {
+ void Tk_CreateGenericHandler (Tk_GenericProc *proc, ClientData clientData)
+}
+
+declare 38 generic {
+ void Tk_CreateImageType (Tk_ImageType *typePtr)
+}
+
+declare 39 generic {
+ void Tk_CreateItemType (Tk_ItemType *typePtr)
+}
+
+declare 40 generic {
+ void Tk_CreatePhotoImageFormat (Tk_PhotoImageFormat *formatPtr)
+}
+
+declare 41 generic {
+ void Tk_CreateSelHandler (Tk_Window tkwin, \
+ Atom selection, Atom target, \
+ Tk_SelectionProc *proc, ClientData clientData, \
+ Atom format)
+}
+
+declare 42 generic {
+ Tk_Window Tk_CreateWindow (Tcl_Interp *interp, \
+ Tk_Window parent, char *name, char *screenName)
+}
+
+declare 43 generic {
+ Tk_Window Tk_CreateWindowFromPath (Tcl_Interp *interp, Tk_Window tkwin, \
+ char *pathName, char *screenName)
+}
+
+declare 44 generic {
+ int Tk_DefineBitmap (Tcl_Interp *interp, \
+ Tk_Uid name, char *source, int width, int height)
+}
+
+declare 45 generic {
+ void Tk_DefineCursor (Tk_Window window, Tk_Cursor cursor)
+}
+
+declare 46 generic {
+ void Tk_DeleteAllBindings (Tk_BindingTable bindingTable, ClientData object)
+}
+
+declare 47 generic {
+ int Tk_DeleteBinding (Tcl_Interp *interp, \
+ Tk_BindingTable bindingTable, ClientData object, \
+ char *eventString)
+}
+
+declare 48 generic {
+ void Tk_DeleteBindingTable (Tk_BindingTable bindingTable)
+}
+
+declare 49 generic {
+ void Tk_DeleteErrorHandler (Tk_ErrorHandler handler)
+}
+
+declare 50 generic {
+ void Tk_DeleteEventHandler (Tk_Window token, \
+ unsigned long mask, Tk_EventProc *proc, \
+ ClientData clientData)
+}
+
+declare 51 generic {
+ void Tk_DeleteGenericHandler (Tk_GenericProc *proc, ClientData clientData)
+}
+
+declare 52 generic {
+ void Tk_DeleteImage (Tcl_Interp *interp, char *name)
+}
+
+declare 53 generic {
+ void Tk_DeleteSelHandler (Tk_Window tkwin, Atom selection, Atom target)
+}
+
+declare 54 generic {
+ void Tk_DestroyWindow (Tk_Window tkwin)
+}
+
+declare 55 generic {
+ char * Tk_DisplayName (Tk_Window tkwin)
+}
+
+declare 56 generic {
+ int Tk_DistanceToTextLayout (Tk_TextLayout layout, int x, int y)
+}
+
+declare 57 generic {
+ void Tk_Draw3DPolygon (Tk_Window tkwin, \
+ Drawable drawable, Tk_3DBorder border, \
+ XPoint *pointPtr, int numPoints, int borderWidth, \
+ int leftRelief)
+}
+
+declare 58 generic {
+ void Tk_Draw3DRectangle (Tk_Window tkwin, \
+ Drawable drawable, Tk_3DBorder border, int x, \
+ int y, int width, int height, int borderWidth, \
+ int relief)
+}
+
+declare 59 generic {
+ void Tk_DrawChars (Display *display, \
+ Drawable drawable, GC gc, Tk_Font tkfont, \
+ CONST char *source, int numChars, int x, \
+ int y)
+}
+
+declare 60 generic {
+ void Tk_DrawFocusHighlight (Tk_Window tkwin, \
+ GC gc, int width, Drawable drawable)
+}
+
+declare 61 generic {
+ void Tk_DrawTextLayout (Display *display, \
+ Drawable drawable, GC gc, Tk_TextLayout layout, \
+ int x, int y, int firstChar, int lastChar)
+}
+
+declare 62 generic {
+ void Tk_Fill3DPolygon (Tk_Window tkwin, \
+ Drawable drawable, Tk_3DBorder border, \
+ XPoint *pointPtr, int numPoints, int borderWidth, \
+ int leftRelief)
+}
+
+declare 63 generic {
+ void Tk_Fill3DRectangle (Tk_Window tkwin, \
+ Drawable drawable, Tk_3DBorder border, int x, \
+ int y, int width, int height, int borderWidth, \
+ int relief)
+}
+
+declare 64 generic {
+ Tk_PhotoHandle Tk_FindPhoto (Tcl_Interp *interp, char *imageName)
+}
+
+declare 65 generic {
+ Font Tk_FontId (Tk_Font font)
+}
+
+declare 66 generic {
+ void Tk_Free3DBorder (Tk_3DBorder border)
+}
+
+declare 67 generic {
+ void Tk_FreeBitmap (Display *display, Pixmap bitmap)
+}
+
+declare 68 generic {
+ void Tk_FreeColor (XColor *colorPtr)
+}
+
+declare 69 generic {
+ void Tk_FreeColormap (Display *display, Colormap colormap)
+}
+
+declare 70 generic {
+ void Tk_FreeCursor (Display *display, Tk_Cursor cursor)
+}
+
+declare 71 generic {
+ void Tk_FreeFont (Tk_Font f)
+}
+
+declare 72 generic {
+ void Tk_FreeGC (Display *display, GC gc)
+}
+
+declare 73 generic {
+ void Tk_FreeImage (Tk_Image image)
+}
+
+declare 74 generic {
+ void Tk_FreeOptions (Tk_ConfigSpec *specs, \
+ char *widgRec, Display *display, int needFlags)
+}
+
+declare 75 generic {
+ void Tk_FreePixmap (Display *display, Pixmap pixmap)
+}
+
+declare 76 generic {
+ void Tk_FreeTextLayout (Tk_TextLayout textLayout)
+}
+
+declare 77 generic {
+ void Tk_FreeXId (Display *display, XID xid)
+}
+
+declare 78 generic {
+ GC Tk_GCForColor (XColor *colorPtr, Drawable drawable)
+}
+
+declare 79 generic {
+ void Tk_GeometryRequest (Tk_Window tkwin, int reqWidth, int reqHeight)
+}
+
+declare 80 generic {
+ Tk_3DBorder Tk_Get3DBorder (Tcl_Interp *interp, Tk_Window tkwin, \
+ Tk_Uid colorName)
+}
+
+declare 81 generic {
+ void Tk_GetAllBindings (Tcl_Interp *interp, \
+ Tk_BindingTable bindingTable, ClientData object)
+}
+
+declare 82 generic {
+ int Tk_GetAnchor (Tcl_Interp *interp, \
+ char *string, Tk_Anchor *anchorPtr)
+}
+
+declare 83 generic {
+ char * Tk_GetAtomName (Tk_Window tkwin, Atom atom)
+}
+
+declare 84 generic {
+ char * Tk_GetBinding (Tcl_Interp *interp, \
+ Tk_BindingTable bindingTable, ClientData object, \
+ char *eventString)
+}
+
+declare 85 generic {
+ Pixmap Tk_GetBitmap (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid string)
+}
+
+declare 86 generic {
+ Pixmap Tk_GetBitmapFromData (Tcl_Interp *interp, \
+ Tk_Window tkwin, char *source, int width, int height)
+}
+
+declare 87 generic {
+ int Tk_GetCapStyle (Tcl_Interp *interp, char *string, int *capPtr)
+}
+
+declare 88 generic {
+ XColor * Tk_GetColor (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name)
+}
+
+declare 89 generic {
+ XColor * Tk_GetColorByValue (Tk_Window tkwin, XColor *colorPtr)
+}
+
+declare 90 generic {
+ Colormap Tk_GetColormap (Tcl_Interp *interp, Tk_Window tkwin, char *string)
+}
+
+declare 91 generic {
+ Tk_Cursor Tk_GetCursor (Tcl_Interp *interp, Tk_Window tkwin, \
+ Tk_Uid string)
+}
+
+declare 92 generic {
+ Tk_Cursor Tk_GetCursorFromData (Tcl_Interp *interp, \
+ Tk_Window tkwin, char *source, char *mask, \
+ int width, int height, int xHot, int yHot, \
+ Tk_Uid fg, Tk_Uid bg)
+}
+
+declare 93 generic {
+ Tk_Font Tk_GetFont (Tcl_Interp *interp, \
+ Tk_Window tkwin, CONST char *string)
+}
+
+declare 94 generic {
+ Tk_Font Tk_GetFontFromObj (Tcl_Interp *interp, \
+ Tk_Window tkwin, Tcl_Obj *objPtr)
+}
+
+declare 95 generic {
+ void Tk_GetFontMetrics (Tk_Font font, Tk_FontMetrics *fmPtr)
+}
+
+declare 96 generic {
+ GC Tk_GetGC (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr)
+}
+
+declare 97 generic {
+ Tk_Image Tk_GetImage (Tcl_Interp *interp, Tk_Window tkwin, char *name, \
+ Tk_ImageChangedProc *changeProc, ClientData clientData)
+}
+
+declare 98 generic {
+ ClientData Tk_GetImageMasterData (Tcl_Interp *interp, \
+ char *name, Tk_ImageType **typePtrPtr)
+}
+
+declare 99 generic {
+ Tk_ItemType * Tk_GetItemTypes (void)
+}
+
+declare 100 generic {
+ int Tk_GetJoinStyle (Tcl_Interp *interp, char *string, int *joinPtr)
+}
+
+declare 101 generic {
+ int Tk_GetJustify (Tcl_Interp *interp, \
+ char *string, Tk_Justify *justifyPtr)
+}
+
+declare 102 generic {
+ int Tk_GetNumMainWindows (void)
+}
+
+declare 103 generic {
+ Tk_Uid Tk_GetOption (Tk_Window tkwin, char *name, char *className)
+}
+
+declare 104 generic {
+ int Tk_GetPixels (Tcl_Interp *interp, \
+ Tk_Window tkwin, char *string, int *intPtr)
+}
+
+declare 105 generic {
+ Pixmap Tk_GetPixmap (Display *display, Drawable d, \
+ int width, int height, int depth)
+}
+
+declare 106 generic {
+ int Tk_GetRelief (Tcl_Interp *interp, char *name, int *reliefPtr)
+}
+
+declare 107 generic {
+ void Tk_GetRootCoords (Tk_Window tkwin, int *xPtr, int *yPtr)
+}
+
+declare 108 generic {
+ int Tk_GetScrollInfo (Tcl_Interp *interp, \
+ int argc, char **argv, double *dblPtr, int *intPtr)
+}
+
+declare 109 generic {
+ int Tk_GetScreenMM (Tcl_Interp *interp, \
+ Tk_Window tkwin, char *string, double *doublePtr)
+}
+
+declare 110 generic {
+ int Tk_GetSelection (Tcl_Interp *interp, \
+ Tk_Window tkwin, Atom selection, Atom target, \
+ Tk_GetSelProc *proc, ClientData clientData)
+}
+
+declare 111 generic {
+ Tk_Uid Tk_GetUid (CONST char *string)
+}
+
+declare 112 generic {
+ Visual * Tk_GetVisual (Tcl_Interp *interp, \
+ Tk_Window tkwin, char *string, int *depthPtr, \
+ Colormap *colormapPtr)
+}
+
+declare 113 generic {
+ void Tk_GetVRootGeometry (Tk_Window tkwin, \
+ int *xPtr, int *yPtr, int *widthPtr, int *heightPtr)
+}
+
+declare 114 generic {
+ int Tk_Grab (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal)
+}
+
+declare 115 generic {
+ void Tk_HandleEvent (XEvent *eventPtr)
+}
+
+declare 116 generic {
+ Tk_Window Tk_IdToWindow (Display *display, Window window)
+}
+
+declare 117 generic {
+ void Tk_ImageChanged (Tk_ImageMaster master, int x, int y, \
+ int width, int height, int imageWidth, int imageHeight)
+}
+
+declare 118 generic {
+ int Tk_Init (Tcl_Interp *interp)
+}
+
+declare 119 generic {
+ Atom Tk_InternAtom (Tk_Window tkwin, char *name)
+}
+
+declare 120 generic {
+ int Tk_IntersectTextLayout (Tk_TextLayout layout, int x, int y, \
+ int width, int height)
+}
+
+declare 121 generic {
+ void Tk_MaintainGeometry (Tk_Window slave, \
+ Tk_Window master, int x, int y, int width, int height)
+}
+
+declare 122 generic {
+ Tk_Window Tk_MainWindow (Tcl_Interp *interp)
+}
+
+declare 123 generic {
+ void Tk_MakeWindowExist (Tk_Window tkwin)
+}
+
+declare 124 generic {
+ void Tk_ManageGeometry (Tk_Window tkwin, \
+ Tk_GeomMgr *mgrPtr, ClientData clientData)
+}
+
+declare 125 generic {
+ void Tk_MapWindow (Tk_Window tkwin)
+}
+
+declare 126 generic {
+ int Tk_MeasureChars (Tk_Font tkfont, \
+ CONST char *source, int maxChars, int maxPixels, \
+ int flags, int *lengthPtr)
+}
+
+declare 127 generic {
+ void Tk_MoveResizeWindow (Tk_Window tkwin, \
+ int x, int y, int width, int height)
+}
+
+declare 128 generic {
+ void Tk_MoveWindow (Tk_Window tkwin, int x, int y)
+}
+
+declare 129 generic {
+ void Tk_MoveToplevelWindow (Tk_Window tkwin, int x, int y)
+}
+
+declare 130 generic {
+ char * Tk_NameOf3DBorder (Tk_3DBorder border)
+}
+
+declare 131 generic {
+ char * Tk_NameOfAnchor (Tk_Anchor anchor)
+}
+
+declare 132 generic {
+ char * Tk_NameOfBitmap (Display *display, Pixmap bitmap)
+}
+
+declare 133 generic {
+ char * Tk_NameOfCapStyle (int cap)
+}
+
+declare 134 generic {
+ char * Tk_NameOfColor (XColor *colorPtr)
+}
+
+declare 135 generic {
+ char * Tk_NameOfCursor (Display *display, Tk_Cursor cursor)
+}
+
+declare 136 generic {
+ char * Tk_NameOfFont (Tk_Font font)
+}
+
+declare 137 generic {
+ char * Tk_NameOfImage (Tk_ImageMaster imageMaster)
+}
+
+declare 138 generic {
+ char * Tk_NameOfJoinStyle (int join)
+}
+
+declare 139 generic {
+ char * Tk_NameOfJustify (Tk_Justify justify)
+}
+
+declare 140 generic {
+ char * Tk_NameOfRelief (int relief)
+}
+
+declare 141 generic {
+ Tk_Window Tk_NameToWindow (Tcl_Interp *interp, \
+ char *pathName, Tk_Window tkwin)
+}
+
+declare 142 generic {
+ void Tk_OwnSelection (Tk_Window tkwin, \
+ Atom selection, Tk_LostSelProc *proc, \
+ ClientData clientData)
+}
+
+declare 143 generic {
+ int Tk_ParseArgv (Tcl_Interp *interp, \
+ Tk_Window tkwin, int *argcPtr, char **argv, \
+ Tk_ArgvInfo *argTable, int flags)
+}
+
+declare 144 generic {
+ void Tk_PhotoPutBlock (Tk_PhotoHandle handle, \
+ Tk_PhotoImageBlock *blockPtr, int x, int y, \
+ int width, int height)
+}
+
+declare 145 generic {
+ void Tk_PhotoPutZoomedBlock (Tk_PhotoHandle handle, \
+ Tk_PhotoImageBlock *blockPtr, int x, int y, \
+ int width, int height, int zoomX, int zoomY, \
+ int subsampleX, int subsampleY)
+}
+
+declare 146 generic {
+ int Tk_PhotoGetImage (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr)
+}
+
+declare 147 generic {
+ void Tk_PhotoBlank (Tk_PhotoHandle handle)
+}
+
+declare 148 generic {
+ void Tk_PhotoExpand (Tk_PhotoHandle handle, int width, int height )
+}
+
+declare 149 generic {
+ void Tk_PhotoGetSize (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr)
+}
+
+declare 150 generic {
+ void Tk_PhotoSetSize (Tk_PhotoHandle handle, int width, int height)
+}
+
+declare 151 generic {
+ int Tk_PointToChar (Tk_TextLayout layout, int x, int y)
+}
+
+declare 152 generic {
+ int Tk_PostscriptFontName (Tk_Font tkfont, Tcl_DString *dsPtr)
+}
+
+declare 153 generic {
+ void Tk_PreserveColormap (Display *display, Colormap colormap)
+}
+
+declare 154 generic {
+ void Tk_QueueWindowEvent (XEvent *eventPtr, Tcl_QueuePosition position)
+}
+
+declare 155 generic {
+ void Tk_RedrawImage (Tk_Image image, int imageX, \
+ int imageY, int width, int height, \
+ Drawable drawable, int drawableX, int drawableY)
+}
+
+declare 156 generic {
+ void Tk_ResizeWindow (Tk_Window tkwin, int width, int height)
+}
+
+declare 157 generic {
+ int Tk_RestackWindow (Tk_Window tkwin, int aboveBelow, Tk_Window other)
+}
+
+declare 158 generic {
+ Tk_RestrictProc *Tk_RestrictEvents (Tk_RestrictProc *proc, \
+ ClientData arg, ClientData *prevArgPtr)
+}
+
+declare 159 generic {
+ int Tk_SafeInit (Tcl_Interp *interp)
+}
+
+declare 160 generic {
+ char * Tk_SetAppName (Tk_Window tkwin, char *name)
+}
+
+declare 161 generic {
+ void Tk_SetBackgroundFromBorder (Tk_Window tkwin, Tk_3DBorder border)
+}
+
+declare 162 generic {
+ void Tk_SetClass (Tk_Window tkwin, char *className)
+}
+
+declare 163 generic {
+ void Tk_SetGrid (Tk_Window tkwin, int reqWidth, int reqHeight, \
+ int gridWidth, int gridHeight)
+}
+
+declare 164 generic {
+ void Tk_SetInternalBorder (Tk_Window tkwin, int width)
+}
+
+declare 165 generic {
+ void Tk_SetWindowBackground (Tk_Window tkwin, unsigned long pixel)
+}
+
+declare 166 generic {
+ void Tk_SetWindowBackgroundPixmap (Tk_Window tkwin, Pixmap pixmap)
+}
+
+declare 167 generic {
+ void Tk_SetWindowBorder (Tk_Window tkwin, unsigned long pixel)
+}
+
+declare 168 generic {
+ void Tk_SetWindowBorderWidth (Tk_Window tkwin, int width)
+}
+
+declare 169 generic {
+ void Tk_SetWindowBorderPixmap (Tk_Window tkwin, Pixmap pixmap)
+}
+
+declare 170 generic {
+ void Tk_SetWindowColormap (Tk_Window tkwin, Colormap colormap)
+}
+
+declare 171 generic {
+ int Tk_SetWindowVisual (Tk_Window tkwin, Visual *visual, int depth,\
+ Colormap colormap)
+}
+
+declare 172 generic {
+ void Tk_SizeOfBitmap (Display *display, Pixmap bitmap, int *widthPtr, \
+ int *heightPtr)
+}
+
+declare 173 generic {
+ void Tk_SizeOfImage (Tk_Image image, int *widthPtr, int *heightPtr)
+}
+
+declare 174 generic {
+ int Tk_StrictMotif (Tk_Window tkwin)
+}
+
+declare 175 generic {
+ void Tk_TextLayoutToPostscript (Tcl_Interp *interp, Tk_TextLayout layout)
+}
+
+declare 176 generic {
+ int Tk_TextWidth (Tk_Font font, CONST char *string, int numChars)
+}
+
+declare 177 generic {
+ void Tk_UndefineCursor (Tk_Window window)
+}
+
+declare 178 generic {
+ void Tk_UnderlineChars (Display *display, \
+ Drawable drawable, GC gc, Tk_Font tkfont, \
+ CONST char *source, int x, int y, int firstChar, \
+ int lastChar)
+}
+
+declare 179 generic {
+ void Tk_UnderlineTextLayout (Display *display, Drawable drawable, GC gc, \
+ Tk_TextLayout layout, int x, int y, \
+ int underline)
+}
+
+declare 180 generic {
+ void Tk_Ungrab (Tk_Window tkwin)
+}
+
+declare 181 generic {
+ void Tk_UnmaintainGeometry (Tk_Window slave, Tk_Window master)
+}
+
+declare 182 generic {
+ void Tk_UnmapWindow (Tk_Window tkwin)
+}
+
+declare 183 generic {
+ void Tk_UnsetGrid (Tk_Window tkwin)
+}
+
+declare 184 generic {
+ void Tk_UpdatePointer (Tk_Window tkwin, int x, int y, int state)
+}
+
+
+# Define the platform specific public Tk interface. These functions are
+# only available on the designated platform.
+
+interface tkPlat
+
+# Unix specific functions
+# (none)
+
+# Windows specific functions
+
+declare 0 win {
+ Window Tk_AttachHWND (Tk_Window tkwin, HWND hwnd)
+}
+
+declare 1 win {
+ HINSTANCE Tk_GetHINSTANCE (void)
+}
+
+declare 2 win {
+ HWND Tk_GetHWND (Window window)
+}
+
+declare 3 win {
+ Tk_Window Tk_HWNDToWindow (HWND hwnd)
+}
+
+declare 4 win {
+ void Tk_PointerEvent (HWND hwnd, int x, int y)
+}
+
+declare 5 win {
+ int Tk_TranslateWinEvent (HWND hwnd, \
+ UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result)
+}
+
+# Mac specific functions
+
+declare 0 mac {
+ void Tk_MacSetEmbedHandler ( \
+ Tk_MacEmbedRegisterWinProc *registerWinProcPtr, \
+ Tk_MacEmbedGetGrafPortProc *getPortProcPtr, \
+ Tk_MacEmbedMakeContainerExistProc *containerExistProcPtr, \
+ Tk_MacEmbedGetClipProc *getClipProc, \
+ Tk_MacEmbedGetOffsetInParentProc *getOffsetProc)
+}
+
+declare 1 mac {
+ void Tk_MacTurnOffMenus (void)
+}
+
+declare 2 mac {
+ void Tk_MacTkOwnsCursor (int tkOwnsIt)
+}
+
+declare 3 mac {
+ void TkMacInitMenus (Tcl_Interp *interp)
+}
+
+declare 4 mac {
+ void TkMacInitAppleEvents (Tcl_Interp *interp)
+}
+
+declare 5 mac {
+ int TkMacConvertEvent (EventRecord *eventPtr)
+}
+
+declare 6 mac {
+ int TkMacConvertTkEvent (EventRecord *eventPtr, Window window)
+}
+
+declare 7 mac {
+ void TkGenWMConfigureEvent (Tk_Window tkwin, \
+ int x, int y, int width, int height, int flags)
+}
+
+declare 8 mac {
+ void TkMacInvalClipRgns (TkWindow *winPtr)
+}
+
+declare 9 mac {
+ int TkMacHaveAppearance (void)
+}
+
+declare 10 mac {
+ GWorldPtr TkMacGetDrawablePort (Drawable drawable)
+}
+
diff --git a/generic/tk.h b/generic/tk.h
index 0bd5040..69ca6a7 100644
--- a/generic/tk.h
+++ b/generic/tk.h
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tk.h,v 1.19 1999/02/04 21:03:27 stanton Exp $
+ * RCS: @(#) $Id: tk.h,v 1.20 1999/03/10 07:04:38 stanton Exp $
*/
#ifndef _TK
@@ -82,9 +82,15 @@
# include <stddef.h>
#endif
+#undef TCL_STORAGE_CLASS
#ifdef BUILD_tk
-# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
+#else
+# ifdef USE_TK_STUBS
+# define TCL_STORAGE_CLASS
+# else
+# define TCL_STORAGE_CLASS DLLIMPORT
+# endif
#endif
/*
@@ -1045,512 +1051,32 @@ typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_((
typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData,
int offset, char *buffer, int maxBytes));
+
/*
- *--------------------------------------------------------------
- *
- * Exported procedures and variables.
- *
- *--------------------------------------------------------------
+ * Public functions that are not accessible via the stubs table.
*/
-EXTERN XColor * Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border));
-EXTERN GC Tk_3DBorderGC _ANSI_ARGS_((Tk_Window tkwin,
- Tk_3DBorder border, int which));
-EXTERN void Tk_3DHorizontalBevel _ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height, int leftIn,
- int rightIn, int topBevel, int relief));
-EXTERN void Tk_3DVerticalBevel _ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height, int leftBevel,
- int relief));
-EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, char *name,
- char *value, int priority));
-EXTERN void Tk_BindEvent _ANSI_ARGS_((Tk_BindingTable bindingTable,
- XEvent *eventPtr, Tk_Window tkwin, int numObjects,
- ClientData *objectPtr));
-EXTERN void Tk_CanvasDrawableCoords _ANSI_ARGS_((Tk_Canvas canvas,
- double x, double y, short *drawableXPtr,
- short *drawableYPtr));
-EXTERN void Tk_CanvasEventuallyRedraw _ANSI_ARGS_((
- Tk_Canvas canvas, int x1, int y1, int x2,
- int y2));
-EXTERN int Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Canvas canvas, char *string,
- double *doublePtr));
-EXTERN Tk_CanvasTextInfo *Tk_CanvasGetTextInfo _ANSI_ARGS_((Tk_Canvas canvas));
-EXTERN int Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Canvas canvas, Pixmap bitmap, int x, int y,
- int width, int height));
-EXTERN int Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Canvas canvas, XColor *colorPtr));
-EXTERN int Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Canvas canvas, Tk_Font font));
-EXTERN void Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Canvas canvas, double *coordPtr, int numPoints));
-EXTERN int Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Canvas canvas, Pixmap bitmap));
-EXTERN double Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y));
-EXTERN void Tk_CanvasSetStippleOrigin _ANSI_ARGS_((
- Tk_Canvas canvas, GC gc));
-EXTERN int Tk_CanvasTagsParseProc _ANSI_ARGS_((
- ClientData clientData, Tcl_Interp *interp,
- Tk_Window tkwin, char *value, char *widgRec,
- int offset));
-EXTERN char * Tk_CanvasTagsPrintProc _ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin,
- char *widgRec, int offset,
- Tcl_FreeProc **freeProcPtr));
-EXTERN Tk_Window Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas));
-EXTERN void Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas,
- double x, double y, short *screenXPtr,
- short *screenYPtr));
-EXTERN void Tk_ChangeWindowAttributes _ANSI_ARGS_((Tk_Window tkwin,
- unsigned long valueMask,
- XSetWindowAttributes *attsPtr));
-EXTERN int Tk_CharBbox _ANSI_ARGS_((Tk_TextLayout layout,
- int index, int *xPtr, int *yPtr, int *widthPtr,
- int *heightPtr));
-EXTERN void Tk_ClearSelection _ANSI_ARGS_((Tk_Window tkwin,
- Atom selection));
-EXTERN int Tk_ClipboardAppend _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Atom target, Atom format,
- char* buffer));
-EXTERN int Tk_ClipboardClear _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin));
-EXTERN int Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_ConfigSpec *specs,
- char *widgRec, char *argvName, int flags));
-EXTERN int Tk_ConfigureValue _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_ConfigSpec *specs,
- char *widgRec, char *argvName, int flags));
-EXTERN int Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_ConfigSpec *specs,
- int argc, char **argv, char *widgRec,
- int flags));
-EXTERN void Tk_ConfigureWindow _ANSI_ARGS_((Tk_Window tkwin,
- unsigned int valueMask, XWindowChanges *valuePtr));
-EXTERN Tk_TextLayout Tk_ComputeTextLayout _ANSI_ARGS_((Tk_Font font,
- CONST char *string, int numChars, int wrapLength,
- Tk_Justify justify, int flags, int *widthPtr,
- int *heightPtr));
-EXTERN Tk_Window Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY,
- Tk_Window tkwin));
-EXTERN unsigned long Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_BindingTable bindingTable, ClientData object,
- char *eventString, char *command, int append));
-EXTERN Tk_BindingTable Tk_CreateBindingTable _ANSI_ARGS_((Tcl_Interp *interp));
-EXTERN Tk_ErrorHandler Tk_CreateErrorHandler _ANSI_ARGS_((Display *display,
- int errNum, int request, int minorCode,
- Tk_ErrorProc *errorProc, ClientData clientData));
-EXTERN void Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token,
- unsigned long mask, Tk_EventProc *proc,
- ClientData clientData));
-EXTERN void Tk_CreateGenericHandler _ANSI_ARGS_((
- Tk_GenericProc *proc, ClientData clientData));
-EXTERN void Tk_CreateImageType _ANSI_ARGS_((
- Tk_ImageType *typePtr));
-EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType *typePtr));
-EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_((
- Tk_PhotoImageFormat *formatPtr));
-EXTERN void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin,
- Atom selection, Atom target,
- Tk_SelectionProc *proc, ClientData clientData,
- Atom format));
-EXTERN Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window parent, char *name, char *screenName));
-EXTERN Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_((
- Tcl_Interp *interp, Tk_Window tkwin,
- char *pathName, char *screenName));
-EXTERN int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Uid name, char *source, int width,
- int height));
-EXTERN void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window,
- Tk_Cursor cursor));
-EXTERN void Tk_DeleteAllBindings _ANSI_ARGS_((
- Tk_BindingTable bindingTable, ClientData object));
-EXTERN int Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_BindingTable bindingTable, ClientData object,
- char *eventString));
-EXTERN void Tk_DeleteBindingTable _ANSI_ARGS_((
- Tk_BindingTable bindingTable));
-EXTERN void Tk_DeleteErrorHandler _ANSI_ARGS_((
- Tk_ErrorHandler handler));
-EXTERN void Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token,
- unsigned long mask, Tk_EventProc *proc,
- ClientData clientData));
-EXTERN void Tk_DeleteGenericHandler _ANSI_ARGS_((
- Tk_GenericProc *proc, ClientData clientData));
-EXTERN void Tk_DeleteImage _ANSI_ARGS_((Tcl_Interp *interp,
- char *name));
-EXTERN void Tk_DeleteSelHandler _ANSI_ARGS_((Tk_Window tkwin,
- Atom selection, Atom target));
-EXTERN void Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN char * Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN int Tk_DistanceToTextLayout _ANSI_ARGS_((
- Tk_TextLayout layout, int x, int y));
-EXTERN void Tk_Draw3DPolygon _ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border,
- XPoint *pointPtr, int numPoints, int borderWidth,
- int leftRelief));
-EXTERN void Tk_Draw3DRectangle _ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height, int borderWidth,
- int relief));
-EXTERN void Tk_DrawChars _ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc, Tk_Font tkfont,
- CONST char *source, int numChars, int x,
- int y));
-EXTERN void Tk_DrawFocusHighlight _ANSI_ARGS_((Tk_Window tkwin,
- GC gc, int width, Drawable drawable));
-EXTERN void Tk_DrawTextLayout _ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc, Tk_TextLayout layout,
- int x, int y, int firstChar, int lastChar));
-EXTERN void Tk_Fill3DPolygon _ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border,
- XPoint *pointPtr, int numPoints, int borderWidth,
- int leftRelief));
-EXTERN void Tk_Fill3DRectangle _ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height, int borderWidth,
- int relief));
-EXTERN Tk_PhotoHandle Tk_FindPhoto _ANSI_ARGS_((Tcl_Interp *interp,
- char *imageName));
-EXTERN Font Tk_FontId _ANSI_ARGS_((Tk_Font font));
-EXTERN void Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border));
-EXTERN void Tk_FreeBitmap _ANSI_ARGS_((Display *display,
- Pixmap bitmap));
-EXTERN void Tk_FreeColor _ANSI_ARGS_((XColor *colorPtr));
-EXTERN void Tk_FreeColormap _ANSI_ARGS_((Display *display,
- Colormap colormap));
-EXTERN void Tk_FreeCursor _ANSI_ARGS_((Display *display,
- Tk_Cursor cursor));
-EXTERN void Tk_FreeFont _ANSI_ARGS_((Tk_Font));
-EXTERN void Tk_FreeGC _ANSI_ARGS_((Display *display, GC gc));
-EXTERN void Tk_FreeImage _ANSI_ARGS_((Tk_Image image));
-EXTERN void Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec *specs,
- char *widgRec, Display *display, int needFlags));
-EXTERN void Tk_FreePixmap _ANSI_ARGS_((Display *display,
- Pixmap pixmap));
-EXTERN void Tk_FreeTextLayout _ANSI_ARGS_((
- Tk_TextLayout textLayout));
-EXTERN void Tk_FreeXId _ANSI_ARGS_((Display *display, XID xid));
-EXTERN GC Tk_GCForColor _ANSI_ARGS_((XColor *colorPtr,
- Drawable drawable));
-EXTERN void Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin,
- int reqWidth, int reqHeight));
-EXTERN Tk_3DBorder Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_Uid colorName));
-EXTERN void Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_BindingTable bindingTable, ClientData object));
-EXTERN int Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp *interp,
- char *string, Tk_Anchor *anchorPtr));
-EXTERN char * Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin,
- Atom atom));
-EXTERN char * Tk_GetBinding _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_BindingTable bindingTable, ClientData object,
- char *eventString));
-EXTERN Pixmap Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_Uid string));
-EXTERN Pixmap Tk_GetBitmapFromData _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *source,
- int width, int height));
-EXTERN int Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp *interp,
- char *string, int *capPtr));
-EXTERN XColor * Tk_GetColor _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_Uid name));
-EXTERN XColor * Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin,
- XColor *colorPtr));
-EXTERN Colormap Tk_GetColormap _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *string));
-EXTERN Tk_Cursor Tk_GetCursor _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_Uid string));
-EXTERN Tk_Cursor Tk_GetCursorFromData _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *source, char *mask,
- int width, int height, int xHot, int yHot,
- Tk_Uid fg, Tk_Uid bg));
-EXTERN Tk_Font Tk_GetFont _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *string));
-EXTERN Tk_Font Tk_GetFontFromObj _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tcl_Obj *objPtr));
-EXTERN void Tk_GetFontMetrics _ANSI_ARGS_((Tk_Font font,
- Tk_FontMetrics *fmPtr));
-EXTERN GC Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin,
- unsigned long valueMask, XGCValues *valuePtr));
-EXTERN Tk_Image Tk_GetImage _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *name,
- Tk_ImageChangedProc *changeProc,
- ClientData clientData));
-EXTERN ClientData Tk_GetImageMasterData _ANSI_ARGS_ ((Tcl_Interp *interp,
- char *name, Tk_ImageType **typePtrPtr));
-EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void));
-EXTERN int Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp *interp,
- char *string, int *joinPtr));
-EXTERN int Tk_GetJustify _ANSI_ARGS_((Tcl_Interp *interp,
- char *string, Tk_Justify *justifyPtr));
-EXTERN int Tk_GetNumMainWindows _ANSI_ARGS_((void));
-EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, char *name,
- char *className));
-EXTERN int Tk_GetPixels _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *string, int *intPtr));
-EXTERN Pixmap Tk_GetPixmap _ANSI_ARGS_((Display *display, Drawable d,
- int width, int height, int depth));
-EXTERN int Tk_GetRelief _ANSI_ARGS_((Tcl_Interp *interp,
- char *name, int *reliefPtr));
-EXTERN void Tk_GetRootCoords _ANSI_ARGS_ ((Tk_Window tkwin,
- int *xPtr, int *yPtr));
-EXTERN int Tk_GetScrollInfo _ANSI_ARGS_((Tcl_Interp *interp,
- int argc, char **argv, double *dblPtr,
- int *intPtr));
-EXTERN int Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *string, double *doublePtr));
-EXTERN int Tk_GetSelection _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Atom selection, Atom target,
- Tk_GetSelProc *proc, ClientData clientData));
-EXTERN Tk_Uid Tk_GetUid _ANSI_ARGS_((CONST char *string));
-EXTERN Visual * Tk_GetVisual _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *string, int *depthPtr,
- Colormap *colormapPtr));
-EXTERN void Tk_GetVRootGeometry _ANSI_ARGS_((Tk_Window tkwin,
- int *xPtr, int *yPtr, int *widthPtr,
- int *heightPtr));
-EXTERN int Tk_Grab _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, int grabGlobal));
-EXTERN void Tk_HandleEvent _ANSI_ARGS_((XEvent *eventPtr));
-EXTERN Tk_Window Tk_IdToWindow _ANSI_ARGS_((Display *display,
- Window window));
-EXTERN void Tk_ImageChanged _ANSI_ARGS_((
- Tk_ImageMaster master, int x, int y,
- int width, int height, int imageWidth,
- int imageHeight));
-EXTERN int Tk_Init _ANSI_ARGS_((Tcl_Interp *interp));
-EXTERN Atom Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin,
- char *name));
-EXTERN int Tk_IntersectTextLayout _ANSI_ARGS_((
- Tk_TextLayout layout, int x, int y, int width,
- int height));
EXTERN void Tk_Main _ANSI_ARGS_((int argc, char **argv,
Tcl_AppInitProc *appInitProc));
-EXTERN void Tk_MainLoop _ANSI_ARGS_((void));
-EXTERN void Tk_MaintainGeometry _ANSI_ARGS_((Tk_Window slave,
- Tk_Window master, int x, int y, int width,
- int height));
-EXTERN Tk_Window Tk_MainWindow _ANSI_ARGS_((Tcl_Interp *interp));
-EXTERN void Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN void Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin,
- Tk_GeomMgr *mgrPtr, ClientData clientData));
-EXTERN void Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN int Tk_MeasureChars _ANSI_ARGS_((Tk_Font tkfont,
- CONST char *source, int maxChars, int maxPixels,
- int flags, int *lengthPtr));
-EXTERN void Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin,
- int x, int y, int width, int height));
-EXTERN void Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x,
- int y));
-EXTERN void Tk_MoveToplevelWindow _ANSI_ARGS_((Tk_Window tkwin,
- int x, int y));
-EXTERN char * Tk_NameOf3DBorder _ANSI_ARGS_((Tk_3DBorder border));
-EXTERN char * Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor));
-EXTERN char * Tk_NameOfBitmap _ANSI_ARGS_((Display *display,
- Pixmap bitmap));
-EXTERN char * Tk_NameOfCapStyle _ANSI_ARGS_((int cap));
-EXTERN char * Tk_NameOfColor _ANSI_ARGS_((XColor *colorPtr));
-EXTERN char * Tk_NameOfCursor _ANSI_ARGS_((Display *display,
- Tk_Cursor cursor));
-EXTERN char * Tk_NameOfFont _ANSI_ARGS_((Tk_Font font));
-EXTERN char * Tk_NameOfImage _ANSI_ARGS_((
- Tk_ImageMaster imageMaster));
-EXTERN char * Tk_NameOfJoinStyle _ANSI_ARGS_((int join));
-EXTERN char * Tk_NameOfJustify _ANSI_ARGS_((Tk_Justify justify));
-EXTERN char * Tk_NameOfRelief _ANSI_ARGS_((int relief));
-EXTERN Tk_Window Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp *interp,
- char *pathName, Tk_Window tkwin));
-EXTERN void Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin,
- Atom selection, Tk_LostSelProc *proc,
- ClientData clientData));
-EXTERN int Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, int *argcPtr, char **argv,
- Tk_ArgvInfo *argTable, int flags));
-EXTERN void Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle,
- Tk_PhotoImageBlock *blockPtr, int x, int y,
- int width, int height));
-EXTERN void Tk_PhotoPutZoomedBlock _ANSI_ARGS_((
- Tk_PhotoHandle handle,
- Tk_PhotoImageBlock *blockPtr, int x, int y,
- int width, int height, int zoomX, int zoomY,
- int subsampleX, int subsampleY));
-EXTERN int Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle,
- Tk_PhotoImageBlock *blockPtr));
-EXTERN void Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle));
-EXTERN void Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle,
- int width, int height ));
-EXTERN void Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle,
- int *widthPtr, int *heightPtr));
-EXTERN void Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle,
- int width, int height));
-EXTERN int Tk_PointToChar _ANSI_ARGS_((Tk_TextLayout layout,
- int x, int y));
-EXTERN int Tk_PostscriptFontName _ANSI_ARGS_((Tk_Font tkfont,
- Tcl_DString *dsPtr));
-EXTERN void Tk_PreserveColormap _ANSI_ARGS_((Display *display,
- Colormap colormap));
-EXTERN void Tk_QueueWindowEvent _ANSI_ARGS_((XEvent *eventPtr,
- Tcl_QueuePosition position));
-EXTERN void Tk_RedrawImage _ANSI_ARGS_((Tk_Image image, int imageX,
- int imageY, int width, int height,
- Drawable drawable, int drawableX, int drawableY));
-EXTERN void Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin,
- int width, int height));
-EXTERN int Tk_RestackWindow _ANSI_ARGS_((Tk_Window tkwin,
- int aboveBelow, Tk_Window other));
-EXTERN Tk_RestrictProc *Tk_RestrictEvents _ANSI_ARGS_((Tk_RestrictProc *proc,
- ClientData arg, ClientData *prevArgPtr));
-EXTERN int Tk_SafeInit _ANSI_ARGS_((Tcl_Interp *interp));
-EXTERN char * Tk_SetAppName _ANSI_ARGS_((Tk_Window tkwin,
- char *name));
-EXTERN void Tk_SetBackgroundFromBorder _ANSI_ARGS_((
- Tk_Window tkwin, Tk_3DBorder border));
-EXTERN void Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin,
- char *className));
-EXTERN void Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin,
- int reqWidth, int reqHeight, int gridWidth,
- int gridHeight));
-EXTERN void Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin,
- int width));
-EXTERN void Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin,
- unsigned long pixel));
-EXTERN void Tk_SetWindowBackgroundPixmap _ANSI_ARGS_((
- Tk_Window tkwin, Pixmap pixmap));
-EXTERN void Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin,
- unsigned long pixel));
-EXTERN void Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin,
- int width));
-EXTERN void Tk_SetWindowBorderPixmap _ANSI_ARGS_((Tk_Window tkwin,
- Pixmap pixmap));
-EXTERN void Tk_SetWindowColormap _ANSI_ARGS_((Tk_Window tkwin,
- Colormap colormap));
-EXTERN int Tk_SetWindowVisual _ANSI_ARGS_((Tk_Window tkwin,
- Visual *visual, int depth,
- Colormap colormap));
-EXTERN void Tk_SizeOfBitmap _ANSI_ARGS_((Display *display,
- Pixmap bitmap, int *widthPtr,
- int *heightPtr));
-EXTERN void Tk_SizeOfImage _ANSI_ARGS_((Tk_Image image,
- int *widthPtr, int *heightPtr));
-EXTERN int Tk_StrictMotif _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN void Tk_TextLayoutToPostscript _ANSI_ARGS_((
- Tcl_Interp *interp, Tk_TextLayout layout));
-EXTERN int Tk_TextWidth _ANSI_ARGS_((Tk_Font font,
- CONST char *string, int numChars));
-EXTERN void Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window));
-EXTERN void Tk_UnderlineChars _ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc, Tk_Font tkfont,
- CONST char *source, int x, int y, int firstChar,
- int lastChar));
-EXTERN void Tk_UnderlineTextLayout _ANSI_ARGS_((
- Display *display, Drawable drawable, GC gc,
- Tk_TextLayout layout, int x, int y,
- int underline));
-EXTERN void Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN void Tk_UnmaintainGeometry _ANSI_ARGS_((Tk_Window slave,
- Tk_Window master));
-EXTERN void Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN void Tk_UnsetGrid _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin,
- int x, int y, int state));
+EXTERN void Tk_MainEx _ANSI_ARGS_((int argc, char **argv,
+ Tcl_AppInitProc *appInitProc, Tcl_Interp *interp));
/*
- * Tcl commands exported by Tk:
+ * Stubs initialization function. This function should be invoked before
+ * any other Tk functions in a stubs-aware extension. Tk_InitStubs is
+ * implemented in the stub library, not the main Tk library. In directly
+ * linked code, this function turns into a call to Tcl_PkgRequire().
*/
-EXTERN int Tk_BellObjCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[]));
-EXTERN int Tk_BindCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_BindtagsCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ButtonCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_CheckbuttonCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ChooseColorCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_EntryCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_EventCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_FrameCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_FocusCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[]));
-EXTERN int Tk_GetOpenFileCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_GetSaveFileCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_GrabCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_GridCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ImageCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_LabelCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ListboxCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_LowerCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_MenuCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_MenubuttonCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_MessageBoxCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_MessageCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_OptionCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_PackCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_RadiobuttonCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ScaleCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_SendCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_TextCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_TkObjCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[]));
-EXTERN int Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_ToplevelCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_UpdateCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[]));
-EXTERN int Tk_WmCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
+EXTERN char * Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp,
+ char *version, int exact));
+
+#ifndef USE_TK_STUBS
+#define Tk_InitStubs(interp, version, exact) \
+ Tcl_PkgRequire(interp, "Tk", version, exact)
+#endif
+
+#include "tkDecls.h"
#endif /* RESOURCE_INCLUDED */
diff --git a/generic/tkBind.c b/generic/tkBind.c
index 8166b18..72bcd2e 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -11,12 +11,16 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkBind.c,v 1.4 1998/10/10 00:30:36 rjohnson Exp $
+ * RCS: @(#) $Id: tkBind.c,v 1.5 1999/03/10 07:04:38 stanton Exp $
*/
#include "tkPort.h"
#include "tkInt.h"
+#ifdef __WIN32__
+#include "tkWinInt.h"
+#endif
+
/*
* File structure:
*
diff --git a/generic/tkCmds.c b/generic/tkCmds.c
index e16b490..19d05ca 100644
--- a/generic/tkCmds.c
+++ b/generic/tkCmds.c
@@ -11,13 +11,21 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkCmds.c,v 1.4 1998/09/30 19:01:19 rjohnson Exp $
+ * RCS: @(#) $Id: tkCmds.c,v 1.5 1999/03/10 07:04:39 stanton Exp $
*/
#include "tkPort.h"
#include "tkInt.h"
#include <errno.h>
+#if defined(__WIN32__)
+#include "tkWinInt.h"
+#elif defined(MAC_TCL)
+#include "tkMacInt.h"
+#else
+#include "tkUnixInt.h"
+#endif
+
/*
* Forward declarations for procedures defined later in this file:
*/
diff --git a/generic/tkConsole.c b/generic/tkConsole.c
index 0ff1479..810847e 100644
--- a/generic/tkConsole.c
+++ b/generic/tkConsole.c
@@ -10,10 +10,11 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkConsole.c,v 1.3 1999/02/04 20:51:36 stanton Exp $
+ * RCS: @(#) $Id: tkConsole.c,v 1.4 1999/03/10 07:04:39 stanton Exp $
*/
#include "tk.h"
+#include "tkInt.h"
#include <string.h>
/*
@@ -36,6 +37,7 @@ static Tcl_Interp *gStdoutInterp = NULL;
*/
void TkConsoleCreate _ANSI_ARGS_((void));
+void TkConsoleCreate_ _ANSI_ARGS_((void));
int TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp));
void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp,
int devId, char *buffer, long size));
@@ -79,7 +81,7 @@ static Tcl_ChannelType consoleChannelType = {
/*
*----------------------------------------------------------------------
*
- * TkConsoleCreate --
+ * TkConsoleCreate, TkConsoleCreate_ --
*
* Create the console channels and install them as the standard
* channels. All I/O will be discarded until TkConsoleInit is
@@ -98,6 +100,17 @@ static Tcl_ChannelType consoleChannelType = {
void
TkConsoleCreate()
{
+ /*
+ * This function is being disabled so we don't end up calling it
+ * twice. Once from WinMain() and once from Tk_Main(). The real
+ * function is now TkConsoleCreate_ and is only called from Tk_Main.
+ * All of is an ugly hack.
+ */
+}
+
+void
+TkConsoleCreate_()
+{
Tcl_Channel consoleChannel;
consoleChannel = Tcl_CreateChannel(&consoleChannelType, "console0",
@@ -155,6 +168,7 @@ TkConsoleInit(interp)
#endif
consoleInterp = Tcl_CreateInterp();
+
if (consoleInterp == NULL) {
goto error;
}
diff --git a/generic/tkDecls.h b/generic/tkDecls.h
new file mode 100644
index 0000000..ba3512c
--- /dev/null
+++ b/generic/tkDecls.h
@@ -0,0 +1,1595 @@
+/*
+ * tkDecls.h --
+ *
+ * Declarations of functions in the platform independent 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: tkDecls.h,v 1.2 1999/03/10 07:04:39 stanton Exp $
+ */
+
+#ifndef _TKDECLS
+#define _TKDECLS
+
+#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:
+ */
+
+/* 0 */
+EXTERN void Tk_MainLoop _ANSI_ARGS_((void));
+/* 1 */
+EXTERN XColor * Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border));
+/* 2 */
+EXTERN GC Tk_3DBorderGC _ANSI_ARGS_((Tk_Window tkwin,
+ Tk_3DBorder border, int which));
+/* 3 */
+EXTERN void Tk_3DHorizontalBevel _ANSI_ARGS_((Tk_Window tkwin,
+ Drawable drawable, Tk_3DBorder border, int x,
+ int y, int width, int height, int leftIn,
+ int rightIn, int topBevel, int relief));
+/* 4 */
+EXTERN void Tk_3DVerticalBevel _ANSI_ARGS_((Tk_Window tkwin,
+ Drawable drawable, Tk_3DBorder border, int x,
+ int y, int width, int height, int leftBevel,
+ int relief));
+/* 5 */
+EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin,
+ char * name, char * value, int priority));
+/* 6 */
+EXTERN void Tk_BindEvent _ANSI_ARGS_((
+ Tk_BindingTable bindingTable,
+ XEvent * eventPtr, Tk_Window tkwin,
+ int numObjects, ClientData * objectPtr));
+/* 7 */
+EXTERN void Tk_CanvasDrawableCoords _ANSI_ARGS_((
+ Tk_Canvas canvas, double x, double y,
+ short * drawableXPtr, short * drawableYPtr));
+/* 8 */
+EXTERN void Tk_CanvasEventuallyRedraw _ANSI_ARGS_((
+ Tk_Canvas canvas, int x1, int y1, int x2,
+ int y2));
+/* 9 */
+EXTERN int Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Canvas canvas, char * string,
+ double * doublePtr));
+/* 10 */
+EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo _ANSI_ARGS_((
+ Tk_Canvas canvas));
+/* 11 */
+EXTERN int Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Canvas canvas, Pixmap bitmap, int x,
+ int y, int width, int height));
+/* 12 */
+EXTERN int Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Canvas canvas, XColor * colorPtr));
+/* 13 */
+EXTERN int Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Canvas canvas, Tk_Font font));
+/* 14 */
+EXTERN void Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Canvas canvas, double * coordPtr,
+ int numPoints));
+/* 15 */
+EXTERN int Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Canvas canvas, Pixmap bitmap));
+/* 16 */
+EXTERN double Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y));
+/* 17 */
+EXTERN void Tk_CanvasSetStippleOrigin _ANSI_ARGS_((
+ Tk_Canvas canvas, GC gc));
+/* 18 */
+EXTERN int Tk_CanvasTagsParseProc _ANSI_ARGS_((
+ ClientData clientData, Tcl_Interp * interp,
+ Tk_Window tkwin, char * value,
+ char * widgRec, int offset));
+/* 19 */
+EXTERN char * Tk_CanvasTagsPrintProc _ANSI_ARGS_((
+ ClientData clientData, Tk_Window tkwin,
+ char * widgRec, int offset,
+ Tcl_FreeProc ** freeProcPtr));
+/* 20 */
+EXTERN Tk_Window Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas));
+/* 21 */
+EXTERN void Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas,
+ double x, double y, short * screenXPtr,
+ short * screenYPtr));
+/* 22 */
+EXTERN void Tk_ChangeWindowAttributes _ANSI_ARGS_((
+ Tk_Window tkwin, unsigned long valueMask,
+ XSetWindowAttributes * attsPtr));
+/* 23 */
+EXTERN int Tk_CharBbox _ANSI_ARGS_((Tk_TextLayout layout,
+ int index, int * xPtr, int * yPtr,
+ int * widthPtr, int * heightPtr));
+/* 24 */
+EXTERN void Tk_ClearSelection _ANSI_ARGS_((Tk_Window tkwin,
+ Atom selection));
+/* 25 */
+EXTERN int Tk_ClipboardAppend _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Atom target, Atom format,
+ char* buffer));
+/* 26 */
+EXTERN int Tk_ClipboardClear _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin));
+/* 27 */
+EXTERN int Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_ConfigSpec * specs,
+ char * widgRec, char * argvName, int flags));
+/* 28 */
+EXTERN int Tk_ConfigureValue _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_ConfigSpec * specs,
+ char * widgRec, char * argvName, int flags));
+/* 29 */
+EXTERN int Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_ConfigSpec * specs,
+ int argc, char ** argv, char * widgRec,
+ int flags));
+/* 30 */
+EXTERN void Tk_ConfigureWindow _ANSI_ARGS_((Tk_Window tkwin,
+ unsigned int valueMask,
+ XWindowChanges * valuePtr));
+/* 31 */
+EXTERN Tk_TextLayout Tk_ComputeTextLayout _ANSI_ARGS_((Tk_Font font,
+ CONST char * string, int numChars,
+ int wrapLength, Tk_Justify justify,
+ int flags, int * widthPtr, int * heightPtr));
+/* 32 */
+EXTERN Tk_Window Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY,
+ Tk_Window tkwin));
+/* 33 */
+EXTERN unsigned long Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_BindingTable bindingTable,
+ ClientData object, char * eventString,
+ char * command, int append));
+/* 34 */
+EXTERN Tk_BindingTable Tk_CreateBindingTable _ANSI_ARGS_((
+ Tcl_Interp * interp));
+/* 35 */
+EXTERN Tk_ErrorHandler Tk_CreateErrorHandler _ANSI_ARGS_((Display * display,
+ int errNum, int request, int minorCode,
+ Tk_ErrorProc * errorProc,
+ ClientData clientData));
+/* 36 */
+EXTERN void Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token,
+ unsigned long mask, Tk_EventProc * proc,
+ ClientData clientData));
+/* 37 */
+EXTERN void Tk_CreateGenericHandler _ANSI_ARGS_((
+ Tk_GenericProc * proc, ClientData clientData));
+/* 38 */
+EXTERN void Tk_CreateImageType _ANSI_ARGS_((
+ Tk_ImageType * typePtr));
+/* 39 */
+EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType * typePtr));
+/* 40 */
+EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_((
+ Tk_PhotoImageFormat * formatPtr));
+/* 41 */
+EXTERN void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin,
+ Atom selection, Atom target,
+ Tk_SelectionProc * proc,
+ ClientData clientData, Atom format));
+/* 42 */
+EXTERN Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window parent, char * name,
+ char * screenName));
+/* 43 */
+EXTERN Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_((
+ Tcl_Interp * interp, Tk_Window tkwin,
+ char * pathName, char * screenName));
+/* 44 */
+EXTERN int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Uid name, char * source, int width,
+ int height));
+/* 45 */
+EXTERN void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window,
+ Tk_Cursor cursor));
+/* 46 */
+EXTERN void Tk_DeleteAllBindings _ANSI_ARGS_((
+ Tk_BindingTable bindingTable,
+ ClientData object));
+/* 47 */
+EXTERN int Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_BindingTable bindingTable,
+ ClientData object, char * eventString));
+/* 48 */
+EXTERN void Tk_DeleteBindingTable _ANSI_ARGS_((
+ Tk_BindingTable bindingTable));
+/* 49 */
+EXTERN void Tk_DeleteErrorHandler _ANSI_ARGS_((
+ Tk_ErrorHandler handler));
+/* 50 */
+EXTERN void Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token,
+ unsigned long mask, Tk_EventProc * proc,
+ ClientData clientData));
+/* 51 */
+EXTERN void Tk_DeleteGenericHandler _ANSI_ARGS_((
+ Tk_GenericProc * proc, ClientData clientData));
+/* 52 */
+EXTERN void Tk_DeleteImage _ANSI_ARGS_((Tcl_Interp * interp,
+ char * name));
+/* 53 */
+EXTERN void Tk_DeleteSelHandler _ANSI_ARGS_((Tk_Window tkwin,
+ Atom selection, Atom target));
+/* 54 */
+EXTERN void Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin));
+/* 55 */
+EXTERN char * Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin));
+/* 56 */
+EXTERN int Tk_DistanceToTextLayout _ANSI_ARGS_((
+ Tk_TextLayout layout, int x, int y));
+/* 57 */
+EXTERN void Tk_Draw3DPolygon _ANSI_ARGS_((Tk_Window tkwin,
+ Drawable drawable, Tk_3DBorder border,
+ XPoint * pointPtr, int numPoints,
+ int borderWidth, int leftRelief));
+/* 58 */
+EXTERN void Tk_Draw3DRectangle _ANSI_ARGS_((Tk_Window tkwin,
+ Drawable drawable, Tk_3DBorder border, int x,
+ int y, int width, int height,
+ int borderWidth, int relief));
+/* 59 */
+EXTERN void Tk_DrawChars _ANSI_ARGS_((Display * display,
+ Drawable drawable, GC gc, Tk_Font tkfont,
+ CONST char * source, int numChars, int x,
+ int y));
+/* 60 */
+EXTERN void Tk_DrawFocusHighlight _ANSI_ARGS_((Tk_Window tkwin,
+ GC gc, int width, Drawable drawable));
+/* 61 */
+EXTERN void Tk_DrawTextLayout _ANSI_ARGS_((Display * display,
+ Drawable drawable, GC gc,
+ Tk_TextLayout layout, int x, int y,
+ int firstChar, int lastChar));
+/* 62 */
+EXTERN void Tk_Fill3DPolygon _ANSI_ARGS_((Tk_Window tkwin,
+ Drawable drawable, Tk_3DBorder border,
+ XPoint * pointPtr, int numPoints,
+ int borderWidth, int leftRelief));
+/* 63 */
+EXTERN void Tk_Fill3DRectangle _ANSI_ARGS_((Tk_Window tkwin,
+ Drawable drawable, Tk_3DBorder border, int x,
+ int y, int width, int height,
+ int borderWidth, int relief));
+/* 64 */
+EXTERN Tk_PhotoHandle Tk_FindPhoto _ANSI_ARGS_((Tcl_Interp * interp,
+ char * imageName));
+/* 65 */
+EXTERN Font Tk_FontId _ANSI_ARGS_((Tk_Font font));
+/* 66 */
+EXTERN void Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border));
+/* 67 */
+EXTERN void Tk_FreeBitmap _ANSI_ARGS_((Display * display,
+ Pixmap bitmap));
+/* 68 */
+EXTERN void Tk_FreeColor _ANSI_ARGS_((XColor * colorPtr));
+/* 69 */
+EXTERN void Tk_FreeColormap _ANSI_ARGS_((Display * display,
+ Colormap colormap));
+/* 70 */
+EXTERN void Tk_FreeCursor _ANSI_ARGS_((Display * display,
+ Tk_Cursor cursor));
+/* 71 */
+EXTERN void Tk_FreeFont _ANSI_ARGS_((Tk_Font f));
+/* 72 */
+EXTERN void Tk_FreeGC _ANSI_ARGS_((Display * display, GC gc));
+/* 73 */
+EXTERN void Tk_FreeImage _ANSI_ARGS_((Tk_Image image));
+/* 74 */
+EXTERN void Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec * specs,
+ char * widgRec, Display * display,
+ int needFlags));
+/* 75 */
+EXTERN void Tk_FreePixmap _ANSI_ARGS_((Display * display,
+ Pixmap pixmap));
+/* 76 */
+EXTERN void Tk_FreeTextLayout _ANSI_ARGS_((
+ Tk_TextLayout textLayout));
+/* 77 */
+EXTERN void Tk_FreeXId _ANSI_ARGS_((Display * display, XID xid));
+/* 78 */
+EXTERN GC Tk_GCForColor _ANSI_ARGS_((XColor * colorPtr,
+ Drawable drawable));
+/* 79 */
+EXTERN void Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin,
+ int reqWidth, int reqHeight));
+/* 80 */
+EXTERN Tk_3DBorder Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_Uid colorName));
+/* 81 */
+EXTERN void Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_BindingTable bindingTable,
+ ClientData object));
+/* 82 */
+EXTERN int Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp * interp,
+ char * string, Tk_Anchor * anchorPtr));
+/* 83 */
+EXTERN char * Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin,
+ Atom atom));
+/* 84 */
+EXTERN char * Tk_GetBinding _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_BindingTable bindingTable,
+ ClientData object, char * eventString));
+/* 85 */
+EXTERN Pixmap Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_Uid string));
+/* 86 */
+EXTERN Pixmap Tk_GetBitmapFromData _ANSI_ARGS_((
+ Tcl_Interp * interp, Tk_Window tkwin,
+ char * source, int width, int height));
+/* 87 */
+EXTERN int Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp * interp,
+ char * string, int * capPtr));
+/* 88 */
+EXTERN XColor * Tk_GetColor _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_Uid name));
+/* 89 */
+EXTERN XColor * Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin,
+ XColor * colorPtr));
+/* 90 */
+EXTERN Colormap Tk_GetColormap _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * string));
+/* 91 */
+EXTERN Tk_Cursor Tk_GetCursor _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_Uid string));
+/* 92 */
+EXTERN Tk_Cursor Tk_GetCursorFromData _ANSI_ARGS_((
+ Tcl_Interp * interp, Tk_Window tkwin,
+ char * source, char * mask, int width,
+ int height, int xHot, int yHot, Tk_Uid fg,
+ Tk_Uid bg));
+/* 93 */
+EXTERN Tk_Font Tk_GetFont _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, CONST char * string));
+/* 94 */
+EXTERN Tk_Font Tk_GetFontFromObj _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tcl_Obj * objPtr));
+/* 95 */
+EXTERN void Tk_GetFontMetrics _ANSI_ARGS_((Tk_Font font,
+ Tk_FontMetrics * fmPtr));
+/* 96 */
+EXTERN GC Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin,
+ unsigned long valueMask,
+ XGCValues * valuePtr));
+/* 97 */
+EXTERN Tk_Image Tk_GetImage _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * name,
+ Tk_ImageChangedProc * changeProc,
+ ClientData clientData));
+/* 98 */
+EXTERN ClientData Tk_GetImageMasterData _ANSI_ARGS_((
+ Tcl_Interp * interp, char * name,
+ Tk_ImageType ** typePtrPtr));
+/* 99 */
+EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void));
+/* 100 */
+EXTERN int Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp * interp,
+ char * string, int * joinPtr));
+/* 101 */
+EXTERN int Tk_GetJustify _ANSI_ARGS_((Tcl_Interp * interp,
+ char * string, Tk_Justify * justifyPtr));
+/* 102 */
+EXTERN int Tk_GetNumMainWindows _ANSI_ARGS_((void));
+/* 103 */
+EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin,
+ char * name, char * className));
+/* 104 */
+EXTERN int Tk_GetPixels _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * string, int * intPtr));
+/* 105 */
+EXTERN Pixmap Tk_GetPixmap _ANSI_ARGS_((Display * display,
+ Drawable d, int width, int height, int depth));
+/* 106 */
+EXTERN int Tk_GetRelief _ANSI_ARGS_((Tcl_Interp * interp,
+ char * name, int * reliefPtr));
+/* 107 */
+EXTERN void Tk_GetRootCoords _ANSI_ARGS_((Tk_Window tkwin,
+ int * xPtr, int * yPtr));
+/* 108 */
+EXTERN int Tk_GetScrollInfo _ANSI_ARGS_((Tcl_Interp * interp,
+ int argc, char ** argv, double * dblPtr,
+ int * intPtr));
+/* 109 */
+EXTERN int Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * string,
+ double * doublePtr));
+/* 110 */
+EXTERN int Tk_GetSelection _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Atom selection, Atom target,
+ Tk_GetSelProc * proc, ClientData clientData));
+/* 111 */
+EXTERN Tk_Uid Tk_GetUid _ANSI_ARGS_((CONST char * string));
+/* 112 */
+EXTERN Visual * Tk_GetVisual _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * string,
+ int * depthPtr, Colormap * colormapPtr));
+/* 113 */
+EXTERN void Tk_GetVRootGeometry _ANSI_ARGS_((Tk_Window tkwin,
+ int * xPtr, int * yPtr, int * widthPtr,
+ int * heightPtr));
+/* 114 */
+EXTERN int Tk_Grab _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, int grabGlobal));
+/* 115 */
+EXTERN void Tk_HandleEvent _ANSI_ARGS_((XEvent * eventPtr));
+/* 116 */
+EXTERN Tk_Window Tk_IdToWindow _ANSI_ARGS_((Display * display,
+ Window window));
+/* 117 */
+EXTERN void Tk_ImageChanged _ANSI_ARGS_((Tk_ImageMaster master,
+ int x, int y, int width, int height,
+ int imageWidth, int imageHeight));
+/* 118 */
+EXTERN int Tk_Init _ANSI_ARGS_((Tcl_Interp * interp));
+/* 119 */
+EXTERN Atom Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin,
+ char * name));
+/* 120 */
+EXTERN int Tk_IntersectTextLayout _ANSI_ARGS_((
+ Tk_TextLayout layout, int x, int y,
+ int width, int height));
+/* 121 */
+EXTERN void Tk_MaintainGeometry _ANSI_ARGS_((Tk_Window slave,
+ Tk_Window master, int x, int y, int width,
+ int height));
+/* 122 */
+EXTERN Tk_Window Tk_MainWindow _ANSI_ARGS_((Tcl_Interp * interp));
+/* 123 */
+EXTERN void Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin));
+/* 124 */
+EXTERN void Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin,
+ Tk_GeomMgr * mgrPtr, ClientData clientData));
+/* 125 */
+EXTERN void Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin));
+/* 126 */
+EXTERN int Tk_MeasureChars _ANSI_ARGS_((Tk_Font tkfont,
+ CONST char * source, int maxChars,
+ int maxPixels, int flags, int * lengthPtr));
+/* 127 */
+EXTERN void Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin,
+ int x, int y, int width, int height));
+/* 128 */
+EXTERN void Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x,
+ int y));
+/* 129 */
+EXTERN void Tk_MoveToplevelWindow _ANSI_ARGS_((Tk_Window tkwin,
+ int x, int y));
+/* 130 */
+EXTERN char * Tk_NameOf3DBorder _ANSI_ARGS_((Tk_3DBorder border));
+/* 131 */
+EXTERN char * Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor));
+/* 132 */
+EXTERN char * Tk_NameOfBitmap _ANSI_ARGS_((Display * display,
+ Pixmap bitmap));
+/* 133 */
+EXTERN char * Tk_NameOfCapStyle _ANSI_ARGS_((int cap));
+/* 134 */
+EXTERN char * Tk_NameOfColor _ANSI_ARGS_((XColor * colorPtr));
+/* 135 */
+EXTERN char * Tk_NameOfCursor _ANSI_ARGS_((Display * display,
+ Tk_Cursor cursor));
+/* 136 */
+EXTERN char * Tk_NameOfFont _ANSI_ARGS_((Tk_Font font));
+/* 137 */
+EXTERN char * Tk_NameOfImage _ANSI_ARGS_((
+ Tk_ImageMaster imageMaster));
+/* 138 */
+EXTERN char * Tk_NameOfJoinStyle _ANSI_ARGS_((int join));
+/* 139 */
+EXTERN char * Tk_NameOfJustify _ANSI_ARGS_((Tk_Justify justify));
+/* 140 */
+EXTERN char * Tk_NameOfRelief _ANSI_ARGS_((int relief));
+/* 141 */
+EXTERN Tk_Window Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp * interp,
+ char * pathName, Tk_Window tkwin));
+/* 142 */
+EXTERN void Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin,
+ Atom selection, Tk_LostSelProc * proc,
+ ClientData clientData));
+/* 143 */
+EXTERN int Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, int * argcPtr, char ** argv,
+ Tk_ArgvInfo * argTable, int flags));
+/* 144 */
+EXTERN void Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle,
+ Tk_PhotoImageBlock * blockPtr, int x, int y,
+ int width, int height));
+/* 145 */
+EXTERN void Tk_PhotoPutZoomedBlock _ANSI_ARGS_((
+ Tk_PhotoHandle handle,
+ Tk_PhotoImageBlock * blockPtr, int x, int y,
+ int width, int height, int zoomX, int zoomY,
+ int subsampleX, int subsampleY));
+/* 146 */
+EXTERN int Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle,
+ Tk_PhotoImageBlock * blockPtr));
+/* 147 */
+EXTERN void Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle));
+/* 148 */
+EXTERN void Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle,
+ int width, int height));
+/* 149 */
+EXTERN void Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle,
+ int * widthPtr, int * heightPtr));
+/* 150 */
+EXTERN void Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle,
+ int width, int height));
+/* 151 */
+EXTERN int Tk_PointToChar _ANSI_ARGS_((Tk_TextLayout layout,
+ int x, int y));
+/* 152 */
+EXTERN int Tk_PostscriptFontName _ANSI_ARGS_((Tk_Font tkfont,
+ Tcl_DString * dsPtr));
+/* 153 */
+EXTERN void Tk_PreserveColormap _ANSI_ARGS_((Display * display,
+ Colormap colormap));
+/* 154 */
+EXTERN void Tk_QueueWindowEvent _ANSI_ARGS_((XEvent * eventPtr,
+ Tcl_QueuePosition position));
+/* 155 */
+EXTERN void Tk_RedrawImage _ANSI_ARGS_((Tk_Image image,
+ int imageX, int imageY, int width,
+ int height, Drawable drawable, int drawableX,
+ int drawableY));
+/* 156 */
+EXTERN void Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin,
+ int width, int height));
+/* 157 */
+EXTERN int Tk_RestackWindow _ANSI_ARGS_((Tk_Window tkwin,
+ int aboveBelow, Tk_Window other));
+/* 158 */
+EXTERN Tk_RestrictProc * Tk_RestrictEvents _ANSI_ARGS_((
+ Tk_RestrictProc * proc, ClientData arg,
+ ClientData * prevArgPtr));
+/* 159 */
+EXTERN int Tk_SafeInit _ANSI_ARGS_((Tcl_Interp * interp));
+/* 160 */
+EXTERN char * Tk_SetAppName _ANSI_ARGS_((Tk_Window tkwin,
+ char * name));
+/* 161 */
+EXTERN void Tk_SetBackgroundFromBorder _ANSI_ARGS_((
+ Tk_Window tkwin, Tk_3DBorder border));
+/* 162 */
+EXTERN void Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin,
+ char * className));
+/* 163 */
+EXTERN void Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin,
+ int reqWidth, int reqHeight, int gridWidth,
+ int gridHeight));
+/* 164 */
+EXTERN void Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin,
+ int width));
+/* 165 */
+EXTERN void Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin,
+ unsigned long pixel));
+/* 166 */
+EXTERN void Tk_SetWindowBackgroundPixmap _ANSI_ARGS_((
+ Tk_Window tkwin, Pixmap pixmap));
+/* 167 */
+EXTERN void Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin,
+ unsigned long pixel));
+/* 168 */
+EXTERN void Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin,
+ int width));
+/* 169 */
+EXTERN void Tk_SetWindowBorderPixmap _ANSI_ARGS_((
+ Tk_Window tkwin, Pixmap pixmap));
+/* 170 */
+EXTERN void Tk_SetWindowColormap _ANSI_ARGS_((Tk_Window tkwin,
+ Colormap colormap));
+/* 171 */
+EXTERN int Tk_SetWindowVisual _ANSI_ARGS_((Tk_Window tkwin,
+ Visual * visual, int depth,
+ Colormap colormap));
+/* 172 */
+EXTERN void Tk_SizeOfBitmap _ANSI_ARGS_((Display * display,
+ Pixmap bitmap, int * widthPtr,
+ int * heightPtr));
+/* 173 */
+EXTERN void Tk_SizeOfImage _ANSI_ARGS_((Tk_Image image,
+ int * widthPtr, int * heightPtr));
+/* 174 */
+EXTERN int Tk_StrictMotif _ANSI_ARGS_((Tk_Window tkwin));
+/* 175 */
+EXTERN void Tk_TextLayoutToPostscript _ANSI_ARGS_((
+ Tcl_Interp * interp, Tk_TextLayout layout));
+/* 176 */
+EXTERN int Tk_TextWidth _ANSI_ARGS_((Tk_Font font,
+ CONST char * string, int numChars));
+/* 177 */
+EXTERN void Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window));
+/* 178 */
+EXTERN void Tk_UnderlineChars _ANSI_ARGS_((Display * display,
+ Drawable drawable, GC gc, Tk_Font tkfont,
+ CONST char * source, int x, int y,
+ int firstChar, int lastChar));
+/* 179 */
+EXTERN void Tk_UnderlineTextLayout _ANSI_ARGS_((
+ Display * display, Drawable drawable, GC gc,
+ Tk_TextLayout layout, int x, int y,
+ int underline));
+/* 180 */
+EXTERN void Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin));
+/* 181 */
+EXTERN void Tk_UnmaintainGeometry _ANSI_ARGS_((Tk_Window slave,
+ Tk_Window master));
+/* 182 */
+EXTERN void Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin));
+/* 183 */
+EXTERN void Tk_UnsetGrid _ANSI_ARGS_((Tk_Window tkwin));
+/* 184 */
+EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin, int x,
+ int y, int state));
+
+typedef struct TkStubHooks {
+ struct TkPlatStubs *tkPlatStubs;
+ struct TkIntStubs *tkIntStubs;
+ struct TkIntPlatStubs *tkIntPlatStubs;
+ struct TkIntXlibStubs *tkIntXlibStubs;
+} TkStubHooks;
+
+typedef struct TkStubs {
+ int magic;
+ struct TkStubHooks *hooks;
+
+ void (*tk_MainLoop) _ANSI_ARGS_((void)); /* 0 */
+ XColor * (*tk_3DBorderColor) _ANSI_ARGS_((Tk_3DBorder border)); /* 1 */
+ GC (*tk_3DBorderGC) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border, int which)); /* 2 */
+ void (*tk_3DHorizontalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief)); /* 3 */
+ void (*tk_3DVerticalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief)); /* 4 */
+ void (*tk_AddOption) _ANSI_ARGS_((Tk_Window tkwin, char * name, char * value, int priority)); /* 5 */
+ void (*tk_BindEvent) _ANSI_ARGS_((Tk_BindingTable bindingTable, XEvent * eventPtr, Tk_Window tkwin, int numObjects, ClientData * objectPtr)); /* 6 */
+ void (*tk_CanvasDrawableCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short * drawableXPtr, short * drawableYPtr)); /* 7 */
+ void (*tk_CanvasEventuallyRedraw) _ANSI_ARGS_((Tk_Canvas canvas, int x1, int y1, int x2, int y2)); /* 8 */
+ int (*tk_CanvasGetCoord) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, char * string, double * doublePtr)); /* 9 */
+ Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) _ANSI_ARGS_((Tk_Canvas canvas)); /* 10 */
+ int (*tk_CanvasPsBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height)); /* 11 */
+ int (*tk_CanvasPsColor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, XColor * colorPtr)); /* 12 */
+ int (*tk_CanvasPsFont) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Tk_Font font)); /* 13 */
+ void (*tk_CanvasPsPath) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, double * coordPtr, int numPoints)); /* 14 */
+ int (*tk_CanvasPsStipple) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap)); /* 15 */
+ double (*tk_CanvasPsY) _ANSI_ARGS_((Tk_Canvas canvas, double y)); /* 16 */
+ void (*tk_CanvasSetStippleOrigin) _ANSI_ARGS_((Tk_Canvas canvas, GC gc)); /* 17 */
+ int (*tk_CanvasTagsParseProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, Tk_Window tkwin, char * value, char * widgRec, int offset)); /* 18 */
+ char * (*tk_CanvasTagsPrintProc) _ANSI_ARGS_((ClientData clientData, Tk_Window tkwin, char * widgRec, int offset, Tcl_FreeProc ** freeProcPtr)); /* 19 */
+ Tk_Window (*tk_CanvasTkwin) _ANSI_ARGS_((Tk_Canvas canvas)); /* 20 */
+ void (*tk_CanvasWindowCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short * screenXPtr, short * screenYPtr)); /* 21 */
+ void (*tk_ChangeWindowAttributes) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes * attsPtr)); /* 22 */
+ int (*tk_CharBbox) _ANSI_ARGS_((Tk_TextLayout layout, int index, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr)); /* 23 */
+ void (*tk_ClearSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection)); /* 24 */
+ int (*tk_ClipboardAppend) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Atom target, Atom format, char* buffer)); /* 25 */
+ int (*tk_ClipboardClear) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 26 */
+ int (*tk_ConfigureInfo) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, char * argvName, int flags)); /* 27 */
+ int (*tk_ConfigureValue) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, char * argvName, int flags)); /* 28 */
+ int (*tk_ConfigureWidget) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, int argc, char ** argv, char * widgRec, int flags)); /* 29 */
+ void (*tk_ConfigureWindow) _ANSI_ARGS_((Tk_Window tkwin, unsigned int valueMask, XWindowChanges * valuePtr)); /* 30 */
+ Tk_TextLayout (*tk_ComputeTextLayout) _ANSI_ARGS_((Tk_Font font, CONST char * string, int numChars, int wrapLength, Tk_Justify justify, int flags, int * widthPtr, int * heightPtr)); /* 31 */
+ Tk_Window (*tk_CoordsToWindow) _ANSI_ARGS_((int rootX, int rootY, Tk_Window tkwin)); /* 32 */
+ unsigned long (*tk_CreateBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString, char * command, int append)); /* 33 */
+ Tk_BindingTable (*tk_CreateBindingTable) _ANSI_ARGS_((Tcl_Interp * interp)); /* 34 */
+ Tk_ErrorHandler (*tk_CreateErrorHandler) _ANSI_ARGS_((Display * display, int errNum, int request, int minorCode, Tk_ErrorProc * errorProc, ClientData clientData)); /* 35 */
+ void (*tk_CreateEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData)); /* 36 */
+ void (*tk_CreateGenericHandler) _ANSI_ARGS_((Tk_GenericProc * proc, ClientData clientData)); /* 37 */
+ void (*tk_CreateImageType) _ANSI_ARGS_((Tk_ImageType * typePtr)); /* 38 */
+ void (*tk_CreateItemType) _ANSI_ARGS_((Tk_ItemType * typePtr)); /* 39 */
+ void (*tk_CreatePhotoImageFormat) _ANSI_ARGS_((Tk_PhotoImageFormat * formatPtr)); /* 40 */
+ void (*tk_CreateSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc * proc, ClientData clientData, Atom format)); /* 41 */
+ Tk_Window (*tk_CreateWindow) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window parent, char * name, char * screenName)); /* 42 */
+ Tk_Window (*tk_CreateWindowFromPath) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * pathName, char * screenName)); /* 43 */
+ int (*tk_DefineBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Uid name, char * source, int width, int height)); /* 44 */
+ void (*tk_DefineCursor) _ANSI_ARGS_((Tk_Window window, Tk_Cursor cursor)); /* 45 */
+ void (*tk_DeleteAllBindings) _ANSI_ARGS_((Tk_BindingTable bindingTable, ClientData object)); /* 46 */
+ int (*tk_DeleteBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString)); /* 47 */
+ void (*tk_DeleteBindingTable) _ANSI_ARGS_((Tk_BindingTable bindingTable)); /* 48 */
+ void (*tk_DeleteErrorHandler) _ANSI_ARGS_((Tk_ErrorHandler handler)); /* 49 */
+ void (*tk_DeleteEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData)); /* 50 */
+ void (*tk_DeleteGenericHandler) _ANSI_ARGS_((Tk_GenericProc * proc, ClientData clientData)); /* 51 */
+ void (*tk_DeleteImage) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 52 */
+ void (*tk_DeleteSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target)); /* 53 */
+ void (*tk_DestroyWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 54 */
+ char * (*tk_DisplayName) _ANSI_ARGS_((Tk_Window tkwin)); /* 55 */
+ int (*tk_DistanceToTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 56 */
+ void (*tk_Draw3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 57 */
+ void (*tk_Draw3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 58 */
+ void (*tk_DrawChars) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int numChars, int x, int y)); /* 59 */
+ void (*tk_DrawFocusHighlight) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int width, Drawable drawable)); /* 60 */
+ void (*tk_DrawTextLayout) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar)); /* 61 */
+ void (*tk_Fill3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 62 */
+ void (*tk_Fill3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 63 */
+ Tk_PhotoHandle (*tk_FindPhoto) _ANSI_ARGS_((Tcl_Interp * interp, char * imageName)); /* 64 */
+ Font (*tk_FontId) _ANSI_ARGS_((Tk_Font font)); /* 65 */
+ void (*tk_Free3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 66 */
+ void (*tk_FreeBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap)); /* 67 */
+ void (*tk_FreeColor) _ANSI_ARGS_((XColor * colorPtr)); /* 68 */
+ void (*tk_FreeColormap) _ANSI_ARGS_((Display * display, Colormap colormap)); /* 69 */
+ void (*tk_FreeCursor) _ANSI_ARGS_((Display * display, Tk_Cursor cursor)); /* 70 */
+ void (*tk_FreeFont) _ANSI_ARGS_((Tk_Font f)); /* 71 */
+ void (*tk_FreeGC) _ANSI_ARGS_((Display * display, GC gc)); /* 72 */
+ void (*tk_FreeImage) _ANSI_ARGS_((Tk_Image image)); /* 73 */
+ void (*tk_FreeOptions) _ANSI_ARGS_((Tk_ConfigSpec * specs, char * widgRec, Display * display, int needFlags)); /* 74 */
+ void (*tk_FreePixmap) _ANSI_ARGS_((Display * display, Pixmap pixmap)); /* 75 */
+ void (*tk_FreeTextLayout) _ANSI_ARGS_((Tk_TextLayout textLayout)); /* 76 */
+ void (*tk_FreeXId) _ANSI_ARGS_((Display * display, XID xid)); /* 77 */
+ GC (*tk_GCForColor) _ANSI_ARGS_((XColor * colorPtr, Drawable drawable)); /* 78 */
+ void (*tk_GeometryRequest) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight)); /* 79 */
+ Tk_3DBorder (*tk_Get3DBorder) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid colorName)); /* 80 */
+ void (*tk_GetAllBindings) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object)); /* 81 */
+ int (*tk_GetAnchor) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tk_Anchor * anchorPtr)); /* 82 */
+ char * (*tk_GetAtomName) _ANSI_ARGS_((Tk_Window tkwin, Atom atom)); /* 83 */
+ char * (*tk_GetBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString)); /* 84 */
+ Pixmap (*tk_GetBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid string)); /* 85 */
+ Pixmap (*tk_GetBitmapFromData) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * source, int width, int height)); /* 86 */
+ int (*tk_GetCapStyle) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * capPtr)); /* 87 */
+ XColor * (*tk_GetColor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid name)); /* 88 */
+ XColor * (*tk_GetColorByValue) _ANSI_ARGS_((Tk_Window tkwin, XColor * colorPtr)); /* 89 */
+ Colormap (*tk_GetColormap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string)); /* 90 */
+ Tk_Cursor (*tk_GetCursor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid string)); /* 91 */
+ Tk_Cursor (*tk_GetCursorFromData) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * source, char * mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg)); /* 92 */
+ Tk_Font (*tk_GetFont) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * string)); /* 93 */
+ Tk_Font (*tk_GetFontFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 94 */
+ void (*tk_GetFontMetrics) _ANSI_ARGS_((Tk_Font font, Tk_FontMetrics * fmPtr)); /* 95 */
+ GC (*tk_GetGC) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XGCValues * valuePtr)); /* 96 */
+ Tk_Image (*tk_GetImage) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * name, Tk_ImageChangedProc * changeProc, ClientData clientData)); /* 97 */
+ ClientData (*tk_GetImageMasterData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tk_ImageType ** typePtrPtr)); /* 98 */
+ Tk_ItemType * (*tk_GetItemTypes) _ANSI_ARGS_((void)); /* 99 */
+ int (*tk_GetJoinStyle) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * joinPtr)); /* 100 */
+ int (*tk_GetJustify) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tk_Justify * justifyPtr)); /* 101 */
+ int (*tk_GetNumMainWindows) _ANSI_ARGS_((void)); /* 102 */
+ Tk_Uid (*tk_GetOption) _ANSI_ARGS_((Tk_Window tkwin, char * name, char * className)); /* 103 */
+ int (*tk_GetPixels) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string, int * intPtr)); /* 104 */
+ Pixmap (*tk_GetPixmap) _ANSI_ARGS_((Display * display, Drawable d, int width, int height, int depth)); /* 105 */
+ int (*tk_GetRelief) _ANSI_ARGS_((Tcl_Interp * interp, char * name, int * reliefPtr)); /* 106 */
+ void (*tk_GetRootCoords) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr)); /* 107 */
+ int (*tk_GetScrollInfo) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, double * dblPtr, int * intPtr)); /* 108 */
+ int (*tk_GetScreenMM) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string, double * doublePtr)); /* 109 */
+ int (*tk_GetSelection) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc * proc, ClientData clientData)); /* 110 */
+ Tk_Uid (*tk_GetUid) _ANSI_ARGS_((CONST char * string)); /* 111 */
+ Visual * (*tk_GetVisual) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string, int * depthPtr, Colormap * colormapPtr)); /* 112 */
+ void (*tk_GetVRootGeometry) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr)); /* 113 */
+ int (*tk_Grab) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, int grabGlobal)); /* 114 */
+ void (*tk_HandleEvent) _ANSI_ARGS_((XEvent * eventPtr)); /* 115 */
+ Tk_Window (*tk_IdToWindow) _ANSI_ARGS_((Display * display, Window window)); /* 116 */
+ void (*tk_ImageChanged) _ANSI_ARGS_((Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight)); /* 117 */
+ int (*tk_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 118 */
+ Atom (*tk_InternAtom) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 119 */
+ int (*tk_IntersectTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y, int width, int height)); /* 120 */
+ void (*tk_MaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master, int x, int y, int width, int height)); /* 121 */
+ Tk_Window (*tk_MainWindow) _ANSI_ARGS_((Tcl_Interp * interp)); /* 122 */
+ void (*tk_MakeWindowExist) _ANSI_ARGS_((Tk_Window tkwin)); /* 123 */
+ void (*tk_ManageGeometry) _ANSI_ARGS_((Tk_Window tkwin, Tk_GeomMgr * mgrPtr, ClientData clientData)); /* 124 */
+ void (*tk_MapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 125 */
+ int (*tk_MeasureChars) _ANSI_ARGS_((Tk_Font tkfont, CONST char * source, int maxChars, int maxPixels, int flags, int * lengthPtr)); /* 126 */
+ void (*tk_MoveResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height)); /* 127 */
+ void (*tk_MoveWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 128 */
+ void (*tk_MoveToplevelWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 129 */
+ char * (*tk_NameOf3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 130 */
+ char * (*tk_NameOfAnchor) _ANSI_ARGS_((Tk_Anchor anchor)); /* 131 */
+ char * (*tk_NameOfBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap)); /* 132 */
+ char * (*tk_NameOfCapStyle) _ANSI_ARGS_((int cap)); /* 133 */
+ char * (*tk_NameOfColor) _ANSI_ARGS_((XColor * colorPtr)); /* 134 */
+ char * (*tk_NameOfCursor) _ANSI_ARGS_((Display * display, Tk_Cursor cursor)); /* 135 */
+ char * (*tk_NameOfFont) _ANSI_ARGS_((Tk_Font font)); /* 136 */
+ char * (*tk_NameOfImage) _ANSI_ARGS_((Tk_ImageMaster imageMaster)); /* 137 */
+ char * (*tk_NameOfJoinStyle) _ANSI_ARGS_((int join)); /* 138 */
+ char * (*tk_NameOfJustify) _ANSI_ARGS_((Tk_Justify justify)); /* 139 */
+ char * (*tk_NameOfRelief) _ANSI_ARGS_((int relief)); /* 140 */
+ Tk_Window (*tk_NameToWindow) _ANSI_ARGS_((Tcl_Interp * interp, char * pathName, Tk_Window tkwin)); /* 141 */
+ void (*tk_OwnSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Tk_LostSelProc * proc, ClientData clientData)); /* 142 */
+ int (*tk_ParseArgv) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, int * argcPtr, char ** argv, Tk_ArgvInfo * argTable, int flags)); /* 143 */
+ void (*tk_PhotoPutBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height)); /* 144 */
+ void (*tk_PhotoPutZoomedBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY)); /* 145 */
+ int (*tk_PhotoGetImage) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr)); /* 146 */
+ void (*tk_PhotoBlank) _ANSI_ARGS_((Tk_PhotoHandle handle)); /* 147 */
+ void (*tk_PhotoExpand) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 148 */
+ void (*tk_PhotoGetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int * widthPtr, int * heightPtr)); /* 149 */
+ void (*tk_PhotoSetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 150 */
+ int (*tk_PointToChar) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 151 */
+ int (*tk_PostscriptFontName) _ANSI_ARGS_((Tk_Font tkfont, Tcl_DString * dsPtr)); /* 152 */
+ void (*tk_PreserveColormap) _ANSI_ARGS_((Display * display, Colormap colormap)); /* 153 */
+ void (*tk_QueueWindowEvent) _ANSI_ARGS_((XEvent * eventPtr, Tcl_QueuePosition position)); /* 154 */
+ void (*tk_RedrawImage) _ANSI_ARGS_((Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY)); /* 155 */
+ void (*tk_ResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int width, int height)); /* 156 */
+ int (*tk_RestackWindow) _ANSI_ARGS_((Tk_Window tkwin, int aboveBelow, Tk_Window other)); /* 157 */
+ Tk_RestrictProc * (*tk_RestrictEvents) _ANSI_ARGS_((Tk_RestrictProc * proc, ClientData arg, ClientData * prevArgPtr)); /* 158 */
+ int (*tk_SafeInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 159 */
+ char * (*tk_SetAppName) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 160 */
+ void (*tk_SetBackgroundFromBorder) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border)); /* 161 */
+ void (*tk_SetClass) _ANSI_ARGS_((Tk_Window tkwin, char * className)); /* 162 */
+ void (*tk_SetGrid) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight)); /* 163 */
+ void (*tk_SetInternalBorder) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 164 */
+ void (*tk_SetWindowBackground) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 165 */
+ void (*tk_SetWindowBackgroundPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 166 */
+ void (*tk_SetWindowBorder) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 167 */
+ void (*tk_SetWindowBorderWidth) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 168 */
+ void (*tk_SetWindowBorderPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 169 */
+ void (*tk_SetWindowColormap) _ANSI_ARGS_((Tk_Window tkwin, Colormap colormap)); /* 170 */
+ int (*tk_SetWindowVisual) _ANSI_ARGS_((Tk_Window tkwin, Visual * visual, int depth, Colormap colormap)); /* 171 */
+ void (*tk_SizeOfBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap, int * widthPtr, int * heightPtr)); /* 172 */
+ void (*tk_SizeOfImage) _ANSI_ARGS_((Tk_Image image, int * widthPtr, int * heightPtr)); /* 173 */
+ int (*tk_StrictMotif) _ANSI_ARGS_((Tk_Window tkwin)); /* 174 */
+ void (*tk_TextLayoutToPostscript) _ANSI_ARGS_((Tcl_Interp * interp, Tk_TextLayout layout)); /* 175 */
+ int (*tk_TextWidth) _ANSI_ARGS_((Tk_Font font, CONST char * string, int numChars)); /* 176 */
+ void (*tk_UndefineCursor) _ANSI_ARGS_((Tk_Window window)); /* 177 */
+ void (*tk_UnderlineChars) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int x, int y, int firstChar, int lastChar)); /* 178 */
+ void (*tk_UnderlineTextLayout) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline)); /* 179 */
+ void (*tk_Ungrab) _ANSI_ARGS_((Tk_Window tkwin)); /* 180 */
+ void (*tk_UnmaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master)); /* 181 */
+ void (*tk_UnmapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 182 */
+ void (*tk_UnsetGrid) _ANSI_ARGS_((Tk_Window tkwin)); /* 183 */
+ void (*tk_UpdatePointer) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int state)); /* 184 */
+} TkStubs;
+
+extern TkStubs *tkStubsPtr;
+
+#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifndef Tk_MainLoop
+#define Tk_MainLoop() \
+ (tkStubsPtr->tk_MainLoop)() /* 0 */
+#endif
+#ifndef Tk_3DBorderColor
+#define Tk_3DBorderColor(border) \
+ (tkStubsPtr->tk_3DBorderColor)(border) /* 1 */
+#endif
+#ifndef Tk_3DBorderGC
+#define Tk_3DBorderGC(tkwin, border, which) \
+ (tkStubsPtr->tk_3DBorderGC)(tkwin, border, which) /* 2 */
+#endif
+#ifndef Tk_3DHorizontalBevel
+#define Tk_3DHorizontalBevel(tkwin, drawable, border, x, y, width, height, leftIn, rightIn, topBevel, relief) \
+ (tkStubsPtr->tk_3DHorizontalBevel)(tkwin, drawable, border, x, y, width, height, leftIn, rightIn, topBevel, relief) /* 3 */
+#endif
+#ifndef Tk_3DVerticalBevel
+#define Tk_3DVerticalBevel(tkwin, drawable, border, x, y, width, height, leftBevel, relief) \
+ (tkStubsPtr->tk_3DVerticalBevel)(tkwin, drawable, border, x, y, width, height, leftBevel, relief) /* 4 */
+#endif
+#ifndef Tk_AddOption
+#define Tk_AddOption(tkwin, name, value, priority) \
+ (tkStubsPtr->tk_AddOption)(tkwin, name, value, priority) /* 5 */
+#endif
+#ifndef Tk_BindEvent
+#define Tk_BindEvent(bindingTable, eventPtr, tkwin, numObjects, objectPtr) \
+ (tkStubsPtr->tk_BindEvent)(bindingTable, eventPtr, tkwin, numObjects, objectPtr) /* 6 */
+#endif
+#ifndef Tk_CanvasDrawableCoords
+#define Tk_CanvasDrawableCoords(canvas, x, y, drawableXPtr, drawableYPtr) \
+ (tkStubsPtr->tk_CanvasDrawableCoords)(canvas, x, y, drawableXPtr, drawableYPtr) /* 7 */
+#endif
+#ifndef Tk_CanvasEventuallyRedraw
+#define Tk_CanvasEventuallyRedraw(canvas, x1, y1, x2, y2) \
+ (tkStubsPtr->tk_CanvasEventuallyRedraw)(canvas, x1, y1, x2, y2) /* 8 */
+#endif
+#ifndef Tk_CanvasGetCoord
+#define Tk_CanvasGetCoord(interp, canvas, string, doublePtr) \
+ (tkStubsPtr->tk_CanvasGetCoord)(interp, canvas, string, doublePtr) /* 9 */
+#endif
+#ifndef Tk_CanvasGetTextInfo
+#define Tk_CanvasGetTextInfo(canvas) \
+ (tkStubsPtr->tk_CanvasGetTextInfo)(canvas) /* 10 */
+#endif
+#ifndef Tk_CanvasPsBitmap
+#define Tk_CanvasPsBitmap(interp, canvas, bitmap, x, y, width, height) \
+ (tkStubsPtr->tk_CanvasPsBitmap)(interp, canvas, bitmap, x, y, width, height) /* 11 */
+#endif
+#ifndef Tk_CanvasPsColor
+#define Tk_CanvasPsColor(interp, canvas, colorPtr) \
+ (tkStubsPtr->tk_CanvasPsColor)(interp, canvas, colorPtr) /* 12 */
+#endif
+#ifndef Tk_CanvasPsFont
+#define Tk_CanvasPsFont(interp, canvas, font) \
+ (tkStubsPtr->tk_CanvasPsFont)(interp, canvas, font) /* 13 */
+#endif
+#ifndef Tk_CanvasPsPath
+#define Tk_CanvasPsPath(interp, canvas, coordPtr, numPoints) \
+ (tkStubsPtr->tk_CanvasPsPath)(interp, canvas, coordPtr, numPoints) /* 14 */
+#endif
+#ifndef Tk_CanvasPsStipple
+#define Tk_CanvasPsStipple(interp, canvas, bitmap) \
+ (tkStubsPtr->tk_CanvasPsStipple)(interp, canvas, bitmap) /* 15 */
+#endif
+#ifndef Tk_CanvasPsY
+#define Tk_CanvasPsY(canvas, y) \
+ (tkStubsPtr->tk_CanvasPsY)(canvas, y) /* 16 */
+#endif
+#ifndef Tk_CanvasSetStippleOrigin
+#define Tk_CanvasSetStippleOrigin(canvas, gc) \
+ (tkStubsPtr->tk_CanvasSetStippleOrigin)(canvas, gc) /* 17 */
+#endif
+#ifndef Tk_CanvasTagsParseProc
+#define Tk_CanvasTagsParseProc(clientData, interp, tkwin, value, widgRec, offset) \
+ (tkStubsPtr->tk_CanvasTagsParseProc)(clientData, interp, tkwin, value, widgRec, offset) /* 18 */
+#endif
+#ifndef Tk_CanvasTagsPrintProc
+#define Tk_CanvasTagsPrintProc(clientData, tkwin, widgRec, offset, freeProcPtr) \
+ (tkStubsPtr->tk_CanvasTagsPrintProc)(clientData, tkwin, widgRec, offset, freeProcPtr) /* 19 */
+#endif
+#ifndef Tk_CanvasTkwin
+#define Tk_CanvasTkwin(canvas) \
+ (tkStubsPtr->tk_CanvasTkwin)(canvas) /* 20 */
+#endif
+#ifndef Tk_CanvasWindowCoords
+#define Tk_CanvasWindowCoords(canvas, x, y, screenXPtr, screenYPtr) \
+ (tkStubsPtr->tk_CanvasWindowCoords)(canvas, x, y, screenXPtr, screenYPtr) /* 21 */
+#endif
+#ifndef Tk_ChangeWindowAttributes
+#define Tk_ChangeWindowAttributes(tkwin, valueMask, attsPtr) \
+ (tkStubsPtr->tk_ChangeWindowAttributes)(tkwin, valueMask, attsPtr) /* 22 */
+#endif
+#ifndef Tk_CharBbox
+#define Tk_CharBbox(layout, index, xPtr, yPtr, widthPtr, heightPtr) \
+ (tkStubsPtr->tk_CharBbox)(layout, index, xPtr, yPtr, widthPtr, heightPtr) /* 23 */
+#endif
+#ifndef Tk_ClearSelection
+#define Tk_ClearSelection(tkwin, selection) \
+ (tkStubsPtr->tk_ClearSelection)(tkwin, selection) /* 24 */
+#endif
+#ifndef Tk_ClipboardAppend
+#define Tk_ClipboardAppend(interp, tkwin, target, format, buffer) \
+ (tkStubsPtr->tk_ClipboardAppend)(interp, tkwin, target, format, buffer) /* 25 */
+#endif
+#ifndef Tk_ClipboardClear
+#define Tk_ClipboardClear(interp, tkwin) \
+ (tkStubsPtr->tk_ClipboardClear)(interp, tkwin) /* 26 */
+#endif
+#ifndef Tk_ConfigureInfo
+#define Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags) \
+ (tkStubsPtr->tk_ConfigureInfo)(interp, tkwin, specs, widgRec, argvName, flags) /* 27 */
+#endif
+#ifndef Tk_ConfigureValue
+#define Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags) \
+ (tkStubsPtr->tk_ConfigureValue)(interp, tkwin, specs, widgRec, argvName, flags) /* 28 */
+#endif
+#ifndef Tk_ConfigureWidget
+#define Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags) \
+ (tkStubsPtr->tk_ConfigureWidget)(interp, tkwin, specs, argc, argv, widgRec, flags) /* 29 */
+#endif
+#ifndef Tk_ConfigureWindow
+#define Tk_ConfigureWindow(tkwin, valueMask, valuePtr) \
+ (tkStubsPtr->tk_ConfigureWindow)(tkwin, valueMask, valuePtr) /* 30 */
+#endif
+#ifndef Tk_ComputeTextLayout
+#define Tk_ComputeTextLayout(font, string, numChars, wrapLength, justify, flags, widthPtr, heightPtr) \
+ (tkStubsPtr->tk_ComputeTextLayout)(font, string, numChars, wrapLength, justify, flags, widthPtr, heightPtr) /* 31 */
+#endif
+#ifndef Tk_CoordsToWindow
+#define Tk_CoordsToWindow(rootX, rootY, tkwin) \
+ (tkStubsPtr->tk_CoordsToWindow)(rootX, rootY, tkwin) /* 32 */
+#endif
+#ifndef Tk_CreateBinding
+#define Tk_CreateBinding(interp, bindingTable, object, eventString, command, append) \
+ (tkStubsPtr->tk_CreateBinding)(interp, bindingTable, object, eventString, command, append) /* 33 */
+#endif
+#ifndef Tk_CreateBindingTable
+#define Tk_CreateBindingTable(interp) \
+ (tkStubsPtr->tk_CreateBindingTable)(interp) /* 34 */
+#endif
+#ifndef Tk_CreateErrorHandler
+#define Tk_CreateErrorHandler(display, errNum, request, minorCode, errorProc, clientData) \
+ (tkStubsPtr->tk_CreateErrorHandler)(display, errNum, request, minorCode, errorProc, clientData) /* 35 */
+#endif
+#ifndef Tk_CreateEventHandler
+#define Tk_CreateEventHandler(token, mask, proc, clientData) \
+ (tkStubsPtr->tk_CreateEventHandler)(token, mask, proc, clientData) /* 36 */
+#endif
+#ifndef Tk_CreateGenericHandler
+#define Tk_CreateGenericHandler(proc, clientData) \
+ (tkStubsPtr->tk_CreateGenericHandler)(proc, clientData) /* 37 */
+#endif
+#ifndef Tk_CreateImageType
+#define Tk_CreateImageType(typePtr) \
+ (tkStubsPtr->tk_CreateImageType)(typePtr) /* 38 */
+#endif
+#ifndef Tk_CreateItemType
+#define Tk_CreateItemType(typePtr) \
+ (tkStubsPtr->tk_CreateItemType)(typePtr) /* 39 */
+#endif
+#ifndef Tk_CreatePhotoImageFormat
+#define Tk_CreatePhotoImageFormat(formatPtr) \
+ (tkStubsPtr->tk_CreatePhotoImageFormat)(formatPtr) /* 40 */
+#endif
+#ifndef Tk_CreateSelHandler
+#define Tk_CreateSelHandler(tkwin, selection, target, proc, clientData, format) \
+ (tkStubsPtr->tk_CreateSelHandler)(tkwin, selection, target, proc, clientData, format) /* 41 */
+#endif
+#ifndef Tk_CreateWindow
+#define Tk_CreateWindow(interp, parent, name, screenName) \
+ (tkStubsPtr->tk_CreateWindow)(interp, parent, name, screenName) /* 42 */
+#endif
+#ifndef Tk_CreateWindowFromPath
+#define Tk_CreateWindowFromPath(interp, tkwin, pathName, screenName) \
+ (tkStubsPtr->tk_CreateWindowFromPath)(interp, tkwin, pathName, screenName) /* 43 */
+#endif
+#ifndef Tk_DefineBitmap
+#define Tk_DefineBitmap(interp, name, source, width, height) \
+ (tkStubsPtr->tk_DefineBitmap)(interp, name, source, width, height) /* 44 */
+#endif
+#ifndef Tk_DefineCursor
+#define Tk_DefineCursor(window, cursor) \
+ (tkStubsPtr->tk_DefineCursor)(window, cursor) /* 45 */
+#endif
+#ifndef Tk_DeleteAllBindings
+#define Tk_DeleteAllBindings(bindingTable, object) \
+ (tkStubsPtr->tk_DeleteAllBindings)(bindingTable, object) /* 46 */
+#endif
+#ifndef Tk_DeleteBinding
+#define Tk_DeleteBinding(interp, bindingTable, object, eventString) \
+ (tkStubsPtr->tk_DeleteBinding)(interp, bindingTable, object, eventString) /* 47 */
+#endif
+#ifndef Tk_DeleteBindingTable
+#define Tk_DeleteBindingTable(bindingTable) \
+ (tkStubsPtr->tk_DeleteBindingTable)(bindingTable) /* 48 */
+#endif
+#ifndef Tk_DeleteErrorHandler
+#define Tk_DeleteErrorHandler(handler) \
+ (tkStubsPtr->tk_DeleteErrorHandler)(handler) /* 49 */
+#endif
+#ifndef Tk_DeleteEventHandler
+#define Tk_DeleteEventHandler(token, mask, proc, clientData) \
+ (tkStubsPtr->tk_DeleteEventHandler)(token, mask, proc, clientData) /* 50 */
+#endif
+#ifndef Tk_DeleteGenericHandler
+#define Tk_DeleteGenericHandler(proc, clientData) \
+ (tkStubsPtr->tk_DeleteGenericHandler)(proc, clientData) /* 51 */
+#endif
+#ifndef Tk_DeleteImage
+#define Tk_DeleteImage(interp, name) \
+ (tkStubsPtr->tk_DeleteImage)(interp, name) /* 52 */
+#endif
+#ifndef Tk_DeleteSelHandler
+#define Tk_DeleteSelHandler(tkwin, selection, target) \
+ (tkStubsPtr->tk_DeleteSelHandler)(tkwin, selection, target) /* 53 */
+#endif
+#ifndef Tk_DestroyWindow
+#define Tk_DestroyWindow(tkwin) \
+ (tkStubsPtr->tk_DestroyWindow)(tkwin) /* 54 */
+#endif
+#ifndef Tk_DisplayName
+#define Tk_DisplayName(tkwin) \
+ (tkStubsPtr->tk_DisplayName)(tkwin) /* 55 */
+#endif
+#ifndef Tk_DistanceToTextLayout
+#define Tk_DistanceToTextLayout(layout, x, y) \
+ (tkStubsPtr->tk_DistanceToTextLayout)(layout, x, y) /* 56 */
+#endif
+#ifndef Tk_Draw3DPolygon
+#define Tk_Draw3DPolygon(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) \
+ (tkStubsPtr->tk_Draw3DPolygon)(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) /* 57 */
+#endif
+#ifndef Tk_Draw3DRectangle
+#define Tk_Draw3DRectangle(tkwin, drawable, border, x, y, width, height, borderWidth, relief) \
+ (tkStubsPtr->tk_Draw3DRectangle)(tkwin, drawable, border, x, y, width, height, borderWidth, relief) /* 58 */
+#endif
+#ifndef Tk_DrawChars
+#define Tk_DrawChars(display, drawable, gc, tkfont, source, numChars, x, y) \
+ (tkStubsPtr->tk_DrawChars)(display, drawable, gc, tkfont, source, numChars, x, y) /* 59 */
+#endif
+#ifndef Tk_DrawFocusHighlight
+#define Tk_DrawFocusHighlight(tkwin, gc, width, drawable) \
+ (tkStubsPtr->tk_DrawFocusHighlight)(tkwin, gc, width, drawable) /* 60 */
+#endif
+#ifndef Tk_DrawTextLayout
+#define Tk_DrawTextLayout(display, drawable, gc, layout, x, y, firstChar, lastChar) \
+ (tkStubsPtr->tk_DrawTextLayout)(display, drawable, gc, layout, x, y, firstChar, lastChar) /* 61 */
+#endif
+#ifndef Tk_Fill3DPolygon
+#define Tk_Fill3DPolygon(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) \
+ (tkStubsPtr->tk_Fill3DPolygon)(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) /* 62 */
+#endif
+#ifndef Tk_Fill3DRectangle
+#define Tk_Fill3DRectangle(tkwin, drawable, border, x, y, width, height, borderWidth, relief) \
+ (tkStubsPtr->tk_Fill3DRectangle)(tkwin, drawable, border, x, y, width, height, borderWidth, relief) /* 63 */
+#endif
+#ifndef Tk_FindPhoto
+#define Tk_FindPhoto(interp, imageName) \
+ (tkStubsPtr->tk_FindPhoto)(interp, imageName) /* 64 */
+#endif
+#ifndef Tk_FontId
+#define Tk_FontId(font) \
+ (tkStubsPtr->tk_FontId)(font) /* 65 */
+#endif
+#ifndef Tk_Free3DBorder
+#define Tk_Free3DBorder(border) \
+ (tkStubsPtr->tk_Free3DBorder)(border) /* 66 */
+#endif
+#ifndef Tk_FreeBitmap
+#define Tk_FreeBitmap(display, bitmap) \
+ (tkStubsPtr->tk_FreeBitmap)(display, bitmap) /* 67 */
+#endif
+#ifndef Tk_FreeColor
+#define Tk_FreeColor(colorPtr) \
+ (tkStubsPtr->tk_FreeColor)(colorPtr) /* 68 */
+#endif
+#ifndef Tk_FreeColormap
+#define Tk_FreeColormap(display, colormap) \
+ (tkStubsPtr->tk_FreeColormap)(display, colormap) /* 69 */
+#endif
+#ifndef Tk_FreeCursor
+#define Tk_FreeCursor(display, cursor) \
+ (tkStubsPtr->tk_FreeCursor)(display, cursor) /* 70 */
+#endif
+#ifndef Tk_FreeFont
+#define Tk_FreeFont(f) \
+ (tkStubsPtr->tk_FreeFont)(f) /* 71 */
+#endif
+#ifndef Tk_FreeGC
+#define Tk_FreeGC(display, gc) \
+ (tkStubsPtr->tk_FreeGC)(display, gc) /* 72 */
+#endif
+#ifndef Tk_FreeImage
+#define Tk_FreeImage(image) \
+ (tkStubsPtr->tk_FreeImage)(image) /* 73 */
+#endif
+#ifndef Tk_FreeOptions
+#define Tk_FreeOptions(specs, widgRec, display, needFlags) \
+ (tkStubsPtr->tk_FreeOptions)(specs, widgRec, display, needFlags) /* 74 */
+#endif
+#ifndef Tk_FreePixmap
+#define Tk_FreePixmap(display, pixmap) \
+ (tkStubsPtr->tk_FreePixmap)(display, pixmap) /* 75 */
+#endif
+#ifndef Tk_FreeTextLayout
+#define Tk_FreeTextLayout(textLayout) \
+ (tkStubsPtr->tk_FreeTextLayout)(textLayout) /* 76 */
+#endif
+#ifndef Tk_FreeXId
+#define Tk_FreeXId(display, xid) \
+ (tkStubsPtr->tk_FreeXId)(display, xid) /* 77 */
+#endif
+#ifndef Tk_GCForColor
+#define Tk_GCForColor(colorPtr, drawable) \
+ (tkStubsPtr->tk_GCForColor)(colorPtr, drawable) /* 78 */
+#endif
+#ifndef Tk_GeometryRequest
+#define Tk_GeometryRequest(tkwin, reqWidth, reqHeight) \
+ (tkStubsPtr->tk_GeometryRequest)(tkwin, reqWidth, reqHeight) /* 79 */
+#endif
+#ifndef Tk_Get3DBorder
+#define Tk_Get3DBorder(interp, tkwin, colorName) \
+ (tkStubsPtr->tk_Get3DBorder)(interp, tkwin, colorName) /* 80 */
+#endif
+#ifndef Tk_GetAllBindings
+#define Tk_GetAllBindings(interp, bindingTable, object) \
+ (tkStubsPtr->tk_GetAllBindings)(interp, bindingTable, object) /* 81 */
+#endif
+#ifndef Tk_GetAnchor
+#define Tk_GetAnchor(interp, string, anchorPtr) \
+ (tkStubsPtr->tk_GetAnchor)(interp, string, anchorPtr) /* 82 */
+#endif
+#ifndef Tk_GetAtomName
+#define Tk_GetAtomName(tkwin, atom) \
+ (tkStubsPtr->tk_GetAtomName)(tkwin, atom) /* 83 */
+#endif
+#ifndef Tk_GetBinding
+#define Tk_GetBinding(interp, bindingTable, object, eventString) \
+ (tkStubsPtr->tk_GetBinding)(interp, bindingTable, object, eventString) /* 84 */
+#endif
+#ifndef Tk_GetBitmap
+#define Tk_GetBitmap(interp, tkwin, string) \
+ (tkStubsPtr->tk_GetBitmap)(interp, tkwin, string) /* 85 */
+#endif
+#ifndef Tk_GetBitmapFromData
+#define Tk_GetBitmapFromData(interp, tkwin, source, width, height) \
+ (tkStubsPtr->tk_GetBitmapFromData)(interp, tkwin, source, width, height) /* 86 */
+#endif
+#ifndef Tk_GetCapStyle
+#define Tk_GetCapStyle(interp, string, capPtr) \
+ (tkStubsPtr->tk_GetCapStyle)(interp, string, capPtr) /* 87 */
+#endif
+#ifndef Tk_GetColor
+#define Tk_GetColor(interp, tkwin, name) \
+ (tkStubsPtr->tk_GetColor)(interp, tkwin, name) /* 88 */
+#endif
+#ifndef Tk_GetColorByValue
+#define Tk_GetColorByValue(tkwin, colorPtr) \
+ (tkStubsPtr->tk_GetColorByValue)(tkwin, colorPtr) /* 89 */
+#endif
+#ifndef Tk_GetColormap
+#define Tk_GetColormap(interp, tkwin, string) \
+ (tkStubsPtr->tk_GetColormap)(interp, tkwin, string) /* 90 */
+#endif
+#ifndef Tk_GetCursor
+#define Tk_GetCursor(interp, tkwin, string) \
+ (tkStubsPtr->tk_GetCursor)(interp, tkwin, string) /* 91 */
+#endif
+#ifndef Tk_GetCursorFromData
+#define Tk_GetCursorFromData(interp, tkwin, source, mask, width, height, xHot, yHot, fg, bg) \
+ (tkStubsPtr->tk_GetCursorFromData)(interp, tkwin, source, mask, width, height, xHot, yHot, fg, bg) /* 92 */
+#endif
+#ifndef Tk_GetFont
+#define Tk_GetFont(interp, tkwin, string) \
+ (tkStubsPtr->tk_GetFont)(interp, tkwin, string) /* 93 */
+#endif
+#ifndef Tk_GetFontFromObj
+#define Tk_GetFontFromObj(interp, tkwin, objPtr) \
+ (tkStubsPtr->tk_GetFontFromObj)(interp, tkwin, objPtr) /* 94 */
+#endif
+#ifndef Tk_GetFontMetrics
+#define Tk_GetFontMetrics(font, fmPtr) \
+ (tkStubsPtr->tk_GetFontMetrics)(font, fmPtr) /* 95 */
+#endif
+#ifndef Tk_GetGC
+#define Tk_GetGC(tkwin, valueMask, valuePtr) \
+ (tkStubsPtr->tk_GetGC)(tkwin, valueMask, valuePtr) /* 96 */
+#endif
+#ifndef Tk_GetImage
+#define Tk_GetImage(interp, tkwin, name, changeProc, clientData) \
+ (tkStubsPtr->tk_GetImage)(interp, tkwin, name, changeProc, clientData) /* 97 */
+#endif
+#ifndef Tk_GetImageMasterData
+#define Tk_GetImageMasterData(interp, name, typePtrPtr) \
+ (tkStubsPtr->tk_GetImageMasterData)(interp, name, typePtrPtr) /* 98 */
+#endif
+#ifndef Tk_GetItemTypes
+#define Tk_GetItemTypes() \
+ (tkStubsPtr->tk_GetItemTypes)() /* 99 */
+#endif
+#ifndef Tk_GetJoinStyle
+#define Tk_GetJoinStyle(interp, string, joinPtr) \
+ (tkStubsPtr->tk_GetJoinStyle)(interp, string, joinPtr) /* 100 */
+#endif
+#ifndef Tk_GetJustify
+#define Tk_GetJustify(interp, string, justifyPtr) \
+ (tkStubsPtr->tk_GetJustify)(interp, string, justifyPtr) /* 101 */
+#endif
+#ifndef Tk_GetNumMainWindows
+#define Tk_GetNumMainWindows() \
+ (tkStubsPtr->tk_GetNumMainWindows)() /* 102 */
+#endif
+#ifndef Tk_GetOption
+#define Tk_GetOption(tkwin, name, className) \
+ (tkStubsPtr->tk_GetOption)(tkwin, name, className) /* 103 */
+#endif
+#ifndef Tk_GetPixels
+#define Tk_GetPixels(interp, tkwin, string, intPtr) \
+ (tkStubsPtr->tk_GetPixels)(interp, tkwin, string, intPtr) /* 104 */
+#endif
+#ifndef Tk_GetPixmap
+#define Tk_GetPixmap(display, d, width, height, depth) \
+ (tkStubsPtr->tk_GetPixmap)(display, d, width, height, depth) /* 105 */
+#endif
+#ifndef Tk_GetRelief
+#define Tk_GetRelief(interp, name, reliefPtr) \
+ (tkStubsPtr->tk_GetRelief)(interp, name, reliefPtr) /* 106 */
+#endif
+#ifndef Tk_GetRootCoords
+#define Tk_GetRootCoords(tkwin, xPtr, yPtr) \
+ (tkStubsPtr->tk_GetRootCoords)(tkwin, xPtr, yPtr) /* 107 */
+#endif
+#ifndef Tk_GetScrollInfo
+#define Tk_GetScrollInfo(interp, argc, argv, dblPtr, intPtr) \
+ (tkStubsPtr->tk_GetScrollInfo)(interp, argc, argv, dblPtr, intPtr) /* 108 */
+#endif
+#ifndef Tk_GetScreenMM
+#define Tk_GetScreenMM(interp, tkwin, string, doublePtr) \
+ (tkStubsPtr->tk_GetScreenMM)(interp, tkwin, string, doublePtr) /* 109 */
+#endif
+#ifndef Tk_GetSelection
+#define Tk_GetSelection(interp, tkwin, selection, target, proc, clientData) \
+ (tkStubsPtr->tk_GetSelection)(interp, tkwin, selection, target, proc, clientData) /* 110 */
+#endif
+#ifndef Tk_GetUid
+#define Tk_GetUid(string) \
+ (tkStubsPtr->tk_GetUid)(string) /* 111 */
+#endif
+#ifndef Tk_GetVisual
+#define Tk_GetVisual(interp, tkwin, string, depthPtr, colormapPtr) \
+ (tkStubsPtr->tk_GetVisual)(interp, tkwin, string, depthPtr, colormapPtr) /* 112 */
+#endif
+#ifndef Tk_GetVRootGeometry
+#define Tk_GetVRootGeometry(tkwin, xPtr, yPtr, widthPtr, heightPtr) \
+ (tkStubsPtr->tk_GetVRootGeometry)(tkwin, xPtr, yPtr, widthPtr, heightPtr) /* 113 */
+#endif
+#ifndef Tk_Grab
+#define Tk_Grab(interp, tkwin, grabGlobal) \
+ (tkStubsPtr->tk_Grab)(interp, tkwin, grabGlobal) /* 114 */
+#endif
+#ifndef Tk_HandleEvent
+#define Tk_HandleEvent(eventPtr) \
+ (tkStubsPtr->tk_HandleEvent)(eventPtr) /* 115 */
+#endif
+#ifndef Tk_IdToWindow
+#define Tk_IdToWindow(display, window) \
+ (tkStubsPtr->tk_IdToWindow)(display, window) /* 116 */
+#endif
+#ifndef Tk_ImageChanged
+#define Tk_ImageChanged(master, x, y, width, height, imageWidth, imageHeight) \
+ (tkStubsPtr->tk_ImageChanged)(master, x, y, width, height, imageWidth, imageHeight) /* 117 */
+#endif
+#ifndef Tk_Init
+#define Tk_Init(interp) \
+ (tkStubsPtr->tk_Init)(interp) /* 118 */
+#endif
+#ifndef Tk_InternAtom
+#define Tk_InternAtom(tkwin, name) \
+ (tkStubsPtr->tk_InternAtom)(tkwin, name) /* 119 */
+#endif
+#ifndef Tk_IntersectTextLayout
+#define Tk_IntersectTextLayout(layout, x, y, width, height) \
+ (tkStubsPtr->tk_IntersectTextLayout)(layout, x, y, width, height) /* 120 */
+#endif
+#ifndef Tk_MaintainGeometry
+#define Tk_MaintainGeometry(slave, master, x, y, width, height) \
+ (tkStubsPtr->tk_MaintainGeometry)(slave, master, x, y, width, height) /* 121 */
+#endif
+#ifndef Tk_MainWindow
+#define Tk_MainWindow(interp) \
+ (tkStubsPtr->tk_MainWindow)(interp) /* 122 */
+#endif
+#ifndef Tk_MakeWindowExist
+#define Tk_MakeWindowExist(tkwin) \
+ (tkStubsPtr->tk_MakeWindowExist)(tkwin) /* 123 */
+#endif
+#ifndef Tk_ManageGeometry
+#define Tk_ManageGeometry(tkwin, mgrPtr, clientData) \
+ (tkStubsPtr->tk_ManageGeometry)(tkwin, mgrPtr, clientData) /* 124 */
+#endif
+#ifndef Tk_MapWindow
+#define Tk_MapWindow(tkwin) \
+ (tkStubsPtr->tk_MapWindow)(tkwin) /* 125 */
+#endif
+#ifndef Tk_MeasureChars
+#define Tk_MeasureChars(tkfont, source, maxChars, maxPixels, flags, lengthPtr) \
+ (tkStubsPtr->tk_MeasureChars)(tkfont, source, maxChars, maxPixels, flags, lengthPtr) /* 126 */
+#endif
+#ifndef Tk_MoveResizeWindow
+#define Tk_MoveResizeWindow(tkwin, x, y, width, height) \
+ (tkStubsPtr->tk_MoveResizeWindow)(tkwin, x, y, width, height) /* 127 */
+#endif
+#ifndef Tk_MoveWindow
+#define Tk_MoveWindow(tkwin, x, y) \
+ (tkStubsPtr->tk_MoveWindow)(tkwin, x, y) /* 128 */
+#endif
+#ifndef Tk_MoveToplevelWindow
+#define Tk_MoveToplevelWindow(tkwin, x, y) \
+ (tkStubsPtr->tk_MoveToplevelWindow)(tkwin, x, y) /* 129 */
+#endif
+#ifndef Tk_NameOf3DBorder
+#define Tk_NameOf3DBorder(border) \
+ (tkStubsPtr->tk_NameOf3DBorder)(border) /* 130 */
+#endif
+#ifndef Tk_NameOfAnchor
+#define Tk_NameOfAnchor(anchor) \
+ (tkStubsPtr->tk_NameOfAnchor)(anchor) /* 131 */
+#endif
+#ifndef Tk_NameOfBitmap
+#define Tk_NameOfBitmap(display, bitmap) \
+ (tkStubsPtr->tk_NameOfBitmap)(display, bitmap) /* 132 */
+#endif
+#ifndef Tk_NameOfCapStyle
+#define Tk_NameOfCapStyle(cap) \
+ (tkStubsPtr->tk_NameOfCapStyle)(cap) /* 133 */
+#endif
+#ifndef Tk_NameOfColor
+#define Tk_NameOfColor(colorPtr) \
+ (tkStubsPtr->tk_NameOfColor)(colorPtr) /* 134 */
+#endif
+#ifndef Tk_NameOfCursor
+#define Tk_NameOfCursor(display, cursor) \
+ (tkStubsPtr->tk_NameOfCursor)(display, cursor) /* 135 */
+#endif
+#ifndef Tk_NameOfFont
+#define Tk_NameOfFont(font) \
+ (tkStubsPtr->tk_NameOfFont)(font) /* 136 */
+#endif
+#ifndef Tk_NameOfImage
+#define Tk_NameOfImage(imageMaster) \
+ (tkStubsPtr->tk_NameOfImage)(imageMaster) /* 137 */
+#endif
+#ifndef Tk_NameOfJoinStyle
+#define Tk_NameOfJoinStyle(join) \
+ (tkStubsPtr->tk_NameOfJoinStyle)(join) /* 138 */
+#endif
+#ifndef Tk_NameOfJustify
+#define Tk_NameOfJustify(justify) \
+ (tkStubsPtr->tk_NameOfJustify)(justify) /* 139 */
+#endif
+#ifndef Tk_NameOfRelief
+#define Tk_NameOfRelief(relief) \
+ (tkStubsPtr->tk_NameOfRelief)(relief) /* 140 */
+#endif
+#ifndef Tk_NameToWindow
+#define Tk_NameToWindow(interp, pathName, tkwin) \
+ (tkStubsPtr->tk_NameToWindow)(interp, pathName, tkwin) /* 141 */
+#endif
+#ifndef Tk_OwnSelection
+#define Tk_OwnSelection(tkwin, selection, proc, clientData) \
+ (tkStubsPtr->tk_OwnSelection)(tkwin, selection, proc, clientData) /* 142 */
+#endif
+#ifndef Tk_ParseArgv
+#define Tk_ParseArgv(interp, tkwin, argcPtr, argv, argTable, flags) \
+ (tkStubsPtr->tk_ParseArgv)(interp, tkwin, argcPtr, argv, argTable, flags) /* 143 */
+#endif
+#ifndef Tk_PhotoPutBlock
+#define Tk_PhotoPutBlock(handle, blockPtr, x, y, width, height) \
+ (tkStubsPtr->tk_PhotoPutBlock)(handle, blockPtr, x, y, width, height) /* 144 */
+#endif
+#ifndef Tk_PhotoPutZoomedBlock
+#define Tk_PhotoPutZoomedBlock(handle, blockPtr, x, y, width, height, zoomX, zoomY, subsampleX, subsampleY) \
+ (tkStubsPtr->tk_PhotoPutZoomedBlock)(handle, blockPtr, x, y, width, height, zoomX, zoomY, subsampleX, subsampleY) /* 145 */
+#endif
+#ifndef Tk_PhotoGetImage
+#define Tk_PhotoGetImage(handle, blockPtr) \
+ (tkStubsPtr->tk_PhotoGetImage)(handle, blockPtr) /* 146 */
+#endif
+#ifndef Tk_PhotoBlank
+#define Tk_PhotoBlank(handle) \
+ (tkStubsPtr->tk_PhotoBlank)(handle) /* 147 */
+#endif
+#ifndef Tk_PhotoExpand
+#define Tk_PhotoExpand(handle, width, height) \
+ (tkStubsPtr->tk_PhotoExpand)(handle, width, height) /* 148 */
+#endif
+#ifndef Tk_PhotoGetSize
+#define Tk_PhotoGetSize(handle, widthPtr, heightPtr) \
+ (tkStubsPtr->tk_PhotoGetSize)(handle, widthPtr, heightPtr) /* 149 */
+#endif
+#ifndef Tk_PhotoSetSize
+#define Tk_PhotoSetSize(handle, width, height) \
+ (tkStubsPtr->tk_PhotoSetSize)(handle, width, height) /* 150 */
+#endif
+#ifndef Tk_PointToChar
+#define Tk_PointToChar(layout, x, y) \
+ (tkStubsPtr->tk_PointToChar)(layout, x, y) /* 151 */
+#endif
+#ifndef Tk_PostscriptFontName
+#define Tk_PostscriptFontName(tkfont, dsPtr) \
+ (tkStubsPtr->tk_PostscriptFontName)(tkfont, dsPtr) /* 152 */
+#endif
+#ifndef Tk_PreserveColormap
+#define Tk_PreserveColormap(display, colormap) \
+ (tkStubsPtr->tk_PreserveColormap)(display, colormap) /* 153 */
+#endif
+#ifndef Tk_QueueWindowEvent
+#define Tk_QueueWindowEvent(eventPtr, position) \
+ (tkStubsPtr->tk_QueueWindowEvent)(eventPtr, position) /* 154 */
+#endif
+#ifndef Tk_RedrawImage
+#define Tk_RedrawImage(image, imageX, imageY, width, height, drawable, drawableX, drawableY) \
+ (tkStubsPtr->tk_RedrawImage)(image, imageX, imageY, width, height, drawable, drawableX, drawableY) /* 155 */
+#endif
+#ifndef Tk_ResizeWindow
+#define Tk_ResizeWindow(tkwin, width, height) \
+ (tkStubsPtr->tk_ResizeWindow)(tkwin, width, height) /* 156 */
+#endif
+#ifndef Tk_RestackWindow
+#define Tk_RestackWindow(tkwin, aboveBelow, other) \
+ (tkStubsPtr->tk_RestackWindow)(tkwin, aboveBelow, other) /* 157 */
+#endif
+#ifndef Tk_RestrictEvents
+#define Tk_RestrictEvents(proc, arg, prevArgPtr) \
+ (tkStubsPtr->tk_RestrictEvents)(proc, arg, prevArgPtr) /* 158 */
+#endif
+#ifndef Tk_SafeInit
+#define Tk_SafeInit(interp) \
+ (tkStubsPtr->tk_SafeInit)(interp) /* 159 */
+#endif
+#ifndef Tk_SetAppName
+#define Tk_SetAppName(tkwin, name) \
+ (tkStubsPtr->tk_SetAppName)(tkwin, name) /* 160 */
+#endif
+#ifndef Tk_SetBackgroundFromBorder
+#define Tk_SetBackgroundFromBorder(tkwin, border) \
+ (tkStubsPtr->tk_SetBackgroundFromBorder)(tkwin, border) /* 161 */
+#endif
+#ifndef Tk_SetClass
+#define Tk_SetClass(tkwin, className) \
+ (tkStubsPtr->tk_SetClass)(tkwin, className) /* 162 */
+#endif
+#ifndef Tk_SetGrid
+#define Tk_SetGrid(tkwin, reqWidth, reqHeight, gridWidth, gridHeight) \
+ (tkStubsPtr->tk_SetGrid)(tkwin, reqWidth, reqHeight, gridWidth, gridHeight) /* 163 */
+#endif
+#ifndef Tk_SetInternalBorder
+#define Tk_SetInternalBorder(tkwin, width) \
+ (tkStubsPtr->tk_SetInternalBorder)(tkwin, width) /* 164 */
+#endif
+#ifndef Tk_SetWindowBackground
+#define Tk_SetWindowBackground(tkwin, pixel) \
+ (tkStubsPtr->tk_SetWindowBackground)(tkwin, pixel) /* 165 */
+#endif
+#ifndef Tk_SetWindowBackgroundPixmap
+#define Tk_SetWindowBackgroundPixmap(tkwin, pixmap) \
+ (tkStubsPtr->tk_SetWindowBackgroundPixmap)(tkwin, pixmap) /* 166 */
+#endif
+#ifndef Tk_SetWindowBorder
+#define Tk_SetWindowBorder(tkwin, pixel) \
+ (tkStubsPtr->tk_SetWindowBorder)(tkwin, pixel) /* 167 */
+#endif
+#ifndef Tk_SetWindowBorderWidth
+#define Tk_SetWindowBorderWidth(tkwin, width) \
+ (tkStubsPtr->tk_SetWindowBorderWidth)(tkwin, width) /* 168 */
+#endif
+#ifndef Tk_SetWindowBorderPixmap
+#define Tk_SetWindowBorderPixmap(tkwin, pixmap) \
+ (tkStubsPtr->tk_SetWindowBorderPixmap)(tkwin, pixmap) /* 169 */
+#endif
+#ifndef Tk_SetWindowColormap
+#define Tk_SetWindowColormap(tkwin, colormap) \
+ (tkStubsPtr->tk_SetWindowColormap)(tkwin, colormap) /* 170 */
+#endif
+#ifndef Tk_SetWindowVisual
+#define Tk_SetWindowVisual(tkwin, visual, depth, colormap) \
+ (tkStubsPtr->tk_SetWindowVisual)(tkwin, visual, depth, colormap) /* 171 */
+#endif
+#ifndef Tk_SizeOfBitmap
+#define Tk_SizeOfBitmap(display, bitmap, widthPtr, heightPtr) \
+ (tkStubsPtr->tk_SizeOfBitmap)(display, bitmap, widthPtr, heightPtr) /* 172 */
+#endif
+#ifndef Tk_SizeOfImage
+#define Tk_SizeOfImage(image, widthPtr, heightPtr) \
+ (tkStubsPtr->tk_SizeOfImage)(image, widthPtr, heightPtr) /* 173 */
+#endif
+#ifndef Tk_StrictMotif
+#define Tk_StrictMotif(tkwin) \
+ (tkStubsPtr->tk_StrictMotif)(tkwin) /* 174 */
+#endif
+#ifndef Tk_TextLayoutToPostscript
+#define Tk_TextLayoutToPostscript(interp, layout) \
+ (tkStubsPtr->tk_TextLayoutToPostscript)(interp, layout) /* 175 */
+#endif
+#ifndef Tk_TextWidth
+#define Tk_TextWidth(font, string, numChars) \
+ (tkStubsPtr->tk_TextWidth)(font, string, numChars) /* 176 */
+#endif
+#ifndef Tk_UndefineCursor
+#define Tk_UndefineCursor(window) \
+ (tkStubsPtr->tk_UndefineCursor)(window) /* 177 */
+#endif
+#ifndef Tk_UnderlineChars
+#define Tk_UnderlineChars(display, drawable, gc, tkfont, source, x, y, firstChar, lastChar) \
+ (tkStubsPtr->tk_UnderlineChars)(display, drawable, gc, tkfont, source, x, y, firstChar, lastChar) /* 178 */
+#endif
+#ifndef Tk_UnderlineTextLayout
+#define Tk_UnderlineTextLayout(display, drawable, gc, layout, x, y, underline) \
+ (tkStubsPtr->tk_UnderlineTextLayout)(display, drawable, gc, layout, x, y, underline) /* 179 */
+#endif
+#ifndef Tk_Ungrab
+#define Tk_Ungrab(tkwin) \
+ (tkStubsPtr->tk_Ungrab)(tkwin) /* 180 */
+#endif
+#ifndef Tk_UnmaintainGeometry
+#define Tk_UnmaintainGeometry(slave, master) \
+ (tkStubsPtr->tk_UnmaintainGeometry)(slave, master) /* 181 */
+#endif
+#ifndef Tk_UnmapWindow
+#define Tk_UnmapWindow(tkwin) \
+ (tkStubsPtr->tk_UnmapWindow)(tkwin) /* 182 */
+#endif
+#ifndef Tk_UnsetGrid
+#define Tk_UnsetGrid(tkwin) \
+ (tkStubsPtr->tk_UnsetGrid)(tkwin) /* 183 */
+#endif
+#ifndef Tk_UpdatePointer
+#define Tk_UpdatePointer(tkwin, x, y, state) \
+ (tkStubsPtr->tk_UpdatePointer)(tkwin, x, y, state) /* 184 */
+#endif
+
+#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 /* _TKDECLS */
+
diff --git a/generic/tkGrab.c b/generic/tkGrab.c
index bbb4f65..b013a63 100644
--- a/generic/tkGrab.c
+++ b/generic/tkGrab.c
@@ -9,12 +9,16 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkGrab.c,v 1.2 1998/09/14 18:23:11 stanton Exp $
+ * RCS: @(#) $Id: tkGrab.c,v 1.3 1999/03/10 07:04:39 stanton Exp $
*/
#include "tkPort.h"
#include "tkInt.h"
+#if !defined(__WIN32__) && !defined(MAC_TCL)
+#include "tkUnixInt.h"
+#endif
+
/*
* The grab state machine has four states: ungrabbed, button pressed,
* grabbed, and button pressed while grabbed. In addition, there are
diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c
index 6ae07f6..285f1df 100644
--- a/generic/tkImgPhoto.c
+++ b/generic/tkImgPhoto.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkImgPhoto.c,v 1.4 1999/02/04 21:43:14 stanton Exp $
+ * RCS: @(#) $Id: tkImgPhoto.c,v 1.5 1999/03/10 07:04:39 stanton Exp $
*/
#include "tkInt.h"
@@ -19,6 +19,10 @@
#include "tclMath.h"
#include <ctype.h>
+#ifdef __WIN32__
+#include "tkWinInt.h"
+#endif
+
/*
* Declaration for internal Xlib function used here:
*/
@@ -121,6 +125,9 @@ typedef struct ColorTable {
* MAP_COLORS: 1 means pixel values should be mapped
* through pixelMap.
*/
+#ifdef COLOR_WINDOW
+#undef COLOR_WINDOW
+#endif
#define BLACK_AND_WHITE 1
#define COLOR_WINDOW 2
diff --git a/generic/tkInt.decls b/generic/tkInt.decls
new file mode 100644
index 0000000..b3b50a4
--- /dev/null
+++ b/generic/tkInt.decls
@@ -0,0 +1,1577 @@
+# tkInt.decls --
+#
+# This file contains the declarations for all unsupported
+# functions that are exported by the Tk library. This file
+# is used to generate the tkIntDecls.h, tkIntPlatDecls.h,
+# tkIntStub.c, and tkPlatStub.c files.
+#
+# 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: tkInt.decls,v 1.2 1999/03/10 07:04:40 stanton Exp $
+
+library tk
+
+# Define the unsupported generic interfaces.
+
+interface tkInt
+
+# Declare each of the functions in the unsupported internal Tcl
+# interface. These interfaces are allowed to changed between versions.
+# Use at your own risk. Note that the position of functions should not
+# be changed between versions to avoid gratuitous incompatibilities.
+
+declare 0 generic {
+ TkWindow * TkAllocWindow (TkDisplay *dispPtr, int screenNum, \
+ TkWindow *parentPtr)
+}
+
+declare 1 generic {
+ void TkBezierPoints (double control[], int numSteps, double *coordPtr)
+}
+
+declare 2 generic {
+ void TkBezierScreenPoints (Tk_Canvas canvas, double control[], \
+ int numSteps, XPoint *xPointPtr)
+}
+
+declare 3 generic {
+ void TkBindDeadWindow (TkWindow *winPtr)
+}
+
+declare 4 generic {
+ void TkBindEventProc (TkWindow *winPtr, XEvent *eventPtr)
+}
+
+declare 5 generic {
+ void TkBindFree (TkMainInfo *mainPtr)
+}
+
+declare 6 generic {
+ void TkBindInit (TkMainInfo *mainPtr)
+}
+
+declare 7 generic {
+ void TkChangeEventWindow (XEvent *eventPtr, TkWindow *winPtr)
+}
+
+declare 8 generic {
+ int TkClipInit (Tcl_Interp *interp, TkDisplay *dispPtr)
+}
+
+declare 9 generic {
+ void TkComputeAnchor (Tk_Anchor anchor, Tk_Window tkwin, \
+ int padX, int padY, int innerWidth, int innerHeight, \
+ int *xPtr, int *yPtr)
+}
+
+declare 10 generic {
+ int TkCopyAndGlobalEval (Tcl_Interp *interp, char *script)
+}
+
+declare 11 generic {
+ unsigned long TkCreateBindingProcedure (Tcl_Interp *interp, \
+ Tk_BindingTable bindingTable, \
+ ClientData object, char *eventString, \
+ TkBindEvalProc *evalProc, TkBindFreeProc *freeProc, \
+ ClientData clientData)
+}
+
+declare 12 generic {
+ TkCursor * TkCreateCursorFromData (Tk_Window tkwin, \
+ char *source, char *mask, int width, int height, \
+ int xHot, int yHot, XColor fg, XColor bg)
+}
+
+declare 13 generic {
+ int TkCreateFrame (ClientData clientData, \
+ Tcl_Interp *interp, int argc, char **argv, \
+ int toplevel, char *appName)
+}
+
+declare 14 generic {
+ Tk_Window TkCreateMainWindow (Tcl_Interp *interp, \
+ char *screenName, char *baseName)
+}
+
+declare 15 generic {
+ Time TkCurrentTime (TkDisplay *dispPtr)
+}
+
+declare 16 generic {
+ void TkDeleteAllImages (TkMainInfo *mainPtr)
+}
+
+declare 17 generic {
+ void TkDoConfigureNotify (TkWindow *winPtr)
+}
+
+declare 18 generic {
+ void TkDrawInsetFocusHighlight (Tk_Window tkwin, GC gc, int width, \
+ Drawable drawable, int padding)
+}
+
+declare 19 generic {
+ void TkEventDeadWindow (TkWindow *winPtr)
+}
+
+declare 20 generic {
+ void TkFillPolygon (Tk_Canvas canvas, \
+ double *coordPtr, int numPoints, Display *display, \
+ Drawable drawable, GC gc, GC outlineGC)
+}
+
+declare 21 generic {
+ int TkFindStateNum (Tcl_Interp *interp, \
+ CONST char *option, CONST TkStateMap *mapPtr, \
+ CONST char *strKey)
+}
+
+declare 22 generic {
+ char * TkFindStateString (CONST TkStateMap *mapPtr, int numKey)
+}
+
+declare 23 generic {
+ void TkFocusDeadWindow (TkWindow *winPtr)
+}
+
+declare 24 generic {
+ int TkFocusFilterEvent (TkWindow *winPtr, XEvent *eventPtr)
+}
+
+declare 25 generic {
+ TkWindow * TkFocusKeyEvent (TkWindow *winPtr, XEvent *eventPtr)
+}
+
+declare 26 generic {
+ void TkFontPkgInit (TkMainInfo *mainPtr)
+}
+
+declare 27 generic {
+ void TkFontPkgFree (TkMainInfo *mainPtr)
+}
+
+declare 28 generic {
+ void TkFreeBindingTags (TkWindow *winPtr)
+}
+
+declare 29 generic {
+ void TkFreeCursor (TkCursor *cursorPtr)
+}
+
+declare 30 generic {
+ char * TkGetBitmapData (Tcl_Interp *interp, \
+ char *string, char *fileName, int *widthPtr, \
+ int *heightPtr, int *hotXPtr, int *hotYPtr)
+}
+
+declare 31 generic {
+ void TkGetButtPoints (double p1[], double p2[], \
+ double width, int project, double m1[], double m2[])
+}
+
+declare 32 generic {
+ TkCursor * TkGetCursorByName (Tcl_Interp *interp, \
+ Tk_Window tkwin, Tk_Uid string)
+}
+
+declare 33 generic {
+ char * TkGetDefaultScreenName (Tcl_Interp *interp, char *screenName)
+}
+
+declare 34 generic {
+ TkDisplay * TkGetDisplay (Display *display)
+}
+
+declare 35 generic {
+ int TkGetDisplayOf (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \
+ Tk_Window *tkwinPtr)
+}
+
+declare 36 generic {
+ TkWindow * TkGetFocusWin (TkWindow *winPtr)
+}
+
+declare 37 generic {
+ int TkGetInterpNames (Tcl_Interp *interp, Tk_Window tkwin)
+}
+
+declare 38 generic {
+ int TkGetMiterPoints (double p1[], double p2[], double p3[], \
+ double width, double m1[],double m2[])
+}
+
+declare 39 generic {
+ void TkGetPointerCoords (Tk_Window tkwin, int *xPtr, int *yPtr)
+}
+
+declare 40 generic {
+ void TkGetServerInfo (Tcl_Interp *interp, Tk_Window tkwin)
+}
+
+declare 41 generic {
+ void TkGrabDeadWindow (TkWindow *winPtr)
+}
+
+declare 42 generic {
+ int TkGrabState (TkWindow *winPtr)
+}
+
+declare 43 generic {
+ void TkIncludePoint (Tk_Item *itemPtr, double *pointPtr)
+}
+
+declare 44 generic {
+ void TkInOutEvents (XEvent *eventPtr, TkWindow *sourcePtr, \
+ TkWindow *destPtr, int leaveType, int enterType, \
+ Tcl_QueuePosition position)
+}
+
+declare 45 generic {
+ void TkInstallFrameMenu (Tk_Window tkwin)
+}
+
+declare 46 generic {
+ char * TkKeysymToString (KeySym keysym)
+}
+
+declare 47 generic {
+ int TkLineToArea (TkDouble2 end1Ptr, TkDouble2 end2Ptr, TkDouble4 rectPtr)
+}
+
+declare 48 generic {
+ double TkLineToPoint (double end1Ptr[], \
+ TkDouble2 end2Ptr, TkDouble2 pointPtr)
+}
+
+declare 49 generic {
+ int TkMakeBezierCurve (Tk_Canvas canvas, \
+ double *pointPtr, int numPoints, int numSteps, \
+ XPoint xPoints[], double dblPoints[])
+}
+
+declare 50 generic {
+ void TkMakeBezierPostscript (Tcl_Interp *interp, \
+ Tk_Canvas canvas, double *pointPtr, int numPoints)
+}
+
+declare 51 generic {
+ void TkOptionClassChanged (TkWindow *winPtr)
+}
+
+declare 52 generic {
+ void TkOptionDeadWindow (TkWindow *winPtr)
+}
+
+declare 53 generic {
+ int TkOvalToArea (double *ovalPtr, double *rectPtr)
+}
+
+declare 54 generic {
+ double TkOvalToPoint (TkDouble4 ovalPtr, \
+ double width, int filled, TkDouble2 pointPtr)
+}
+
+declare 55 generic {
+ int TkpChangeFocus (TkWindow *winPtr, int force)
+}
+
+declare 56 generic {
+ void TkpCloseDisplay (TkDisplay *dispPtr)
+}
+
+declare 57 generic {
+ void TkpClaimFocus (TkWindow *topLevelPtr, int force)
+}
+
+declare 58 generic {
+ void TkpDisplayWarning (char *msg, char *title)
+}
+
+declare 59 generic {
+ void TkpGetAppName (Tcl_Interp *interp, Tcl_DString *name)
+}
+
+declare 60 generic {
+ TkWindow * TkpGetOtherWindow (TkWindow *winPtr)
+}
+
+declare 61 generic {
+ TkWindow * TkpGetWrapperWindow (TkWindow *winPtr)
+}
+
+declare 62 generic {
+ int TkpInit (Tcl_Interp *interp)
+}
+
+declare 63 generic {
+ void TkpInitializeMenuBindings (Tcl_Interp *interp, \
+ Tk_BindingTable bindingTable)
+}
+
+declare 64 generic {
+ void TkpMakeContainer (Tk_Window tkwin)
+}
+
+declare 65 generic {
+ void TkpMakeMenuWindow (Tk_Window tkwin, int transient)
+}
+
+declare 66 generic {
+ Window TkpMakeWindow (TkWindow *winPtr, Window parent)
+}
+
+declare 67 generic {
+ void TkpMenuNotifyToplevelCreate (Tcl_Interp *interp1, char *menuName)
+}
+
+declare 68 generic {
+ TkDisplay * TkpOpenDisplay (char *display_name)
+}
+
+declare 69 generic {
+ int TkPointerEvent (XEvent *eventPtr, TkWindow *winPtr)
+}
+
+declare 70 generic {
+ int TkPolygonToArea (double *polyPtr, int numPoints, double *rectPtr)
+}
+
+declare 71 generic {
+ double TkPolygonToPoint (double *polyPtr, int numPoints, double *pointPtr)
+}
+
+declare 72 generic {
+ int TkPositionInTree (TkWindow *winPtr, TkWindow *treePtr)
+}
+
+declare 73 generic {
+ void TkpRedirectKeyEvent (TkWindow *winPtr, XEvent *eventPtr)
+}
+
+declare 74 generic {
+ void TkpSetMainMenubar (Tcl_Interp *interp, \
+ Tk_Window tkwin, char *menuName)
+}
+
+declare 75 generic {
+ int TkpUseWindow (Tcl_Interp *interp, Tk_Window tkwin, char *string)
+}
+
+declare 76 generic {
+ int TkpWindowWasRecentlyDeleted (Window win, TkDisplay *dispPtr)
+}
+
+declare 77 generic {
+ void TkQueueEventForAllChildren (TkWindow *winPtr, XEvent *eventPtr)
+}
+
+declare 78 generic {
+ int TkReadBitmapFile (Display* display, Drawable d, CONST char* filename, \
+ unsigned int* width_return, unsigned int* height_return, \
+ Pixmap* bitmap_return, int* x_hot_return, int* y_hot_return)
+}
+
+declare 79 generic {
+ int TkScrollWindow (Tk_Window tkwin, GC gc, \
+ int x, int y, int width, int height, int dx, \
+ int dy, TkRegion damageRgn)
+}
+
+declare 80 generic {
+ void TkSelDeadWindow (TkWindow *winPtr)
+}
+
+declare 81 generic {
+ void TkSelEventProc (Tk_Window tkwin, XEvent *eventPtr)
+}
+
+declare 82 generic {
+ void TkSelInit (Tk_Window tkwin)
+}
+
+declare 83 generic {
+ void TkSelPropProc (XEvent *eventPtr)
+}
+
+declare 84 generic {
+ void TkSetClassProcs (Tk_Window tkwin, \
+ TkClassProcs *procs, ClientData instanceData)
+}
+
+declare 85 generic {
+ void TkSetWindowMenuBar (Tcl_Interp *interp, \
+ Tk_Window tkwin, char *oldMenuName, char *menuName)
+}
+
+declare 86 generic {
+ KeySym TkStringToKeysym (char *name)
+}
+
+declare 87 generic {
+ int TkThickPolyLineToArea (double *coordPtr, \
+ int numPoints, double width, int capStyle, \
+ int joinStyle, double *rectPtr)
+}
+
+declare 88 generic {
+ void TkWmAddToColormapWindows (TkWindow *winPtr)
+}
+
+declare 89 generic {
+ void TkWmDeadWindow (TkWindow *winPtr)
+}
+
+declare 90 generic {
+ TkWindow * TkWmFocusToplevel (TkWindow *winPtr)
+}
+
+declare 91 generic {
+ void TkWmMapWindow (TkWindow *winPtr)
+}
+
+declare 92 generic {
+ void TkWmNewWindow (TkWindow *winPtr)
+}
+
+declare 93 generic {
+ void TkWmProtocolEventProc (TkWindow *winPtr, XEvent *evenvPtr)
+}
+
+declare 94 generic {
+ void TkWmRemoveFromColormapWindows (TkWindow *winPtr)
+}
+
+declare 95 generic {
+ void TkWmRestackToplevel (TkWindow *winPtr, int aboveBelow, \
+ TkWindow *otherPtr)
+}
+
+declare 96 generic {
+ void TkWmSetClass (TkWindow *winPtr)
+}
+
+declare 97 generic {
+ void TkWmUnmapWindow (TkWindow *winPtr)
+}
+
+
+##############################################################################
+
+# Define the platform specific internal Tcl interface. These functions are
+# only available on the designated platform.
+
+interface tkIntPlat
+
+#########################
+# Unix specific functions
+
+declare 0 unix {
+ void TkCreateXEventSource (void)
+}
+
+declare 1 unix {
+ void TkFreeWindowId (TkDisplay *dispPtr, Window w)
+}
+
+declare 2 unix {
+ void TkInitXId (TkDisplay *dispPtr)
+}
+
+declare 3 unix {
+ int TkpCmapStressed (Tk_Window tkwin, Colormap colormap)}
+
+
+declare 4 unix {
+ void TkpSync (Display *display)
+}
+
+declare 5 unix {
+ Window TkUnixContainerId (TkWindow *winPtr)
+}
+
+declare 6 unix {
+ int TkUnixDoOneXEvent (Tcl_Time *timePtr)
+}
+
+declare 7 unix {
+ void TkUnixSetMenubar (Tk_Window tkwin, Tk_Window menubar)
+}
+
+
+
+############################
+# Windows specific functions
+
+declare 0 win {
+ char * TkAlignImageData (XImage *image, int alignment, int bitOrder)
+}
+
+declare 1 win {
+ void TkClipBox (TkRegion rgn, XRectangle* rect_return)
+}
+
+declare 2 win {
+ TkRegion TkCreateRegion (void)
+}
+
+declare 3 win {
+ void TkDestroyRegion (TkRegion rgn)
+}
+
+declare 4 win {
+ void TkGenerateActivateEvents (TkWindow *winPtr, int active)
+}
+
+declare 5 win {
+ void TkIntersectRegion (TkRegion sra, TkRegion srcb, TkRegion dr_return)
+}
+
+declare 6 win {
+ unsigned long TkpGetMS (void)
+}
+
+declare 7 win {
+ void TkPointerDeadWindow (TkWindow *winPtr)
+}
+
+declare 8 win {
+ void TkpPrintWindowId (char *buf, Window window)
+}
+
+declare 9 win {
+ int TkpScanWindowId (Tcl_Interp *interp, char *string, int *idPtr)
+}
+
+declare 10 win {
+ void TkpSetCapture (TkWindow *winPtr)
+}
+
+declare 11 win {
+ void TkpSetCursor (TkpCursor cursor)
+}
+
+declare 12 win {
+ void TkpWmSetState (TkWindow *winPtr, int state)
+}
+
+declare 13 win {
+ int TkRectInRegion (TkRegion rgn, int x, int y, unsigned int width, \
+ unsigned int height)
+}
+
+declare 14 win {
+ void TkSetPixmapColormap (Pixmap pixmap, Colormap colormap)
+}
+
+declare 15 win {
+ void TkSetRegion (Display* display, GC gc, TkRegion rgn)
+}
+
+declare 16 win {
+ void TkUnionRectWithRegion (XRectangle* rect, \
+ TkRegion src, TkRegion dr_return)
+}
+
+declare 17 win {
+ void TkWinCancelMouseTimer (void)
+}
+
+declare 18 win {
+ void TkWinClipboardRender (TkDisplay *dispPtr, UINT format)
+}
+
+declare 19 win {
+ LRESULT TkWinEmbeddedEventProc (HWND hwnd, UINT message, \
+ WPARAM wParam, LPARAM lParam)
+}
+
+declare 20 win {
+ void TkWinFillRect (HDC dc, int x, int y, int width, int height, \
+ int pixel)
+}
+
+declare 21 win {
+ COLORREF TkWinGetBorderPixels (Tk_Window tkwin, Tk_3DBorder border, \
+ int which)
+}
+
+declare 22 win {
+ HDC TkWinGetDrawableDC (Display *display, Drawable d, TkWinDCState* state)
+}
+
+declare 23 win {
+ int TkWinGetModifierState (void)
+}
+
+declare 24 win {
+ HPALETTE TkWinGetSystemPalette (void)
+}
+
+declare 25 win {
+ HWND TkWinGetWrapperWindow (Tk_Window tkwin)
+}
+
+declare 26 win {
+ int TkWinHandleMenuEvent (HWND *phwnd, \
+ UINT *pMessage, WPARAM *pwParam, LPARAM *plParam, \
+ LRESULT *plResult)
+}
+
+declare 27 win {
+ int TkWinIndexOfColor (XColor *colorPtr)
+}
+
+declare 28 win {
+ void TkWinReleaseDrawableDC (Drawable d, HDC hdc, TkWinDCState* state)
+}
+
+declare 29 win {
+ LRESULT TkWinResendEvent (WNDPROC wndproc, HWND hwnd, XEvent *eventPtr)
+}
+
+declare 30 win {
+ HPALETTE TkWinSelectPalette (HDC dc, Colormap colormap)
+}
+
+declare 31 win {
+ void TkWinSetMenu (Tk_Window tkwin, HMENU hMenu)
+}
+
+declare 32 win {
+ void TkWinSetWindowPos (HWND hwnd, HWND siblingHwnd, int pos)
+}
+
+declare 33 win {
+ void TkWinWmCleanup (HINSTANCE hInstance)
+}
+
+declare 34 win {
+ void TkWinXCleanup (HINSTANCE hInstance)
+}
+
+declare 35 win {
+ void TkWinXInit (HINSTANCE hInstance)
+}
+
+
+########################
+# Mac specific functions
+
+declare 0 mac {
+ void TkClipBox (TkRegion rgn, XRectangle* rect_return)
+}
+
+declare 1 mac {
+ TkRegion TkCreateRegion (void)
+}
+
+declare 2 mac {
+ void TkDestroyRegion (TkRegion rgn)
+}
+
+declare 3 mac {
+ void TkGenerateActivateEvents (TkWindow *winPtr, int active)
+}
+
+declare 4 mac {
+ void TkIntersectRegion (TkRegion sra, TkRegion srcb, TkRegion dr_return)
+}
+
+declare 5 mac {
+ Pixmap TkpCreateNativeBitmap (Display *display, char * source)
+}
+
+declare 6 mac {
+ void TkpDefineNativeBitmaps (void)
+}
+
+declare 7 mac {
+ unsigned long TkpGetMS (void)
+}
+
+declare 8 mac {
+ Pixmap TkpGetNativeAppBitmap (Display *display, \
+ char *name, int *width, int *height)
+}
+
+declare 9 mac {
+ void TkPointerDeadWindow (TkWindow *winPtr)
+}
+
+declare 10 mac {
+ void TkpSetCapture (TkWindow *winPtr)
+}
+
+declare 11 mac {
+ void TkpSetCursor (TkpCursor cursor)
+}
+
+declare 12 mac {
+ void TkpWmSetState (TkWindow *winPtr, int state)
+}
+
+declare 13 mac {
+ int TkRectInRegion (TkRegion rgn, int x, int y, unsigned int width, \
+ unsigned int height)
+}
+
+declare 14 mac {
+ void TkSetRegion (Display* display, GC gc, TkRegion rgn)
+}
+
+declare 15 mac {
+ void TkUnionRectWithRegion (XRectangle* rect, \
+ TkRegion src, TkRegion dr_return)
+}
+
+declare 16 mac {
+ int HandleWMEvent (EventRecord *theEvent)
+}
+
+declare 17 mac {
+ void TkAboutDlg (void)
+}
+
+declare 18 mac {
+ void TkCreateMacEventSource (void)
+}
+
+declare 19 mac {
+ void TkFontList (Tcl_Interp *interp, Display *display)
+}
+
+declare 20 mac {
+ Window TkGetTransientMaster (TkWindow *winPtr)
+}
+
+declare 21 mac {
+ int TkGenerateButtonEvent (int x, int y, \
+ Window window, unsigned int state)
+}
+
+declare 22 mac {
+ int TkGetCharPositions (XFontStruct *font_struct, char *string, \
+ int count, short *buffer)
+}
+
+declare 23 mac {
+ void TkGenWMDestroyEvent (Tk_Window tkwin)
+}
+
+declare 24 mac {
+ void TkGenWMConfigureEvent (Tk_Window tkwin, int x, int y, \
+ int width, int height, int flags)
+}
+
+declare 25 mac {
+ unsigned int TkMacButtonKeyState (void)
+}
+
+declare 26 mac {
+ void TkMacClearMenubarActive (void)
+}
+
+declare 27 mac {
+ int TkMacConvertEvent (EventRecord *eventPtr)
+}
+
+declare 28 mac {
+ int TkMacDispatchMenuEvent (int menuID, int index)
+}
+
+declare 29 mac {
+ void TkMacInstallCursor (int resizeOverride)
+}
+
+declare 30 mac {
+ int TkMacConvertTkEvent (EventRecord *eventPtr, Window window)
+}
+
+declare 31 mac {
+ void TkMacHandleTearoffMenu (void)
+}
+
+declare 32 mac {
+ void tkMacInstallMWConsole (Tcl_Interp *interp)
+}
+
+declare 33 mac {
+ void TkMacInvalClipRgns (TkWindow *winPtr)
+}
+
+declare 34 mac {
+ void TkMacDoHLEvent (EventRecord *theEvent)
+}
+
+declare 35 mac {
+ void TkMacFontInfo (Font fontId, short *family, \
+ short *style, short *size)
+}
+
+declare 36 mac {
+ Time TkMacGenerateTime (void)
+}
+
+declare 37 mac {
+ GWorldPtr TkMacGetDrawablePort (Drawable drawable)
+}
+
+declare 38 mac {
+ TkWindow * TkMacGetScrollbarGrowWindow (TkWindow *winPtr)
+}
+
+declare 39 mac {
+ Window TkMacGetXWindow (WindowRef macWinPtr)
+}
+
+declare 40 mac {
+ int TkMacGrowToplevel (WindowRef whichWindow, Point start)
+}
+
+declare 41 mac {
+ void TkMacHandleMenuSelect (long mResult, int optionKeyPressed)
+}
+
+declare 42 mac {
+ int TkMacHaveAppearance (void)
+}
+
+declare 43 mac {
+ void TkMacInitAppleEvents (Tcl_Interp *interp)
+}
+
+declare 44 mac {
+ void TkMacInitMenus (Tcl_Interp *interp)
+}
+
+declare 45 mac {
+ void TkMacInvalidateWindow (MacDrawable *macWin, int flag)
+}
+
+declare 46 mac {
+ int TkMacIsCharacterMissing (Tk_Font tkfont, unsigned int searchChar)
+}
+
+declare 47 mac {
+ void TkMacMakeRealWindowExist (TkWindow *winPtr)
+}
+
+declare 48 mac {
+ BitMapPtr TkMacMakeStippleMap(Drawable d1, Drawable d2)
+}
+
+declare 49 mac {
+ void TkMacMenuClick (void)
+}
+
+declare 50 mac {
+ void TkMacRegisterOffScreenWindow (Window window, GWorldPtr portPtr)
+}
+
+declare 51 mac {
+ int TkMacResizable (TkWindow *winPtr)
+}
+
+declare 52 mac {
+ void TkMacSetEmbedRgn (TkWindow *winPtr, RgnHandle rgn)
+}
+
+declare 53 mac {
+ void TkMacSetHelpMenuItemCount (void)
+}
+
+declare 54 mac {
+ void TkMacSetScrollbarGrow (TkWindow *winPtr, int flag)
+}
+
+declare 55 mac {
+ void TkMacSetUpClippingRgn (Drawable drawable)
+}
+
+declare 56 mac {
+ void TkMacSetUpGraphicsPort (GC gc)
+}
+
+declare 57 mac {
+ void TkMacUpdateClipRgn (TkWindow *winPtr)
+}
+
+declare 58 mac {
+ void TkMacUnregisterMacWindow (GWorldPtr portPtr)
+}
+
+declare 59 mac {
+ int TkMacUseMenuID (short macID)
+}
+
+declare 60 mac {
+ RgnHandle TkMacVisableClipRgn (TkWindow *winPtr)
+}
+
+declare 61 mac {
+ void TkMacWinBounds (TkWindow *winPtr, Rect *geometry)
+}
+
+declare 62 mac {
+ void TkMacWindowOffset (WindowRef wRef, int *xOffset, int *yOffset)
+}
+
+declare 63 mac {
+ void TkResumeClipboard (void)
+}
+
+declare 64 mac {
+ int TkSetMacColor (unsigned long pixel, RGBColor *macColor)
+}
+
+declare 65 mac {
+ void TkSetWMName (TkWindow *winPtr, Tk_Uid titleUid)
+}
+
+declare 66 mac {
+ void TkSuspendClipboard (void)
+}
+
+declare 67 mac {
+ int TkWMGrowToplevel (WindowRef whichWindow, Point start)
+}
+
+declare 68 mac {
+ int TkMacZoomToplevel (WindowPtr whichWindow, Point where, short zoomPart)
+}
+
+declare 69 mac {
+ Tk_Window Tk_TopCoordsToWindow (Tk_Window tkwin, \
+ int rootX, int rootY, int *newX, int *newY)
+}
+
+declare 70 mac {
+ MacDrawable * TkMacContainerId (TkWindow *winPtr)
+}
+
+declare 71 mac {
+ MacDrawable * TkMacGetHostToplevel (TkWindow *winPtr)
+}
+
+
+##############################################################################
+
+# Define the platform specific internal Xlib interfaces. These functions are
+# only available on the designated platform.
+
+interface tkIntXlib
+
+# X functions for Windows
+
+declare 0 win {
+ XModifierKeymap* XGetModifierMapping (Display* d)
+}
+
+declare 1 win {
+ XImage * XCreateImage (Display* d, Visual* v, unsigned int ui1, int i1, \
+ int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, \
+ int i4)
+
+}
+
+declare 2 win {
+ XImage *XGetImage (Display* d, Drawable dr, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)
+}
+
+declare 3 win {
+ char *XGetAtomName (Display* d,Atom a)
+
+}
+
+declare 4 win {
+ char *XKeysymToString (KeySym k)
+}
+
+declare 5 win {
+ Colormap XCreateColormap (Display* d, Window w, Visual* v, int i)
+
+}
+
+declare 6 win {
+ Cursor XCreatePixmapCursor (Display* d, Pixmap p1, Pixmap p2, \
+ XColor* x1, XColor* x2, \
+ unsigned int ui1, unsigned int ui2)
+}
+
+declare 7 win {
+ Cursor XCreateGlyphCursor (Display* d, Font f1, Font f2, \
+ unsigned int ui1, unsigned int ui2, XColor* x1, XColor* x2)
+}
+
+declare 8 win {
+ GContext XGContextFromGC (GC g)
+}
+
+declare 9 win {
+ XHostAddress *XListHosts (Display* d, int* i, Bool* b)
+}
+
+# second parameter was of type KeyCode
+declare 10 win {
+ KeySym XKeycodeToKeysym (Display* d, unsigned int k, int i)
+}
+
+declare 11 win {
+ KeySym XStringToKeysym (_Xconst char* c)
+}
+
+declare 12 win {
+ Window XRootWindow (Display* d, int i)
+}
+
+declare 13 win {
+ XErrorHandler XSetErrorHandler (XErrorHandler x)
+}
+
+declare 14 win {
+ Status XIconifyWindow (Display* d, Window w, int i)
+}
+
+declare 15 win {
+ Status XWithdrawWindow (Display* d, Window w, int i)
+}
+
+declare 16 win {
+ Status XGetWMColormapWindows (Display* d, Window w, Window** wpp, int* ip)
+}
+
+declare 17 win {
+ Status XAllocColor (Display* d, Colormap c, XColor* xp)
+}
+
+declare 18 win {
+ void XBell (Display* d, int i)
+}
+
+declare 19 win {
+ void XChangeProperty (Display* d, Window w, Atom a1, Atom a2, int i1, \
+ int i2, _Xconst unsigned char* c, int i3)
+}
+
+declare 20 win {
+ void XChangeWindowAttributes (Display* d, Window w, unsigned long ul, \
+ XSetWindowAttributes* x)
+}
+
+declare 21 win {
+ void XClearWindow (Display* d, Window w)
+}
+
+declare 22 win {
+ void XConfigureWindow (Display* d, Window w, unsigned int i, \
+ XWindowChanges* x)
+}
+
+declare 23 win {
+ void XCopyArea (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \
+ int i2, unsigned int ui1, \
+ unsigned int ui2, int i3, int i4)
+}
+
+declare 24 win {
+ void XCopyPlane (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \
+ int i2, unsigned int ui1, \
+ unsigned int ui2, int i3, int i4, unsigned long ul)
+}
+
+declare 25 win {
+ void XDefineCursor (Display* d, Window w, Cursor c)
+}
+
+declare 26 win {
+ void XDeleteProperty (Display* d, Window w, Atom a)
+}
+
+declare 27 win {
+ void XDestroyWindow (Display* d, Window w)
+}
+
+declare 28 win {
+ void XDrawArc (Display* d, Drawable dr, GC g, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2, int i3, int i4)
+}
+
+declare 29 win {
+ void XDrawLines (Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)
+}
+
+declare 30 win {
+ void XDrawRectangle (Display* d, Drawable dr, GC g, int i1, int i2,\
+ unsigned int ui1, unsigned int ui2)
+}
+
+declare 31 win {
+ void XFillArc (Display* d, Drawable dr, GC g, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2, int i3, int i4)
+}
+
+declare 32 win {
+ void XFillPolygon (Display* d, Drawable dr, GC g, XPoint* x, \
+ int i1, int i2, int i3)
+}
+
+declare 33 win {
+ void XFillRectangles (Display* d, Drawable dr, GC g, XRectangle* x, int i)
+}
+
+declare 34 win {
+ void XForceScreenSaver (Display* d, int i)
+}
+
+declare 35 win {
+ void XFreeColormap (Display* d, Colormap c)
+}
+
+declare 36 win {
+ void XFreeColors (Display* d, Colormap c, \
+ unsigned long* ulp, int i, unsigned long ul)
+}
+
+declare 37 win {
+ void XFreeCursor (Display* d, Cursor c)
+}
+
+declare 38 win {
+ void XFreeModifiermap (XModifierKeymap* x)
+}
+
+declare 39 win {
+ Status XGetGeometry (Display* d, Drawable dr, Window* w, int* i1, \
+ int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, \
+ unsigned int* ui4)
+}
+
+declare 40 win {
+ void XGetInputFocus (Display* d, Window* w, int* i)
+}
+
+declare 41 win {
+ int XGetWindowProperty (Display* d, Window w, Atom a1, long l1, long l2, \
+ Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, \
+ unsigned long* ulp2, unsigned char** cpp)
+}
+
+declare 42 win {
+ Status XGetWindowAttributes (Display* d, Window w, XWindowAttributes* x)
+}
+
+declare 43 win {
+ int XGrabKeyboard (Display* d, Window w, Bool b, int i1, int i2, Time t)
+}
+
+declare 44 win {
+ int XGrabPointer (Display* d, Window w1, Bool b, unsigned int ui, \
+ int i1, int i2, Window w2, Cursor c, Time t)
+}
+
+declare 45 win {
+ KeyCode XKeysymToKeycode (Display* d, KeySym k)
+}
+
+declare 46 win {
+ Status XLookupColor (Display* d, Colormap c1, _Xconst char* c2, \
+ XColor* x1, XColor* x2)
+}
+
+declare 47 win {
+ void XMapWindow (Display* d, Window w)
+}
+
+declare 48 win {
+ void XMoveResizeWindow (Display* d, Window w, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2)
+}
+
+declare 49 win {
+ void XMoveWindow (Display* d, Window w, int i1, int i2)
+}
+
+declare 50 win {
+ void XNextEvent (Display* d, XEvent* x)
+}
+
+declare 51 win {
+ void XPutBackEvent (Display* d, XEvent* x)
+}
+
+declare 52 win {
+ void XQueryColors (Display* d, Colormap c, XColor* x, int i)
+}
+
+declare 53 win {
+ Bool XQueryPointer (Display* d, Window w1, Window* w2, Window* w3, \
+ int* i1, int* i2, int* i3, int* i4, unsigned int* ui)
+}
+
+declare 54 win {
+ Status XQueryTree (Display* d, Window w1, Window* w2, Window* w3, \
+ Window** w4, unsigned int* ui)
+}
+
+declare 55 win {
+ void XRaiseWindow (Display* d, Window w)
+}
+
+declare 56 win {
+ void XRefreshKeyboardMapping (XMappingEvent* x)
+}
+
+declare 57 win {
+ void XResizeWindow (Display* d, Window w, unsigned int ui1, \
+ unsigned int ui2)
+}
+
+declare 58 win {
+ void XSelectInput (Display* d, Window w, long l)
+}
+
+declare 59 win {
+ Status XSendEvent (Display* d, Window w, Bool b, long l, XEvent* x)
+}
+
+declare 60 win {
+ void XSetCommand (Display* d, Window w, char** c, int i)
+}
+
+declare 61 win {
+ void XSetIconName (Display* d, Window w, _Xconst char* c)
+}
+
+declare 62 win {
+ void XSetInputFocus (Display* d, Window w, int i, Time t)
+}
+
+declare 63 win {
+ void XSetSelectionOwner (Display* d, Atom a, Window w, Time t)
+}
+
+declare 64 win {
+ void XSetWindowBackground (Display* d, Window w, unsigned long ul)
+}
+
+declare 65 win {
+ void XSetWindowBackgroundPixmap (Display* d, Window w, Pixmap p)
+}
+
+declare 66 win {
+ void XSetWindowBorder (Display* d, Window w, unsigned long ul)
+}
+
+declare 67 win {
+ void XSetWindowBorderPixmap (Display* d, Window w, Pixmap p)
+}
+
+declare 68 win {
+ void XSetWindowBorderWidth (Display* d, Window w, unsigned int ui)
+}
+
+declare 69 win {
+ void XSetWindowColormap (Display* d, Window w, Colormap c)
+}
+
+declare 70 win {
+ Bool XTranslateCoordinates (Display* d, Window w1, Window w2, int i1,\
+ int i2, int* i3, int* i4, Window* w3)
+}
+
+declare 71 win {
+ void XUngrabKeyboard (Display* d, Time t)
+}
+
+declare 72 win {
+ void XUngrabPointer (Display* d, Time t)
+}
+
+declare 73 win {
+ void XUnmapWindow (Display* d, Window w)
+}
+
+declare 74 win {
+ void XWindowEvent (Display* d, Window w, long l, XEvent* x)
+}
+
+declare 75 win {
+ void XDestroyIC (XIC x)
+}
+
+declare 76 win {
+ Bool XFilterEvent (XEvent* x, Window w)
+}
+
+declare 77 win {
+ int XmbLookupString (XIC xi, XKeyPressedEvent* xk, \
+ char* c, int i, KeySym* k, Status* s)
+}
+
+declare 78 win {
+ void TkPutImage (unsigned long *colors, \
+ int ncolors, Display* display, Drawable d, \
+ GC gc, XImage* image, int src_x, int src_y, \
+ int dest_x, int dest_y, unsigned int width, \
+ unsigned int height)
+}
+
+# X functions for Mac
+
+declare 0 mac {
+ XModifierKeymap* XGetModifierMapping (Display* d)
+}
+
+declare 1 mac {
+ XImage * XCreateImage (Display* d, Visual* v, unsigned int ui1, int i1, \
+ int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, \
+ int i4)
+
+}
+
+declare 2 mac {
+ XImage *XGetImage (Display* d, Drawable dr, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)
+}
+
+declare 3 mac {
+ char *XGetAtomName (Display* d,Atom a)
+
+}
+
+declare 4 mac {
+ char *XKeysymToString (KeySym k)
+}
+
+declare 5 mac {
+ Colormap XCreateColormap (Display* d, Window w, Visual* v, int i)
+
+}
+
+declare 6 mac {
+ GContext XGContextFromGC (GC g)
+}
+
+declare 7 mac {
+ KeySym XKeycodeToKeysym (Display* d, KeyCode k, int i)
+}
+
+declare 8 mac {
+ KeySym XStringToKeysym (_Xconst char* c)
+}
+
+declare 9 mac {
+ Window XRootWindow (Display* d, int i)
+}
+
+declare 10 mac {
+ XErrorHandler XSetErrorHandler (XErrorHandler x)
+}
+
+declare 11 mac {
+ Status XAllocColor (Display* d, Colormap c, XColor* xp)
+}
+
+declare 12 mac {
+ void XBell (Display* d, int i)
+}
+
+declare 13 mac {
+ void XChangeProperty (Display* d, Window w, Atom a, Atom a, int i1, \
+ int i2, _Xconst unsigned char* c, int i3)
+}
+
+declare 14 mac {
+ void XChangeWindowAttributes (Display* d, Window w, unsigned long ul, \
+ XSetWindowAttributes* x)
+}
+
+declare 15 mac {
+ void XConfigureWindow (Display* d, Window w, unsigned int i, \
+ XWindowChanges* x)
+}
+
+declare 16 mac {
+ void XCopyArea (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \
+ int i2, unsigned int ui1, \
+ unsigned int ui2, int i3, int i4)
+}
+
+declare 17 mac {
+ void XCopyPlane (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \
+ int i2, unsigned int ui1, \
+ unsigned int ui2, int i3, int i4, unsigned long ul)
+}
+
+declare 18 mac {
+ void XDefineCursor (Display* d, Window w, Cursor c)
+}
+
+declare 19 mac {
+ void XDestroyWindow (Display* d, Window w)
+}
+
+declare 20 mac {
+ void XDrawArc (Display* d, Drawable dr, GC g, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2, int i3, int i4)
+}
+
+declare 21 mac {
+ void XDrawLines (Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)
+}
+
+declare 22 mac {
+ void XDrawRectangle (Display* d, Drawable dr, GC g, int i1, int i2,\
+ unsigned int ui1, unsigned int ui2)
+}
+
+declare 23 mac {
+ void XFillArc (Display* d, Drawable dr, GC g, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2, int i3, int i4)
+}
+
+declare 24 mac {
+ void XFillPolygon (Display* d, Drawable dr, GC g, XPoint* x, \
+ int i1, int i2, int i3)
+}
+
+declare 25 mac {
+ void XFillRectangles (Display* d, Drawable dr, GC g, XRectangle* x, int i)
+}
+
+declare 26 mac {
+ void XFreeColormap (Display* d, Colormap c)
+}
+
+declare 27 mac {
+ void XFreeColors (Display* d, Colormap c, \
+ unsigned long* ulp, int i, unsigned long ul)
+}
+
+declare 28 mac {
+ void XFreeModifiermap (XModifierKeymap* x)
+}
+
+declare 29 mac {
+ Status XGetGeometry (Display* d, Drawable dr, Window* w, int* i1, \
+ int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, \
+ unsigned int* ui4)
+}
+
+declare 30 mac {
+ int XGetWindowProperty (Display* d, Window w, Atom a1, long l1, long l2, \
+ Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, \
+ unsigned long* ulp2, unsigned char** cpp)
+}
+
+declare 31 mac {
+ int XGrabKeyboard (Display* d, Window w, Bool b, int i1, int i2, Time t)
+}
+
+declare 32 mac {
+ int XGrabPointer (Display* d, Window w1, Bool b, unsigned int ui, \
+ int i1, int i2, Window w2, Cursor c, Time t)
+}
+
+declare 33 mac {
+ KeyCode XKeysymToKeycode (Display* d, KeySym k)
+}
+
+declare 34 mac {
+ void XMapWindow (Display* d, Window w)
+}
+
+declare 35 mac {
+ void XMoveResizeWindow (Display* d, Window w, int i1, int i2, \
+ unsigned int ui1, unsigned int ui2)
+}
+
+declare 36 mac {
+ void XMoveWindow (Display* d, Window w, int i1, int i2)
+}
+
+declare 37 mac {
+ Bool XQueryPointer (Display* d, Window w1, Window* w2, Window* w3, \
+ int* i1, int* i2, int* i3, int* i4, unsigned int* ui)
+}
+
+declare 38 mac {
+ void XRaiseWindow (Display* d, Window w)
+}
+
+declare 39 mac {
+ void XRefreshKeyboardMapping (XMappingEvent* x)
+}
+
+declare 40 mac {
+ void XResizeWindow (Display* d, Window w, unsigned int ui1, \
+ unsigned int ui2)
+}
+
+declare 41 mac {
+ void XSelectInput (Display* d, Window w, long l)
+}
+
+declare 42 mac {
+ Status XSendEvent (Display* d, Window w, Bool b, long l, XEvent* x)
+}
+
+declare 43 mac {
+ void XSetIconName (Display* d, Window w, _Xconst char* c)
+}
+
+declare 44 mac {
+ void XSetInputFocus (Display* d, Window w, int i, Time t)
+}
+
+declare 45 mac {
+ void XSetSelectionOwner (Display* d, Atom a, Window w, Time t)
+}
+
+declare 46 mac {
+ void XSetWindowBackground (Display* d, Window w, unsigned long ul)
+}
+
+declare 47 mac {
+ void XSetWindowBackgroundPixmap (Display* d, Window w, Pixmap p)
+}
+
+declare 48 mac {
+ void XSetWindowBorder (Display* d, Window w, unsigned long ul)
+}
+
+declare 49 mac {
+ void XSetWindowBorderPixmap (Display* d, Window w, Pixmap p)
+}
+
+declare 50 mac {
+ void XSetWindowBorderWidth (Display* d, Window w, unsigned int ui)
+}
+
+declare 51 mac {
+ void XSetWindowColormap (Display* d, Window w, Colormap c)
+}
+
+declare 52 mac {
+ void XUngrabKeyboard (Display* d, Time t)
+}
+
+declare 53 mac {
+ void XUngrabPointer (Display* d, Time t)
+}
+
+declare 54 mac {
+ void XUnmapWindow (Display* d, Window w)
+}
+
+declare 55 mac {
+ void TkPutImage (unsigned long *colors, \
+ int ncolors, Display* display, Drawable d, \
+ GC gc, XImage* image, int src_x, int src_y, \
+ int dest_x, int dest_y, unsigned int width, \
+ unsigned int height)
+}
+
diff --git a/generic/tkInt.h b/generic/tkInt.h
index fd26ad9..c9706e9 100644
--- a/generic/tkInt.h
+++ b/generic/tkInt.h
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: $Id: tkInt.h,v 1.8 1998/09/30 19:01:20 rjohnson Exp $
+ * RCS: $Id: tkInt.h,v 1.9 1999/03/10 07:04:40 stanton Exp $
*/
#ifndef _TKINT
@@ -27,11 +27,6 @@
#include <tkPort.h>
#endif
-#ifdef BUILD_tk
-# undef TCL_STORAGE_CLASS
-# define TCL_STORAGE_CLASS DLLEXPORT
-#endif
-
/*
* Opaque type declarations:
*/
@@ -45,6 +40,13 @@ typedef struct TkStressedCmap TkStressedCmap;
typedef struct TkBindInfo_ *TkBindInfo;
/*
+ * Array type definitions
+ */
+
+typedef double TkDouble2[2];
+typedef double TkDouble4[4];
+
+/*
* Procedure types.
*/
@@ -702,279 +704,114 @@ extern Tk_ImageType tkPhotoImageType;
extern Tcl_HashTable tkPredefBitmapTable;
extern int tkSendSerial;
+#include "tkIntDecls.h"
+
+#ifdef BUILD_tk
+# undef TCL_STORAGE_CLASS
+# define TCL_STORAGE_CLASS DLLEXPORT
+#endif
+
+int TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp));
+void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp,
+ int devId, char *buffer, long size));
+
/*
- * Internal procedures shared among Tk modules but not exported
- * to the outside world:
+ * For backwards compatibility, need the tkIntPlatDecls.h here for
+ * windows & mac X wrappers.
*/
-EXTERN char * TkAlignImageData _ANSI_ARGS_((XImage *image,
- int alignment, int bitOrder));
-EXTERN TkWindow * TkAllocWindow _ANSI_ARGS_((TkDisplay *dispPtr,
- int screenNum, TkWindow *parentPtr));
-EXTERN void TkBezierPoints _ANSI_ARGS_((double control[],
- int numSteps, double *coordPtr));
-EXTERN void TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas,
- double control[], int numSteps,
- XPoint *xPointPtr));
-EXTERN void TkBindDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkBindEventProc _ANSI_ARGS_((TkWindow *winPtr,
- XEvent *eventPtr));
-EXTERN void TkBindFree _ANSI_ARGS_((TkMainInfo *mainPtr));
-EXTERN void TkBindInit _ANSI_ARGS_((TkMainInfo *mainPtr));
-EXTERN void TkChangeEventWindow _ANSI_ARGS_((XEvent *eventPtr,
- TkWindow *winPtr));
-#ifndef TkClipBox
-EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn,
- XRectangle* rect_return));
-#endif
-EXTERN int TkClipInit _ANSI_ARGS_((Tcl_Interp *interp,
- TkDisplay *dispPtr));
-EXTERN void TkComputeAnchor _ANSI_ARGS_((Tk_Anchor anchor,
- Tk_Window tkwin, int padX, int padY,
- int innerWidth, int innerHeight, int *xPtr,
- int *yPtr));
-EXTERN int TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp *interp,
- char *script));
-EXTERN unsigned long TkCreateBindingProcedure _ANSI_ARGS_((
- Tcl_Interp *interp, Tk_BindingTable bindingTable,
- ClientData object, char *eventString,
- TkBindEvalProc *evalProc, TkBindFreeProc *freeProc,
- ClientData clientData));
-EXTERN TkCursor * TkCreateCursorFromData _ANSI_ARGS_((Tk_Window tkwin,
- char *source, char *mask, int width, int height,
- int xHot, int yHot, XColor fg, XColor bg));
-EXTERN int TkCreateFrame _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv,
- int toplevel, char *appName));
-EXTERN Tk_Window TkCreateMainWindow _ANSI_ARGS_((Tcl_Interp *interp,
- char *screenName, char *baseName));
-#ifndef TkCreateRegion
-EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void));
-#endif
-EXTERN Time TkCurrentTime _ANSI_ARGS_((TkDisplay *dispPtr));
-EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData,
+EXTERN int Tk_BellObjCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *CONST objv[]));
+EXTERN int Tk_BindCmd _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int argc, char **argv));
-EXTERN void TkDeleteAllImages _ANSI_ARGS_((TkMainInfo *mainPtr));
-#ifndef TkDestroyRegion
-EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn));
-#endif
-EXTERN void TkDoConfigureNotify _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkDrawInsetFocusHighlight _ANSI_ARGS_((
- Tk_Window tkwin, GC gc, int width,
- Drawable drawable, int padding));
-EXTERN void TkEventDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas,
- double *coordPtr, int numPoints, Display *display,
- Drawable drawable, GC gc, GC outlineGC));
-EXTERN int TkFindStateNum _ANSI_ARGS_((Tcl_Interp *interp,
- CONST char *option, CONST TkStateMap *mapPtr,
- CONST char *strKey));
-EXTERN char * TkFindStateString _ANSI_ARGS_((
- CONST TkStateMap *mapPtr, int numKey));
-EXTERN void TkFocusDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN int TkFocusFilterEvent _ANSI_ARGS_((TkWindow *winPtr,
- XEvent *eventPtr));
-EXTERN TkWindow * TkFocusKeyEvent _ANSI_ARGS_((TkWindow *winPtr,
- XEvent *eventPtr));
-EXTERN void TkFontPkgInit _ANSI_ARGS_((TkMainInfo *mainPtr));
-EXTERN void TkFontPkgFree _ANSI_ARGS_((TkMainInfo *mainPtr));
-EXTERN void TkFreeBindingTags _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkFreeCursor _ANSI_ARGS_((TkCursor *cursorPtr));
-EXTERN void TkFreeWindowId _ANSI_ARGS_((TkDisplay *dispPtr,
- Window w));
-EXTERN void TkGenerateActivateEvents _ANSI_ARGS_((
- TkWindow *winPtr, int active));
-EXTERN char * TkGetBitmapData _ANSI_ARGS_((Tcl_Interp *interp,
- char *string, char *fileName, int *widthPtr,
- int *heightPtr, int *hotXPtr, int *hotYPtr));
-EXTERN void TkGetButtPoints _ANSI_ARGS_((double p1[], double p2[],
- double width, int project, double m1[],
- double m2[]));
-EXTERN TkCursor * TkGetCursorByName _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_Uid string));
-EXTERN char * TkGetDefaultScreenName _ANSI_ARGS_((Tcl_Interp *interp,
- char *screenName));
-EXTERN TkDisplay * TkGetDisplay _ANSI_ARGS_((Display *display));
-EXTERN int TkGetDisplayOf _ANSI_ARGS_((Tcl_Interp *interp,
- int objc, Tcl_Obj *CONST objv[],
- Tk_Window *tkwinPtr));
-EXTERN TkWindow * TkGetFocusWin _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN int TkGetInterpNames _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin));
-EXTERN int TkGetMiterPoints _ANSI_ARGS_((double p1[], double p2[],
- double p3[], double width, double m1[],
- double m2[]));
-EXTERN void TkGetPointerCoords _ANSI_ARGS_((Tk_Window tkwin,
- int *xPtr, int *yPtr));
-EXTERN int TkGetProlog _ANSI_ARGS_((Tcl_Interp *interp));
-EXTERN void TkGetServerInfo _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin));
-EXTERN void TkGrabDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN int TkGrabState _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkIncludePoint _ANSI_ARGS_((Tk_Item *itemPtr,
- double *pointPtr));
-EXTERN void TkInitXId _ANSI_ARGS_((TkDisplay *dispPtr));
-EXTERN void TkInOutEvents _ANSI_ARGS_((XEvent *eventPtr,
- TkWindow *sourcePtr, TkWindow *destPtr,
- int leaveType, int enterType,
- Tcl_QueuePosition position));
-EXTERN void TkInstallFrameMenu _ANSI_ARGS_((Tk_Window tkwin));
-#ifndef TkIntersectRegion
-EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra,
- TkRegion srcb, TkRegion dr_return));
-#endif
-EXTERN char * TkKeysymToString _ANSI_ARGS_((KeySym keysym));
-EXTERN int TkLineToArea _ANSI_ARGS_((double end1Ptr[2],
- double end2Ptr[2], double rectPtr[4]));
-EXTERN double TkLineToPoint _ANSI_ARGS_((double end1Ptr[2],
- double end2Ptr[2], double pointPtr[2]));
-EXTERN int TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas,
- double *pointPtr, int numPoints, int numSteps,
- XPoint xPoints[], double dblPoints[]));
-EXTERN void TkMakeBezierPostscript _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Canvas canvas, double *pointPtr,
- int numPoints));
-EXTERN void TkOptionClassChanged _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkOptionDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN int TkOvalToArea _ANSI_ARGS_((double *ovalPtr,
- double *rectPtr));
-EXTERN double TkOvalToPoint _ANSI_ARGS_((double ovalPtr[4],
- double width, int filled, double pointPtr[2]));
-EXTERN int TkpChangeFocus _ANSI_ARGS_((TkWindow *winPtr,
- int force));
-EXTERN void TkpCloseDisplay _ANSI_ARGS_((TkDisplay *dispPtr));
-EXTERN void TkpClaimFocus _ANSI_ARGS_((TkWindow *topLevelPtr,
- int force));
-#ifndef TkpCmapStressed
-EXTERN int TkpCmapStressed _ANSI_ARGS_((Tk_Window tkwin,
- Colormap colormap));
-#endif
-#ifndef TkpCreateNativeBitmap
-EXTERN Pixmap TkpCreateNativeBitmap _ANSI_ARGS_((Display *display,
- char * source));
-#endif
-#ifndef TkpDefineNativeBitmaps
-EXTERN void TkpDefineNativeBitmaps _ANSI_ARGS_((void));
-#endif
-EXTERN void TkpDisplayWarning _ANSI_ARGS_((char *msg,
- char *title));
-EXTERN void TkpGetAppName _ANSI_ARGS_((Tcl_Interp *interp,
- Tcl_DString *name));
-EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void));
-#ifndef TkpGetNativeAppBitmap
-EXTERN Pixmap TkpGetNativeAppBitmap _ANSI_ARGS_((Display *display,
- char *name, int *width, int *height));
-#endif
-EXTERN TkWindow * TkpGetOtherWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN TkWindow * TkpGetWrapperWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN int TkpInit _ANSI_ARGS_((Tcl_Interp *interp));
-EXTERN void TkpInitializeMenuBindings _ANSI_ARGS_((
- Tcl_Interp *interp, Tk_BindingTable bindingTable));
-EXTERN void TkpMakeContainer _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN void TkpMakeMenuWindow _ANSI_ARGS_((Tk_Window tkwin,
- int transient));
-EXTERN Window TkpMakeWindow _ANSI_ARGS_((TkWindow *winPtr,
- Window parent));
-EXTERN void TkpMenuNotifyToplevelCreate _ANSI_ARGS_((
- Tcl_Interp *, char *menuName));
-EXTERN TkDisplay * TkpOpenDisplay _ANSI_ARGS_((char *display_name));
-EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN int TkPointerEvent _ANSI_ARGS_((XEvent *eventPtr,
- TkWindow *winPtr));
-EXTERN int TkPolygonToArea _ANSI_ARGS_((double *polyPtr,
- int numPoints, double *rectPtr));
-EXTERN double TkPolygonToPoint _ANSI_ARGS_((double *polyPtr,
- int numPoints, double *pointPtr));
-EXTERN int TkPositionInTree _ANSI_ARGS_((TkWindow *winPtr,
- TkWindow *treePtr));
-#ifndef TkpPrintWindowId
-EXTERN void TkpPrintWindowId _ANSI_ARGS_((char *buf,
- Window window));
-#endif
-EXTERN void TkpRedirectKeyEvent _ANSI_ARGS_((TkWindow *winPtr,
- XEvent *eventPtr));
-#ifndef TkpScanWindowId
-EXTERN int TkpScanWindowId _ANSI_ARGS_((Tcl_Interp *interp,
- char *string, int *idPtr));
-#endif
-EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor));
-EXTERN void TkpSetMainMenubar _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *menuName));
-#ifndef TkpSync
-EXTERN void TkpSync _ANSI_ARGS_((Display *display));
-#endif
-EXTERN int TkpTestembedCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
-EXTERN int TkpUseWindow _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *string));
-#ifndef TkPutImage
-EXTERN void TkPutImage _ANSI_ARGS_((unsigned long *colors,
- int ncolors, Display* display, Drawable d,
- GC gc, XImage* image, int src_x, int src_y,
- int dest_x, int dest_y, unsigned int width,
- unsigned int height));
-#endif
-EXTERN int TkpWindowWasRecentlyDeleted _ANSI_ARGS_((Window win,
- TkDisplay *dispPtr));
-EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow *winPtr,
- int state));
-EXTERN void TkQueueEventForAllChildren _ANSI_ARGS_((
- TkWindow *winPtr, XEvent *eventPtr));
-EXTERN int TkReadBitmapFile _ANSI_ARGS_((Display* display,
- Drawable d, CONST char* filename,
- unsigned int* width_return,
- unsigned int* height_return,
- Pixmap* bitmap_return,
- int* x_hot_return, int* y_hot_return));
-#ifndef TkRectInRegion
-EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn,
- int x, int y, unsigned int width,
- unsigned int height));
-#endif
-EXTERN int TkScrollWindow _ANSI_ARGS_((Tk_Window tkwin, GC gc,
- int x, int y, int width, int height, int dx,
- int dy, TkRegion damageRgn));
-EXTERN void TkSelDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin,
- XEvent *eventPtr));
-EXTERN void TkSelInit _ANSI_ARGS_((Tk_Window tkwin));
-EXTERN void TkSelPropProc _ANSI_ARGS_((XEvent *eventPtr));
-EXTERN void TkSetClassProcs _ANSI_ARGS_((Tk_Window tkwin,
- TkClassProcs *procs, ClientData instanceData));
-#ifndef TkSetPixmapColormap
-EXTERN void TkSetPixmapColormap _ANSI_ARGS_((Pixmap pixmap,
- Colormap colormap));
-#endif
-#ifndef TkSetRegion
-EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc,
- TkRegion rgn));
-#endif
-EXTERN void TkSetWindowMenuBar _ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char *oldMenuName,
- char *menuName));
-EXTERN KeySym TkStringToKeysym _ANSI_ARGS_((char *name));
-EXTERN int TkThickPolyLineToArea _ANSI_ARGS_((double *coordPtr,
- int numPoints, double width, int capStyle,
- int joinStyle, double *rectPtr));
-#ifndef TkUnionRectWithRegion
-EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect,
- TkRegion src, TkRegion dr_return));
-#endif
-EXTERN void TkWmAddToColormapWindows _ANSI_ARGS_((
- TkWindow *winPtr));
-EXTERN void TkWmDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN TkWindow * TkWmFocusToplevel _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkWmMapWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkWmNewWindow _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkWmProtocolEventProc _ANSI_ARGS_((TkWindow *winPtr,
- XEvent *evenvPtr));
-EXTERN void TkWmRemoveFromColormapWindows _ANSI_ARGS_((
- TkWindow *winPtr));
-EXTERN void TkWmRestackToplevel _ANSI_ARGS_((TkWindow *winPtr,
- int aboveBelow, TkWindow *otherPtr));
-EXTERN void TkWmSetClass _ANSI_ARGS_((TkWindow *winPtr));
-EXTERN void TkWmUnmapWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN int Tk_BindtagsCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ButtonCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_CheckbuttonCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ChooseColorCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_EntryCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_EventCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_FrameCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_FocusCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *CONST objv[]));
+EXTERN int Tk_GetOpenFileCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_GetSaveFileCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_GrabCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_GridCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ImageCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_LabelCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ListboxCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_LowerCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_MenuCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_MenubuttonCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_MessageBoxCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_MessageCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_OptionCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_PackCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_RadiobuttonCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ScaleCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_SendCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_TextCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_TkObjCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *CONST objv[]));
+EXTERN int Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_ToplevelCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_UpdateCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *CONST objv[]));
+EXTERN int Tk_WmCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
+EXTERN int TkpTestembedCmd _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp, int argc, char **argv));
/*
* Unsupported commands.
diff --git a/generic/tkIntDecls.h b/generic/tkIntDecls.h
new file mode 100644
index 0000000..fb929eb
--- /dev/null
+++ b/generic/tkIntDecls.h
@@ -0,0 +1,844 @@
+/*
+ * tkIntDecls.h --
+ *
+ * This file contains the declarations for all unsupported
+ * functions that are exported by the Tk library. These
+ * interfaces are not guaranteed to remain the same between
+ * versions. Use at your own risk.
+ *
+ * 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: tkIntDecls.h,v 1.2 1999/03/10 07:04:40 stanton Exp $
+ */
+
+#ifndef _TKINTDECLS
+#define _TKINTDECLS
+
+#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/tkInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported function declarations:
+ */
+
+/* 0 */
+EXTERN TkWindow * TkAllocWindow _ANSI_ARGS_((TkDisplay * dispPtr,
+ int screenNum, TkWindow * parentPtr));
+/* 1 */
+EXTERN void TkBezierPoints _ANSI_ARGS_((double control[],
+ int numSteps, double * coordPtr));
+/* 2 */
+EXTERN void TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas,
+ double control[], int numSteps,
+ XPoint * xPointPtr));
+/* 3 */
+EXTERN void TkBindDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 4 */
+EXTERN void TkBindEventProc _ANSI_ARGS_((TkWindow * winPtr,
+ XEvent * eventPtr));
+/* 5 */
+EXTERN void TkBindFree _ANSI_ARGS_((TkMainInfo * mainPtr));
+/* 6 */
+EXTERN void TkBindInit _ANSI_ARGS_((TkMainInfo * mainPtr));
+/* 7 */
+EXTERN void TkChangeEventWindow _ANSI_ARGS_((XEvent * eventPtr,
+ TkWindow * winPtr));
+/* 8 */
+EXTERN int TkClipInit _ANSI_ARGS_((Tcl_Interp * interp,
+ TkDisplay * dispPtr));
+/* 9 */
+EXTERN void TkComputeAnchor _ANSI_ARGS_((Tk_Anchor anchor,
+ Tk_Window tkwin, int padX, int padY,
+ int innerWidth, int innerHeight, int * xPtr,
+ int * yPtr));
+/* 10 */
+EXTERN int TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp * interp,
+ char * script));
+/* 11 */
+EXTERN unsigned long TkCreateBindingProcedure _ANSI_ARGS_((
+ Tcl_Interp * interp,
+ Tk_BindingTable bindingTable,
+ ClientData object, char * eventString,
+ TkBindEvalProc * evalProc,
+ TkBindFreeProc * freeProc,
+ ClientData clientData));
+/* 12 */
+EXTERN TkCursor * TkCreateCursorFromData _ANSI_ARGS_((Tk_Window tkwin,
+ char * source, char * mask, int width,
+ int height, int xHot, int yHot, XColor fg,
+ XColor bg));
+/* 13 */
+EXTERN int TkCreateFrame _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp * interp, int argc, char ** argv,
+ int toplevel, char * appName));
+/* 14 */
+EXTERN Tk_Window TkCreateMainWindow _ANSI_ARGS_((Tcl_Interp * interp,
+ char * screenName, char * baseName));
+/* 15 */
+EXTERN Time TkCurrentTime _ANSI_ARGS_((TkDisplay * dispPtr));
+/* 16 */
+EXTERN void TkDeleteAllImages _ANSI_ARGS_((TkMainInfo * mainPtr));
+/* 17 */
+EXTERN void TkDoConfigureNotify _ANSI_ARGS_((TkWindow * winPtr));
+/* 18 */
+EXTERN void TkDrawInsetFocusHighlight _ANSI_ARGS_((
+ Tk_Window tkwin, GC gc, int width,
+ Drawable drawable, int padding));
+/* 19 */
+EXTERN void TkEventDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 20 */
+EXTERN void TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas,
+ double * coordPtr, int numPoints,
+ Display * display, Drawable drawable, GC gc,
+ GC outlineGC));
+/* 21 */
+EXTERN int TkFindStateNum _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * option,
+ CONST TkStateMap * mapPtr,
+ CONST char * strKey));
+/* 22 */
+EXTERN char * TkFindStateString _ANSI_ARGS_((
+ CONST TkStateMap * mapPtr, int numKey));
+/* 23 */
+EXTERN void TkFocusDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 24 */
+EXTERN int TkFocusFilterEvent _ANSI_ARGS_((TkWindow * winPtr,
+ XEvent * eventPtr));
+/* 25 */
+EXTERN TkWindow * TkFocusKeyEvent _ANSI_ARGS_((TkWindow * winPtr,
+ XEvent * eventPtr));
+/* 26 */
+EXTERN void TkFontPkgInit _ANSI_ARGS_((TkMainInfo * mainPtr));
+/* 27 */
+EXTERN void TkFontPkgFree _ANSI_ARGS_((TkMainInfo * mainPtr));
+/* 28 */
+EXTERN void TkFreeBindingTags _ANSI_ARGS_((TkWindow * winPtr));
+/* 29 */
+EXTERN void TkFreeCursor _ANSI_ARGS_((TkCursor * cursorPtr));
+/* 30 */
+EXTERN char * TkGetBitmapData _ANSI_ARGS_((Tcl_Interp * interp,
+ char * string, char * fileName,
+ int * widthPtr, int * heightPtr,
+ int * hotXPtr, int * hotYPtr));
+/* 31 */
+EXTERN void TkGetButtPoints _ANSI_ARGS_((double p1[],
+ double p2[], double width, int project,
+ double m1[], double m2[]));
+/* 32 */
+EXTERN TkCursor * TkGetCursorByName _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, Tk_Uid string));
+/* 33 */
+EXTERN char * TkGetDefaultScreenName _ANSI_ARGS_((
+ Tcl_Interp * interp, char * screenName));
+/* 34 */
+EXTERN TkDisplay * TkGetDisplay _ANSI_ARGS_((Display * display));
+/* 35 */
+EXTERN int TkGetDisplayOf _ANSI_ARGS_((Tcl_Interp * interp,
+ int objc, Tcl_Obj *CONST objv[],
+ Tk_Window * tkwinPtr));
+/* 36 */
+EXTERN TkWindow * TkGetFocusWin _ANSI_ARGS_((TkWindow * winPtr));
+/* 37 */
+EXTERN int TkGetInterpNames _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin));
+/* 38 */
+EXTERN int TkGetMiterPoints _ANSI_ARGS_((double p1[],
+ double p2[], double p3[], double width,
+ double m1[], double m2[]));
+/* 39 */
+EXTERN void TkGetPointerCoords _ANSI_ARGS_((Tk_Window tkwin,
+ int * xPtr, int * yPtr));
+/* 40 */
+EXTERN void TkGetServerInfo _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin));
+/* 41 */
+EXTERN void TkGrabDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 42 */
+EXTERN int TkGrabState _ANSI_ARGS_((TkWindow * winPtr));
+/* 43 */
+EXTERN void TkIncludePoint _ANSI_ARGS_((Tk_Item * itemPtr,
+ double * pointPtr));
+/* 44 */
+EXTERN void TkInOutEvents _ANSI_ARGS_((XEvent * eventPtr,
+ TkWindow * sourcePtr, TkWindow * destPtr,
+ int leaveType, int enterType,
+ Tcl_QueuePosition position));
+/* 45 */
+EXTERN void TkInstallFrameMenu _ANSI_ARGS_((Tk_Window tkwin));
+/* 46 */
+EXTERN char * TkKeysymToString _ANSI_ARGS_((KeySym keysym));
+/* 47 */
+EXTERN int TkLineToArea _ANSI_ARGS_((TkDouble2 end1Ptr,
+ TkDouble2 end2Ptr, TkDouble4 rectPtr));
+/* 48 */
+EXTERN double TkLineToPoint _ANSI_ARGS_((double end1Ptr[],
+ TkDouble2 end2Ptr, TkDouble2 pointPtr));
+/* 49 */
+EXTERN int TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas,
+ double * pointPtr, int numPoints,
+ int numSteps, XPoint xPoints[],
+ double dblPoints[]));
+/* 50 */
+EXTERN void TkMakeBezierPostscript _ANSI_ARGS_((
+ Tcl_Interp * interp, Tk_Canvas canvas,
+ double * pointPtr, int numPoints));
+/* 51 */
+EXTERN void TkOptionClassChanged _ANSI_ARGS_((TkWindow * winPtr));
+/* 52 */
+EXTERN void TkOptionDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 53 */
+EXTERN int TkOvalToArea _ANSI_ARGS_((double * ovalPtr,
+ double * rectPtr));
+/* 54 */
+EXTERN double TkOvalToPoint _ANSI_ARGS_((TkDouble4 ovalPtr,
+ double width, int filled, TkDouble2 pointPtr));
+/* 55 */
+EXTERN int TkpChangeFocus _ANSI_ARGS_((TkWindow * winPtr,
+ int force));
+/* 56 */
+EXTERN void TkpCloseDisplay _ANSI_ARGS_((TkDisplay * dispPtr));
+/* 57 */
+EXTERN void TkpClaimFocus _ANSI_ARGS_((TkWindow * topLevelPtr,
+ int force));
+/* 58 */
+EXTERN void TkpDisplayWarning _ANSI_ARGS_((char * msg,
+ char * title));
+/* 59 */
+EXTERN void TkpGetAppName _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_DString * name));
+/* 60 */
+EXTERN TkWindow * TkpGetOtherWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 61 */
+EXTERN TkWindow * TkpGetWrapperWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 62 */
+EXTERN int TkpInit _ANSI_ARGS_((Tcl_Interp * interp));
+/* 63 */
+EXTERN void TkpInitializeMenuBindings _ANSI_ARGS_((
+ Tcl_Interp * interp,
+ Tk_BindingTable bindingTable));
+/* 64 */
+EXTERN void TkpMakeContainer _ANSI_ARGS_((Tk_Window tkwin));
+/* 65 */
+EXTERN void TkpMakeMenuWindow _ANSI_ARGS_((Tk_Window tkwin,
+ int transient));
+/* 66 */
+EXTERN Window TkpMakeWindow _ANSI_ARGS_((TkWindow * winPtr,
+ Window parent));
+/* 67 */
+EXTERN void TkpMenuNotifyToplevelCreate _ANSI_ARGS_((
+ Tcl_Interp * interp1, char * menuName));
+/* 68 */
+EXTERN TkDisplay * TkpOpenDisplay _ANSI_ARGS_((char * display_name));
+/* 69 */
+EXTERN int TkPointerEvent _ANSI_ARGS_((XEvent * eventPtr,
+ TkWindow * winPtr));
+/* 70 */
+EXTERN int TkPolygonToArea _ANSI_ARGS_((double * polyPtr,
+ int numPoints, double * rectPtr));
+/* 71 */
+EXTERN double TkPolygonToPoint _ANSI_ARGS_((double * polyPtr,
+ int numPoints, double * pointPtr));
+/* 72 */
+EXTERN int TkPositionInTree _ANSI_ARGS_((TkWindow * winPtr,
+ TkWindow * treePtr));
+/* 73 */
+EXTERN void TkpRedirectKeyEvent _ANSI_ARGS_((TkWindow * winPtr,
+ XEvent * eventPtr));
+/* 74 */
+EXTERN void TkpSetMainMenubar _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * menuName));
+/* 75 */
+EXTERN int TkpUseWindow _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * string));
+/* 76 */
+EXTERN int TkpWindowWasRecentlyDeleted _ANSI_ARGS_((Window win,
+ TkDisplay * dispPtr));
+/* 77 */
+EXTERN void TkQueueEventForAllChildren _ANSI_ARGS_((
+ TkWindow * winPtr, XEvent * eventPtr));
+/* 78 */
+EXTERN int TkReadBitmapFile _ANSI_ARGS_((Display* display,
+ Drawable d, CONST char* filename,
+ unsigned int* width_return,
+ unsigned int* height_return,
+ Pixmap* bitmap_return, int* x_hot_return,
+ int* y_hot_return));
+/* 79 */
+EXTERN int TkScrollWindow _ANSI_ARGS_((Tk_Window tkwin, GC gc,
+ int x, int y, int width, int height, int dx,
+ int dy, TkRegion damageRgn));
+/* 80 */
+EXTERN void TkSelDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 81 */
+EXTERN void TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin,
+ XEvent * eventPtr));
+/* 82 */
+EXTERN void TkSelInit _ANSI_ARGS_((Tk_Window tkwin));
+/* 83 */
+EXTERN void TkSelPropProc _ANSI_ARGS_((XEvent * eventPtr));
+/* 84 */
+EXTERN void TkSetClassProcs _ANSI_ARGS_((Tk_Window tkwin,
+ TkClassProcs * procs,
+ ClientData instanceData));
+/* 85 */
+EXTERN void TkSetWindowMenuBar _ANSI_ARGS_((Tcl_Interp * interp,
+ Tk_Window tkwin, char * oldMenuName,
+ char * menuName));
+/* 86 */
+EXTERN KeySym TkStringToKeysym _ANSI_ARGS_((char * name));
+/* 87 */
+EXTERN int TkThickPolyLineToArea _ANSI_ARGS_((double * coordPtr,
+ int numPoints, double width, int capStyle,
+ int joinStyle, double * rectPtr));
+/* 88 */
+EXTERN void TkWmAddToColormapWindows _ANSI_ARGS_((
+ TkWindow * winPtr));
+/* 89 */
+EXTERN void TkWmDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 90 */
+EXTERN TkWindow * TkWmFocusToplevel _ANSI_ARGS_((TkWindow * winPtr));
+/* 91 */
+EXTERN void TkWmMapWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 92 */
+EXTERN void TkWmNewWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 93 */
+EXTERN void TkWmProtocolEventProc _ANSI_ARGS_((TkWindow * winPtr,
+ XEvent * evenvPtr));
+/* 94 */
+EXTERN void TkWmRemoveFromColormapWindows _ANSI_ARGS_((
+ TkWindow * winPtr));
+/* 95 */
+EXTERN void TkWmRestackToplevel _ANSI_ARGS_((TkWindow * winPtr,
+ int aboveBelow, TkWindow * otherPtr));
+/* 96 */
+EXTERN void TkWmSetClass _ANSI_ARGS_((TkWindow * winPtr));
+/* 97 */
+EXTERN void TkWmUnmapWindow _ANSI_ARGS_((TkWindow * winPtr));
+
+typedef struct TkIntStubs {
+ int magic;
+ struct TkIntStubHooks *hooks;
+
+ TkWindow * (*tkAllocWindow) _ANSI_ARGS_((TkDisplay * dispPtr, int screenNum, TkWindow * parentPtr)); /* 0 */
+ void (*tkBezierPoints) _ANSI_ARGS_((double control[], int numSteps, double * coordPtr)); /* 1 */
+ void (*tkBezierScreenPoints) _ANSI_ARGS_((Tk_Canvas canvas, double control[], int numSteps, XPoint * xPointPtr)); /* 2 */
+ void (*tkBindDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 3 */
+ void (*tkBindEventProc) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 4 */
+ void (*tkBindFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 5 */
+ void (*tkBindInit) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 6 */
+ void (*tkChangeEventWindow) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * winPtr)); /* 7 */
+ int (*tkClipInit) _ANSI_ARGS_((Tcl_Interp * interp, TkDisplay * dispPtr)); /* 8 */
+ void (*tkComputeAnchor) _ANSI_ARGS_((Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY, int innerWidth, int innerHeight, int * xPtr, int * yPtr)); /* 9 */
+ int (*tkCopyAndGlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * script)); /* 10 */
+ unsigned long (*tkCreateBindingProcedure) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString, TkBindEvalProc * evalProc, TkBindFreeProc * freeProc, ClientData clientData)); /* 11 */
+ TkCursor * (*tkCreateCursorFromData) _ANSI_ARGS_((Tk_Window tkwin, char * source, char * mask, int width, int height, int xHot, int yHot, XColor fg, XColor bg)); /* 12 */
+ int (*tkCreateFrame) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv, int toplevel, char * appName)); /* 13 */
+ Tk_Window (*tkCreateMainWindow) _ANSI_ARGS_((Tcl_Interp * interp, char * screenName, char * baseName)); /* 14 */
+ Time (*tkCurrentTime) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 15 */
+ void (*tkDeleteAllImages) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 16 */
+ void (*tkDoConfigureNotify) _ANSI_ARGS_((TkWindow * winPtr)); /* 17 */
+ void (*tkDrawInsetFocusHighlight) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int width, Drawable drawable, int padding)); /* 18 */
+ void (*tkEventDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 19 */
+ void (*tkFillPolygon) _ANSI_ARGS_((Tk_Canvas canvas, double * coordPtr, int numPoints, Display * display, Drawable drawable, GC gc, GC outlineGC)); /* 20 */
+ int (*tkFindStateNum) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * option, CONST TkStateMap * mapPtr, CONST char * strKey)); /* 21 */
+ char * (*tkFindStateString) _ANSI_ARGS_((CONST TkStateMap * mapPtr, int numKey)); /* 22 */
+ void (*tkFocusDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 23 */
+ int (*tkFocusFilterEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 24 */
+ TkWindow * (*tkFocusKeyEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 25 */
+ void (*tkFontPkgInit) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 26 */
+ void (*tkFontPkgFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 27 */
+ void (*tkFreeBindingTags) _ANSI_ARGS_((TkWindow * winPtr)); /* 28 */
+ void (*tkFreeCursor) _ANSI_ARGS_((TkCursor * cursorPtr)); /* 29 */
+ char * (*tkGetBitmapData) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * fileName, int * widthPtr, int * heightPtr, int * hotXPtr, int * hotYPtr)); /* 30 */
+ void (*tkGetButtPoints) _ANSI_ARGS_((double p1[], double p2[], double width, int project, double m1[], double m2[])); /* 31 */
+ TkCursor * (*tkGetCursorByName) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid string)); /* 32 */
+ char * (*tkGetDefaultScreenName) _ANSI_ARGS_((Tcl_Interp * interp, char * screenName)); /* 33 */
+ TkDisplay * (*tkGetDisplay) _ANSI_ARGS_((Display * display)); /* 34 */
+ int (*tkGetDisplayOf) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], Tk_Window * tkwinPtr)); /* 35 */
+ TkWindow * (*tkGetFocusWin) _ANSI_ARGS_((TkWindow * winPtr)); /* 36 */
+ int (*tkGetInterpNames) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 37 */
+ int (*tkGetMiterPoints) _ANSI_ARGS_((double p1[], double p2[], double p3[], double width, double m1[], double m2[])); /* 38 */
+ void (*tkGetPointerCoords) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr)); /* 39 */
+ void (*tkGetServerInfo) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 40 */
+ void (*tkGrabDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 41 */
+ int (*tkGrabState) _ANSI_ARGS_((TkWindow * winPtr)); /* 42 */
+ void (*tkIncludePoint) _ANSI_ARGS_((Tk_Item * itemPtr, double * pointPtr)); /* 43 */
+ void (*tkInOutEvents) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * sourcePtr, TkWindow * destPtr, int leaveType, int enterType, Tcl_QueuePosition position)); /* 44 */
+ void (*tkInstallFrameMenu) _ANSI_ARGS_((Tk_Window tkwin)); /* 45 */
+ char * (*tkKeysymToString) _ANSI_ARGS_((KeySym keysym)); /* 46 */
+ int (*tkLineToArea) _ANSI_ARGS_((TkDouble2 end1Ptr, TkDouble2 end2Ptr, TkDouble4 rectPtr)); /* 47 */
+ double (*tkLineToPoint) _ANSI_ARGS_((double end1Ptr[], TkDouble2 end2Ptr, TkDouble2 pointPtr)); /* 48 */
+ int (*tkMakeBezierCurve) _ANSI_ARGS_((Tk_Canvas canvas, double * pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[])); /* 49 */
+ void (*tkMakeBezierPostscript) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, double * pointPtr, int numPoints)); /* 50 */
+ void (*tkOptionClassChanged) _ANSI_ARGS_((TkWindow * winPtr)); /* 51 */
+ void (*tkOptionDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 52 */
+ int (*tkOvalToArea) _ANSI_ARGS_((double * ovalPtr, double * rectPtr)); /* 53 */
+ double (*tkOvalToPoint) _ANSI_ARGS_((TkDouble4 ovalPtr, double width, int filled, TkDouble2 pointPtr)); /* 54 */
+ int (*tkpChangeFocus) _ANSI_ARGS_((TkWindow * winPtr, int force)); /* 55 */
+ void (*tkpCloseDisplay) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 56 */
+ void (*tkpClaimFocus) _ANSI_ARGS_((TkWindow * topLevelPtr, int force)); /* 57 */
+ void (*tkpDisplayWarning) _ANSI_ARGS_((char * msg, char * title)); /* 58 */
+ void (*tkpGetAppName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * name)); /* 59 */
+ TkWindow * (*tkpGetOtherWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 60 */
+ TkWindow * (*tkpGetWrapperWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 61 */
+ int (*tkpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 62 */
+ void (*tkpInitializeMenuBindings) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable)); /* 63 */
+ void (*tkpMakeContainer) _ANSI_ARGS_((Tk_Window tkwin)); /* 64 */
+ void (*tkpMakeMenuWindow) _ANSI_ARGS_((Tk_Window tkwin, int transient)); /* 65 */
+ Window (*tkpMakeWindow) _ANSI_ARGS_((TkWindow * winPtr, Window parent)); /* 66 */
+ void (*tkpMenuNotifyToplevelCreate) _ANSI_ARGS_((Tcl_Interp * interp1, char * menuName)); /* 67 */
+ TkDisplay * (*tkpOpenDisplay) _ANSI_ARGS_((char * display_name)); /* 68 */
+ int (*tkPointerEvent) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * winPtr)); /* 69 */
+ int (*tkPolygonToArea) _ANSI_ARGS_((double * polyPtr, int numPoints, double * rectPtr)); /* 70 */
+ double (*tkPolygonToPoint) _ANSI_ARGS_((double * polyPtr, int numPoints, double * pointPtr)); /* 71 */
+ int (*tkPositionInTree) _ANSI_ARGS_((TkWindow * winPtr, TkWindow * treePtr)); /* 72 */
+ void (*tkpRedirectKeyEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 73 */
+ void (*tkpSetMainMenubar) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * menuName)); /* 74 */
+ int (*tkpUseWindow) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string)); /* 75 */
+ int (*tkpWindowWasRecentlyDeleted) _ANSI_ARGS_((Window win, TkDisplay * dispPtr)); /* 76 */
+ void (*tkQueueEventForAllChildren) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 77 */
+ int (*tkReadBitmapFile) _ANSI_ARGS_((Display* display, Drawable d, CONST char* filename, unsigned int* width_return, unsigned int* height_return, Pixmap* bitmap_return, int* x_hot_return, int* y_hot_return)); /* 78 */
+ int (*tkScrollWindow) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int x, int y, int width, int height, int dx, int dy, TkRegion damageRgn)); /* 79 */
+ void (*tkSelDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 80 */
+ void (*tkSelEventProc) _ANSI_ARGS_((Tk_Window tkwin, XEvent * eventPtr)); /* 81 */
+ void (*tkSelInit) _ANSI_ARGS_((Tk_Window tkwin)); /* 82 */
+ void (*tkSelPropProc) _ANSI_ARGS_((XEvent * eventPtr)); /* 83 */
+ void (*tkSetClassProcs) _ANSI_ARGS_((Tk_Window tkwin, TkClassProcs * procs, ClientData instanceData)); /* 84 */
+ void (*tkSetWindowMenuBar) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * oldMenuName, char * menuName)); /* 85 */
+ KeySym (*tkStringToKeysym) _ANSI_ARGS_((char * name)); /* 86 */
+ int (*tkThickPolyLineToArea) _ANSI_ARGS_((double * coordPtr, int numPoints, double width, int capStyle, int joinStyle, double * rectPtr)); /* 87 */
+ void (*tkWmAddToColormapWindows) _ANSI_ARGS_((TkWindow * winPtr)); /* 88 */
+ void (*tkWmDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 89 */
+ TkWindow * (*tkWmFocusToplevel) _ANSI_ARGS_((TkWindow * winPtr)); /* 90 */
+ void (*tkWmMapWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 91 */
+ void (*tkWmNewWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 92 */
+ void (*tkWmProtocolEventProc) _ANSI_ARGS_((TkWindow * winPtr, XEvent * evenvPtr)); /* 93 */
+ void (*tkWmRemoveFromColormapWindows) _ANSI_ARGS_((TkWindow * winPtr)); /* 94 */
+ void (*tkWmRestackToplevel) _ANSI_ARGS_((TkWindow * winPtr, int aboveBelow, TkWindow * otherPtr)); /* 95 */
+ void (*tkWmSetClass) _ANSI_ARGS_((TkWindow * winPtr)); /* 96 */
+ void (*tkWmUnmapWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 97 */
+} TkIntStubs;
+
+extern TkIntStubs *tkIntStubsPtr;
+
+#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifndef TkAllocWindow
+#define TkAllocWindow(dispPtr, screenNum, parentPtr) \
+ (tkIntStubsPtr->tkAllocWindow)(dispPtr, screenNum, parentPtr) /* 0 */
+#endif
+#ifndef TkBezierPoints
+#define TkBezierPoints(control, numSteps, coordPtr) \
+ (tkIntStubsPtr->tkBezierPoints)(control, numSteps, coordPtr) /* 1 */
+#endif
+#ifndef TkBezierScreenPoints
+#define TkBezierScreenPoints(canvas, control, numSteps, xPointPtr) \
+ (tkIntStubsPtr->tkBezierScreenPoints)(canvas, control, numSteps, xPointPtr) /* 2 */
+#endif
+#ifndef TkBindDeadWindow
+#define TkBindDeadWindow(winPtr) \
+ (tkIntStubsPtr->tkBindDeadWindow)(winPtr) /* 3 */
+#endif
+#ifndef TkBindEventProc
+#define TkBindEventProc(winPtr, eventPtr) \
+ (tkIntStubsPtr->tkBindEventProc)(winPtr, eventPtr) /* 4 */
+#endif
+#ifndef TkBindFree
+#define TkBindFree(mainPtr) \
+ (tkIntStubsPtr->tkBindFree)(mainPtr) /* 5 */
+#endif
+#ifndef TkBindInit
+#define TkBindInit(mainPtr) \
+ (tkIntStubsPtr->tkBindInit)(mainPtr) /* 6 */
+#endif
+#ifndef TkChangeEventWindow
+#define TkChangeEventWindow(eventPtr, winPtr) \
+ (tkIntStubsPtr->tkChangeEventWindow)(eventPtr, winPtr) /* 7 */
+#endif
+#ifndef TkClipInit
+#define TkClipInit(interp, dispPtr) \
+ (tkIntStubsPtr->tkClipInit)(interp, dispPtr) /* 8 */
+#endif
+#ifndef TkComputeAnchor
+#define TkComputeAnchor(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr) \
+ (tkIntStubsPtr->tkComputeAnchor)(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr) /* 9 */
+#endif
+#ifndef TkCopyAndGlobalEval
+#define TkCopyAndGlobalEval(interp, script) \
+ (tkIntStubsPtr->tkCopyAndGlobalEval)(interp, script) /* 10 */
+#endif
+#ifndef TkCreateBindingProcedure
+#define TkCreateBindingProcedure(interp, bindingTable, object, eventString, evalProc, freeProc, clientData) \
+ (tkIntStubsPtr->tkCreateBindingProcedure)(interp, bindingTable, object, eventString, evalProc, freeProc, clientData) /* 11 */
+#endif
+#ifndef TkCreateCursorFromData
+#define TkCreateCursorFromData(tkwin, source, mask, width, height, xHot, yHot, fg, bg) \
+ (tkIntStubsPtr->tkCreateCursorFromData)(tkwin, source, mask, width, height, xHot, yHot, fg, bg) /* 12 */
+#endif
+#ifndef TkCreateFrame
+#define TkCreateFrame(clientData, interp, argc, argv, toplevel, appName) \
+ (tkIntStubsPtr->tkCreateFrame)(clientData, interp, argc, argv, toplevel, appName) /* 13 */
+#endif
+#ifndef TkCreateMainWindow
+#define TkCreateMainWindow(interp, screenName, baseName) \
+ (tkIntStubsPtr->tkCreateMainWindow)(interp, screenName, baseName) /* 14 */
+#endif
+#ifndef TkCurrentTime
+#define TkCurrentTime(dispPtr) \
+ (tkIntStubsPtr->tkCurrentTime)(dispPtr) /* 15 */
+#endif
+#ifndef TkDeleteAllImages
+#define TkDeleteAllImages(mainPtr) \
+ (tkIntStubsPtr->tkDeleteAllImages)(mainPtr) /* 16 */
+#endif
+#ifndef TkDoConfigureNotify
+#define TkDoConfigureNotify(winPtr) \
+ (tkIntStubsPtr->tkDoConfigureNotify)(winPtr) /* 17 */
+#endif
+#ifndef TkDrawInsetFocusHighlight
+#define TkDrawInsetFocusHighlight(tkwin, gc, width, drawable, padding) \
+ (tkIntStubsPtr->tkDrawInsetFocusHighlight)(tkwin, gc, width, drawable, padding) /* 18 */
+#endif
+#ifndef TkEventDeadWindow
+#define TkEventDeadWindow(winPtr) \
+ (tkIntStubsPtr->tkEventDeadWindow)(winPtr) /* 19 */
+#endif
+#ifndef TkFillPolygon
+#define TkFillPolygon(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC) \
+ (tkIntStubsPtr->tkFillPolygon)(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC) /* 20 */
+#endif
+#ifndef TkFindStateNum
+#define TkFindStateNum(interp, option, mapPtr, strKey) \
+ (tkIntStubsPtr->tkFindStateNum)(interp, option, mapPtr, strKey) /* 21 */
+#endif
+#ifndef TkFindStateString
+#define TkFindStateString(mapPtr, numKey) \
+ (tkIntStubsPtr->tkFindStateString)(mapPtr, numKey) /* 22 */
+#endif
+#ifndef TkFocusDeadWindow
+#define TkFocusDeadWindow(winPtr) \
+ (tkIntStubsPtr->tkFocusDeadWindow)(winPtr) /* 23 */
+#endif
+#ifndef TkFocusFilterEvent
+#define TkFocusFilterEvent(winPtr, eventPtr) \
+ (tkIntStubsPtr->tkFocusFilterEvent)(winPtr, eventPtr) /* 24 */
+#endif
+#ifndef TkFocusKeyEvent
+#define TkFocusKeyEvent(winPtr, eventPtr) \
+ (tkIntStubsPtr->tkFocusKeyEvent)(winPtr, eventPtr) /* 25 */
+#endif
+#ifndef TkFontPkgInit
+#define TkFontPkgInit(mainPtr) \
+ (tkIntStubsPtr->tkFontPkgInit)(mainPtr) /* 26 */
+#endif
+#ifndef TkFontPkgFree
+#define TkFontPkgFree(mainPtr) \
+ (tkIntStubsPtr->tkFontPkgFree)(mainPtr) /* 27 */
+#endif
+#ifndef TkFreeBindingTags
+#define TkFreeBindingTags(winPtr) \
+ (tkIntStubsPtr->tkFreeBindingTags)(winPtr) /* 28 */
+#endif
+#ifndef TkFreeCursor
+#define TkFreeCursor(cursorPtr) \
+ (tkIntStubsPtr->tkFreeCursor)(cursorPtr) /* 29 */
+#endif
+#ifndef TkGetBitmapData
+#define TkGetBitmapData(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr) \
+ (tkIntStubsPtr->tkGetBitmapData)(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr) /* 30 */
+#endif
+#ifndef TkGetButtPoints
+#define TkGetButtPoints(p1, p2, width, project, m1, m2) \
+ (tkIntStubsPtr->tkGetButtPoints)(p1, p2, width, project, m1, m2) /* 31 */
+#endif
+#ifndef TkGetCursorByName
+#define TkGetCursorByName(interp, tkwin, string) \
+ (tkIntStubsPtr->tkGetCursorByName)(interp, tkwin, string) /* 32 */
+#endif
+#ifndef TkGetDefaultScreenName
+#define TkGetDefaultScreenName(interp, screenName) \
+ (tkIntStubsPtr->tkGetDefaultScreenName)(interp, screenName) /* 33 */
+#endif
+#ifndef TkGetDisplay
+#define TkGetDisplay(display) \
+ (tkIntStubsPtr->tkGetDisplay)(display) /* 34 */
+#endif
+#ifndef TkGetDisplayOf
+#define TkGetDisplayOf(interp, objc, objv, tkwinPtr) \
+ (tkIntStubsPtr->tkGetDisplayOf)(interp, objc, objv, tkwinPtr) /* 35 */
+#endif
+#ifndef TkGetFocusWin
+#define TkGetFocusWin(winPtr) \
+ (tkIntStubsPtr->tkGetFocusWin)(winPtr) /* 36 */
+#endif
+#ifndef TkGetInterpNames
+#define TkGetInterpNames(interp, tkwin) \
+ (tkIntStubsPtr->tkGetInterpNames)(interp, tkwin) /* 37 */
+#endif
+#ifndef TkGetMiterPoints
+#define TkGetMiterPoints(p1, p2, p3, width, m1, m2) \
+ (tkIntStubsPtr->tkGetMiterPoints)(p1, p2, p3, width, m1, m2) /* 38 */
+#endif
+#ifndef TkGetPointerCoords
+#define TkGetPointerCoords(tkwin, xPtr, yPtr) \
+ (tkIntStubsPtr->tkGetPointerCoords)(tkwin, xPtr, yPtr) /* 39 */
+#endif
+#ifndef TkGetServerInfo
+#define TkGetServerInfo(interp, tkwin) \
+ (tkIntStubsPtr->tkGetServerInfo)(interp, tkwin) /* 40 */
+#endif
+#ifndef TkGrabDeadWindow
+#define TkGrabDeadWindow(winPtr) \
+ (tkIntStubsPtr->tkGrabDeadWindow)(winPtr) /* 41 */
+#endif
+#ifndef TkGrabState
+#define TkGrabState(winPtr) \
+ (tkIntStubsPtr->tkGrabState)(winPtr) /* 42 */
+#endif
+#ifndef TkIncludePoint
+#define TkIncludePoint(itemPtr, pointPtr) \
+ (tkIntStubsPtr->tkIncludePoint)(itemPtr, pointPtr) /* 43 */
+#endif
+#ifndef TkInOutEvents
+#define TkInOutEvents(eventPtr, sourcePtr, destPtr, leaveType, enterType, position) \
+ (tkIntStubsPtr->tkInOutEvents)(eventPtr, sourcePtr, destPtr, leaveType, enterType, position) /* 44 */
+#endif
+#ifndef TkInstallFrameMenu
+#define TkInstallFrameMenu(tkwin) \
+ (tkIntStubsPtr->tkInstallFrameMenu)(tkwin) /* 45 */
+#endif
+#ifndef TkKeysymToString
+#define TkKeysymToString(keysym) \
+ (tkIntStubsPtr->tkKeysymToString)(keysym) /* 46 */
+#endif
+#ifndef TkLineToArea
+#define TkLineToArea(end1Ptr, end2Ptr, rectPtr) \
+ (tkIntStubsPtr->tkLineToArea)(end1Ptr, end2Ptr, rectPtr) /* 47 */
+#endif
+#ifndef TkLineToPoint
+#define TkLineToPoint(end1Ptr, end2Ptr, pointPtr) \
+ (tkIntStubsPtr->tkLineToPoint)(end1Ptr, end2Ptr, pointPtr) /* 48 */
+#endif
+#ifndef TkMakeBezierCurve
+#define TkMakeBezierCurve(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints) \
+ (tkIntStubsPtr->tkMakeBezierCurve)(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints) /* 49 */
+#endif
+#ifndef TkMakeBezierPostscript
+#define TkMakeBezierPostscript(interp, canvas, pointPtr, numPoints) \
+ (tkIntStubsPtr->tkMakeBezierPostscript)(interp, canvas, pointPtr, numPoints) /* 50 */
+#endif
+#ifndef TkOptionClassChanged
+#define TkOptionClassChanged(winPtr) \
+ (tkIntStubsPtr->tkOptionClassChanged)(winPtr) /* 51 */
+#endif
+#ifndef TkOptionDeadWindow
+#define TkOptionDeadWindow(winPtr) \
+ (tkIntStubsPtr->tkOptionDeadWindow)(winPtr) /* 52 */
+#endif
+#ifndef TkOvalToArea
+#define TkOvalToArea(ovalPtr, rectPtr) \
+ (tkIntStubsPtr->tkOvalToArea)(ovalPtr, rectPtr) /* 53 */
+#endif
+#ifndef TkOvalToPoint
+#define TkOvalToPoint(ovalPtr, width, filled, pointPtr) \
+ (tkIntStubsPtr->tkOvalToPoint)(ovalPtr, width, filled, pointPtr) /* 54 */
+#endif
+#ifndef TkpChangeFocus
+#define TkpChangeFocus(winPtr, force) \
+ (tkIntStubsPtr->tkpChangeFocus)(winPtr, force) /* 55 */
+#endif
+#ifndef TkpCloseDisplay
+#define TkpCloseDisplay(dispPtr) \
+ (tkIntStubsPtr->tkpCloseDisplay)(dispPtr) /* 56 */
+#endif
+#ifndef TkpClaimFocus
+#define TkpClaimFocus(topLevelPtr, force) \
+ (tkIntStubsPtr->tkpClaimFocus)(topLevelPtr, force) /* 57 */
+#endif
+#ifndef TkpDisplayWarning
+#define TkpDisplayWarning(msg, title) \
+ (tkIntStubsPtr->tkpDisplayWarning)(msg, title) /* 58 */
+#endif
+#ifndef TkpGetAppName
+#define TkpGetAppName(interp, name) \
+ (tkIntStubsPtr->tkpGetAppName)(interp, name) /* 59 */
+#endif
+#ifndef TkpGetOtherWindow
+#define TkpGetOtherWindow(winPtr) \
+ (tkIntStubsPtr->tkpGetOtherWindow)(winPtr) /* 60 */
+#endif
+#ifndef TkpGetWrapperWindow
+#define TkpGetWrapperWindow(winPtr) \
+ (tkIntStubsPtr->tkpGetWrapperWindow)(winPtr) /* 61 */
+#endif
+#ifndef TkpInit
+#define TkpInit(interp) \
+ (tkIntStubsPtr->tkpInit)(interp) /* 62 */
+#endif
+#ifndef TkpInitializeMenuBindings
+#define TkpInitializeMenuBindings(interp, bindingTable) \
+ (tkIntStubsPtr->tkpInitializeMenuBindings)(interp, bindingTable) /* 63 */
+#endif
+#ifndef TkpMakeContainer
+#define TkpMakeContainer(tkwin) \
+ (tkIntStubsPtr->tkpMakeContainer)(tkwin) /* 64 */
+#endif
+#ifndef TkpMakeMenuWindow
+#define TkpMakeMenuWindow(tkwin, transient) \
+ (tkIntStubsPtr->tkpMakeMenuWindow)(tkwin, transient) /* 65 */
+#endif
+#ifndef TkpMakeWindow
+#define TkpMakeWindow(winPtr, parent) \
+ (tkIntStubsPtr->tkpMakeWindow)(winPtr, parent) /* 66 */
+#endif
+#ifndef TkpMenuNotifyToplevelCreate
+#define TkpMenuNotifyToplevelCreate(interp1, menuName) \
+ (tkIntStubsPtr->tkpMenuNotifyToplevelCreate)(interp1, menuName) /* 67 */
+#endif
+#ifndef TkpOpenDisplay
+#define TkpOpenDisplay(display_name) \
+ (tkIntStubsPtr->tkpOpenDisplay)(display_name) /* 68 */
+#endif
+#ifndef TkPointerEvent
+#define TkPointerEvent(eventPtr, winPtr) \
+ (tkIntStubsPtr->tkPointerEvent)(eventPtr, winPtr) /* 69 */
+#endif
+#ifndef TkPolygonToArea
+#define TkPolygonToArea(polyPtr, numPoints, rectPtr) \
+ (tkIntStubsPtr->tkPolygonToArea)(polyPtr, numPoints, rectPtr) /* 70 */
+#endif
+#ifndef TkPolygonToPoint
+#define TkPolygonToPoint(polyPtr, numPoints, pointPtr) \
+ (tkIntStubsPtr->tkPolygonToPoint)(polyPtr, numPoints, pointPtr) /* 71 */
+#endif
+#ifndef TkPositionInTree
+#define TkPositionInTree(winPtr, treePtr) \
+ (tkIntStubsPtr->tkPositionInTree)(winPtr, treePtr) /* 72 */
+#endif
+#ifndef TkpRedirectKeyEvent
+#define TkpRedirectKeyEvent(winPtr, eventPtr) \
+ (tkIntStubsPtr->tkpRedirectKeyEvent)(winPtr, eventPtr) /* 73 */
+#endif
+#ifndef TkpSetMainMenubar
+#define TkpSetMainMenubar(interp, tkwin, menuName) \
+ (tkIntStubsPtr->tkpSetMainMenubar)(interp, tkwin, menuName) /* 74 */
+#endif
+#ifndef TkpUseWindow
+#define TkpUseWindow(interp, tkwin, string) \
+ (tkIntStubsPtr->tkpUseWindow)(interp, tkwin, string) /* 75 */
+#endif
+#ifndef TkpWindowWasRecentlyDeleted
+#define TkpWindowWasRecentlyDeleted(win, dispPtr) \
+ (tkIntStubsPtr->tkpWindowWasRecentlyDeleted)(win, dispPtr) /* 76 */
+#endif
+#ifndef TkQueueEventForAllChildren
+#define TkQueueEventForAllChildren(winPtr, eventPtr) \
+ (tkIntStubsPtr->tkQueueEventForAllChildren)(winPtr, eventPtr) /* 77 */
+#endif
+#ifndef TkReadBitmapFile
+#define TkReadBitmapFile(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return) \
+ (tkIntStubsPtr->tkReadBitmapFile)(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return) /* 78 */
+#endif
+#ifndef TkScrollWindow
+#define TkScrollWindow(tkwin, gc, x, y, width, height, dx, dy, damageRgn) \
+ (tkIntStubsPtr->tkScrollWindow)(tkwin, gc, x, y, width, height, dx, dy, damageRgn) /* 79 */
+#endif
+#ifndef TkSelDeadWindow
+#define TkSelDeadWindow(winPtr) \
+ (tkIntStubsPtr->tkSelDeadWindow)(winPtr) /* 80 */
+#endif
+#ifndef TkSelEventProc
+#define TkSelEventProc(tkwin, eventPtr) \
+ (tkIntStubsPtr->tkSelEventProc)(tkwin, eventPtr) /* 81 */
+#endif
+#ifndef TkSelInit
+#define TkSelInit(tkwin) \
+ (tkIntStubsPtr->tkSelInit)(tkwin) /* 82 */
+#endif
+#ifndef TkSelPropProc
+#define TkSelPropProc(eventPtr) \
+ (tkIntStubsPtr->tkSelPropProc)(eventPtr) /* 83 */
+#endif
+#ifndef TkSetClassProcs
+#define TkSetClassProcs(tkwin, procs, instanceData) \
+ (tkIntStubsPtr->tkSetClassProcs)(tkwin, procs, instanceData) /* 84 */
+#endif
+#ifndef TkSetWindowMenuBar
+#define TkSetWindowMenuBar(interp, tkwin, oldMenuName, menuName) \
+ (tkIntStubsPtr->tkSetWindowMenuBar)(interp, tkwin, oldMenuName, menuName) /* 85 */
+#endif
+#ifndef TkStringToKeysym
+#define TkStringToKeysym(name) \
+ (tkIntStubsPtr->tkStringToKeysym)(name) /* 86 */
+#endif
+#ifndef TkThickPolyLineToArea
+#define TkThickPolyLineToArea(coordPtr, numPoints, width, capStyle, joinStyle, rectPtr) \
+ (tkIntStubsPtr->tkThickPolyLineToArea)(coordPtr, numPoints, width, capStyle, joinStyle, rectPtr) /* 87 */
+#endif
+#ifndef TkWmAddToColormapWindows
+#define TkWmAddToColormapWindows(winPtr) \
+ (tkIntStubsPtr->tkWmAddToColormapWindows)(winPtr) /* 88 */
+#endif
+#ifndef TkWmDeadWindow
+#define TkWmDeadWindow(winPtr) \
+ (tkIntStubsPtr->tkWmDeadWindow)(winPtr) /* 89 */
+#endif
+#ifndef TkWmFocusToplevel
+#define TkWmFocusToplevel(winPtr) \
+ (tkIntStubsPtr->tkWmFocusToplevel)(winPtr) /* 90 */
+#endif
+#ifndef TkWmMapWindow
+#define TkWmMapWindow(winPtr) \
+ (tkIntStubsPtr->tkWmMapWindow)(winPtr) /* 91 */
+#endif
+#ifndef TkWmNewWindow
+#define TkWmNewWindow(winPtr) \
+ (tkIntStubsPtr->tkWmNewWindow)(winPtr) /* 92 */
+#endif
+#ifndef TkWmProtocolEventProc
+#define TkWmProtocolEventProc(winPtr, evenvPtr) \
+ (tkIntStubsPtr->tkWmProtocolEventProc)(winPtr, evenvPtr) /* 93 */
+#endif
+#ifndef TkWmRemoveFromColormapWindows
+#define TkWmRemoveFromColormapWindows(winPtr) \
+ (tkIntStubsPtr->tkWmRemoveFromColormapWindows)(winPtr) /* 94 */
+#endif
+#ifndef TkWmRestackToplevel
+#define TkWmRestackToplevel(winPtr, aboveBelow, otherPtr) \
+ (tkIntStubsPtr->tkWmRestackToplevel)(winPtr, aboveBelow, otherPtr) /* 95 */
+#endif
+#ifndef TkWmSetClass
+#define TkWmSetClass(winPtr) \
+ (tkIntStubsPtr->tkWmSetClass)(winPtr) /* 96 */
+#endif
+#ifndef TkWmUnmapWindow
+#define TkWmUnmapWindow(winPtr) \
+ (tkIntStubsPtr->tkWmUnmapWindow)(winPtr) /* 97 */
+#endif
+
+#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 /* _TKINTDECLS */
+
diff --git a/generic/tkIntPlatDecls.h b/generic/tkIntPlatDecls.h
new file mode 100644
index 0000000..a36f7d3
--- /dev/null
+++ b/generic/tkIntPlatDecls.h
@@ -0,0 +1,955 @@
+/*
+ * tkIntPlatDecls.h --
+ *
+ * This file contains the declarations for all platform dependent
+ * unsupported functions that are exported by the Tk library. These
+ * interfaces are not guaranteed to remain the same between
+ * versions. Use at your own risk.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tkIntPlatDecls.h,v 1.2 1999/03/10 07:04:40 stanton Exp $
+ */
+
+#ifndef _TKINTPLATDECLS
+#define _TKINTPLATDECLS
+
+#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/tkInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported function declarations:
+ */
+
+#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
+/* 0 */
+EXTERN void TkCreateXEventSource _ANSI_ARGS_((void));
+/* 1 */
+EXTERN void TkFreeWindowId _ANSI_ARGS_((TkDisplay * dispPtr,
+ Window w));
+/* 2 */
+EXTERN void TkInitXId _ANSI_ARGS_((TkDisplay * dispPtr));
+/* 3 */
+EXTERN int TkpCmapStressed _ANSI_ARGS_((Tk_Window tkwin,
+ Colormap colormap));
+/* 4 */
+EXTERN void TkpSync _ANSI_ARGS_((Display * display));
+/* 5 */
+EXTERN Window TkUnixContainerId _ANSI_ARGS_((TkWindow * winPtr));
+/* 6 */
+EXTERN int TkUnixDoOneXEvent _ANSI_ARGS_((Tcl_Time * timePtr));
+/* 7 */
+EXTERN void TkUnixSetMenubar _ANSI_ARGS_((Tk_Window tkwin,
+ Tk_Window menubar));
+#endif /* UNIX */
+#ifdef __WIN32__
+/* 0 */
+EXTERN char * TkAlignImageData _ANSI_ARGS_((XImage * image,
+ int alignment, int bitOrder));
+/* 1 */
+EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn,
+ XRectangle* rect_return));
+/* 2 */
+EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void));
+/* 3 */
+EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn));
+/* 4 */
+EXTERN void TkGenerateActivateEvents _ANSI_ARGS_((
+ TkWindow * winPtr, int active));
+/* 5 */
+EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra,
+ TkRegion srcb, TkRegion dr_return));
+/* 6 */
+EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void));
+/* 7 */
+EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 8 */
+EXTERN void TkpPrintWindowId _ANSI_ARGS_((char * buf,
+ Window window));
+/* 9 */
+EXTERN int TkpScanWindowId _ANSI_ARGS_((Tcl_Interp * interp,
+ char * string, int * idPtr));
+/* 10 */
+EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow * winPtr));
+/* 11 */
+EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor));
+/* 12 */
+EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr,
+ int state));
+/* 13 */
+EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, int x,
+ int y, unsigned int width,
+ unsigned int height));
+/* 14 */
+EXTERN void TkSetPixmapColormap _ANSI_ARGS_((Pixmap pixmap,
+ Colormap colormap));
+/* 15 */
+EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc,
+ TkRegion rgn));
+/* 16 */
+EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect,
+ TkRegion src, TkRegion dr_return));
+/* 17 */
+EXTERN void TkWinCancelMouseTimer _ANSI_ARGS_((void));
+/* 18 */
+EXTERN void TkWinClipboardRender _ANSI_ARGS_((
+ TkDisplay * dispPtr, UINT format));
+/* 19 */
+EXTERN LRESULT TkWinEmbeddedEventProc _ANSI_ARGS_((HWND hwnd,
+ UINT message, WPARAM wParam, LPARAM lParam));
+/* 20 */
+EXTERN void TkWinFillRect _ANSI_ARGS_((HDC dc, int x, int y,
+ int width, int height, int pixel));
+/* 21 */
+EXTERN COLORREF TkWinGetBorderPixels _ANSI_ARGS_((Tk_Window tkwin,
+ Tk_3DBorder border, int which));
+/* 22 */
+EXTERN HDC TkWinGetDrawableDC _ANSI_ARGS_((Display * display,
+ Drawable d, TkWinDCState* state));
+/* 23 */
+EXTERN int TkWinGetModifierState _ANSI_ARGS_((void));
+/* 24 */
+EXTERN HPALETTE TkWinGetSystemPalette _ANSI_ARGS_((void));
+/* 25 */
+EXTERN HWND TkWinGetWrapperWindow _ANSI_ARGS_((Tk_Window tkwin));
+/* 26 */
+EXTERN int TkWinHandleMenuEvent _ANSI_ARGS_((HWND * phwnd,
+ UINT * pMessage, WPARAM * pwParam,
+ LPARAM * plParam, LRESULT * plResult));
+/* 27 */
+EXTERN int TkWinIndexOfColor _ANSI_ARGS_((XColor * colorPtr));
+/* 28 */
+EXTERN void TkWinReleaseDrawableDC _ANSI_ARGS_((Drawable d,
+ HDC hdc, TkWinDCState* state));
+/* 29 */
+EXTERN LRESULT TkWinResendEvent _ANSI_ARGS_((WNDPROC wndproc,
+ HWND hwnd, XEvent * eventPtr));
+/* 30 */
+EXTERN HPALETTE TkWinSelectPalette _ANSI_ARGS_((HDC dc,
+ Colormap colormap));
+/* 31 */
+EXTERN void TkWinSetMenu _ANSI_ARGS_((Tk_Window tkwin,
+ HMENU hMenu));
+/* 32 */
+EXTERN void TkWinSetWindowPos _ANSI_ARGS_((HWND hwnd,
+ HWND siblingHwnd, int pos));
+/* 33 */
+EXTERN void TkWinWmCleanup _ANSI_ARGS_((HINSTANCE hInstance));
+/* 34 */
+EXTERN void TkWinXCleanup _ANSI_ARGS_((HINSTANCE hInstance));
+/* 35 */
+EXTERN void TkWinXInit _ANSI_ARGS_((HINSTANCE hInstance));
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+/* 0 */
+EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn,
+ XRectangle* rect_return));
+/* 1 */
+EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void));
+/* 2 */
+EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn));
+/* 3 */
+EXTERN void TkGenerateActivateEvents _ANSI_ARGS_((
+ TkWindow * winPtr, int active));
+/* 4 */
+EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra,
+ TkRegion srcb, TkRegion dr_return));
+/* 5 */
+EXTERN Pixmap TkpCreateNativeBitmap _ANSI_ARGS_((Display * display,
+ char * source));
+/* 6 */
+EXTERN void TkpDefineNativeBitmaps _ANSI_ARGS_((void));
+/* 7 */
+EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void));
+/* 8 */
+EXTERN Pixmap TkpGetNativeAppBitmap _ANSI_ARGS_((Display * display,
+ char * name, int * width, int * height));
+/* 9 */
+EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow * winPtr));
+/* 10 */
+EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow * winPtr));
+/* 11 */
+EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor));
+/* 12 */
+EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr,
+ int state));
+/* 13 */
+EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, int x,
+ int y, unsigned int width,
+ unsigned int height));
+/* 14 */
+EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc,
+ TkRegion rgn));
+/* 15 */
+EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect,
+ TkRegion src, TkRegion dr_return));
+/* 16 */
+EXTERN int HandleWMEvent _ANSI_ARGS_((EventRecord * theEvent));
+/* 17 */
+EXTERN void TkAboutDlg _ANSI_ARGS_((void));
+/* 18 */
+EXTERN void TkCreateMacEventSource _ANSI_ARGS_((void));
+/* 19 */
+EXTERN void TkFontList _ANSI_ARGS_((Tcl_Interp * interp,
+ Display * display));
+/* 20 */
+EXTERN Window TkGetTransientMaster _ANSI_ARGS_((TkWindow * winPtr));
+/* 21 */
+EXTERN int TkGenerateButtonEvent _ANSI_ARGS_((int x, int y,
+ Window window, unsigned int state));
+/* 22 */
+EXTERN int TkGetCharPositions _ANSI_ARGS_((
+ XFontStruct * font_struct, char * string,
+ int count, short * buffer));
+/* 23 */
+EXTERN void TkGenWMDestroyEvent _ANSI_ARGS_((Tk_Window tkwin));
+/* 24 */
+EXTERN void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin,
+ int x, int y, int width, int height,
+ int flags));
+/* 25 */
+EXTERN unsigned int TkMacButtonKeyState _ANSI_ARGS_((void));
+/* 26 */
+EXTERN void TkMacClearMenubarActive _ANSI_ARGS_((void));
+/* 27 */
+EXTERN int TkMacConvertEvent _ANSI_ARGS_((
+ EventRecord * eventPtr));
+/* 28 */
+EXTERN int TkMacDispatchMenuEvent _ANSI_ARGS_((int menuID,
+ int index));
+/* 29 */
+EXTERN void TkMacInstallCursor _ANSI_ARGS_((int resizeOverride));
+/* 30 */
+EXTERN int TkMacConvertTkEvent _ANSI_ARGS_((
+ EventRecord * eventPtr, Window window));
+/* 31 */
+EXTERN void TkMacHandleTearoffMenu _ANSI_ARGS_((void));
+/* 32 */
+EXTERN void tkMacInstallMWConsole _ANSI_ARGS_((
+ Tcl_Interp * interp));
+/* 33 */
+EXTERN void TkMacInvalClipRgns _ANSI_ARGS_((TkWindow * winPtr));
+/* 34 */
+EXTERN void TkMacDoHLEvent _ANSI_ARGS_((EventRecord * theEvent));
+/* 35 */
+EXTERN void TkMacFontInfo _ANSI_ARGS_((Font fontId,
+ short * family, short * style, short * size));
+/* 36 */
+EXTERN Time TkMacGenerateTime _ANSI_ARGS_((void));
+/* 37 */
+EXTERN GWorldPtr TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable));
+/* 38 */
+EXTERN TkWindow * TkMacGetScrollbarGrowWindow _ANSI_ARGS_((
+ TkWindow * winPtr));
+/* 39 */
+EXTERN Window TkMacGetXWindow _ANSI_ARGS_((WindowRef macWinPtr));
+/* 40 */
+EXTERN int TkMacGrowToplevel _ANSI_ARGS_((WindowRef whichWindow,
+ Point start));
+/* 41 */
+EXTERN void TkMacHandleMenuSelect _ANSI_ARGS_((long mResult,
+ int optionKeyPressed));
+/* 42 */
+EXTERN int TkMacHaveAppearance _ANSI_ARGS_((void));
+/* 43 */
+EXTERN void TkMacInitAppleEvents _ANSI_ARGS_((
+ Tcl_Interp * interp));
+/* 44 */
+EXTERN void TkMacInitMenus _ANSI_ARGS_((Tcl_Interp * interp));
+/* 45 */
+EXTERN void TkMacInvalidateWindow _ANSI_ARGS_((
+ MacDrawable * macWin, int flag));
+/* 46 */
+EXTERN int TkMacIsCharacterMissing _ANSI_ARGS_((Tk_Font tkfont,
+ unsigned int searchChar));
+/* 47 */
+EXTERN void TkMacMakeRealWindowExist _ANSI_ARGS_((
+ TkWindow * winPtr));
+/* 48 */
+EXTERN BitMapPtr TkMacMakeStippleMap _ANSI_ARGS_((Drawable d1,
+ Drawable d2));
+/* 49 */
+EXTERN void TkMacMenuClick _ANSI_ARGS_((void));
+/* 50 */
+EXTERN void TkMacRegisterOffScreenWindow _ANSI_ARGS_((
+ Window window, GWorldPtr portPtr));
+/* 51 */
+EXTERN int TkMacResizable _ANSI_ARGS_((TkWindow * winPtr));
+/* 52 */
+EXTERN void TkMacSetEmbedRgn _ANSI_ARGS_((TkWindow * winPtr,
+ RgnHandle rgn));
+/* 53 */
+EXTERN void TkMacSetHelpMenuItemCount _ANSI_ARGS_((void));
+/* 54 */
+EXTERN void TkMacSetScrollbarGrow _ANSI_ARGS_((TkWindow * winPtr,
+ int flag));
+/* 55 */
+EXTERN void TkMacSetUpClippingRgn _ANSI_ARGS_((Drawable drawable));
+/* 56 */
+EXTERN void TkMacSetUpGraphicsPort _ANSI_ARGS_((GC gc));
+/* 57 */
+EXTERN void TkMacUpdateClipRgn _ANSI_ARGS_((TkWindow * winPtr));
+/* 58 */
+EXTERN void TkMacUnregisterMacWindow _ANSI_ARGS_((
+ GWorldPtr portPtr));
+/* 59 */
+EXTERN int TkMacUseMenuID _ANSI_ARGS_((short macID));
+/* 60 */
+EXTERN RgnHandle TkMacVisableClipRgn _ANSI_ARGS_((TkWindow * winPtr));
+/* 61 */
+EXTERN void TkMacWinBounds _ANSI_ARGS_((TkWindow * winPtr,
+ Rect * geometry));
+/* 62 */
+EXTERN void TkMacWindowOffset _ANSI_ARGS_((WindowRef wRef,
+ int * xOffset, int * yOffset));
+/* 63 */
+EXTERN void TkResumeClipboard _ANSI_ARGS_((void));
+/* 64 */
+EXTERN int TkSetMacColor _ANSI_ARGS_((unsigned long pixel,
+ RGBColor * macColor));
+/* 65 */
+EXTERN void TkSetWMName _ANSI_ARGS_((TkWindow * winPtr,
+ Tk_Uid titleUid));
+/* 66 */
+EXTERN void TkSuspendClipboard _ANSI_ARGS_((void));
+/* 67 */
+EXTERN int TkWMGrowToplevel _ANSI_ARGS_((WindowRef whichWindow,
+ Point start));
+/* 68 */
+EXTERN int TkMacZoomToplevel _ANSI_ARGS_((WindowPtr whichWindow,
+ Point where, short zoomPart));
+/* 69 */
+EXTERN Tk_Window Tk_TopCoordsToWindow _ANSI_ARGS_((Tk_Window tkwin,
+ int rootX, int rootY, int * newX, int * newY));
+/* 70 */
+EXTERN MacDrawable * TkMacContainerId _ANSI_ARGS_((TkWindow * winPtr));
+/* 71 */
+EXTERN MacDrawable * TkMacGetHostToplevel _ANSI_ARGS_((TkWindow * winPtr));
+#endif /* MAC_TCL */
+
+typedef struct TkIntPlatStubs {
+ int magic;
+ struct TkIntPlatStubHooks *hooks;
+
+#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
+ void (*tkCreateXEventSource) _ANSI_ARGS_((void)); /* 0 */
+ void (*tkFreeWindowId) _ANSI_ARGS_((TkDisplay * dispPtr, Window w)); /* 1 */
+ void (*tkInitXId) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 2 */
+ int (*tkpCmapStressed) _ANSI_ARGS_((Tk_Window tkwin, Colormap colormap)); /* 3 */
+ void (*tkpSync) _ANSI_ARGS_((Display * display)); /* 4 */
+ Window (*tkUnixContainerId) _ANSI_ARGS_((TkWindow * winPtr)); /* 5 */
+ int (*tkUnixDoOneXEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 6 */
+ void (*tkUnixSetMenubar) _ANSI_ARGS_((Tk_Window tkwin, Tk_Window menubar)); /* 7 */
+#endif /* UNIX */
+#ifdef __WIN32__
+ char * (*tkAlignImageData) _ANSI_ARGS_((XImage * image, int alignment, int bitOrder)); /* 0 */
+ void (*tkClipBox) _ANSI_ARGS_((TkRegion rgn, XRectangle* rect_return)); /* 1 */
+ TkRegion (*tkCreateRegion) _ANSI_ARGS_((void)); /* 2 */
+ void (*tkDestroyRegion) _ANSI_ARGS_((TkRegion rgn)); /* 3 */
+ void (*tkGenerateActivateEvents) _ANSI_ARGS_((TkWindow * winPtr, int active)); /* 4 */
+ void (*tkIntersectRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 5 */
+ unsigned long (*tkpGetMS) _ANSI_ARGS_((void)); /* 6 */
+ void (*tkPointerDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 7 */
+ void (*tkpPrintWindowId) _ANSI_ARGS_((char * buf, Window window)); /* 8 */
+ int (*tkpScanWindowId) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * idPtr)); /* 9 */
+ void (*tkpSetCapture) _ANSI_ARGS_((TkWindow * winPtr)); /* 10 */
+ void (*tkpSetCursor) _ANSI_ARGS_((TkpCursor cursor)); /* 11 */
+ void (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 12 */
+ int (*tkRectInRegion) _ANSI_ARGS_((TkRegion rgn, int x, int y, unsigned int width, unsigned int height)); /* 13 */
+ void (*tkSetPixmapColormap) _ANSI_ARGS_((Pixmap pixmap, Colormap colormap)); /* 14 */
+ void (*tkSetRegion) _ANSI_ARGS_((Display* display, GC gc, TkRegion rgn)); /* 15 */
+ void (*tkUnionRectWithRegion) _ANSI_ARGS_((XRectangle* rect, TkRegion src, TkRegion dr_return)); /* 16 */
+ void (*tkWinCancelMouseTimer) _ANSI_ARGS_((void)); /* 17 */
+ void (*tkWinClipboardRender) _ANSI_ARGS_((TkDisplay * dispPtr, UINT format)); /* 18 */
+ LRESULT (*tkWinEmbeddedEventProc) _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)); /* 19 */
+ void (*tkWinFillRect) _ANSI_ARGS_((HDC dc, int x, int y, int width, int height, int pixel)); /* 20 */
+ COLORREF (*tkWinGetBorderPixels) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border, int which)); /* 21 */
+ HDC (*tkWinGetDrawableDC) _ANSI_ARGS_((Display * display, Drawable d, TkWinDCState* state)); /* 22 */
+ int (*tkWinGetModifierState) _ANSI_ARGS_((void)); /* 23 */
+ HPALETTE (*tkWinGetSystemPalette) _ANSI_ARGS_((void)); /* 24 */
+ HWND (*tkWinGetWrapperWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 25 */
+ int (*tkWinHandleMenuEvent) _ANSI_ARGS_((HWND * phwnd, UINT * pMessage, WPARAM * pwParam, LPARAM * plParam, LRESULT * plResult)); /* 26 */
+ int (*tkWinIndexOfColor) _ANSI_ARGS_((XColor * colorPtr)); /* 27 */
+ void (*tkWinReleaseDrawableDC) _ANSI_ARGS_((Drawable d, HDC hdc, TkWinDCState* state)); /* 28 */
+ LRESULT (*tkWinResendEvent) _ANSI_ARGS_((WNDPROC wndproc, HWND hwnd, XEvent * eventPtr)); /* 29 */
+ HPALETTE (*tkWinSelectPalette) _ANSI_ARGS_((HDC dc, Colormap colormap)); /* 30 */
+ void (*tkWinSetMenu) _ANSI_ARGS_((Tk_Window tkwin, HMENU hMenu)); /* 31 */
+ void (*tkWinSetWindowPos) _ANSI_ARGS_((HWND hwnd, HWND siblingHwnd, int pos)); /* 32 */
+ void (*tkWinWmCleanup) _ANSI_ARGS_((HINSTANCE hInstance)); /* 33 */
+ void (*tkWinXCleanup) _ANSI_ARGS_((HINSTANCE hInstance)); /* 34 */
+ void (*tkWinXInit) _ANSI_ARGS_((HINSTANCE hInstance)); /* 35 */
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+ void (*tkClipBox) _ANSI_ARGS_((TkRegion rgn, XRectangle* rect_return)); /* 0 */
+ TkRegion (*tkCreateRegion) _ANSI_ARGS_((void)); /* 1 */
+ void (*tkDestroyRegion) _ANSI_ARGS_((TkRegion rgn)); /* 2 */
+ void (*tkGenerateActivateEvents) _ANSI_ARGS_((TkWindow * winPtr, int active)); /* 3 */
+ void (*tkIntersectRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 4 */
+ Pixmap (*tkpCreateNativeBitmap) _ANSI_ARGS_((Display * display, char * source)); /* 5 */
+ void (*tkpDefineNativeBitmaps) _ANSI_ARGS_((void)); /* 6 */
+ unsigned long (*tkpGetMS) _ANSI_ARGS_((void)); /* 7 */
+ Pixmap (*tkpGetNativeAppBitmap) _ANSI_ARGS_((Display * display, char * name, int * width, int * height)); /* 8 */
+ void (*tkPointerDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 9 */
+ void (*tkpSetCapture) _ANSI_ARGS_((TkWindow * winPtr)); /* 10 */
+ void (*tkpSetCursor) _ANSI_ARGS_((TkpCursor cursor)); /* 11 */
+ void (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 12 */
+ int (*tkRectInRegion) _ANSI_ARGS_((TkRegion rgn, int x, int y, unsigned int width, unsigned int height)); /* 13 */
+ void (*tkSetRegion) _ANSI_ARGS_((Display* display, GC gc, TkRegion rgn)); /* 14 */
+ void (*tkUnionRectWithRegion) _ANSI_ARGS_((XRectangle* rect, TkRegion src, TkRegion dr_return)); /* 15 */
+ int (*handleWMEvent) _ANSI_ARGS_((EventRecord * theEvent)); /* 16 */
+ void (*tkAboutDlg) _ANSI_ARGS_((void)); /* 17 */
+ void (*tkCreateMacEventSource) _ANSI_ARGS_((void)); /* 18 */
+ void (*tkFontList) _ANSI_ARGS_((Tcl_Interp * interp, Display * display)); /* 19 */
+ Window (*tkGetTransientMaster) _ANSI_ARGS_((TkWindow * winPtr)); /* 20 */
+ int (*tkGenerateButtonEvent) _ANSI_ARGS_((int x, int y, Window window, unsigned int state)); /* 21 */
+ int (*tkGetCharPositions) _ANSI_ARGS_((XFontStruct * font_struct, char * string, int count, short * buffer)); /* 22 */
+ void (*tkGenWMDestroyEvent) _ANSI_ARGS_((Tk_Window tkwin)); /* 23 */
+ void (*tkGenWMConfigureEvent) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height, int flags)); /* 24 */
+ unsigned int (*tkMacButtonKeyState) _ANSI_ARGS_((void)); /* 25 */
+ void (*tkMacClearMenubarActive) _ANSI_ARGS_((void)); /* 26 */
+ int (*tkMacConvertEvent) _ANSI_ARGS_((EventRecord * eventPtr)); /* 27 */
+ int (*tkMacDispatchMenuEvent) _ANSI_ARGS_((int menuID, int index)); /* 28 */
+ void (*tkMacInstallCursor) _ANSI_ARGS_((int resizeOverride)); /* 29 */
+ int (*tkMacConvertTkEvent) _ANSI_ARGS_((EventRecord * eventPtr, Window window)); /* 30 */
+ void (*tkMacHandleTearoffMenu) _ANSI_ARGS_((void)); /* 31 */
+ void (*tkMacInstallMWConsole) _ANSI_ARGS_((Tcl_Interp * interp)); /* 32 */
+ void (*tkMacInvalClipRgns) _ANSI_ARGS_((TkWindow * winPtr)); /* 33 */
+ void (*tkMacDoHLEvent) _ANSI_ARGS_((EventRecord * theEvent)); /* 34 */
+ void (*tkMacFontInfo) _ANSI_ARGS_((Font fontId, short * family, short * style, short * size)); /* 35 */
+ Time (*tkMacGenerateTime) _ANSI_ARGS_((void)); /* 36 */
+ GWorldPtr (*tkMacGetDrawablePort) _ANSI_ARGS_((Drawable drawable)); /* 37 */
+ TkWindow * (*tkMacGetScrollbarGrowWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 38 */
+ Window (*tkMacGetXWindow) _ANSI_ARGS_((WindowRef macWinPtr)); /* 39 */
+ int (*tkMacGrowToplevel) _ANSI_ARGS_((WindowRef whichWindow, Point start)); /* 40 */
+ void (*tkMacHandleMenuSelect) _ANSI_ARGS_((long mResult, int optionKeyPressed)); /* 41 */
+ int (*tkMacHaveAppearance) _ANSI_ARGS_((void)); /* 42 */
+ void (*tkMacInitAppleEvents) _ANSI_ARGS_((Tcl_Interp * interp)); /* 43 */
+ void (*tkMacInitMenus) _ANSI_ARGS_((Tcl_Interp * interp)); /* 44 */
+ void (*tkMacInvalidateWindow) _ANSI_ARGS_((MacDrawable * macWin, int flag)); /* 45 */
+ int (*tkMacIsCharacterMissing) _ANSI_ARGS_((Tk_Font tkfont, unsigned int searchChar)); /* 46 */
+ void (*tkMacMakeRealWindowExist) _ANSI_ARGS_((TkWindow * winPtr)); /* 47 */
+ BitMapPtr (*tkMacMakeStippleMap) _ANSI_ARGS_((Drawable d1, Drawable d2)); /* 48 */
+ void (*tkMacMenuClick) _ANSI_ARGS_((void)); /* 49 */
+ void (*tkMacRegisterOffScreenWindow) _ANSI_ARGS_((Window window, GWorldPtr portPtr)); /* 50 */
+ int (*tkMacResizable) _ANSI_ARGS_((TkWindow * winPtr)); /* 51 */
+ void (*tkMacSetEmbedRgn) _ANSI_ARGS_((TkWindow * winPtr, RgnHandle rgn)); /* 52 */
+ void (*tkMacSetHelpMenuItemCount) _ANSI_ARGS_((void)); /* 53 */
+ void (*tkMacSetScrollbarGrow) _ANSI_ARGS_((TkWindow * winPtr, int flag)); /* 54 */
+ void (*tkMacSetUpClippingRgn) _ANSI_ARGS_((Drawable drawable)); /* 55 */
+ void (*tkMacSetUpGraphicsPort) _ANSI_ARGS_((GC gc)); /* 56 */
+ void (*tkMacUpdateClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 57 */
+ void (*tkMacUnregisterMacWindow) _ANSI_ARGS_((GWorldPtr portPtr)); /* 58 */
+ int (*tkMacUseMenuID) _ANSI_ARGS_((short macID)); /* 59 */
+ RgnHandle (*tkMacVisableClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 60 */
+ void (*tkMacWinBounds) _ANSI_ARGS_((TkWindow * winPtr, Rect * geometry)); /* 61 */
+ void (*tkMacWindowOffset) _ANSI_ARGS_((WindowRef wRef, int * xOffset, int * yOffset)); /* 62 */
+ void (*tkResumeClipboard) _ANSI_ARGS_((void)); /* 63 */
+ int (*tkSetMacColor) _ANSI_ARGS_((unsigned long pixel, RGBColor * macColor)); /* 64 */
+ void (*tkSetWMName) _ANSI_ARGS_((TkWindow * winPtr, Tk_Uid titleUid)); /* 65 */
+ void (*tkSuspendClipboard) _ANSI_ARGS_((void)); /* 66 */
+ int (*tkWMGrowToplevel) _ANSI_ARGS_((WindowRef whichWindow, Point start)); /* 67 */
+ int (*tkMacZoomToplevel) _ANSI_ARGS_((WindowPtr whichWindow, Point where, short zoomPart)); /* 68 */
+ Tk_Window (*tk_TopCoordsToWindow) _ANSI_ARGS_((Tk_Window tkwin, int rootX, int rootY, int * newX, int * newY)); /* 69 */
+ MacDrawable * (*tkMacContainerId) _ANSI_ARGS_((TkWindow * winPtr)); /* 70 */
+ MacDrawable * (*tkMacGetHostToplevel) _ANSI_ARGS_((TkWindow * winPtr)); /* 71 */
+#endif /* MAC_TCL */
+} TkIntPlatStubs;
+
+extern TkIntPlatStubs *tkIntPlatStubsPtr;
+
+#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
+#ifndef TkCreateXEventSource
+#define TkCreateXEventSource() \
+ (tkIntPlatStubsPtr->tkCreateXEventSource)() /* 0 */
+#endif
+#ifndef TkFreeWindowId
+#define TkFreeWindowId(dispPtr, w) \
+ (tkIntPlatStubsPtr->tkFreeWindowId)(dispPtr, w) /* 1 */
+#endif
+#ifndef TkInitXId
+#define TkInitXId(dispPtr) \
+ (tkIntPlatStubsPtr->tkInitXId)(dispPtr) /* 2 */
+#endif
+#ifndef TkpCmapStressed
+#define TkpCmapStressed(tkwin, colormap) \
+ (tkIntPlatStubsPtr->tkpCmapStressed)(tkwin, colormap) /* 3 */
+#endif
+#ifndef TkpSync
+#define TkpSync(display) \
+ (tkIntPlatStubsPtr->tkpSync)(display) /* 4 */
+#endif
+#ifndef TkUnixContainerId
+#define TkUnixContainerId(winPtr) \
+ (tkIntPlatStubsPtr->tkUnixContainerId)(winPtr) /* 5 */
+#endif
+#ifndef TkUnixDoOneXEvent
+#define TkUnixDoOneXEvent(timePtr) \
+ (tkIntPlatStubsPtr->tkUnixDoOneXEvent)(timePtr) /* 6 */
+#endif
+#ifndef TkUnixSetMenubar
+#define TkUnixSetMenubar(tkwin, menubar) \
+ (tkIntPlatStubsPtr->tkUnixSetMenubar)(tkwin, menubar) /* 7 */
+#endif
+#endif /* UNIX */
+#ifdef __WIN32__
+#ifndef TkAlignImageData
+#define TkAlignImageData(image, alignment, bitOrder) \
+ (tkIntPlatStubsPtr->tkAlignImageData)(image, alignment, bitOrder) /* 0 */
+#endif
+#ifndef TkClipBox
+#define TkClipBox(rgn, rect_return) \
+ (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return) /* 1 */
+#endif
+#ifndef TkCreateRegion
+#define TkCreateRegion() \
+ (tkIntPlatStubsPtr->tkCreateRegion)() /* 2 */
+#endif
+#ifndef TkDestroyRegion
+#define TkDestroyRegion(rgn) \
+ (tkIntPlatStubsPtr->tkDestroyRegion)(rgn) /* 3 */
+#endif
+#ifndef TkGenerateActivateEvents
+#define TkGenerateActivateEvents(winPtr, active) \
+ (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active) /* 4 */
+#endif
+#ifndef TkIntersectRegion
+#define TkIntersectRegion(sra, srcb, dr_return) \
+ (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return) /* 5 */
+#endif
+#ifndef TkpGetMS
+#define TkpGetMS() \
+ (tkIntPlatStubsPtr->tkpGetMS)() /* 6 */
+#endif
+#ifndef TkPointerDeadWindow
+#define TkPointerDeadWindow(winPtr) \
+ (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr) /* 7 */
+#endif
+#ifndef TkpPrintWindowId
+#define TkpPrintWindowId(buf, window) \
+ (tkIntPlatStubsPtr->tkpPrintWindowId)(buf, window) /* 8 */
+#endif
+#ifndef TkpScanWindowId
+#define TkpScanWindowId(interp, string, idPtr) \
+ (tkIntPlatStubsPtr->tkpScanWindowId)(interp, string, idPtr) /* 9 */
+#endif
+#ifndef TkpSetCapture
+#define TkpSetCapture(winPtr) \
+ (tkIntPlatStubsPtr->tkpSetCapture)(winPtr) /* 10 */
+#endif
+#ifndef TkpSetCursor
+#define TkpSetCursor(cursor) \
+ (tkIntPlatStubsPtr->tkpSetCursor)(cursor) /* 11 */
+#endif
+#ifndef TkpWmSetState
+#define TkpWmSetState(winPtr, state) \
+ (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state) /* 12 */
+#endif
+#ifndef TkRectInRegion
+#define TkRectInRegion(rgn, x, y, width, height) \
+ (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height) /* 13 */
+#endif
+#ifndef TkSetPixmapColormap
+#define TkSetPixmapColormap(pixmap, colormap) \
+ (tkIntPlatStubsPtr->tkSetPixmapColormap)(pixmap, colormap) /* 14 */
+#endif
+#ifndef TkSetRegion
+#define TkSetRegion(display, gc, rgn) \
+ (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn) /* 15 */
+#endif
+#ifndef TkUnionRectWithRegion
+#define TkUnionRectWithRegion(rect, src, dr_return) \
+ (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return) /* 16 */
+#endif
+#ifndef TkWinCancelMouseTimer
+#define TkWinCancelMouseTimer() \
+ (tkIntPlatStubsPtr->tkWinCancelMouseTimer)() /* 17 */
+#endif
+#ifndef TkWinClipboardRender
+#define TkWinClipboardRender(dispPtr, format) \
+ (tkIntPlatStubsPtr->tkWinClipboardRender)(dispPtr, format) /* 18 */
+#endif
+#ifndef TkWinEmbeddedEventProc
+#define TkWinEmbeddedEventProc(hwnd, message, wParam, lParam) \
+ (tkIntPlatStubsPtr->tkWinEmbeddedEventProc)(hwnd, message, wParam, lParam) /* 19 */
+#endif
+#ifndef TkWinFillRect
+#define TkWinFillRect(dc, x, y, width, height, pixel) \
+ (tkIntPlatStubsPtr->tkWinFillRect)(dc, x, y, width, height, pixel) /* 20 */
+#endif
+#ifndef TkWinGetBorderPixels
+#define TkWinGetBorderPixels(tkwin, border, which) \
+ (tkIntPlatStubsPtr->tkWinGetBorderPixels)(tkwin, border, which) /* 21 */
+#endif
+#ifndef TkWinGetDrawableDC
+#define TkWinGetDrawableDC(display, d, state) \
+ (tkIntPlatStubsPtr->tkWinGetDrawableDC)(display, d, state) /* 22 */
+#endif
+#ifndef TkWinGetModifierState
+#define TkWinGetModifierState() \
+ (tkIntPlatStubsPtr->tkWinGetModifierState)() /* 23 */
+#endif
+#ifndef TkWinGetSystemPalette
+#define TkWinGetSystemPalette() \
+ (tkIntPlatStubsPtr->tkWinGetSystemPalette)() /* 24 */
+#endif
+#ifndef TkWinGetWrapperWindow
+#define TkWinGetWrapperWindow(tkwin) \
+ (tkIntPlatStubsPtr->tkWinGetWrapperWindow)(tkwin) /* 25 */
+#endif
+#ifndef TkWinHandleMenuEvent
+#define TkWinHandleMenuEvent(phwnd, pMessage, pwParam, plParam, plResult) \
+ (tkIntPlatStubsPtr->tkWinHandleMenuEvent)(phwnd, pMessage, pwParam, plParam, plResult) /* 26 */
+#endif
+#ifndef TkWinIndexOfColor
+#define TkWinIndexOfColor(colorPtr) \
+ (tkIntPlatStubsPtr->tkWinIndexOfColor)(colorPtr) /* 27 */
+#endif
+#ifndef TkWinReleaseDrawableDC
+#define TkWinReleaseDrawableDC(d, hdc, state) \
+ (tkIntPlatStubsPtr->tkWinReleaseDrawableDC)(d, hdc, state) /* 28 */
+#endif
+#ifndef TkWinResendEvent
+#define TkWinResendEvent(wndproc, hwnd, eventPtr) \
+ (tkIntPlatStubsPtr->tkWinResendEvent)(wndproc, hwnd, eventPtr) /* 29 */
+#endif
+#ifndef TkWinSelectPalette
+#define TkWinSelectPalette(dc, colormap) \
+ (tkIntPlatStubsPtr->tkWinSelectPalette)(dc, colormap) /* 30 */
+#endif
+#ifndef TkWinSetMenu
+#define TkWinSetMenu(tkwin, hMenu) \
+ (tkIntPlatStubsPtr->tkWinSetMenu)(tkwin, hMenu) /* 31 */
+#endif
+#ifndef TkWinSetWindowPos
+#define TkWinSetWindowPos(hwnd, siblingHwnd, pos) \
+ (tkIntPlatStubsPtr->tkWinSetWindowPos)(hwnd, siblingHwnd, pos) /* 32 */
+#endif
+#ifndef TkWinWmCleanup
+#define TkWinWmCleanup(hInstance) \
+ (tkIntPlatStubsPtr->tkWinWmCleanup)(hInstance) /* 33 */
+#endif
+#ifndef TkWinXCleanup
+#define TkWinXCleanup(hInstance) \
+ (tkIntPlatStubsPtr->tkWinXCleanup)(hInstance) /* 34 */
+#endif
+#ifndef TkWinXInit
+#define TkWinXInit(hInstance) \
+ (tkIntPlatStubsPtr->tkWinXInit)(hInstance) /* 35 */
+#endif
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+#ifndef TkClipBox
+#define TkClipBox(rgn, rect_return) \
+ (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return) /* 0 */
+#endif
+#ifndef TkCreateRegion
+#define TkCreateRegion() \
+ (tkIntPlatStubsPtr->tkCreateRegion)() /* 1 */
+#endif
+#ifndef TkDestroyRegion
+#define TkDestroyRegion(rgn) \
+ (tkIntPlatStubsPtr->tkDestroyRegion)(rgn) /* 2 */
+#endif
+#ifndef TkGenerateActivateEvents
+#define TkGenerateActivateEvents(winPtr, active) \
+ (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active) /* 3 */
+#endif
+#ifndef TkIntersectRegion
+#define TkIntersectRegion(sra, srcb, dr_return) \
+ (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return) /* 4 */
+#endif
+#ifndef TkpCreateNativeBitmap
+#define TkpCreateNativeBitmap(display, source) \
+ (tkIntPlatStubsPtr->tkpCreateNativeBitmap)(display, source) /* 5 */
+#endif
+#ifndef TkpDefineNativeBitmaps
+#define TkpDefineNativeBitmaps() \
+ (tkIntPlatStubsPtr->tkpDefineNativeBitmaps)() /* 6 */
+#endif
+#ifndef TkpGetMS
+#define TkpGetMS() \
+ (tkIntPlatStubsPtr->tkpGetMS)() /* 7 */
+#endif
+#ifndef TkpGetNativeAppBitmap
+#define TkpGetNativeAppBitmap(display, name, width, height) \
+ (tkIntPlatStubsPtr->tkpGetNativeAppBitmap)(display, name, width, height) /* 8 */
+#endif
+#ifndef TkPointerDeadWindow
+#define TkPointerDeadWindow(winPtr) \
+ (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr) /* 9 */
+#endif
+#ifndef TkpSetCapture
+#define TkpSetCapture(winPtr) \
+ (tkIntPlatStubsPtr->tkpSetCapture)(winPtr) /* 10 */
+#endif
+#ifndef TkpSetCursor
+#define TkpSetCursor(cursor) \
+ (tkIntPlatStubsPtr->tkpSetCursor)(cursor) /* 11 */
+#endif
+#ifndef TkpWmSetState
+#define TkpWmSetState(winPtr, state) \
+ (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state) /* 12 */
+#endif
+#ifndef TkRectInRegion
+#define TkRectInRegion(rgn, x, y, width, height) \
+ (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height) /* 13 */
+#endif
+#ifndef TkSetRegion
+#define TkSetRegion(display, gc, rgn) \
+ (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn) /* 14 */
+#endif
+#ifndef TkUnionRectWithRegion
+#define TkUnionRectWithRegion(rect, src, dr_return) \
+ (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return) /* 15 */
+#endif
+#ifndef HandleWMEvent
+#define HandleWMEvent(theEvent) \
+ (tkIntPlatStubsPtr->handleWMEvent)(theEvent) /* 16 */
+#endif
+#ifndef TkAboutDlg
+#define TkAboutDlg() \
+ (tkIntPlatStubsPtr->tkAboutDlg)() /* 17 */
+#endif
+#ifndef TkCreateMacEventSource
+#define TkCreateMacEventSource() \
+ (tkIntPlatStubsPtr->tkCreateMacEventSource)() /* 18 */
+#endif
+#ifndef TkFontList
+#define TkFontList(interp, display) \
+ (tkIntPlatStubsPtr->tkFontList)(interp, display) /* 19 */
+#endif
+#ifndef TkGetTransientMaster
+#define TkGetTransientMaster(winPtr) \
+ (tkIntPlatStubsPtr->tkGetTransientMaster)(winPtr) /* 20 */
+#endif
+#ifndef TkGenerateButtonEvent
+#define TkGenerateButtonEvent(x, y, window, state) \
+ (tkIntPlatStubsPtr->tkGenerateButtonEvent)(x, y, window, state) /* 21 */
+#endif
+#ifndef TkGetCharPositions
+#define TkGetCharPositions(font_struct, string, count, buffer) \
+ (tkIntPlatStubsPtr->tkGetCharPositions)(font_struct, string, count, buffer) /* 22 */
+#endif
+#ifndef TkGenWMDestroyEvent
+#define TkGenWMDestroyEvent(tkwin) \
+ (tkIntPlatStubsPtr->tkGenWMDestroyEvent)(tkwin) /* 23 */
+#endif
+#ifndef TkGenWMConfigureEvent
+#define TkGenWMConfigureEvent(tkwin, x, y, width, height, flags) \
+ (tkIntPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags) /* 24 */
+#endif
+#ifndef TkMacButtonKeyState
+#define TkMacButtonKeyState() \
+ (tkIntPlatStubsPtr->tkMacButtonKeyState)() /* 25 */
+#endif
+#ifndef TkMacClearMenubarActive
+#define TkMacClearMenubarActive() \
+ (tkIntPlatStubsPtr->tkMacClearMenubarActive)() /* 26 */
+#endif
+#ifndef TkMacConvertEvent
+#define TkMacConvertEvent(eventPtr) \
+ (tkIntPlatStubsPtr->tkMacConvertEvent)(eventPtr) /* 27 */
+#endif
+#ifndef TkMacDispatchMenuEvent
+#define TkMacDispatchMenuEvent(menuID, index) \
+ (tkIntPlatStubsPtr->tkMacDispatchMenuEvent)(menuID, index) /* 28 */
+#endif
+#ifndef TkMacInstallCursor
+#define TkMacInstallCursor(resizeOverride) \
+ (tkIntPlatStubsPtr->tkMacInstallCursor)(resizeOverride) /* 29 */
+#endif
+#ifndef TkMacConvertTkEvent
+#define TkMacConvertTkEvent(eventPtr, window) \
+ (tkIntPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window) /* 30 */
+#endif
+#ifndef TkMacHandleTearoffMenu
+#define TkMacHandleTearoffMenu() \
+ (tkIntPlatStubsPtr->tkMacHandleTearoffMenu)() /* 31 */
+#endif
+#ifndef tkMacInstallMWConsole
+#define tkMacInstallMWConsole(interp) \
+ (tkIntPlatStubsPtr->tkMacInstallMWConsole)(interp) /* 32 */
+#endif
+#ifndef TkMacInvalClipRgns
+#define TkMacInvalClipRgns(winPtr) \
+ (tkIntPlatStubsPtr->tkMacInvalClipRgns)(winPtr) /* 33 */
+#endif
+#ifndef TkMacDoHLEvent
+#define TkMacDoHLEvent(theEvent) \
+ (tkIntPlatStubsPtr->tkMacDoHLEvent)(theEvent) /* 34 */
+#endif
+#ifndef TkMacFontInfo
+#define TkMacFontInfo(fontId, family, style, size) \
+ (tkIntPlatStubsPtr->tkMacFontInfo)(fontId, family, style, size) /* 35 */
+#endif
+#ifndef TkMacGenerateTime
+#define TkMacGenerateTime() \
+ (tkIntPlatStubsPtr->tkMacGenerateTime)() /* 36 */
+#endif
+#ifndef TkMacGetDrawablePort
+#define TkMacGetDrawablePort(drawable) \
+ (tkIntPlatStubsPtr->tkMacGetDrawablePort)(drawable) /* 37 */
+#endif
+#ifndef TkMacGetScrollbarGrowWindow
+#define TkMacGetScrollbarGrowWindow(winPtr) \
+ (tkIntPlatStubsPtr->tkMacGetScrollbarGrowWindow)(winPtr) /* 38 */
+#endif
+#ifndef TkMacGetXWindow
+#define TkMacGetXWindow(macWinPtr) \
+ (tkIntPlatStubsPtr->tkMacGetXWindow)(macWinPtr) /* 39 */
+#endif
+#ifndef TkMacGrowToplevel
+#define TkMacGrowToplevel(whichWindow, start) \
+ (tkIntPlatStubsPtr->tkMacGrowToplevel)(whichWindow, start) /* 40 */
+#endif
+#ifndef TkMacHandleMenuSelect
+#define TkMacHandleMenuSelect(mResult, optionKeyPressed) \
+ (tkIntPlatStubsPtr->tkMacHandleMenuSelect)(mResult, optionKeyPressed) /* 41 */
+#endif
+#ifndef TkMacHaveAppearance
+#define TkMacHaveAppearance() \
+ (tkIntPlatStubsPtr->tkMacHaveAppearance)() /* 42 */
+#endif
+#ifndef TkMacInitAppleEvents
+#define TkMacInitAppleEvents(interp) \
+ (tkIntPlatStubsPtr->tkMacInitAppleEvents)(interp) /* 43 */
+#endif
+#ifndef TkMacInitMenus
+#define TkMacInitMenus(interp) \
+ (tkIntPlatStubsPtr->tkMacInitMenus)(interp) /* 44 */
+#endif
+#ifndef TkMacInvalidateWindow
+#define TkMacInvalidateWindow(macWin, flag) \
+ (tkIntPlatStubsPtr->tkMacInvalidateWindow)(macWin, flag) /* 45 */
+#endif
+#ifndef TkMacIsCharacterMissing
+#define TkMacIsCharacterMissing(tkfont, searchChar) \
+ (tkIntPlatStubsPtr->tkMacIsCharacterMissing)(tkfont, searchChar) /* 46 */
+#endif
+#ifndef TkMacMakeRealWindowExist
+#define TkMacMakeRealWindowExist(winPtr) \
+ (tkIntPlatStubsPtr->tkMacMakeRealWindowExist)(winPtr) /* 47 */
+#endif
+#ifndef TkMacMakeStippleMap
+#define TkMacMakeStippleMap(d1, d2) \
+ (tkIntPlatStubsPtr->tkMacMakeStippleMap)(d1, d2) /* 48 */
+#endif
+#ifndef TkMacMenuClick
+#define TkMacMenuClick() \
+ (tkIntPlatStubsPtr->tkMacMenuClick)() /* 49 */
+#endif
+#ifndef TkMacRegisterOffScreenWindow
+#define TkMacRegisterOffScreenWindow(window, portPtr) \
+ (tkIntPlatStubsPtr->tkMacRegisterOffScreenWindow)(window, portPtr) /* 50 */
+#endif
+#ifndef TkMacResizable
+#define TkMacResizable(winPtr) \
+ (tkIntPlatStubsPtr->tkMacResizable)(winPtr) /* 51 */
+#endif
+#ifndef TkMacSetEmbedRgn
+#define TkMacSetEmbedRgn(winPtr, rgn) \
+ (tkIntPlatStubsPtr->tkMacSetEmbedRgn)(winPtr, rgn) /* 52 */
+#endif
+#ifndef TkMacSetHelpMenuItemCount
+#define TkMacSetHelpMenuItemCount() \
+ (tkIntPlatStubsPtr->tkMacSetHelpMenuItemCount)() /* 53 */
+#endif
+#ifndef TkMacSetScrollbarGrow
+#define TkMacSetScrollbarGrow(winPtr, flag) \
+ (tkIntPlatStubsPtr->tkMacSetScrollbarGrow)(winPtr, flag) /* 54 */
+#endif
+#ifndef TkMacSetUpClippingRgn
+#define TkMacSetUpClippingRgn(drawable) \
+ (tkIntPlatStubsPtr->tkMacSetUpClippingRgn)(drawable) /* 55 */
+#endif
+#ifndef TkMacSetUpGraphicsPort
+#define TkMacSetUpGraphicsPort(gc) \
+ (tkIntPlatStubsPtr->tkMacSetUpGraphicsPort)(gc) /* 56 */
+#endif
+#ifndef TkMacUpdateClipRgn
+#define TkMacUpdateClipRgn(winPtr) \
+ (tkIntPlatStubsPtr->tkMacUpdateClipRgn)(winPtr) /* 57 */
+#endif
+#ifndef TkMacUnregisterMacWindow
+#define TkMacUnregisterMacWindow(portPtr) \
+ (tkIntPlatStubsPtr->tkMacUnregisterMacWindow)(portPtr) /* 58 */
+#endif
+#ifndef TkMacUseMenuID
+#define TkMacUseMenuID(macID) \
+ (tkIntPlatStubsPtr->tkMacUseMenuID)(macID) /* 59 */
+#endif
+#ifndef TkMacVisableClipRgn
+#define TkMacVisableClipRgn(winPtr) \
+ (tkIntPlatStubsPtr->tkMacVisableClipRgn)(winPtr) /* 60 */
+#endif
+#ifndef TkMacWinBounds
+#define TkMacWinBounds(winPtr, geometry) \
+ (tkIntPlatStubsPtr->tkMacWinBounds)(winPtr, geometry) /* 61 */
+#endif
+#ifndef TkMacWindowOffset
+#define TkMacWindowOffset(wRef, xOffset, yOffset) \
+ (tkIntPlatStubsPtr->tkMacWindowOffset)(wRef, xOffset, yOffset) /* 62 */
+#endif
+#ifndef TkResumeClipboard
+#define TkResumeClipboard() \
+ (tkIntPlatStubsPtr->tkResumeClipboard)() /* 63 */
+#endif
+#ifndef TkSetMacColor
+#define TkSetMacColor(pixel, macColor) \
+ (tkIntPlatStubsPtr->tkSetMacColor)(pixel, macColor) /* 64 */
+#endif
+#ifndef TkSetWMName
+#define TkSetWMName(winPtr, titleUid) \
+ (tkIntPlatStubsPtr->tkSetWMName)(winPtr, titleUid) /* 65 */
+#endif
+#ifndef TkSuspendClipboard
+#define TkSuspendClipboard() \
+ (tkIntPlatStubsPtr->tkSuspendClipboard)() /* 66 */
+#endif
+#ifndef TkWMGrowToplevel
+#define TkWMGrowToplevel(whichWindow, start) \
+ (tkIntPlatStubsPtr->tkWMGrowToplevel)(whichWindow, start) /* 67 */
+#endif
+#ifndef TkMacZoomToplevel
+#define TkMacZoomToplevel(whichWindow, where, zoomPart) \
+ (tkIntPlatStubsPtr->tkMacZoomToplevel)(whichWindow, where, zoomPart) /* 68 */
+#endif
+#ifndef Tk_TopCoordsToWindow
+#define Tk_TopCoordsToWindow(tkwin, rootX, rootY, newX, newY) \
+ (tkIntPlatStubsPtr->tk_TopCoordsToWindow)(tkwin, rootX, rootY, newX, newY) /* 69 */
+#endif
+#ifndef TkMacContainerId
+#define TkMacContainerId(winPtr) \
+ (tkIntPlatStubsPtr->tkMacContainerId)(winPtr) /* 70 */
+#endif
+#ifndef TkMacGetHostToplevel
+#define TkMacGetHostToplevel(winPtr) \
+ (tkIntPlatStubsPtr->tkMacGetHostToplevel)(winPtr) /* 71 */
+#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 /* _TKINTPLATDECLS */
diff --git a/generic/tkIntPlatStubs.c b/generic/tkIntPlatStubs.c
new file mode 100644
index 0000000..6650915
--- /dev/null
+++ b/generic/tkIntPlatStubs.c
@@ -0,0 +1,1050 @@
+/*
+ * tkIntPlatStubs.c --
+ *
+ * This file contains the wrapper functions for the platform dependent
+ * unsupported Tk API.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tkIntPlatStubs.c,v 1.2 1999/03/10 07:04:41 stanton Exp $
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+#ifdef __WIN32__
+#include "tkWinInt.h"
+#endif
+
+#include "tkIntPlatDecls.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/tkInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported stub functions:
+ */
+
+#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
+/* Slot 0 */
+void
+TkCreateXEventSource()
+{
+ (tkIntPlatStubsPtr->tkCreateXEventSource)();
+}
+
+/* Slot 1 */
+void
+TkFreeWindowId(dispPtr, w)
+ TkDisplay * dispPtr;
+ Window w;
+{
+ (tkIntPlatStubsPtr->tkFreeWindowId)(dispPtr, w);
+}
+
+/* Slot 2 */
+void
+TkInitXId(dispPtr)
+ TkDisplay * dispPtr;
+{
+ (tkIntPlatStubsPtr->tkInitXId)(dispPtr);
+}
+
+/* Slot 3 */
+int
+TkpCmapStressed(tkwin, colormap)
+ Tk_Window tkwin;
+ Colormap colormap;
+{
+ return (tkIntPlatStubsPtr->tkpCmapStressed)(tkwin, colormap);
+}
+
+/* Slot 4 */
+void
+TkpSync(display)
+ Display * display;
+{
+ (tkIntPlatStubsPtr->tkpSync)(display);
+}
+
+/* Slot 5 */
+Window
+TkUnixContainerId(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntPlatStubsPtr->tkUnixContainerId)(winPtr);
+}
+
+/* Slot 6 */
+int
+TkUnixDoOneXEvent(timePtr)
+ Tcl_Time * timePtr;
+{
+ return (tkIntPlatStubsPtr->tkUnixDoOneXEvent)(timePtr);
+}
+
+/* Slot 7 */
+void
+TkUnixSetMenubar(tkwin, menubar)
+ Tk_Window tkwin;
+ Tk_Window menubar;
+{
+ (tkIntPlatStubsPtr->tkUnixSetMenubar)(tkwin, menubar);
+}
+
+#endif /* UNIX */
+#ifdef __WIN32__
+/* Slot 0 */
+char *
+TkAlignImageData(image, alignment, bitOrder)
+ XImage * image;
+ int alignment;
+ int bitOrder;
+{
+ return (tkIntPlatStubsPtr->tkAlignImageData)(image, alignment, bitOrder);
+}
+
+/* Slot 1 */
+void
+TkClipBox(rgn, rect_return)
+ TkRegion rgn;
+ XRectangle* rect_return;
+{
+ (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return);
+}
+
+/* Slot 2 */
+TkRegion
+TkCreateRegion()
+{
+ return (tkIntPlatStubsPtr->tkCreateRegion)();
+}
+
+/* Slot 3 */
+void
+TkDestroyRegion(rgn)
+ TkRegion rgn;
+{
+ (tkIntPlatStubsPtr->tkDestroyRegion)(rgn);
+}
+
+/* Slot 4 */
+void
+TkGenerateActivateEvents(winPtr, active)
+ TkWindow * winPtr;
+ int active;
+{
+ (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active);
+}
+
+/* Slot 5 */
+void
+TkIntersectRegion(sra, srcb, dr_return)
+ TkRegion sra;
+ TkRegion srcb;
+ TkRegion dr_return;
+{
+ (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return);
+}
+
+/* Slot 6 */
+unsigned long
+TkpGetMS()
+{
+ return (tkIntPlatStubsPtr->tkpGetMS)();
+}
+
+/* Slot 7 */
+void
+TkPointerDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr);
+}
+
+/* Slot 8 */
+void
+TkpPrintWindowId(buf, window)
+ char * buf;
+ Window window;
+{
+ (tkIntPlatStubsPtr->tkpPrintWindowId)(buf, window);
+}
+
+/* Slot 9 */
+int
+TkpScanWindowId(interp, string, idPtr)
+ Tcl_Interp * interp;
+ char * string;
+ int * idPtr;
+{
+ return (tkIntPlatStubsPtr->tkpScanWindowId)(interp, string, idPtr);
+}
+
+/* Slot 10 */
+void
+TkpSetCapture(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntPlatStubsPtr->tkpSetCapture)(winPtr);
+}
+
+/* Slot 11 */
+void
+TkpSetCursor(cursor)
+ TkpCursor cursor;
+{
+ (tkIntPlatStubsPtr->tkpSetCursor)(cursor);
+}
+
+/* Slot 12 */
+void
+TkpWmSetState(winPtr, state)
+ TkWindow * winPtr;
+ int state;
+{
+ (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state);
+}
+
+/* Slot 13 */
+int
+TkRectInRegion(rgn, x, y, width, height)
+ TkRegion rgn;
+ int x;
+ int y;
+ unsigned int width;
+ unsigned int height;
+{
+ return (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height);
+}
+
+/* Slot 14 */
+void
+TkSetPixmapColormap(pixmap, colormap)
+ Pixmap pixmap;
+ Colormap colormap;
+{
+ (tkIntPlatStubsPtr->tkSetPixmapColormap)(pixmap, colormap);
+}
+
+/* Slot 15 */
+void
+TkSetRegion(display, gc, rgn)
+ Display* display;
+ GC gc;
+ TkRegion rgn;
+{
+ (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn);
+}
+
+/* Slot 16 */
+void
+TkUnionRectWithRegion(rect, src, dr_return)
+ XRectangle* rect;
+ TkRegion src;
+ TkRegion dr_return;
+{
+ (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return);
+}
+
+/* Slot 17 */
+void
+TkWinCancelMouseTimer()
+{
+ (tkIntPlatStubsPtr->tkWinCancelMouseTimer)();
+}
+
+/* Slot 18 */
+void
+TkWinClipboardRender(dispPtr, format)
+ TkDisplay * dispPtr;
+ UINT format;
+{
+ (tkIntPlatStubsPtr->tkWinClipboardRender)(dispPtr, format);
+}
+
+/* Slot 19 */
+LRESULT
+TkWinEmbeddedEventProc(hwnd, message, wParam, lParam)
+ HWND hwnd;
+ UINT message;
+ WPARAM wParam;
+ LPARAM lParam;
+{
+ return (tkIntPlatStubsPtr->tkWinEmbeddedEventProc)(hwnd, message, wParam, lParam);
+}
+
+/* Slot 20 */
+void
+TkWinFillRect(dc, x, y, width, height, pixel)
+ HDC dc;
+ int x;
+ int y;
+ int width;
+ int height;
+ int pixel;
+{
+ (tkIntPlatStubsPtr->tkWinFillRect)(dc, x, y, width, height, pixel);
+}
+
+/* Slot 21 */
+COLORREF
+TkWinGetBorderPixels(tkwin, border, which)
+ Tk_Window tkwin;
+ Tk_3DBorder border;
+ int which;
+{
+ return (tkIntPlatStubsPtr->tkWinGetBorderPixels)(tkwin, border, which);
+}
+
+/* Slot 22 */
+HDC
+TkWinGetDrawableDC(display, d, state)
+ Display * display;
+ Drawable d;
+ TkWinDCState* state;
+{
+ return (tkIntPlatStubsPtr->tkWinGetDrawableDC)(display, d, state);
+}
+
+/* Slot 23 */
+int
+TkWinGetModifierState()
+{
+ return (tkIntPlatStubsPtr->tkWinGetModifierState)();
+}
+
+/* Slot 24 */
+HPALETTE
+TkWinGetSystemPalette()
+{
+ return (tkIntPlatStubsPtr->tkWinGetSystemPalette)();
+}
+
+/* Slot 25 */
+HWND
+TkWinGetWrapperWindow(tkwin)
+ Tk_Window tkwin;
+{
+ return (tkIntPlatStubsPtr->tkWinGetWrapperWindow)(tkwin);
+}
+
+/* Slot 26 */
+int
+TkWinHandleMenuEvent(phwnd, pMessage, pwParam, plParam, plResult)
+ HWND * phwnd;
+ UINT * pMessage;
+ WPARAM * pwParam;
+ LPARAM * plParam;
+ LRESULT * plResult;
+{
+ return (tkIntPlatStubsPtr->tkWinHandleMenuEvent)(phwnd, pMessage, pwParam, plParam, plResult);
+}
+
+/* Slot 27 */
+int
+TkWinIndexOfColor(colorPtr)
+ XColor * colorPtr;
+{
+ return (tkIntPlatStubsPtr->tkWinIndexOfColor)(colorPtr);
+}
+
+/* Slot 28 */
+void
+TkWinReleaseDrawableDC(d, hdc, state)
+ Drawable d;
+ HDC hdc;
+ TkWinDCState* state;
+{
+ (tkIntPlatStubsPtr->tkWinReleaseDrawableDC)(d, hdc, state);
+}
+
+/* Slot 29 */
+LRESULT
+TkWinResendEvent(wndproc, hwnd, eventPtr)
+ WNDPROC wndproc;
+ HWND hwnd;
+ XEvent * eventPtr;
+{
+ return (tkIntPlatStubsPtr->tkWinResendEvent)(wndproc, hwnd, eventPtr);
+}
+
+/* Slot 30 */
+HPALETTE
+TkWinSelectPalette(dc, colormap)
+ HDC dc;
+ Colormap colormap;
+{
+ return (tkIntPlatStubsPtr->tkWinSelectPalette)(dc, colormap);
+}
+
+/* Slot 31 */
+void
+TkWinSetMenu(tkwin, hMenu)
+ Tk_Window tkwin;
+ HMENU hMenu;
+{
+ (tkIntPlatStubsPtr->tkWinSetMenu)(tkwin, hMenu);
+}
+
+/* Slot 32 */
+void
+TkWinSetWindowPos(hwnd, siblingHwnd, pos)
+ HWND hwnd;
+ HWND siblingHwnd;
+ int pos;
+{
+ (tkIntPlatStubsPtr->tkWinSetWindowPos)(hwnd, siblingHwnd, pos);
+}
+
+/* Slot 33 */
+void
+TkWinWmCleanup(hInstance)
+ HINSTANCE hInstance;
+{
+ (tkIntPlatStubsPtr->tkWinWmCleanup)(hInstance);
+}
+
+/* Slot 34 */
+void
+TkWinXCleanup(hInstance)
+ HINSTANCE hInstance;
+{
+ (tkIntPlatStubsPtr->tkWinXCleanup)(hInstance);
+}
+
+/* Slot 35 */
+void
+TkWinXInit(hInstance)
+ HINSTANCE hInstance;
+{
+ (tkIntPlatStubsPtr->tkWinXInit)(hInstance);
+}
+
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+/* Slot 0 */
+void
+TkClipBox(rgn, rect_return)
+ TkRegion rgn;
+ XRectangle* rect_return;
+{
+ (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return);
+}
+
+/* Slot 1 */
+TkRegion
+TkCreateRegion()
+{
+ return (tkIntPlatStubsPtr->tkCreateRegion)();
+}
+
+/* Slot 2 */
+void
+TkDestroyRegion(rgn)
+ TkRegion rgn;
+{
+ (tkIntPlatStubsPtr->tkDestroyRegion)(rgn);
+}
+
+/* Slot 3 */
+void
+TkGenerateActivateEvents(winPtr, active)
+ TkWindow * winPtr;
+ int active;
+{
+ (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active);
+}
+
+/* Slot 4 */
+void
+TkIntersectRegion(sra, srcb, dr_return)
+ TkRegion sra;
+ TkRegion srcb;
+ TkRegion dr_return;
+{
+ (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return);
+}
+
+/* Slot 5 */
+Pixmap
+TkpCreateNativeBitmap(display, source)
+ Display * display;
+ char * source;
+{
+ return (tkIntPlatStubsPtr->tkpCreateNativeBitmap)(display, source);
+}
+
+/* Slot 6 */
+void
+TkpDefineNativeBitmaps()
+{
+ (tkIntPlatStubsPtr->tkpDefineNativeBitmaps)();
+}
+
+/* Slot 7 */
+unsigned long
+TkpGetMS()
+{
+ return (tkIntPlatStubsPtr->tkpGetMS)();
+}
+
+/* Slot 8 */
+Pixmap
+TkpGetNativeAppBitmap(display, name, width, height)
+ Display * display;
+ char * name;
+ int * width;
+ int * height;
+{
+ return (tkIntPlatStubsPtr->tkpGetNativeAppBitmap)(display, name, width, height);
+}
+
+/* Slot 9 */
+void
+TkPointerDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr);
+}
+
+/* Slot 10 */
+void
+TkpSetCapture(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntPlatStubsPtr->tkpSetCapture)(winPtr);
+}
+
+/* Slot 11 */
+void
+TkpSetCursor(cursor)
+ TkpCursor cursor;
+{
+ (tkIntPlatStubsPtr->tkpSetCursor)(cursor);
+}
+
+/* Slot 12 */
+void
+TkpWmSetState(winPtr, state)
+ TkWindow * winPtr;
+ int state;
+{
+ (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state);
+}
+
+/* Slot 13 */
+int
+TkRectInRegion(rgn, x, y, width, height)
+ TkRegion rgn;
+ int x;
+ int y;
+ unsigned int width;
+ unsigned int height;
+{
+ return (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height);
+}
+
+/* Slot 14 */
+void
+TkSetRegion(display, gc, rgn)
+ Display* display;
+ GC gc;
+ TkRegion rgn;
+{
+ (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn);
+}
+
+/* Slot 15 */
+void
+TkUnionRectWithRegion(rect, src, dr_return)
+ XRectangle* rect;
+ TkRegion src;
+ TkRegion dr_return;
+{
+ (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return);
+}
+
+/* Slot 16 */
+int
+HandleWMEvent(theEvent)
+ EventRecord * theEvent;
+{
+ return (tkIntPlatStubsPtr->handleWMEvent)(theEvent);
+}
+
+/* Slot 17 */
+void
+TkAboutDlg()
+{
+ (tkIntPlatStubsPtr->tkAboutDlg)();
+}
+
+/* Slot 18 */
+void
+TkCreateMacEventSource()
+{
+ (tkIntPlatStubsPtr->tkCreateMacEventSource)();
+}
+
+/* Slot 19 */
+void
+TkFontList(interp, display)
+ Tcl_Interp * interp;
+ Display * display;
+{
+ (tkIntPlatStubsPtr->tkFontList)(interp, display);
+}
+
+/* Slot 20 */
+Window
+TkGetTransientMaster(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntPlatStubsPtr->tkGetTransientMaster)(winPtr);
+}
+
+/* Slot 21 */
+int
+TkGenerateButtonEvent(x, y, window, state)
+ int x;
+ int y;
+ Window window;
+ unsigned int state;
+{
+ return (tkIntPlatStubsPtr->tkGenerateButtonEvent)(x, y, window, state);
+}
+
+/* Slot 22 */
+int
+TkGetCharPositions(font_struct, string, count, buffer)
+ XFontStruct * font_struct;
+ char * string;
+ int count;
+ short * buffer;
+{
+ return (tkIntPlatStubsPtr->tkGetCharPositions)(font_struct, string, count, buffer);
+}
+
+/* Slot 23 */
+void
+TkGenWMDestroyEvent(tkwin)
+ Tk_Window tkwin;
+{
+ (tkIntPlatStubsPtr->tkGenWMDestroyEvent)(tkwin);
+}
+
+/* Slot 24 */
+void
+TkGenWMConfigureEvent(tkwin, x, y, width, height, flags)
+ Tk_Window tkwin;
+ int x;
+ int y;
+ int width;
+ int height;
+ int flags;
+{
+ (tkIntPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags);
+}
+
+/* Slot 25 */
+unsigned int
+TkMacButtonKeyState()
+{
+ return (tkIntPlatStubsPtr->tkMacButtonKeyState)();
+}
+
+/* Slot 26 */
+void
+TkMacClearMenubarActive()
+{
+ (tkIntPlatStubsPtr->tkMacClearMenubarActive)();
+}
+
+/* Slot 27 */
+int
+TkMacConvertEvent(eventPtr)
+ EventRecord * eventPtr;
+{
+ return (tkIntPlatStubsPtr->tkMacConvertEvent)(eventPtr);
+}
+
+/* Slot 28 */
+int
+TkMacDispatchMenuEvent(menuID, index)
+ int menuID;
+ int index;
+{
+ return (tkIntPlatStubsPtr->tkMacDispatchMenuEvent)(menuID, index);
+}
+
+/* Slot 29 */
+void
+TkMacInstallCursor(resizeOverride)
+ int resizeOverride;
+{
+ (tkIntPlatStubsPtr->tkMacInstallCursor)(resizeOverride);
+}
+
+/* Slot 30 */
+int
+TkMacConvertTkEvent(eventPtr, window)
+ EventRecord * eventPtr;
+ Window window;
+{
+ return (tkIntPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window);
+}
+
+/* Slot 31 */
+void
+TkMacHandleTearoffMenu()
+{
+ (tkIntPlatStubsPtr->tkMacHandleTearoffMenu)();
+}
+
+/* Slot 32 */
+void
+tkMacInstallMWConsole(interp)
+ Tcl_Interp * interp;
+{
+ (tkIntPlatStubsPtr->tkMacInstallMWConsole)(interp);
+}
+
+/* Slot 33 */
+void
+TkMacInvalClipRgns(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntPlatStubsPtr->tkMacInvalClipRgns)(winPtr);
+}
+
+/* Slot 34 */
+void
+TkMacDoHLEvent(theEvent)
+ EventRecord * theEvent;
+{
+ (tkIntPlatStubsPtr->tkMacDoHLEvent)(theEvent);
+}
+
+/* Slot 35 */
+void
+TkMacFontInfo(fontId, family, style, size)
+ Font fontId;
+ short * family;
+ short * style;
+ short * size;
+{
+ (tkIntPlatStubsPtr->tkMacFontInfo)(fontId, family, style, size);
+}
+
+/* Slot 36 */
+Time
+TkMacGenerateTime()
+{
+ return (tkIntPlatStubsPtr->tkMacGenerateTime)();
+}
+
+/* Slot 37 */
+GWorldPtr
+TkMacGetDrawablePort(drawable)
+ Drawable drawable;
+{
+ return (tkIntPlatStubsPtr->tkMacGetDrawablePort)(drawable);
+}
+
+/* Slot 38 */
+TkWindow *
+TkMacGetScrollbarGrowWindow(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntPlatStubsPtr->tkMacGetScrollbarGrowWindow)(winPtr);
+}
+
+/* Slot 39 */
+Window
+TkMacGetXWindow(macWinPtr)
+ WindowRef macWinPtr;
+{
+ return (tkIntPlatStubsPtr->tkMacGetXWindow)(macWinPtr);
+}
+
+/* Slot 40 */
+int
+TkMacGrowToplevel(whichWindow, start)
+ WindowRef whichWindow;
+ Point start;
+{
+ return (tkIntPlatStubsPtr->tkMacGrowToplevel)(whichWindow, start);
+}
+
+/* Slot 41 */
+void
+TkMacHandleMenuSelect(mResult, optionKeyPressed)
+ long mResult;
+ int optionKeyPressed;
+{
+ (tkIntPlatStubsPtr->tkMacHandleMenuSelect)(mResult, optionKeyPressed);
+}
+
+/* Slot 42 */
+int
+TkMacHaveAppearance()
+{
+ return (tkIntPlatStubsPtr->tkMacHaveAppearance)();
+}
+
+/* Slot 43 */
+void
+TkMacInitAppleEvents(interp)
+ Tcl_Interp * interp;
+{
+ (tkIntPlatStubsPtr->tkMacInitAppleEvents)(interp);
+}
+
+/* Slot 44 */
+void
+TkMacInitMenus(interp)
+ Tcl_Interp * interp;
+{
+ (tkIntPlatStubsPtr->tkMacInitMenus)(interp);
+}
+
+/* Slot 45 */
+void
+TkMacInvalidateWindow(macWin, flag)
+ MacDrawable * macWin;
+ int flag;
+{
+ (tkIntPlatStubsPtr->tkMacInvalidateWindow)(macWin, flag);
+}
+
+/* Slot 46 */
+int
+TkMacIsCharacterMissing(tkfont, searchChar)
+ Tk_Font tkfont;
+ unsigned int searchChar;
+{
+ return (tkIntPlatStubsPtr->tkMacIsCharacterMissing)(tkfont, searchChar);
+}
+
+/* Slot 47 */
+void
+TkMacMakeRealWindowExist(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntPlatStubsPtr->tkMacMakeRealWindowExist)(winPtr);
+}
+
+/* Slot 48 */
+BitMapPtr
+TkMacMakeStippleMap(d1, d2)
+ Drawable d1;
+ Drawable d2;
+{
+ return (tkIntPlatStubsPtr->tkMacMakeStippleMap)(d1, d2);
+}
+
+/* Slot 49 */
+void
+TkMacMenuClick()
+{
+ (tkIntPlatStubsPtr->tkMacMenuClick)();
+}
+
+/* Slot 50 */
+void
+TkMacRegisterOffScreenWindow(window, portPtr)
+ Window window;
+ GWorldPtr portPtr;
+{
+ (tkIntPlatStubsPtr->tkMacRegisterOffScreenWindow)(window, portPtr);
+}
+
+/* Slot 51 */
+int
+TkMacResizable(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntPlatStubsPtr->tkMacResizable)(winPtr);
+}
+
+/* Slot 52 */
+void
+TkMacSetEmbedRgn(winPtr, rgn)
+ TkWindow * winPtr;
+ RgnHandle rgn;
+{
+ (tkIntPlatStubsPtr->tkMacSetEmbedRgn)(winPtr, rgn);
+}
+
+/* Slot 53 */
+void
+TkMacSetHelpMenuItemCount()
+{
+ (tkIntPlatStubsPtr->tkMacSetHelpMenuItemCount)();
+}
+
+/* Slot 54 */
+void
+TkMacSetScrollbarGrow(winPtr, flag)
+ TkWindow * winPtr;
+ int flag;
+{
+ (tkIntPlatStubsPtr->tkMacSetScrollbarGrow)(winPtr, flag);
+}
+
+/* Slot 55 */
+void
+TkMacSetUpClippingRgn(drawable)
+ Drawable drawable;
+{
+ (tkIntPlatStubsPtr->tkMacSetUpClippingRgn)(drawable);
+}
+
+/* Slot 56 */
+void
+TkMacSetUpGraphicsPort(gc)
+ GC gc;
+{
+ (tkIntPlatStubsPtr->tkMacSetUpGraphicsPort)(gc);
+}
+
+/* Slot 57 */
+void
+TkMacUpdateClipRgn(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntPlatStubsPtr->tkMacUpdateClipRgn)(winPtr);
+}
+
+/* Slot 58 */
+void
+TkMacUnregisterMacWindow(portPtr)
+ GWorldPtr portPtr;
+{
+ (tkIntPlatStubsPtr->tkMacUnregisterMacWindow)(portPtr);
+}
+
+/* Slot 59 */
+int
+TkMacUseMenuID(macID)
+ short macID;
+{
+ return (tkIntPlatStubsPtr->tkMacUseMenuID)(macID);
+}
+
+/* Slot 60 */
+RgnHandle
+TkMacVisableClipRgn(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntPlatStubsPtr->tkMacVisableClipRgn)(winPtr);
+}
+
+/* Slot 61 */
+void
+TkMacWinBounds(winPtr, geometry)
+ TkWindow * winPtr;
+ Rect * geometry;
+{
+ (tkIntPlatStubsPtr->tkMacWinBounds)(winPtr, geometry);
+}
+
+/* Slot 62 */
+void
+TkMacWindowOffset(wRef, xOffset, yOffset)
+ WindowRef wRef;
+ int * xOffset;
+ int * yOffset;
+{
+ (tkIntPlatStubsPtr->tkMacWindowOffset)(wRef, xOffset, yOffset);
+}
+
+/* Slot 63 */
+void
+TkResumeClipboard()
+{
+ (tkIntPlatStubsPtr->tkResumeClipboard)();
+}
+
+/* Slot 64 */
+int
+TkSetMacColor(pixel, macColor)
+ unsigned long pixel;
+ RGBColor * macColor;
+{
+ return (tkIntPlatStubsPtr->tkSetMacColor)(pixel, macColor);
+}
+
+/* Slot 65 */
+void
+TkSetWMName(winPtr, titleUid)
+ TkWindow * winPtr;
+ Tk_Uid titleUid;
+{
+ (tkIntPlatStubsPtr->tkSetWMName)(winPtr, titleUid);
+}
+
+/* Slot 66 */
+void
+TkSuspendClipboard()
+{
+ (tkIntPlatStubsPtr->tkSuspendClipboard)();
+}
+
+/* Slot 67 */
+int
+TkWMGrowToplevel(whichWindow, start)
+ WindowRef whichWindow;
+ Point start;
+{
+ return (tkIntPlatStubsPtr->tkWMGrowToplevel)(whichWindow, start);
+}
+
+/* Slot 68 */
+int
+TkMacZoomToplevel(whichWindow, where, zoomPart)
+ WindowPtr whichWindow;
+ Point where;
+ short zoomPart;
+{
+ return (tkIntPlatStubsPtr->tkMacZoomToplevel)(whichWindow, where, zoomPart);
+}
+
+/* Slot 69 */
+Tk_Window
+Tk_TopCoordsToWindow(tkwin, rootX, rootY, newX, newY)
+ Tk_Window tkwin;
+ int rootX;
+ int rootY;
+ int * newX;
+ int * newY;
+{
+ return (tkIntPlatStubsPtr->tk_TopCoordsToWindow)(tkwin, rootX, rootY, newX, newY);
+}
+
+/* Slot 70 */
+MacDrawable *
+TkMacContainerId(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntPlatStubsPtr->tkMacContainerId)(winPtr);
+}
+
+/* Slot 71 */
+MacDrawable *
+TkMacGetHostToplevel(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntPlatStubsPtr->tkMacGetHostToplevel)(winPtr);
+}
+
+#endif /* MAC_TCL */
+
+/* !END!: Do not edit above this line. */
diff --git a/generic/tkIntStubs.c b/generic/tkIntStubs.c
new file mode 100644
index 0000000..1c33059
--- /dev/null
+++ b/generic/tkIntStubs.c
@@ -0,0 +1,965 @@
+/*
+ * tkIntStubs.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: tkIntStubs.c,v 1.2 1999/03/10 07:04:41 stanton Exp $
+ */
+
+#include "tkInt.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/tkInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported stub functions:
+ */
+
+/* Slot 0 */
+TkWindow *
+TkAllocWindow(dispPtr, screenNum, parentPtr)
+ TkDisplay * dispPtr;
+ int screenNum;
+ TkWindow * parentPtr;
+{
+ return (tkIntStubsPtr->tkAllocWindow)(dispPtr, screenNum, parentPtr);
+}
+
+/* Slot 1 */
+void
+TkBezierPoints(control, numSteps, coordPtr)
+ double control[];
+ int numSteps;
+ double * coordPtr;
+{
+ (tkIntStubsPtr->tkBezierPoints)(control, numSteps, coordPtr);
+}
+
+/* Slot 2 */
+void
+TkBezierScreenPoints(canvas, control, numSteps, xPointPtr)
+ Tk_Canvas canvas;
+ double control[];
+ int numSteps;
+ XPoint * xPointPtr;
+{
+ (tkIntStubsPtr->tkBezierScreenPoints)(canvas, control, numSteps, xPointPtr);
+}
+
+/* Slot 3 */
+void
+TkBindDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkBindDeadWindow)(winPtr);
+}
+
+/* Slot 4 */
+void
+TkBindEventProc(winPtr, eventPtr)
+ TkWindow * winPtr;
+ XEvent * eventPtr;
+{
+ (tkIntStubsPtr->tkBindEventProc)(winPtr, eventPtr);
+}
+
+/* Slot 5 */
+void
+TkBindFree(mainPtr)
+ TkMainInfo * mainPtr;
+{
+ (tkIntStubsPtr->tkBindFree)(mainPtr);
+}
+
+/* Slot 6 */
+void
+TkBindInit(mainPtr)
+ TkMainInfo * mainPtr;
+{
+ (tkIntStubsPtr->tkBindInit)(mainPtr);
+}
+
+/* Slot 7 */
+void
+TkChangeEventWindow(eventPtr, winPtr)
+ XEvent * eventPtr;
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkChangeEventWindow)(eventPtr, winPtr);
+}
+
+/* Slot 8 */
+int
+TkClipInit(interp, dispPtr)
+ Tcl_Interp * interp;
+ TkDisplay * dispPtr;
+{
+ return (tkIntStubsPtr->tkClipInit)(interp, dispPtr);
+}
+
+/* Slot 9 */
+void
+TkComputeAnchor(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr)
+ Tk_Anchor anchor;
+ Tk_Window tkwin;
+ int padX;
+ int padY;
+ int innerWidth;
+ int innerHeight;
+ int * xPtr;
+ int * yPtr;
+{
+ (tkIntStubsPtr->tkComputeAnchor)(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr);
+}
+
+/* Slot 10 */
+int
+TkCopyAndGlobalEval(interp, script)
+ Tcl_Interp * interp;
+ char * script;
+{
+ return (tkIntStubsPtr->tkCopyAndGlobalEval)(interp, script);
+}
+
+/* Slot 11 */
+unsigned long
+TkCreateBindingProcedure(interp, bindingTable, object, eventString, evalProc, freeProc, clientData)
+ Tcl_Interp * interp;
+ Tk_BindingTable bindingTable;
+ ClientData object;
+ char * eventString;
+ TkBindEvalProc * evalProc;
+ TkBindFreeProc * freeProc;
+ ClientData clientData;
+{
+ return (tkIntStubsPtr->tkCreateBindingProcedure)(interp, bindingTable, object, eventString, evalProc, freeProc, clientData);
+}
+
+/* Slot 12 */
+TkCursor *
+TkCreateCursorFromData(tkwin, source, mask, width, height, xHot, yHot, fg, bg)
+ Tk_Window tkwin;
+ char * source;
+ char * mask;
+ int width;
+ int height;
+ int xHot;
+ int yHot;
+ XColor fg;
+ XColor bg;
+{
+ return (tkIntStubsPtr->tkCreateCursorFromData)(tkwin, source, mask, width, height, xHot, yHot, fg, bg);
+}
+
+/* Slot 13 */
+int
+TkCreateFrame(clientData, interp, argc, argv, toplevel, appName)
+ ClientData clientData;
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+ int toplevel;
+ char * appName;
+{
+ return (tkIntStubsPtr->tkCreateFrame)(clientData, interp, argc, argv, toplevel, appName);
+}
+
+/* Slot 14 */
+Tk_Window
+TkCreateMainWindow(interp, screenName, baseName)
+ Tcl_Interp * interp;
+ char * screenName;
+ char * baseName;
+{
+ return (tkIntStubsPtr->tkCreateMainWindow)(interp, screenName, baseName);
+}
+
+/* Slot 15 */
+Time
+TkCurrentTime(dispPtr)
+ TkDisplay * dispPtr;
+{
+ return (tkIntStubsPtr->tkCurrentTime)(dispPtr);
+}
+
+/* Slot 16 */
+void
+TkDeleteAllImages(mainPtr)
+ TkMainInfo * mainPtr;
+{
+ (tkIntStubsPtr->tkDeleteAllImages)(mainPtr);
+}
+
+/* Slot 17 */
+void
+TkDoConfigureNotify(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkDoConfigureNotify)(winPtr);
+}
+
+/* Slot 18 */
+void
+TkDrawInsetFocusHighlight(tkwin, gc, width, drawable, padding)
+ Tk_Window tkwin;
+ GC gc;
+ int width;
+ Drawable drawable;
+ int padding;
+{
+ (tkIntStubsPtr->tkDrawInsetFocusHighlight)(tkwin, gc, width, drawable, padding);
+}
+
+/* Slot 19 */
+void
+TkEventDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkEventDeadWindow)(winPtr);
+}
+
+/* Slot 20 */
+void
+TkFillPolygon(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC)
+ Tk_Canvas canvas;
+ double * coordPtr;
+ int numPoints;
+ Display * display;
+ Drawable drawable;
+ GC gc;
+ GC outlineGC;
+{
+ (tkIntStubsPtr->tkFillPolygon)(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC);
+}
+
+/* Slot 21 */
+int
+TkFindStateNum(interp, option, mapPtr, strKey)
+ Tcl_Interp * interp;
+ CONST char * option;
+ CONST TkStateMap * mapPtr;
+ CONST char * strKey;
+{
+ return (tkIntStubsPtr->tkFindStateNum)(interp, option, mapPtr, strKey);
+}
+
+/* Slot 22 */
+char *
+TkFindStateString(mapPtr, numKey)
+ CONST TkStateMap * mapPtr;
+ int numKey;
+{
+ return (tkIntStubsPtr->tkFindStateString)(mapPtr, numKey);
+}
+
+/* Slot 23 */
+void
+TkFocusDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkFocusDeadWindow)(winPtr);
+}
+
+/* Slot 24 */
+int
+TkFocusFilterEvent(winPtr, eventPtr)
+ TkWindow * winPtr;
+ XEvent * eventPtr;
+{
+ return (tkIntStubsPtr->tkFocusFilterEvent)(winPtr, eventPtr);
+}
+
+/* Slot 25 */
+TkWindow *
+TkFocusKeyEvent(winPtr, eventPtr)
+ TkWindow * winPtr;
+ XEvent * eventPtr;
+{
+ return (tkIntStubsPtr->tkFocusKeyEvent)(winPtr, eventPtr);
+}
+
+/* Slot 26 */
+void
+TkFontPkgInit(mainPtr)
+ TkMainInfo * mainPtr;
+{
+ (tkIntStubsPtr->tkFontPkgInit)(mainPtr);
+}
+
+/* Slot 27 */
+void
+TkFontPkgFree(mainPtr)
+ TkMainInfo * mainPtr;
+{
+ (tkIntStubsPtr->tkFontPkgFree)(mainPtr);
+}
+
+/* Slot 28 */
+void
+TkFreeBindingTags(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkFreeBindingTags)(winPtr);
+}
+
+/* Slot 29 */
+void
+TkFreeCursor(cursorPtr)
+ TkCursor * cursorPtr;
+{
+ (tkIntStubsPtr->tkFreeCursor)(cursorPtr);
+}
+
+/* Slot 30 */
+char *
+TkGetBitmapData(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr)
+ Tcl_Interp * interp;
+ char * string;
+ char * fileName;
+ int * widthPtr;
+ int * heightPtr;
+ int * hotXPtr;
+ int * hotYPtr;
+{
+ return (tkIntStubsPtr->tkGetBitmapData)(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr);
+}
+
+/* Slot 31 */
+void
+TkGetButtPoints(p1, p2, width, project, m1, m2)
+ double p1[];
+ double p2[];
+ double width;
+ int project;
+ double m1[];
+ double m2[];
+{
+ (tkIntStubsPtr->tkGetButtPoints)(p1, p2, width, project, m1, m2);
+}
+
+/* Slot 32 */
+TkCursor *
+TkGetCursorByName(interp, tkwin, string)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_Uid string;
+{
+ return (tkIntStubsPtr->tkGetCursorByName)(interp, tkwin, string);
+}
+
+/* Slot 33 */
+char *
+TkGetDefaultScreenName(interp, screenName)
+ Tcl_Interp * interp;
+ char * screenName;
+{
+ return (tkIntStubsPtr->tkGetDefaultScreenName)(interp, screenName);
+}
+
+/* Slot 34 */
+TkDisplay *
+TkGetDisplay(display)
+ Display * display;
+{
+ return (tkIntStubsPtr->tkGetDisplay)(display);
+}
+
+/* Slot 35 */
+int
+TkGetDisplayOf(interp, objc, objv, tkwinPtr)
+ Tcl_Interp * interp;
+ int objc;
+ Tcl_Obj *CONST objv[];
+ Tk_Window * tkwinPtr;
+{
+ return (tkIntStubsPtr->tkGetDisplayOf)(interp, objc, objv, tkwinPtr);
+}
+
+/* Slot 36 */
+TkWindow *
+TkGetFocusWin(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntStubsPtr->tkGetFocusWin)(winPtr);
+}
+
+/* Slot 37 */
+int
+TkGetInterpNames(interp, tkwin)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+{
+ return (tkIntStubsPtr->tkGetInterpNames)(interp, tkwin);
+}
+
+/* Slot 38 */
+int
+TkGetMiterPoints(p1, p2, p3, width, m1, m2)
+ double p1[];
+ double p2[];
+ double p3[];
+ double width;
+ double m1[];
+ double m2[];
+{
+ return (tkIntStubsPtr->tkGetMiterPoints)(p1, p2, p3, width, m1, m2);
+}
+
+/* Slot 39 */
+void
+TkGetPointerCoords(tkwin, xPtr, yPtr)
+ Tk_Window tkwin;
+ int * xPtr;
+ int * yPtr;
+{
+ (tkIntStubsPtr->tkGetPointerCoords)(tkwin, xPtr, yPtr);
+}
+
+/* Slot 40 */
+void
+TkGetServerInfo(interp, tkwin)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+{
+ (tkIntStubsPtr->tkGetServerInfo)(interp, tkwin);
+}
+
+/* Slot 41 */
+void
+TkGrabDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkGrabDeadWindow)(winPtr);
+}
+
+/* Slot 42 */
+int
+TkGrabState(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntStubsPtr->tkGrabState)(winPtr);
+}
+
+/* Slot 43 */
+void
+TkIncludePoint(itemPtr, pointPtr)
+ Tk_Item * itemPtr;
+ double * pointPtr;
+{
+ (tkIntStubsPtr->tkIncludePoint)(itemPtr, pointPtr);
+}
+
+/* Slot 44 */
+void
+TkInOutEvents(eventPtr, sourcePtr, destPtr, leaveType, enterType, position)
+ XEvent * eventPtr;
+ TkWindow * sourcePtr;
+ TkWindow * destPtr;
+ int leaveType;
+ int enterType;
+ Tcl_QueuePosition position;
+{
+ (tkIntStubsPtr->tkInOutEvents)(eventPtr, sourcePtr, destPtr, leaveType, enterType, position);
+}
+
+/* Slot 45 */
+void
+TkInstallFrameMenu(tkwin)
+ Tk_Window tkwin;
+{
+ (tkIntStubsPtr->tkInstallFrameMenu)(tkwin);
+}
+
+/* Slot 46 */
+char *
+TkKeysymToString(keysym)
+ KeySym keysym;
+{
+ return (tkIntStubsPtr->tkKeysymToString)(keysym);
+}
+
+/* Slot 47 */
+int
+TkLineToArea(end1Ptr, end2Ptr, rectPtr)
+ TkDouble2 end1Ptr;
+ TkDouble2 end2Ptr;
+ TkDouble4 rectPtr;
+{
+ return (tkIntStubsPtr->tkLineToArea)(end1Ptr, end2Ptr, rectPtr);
+}
+
+/* Slot 48 */
+double
+TkLineToPoint(end1Ptr, end2Ptr, pointPtr)
+ double end1Ptr[];
+ TkDouble2 end2Ptr;
+ TkDouble2 pointPtr;
+{
+ return (tkIntStubsPtr->tkLineToPoint)(end1Ptr, end2Ptr, pointPtr);
+}
+
+/* Slot 49 */
+int
+TkMakeBezierCurve(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints)
+ Tk_Canvas canvas;
+ double * pointPtr;
+ int numPoints;
+ int numSteps;
+ XPoint xPoints[];
+ double dblPoints[];
+{
+ return (tkIntStubsPtr->tkMakeBezierCurve)(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints);
+}
+
+/* Slot 50 */
+void
+TkMakeBezierPostscript(interp, canvas, pointPtr, numPoints)
+ Tcl_Interp * interp;
+ Tk_Canvas canvas;
+ double * pointPtr;
+ int numPoints;
+{
+ (tkIntStubsPtr->tkMakeBezierPostscript)(interp, canvas, pointPtr, numPoints);
+}
+
+/* Slot 51 */
+void
+TkOptionClassChanged(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkOptionClassChanged)(winPtr);
+}
+
+/* Slot 52 */
+void
+TkOptionDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkOptionDeadWindow)(winPtr);
+}
+
+/* Slot 53 */
+int
+TkOvalToArea(ovalPtr, rectPtr)
+ double * ovalPtr;
+ double * rectPtr;
+{
+ return (tkIntStubsPtr->tkOvalToArea)(ovalPtr, rectPtr);
+}
+
+/* Slot 54 */
+double
+TkOvalToPoint(ovalPtr, width, filled, pointPtr)
+ TkDouble4 ovalPtr;
+ double width;
+ int filled;
+ TkDouble2 pointPtr;
+{
+ return (tkIntStubsPtr->tkOvalToPoint)(ovalPtr, width, filled, pointPtr);
+}
+
+/* Slot 55 */
+int
+TkpChangeFocus(winPtr, force)
+ TkWindow * winPtr;
+ int force;
+{
+ return (tkIntStubsPtr->tkpChangeFocus)(winPtr, force);
+}
+
+/* Slot 56 */
+void
+TkpCloseDisplay(dispPtr)
+ TkDisplay * dispPtr;
+{
+ (tkIntStubsPtr->tkpCloseDisplay)(dispPtr);
+}
+
+/* Slot 57 */
+void
+TkpClaimFocus(topLevelPtr, force)
+ TkWindow * topLevelPtr;
+ int force;
+{
+ (tkIntStubsPtr->tkpClaimFocus)(topLevelPtr, force);
+}
+
+/* Slot 58 */
+void
+TkpDisplayWarning(msg, title)
+ char * msg;
+ char * title;
+{
+ (tkIntStubsPtr->tkpDisplayWarning)(msg, title);
+}
+
+/* Slot 59 */
+void
+TkpGetAppName(interp, name)
+ Tcl_Interp * interp;
+ Tcl_DString * name;
+{
+ (tkIntStubsPtr->tkpGetAppName)(interp, name);
+}
+
+/* Slot 60 */
+TkWindow *
+TkpGetOtherWindow(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntStubsPtr->tkpGetOtherWindow)(winPtr);
+}
+
+/* Slot 61 */
+TkWindow *
+TkpGetWrapperWindow(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntStubsPtr->tkpGetWrapperWindow)(winPtr);
+}
+
+/* Slot 62 */
+int
+TkpInit(interp)
+ Tcl_Interp * interp;
+{
+ return (tkIntStubsPtr->tkpInit)(interp);
+}
+
+/* Slot 63 */
+void
+TkpInitializeMenuBindings(interp, bindingTable)
+ Tcl_Interp * interp;
+ Tk_BindingTable bindingTable;
+{
+ (tkIntStubsPtr->tkpInitializeMenuBindings)(interp, bindingTable);
+}
+
+/* Slot 64 */
+void
+TkpMakeContainer(tkwin)
+ Tk_Window tkwin;
+{
+ (tkIntStubsPtr->tkpMakeContainer)(tkwin);
+}
+
+/* Slot 65 */
+void
+TkpMakeMenuWindow(tkwin, transient)
+ Tk_Window tkwin;
+ int transient;
+{
+ (tkIntStubsPtr->tkpMakeMenuWindow)(tkwin, transient);
+}
+
+/* Slot 66 */
+Window
+TkpMakeWindow(winPtr, parent)
+ TkWindow * winPtr;
+ Window parent;
+{
+ return (tkIntStubsPtr->tkpMakeWindow)(winPtr, parent);
+}
+
+/* Slot 67 */
+void
+TkpMenuNotifyToplevelCreate(interp1, menuName)
+ Tcl_Interp * interp1;
+ char * menuName;
+{
+ (tkIntStubsPtr->tkpMenuNotifyToplevelCreate)(interp1, menuName);
+}
+
+/* Slot 68 */
+TkDisplay *
+TkpOpenDisplay(display_name)
+ char * display_name;
+{
+ return (tkIntStubsPtr->tkpOpenDisplay)(display_name);
+}
+
+/* Slot 69 */
+int
+TkPointerEvent(eventPtr, winPtr)
+ XEvent * eventPtr;
+ TkWindow * winPtr;
+{
+ return (tkIntStubsPtr->tkPointerEvent)(eventPtr, winPtr);
+}
+
+/* Slot 70 */
+int
+TkPolygonToArea(polyPtr, numPoints, rectPtr)
+ double * polyPtr;
+ int numPoints;
+ double * rectPtr;
+{
+ return (tkIntStubsPtr->tkPolygonToArea)(polyPtr, numPoints, rectPtr);
+}
+
+/* Slot 71 */
+double
+TkPolygonToPoint(polyPtr, numPoints, pointPtr)
+ double * polyPtr;
+ int numPoints;
+ double * pointPtr;
+{
+ return (tkIntStubsPtr->tkPolygonToPoint)(polyPtr, numPoints, pointPtr);
+}
+
+/* Slot 72 */
+int
+TkPositionInTree(winPtr, treePtr)
+ TkWindow * winPtr;
+ TkWindow * treePtr;
+{
+ return (tkIntStubsPtr->tkPositionInTree)(winPtr, treePtr);
+}
+
+/* Slot 73 */
+void
+TkpRedirectKeyEvent(winPtr, eventPtr)
+ TkWindow * winPtr;
+ XEvent * eventPtr;
+{
+ (tkIntStubsPtr->tkpRedirectKeyEvent)(winPtr, eventPtr);
+}
+
+/* Slot 74 */
+void
+TkpSetMainMenubar(interp, tkwin, menuName)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * menuName;
+{
+ (tkIntStubsPtr->tkpSetMainMenubar)(interp, tkwin, menuName);
+}
+
+/* Slot 75 */
+int
+TkpUseWindow(interp, tkwin, string)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * string;
+{
+ return (tkIntStubsPtr->tkpUseWindow)(interp, tkwin, string);
+}
+
+/* Slot 76 */
+int
+TkpWindowWasRecentlyDeleted(win, dispPtr)
+ Window win;
+ TkDisplay * dispPtr;
+{
+ return (tkIntStubsPtr->tkpWindowWasRecentlyDeleted)(win, dispPtr);
+}
+
+/* Slot 77 */
+void
+TkQueueEventForAllChildren(winPtr, eventPtr)
+ TkWindow * winPtr;
+ XEvent * eventPtr;
+{
+ (tkIntStubsPtr->tkQueueEventForAllChildren)(winPtr, eventPtr);
+}
+
+/* Slot 78 */
+int
+TkReadBitmapFile(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return)
+ Display* display;
+ Drawable d;
+ CONST char* filename;
+ unsigned int* width_return;
+ unsigned int* height_return;
+ Pixmap* bitmap_return;
+ int* x_hot_return;
+ int* y_hot_return;
+{
+ return (tkIntStubsPtr->tkReadBitmapFile)(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return);
+}
+
+/* Slot 79 */
+int
+TkScrollWindow(tkwin, gc, x, y, width, height, dx, dy, damageRgn)
+ Tk_Window tkwin;
+ GC gc;
+ int x;
+ int y;
+ int width;
+ int height;
+ int dx;
+ int dy;
+ TkRegion damageRgn;
+{
+ return (tkIntStubsPtr->tkScrollWindow)(tkwin, gc, x, y, width, height, dx, dy, damageRgn);
+}
+
+/* Slot 80 */
+void
+TkSelDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkSelDeadWindow)(winPtr);
+}
+
+/* Slot 81 */
+void
+TkSelEventProc(tkwin, eventPtr)
+ Tk_Window tkwin;
+ XEvent * eventPtr;
+{
+ (tkIntStubsPtr->tkSelEventProc)(tkwin, eventPtr);
+}
+
+/* Slot 82 */
+void
+TkSelInit(tkwin)
+ Tk_Window tkwin;
+{
+ (tkIntStubsPtr->tkSelInit)(tkwin);
+}
+
+/* Slot 83 */
+void
+TkSelPropProc(eventPtr)
+ XEvent * eventPtr;
+{
+ (tkIntStubsPtr->tkSelPropProc)(eventPtr);
+}
+
+/* Slot 84 */
+void
+TkSetClassProcs(tkwin, procs, instanceData)
+ Tk_Window tkwin;
+ TkClassProcs * procs;
+ ClientData instanceData;
+{
+ (tkIntStubsPtr->tkSetClassProcs)(tkwin, procs, instanceData);
+}
+
+/* Slot 85 */
+void
+TkSetWindowMenuBar(interp, tkwin, oldMenuName, menuName)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * oldMenuName;
+ char * menuName;
+{
+ (tkIntStubsPtr->tkSetWindowMenuBar)(interp, tkwin, oldMenuName, menuName);
+}
+
+/* Slot 86 */
+KeySym
+TkStringToKeysym(name)
+ char * name;
+{
+ return (tkIntStubsPtr->tkStringToKeysym)(name);
+}
+
+/* Slot 87 */
+int
+TkThickPolyLineToArea(coordPtr, numPoints, width, capStyle, joinStyle, rectPtr)
+ double * coordPtr;
+ int numPoints;
+ double width;
+ int capStyle;
+ int joinStyle;
+ double * rectPtr;
+{
+ return (tkIntStubsPtr->tkThickPolyLineToArea)(coordPtr, numPoints, width, capStyle, joinStyle, rectPtr);
+}
+
+/* Slot 88 */
+void
+TkWmAddToColormapWindows(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkWmAddToColormapWindows)(winPtr);
+}
+
+/* Slot 89 */
+void
+TkWmDeadWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkWmDeadWindow)(winPtr);
+}
+
+/* Slot 90 */
+TkWindow *
+TkWmFocusToplevel(winPtr)
+ TkWindow * winPtr;
+{
+ return (tkIntStubsPtr->tkWmFocusToplevel)(winPtr);
+}
+
+/* Slot 91 */
+void
+TkWmMapWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkWmMapWindow)(winPtr);
+}
+
+/* Slot 92 */
+void
+TkWmNewWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkWmNewWindow)(winPtr);
+}
+
+/* Slot 93 */
+void
+TkWmProtocolEventProc(winPtr, evenvPtr)
+ TkWindow * winPtr;
+ XEvent * evenvPtr;
+{
+ (tkIntStubsPtr->tkWmProtocolEventProc)(winPtr, evenvPtr);
+}
+
+/* Slot 94 */
+void
+TkWmRemoveFromColormapWindows(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkWmRemoveFromColormapWindows)(winPtr);
+}
+
+/* Slot 95 */
+void
+TkWmRestackToplevel(winPtr, aboveBelow, otherPtr)
+ TkWindow * winPtr;
+ int aboveBelow;
+ TkWindow * otherPtr;
+{
+ (tkIntStubsPtr->tkWmRestackToplevel)(winPtr, aboveBelow, otherPtr);
+}
+
+/* Slot 96 */
+void
+TkWmSetClass(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkWmSetClass)(winPtr);
+}
+
+/* Slot 97 */
+void
+TkWmUnmapWindow(winPtr)
+ TkWindow * winPtr;
+{
+ (tkIntStubsPtr->tkWmUnmapWindow)(winPtr);
+}
+
+
+/* !END!: Do not edit above this line. */
diff --git a/generic/tkIntXlibDecls.h b/generic/tkIntXlibDecls.h
new file mode 100644
index 0000000..1ffa197
--- /dev/null
+++ b/generic/tkIntXlibDecls.h
@@ -0,0 +1,1157 @@
+/*
+ * tkIntXlibDecls.h --
+ *
+ * This file contains the declarations for all platform dependent
+ * unsupported functions that are exported by the Tk library. These
+ * interfaces are not guaranteed to remain the same between
+ * versions. Use at your own risk.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tkIntXlibDecls.h,v 1.2 1999/03/10 07:04:41 stanton Exp $
+ */
+
+#ifndef _TKINTXLIBDECLS
+#define _TKINTXLIBDECLS
+
+#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/tkInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported function declarations:
+ */
+
+#ifdef __WIN32__
+/* 0 */
+EXTERN XModifierKeymap* XGetModifierMapping _ANSI_ARGS_((Display* d));
+/* 1 */
+EXTERN XImage * XCreateImage _ANSI_ARGS_((Display* d, Visual* v,
+ unsigned int ui1, int i1, int i2, char* cp,
+ unsigned int ui2, unsigned int ui3, int i3,
+ int i4));
+/* 2 */
+EXTERN XImage * XGetImage _ANSI_ARGS_((Display* d, Drawable dr,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2, unsigned long ul, int i3));
+/* 3 */
+EXTERN char * XGetAtomName _ANSI_ARGS_((Display* d, Atom a));
+/* 4 */
+EXTERN char * XKeysymToString _ANSI_ARGS_((KeySym k));
+/* 5 */
+EXTERN Colormap XCreateColormap _ANSI_ARGS_((Display* d, Window w,
+ Visual* v, int i));
+/* 6 */
+EXTERN Cursor XCreatePixmapCursor _ANSI_ARGS_((Display* d,
+ Pixmap p1, Pixmap p2, XColor* x1, XColor* x2,
+ unsigned int ui1, unsigned int ui2));
+/* 7 */
+EXTERN Cursor XCreateGlyphCursor _ANSI_ARGS_((Display* d, Font f1,
+ Font f2, unsigned int ui1, unsigned int ui2,
+ XColor* x1, XColor* x2));
+/* 8 */
+EXTERN GContext XGContextFromGC _ANSI_ARGS_((GC g));
+/* 9 */
+EXTERN XHostAddress * XListHosts _ANSI_ARGS_((Display* d, int* i, Bool* b));
+/* 10 */
+EXTERN KeySym XKeycodeToKeysym _ANSI_ARGS_((Display* d,
+ unsigned int k, int i));
+/* 11 */
+EXTERN KeySym XStringToKeysym _ANSI_ARGS_((_Xconst char* c));
+/* 12 */
+EXTERN Window XRootWindow _ANSI_ARGS_((Display* d, int i));
+/* 13 */
+EXTERN XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler x));
+/* 14 */
+EXTERN Status XIconifyWindow _ANSI_ARGS_((Display* d, Window w,
+ int i));
+/* 15 */
+EXTERN Status XWithdrawWindow _ANSI_ARGS_((Display* d, Window w,
+ int i));
+/* 16 */
+EXTERN Status XGetWMColormapWindows _ANSI_ARGS_((Display* d,
+ Window w, Window** wpp, int* ip));
+/* 17 */
+EXTERN Status XAllocColor _ANSI_ARGS_((Display* d, Colormap c,
+ XColor* xp));
+/* 18 */
+EXTERN void XBell _ANSI_ARGS_((Display* d, int i));
+/* 19 */
+EXTERN void XChangeProperty _ANSI_ARGS_((Display* d, Window w,
+ Atom a1, Atom a2, int i1, int i2,
+ _Xconst unsigned char* c, int i3));
+/* 20 */
+EXTERN void XChangeWindowAttributes _ANSI_ARGS_((Display* d,
+ Window w, unsigned long ul,
+ XSetWindowAttributes* x));
+/* 21 */
+EXTERN void XClearWindow _ANSI_ARGS_((Display* d, Window w));
+/* 22 */
+EXTERN void XConfigureWindow _ANSI_ARGS_((Display* d, Window w,
+ unsigned int i, XWindowChanges* x));
+/* 23 */
+EXTERN void XCopyArea _ANSI_ARGS_((Display* d, Drawable dr1,
+ Drawable dr2, GC g, int i1, int i2,
+ unsigned int ui1, unsigned int ui2, int i3,
+ int i4));
+/* 24 */
+EXTERN void XCopyPlane _ANSI_ARGS_((Display* d, Drawable dr1,
+ Drawable dr2, GC g, int i1, int i2,
+ unsigned int ui1, unsigned int ui2, int i3,
+ int i4, unsigned long ul));
+/* 25 */
+EXTERN void XDefineCursor _ANSI_ARGS_((Display* d, Window w,
+ Cursor c));
+/* 26 */
+EXTERN void XDeleteProperty _ANSI_ARGS_((Display* d, Window w,
+ Atom a));
+/* 27 */
+EXTERN void XDestroyWindow _ANSI_ARGS_((Display* d, Window w));
+/* 28 */
+EXTERN void XDrawArc _ANSI_ARGS_((Display* d, Drawable dr, GC g,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2, int i3, int i4));
+/* 29 */
+EXTERN void XDrawLines _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, XPoint* x, int i1, int i2));
+/* 30 */
+EXTERN void XDrawRectangle _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, int i1, int i2, unsigned int ui1,
+ unsigned int ui2));
+/* 31 */
+EXTERN void XFillArc _ANSI_ARGS_((Display* d, Drawable dr, GC g,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2, int i3, int i4));
+/* 32 */
+EXTERN void XFillPolygon _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, XPoint* x, int i1, int i2, int i3));
+/* 33 */
+EXTERN void XFillRectangles _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, XRectangle* x, int i));
+/* 34 */
+EXTERN void XForceScreenSaver _ANSI_ARGS_((Display* d, int i));
+/* 35 */
+EXTERN void XFreeColormap _ANSI_ARGS_((Display* d, Colormap c));
+/* 36 */
+EXTERN void XFreeColors _ANSI_ARGS_((Display* d, Colormap c,
+ unsigned long* ulp, int i, unsigned long ul));
+/* 37 */
+EXTERN void XFreeCursor _ANSI_ARGS_((Display* d, Cursor c));
+/* 38 */
+EXTERN void XFreeModifiermap _ANSI_ARGS_((XModifierKeymap* x));
+/* 39 */
+EXTERN Status XGetGeometry _ANSI_ARGS_((Display* d, Drawable dr,
+ Window* w, int* i1, int* i2,
+ unsigned int* ui1, unsigned int* ui2,
+ unsigned int* ui3, unsigned int* ui4));
+/* 40 */
+EXTERN void XGetInputFocus _ANSI_ARGS_((Display* d, Window* w,
+ int* i));
+/* 41 */
+EXTERN int XGetWindowProperty _ANSI_ARGS_((Display* d, Window w,
+ Atom a1, long l1, long l2, Bool b, Atom a2,
+ Atom* ap, int* ip, unsigned long* ulp1,
+ unsigned long* ulp2, unsigned char** cpp));
+/* 42 */
+EXTERN Status XGetWindowAttributes _ANSI_ARGS_((Display* d,
+ Window w, XWindowAttributes* x));
+/* 43 */
+EXTERN int XGrabKeyboard _ANSI_ARGS_((Display* d, Window w,
+ Bool b, int i1, int i2, Time t));
+/* 44 */
+EXTERN int XGrabPointer _ANSI_ARGS_((Display* d, Window w1,
+ Bool b, unsigned int ui, int i1, int i2,
+ Window w2, Cursor c, Time t));
+/* 45 */
+EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display* d, KeySym k));
+/* 46 */
+EXTERN Status XLookupColor _ANSI_ARGS_((Display* d, Colormap c1,
+ _Xconst char* c2, XColor* x1, XColor* x2));
+/* 47 */
+EXTERN void XMapWindow _ANSI_ARGS_((Display* d, Window w));
+/* 48 */
+EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display* d, Window w,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2));
+/* 49 */
+EXTERN void XMoveWindow _ANSI_ARGS_((Display* d, Window w,
+ int i1, int i2));
+/* 50 */
+EXTERN void XNextEvent _ANSI_ARGS_((Display* d, XEvent* x));
+/* 51 */
+EXTERN void XPutBackEvent _ANSI_ARGS_((Display* d, XEvent* x));
+/* 52 */
+EXTERN void XQueryColors _ANSI_ARGS_((Display* d, Colormap c,
+ XColor* x, int i));
+/* 53 */
+EXTERN Bool XQueryPointer _ANSI_ARGS_((Display* d, Window w1,
+ Window* w2, Window* w3, int* i1, int* i2,
+ int* i3, int* i4, unsigned int* ui));
+/* 54 */
+EXTERN Status XQueryTree _ANSI_ARGS_((Display* d, Window w1,
+ Window* w2, Window* w3, Window** w4,
+ unsigned int* ui));
+/* 55 */
+EXTERN void XRaiseWindow _ANSI_ARGS_((Display* d, Window w));
+/* 56 */
+EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_((
+ XMappingEvent* x));
+/* 57 */
+EXTERN void XResizeWindow _ANSI_ARGS_((Display* d, Window w,
+ unsigned int ui1, unsigned int ui2));
+/* 58 */
+EXTERN void XSelectInput _ANSI_ARGS_((Display* d, Window w,
+ long l));
+/* 59 */
+EXTERN Status XSendEvent _ANSI_ARGS_((Display* d, Window w, Bool b,
+ long l, XEvent* x));
+/* 60 */
+EXTERN void XSetCommand _ANSI_ARGS_((Display* d, Window w,
+ char** c, int i));
+/* 61 */
+EXTERN void XSetIconName _ANSI_ARGS_((Display* d, Window w,
+ _Xconst char* c));
+/* 62 */
+EXTERN void XSetInputFocus _ANSI_ARGS_((Display* d, Window w,
+ int i, Time t));
+/* 63 */
+EXTERN void XSetSelectionOwner _ANSI_ARGS_((Display* d, Atom a,
+ Window w, Time t));
+/* 64 */
+EXTERN void XSetWindowBackground _ANSI_ARGS_((Display* d,
+ Window w, unsigned long ul));
+/* 65 */
+EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display* d,
+ Window w, Pixmap p));
+/* 66 */
+EXTERN void XSetWindowBorder _ANSI_ARGS_((Display* d, Window w,
+ unsigned long ul));
+/* 67 */
+EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display* d,
+ Window w, Pixmap p));
+/* 68 */
+EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display* d,
+ Window w, unsigned int ui));
+/* 69 */
+EXTERN void XSetWindowColormap _ANSI_ARGS_((Display* d, Window w,
+ Colormap c));
+/* 70 */
+EXTERN Bool XTranslateCoordinates _ANSI_ARGS_((Display* d,
+ Window w1, Window w2, int i1, int i2,
+ int* i3, int* i4, Window* w3));
+/* 71 */
+EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display* d, Time t));
+/* 72 */
+EXTERN void XUngrabPointer _ANSI_ARGS_((Display* d, Time t));
+/* 73 */
+EXTERN void XUnmapWindow _ANSI_ARGS_((Display* d, Window w));
+/* 74 */
+EXTERN void XWindowEvent _ANSI_ARGS_((Display* d, Window w,
+ long l, XEvent* x));
+/* 75 */
+EXTERN void XDestroyIC _ANSI_ARGS_((XIC x));
+/* 76 */
+EXTERN Bool XFilterEvent _ANSI_ARGS_((XEvent* x, Window w));
+/* 77 */
+EXTERN int XmbLookupString _ANSI_ARGS_((XIC xi,
+ XKeyPressedEvent* xk, char* c, int i,
+ KeySym* k, Status* s));
+/* 78 */
+EXTERN void TkPutImage _ANSI_ARGS_((unsigned long * colors,
+ int ncolors, Display* display, Drawable d,
+ GC gc, XImage* image, int src_x, int src_y,
+ int dest_x, int dest_y, unsigned int width,
+ unsigned int height));
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+/* 0 */
+EXTERN XModifierKeymap* XGetModifierMapping _ANSI_ARGS_((Display* d));
+/* 1 */
+EXTERN XImage * XCreateImage _ANSI_ARGS_((Display* d, Visual* v,
+ unsigned int ui1, int i1, int i2, char* cp,
+ unsigned int ui2, unsigned int ui3, int i3,
+ int i4));
+/* 2 */
+EXTERN XImage * XGetImage _ANSI_ARGS_((Display* d, Drawable dr,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2, unsigned long ul, int i3));
+/* 3 */
+EXTERN char * XGetAtomName _ANSI_ARGS_((Display* d, Atom a));
+/* 4 */
+EXTERN char * XKeysymToString _ANSI_ARGS_((KeySym k));
+/* 5 */
+EXTERN Colormap XCreateColormap _ANSI_ARGS_((Display* d, Window w,
+ Visual* v, int i));
+/* 6 */
+EXTERN GContext XGContextFromGC _ANSI_ARGS_((GC g));
+/* 7 */
+EXTERN KeySym XKeycodeToKeysym _ANSI_ARGS_((Display* d, KeyCode k,
+ int i));
+/* 8 */
+EXTERN KeySym XStringToKeysym _ANSI_ARGS_((_Xconst char* c));
+/* 9 */
+EXTERN Window XRootWindow _ANSI_ARGS_((Display* d, int i));
+/* 10 */
+EXTERN XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler x));
+/* 11 */
+EXTERN Status XAllocColor _ANSI_ARGS_((Display* d, Colormap c,
+ XColor* xp));
+/* 12 */
+EXTERN void XBell _ANSI_ARGS_((Display* d, int i));
+/* 13 */
+EXTERN void XChangeProperty _ANSI_ARGS_((Display* d, Window w,
+ Atom a, Atom a, int i1, int i2,
+ _Xconst unsigned char* c, int i3));
+/* 14 */
+EXTERN void XChangeWindowAttributes _ANSI_ARGS_((Display* d,
+ Window w, unsigned long ul,
+ XSetWindowAttributes* x));
+/* 15 */
+EXTERN void XConfigureWindow _ANSI_ARGS_((Display* d, Window w,
+ unsigned int i, XWindowChanges* x));
+/* 16 */
+EXTERN void XCopyArea _ANSI_ARGS_((Display* d, Drawable dr1,
+ Drawable dr2, GC g, int i1, int i2,
+ unsigned int ui1, unsigned int ui2, int i3,
+ int i4));
+/* 17 */
+EXTERN void XCopyPlane _ANSI_ARGS_((Display* d, Drawable dr1,
+ Drawable dr2, GC g, int i1, int i2,
+ unsigned int ui1, unsigned int ui2, int i3,
+ int i4, unsigned long ul));
+/* 18 */
+EXTERN void XDefineCursor _ANSI_ARGS_((Display* d, Window w,
+ Cursor c));
+/* 19 */
+EXTERN void XDestroyWindow _ANSI_ARGS_((Display* d, Window w));
+/* 20 */
+EXTERN void XDrawArc _ANSI_ARGS_((Display* d, Drawable dr, GC g,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2, int i3, int i4));
+/* 21 */
+EXTERN void XDrawLines _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, XPoint* x, int i1, int i2));
+/* 22 */
+EXTERN void XDrawRectangle _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, int i1, int i2, unsigned int ui1,
+ unsigned int ui2));
+/* 23 */
+EXTERN void XFillArc _ANSI_ARGS_((Display* d, Drawable dr, GC g,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2, int i3, int i4));
+/* 24 */
+EXTERN void XFillPolygon _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, XPoint* x, int i1, int i2, int i3));
+/* 25 */
+EXTERN void XFillRectangles _ANSI_ARGS_((Display* d, Drawable dr,
+ GC g, XRectangle* x, int i));
+/* 26 */
+EXTERN void XFreeColormap _ANSI_ARGS_((Display* d, Colormap c));
+/* 27 */
+EXTERN void XFreeColors _ANSI_ARGS_((Display* d, Colormap c,
+ unsigned long* ulp, int i, unsigned long ul));
+/* 28 */
+EXTERN void XFreeModifiermap _ANSI_ARGS_((XModifierKeymap* x));
+/* 29 */
+EXTERN Status XGetGeometry _ANSI_ARGS_((Display* d, Drawable dr,
+ Window* w, int* i1, int* i2,
+ unsigned int* ui1, unsigned int* ui2,
+ unsigned int* ui3, unsigned int* ui4));
+/* 30 */
+EXTERN int XGetWindowProperty _ANSI_ARGS_((Display* d, Window w,
+ Atom a1, long l1, long l2, Bool b, Atom a2,
+ Atom* ap, int* ip, unsigned long* ulp1,
+ unsigned long* ulp2, unsigned char** cpp));
+/* 31 */
+EXTERN int XGrabKeyboard _ANSI_ARGS_((Display* d, Window w,
+ Bool b, int i1, int i2, Time t));
+/* 32 */
+EXTERN int XGrabPointer _ANSI_ARGS_((Display* d, Window w1,
+ Bool b, unsigned int ui, int i1, int i2,
+ Window w2, Cursor c, Time t));
+/* 33 */
+EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display* d, KeySym k));
+/* 34 */
+EXTERN void XMapWindow _ANSI_ARGS_((Display* d, Window w));
+/* 35 */
+EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display* d, Window w,
+ int i1, int i2, unsigned int ui1,
+ unsigned int ui2));
+/* 36 */
+EXTERN void XMoveWindow _ANSI_ARGS_((Display* d, Window w,
+ int i1, int i2));
+/* 37 */
+EXTERN Bool XQueryPointer _ANSI_ARGS_((Display* d, Window w1,
+ Window* w2, Window* w3, int* i1, int* i2,
+ int* i3, int* i4, unsigned int* ui));
+/* 38 */
+EXTERN void XRaiseWindow _ANSI_ARGS_((Display* d, Window w));
+/* 39 */
+EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_((
+ XMappingEvent* x));
+/* 40 */
+EXTERN void XResizeWindow _ANSI_ARGS_((Display* d, Window w,
+ unsigned int ui1, unsigned int ui2));
+/* 41 */
+EXTERN void XSelectInput _ANSI_ARGS_((Display* d, Window w,
+ long l));
+/* 42 */
+EXTERN Status XSendEvent _ANSI_ARGS_((Display* d, Window w, Bool b,
+ long l, XEvent* x));
+/* 43 */
+EXTERN void XSetIconName _ANSI_ARGS_((Display* d, Window w,
+ _Xconst char* c));
+/* 44 */
+EXTERN void XSetInputFocus _ANSI_ARGS_((Display* d, Window w,
+ int i, Time t));
+/* 45 */
+EXTERN void XSetSelectionOwner _ANSI_ARGS_((Display* d, Atom a,
+ Window w, Time t));
+/* 46 */
+EXTERN void XSetWindowBackground _ANSI_ARGS_((Display* d,
+ Window w, unsigned long ul));
+/* 47 */
+EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display* d,
+ Window w, Pixmap p));
+/* 48 */
+EXTERN void XSetWindowBorder _ANSI_ARGS_((Display* d, Window w,
+ unsigned long ul));
+/* 49 */
+EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display* d,
+ Window w, Pixmap p));
+/* 50 */
+EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display* d,
+ Window w, unsigned int ui));
+/* 51 */
+EXTERN void XSetWindowColormap _ANSI_ARGS_((Display* d, Window w,
+ Colormap c));
+/* 52 */
+EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display* d, Time t));
+/* 53 */
+EXTERN void XUngrabPointer _ANSI_ARGS_((Display* d, Time t));
+/* 54 */
+EXTERN void XUnmapWindow _ANSI_ARGS_((Display* d, Window w));
+/* 55 */
+EXTERN void TkPutImage _ANSI_ARGS_((unsigned long * colors,
+ int ncolors, Display* display, Drawable d,
+ GC gc, XImage* image, int src_x, int src_y,
+ int dest_x, int dest_y, unsigned int width,
+ unsigned int height));
+#endif /* MAC_TCL */
+
+typedef struct TkIntXlibStubs {
+ int magic;
+ struct TkIntXlibStubHooks *hooks;
+
+#ifdef __WIN32__
+ XModifierKeymap* (*xGetModifierMapping) _ANSI_ARGS_((Display* d)); /* 0 */
+ XImage * (*xCreateImage) _ANSI_ARGS_((Display* d, Visual* v, unsigned int ui1, int i1, int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, int i4)); /* 1 */
+ XImage * (*xGetImage) _ANSI_ARGS_((Display* d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)); /* 2 */
+ char * (*xGetAtomName) _ANSI_ARGS_((Display* d, Atom a)); /* 3 */
+ char * (*xKeysymToString) _ANSI_ARGS_((KeySym k)); /* 4 */
+ Colormap (*xCreateColormap) _ANSI_ARGS_((Display* d, Window w, Visual* v, int i)); /* 5 */
+ Cursor (*xCreatePixmapCursor) _ANSI_ARGS_((Display* d, Pixmap p1, Pixmap p2, XColor* x1, XColor* x2, unsigned int ui1, unsigned int ui2)); /* 6 */
+ Cursor (*xCreateGlyphCursor) _ANSI_ARGS_((Display* d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor* x1, XColor* x2)); /* 7 */
+ GContext (*xGContextFromGC) _ANSI_ARGS_((GC g)); /* 8 */
+ XHostAddress * (*xListHosts) _ANSI_ARGS_((Display* d, int* i, Bool* b)); /* 9 */
+ KeySym (*xKeycodeToKeysym) _ANSI_ARGS_((Display* d, unsigned int k, int i)); /* 10 */
+ KeySym (*xStringToKeysym) _ANSI_ARGS_((_Xconst char* c)); /* 11 */
+ Window (*xRootWindow) _ANSI_ARGS_((Display* d, int i)); /* 12 */
+ XErrorHandler (*xSetErrorHandler) _ANSI_ARGS_((XErrorHandler x)); /* 13 */
+ Status (*xIconifyWindow) _ANSI_ARGS_((Display* d, Window w, int i)); /* 14 */
+ Status (*xWithdrawWindow) _ANSI_ARGS_((Display* d, Window w, int i)); /* 15 */
+ Status (*xGetWMColormapWindows) _ANSI_ARGS_((Display* d, Window w, Window** wpp, int* ip)); /* 16 */
+ Status (*xAllocColor) _ANSI_ARGS_((Display* d, Colormap c, XColor* xp)); /* 17 */
+ void (*xBell) _ANSI_ARGS_((Display* d, int i)); /* 18 */
+ void (*xChangeProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char* c, int i3)); /* 19 */
+ void (*xChangeWindowAttributes) _ANSI_ARGS_((Display* d, Window w, unsigned long ul, XSetWindowAttributes* x)); /* 20 */
+ void (*xClearWindow) _ANSI_ARGS_((Display* d, Window w)); /* 21 */
+ void (*xConfigureWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int i, XWindowChanges* x)); /* 22 */
+ void (*xCopyArea) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 23 */
+ void (*xCopyPlane) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul)); /* 24 */
+ void (*xDefineCursor) _ANSI_ARGS_((Display* d, Window w, Cursor c)); /* 25 */
+ void (*xDeleteProperty) _ANSI_ARGS_((Display* d, Window w, Atom a)); /* 26 */
+ void (*xDestroyWindow) _ANSI_ARGS_((Display* d, Window w)); /* 27 */
+ void (*xDrawArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 28 */
+ void (*xDrawLines) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)); /* 29 */
+ void (*xDrawRectangle) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 30 */
+ void (*xFillArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 31 */
+ void (*xFillPolygon) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2, int i3)); /* 32 */
+ void (*xFillRectangles) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XRectangle* x, int i)); /* 33 */
+ void (*xForceScreenSaver) _ANSI_ARGS_((Display* d, int i)); /* 34 */
+ void (*xFreeColormap) _ANSI_ARGS_((Display* d, Colormap c)); /* 35 */
+ void (*xFreeColors) _ANSI_ARGS_((Display* d, Colormap c, unsigned long* ulp, int i, unsigned long ul)); /* 36 */
+ void (*xFreeCursor) _ANSI_ARGS_((Display* d, Cursor c)); /* 37 */
+ void (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap* x)); /* 38 */
+ Status (*xGetGeometry) _ANSI_ARGS_((Display* d, Drawable dr, Window* w, int* i1, int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, unsigned int* ui4)); /* 39 */
+ void (*xGetInputFocus) _ANSI_ARGS_((Display* d, Window* w, int* i)); /* 40 */
+ int (*xGetWindowProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, unsigned long* ulp2, unsigned char** cpp)); /* 41 */
+ Status (*xGetWindowAttributes) _ANSI_ARGS_((Display* d, Window w, XWindowAttributes* x)); /* 42 */
+ int (*xGrabKeyboard) _ANSI_ARGS_((Display* d, Window w, Bool b, int i1, int i2, Time t)); /* 43 */
+ int (*xGrabPointer) _ANSI_ARGS_((Display* d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 44 */
+ KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display* d, KeySym k)); /* 45 */
+ Status (*xLookupColor) _ANSI_ARGS_((Display* d, Colormap c1, _Xconst char* c2, XColor* x1, XColor* x2)); /* 46 */
+ void (*xMapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 47 */
+ void (*xMoveResizeWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 48 */
+ void (*xMoveWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2)); /* 49 */
+ void (*xNextEvent) _ANSI_ARGS_((Display* d, XEvent* x)); /* 50 */
+ void (*xPutBackEvent) _ANSI_ARGS_((Display* d, XEvent* x)); /* 51 */
+ void (*xQueryColors) _ANSI_ARGS_((Display* d, Colormap c, XColor* x, int i)); /* 52 */
+ Bool (*xQueryPointer) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, int* i1, int* i2, int* i3, int* i4, unsigned int* ui)); /* 53 */
+ Status (*xQueryTree) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, Window** w4, unsigned int* ui)); /* 54 */
+ void (*xRaiseWindow) _ANSI_ARGS_((Display* d, Window w)); /* 55 */
+ void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent* x)); /* 56 */
+ void (*xResizeWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int ui1, unsigned int ui2)); /* 57 */
+ void (*xSelectInput) _ANSI_ARGS_((Display* d, Window w, long l)); /* 58 */
+ Status (*xSendEvent) _ANSI_ARGS_((Display* d, Window w, Bool b, long l, XEvent* x)); /* 59 */
+ void (*xSetCommand) _ANSI_ARGS_((Display* d, Window w, char** c, int i)); /* 60 */
+ void (*xSetIconName) _ANSI_ARGS_((Display* d, Window w, _Xconst char* c)); /* 61 */
+ void (*xSetInputFocus) _ANSI_ARGS_((Display* d, Window w, int i, Time t)); /* 62 */
+ void (*xSetSelectionOwner) _ANSI_ARGS_((Display* d, Atom a, Window w, Time t)); /* 63 */
+ void (*xSetWindowBackground) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 64 */
+ void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 65 */
+ void (*xSetWindowBorder) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 66 */
+ void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 67 */
+ void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display* d, Window w, unsigned int ui)); /* 68 */
+ void (*xSetWindowColormap) _ANSI_ARGS_((Display* d, Window w, Colormap c)); /* 69 */
+ Bool (*xTranslateCoordinates) _ANSI_ARGS_((Display* d, Window w1, Window w2, int i1, int i2, int* i3, int* i4, Window* w3)); /* 70 */
+ void (*xUngrabKeyboard) _ANSI_ARGS_((Display* d, Time t)); /* 71 */
+ void (*xUngrabPointer) _ANSI_ARGS_((Display* d, Time t)); /* 72 */
+ void (*xUnmapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 73 */
+ void (*xWindowEvent) _ANSI_ARGS_((Display* d, Window w, long l, XEvent* x)); /* 74 */
+ void (*xDestroyIC) _ANSI_ARGS_((XIC x)); /* 75 */
+ Bool (*xFilterEvent) _ANSI_ARGS_((XEvent* x, Window w)); /* 76 */
+ int (*xmbLookupString) _ANSI_ARGS_((XIC xi, XKeyPressedEvent* xk, char* c, int i, KeySym* k, Status* s)); /* 77 */
+ void (*tkPutImage) _ANSI_ARGS_((unsigned long * colors, int ncolors, Display* display, Drawable d, GC gc, XImage* image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height)); /* 78 */
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+ XModifierKeymap* (*xGetModifierMapping) _ANSI_ARGS_((Display* d)); /* 0 */
+ XImage * (*xCreateImage) _ANSI_ARGS_((Display* d, Visual* v, unsigned int ui1, int i1, int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, int i4)); /* 1 */
+ XImage * (*xGetImage) _ANSI_ARGS_((Display* d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)); /* 2 */
+ char * (*xGetAtomName) _ANSI_ARGS_((Display* d, Atom a)); /* 3 */
+ char * (*xKeysymToString) _ANSI_ARGS_((KeySym k)); /* 4 */
+ Colormap (*xCreateColormap) _ANSI_ARGS_((Display* d, Window w, Visual* v, int i)); /* 5 */
+ GContext (*xGContextFromGC) _ANSI_ARGS_((GC g)); /* 6 */
+ KeySym (*xKeycodeToKeysym) _ANSI_ARGS_((Display* d, KeyCode k, int i)); /* 7 */
+ KeySym (*xStringToKeysym) _ANSI_ARGS_((_Xconst char* c)); /* 8 */
+ Window (*xRootWindow) _ANSI_ARGS_((Display* d, int i)); /* 9 */
+ XErrorHandler (*xSetErrorHandler) _ANSI_ARGS_((XErrorHandler x)); /* 10 */
+ Status (*xAllocColor) _ANSI_ARGS_((Display* d, Colormap c, XColor* xp)); /* 11 */
+ void (*xBell) _ANSI_ARGS_((Display* d, int i)); /* 12 */
+ void (*xChangeProperty) _ANSI_ARGS_((Display* d, Window w, Atom a, Atom a, int i1, int i2, _Xconst unsigned char* c, int i3)); /* 13 */
+ void (*xChangeWindowAttributes) _ANSI_ARGS_((Display* d, Window w, unsigned long ul, XSetWindowAttributes* x)); /* 14 */
+ void (*xConfigureWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int i, XWindowChanges* x)); /* 15 */
+ void (*xCopyArea) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 16 */
+ void (*xCopyPlane) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul)); /* 17 */
+ void (*xDefineCursor) _ANSI_ARGS_((Display* d, Window w, Cursor c)); /* 18 */
+ void (*xDestroyWindow) _ANSI_ARGS_((Display* d, Window w)); /* 19 */
+ void (*xDrawArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 20 */
+ void (*xDrawLines) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)); /* 21 */
+ void (*xDrawRectangle) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 22 */
+ void (*xFillArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 23 */
+ void (*xFillPolygon) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2, int i3)); /* 24 */
+ void (*xFillRectangles) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XRectangle* x, int i)); /* 25 */
+ void (*xFreeColormap) _ANSI_ARGS_((Display* d, Colormap c)); /* 26 */
+ void (*xFreeColors) _ANSI_ARGS_((Display* d, Colormap c, unsigned long* ulp, int i, unsigned long ul)); /* 27 */
+ void (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap* x)); /* 28 */
+ Status (*xGetGeometry) _ANSI_ARGS_((Display* d, Drawable dr, Window* w, int* i1, int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, unsigned int* ui4)); /* 29 */
+ int (*xGetWindowProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, unsigned long* ulp2, unsigned char** cpp)); /* 30 */
+ int (*xGrabKeyboard) _ANSI_ARGS_((Display* d, Window w, Bool b, int i1, int i2, Time t)); /* 31 */
+ int (*xGrabPointer) _ANSI_ARGS_((Display* d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 32 */
+ KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display* d, KeySym k)); /* 33 */
+ void (*xMapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 34 */
+ void (*xMoveResizeWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 35 */
+ void (*xMoveWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2)); /* 36 */
+ Bool (*xQueryPointer) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, int* i1, int* i2, int* i3, int* i4, unsigned int* ui)); /* 37 */
+ void (*xRaiseWindow) _ANSI_ARGS_((Display* d, Window w)); /* 38 */
+ void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent* x)); /* 39 */
+ void (*xResizeWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int ui1, unsigned int ui2)); /* 40 */
+ void (*xSelectInput) _ANSI_ARGS_((Display* d, Window w, long l)); /* 41 */
+ Status (*xSendEvent) _ANSI_ARGS_((Display* d, Window w, Bool b, long l, XEvent* x)); /* 42 */
+ void (*xSetIconName) _ANSI_ARGS_((Display* d, Window w, _Xconst char* c)); /* 43 */
+ void (*xSetInputFocus) _ANSI_ARGS_((Display* d, Window w, int i, Time t)); /* 44 */
+ void (*xSetSelectionOwner) _ANSI_ARGS_((Display* d, Atom a, Window w, Time t)); /* 45 */
+ void (*xSetWindowBackground) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 46 */
+ void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 47 */
+ void (*xSetWindowBorder) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 48 */
+ void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 49 */
+ void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display* d, Window w, unsigned int ui)); /* 50 */
+ void (*xSetWindowColormap) _ANSI_ARGS_((Display* d, Window w, Colormap c)); /* 51 */
+ void (*xUngrabKeyboard) _ANSI_ARGS_((Display* d, Time t)); /* 52 */
+ void (*xUngrabPointer) _ANSI_ARGS_((Display* d, Time t)); /* 53 */
+ void (*xUnmapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 54 */
+ void (*tkPutImage) _ANSI_ARGS_((unsigned long * colors, int ncolors, Display* display, Drawable d, GC gc, XImage* image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height)); /* 55 */
+#endif /* MAC_TCL */
+} TkIntXlibStubs;
+
+extern TkIntXlibStubs *tkIntXlibStubsPtr;
+
+#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifdef __WIN32__
+#ifndef XGetModifierMapping
+#define XGetModifierMapping(d) \
+ (tkIntXlibStubsPtr->xGetModifierMapping)(d) /* 0 */
+#endif
+#ifndef XCreateImage
+#define XCreateImage(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4) \
+ (tkIntXlibStubsPtr->xCreateImage)(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4) /* 1 */
+#endif
+#ifndef XGetImage
+#define XGetImage(d, dr, i1, i2, ui1, ui2, ul, i3) \
+ (tkIntXlibStubsPtr->xGetImage)(d, dr, i1, i2, ui1, ui2, ul, i3) /* 2 */
+#endif
+#ifndef XGetAtomName
+#define XGetAtomName(d, a) \
+ (tkIntXlibStubsPtr->xGetAtomName)(d, a) /* 3 */
+#endif
+#ifndef XKeysymToString
+#define XKeysymToString(k) \
+ (tkIntXlibStubsPtr->xKeysymToString)(k) /* 4 */
+#endif
+#ifndef XCreateColormap
+#define XCreateColormap(d, w, v, i) \
+ (tkIntXlibStubsPtr->xCreateColormap)(d, w, v, i) /* 5 */
+#endif
+#ifndef XCreatePixmapCursor
+#define XCreatePixmapCursor(d, p1, p2, x1, x2, ui1, ui2) \
+ (tkIntXlibStubsPtr->xCreatePixmapCursor)(d, p1, p2, x1, x2, ui1, ui2) /* 6 */
+#endif
+#ifndef XCreateGlyphCursor
+#define XCreateGlyphCursor(d, f1, f2, ui1, ui2, x1, x2) \
+ (tkIntXlibStubsPtr->xCreateGlyphCursor)(d, f1, f2, ui1, ui2, x1, x2) /* 7 */
+#endif
+#ifndef XGContextFromGC
+#define XGContextFromGC(g) \
+ (tkIntXlibStubsPtr->xGContextFromGC)(g) /* 8 */
+#endif
+#ifndef XListHosts
+#define XListHosts(d, i, b) \
+ (tkIntXlibStubsPtr->xListHosts)(d, i, b) /* 9 */
+#endif
+#ifndef XKeycodeToKeysym
+#define XKeycodeToKeysym(d, k, i) \
+ (tkIntXlibStubsPtr->xKeycodeToKeysym)(d, k, i) /* 10 */
+#endif
+#ifndef XStringToKeysym
+#define XStringToKeysym(c) \
+ (tkIntXlibStubsPtr->xStringToKeysym)(c) /* 11 */
+#endif
+#ifndef XRootWindow
+#define XRootWindow(d, i) \
+ (tkIntXlibStubsPtr->xRootWindow)(d, i) /* 12 */
+#endif
+#ifndef XSetErrorHandler
+#define XSetErrorHandler(x) \
+ (tkIntXlibStubsPtr->xSetErrorHandler)(x) /* 13 */
+#endif
+#ifndef XIconifyWindow
+#define XIconifyWindow(d, w, i) \
+ (tkIntXlibStubsPtr->xIconifyWindow)(d, w, i) /* 14 */
+#endif
+#ifndef XWithdrawWindow
+#define XWithdrawWindow(d, w, i) \
+ (tkIntXlibStubsPtr->xWithdrawWindow)(d, w, i) /* 15 */
+#endif
+#ifndef XGetWMColormapWindows
+#define XGetWMColormapWindows(d, w, wpp, ip) \
+ (tkIntXlibStubsPtr->xGetWMColormapWindows)(d, w, wpp, ip) /* 16 */
+#endif
+#ifndef XAllocColor
+#define XAllocColor(d, c, xp) \
+ (tkIntXlibStubsPtr->xAllocColor)(d, c, xp) /* 17 */
+#endif
+#ifndef XBell
+#define XBell(d, i) \
+ (tkIntXlibStubsPtr->xBell)(d, i) /* 18 */
+#endif
+#ifndef XChangeProperty
+#define XChangeProperty(d, w, a1, a2, i1, i2, c, i3) \
+ (tkIntXlibStubsPtr->xChangeProperty)(d, w, a1, a2, i1, i2, c, i3) /* 19 */
+#endif
+#ifndef XChangeWindowAttributes
+#define XChangeWindowAttributes(d, w, ul, x) \
+ (tkIntXlibStubsPtr->xChangeWindowAttributes)(d, w, ul, x) /* 20 */
+#endif
+#ifndef XClearWindow
+#define XClearWindow(d, w) \
+ (tkIntXlibStubsPtr->xClearWindow)(d, w) /* 21 */
+#endif
+#ifndef XConfigureWindow
+#define XConfigureWindow(d, w, i, x) \
+ (tkIntXlibStubsPtr->xConfigureWindow)(d, w, i, x) /* 22 */
+#endif
+#ifndef XCopyArea
+#define XCopyArea(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4) \
+ (tkIntXlibStubsPtr->xCopyArea)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4) /* 23 */
+#endif
+#ifndef XCopyPlane
+#define XCopyPlane(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul) \
+ (tkIntXlibStubsPtr->xCopyPlane)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul) /* 24 */
+#endif
+#ifndef XDefineCursor
+#define XDefineCursor(d, w, c) \
+ (tkIntXlibStubsPtr->xDefineCursor)(d, w, c) /* 25 */
+#endif
+#ifndef XDeleteProperty
+#define XDeleteProperty(d, w, a) \
+ (tkIntXlibStubsPtr->xDeleteProperty)(d, w, a) /* 26 */
+#endif
+#ifndef XDestroyWindow
+#define XDestroyWindow(d, w) \
+ (tkIntXlibStubsPtr->xDestroyWindow)(d, w) /* 27 */
+#endif
+#ifndef XDrawArc
+#define XDrawArc(d, dr, g, i1, i2, ui1, ui2, i3, i4) \
+ (tkIntXlibStubsPtr->xDrawArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4) /* 28 */
+#endif
+#ifndef XDrawLines
+#define XDrawLines(d, dr, g, x, i1, i2) \
+ (tkIntXlibStubsPtr->xDrawLines)(d, dr, g, x, i1, i2) /* 29 */
+#endif
+#ifndef XDrawRectangle
+#define XDrawRectangle(d, dr, g, i1, i2, ui1, ui2) \
+ (tkIntXlibStubsPtr->xDrawRectangle)(d, dr, g, i1, i2, ui1, ui2) /* 30 */
+#endif
+#ifndef XFillArc
+#define XFillArc(d, dr, g, i1, i2, ui1, ui2, i3, i4) \
+ (tkIntXlibStubsPtr->xFillArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4) /* 31 */
+#endif
+#ifndef XFillPolygon
+#define XFillPolygon(d, dr, g, x, i1, i2, i3) \
+ (tkIntXlibStubsPtr->xFillPolygon)(d, dr, g, x, i1, i2, i3) /* 32 */
+#endif
+#ifndef XFillRectangles
+#define XFillRectangles(d, dr, g, x, i) \
+ (tkIntXlibStubsPtr->xFillRectangles)(d, dr, g, x, i) /* 33 */
+#endif
+#ifndef XForceScreenSaver
+#define XForceScreenSaver(d, i) \
+ (tkIntXlibStubsPtr->xForceScreenSaver)(d, i) /* 34 */
+#endif
+#ifndef XFreeColormap
+#define XFreeColormap(d, c) \
+ (tkIntXlibStubsPtr->xFreeColormap)(d, c) /* 35 */
+#endif
+#ifndef XFreeColors
+#define XFreeColors(d, c, ulp, i, ul) \
+ (tkIntXlibStubsPtr->xFreeColors)(d, c, ulp, i, ul) /* 36 */
+#endif
+#ifndef XFreeCursor
+#define XFreeCursor(d, c) \
+ (tkIntXlibStubsPtr->xFreeCursor)(d, c) /* 37 */
+#endif
+#ifndef XFreeModifiermap
+#define XFreeModifiermap(x) \
+ (tkIntXlibStubsPtr->xFreeModifiermap)(x) /* 38 */
+#endif
+#ifndef XGetGeometry
+#define XGetGeometry(d, dr, w, i1, i2, ui1, ui2, ui3, ui4) \
+ (tkIntXlibStubsPtr->xGetGeometry)(d, dr, w, i1, i2, ui1, ui2, ui3, ui4) /* 39 */
+#endif
+#ifndef XGetInputFocus
+#define XGetInputFocus(d, w, i) \
+ (tkIntXlibStubsPtr->xGetInputFocus)(d, w, i) /* 40 */
+#endif
+#ifndef XGetWindowProperty
+#define XGetWindowProperty(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp) \
+ (tkIntXlibStubsPtr->xGetWindowProperty)(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp) /* 41 */
+#endif
+#ifndef XGetWindowAttributes
+#define XGetWindowAttributes(d, w, x) \
+ (tkIntXlibStubsPtr->xGetWindowAttributes)(d, w, x) /* 42 */
+#endif
+#ifndef XGrabKeyboard
+#define XGrabKeyboard(d, w, b, i1, i2, t) \
+ (tkIntXlibStubsPtr->xGrabKeyboard)(d, w, b, i1, i2, t) /* 43 */
+#endif
+#ifndef XGrabPointer
+#define XGrabPointer(d, w1, b, ui, i1, i2, w2, c, t) \
+ (tkIntXlibStubsPtr->xGrabPointer)(d, w1, b, ui, i1, i2, w2, c, t) /* 44 */
+#endif
+#ifndef XKeysymToKeycode
+#define XKeysymToKeycode(d, k) \
+ (tkIntXlibStubsPtr->xKeysymToKeycode)(d, k) /* 45 */
+#endif
+#ifndef XLookupColor
+#define XLookupColor(d, c1, c2, x1, x2) \
+ (tkIntXlibStubsPtr->xLookupColor)(d, c1, c2, x1, x2) /* 46 */
+#endif
+#ifndef XMapWindow
+#define XMapWindow(d, w) \
+ (tkIntXlibStubsPtr->xMapWindow)(d, w) /* 47 */
+#endif
+#ifndef XMoveResizeWindow
+#define XMoveResizeWindow(d, w, i1, i2, ui1, ui2) \
+ (tkIntXlibStubsPtr->xMoveResizeWindow)(d, w, i1, i2, ui1, ui2) /* 48 */
+#endif
+#ifndef XMoveWindow
+#define XMoveWindow(d, w, i1, i2) \
+ (tkIntXlibStubsPtr->xMoveWindow)(d, w, i1, i2) /* 49 */
+#endif
+#ifndef XNextEvent
+#define XNextEvent(d, x) \
+ (tkIntXlibStubsPtr->xNextEvent)(d, x) /* 50 */
+#endif
+#ifndef XPutBackEvent
+#define XPutBackEvent(d, x) \
+ (tkIntXlibStubsPtr->xPutBackEvent)(d, x) /* 51 */
+#endif
+#ifndef XQueryColors
+#define XQueryColors(d, c, x, i) \
+ (tkIntXlibStubsPtr->xQueryColors)(d, c, x, i) /* 52 */
+#endif
+#ifndef XQueryPointer
+#define XQueryPointer(d, w1, w2, w3, i1, i2, i3, i4, ui) \
+ (tkIntXlibStubsPtr->xQueryPointer)(d, w1, w2, w3, i1, i2, i3, i4, ui) /* 53 */
+#endif
+#ifndef XQueryTree
+#define XQueryTree(d, w1, w2, w3, w4, ui) \
+ (tkIntXlibStubsPtr->xQueryTree)(d, w1, w2, w3, w4, ui) /* 54 */
+#endif
+#ifndef XRaiseWindow
+#define XRaiseWindow(d, w) \
+ (tkIntXlibStubsPtr->xRaiseWindow)(d, w) /* 55 */
+#endif
+#ifndef XRefreshKeyboardMapping
+#define XRefreshKeyboardMapping(x) \
+ (tkIntXlibStubsPtr->xRefreshKeyboardMapping)(x) /* 56 */
+#endif
+#ifndef XResizeWindow
+#define XResizeWindow(d, w, ui1, ui2) \
+ (tkIntXlibStubsPtr->xResizeWindow)(d, w, ui1, ui2) /* 57 */
+#endif
+#ifndef XSelectInput
+#define XSelectInput(d, w, l) \
+ (tkIntXlibStubsPtr->xSelectInput)(d, w, l) /* 58 */
+#endif
+#ifndef XSendEvent
+#define XSendEvent(d, w, b, l, x) \
+ (tkIntXlibStubsPtr->xSendEvent)(d, w, b, l, x) /* 59 */
+#endif
+#ifndef XSetCommand
+#define XSetCommand(d, w, c, i) \
+ (tkIntXlibStubsPtr->xSetCommand)(d, w, c, i) /* 60 */
+#endif
+#ifndef XSetIconName
+#define XSetIconName(d, w, c) \
+ (tkIntXlibStubsPtr->xSetIconName)(d, w, c) /* 61 */
+#endif
+#ifndef XSetInputFocus
+#define XSetInputFocus(d, w, i, t) \
+ (tkIntXlibStubsPtr->xSetInputFocus)(d, w, i, t) /* 62 */
+#endif
+#ifndef XSetSelectionOwner
+#define XSetSelectionOwner(d, a, w, t) \
+ (tkIntXlibStubsPtr->xSetSelectionOwner)(d, a, w, t) /* 63 */
+#endif
+#ifndef XSetWindowBackground
+#define XSetWindowBackground(d, w, ul) \
+ (tkIntXlibStubsPtr->xSetWindowBackground)(d, w, ul) /* 64 */
+#endif
+#ifndef XSetWindowBackgroundPixmap
+#define XSetWindowBackgroundPixmap(d, w, p) \
+ (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap)(d, w, p) /* 65 */
+#endif
+#ifndef XSetWindowBorder
+#define XSetWindowBorder(d, w, ul) \
+ (tkIntXlibStubsPtr->xSetWindowBorder)(d, w, ul) /* 66 */
+#endif
+#ifndef XSetWindowBorderPixmap
+#define XSetWindowBorderPixmap(d, w, p) \
+ (tkIntXlibStubsPtr->xSetWindowBorderPixmap)(d, w, p) /* 67 */
+#endif
+#ifndef XSetWindowBorderWidth
+#define XSetWindowBorderWidth(d, w, ui) \
+ (tkIntXlibStubsPtr->xSetWindowBorderWidth)(d, w, ui) /* 68 */
+#endif
+#ifndef XSetWindowColormap
+#define XSetWindowColormap(d, w, c) \
+ (tkIntXlibStubsPtr->xSetWindowColormap)(d, w, c) /* 69 */
+#endif
+#ifndef XTranslateCoordinates
+#define XTranslateCoordinates(d, w1, w2, i1, i2, i3, i4, w3) \
+ (tkIntXlibStubsPtr->xTranslateCoordinates)(d, w1, w2, i1, i2, i3, i4, w3) /* 70 */
+#endif
+#ifndef XUngrabKeyboard
+#define XUngrabKeyboard(d, t) \
+ (tkIntXlibStubsPtr->xUngrabKeyboard)(d, t) /* 71 */
+#endif
+#ifndef XUngrabPointer
+#define XUngrabPointer(d, t) \
+ (tkIntXlibStubsPtr->xUngrabPointer)(d, t) /* 72 */
+#endif
+#ifndef XUnmapWindow
+#define XUnmapWindow(d, w) \
+ (tkIntXlibStubsPtr->xUnmapWindow)(d, w) /* 73 */
+#endif
+#ifndef XWindowEvent
+#define XWindowEvent(d, w, l, x) \
+ (tkIntXlibStubsPtr->xWindowEvent)(d, w, l, x) /* 74 */
+#endif
+#ifndef XDestroyIC
+#define XDestroyIC(x) \
+ (tkIntXlibStubsPtr->xDestroyIC)(x) /* 75 */
+#endif
+#ifndef XFilterEvent
+#define XFilterEvent(x, w) \
+ (tkIntXlibStubsPtr->xFilterEvent)(x, w) /* 76 */
+#endif
+#ifndef XmbLookupString
+#define XmbLookupString(xi, xk, c, i, k, s) \
+ (tkIntXlibStubsPtr->xmbLookupString)(xi, xk, c, i, k, s) /* 77 */
+#endif
+#ifndef TkPutImage
+#define TkPutImage(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height) \
+ (tkIntXlibStubsPtr->tkPutImage)(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height) /* 78 */
+#endif
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+#ifndef XGetModifierMapping
+#define XGetModifierMapping(d) \
+ (tkIntXlibStubsPtr->xGetModifierMapping)(d) /* 0 */
+#endif
+#ifndef XCreateImage
+#define XCreateImage(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4) \
+ (tkIntXlibStubsPtr->xCreateImage)(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4) /* 1 */
+#endif
+#ifndef XGetImage
+#define XGetImage(d, dr, i1, i2, ui1, ui2, ul, i3) \
+ (tkIntXlibStubsPtr->xGetImage)(d, dr, i1, i2, ui1, ui2, ul, i3) /* 2 */
+#endif
+#ifndef XGetAtomName
+#define XGetAtomName(d, a) \
+ (tkIntXlibStubsPtr->xGetAtomName)(d, a) /* 3 */
+#endif
+#ifndef XKeysymToString
+#define XKeysymToString(k) \
+ (tkIntXlibStubsPtr->xKeysymToString)(k) /* 4 */
+#endif
+#ifndef XCreateColormap
+#define XCreateColormap(d, w, v, i) \
+ (tkIntXlibStubsPtr->xCreateColormap)(d, w, v, i) /* 5 */
+#endif
+#ifndef XGContextFromGC
+#define XGContextFromGC(g) \
+ (tkIntXlibStubsPtr->xGContextFromGC)(g) /* 6 */
+#endif
+#ifndef XKeycodeToKeysym
+#define XKeycodeToKeysym(d, k, i) \
+ (tkIntXlibStubsPtr->xKeycodeToKeysym)(d, k, i) /* 7 */
+#endif
+#ifndef XStringToKeysym
+#define XStringToKeysym(c) \
+ (tkIntXlibStubsPtr->xStringToKeysym)(c) /* 8 */
+#endif
+#ifndef XRootWindow
+#define XRootWindow(d, i) \
+ (tkIntXlibStubsPtr->xRootWindow)(d, i) /* 9 */
+#endif
+#ifndef XSetErrorHandler
+#define XSetErrorHandler(x) \
+ (tkIntXlibStubsPtr->xSetErrorHandler)(x) /* 10 */
+#endif
+#ifndef XAllocColor
+#define XAllocColor(d, c, xp) \
+ (tkIntXlibStubsPtr->xAllocColor)(d, c, xp) /* 11 */
+#endif
+#ifndef XBell
+#define XBell(d, i) \
+ (tkIntXlibStubsPtr->xBell)(d, i) /* 12 */
+#endif
+#ifndef XChangeProperty
+#define XChangeProperty(d, w, a, a, i1, i2, c, i3) \
+ (tkIntXlibStubsPtr->xChangeProperty)(d, w, a, a, i1, i2, c, i3) /* 13 */
+#endif
+#ifndef XChangeWindowAttributes
+#define XChangeWindowAttributes(d, w, ul, x) \
+ (tkIntXlibStubsPtr->xChangeWindowAttributes)(d, w, ul, x) /* 14 */
+#endif
+#ifndef XConfigureWindow
+#define XConfigureWindow(d, w, i, x) \
+ (tkIntXlibStubsPtr->xConfigureWindow)(d, w, i, x) /* 15 */
+#endif
+#ifndef XCopyArea
+#define XCopyArea(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4) \
+ (tkIntXlibStubsPtr->xCopyArea)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4) /* 16 */
+#endif
+#ifndef XCopyPlane
+#define XCopyPlane(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul) \
+ (tkIntXlibStubsPtr->xCopyPlane)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul) /* 17 */
+#endif
+#ifndef XDefineCursor
+#define XDefineCursor(d, w, c) \
+ (tkIntXlibStubsPtr->xDefineCursor)(d, w, c) /* 18 */
+#endif
+#ifndef XDestroyWindow
+#define XDestroyWindow(d, w) \
+ (tkIntXlibStubsPtr->xDestroyWindow)(d, w) /* 19 */
+#endif
+#ifndef XDrawArc
+#define XDrawArc(d, dr, g, i1, i2, ui1, ui2, i3, i4) \
+ (tkIntXlibStubsPtr->xDrawArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4) /* 20 */
+#endif
+#ifndef XDrawLines
+#define XDrawLines(d, dr, g, x, i1, i2) \
+ (tkIntXlibStubsPtr->xDrawLines)(d, dr, g, x, i1, i2) /* 21 */
+#endif
+#ifndef XDrawRectangle
+#define XDrawRectangle(d, dr, g, i1, i2, ui1, ui2) \
+ (tkIntXlibStubsPtr->xDrawRectangle)(d, dr, g, i1, i2, ui1, ui2) /* 22 */
+#endif
+#ifndef XFillArc
+#define XFillArc(d, dr, g, i1, i2, ui1, ui2, i3, i4) \
+ (tkIntXlibStubsPtr->xFillArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4) /* 23 */
+#endif
+#ifndef XFillPolygon
+#define XFillPolygon(d, dr, g, x, i1, i2, i3) \
+ (tkIntXlibStubsPtr->xFillPolygon)(d, dr, g, x, i1, i2, i3) /* 24 */
+#endif
+#ifndef XFillRectangles
+#define XFillRectangles(d, dr, g, x, i) \
+ (tkIntXlibStubsPtr->xFillRectangles)(d, dr, g, x, i) /* 25 */
+#endif
+#ifndef XFreeColormap
+#define XFreeColormap(d, c) \
+ (tkIntXlibStubsPtr->xFreeColormap)(d, c) /* 26 */
+#endif
+#ifndef XFreeColors
+#define XFreeColors(d, c, ulp, i, ul) \
+ (tkIntXlibStubsPtr->xFreeColors)(d, c, ulp, i, ul) /* 27 */
+#endif
+#ifndef XFreeModifiermap
+#define XFreeModifiermap(x) \
+ (tkIntXlibStubsPtr->xFreeModifiermap)(x) /* 28 */
+#endif
+#ifndef XGetGeometry
+#define XGetGeometry(d, dr, w, i1, i2, ui1, ui2, ui3, ui4) \
+ (tkIntXlibStubsPtr->xGetGeometry)(d, dr, w, i1, i2, ui1, ui2, ui3, ui4) /* 29 */
+#endif
+#ifndef XGetWindowProperty
+#define XGetWindowProperty(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp) \
+ (tkIntXlibStubsPtr->xGetWindowProperty)(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp) /* 30 */
+#endif
+#ifndef XGrabKeyboard
+#define XGrabKeyboard(d, w, b, i1, i2, t) \
+ (tkIntXlibStubsPtr->xGrabKeyboard)(d, w, b, i1, i2, t) /* 31 */
+#endif
+#ifndef XGrabPointer
+#define XGrabPointer(d, w1, b, ui, i1, i2, w2, c, t) \
+ (tkIntXlibStubsPtr->xGrabPointer)(d, w1, b, ui, i1, i2, w2, c, t) /* 32 */
+#endif
+#ifndef XKeysymToKeycode
+#define XKeysymToKeycode(d, k) \
+ (tkIntXlibStubsPtr->xKeysymToKeycode)(d, k) /* 33 */
+#endif
+#ifndef XMapWindow
+#define XMapWindow(d, w) \
+ (tkIntXlibStubsPtr->xMapWindow)(d, w) /* 34 */
+#endif
+#ifndef XMoveResizeWindow
+#define XMoveResizeWindow(d, w, i1, i2, ui1, ui2) \
+ (tkIntXlibStubsPtr->xMoveResizeWindow)(d, w, i1, i2, ui1, ui2) /* 35 */
+#endif
+#ifndef XMoveWindow
+#define XMoveWindow(d, w, i1, i2) \
+ (tkIntXlibStubsPtr->xMoveWindow)(d, w, i1, i2) /* 36 */
+#endif
+#ifndef XQueryPointer
+#define XQueryPointer(d, w1, w2, w3, i1, i2, i3, i4, ui) \
+ (tkIntXlibStubsPtr->xQueryPointer)(d, w1, w2, w3, i1, i2, i3, i4, ui) /* 37 */
+#endif
+#ifndef XRaiseWindow
+#define XRaiseWindow(d, w) \
+ (tkIntXlibStubsPtr->xRaiseWindow)(d, w) /* 38 */
+#endif
+#ifndef XRefreshKeyboardMapping
+#define XRefreshKeyboardMapping(x) \
+ (tkIntXlibStubsPtr->xRefreshKeyboardMapping)(x) /* 39 */
+#endif
+#ifndef XResizeWindow
+#define XResizeWindow(d, w, ui1, ui2) \
+ (tkIntXlibStubsPtr->xResizeWindow)(d, w, ui1, ui2) /* 40 */
+#endif
+#ifndef XSelectInput
+#define XSelectInput(d, w, l) \
+ (tkIntXlibStubsPtr->xSelectInput)(d, w, l) /* 41 */
+#endif
+#ifndef XSendEvent
+#define XSendEvent(d, w, b, l, x) \
+ (tkIntXlibStubsPtr->xSendEvent)(d, w, b, l, x) /* 42 */
+#endif
+#ifndef XSetIconName
+#define XSetIconName(d, w, c) \
+ (tkIntXlibStubsPtr->xSetIconName)(d, w, c) /* 43 */
+#endif
+#ifndef XSetInputFocus
+#define XSetInputFocus(d, w, i, t) \
+ (tkIntXlibStubsPtr->xSetInputFocus)(d, w, i, t) /* 44 */
+#endif
+#ifndef XSetSelectionOwner
+#define XSetSelectionOwner(d, a, w, t) \
+ (tkIntXlibStubsPtr->xSetSelectionOwner)(d, a, w, t) /* 45 */
+#endif
+#ifndef XSetWindowBackground
+#define XSetWindowBackground(d, w, ul) \
+ (tkIntXlibStubsPtr->xSetWindowBackground)(d, w, ul) /* 46 */
+#endif
+#ifndef XSetWindowBackgroundPixmap
+#define XSetWindowBackgroundPixmap(d, w, p) \
+ (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap)(d, w, p) /* 47 */
+#endif
+#ifndef XSetWindowBorder
+#define XSetWindowBorder(d, w, ul) \
+ (tkIntXlibStubsPtr->xSetWindowBorder)(d, w, ul) /* 48 */
+#endif
+#ifndef XSetWindowBorderPixmap
+#define XSetWindowBorderPixmap(d, w, p) \
+ (tkIntXlibStubsPtr->xSetWindowBorderPixmap)(d, w, p) /* 49 */
+#endif
+#ifndef XSetWindowBorderWidth
+#define XSetWindowBorderWidth(d, w, ui) \
+ (tkIntXlibStubsPtr->xSetWindowBorderWidth)(d, w, ui) /* 50 */
+#endif
+#ifndef XSetWindowColormap
+#define XSetWindowColormap(d, w, c) \
+ (tkIntXlibStubsPtr->xSetWindowColormap)(d, w, c) /* 51 */
+#endif
+#ifndef XUngrabKeyboard
+#define XUngrabKeyboard(d, t) \
+ (tkIntXlibStubsPtr->xUngrabKeyboard)(d, t) /* 52 */
+#endif
+#ifndef XUngrabPointer
+#define XUngrabPointer(d, t) \
+ (tkIntXlibStubsPtr->xUngrabPointer)(d, t) /* 53 */
+#endif
+#ifndef XUnmapWindow
+#define XUnmapWindow(d, w) \
+ (tkIntXlibStubsPtr->xUnmapWindow)(d, w) /* 54 */
+#endif
+#ifndef TkPutImage
+#define TkPutImage(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height) \
+ (tkIntXlibStubsPtr->tkPutImage)(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height) /* 55 */
+#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 /* _TKINTXLIBDECLS */
diff --git a/generic/tkIntXlibStubs.c b/generic/tkIntXlibStubs.c
new file mode 100644
index 0000000..cbcec19
--- /dev/null
+++ b/generic/tkIntXlibStubs.c
@@ -0,0 +1,1570 @@
+/*
+ * tkIntPlatStubs.c --
+ *
+ * This file contains the wrapper functions for the platform dependent
+ * unsupported Tk API.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tkIntXlibStubs.c,v 1.2 1999/03/10 07:04:42 stanton Exp $
+ */
+
+#include "tkInt.h"
+#include <X11/Xlib.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/tkInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported stub functions:
+ */
+
+#ifdef __WIN32__
+/* Slot 0 */
+XModifierKeymap*
+XGetModifierMapping(d)
+ Display* d;
+{
+ return (tkIntXlibStubsPtr->xGetModifierMapping)(d);
+}
+
+/* Slot 1 */
+XImage *
+XCreateImage(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4)
+ Display* d;
+ Visual* v;
+ unsigned int ui1;
+ int i1;
+ int i2;
+ char* cp;
+ unsigned int ui2;
+ unsigned int ui3;
+ int i3;
+ int i4;
+{
+ return (tkIntXlibStubsPtr->xCreateImage)(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4);
+}
+
+/* Slot 2 */
+XImage *
+XGetImage(d, dr, i1, i2, ui1, ui2, ul, i3)
+ Display* d;
+ Drawable dr;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ unsigned long ul;
+ int i3;
+{
+ return (tkIntXlibStubsPtr->xGetImage)(d, dr, i1, i2, ui1, ui2, ul, i3);
+}
+
+/* Slot 3 */
+char *
+XGetAtomName(d, a)
+ Display* d;
+ Atom a;
+{
+ return (tkIntXlibStubsPtr->xGetAtomName)(d, a);
+}
+
+/* Slot 4 */
+char *
+XKeysymToString(k)
+ KeySym k;
+{
+ return (tkIntXlibStubsPtr->xKeysymToString)(k);
+}
+
+/* Slot 5 */
+Colormap
+XCreateColormap(d, w, v, i)
+ Display* d;
+ Window w;
+ Visual* v;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xCreateColormap)(d, w, v, i);
+}
+
+/* Slot 6 */
+Cursor
+XCreatePixmapCursor(d, p1, p2, x1, x2, ui1, ui2)
+ Display* d;
+ Pixmap p1;
+ Pixmap p2;
+ XColor* x1;
+ XColor* x2;
+ unsigned int ui1;
+ unsigned int ui2;
+{
+ return (tkIntXlibStubsPtr->xCreatePixmapCursor)(d, p1, p2, x1, x2, ui1, ui2);
+}
+
+/* Slot 7 */
+Cursor
+XCreateGlyphCursor(d, f1, f2, ui1, ui2, x1, x2)
+ Display* d;
+ Font f1;
+ Font f2;
+ unsigned int ui1;
+ unsigned int ui2;
+ XColor* x1;
+ XColor* x2;
+{
+ return (tkIntXlibStubsPtr->xCreateGlyphCursor)(d, f1, f2, ui1, ui2, x1, x2);
+}
+
+/* Slot 8 */
+GContext
+XGContextFromGC(g)
+ GC g;
+{
+ return (tkIntXlibStubsPtr->xGContextFromGC)(g);
+}
+
+/* Slot 9 */
+XHostAddress *
+XListHosts(d, i, b)
+ Display* d;
+ int* i;
+ Bool* b;
+{
+ return (tkIntXlibStubsPtr->xListHosts)(d, i, b);
+}
+
+/* Slot 10 */
+KeySym
+XKeycodeToKeysym(d, k, i)
+ Display* d;
+ unsigned int k;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xKeycodeToKeysym)(d, k, i);
+}
+
+/* Slot 11 */
+KeySym
+XStringToKeysym(c)
+ _Xconst char* c;
+{
+ return (tkIntXlibStubsPtr->xStringToKeysym)(c);
+}
+
+/* Slot 12 */
+Window
+XRootWindow(d, i)
+ Display* d;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xRootWindow)(d, i);
+}
+
+/* Slot 13 */
+XErrorHandler
+XSetErrorHandler(x)
+ XErrorHandler x;
+{
+ return (tkIntXlibStubsPtr->xSetErrorHandler)(x);
+}
+
+/* Slot 14 */
+Status
+XIconifyWindow(d, w, i)
+ Display* d;
+ Window w;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xIconifyWindow)(d, w, i);
+}
+
+/* Slot 15 */
+Status
+XWithdrawWindow(d, w, i)
+ Display* d;
+ Window w;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xWithdrawWindow)(d, w, i);
+}
+
+/* Slot 16 */
+Status
+XGetWMColormapWindows(d, w, wpp, ip)
+ Display* d;
+ Window w;
+ Window** wpp;
+ int* ip;
+{
+ return (tkIntXlibStubsPtr->xGetWMColormapWindows)(d, w, wpp, ip);
+}
+
+/* Slot 17 */
+Status
+XAllocColor(d, c, xp)
+ Display* d;
+ Colormap c;
+ XColor* xp;
+{
+ return (tkIntXlibStubsPtr->xAllocColor)(d, c, xp);
+}
+
+/* Slot 18 */
+void
+XBell(d, i)
+ Display* d;
+ int i;
+{
+ (tkIntXlibStubsPtr->xBell)(d, i);
+}
+
+/* Slot 19 */
+void
+XChangeProperty(d, w, a1, a2, i1, i2, c, i3)
+ Display* d;
+ Window w;
+ Atom a1;
+ Atom a2;
+ int i1;
+ int i2;
+ _Xconst unsigned char* c;
+ int i3;
+{
+ (tkIntXlibStubsPtr->xChangeProperty)(d, w, a1, a2, i1, i2, c, i3);
+}
+
+/* Slot 20 */
+void
+XChangeWindowAttributes(d, w, ul, x)
+ Display* d;
+ Window w;
+ unsigned long ul;
+ XSetWindowAttributes* x;
+{
+ (tkIntXlibStubsPtr->xChangeWindowAttributes)(d, w, ul, x);
+}
+
+/* Slot 21 */
+void
+XClearWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xClearWindow)(d, w);
+}
+
+/* Slot 22 */
+void
+XConfigureWindow(d, w, i, x)
+ Display* d;
+ Window w;
+ unsigned int i;
+ XWindowChanges* x;
+{
+ (tkIntXlibStubsPtr->xConfigureWindow)(d, w, i, x);
+}
+
+/* Slot 23 */
+void
+XCopyArea(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4)
+ Display* d;
+ Drawable dr1;
+ Drawable dr2;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+{
+ (tkIntXlibStubsPtr->xCopyArea)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4);
+}
+
+/* Slot 24 */
+void
+XCopyPlane(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul)
+ Display* d;
+ Drawable dr1;
+ Drawable dr2;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xCopyPlane)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul);
+}
+
+/* Slot 25 */
+void
+XDefineCursor(d, w, c)
+ Display* d;
+ Window w;
+ Cursor c;
+{
+ (tkIntXlibStubsPtr->xDefineCursor)(d, w, c);
+}
+
+/* Slot 26 */
+void
+XDeleteProperty(d, w, a)
+ Display* d;
+ Window w;
+ Atom a;
+{
+ (tkIntXlibStubsPtr->xDeleteProperty)(d, w, a);
+}
+
+/* Slot 27 */
+void
+XDestroyWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xDestroyWindow)(d, w);
+}
+
+/* Slot 28 */
+void
+XDrawArc(d, dr, g, i1, i2, ui1, ui2, i3, i4)
+ Display* d;
+ Drawable dr;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+{
+ (tkIntXlibStubsPtr->xDrawArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4);
+}
+
+/* Slot 29 */
+void
+XDrawLines(d, dr, g, x, i1, i2)
+ Display* d;
+ Drawable dr;
+ GC g;
+ XPoint* x;
+ int i1;
+ int i2;
+{
+ (tkIntXlibStubsPtr->xDrawLines)(d, dr, g, x, i1, i2);
+}
+
+/* Slot 30 */
+void
+XDrawRectangle(d, dr, g, i1, i2, ui1, ui2)
+ Display* d;
+ Drawable dr;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+{
+ (tkIntXlibStubsPtr->xDrawRectangle)(d, dr, g, i1, i2, ui1, ui2);
+}
+
+/* Slot 31 */
+void
+XFillArc(d, dr, g, i1, i2, ui1, ui2, i3, i4)
+ Display* d;
+ Drawable dr;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+{
+ (tkIntXlibStubsPtr->xFillArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4);
+}
+
+/* Slot 32 */
+void
+XFillPolygon(d, dr, g, x, i1, i2, i3)
+ Display* d;
+ Drawable dr;
+ GC g;
+ XPoint* x;
+ int i1;
+ int i2;
+ int i3;
+{
+ (tkIntXlibStubsPtr->xFillPolygon)(d, dr, g, x, i1, i2, i3);
+}
+
+/* Slot 33 */
+void
+XFillRectangles(d, dr, g, x, i)
+ Display* d;
+ Drawable dr;
+ GC g;
+ XRectangle* x;
+ int i;
+{
+ (tkIntXlibStubsPtr->xFillRectangles)(d, dr, g, x, i);
+}
+
+/* Slot 34 */
+void
+XForceScreenSaver(d, i)
+ Display* d;
+ int i;
+{
+ (tkIntXlibStubsPtr->xForceScreenSaver)(d, i);
+}
+
+/* Slot 35 */
+void
+XFreeColormap(d, c)
+ Display* d;
+ Colormap c;
+{
+ (tkIntXlibStubsPtr->xFreeColormap)(d, c);
+}
+
+/* Slot 36 */
+void
+XFreeColors(d, c, ulp, i, ul)
+ Display* d;
+ Colormap c;
+ unsigned long* ulp;
+ int i;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xFreeColors)(d, c, ulp, i, ul);
+}
+
+/* Slot 37 */
+void
+XFreeCursor(d, c)
+ Display* d;
+ Cursor c;
+{
+ (tkIntXlibStubsPtr->xFreeCursor)(d, c);
+}
+
+/* Slot 38 */
+void
+XFreeModifiermap(x)
+ XModifierKeymap* x;
+{
+ (tkIntXlibStubsPtr->xFreeModifiermap)(x);
+}
+
+/* Slot 39 */
+Status
+XGetGeometry(d, dr, w, i1, i2, ui1, ui2, ui3, ui4)
+ Display* d;
+ Drawable dr;
+ Window* w;
+ int* i1;
+ int* i2;
+ unsigned int* ui1;
+ unsigned int* ui2;
+ unsigned int* ui3;
+ unsigned int* ui4;
+{
+ return (tkIntXlibStubsPtr->xGetGeometry)(d, dr, w, i1, i2, ui1, ui2, ui3, ui4);
+}
+
+/* Slot 40 */
+void
+XGetInputFocus(d, w, i)
+ Display* d;
+ Window* w;
+ int* i;
+{
+ (tkIntXlibStubsPtr->xGetInputFocus)(d, w, i);
+}
+
+/* Slot 41 */
+int
+XGetWindowProperty(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp)
+ Display* d;
+ Window w;
+ Atom a1;
+ long l1;
+ long l2;
+ Bool b;
+ Atom a2;
+ Atom* ap;
+ int* ip;
+ unsigned long* ulp1;
+ unsigned long* ulp2;
+ unsigned char** cpp;
+{
+ return (tkIntXlibStubsPtr->xGetWindowProperty)(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp);
+}
+
+/* Slot 42 */
+Status
+XGetWindowAttributes(d, w, x)
+ Display* d;
+ Window w;
+ XWindowAttributes* x;
+{
+ return (tkIntXlibStubsPtr->xGetWindowAttributes)(d, w, x);
+}
+
+/* Slot 43 */
+int
+XGrabKeyboard(d, w, b, i1, i2, t)
+ Display* d;
+ Window w;
+ Bool b;
+ int i1;
+ int i2;
+ Time t;
+{
+ return (tkIntXlibStubsPtr->xGrabKeyboard)(d, w, b, i1, i2, t);
+}
+
+/* Slot 44 */
+int
+XGrabPointer(d, w1, b, ui, i1, i2, w2, c, t)
+ Display* d;
+ Window w1;
+ Bool b;
+ unsigned int ui;
+ int i1;
+ int i2;
+ Window w2;
+ Cursor c;
+ Time t;
+{
+ return (tkIntXlibStubsPtr->xGrabPointer)(d, w1, b, ui, i1, i2, w2, c, t);
+}
+
+/* Slot 45 */
+KeyCode
+XKeysymToKeycode(d, k)
+ Display* d;
+ KeySym k;
+{
+ return (tkIntXlibStubsPtr->xKeysymToKeycode)(d, k);
+}
+
+/* Slot 46 */
+Status
+XLookupColor(d, c1, c2, x1, x2)
+ Display* d;
+ Colormap c1;
+ _Xconst char* c2;
+ XColor* x1;
+ XColor* x2;
+{
+ return (tkIntXlibStubsPtr->xLookupColor)(d, c1, c2, x1, x2);
+}
+
+/* Slot 47 */
+void
+XMapWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xMapWindow)(d, w);
+}
+
+/* Slot 48 */
+void
+XMoveResizeWindow(d, w, i1, i2, ui1, ui2)
+ Display* d;
+ Window w;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+{
+ (tkIntXlibStubsPtr->xMoveResizeWindow)(d, w, i1, i2, ui1, ui2);
+}
+
+/* Slot 49 */
+void
+XMoveWindow(d, w, i1, i2)
+ Display* d;
+ Window w;
+ int i1;
+ int i2;
+{
+ (tkIntXlibStubsPtr->xMoveWindow)(d, w, i1, i2);
+}
+
+/* Slot 50 */
+void
+XNextEvent(d, x)
+ Display* d;
+ XEvent* x;
+{
+ (tkIntXlibStubsPtr->xNextEvent)(d, x);
+}
+
+/* Slot 51 */
+void
+XPutBackEvent(d, x)
+ Display* d;
+ XEvent* x;
+{
+ (tkIntXlibStubsPtr->xPutBackEvent)(d, x);
+}
+
+/* Slot 52 */
+void
+XQueryColors(d, c, x, i)
+ Display* d;
+ Colormap c;
+ XColor* x;
+ int i;
+{
+ (tkIntXlibStubsPtr->xQueryColors)(d, c, x, i);
+}
+
+/* Slot 53 */
+Bool
+XQueryPointer(d, w1, w2, w3, i1, i2, i3, i4, ui)
+ Display* d;
+ Window w1;
+ Window* w2;
+ Window* w3;
+ int* i1;
+ int* i2;
+ int* i3;
+ int* i4;
+ unsigned int* ui;
+{
+ return (tkIntXlibStubsPtr->xQueryPointer)(d, w1, w2, w3, i1, i2, i3, i4, ui);
+}
+
+/* Slot 54 */
+Status
+XQueryTree(d, w1, w2, w3, w4, ui)
+ Display* d;
+ Window w1;
+ Window* w2;
+ Window* w3;
+ Window** w4;
+ unsigned int* ui;
+{
+ return (tkIntXlibStubsPtr->xQueryTree)(d, w1, w2, w3, w4, ui);
+}
+
+/* Slot 55 */
+void
+XRaiseWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xRaiseWindow)(d, w);
+}
+
+/* Slot 56 */
+void
+XRefreshKeyboardMapping(x)
+ XMappingEvent* x;
+{
+ (tkIntXlibStubsPtr->xRefreshKeyboardMapping)(x);
+}
+
+/* Slot 57 */
+void
+XResizeWindow(d, w, ui1, ui2)
+ Display* d;
+ Window w;
+ unsigned int ui1;
+ unsigned int ui2;
+{
+ (tkIntXlibStubsPtr->xResizeWindow)(d, w, ui1, ui2);
+}
+
+/* Slot 58 */
+void
+XSelectInput(d, w, l)
+ Display* d;
+ Window w;
+ long l;
+{
+ (tkIntXlibStubsPtr->xSelectInput)(d, w, l);
+}
+
+/* Slot 59 */
+Status
+XSendEvent(d, w, b, l, x)
+ Display* d;
+ Window w;
+ Bool b;
+ long l;
+ XEvent* x;
+{
+ return (tkIntXlibStubsPtr->xSendEvent)(d, w, b, l, x);
+}
+
+/* Slot 60 */
+void
+XSetCommand(d, w, c, i)
+ Display* d;
+ Window w;
+ char** c;
+ int i;
+{
+ (tkIntXlibStubsPtr->xSetCommand)(d, w, c, i);
+}
+
+/* Slot 61 */
+void
+XSetIconName(d, w, c)
+ Display* d;
+ Window w;
+ _Xconst char* c;
+{
+ (tkIntXlibStubsPtr->xSetIconName)(d, w, c);
+}
+
+/* Slot 62 */
+void
+XSetInputFocus(d, w, i, t)
+ Display* d;
+ Window w;
+ int i;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xSetInputFocus)(d, w, i, t);
+}
+
+/* Slot 63 */
+void
+XSetSelectionOwner(d, a, w, t)
+ Display* d;
+ Atom a;
+ Window w;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xSetSelectionOwner)(d, a, w, t);
+}
+
+/* Slot 64 */
+void
+XSetWindowBackground(d, w, ul)
+ Display* d;
+ Window w;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xSetWindowBackground)(d, w, ul);
+}
+
+/* Slot 65 */
+void
+XSetWindowBackgroundPixmap(d, w, p)
+ Display* d;
+ Window w;
+ Pixmap p;
+{
+ (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap)(d, w, p);
+}
+
+/* Slot 66 */
+void
+XSetWindowBorder(d, w, ul)
+ Display* d;
+ Window w;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xSetWindowBorder)(d, w, ul);
+}
+
+/* Slot 67 */
+void
+XSetWindowBorderPixmap(d, w, p)
+ Display* d;
+ Window w;
+ Pixmap p;
+{
+ (tkIntXlibStubsPtr->xSetWindowBorderPixmap)(d, w, p);
+}
+
+/* Slot 68 */
+void
+XSetWindowBorderWidth(d, w, ui)
+ Display* d;
+ Window w;
+ unsigned int ui;
+{
+ (tkIntXlibStubsPtr->xSetWindowBorderWidth)(d, w, ui);
+}
+
+/* Slot 69 */
+void
+XSetWindowColormap(d, w, c)
+ Display* d;
+ Window w;
+ Colormap c;
+{
+ (tkIntXlibStubsPtr->xSetWindowColormap)(d, w, c);
+}
+
+/* Slot 70 */
+Bool
+XTranslateCoordinates(d, w1, w2, i1, i2, i3, i4, w3)
+ Display* d;
+ Window w1;
+ Window w2;
+ int i1;
+ int i2;
+ int* i3;
+ int* i4;
+ Window* w3;
+{
+ return (tkIntXlibStubsPtr->xTranslateCoordinates)(d, w1, w2, i1, i2, i3, i4, w3);
+}
+
+/* Slot 71 */
+void
+XUngrabKeyboard(d, t)
+ Display* d;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xUngrabKeyboard)(d, t);
+}
+
+/* Slot 72 */
+void
+XUngrabPointer(d, t)
+ Display* d;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xUngrabPointer)(d, t);
+}
+
+/* Slot 73 */
+void
+XUnmapWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xUnmapWindow)(d, w);
+}
+
+/* Slot 74 */
+void
+XWindowEvent(d, w, l, x)
+ Display* d;
+ Window w;
+ long l;
+ XEvent* x;
+{
+ (tkIntXlibStubsPtr->xWindowEvent)(d, w, l, x);
+}
+
+/* Slot 75 */
+void
+XDestroyIC(x)
+ XIC x;
+{
+ (tkIntXlibStubsPtr->xDestroyIC)(x);
+}
+
+/* Slot 76 */
+Bool
+XFilterEvent(x, w)
+ XEvent* x;
+ Window w;
+{
+ return (tkIntXlibStubsPtr->xFilterEvent)(x, w);
+}
+
+/* Slot 77 */
+int
+XmbLookupString(xi, xk, c, i, k, s)
+ XIC xi;
+ XKeyPressedEvent* xk;
+ char* c;
+ int i;
+ KeySym* k;
+ Status* s;
+{
+ return (tkIntXlibStubsPtr->xmbLookupString)(xi, xk, c, i, k, s);
+}
+
+/* Slot 78 */
+void
+TkPutImage(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height)
+ unsigned long * colors;
+ int ncolors;
+ Display* display;
+ Drawable d;
+ GC gc;
+ XImage* image;
+ int src_x;
+ int src_y;
+ int dest_x;
+ int dest_y;
+ unsigned int width;
+ unsigned int height;
+{
+ (tkIntXlibStubsPtr->tkPutImage)(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height);
+}
+
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+/* Slot 0 */
+XModifierKeymap*
+XGetModifierMapping(d)
+ Display* d;
+{
+ return (tkIntXlibStubsPtr->xGetModifierMapping)(d);
+}
+
+/* Slot 1 */
+XImage *
+XCreateImage(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4)
+ Display* d;
+ Visual* v;
+ unsigned int ui1;
+ int i1;
+ int i2;
+ char* cp;
+ unsigned int ui2;
+ unsigned int ui3;
+ int i3;
+ int i4;
+{
+ return (tkIntXlibStubsPtr->xCreateImage)(d, v, ui1, i1, i2, cp, ui2, ui3, i3, i4);
+}
+
+/* Slot 2 */
+XImage *
+XGetImage(d, dr, i1, i2, ui1, ui2, ul, i3)
+ Display* d;
+ Drawable dr;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ unsigned long ul;
+ int i3;
+{
+ return (tkIntXlibStubsPtr->xGetImage)(d, dr, i1, i2, ui1, ui2, ul, i3);
+}
+
+/* Slot 3 */
+char *
+XGetAtomName(d, a)
+ Display* d;
+ Atom a;
+{
+ return (tkIntXlibStubsPtr->xGetAtomName)(d, a);
+}
+
+/* Slot 4 */
+char *
+XKeysymToString(k)
+ KeySym k;
+{
+ return (tkIntXlibStubsPtr->xKeysymToString)(k);
+}
+
+/* Slot 5 */
+Colormap
+XCreateColormap(d, w, v, i)
+ Display* d;
+ Window w;
+ Visual* v;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xCreateColormap)(d, w, v, i);
+}
+
+/* Slot 6 */
+GContext
+XGContextFromGC(g)
+ GC g;
+{
+ return (tkIntXlibStubsPtr->xGContextFromGC)(g);
+}
+
+/* Slot 7 */
+KeySym
+XKeycodeToKeysym(d, k, i)
+ Display* d;
+ KeyCode k;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xKeycodeToKeysym)(d, k, i);
+}
+
+/* Slot 8 */
+KeySym
+XStringToKeysym(c)
+ _Xconst char* c;
+{
+ return (tkIntXlibStubsPtr->xStringToKeysym)(c);
+}
+
+/* Slot 9 */
+Window
+XRootWindow(d, i)
+ Display* d;
+ int i;
+{
+ return (tkIntXlibStubsPtr->xRootWindow)(d, i);
+}
+
+/* Slot 10 */
+XErrorHandler
+XSetErrorHandler(x)
+ XErrorHandler x;
+{
+ return (tkIntXlibStubsPtr->xSetErrorHandler)(x);
+}
+
+/* Slot 11 */
+Status
+XAllocColor(d, c, xp)
+ Display* d;
+ Colormap c;
+ XColor* xp;
+{
+ return (tkIntXlibStubsPtr->xAllocColor)(d, c, xp);
+}
+
+/* Slot 12 */
+void
+XBell(d, i)
+ Display* d;
+ int i;
+{
+ (tkIntXlibStubsPtr->xBell)(d, i);
+}
+
+/* Slot 13 */
+void
+XChangeProperty(d, w, a, a, i1, i2, c, i3)
+ Display* d;
+ Window w;
+ Atom a;
+ Atom a;
+ int i1;
+ int i2;
+ _Xconst unsigned char* c;
+ int i3;
+{
+ (tkIntXlibStubsPtr->xChangeProperty)(d, w, a, a, i1, i2, c, i3);
+}
+
+/* Slot 14 */
+void
+XChangeWindowAttributes(d, w, ul, x)
+ Display* d;
+ Window w;
+ unsigned long ul;
+ XSetWindowAttributes* x;
+{
+ (tkIntXlibStubsPtr->xChangeWindowAttributes)(d, w, ul, x);
+}
+
+/* Slot 15 */
+void
+XConfigureWindow(d, w, i, x)
+ Display* d;
+ Window w;
+ unsigned int i;
+ XWindowChanges* x;
+{
+ (tkIntXlibStubsPtr->xConfigureWindow)(d, w, i, x);
+}
+
+/* Slot 16 */
+void
+XCopyArea(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4)
+ Display* d;
+ Drawable dr1;
+ Drawable dr2;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+{
+ (tkIntXlibStubsPtr->xCopyArea)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4);
+}
+
+/* Slot 17 */
+void
+XCopyPlane(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul)
+ Display* d;
+ Drawable dr1;
+ Drawable dr2;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xCopyPlane)(d, dr1, dr2, g, i1, i2, ui1, ui2, i3, i4, ul);
+}
+
+/* Slot 18 */
+void
+XDefineCursor(d, w, c)
+ Display* d;
+ Window w;
+ Cursor c;
+{
+ (tkIntXlibStubsPtr->xDefineCursor)(d, w, c);
+}
+
+/* Slot 19 */
+void
+XDestroyWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xDestroyWindow)(d, w);
+}
+
+/* Slot 20 */
+void
+XDrawArc(d, dr, g, i1, i2, ui1, ui2, i3, i4)
+ Display* d;
+ Drawable dr;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+{
+ (tkIntXlibStubsPtr->xDrawArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4);
+}
+
+/* Slot 21 */
+void
+XDrawLines(d, dr, g, x, i1, i2)
+ Display* d;
+ Drawable dr;
+ GC g;
+ XPoint* x;
+ int i1;
+ int i2;
+{
+ (tkIntXlibStubsPtr->xDrawLines)(d, dr, g, x, i1, i2);
+}
+
+/* Slot 22 */
+void
+XDrawRectangle(d, dr, g, i1, i2, ui1, ui2)
+ Display* d;
+ Drawable dr;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+{
+ (tkIntXlibStubsPtr->xDrawRectangle)(d, dr, g, i1, i2, ui1, ui2);
+}
+
+/* Slot 23 */
+void
+XFillArc(d, dr, g, i1, i2, ui1, ui2, i3, i4)
+ Display* d;
+ Drawable dr;
+ GC g;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+ int i3;
+ int i4;
+{
+ (tkIntXlibStubsPtr->xFillArc)(d, dr, g, i1, i2, ui1, ui2, i3, i4);
+}
+
+/* Slot 24 */
+void
+XFillPolygon(d, dr, g, x, i1, i2, i3)
+ Display* d;
+ Drawable dr;
+ GC g;
+ XPoint* x;
+ int i1;
+ int i2;
+ int i3;
+{
+ (tkIntXlibStubsPtr->xFillPolygon)(d, dr, g, x, i1, i2, i3);
+}
+
+/* Slot 25 */
+void
+XFillRectangles(d, dr, g, x, i)
+ Display* d;
+ Drawable dr;
+ GC g;
+ XRectangle* x;
+ int i;
+{
+ (tkIntXlibStubsPtr->xFillRectangles)(d, dr, g, x, i);
+}
+
+/* Slot 26 */
+void
+XFreeColormap(d, c)
+ Display* d;
+ Colormap c;
+{
+ (tkIntXlibStubsPtr->xFreeColormap)(d, c);
+}
+
+/* Slot 27 */
+void
+XFreeColors(d, c, ulp, i, ul)
+ Display* d;
+ Colormap c;
+ unsigned long* ulp;
+ int i;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xFreeColors)(d, c, ulp, i, ul);
+}
+
+/* Slot 28 */
+void
+XFreeModifiermap(x)
+ XModifierKeymap* x;
+{
+ (tkIntXlibStubsPtr->xFreeModifiermap)(x);
+}
+
+/* Slot 29 */
+Status
+XGetGeometry(d, dr, w, i1, i2, ui1, ui2, ui3, ui4)
+ Display* d;
+ Drawable dr;
+ Window* w;
+ int* i1;
+ int* i2;
+ unsigned int* ui1;
+ unsigned int* ui2;
+ unsigned int* ui3;
+ unsigned int* ui4;
+{
+ return (tkIntXlibStubsPtr->xGetGeometry)(d, dr, w, i1, i2, ui1, ui2, ui3, ui4);
+}
+
+/* Slot 30 */
+int
+XGetWindowProperty(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp)
+ Display* d;
+ Window w;
+ Atom a1;
+ long l1;
+ long l2;
+ Bool b;
+ Atom a2;
+ Atom* ap;
+ int* ip;
+ unsigned long* ulp1;
+ unsigned long* ulp2;
+ unsigned char** cpp;
+{
+ return (tkIntXlibStubsPtr->xGetWindowProperty)(d, w, a1, l1, l2, b, a2, ap, ip, ulp1, ulp2, cpp);
+}
+
+/* Slot 31 */
+int
+XGrabKeyboard(d, w, b, i1, i2, t)
+ Display* d;
+ Window w;
+ Bool b;
+ int i1;
+ int i2;
+ Time t;
+{
+ return (tkIntXlibStubsPtr->xGrabKeyboard)(d, w, b, i1, i2, t);
+}
+
+/* Slot 32 */
+int
+XGrabPointer(d, w1, b, ui, i1, i2, w2, c, t)
+ Display* d;
+ Window w1;
+ Bool b;
+ unsigned int ui;
+ int i1;
+ int i2;
+ Window w2;
+ Cursor c;
+ Time t;
+{
+ return (tkIntXlibStubsPtr->xGrabPointer)(d, w1, b, ui, i1, i2, w2, c, t);
+}
+
+/* Slot 33 */
+KeyCode
+XKeysymToKeycode(d, k)
+ Display* d;
+ KeySym k;
+{
+ return (tkIntXlibStubsPtr->xKeysymToKeycode)(d, k);
+}
+
+/* Slot 34 */
+void
+XMapWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xMapWindow)(d, w);
+}
+
+/* Slot 35 */
+void
+XMoveResizeWindow(d, w, i1, i2, ui1, ui2)
+ Display* d;
+ Window w;
+ int i1;
+ int i2;
+ unsigned int ui1;
+ unsigned int ui2;
+{
+ (tkIntXlibStubsPtr->xMoveResizeWindow)(d, w, i1, i2, ui1, ui2);
+}
+
+/* Slot 36 */
+void
+XMoveWindow(d, w, i1, i2)
+ Display* d;
+ Window w;
+ int i1;
+ int i2;
+{
+ (tkIntXlibStubsPtr->xMoveWindow)(d, w, i1, i2);
+}
+
+/* Slot 37 */
+Bool
+XQueryPointer(d, w1, w2, w3, i1, i2, i3, i4, ui)
+ Display* d;
+ Window w1;
+ Window* w2;
+ Window* w3;
+ int* i1;
+ int* i2;
+ int* i3;
+ int* i4;
+ unsigned int* ui;
+{
+ return (tkIntXlibStubsPtr->xQueryPointer)(d, w1, w2, w3, i1, i2, i3, i4, ui);
+}
+
+/* Slot 38 */
+void
+XRaiseWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xRaiseWindow)(d, w);
+}
+
+/* Slot 39 */
+void
+XRefreshKeyboardMapping(x)
+ XMappingEvent* x;
+{
+ (tkIntXlibStubsPtr->xRefreshKeyboardMapping)(x);
+}
+
+/* Slot 40 */
+void
+XResizeWindow(d, w, ui1, ui2)
+ Display* d;
+ Window w;
+ unsigned int ui1;
+ unsigned int ui2;
+{
+ (tkIntXlibStubsPtr->xResizeWindow)(d, w, ui1, ui2);
+}
+
+/* Slot 41 */
+void
+XSelectInput(d, w, l)
+ Display* d;
+ Window w;
+ long l;
+{
+ (tkIntXlibStubsPtr->xSelectInput)(d, w, l);
+}
+
+/* Slot 42 */
+Status
+XSendEvent(d, w, b, l, x)
+ Display* d;
+ Window w;
+ Bool b;
+ long l;
+ XEvent* x;
+{
+ return (tkIntXlibStubsPtr->xSendEvent)(d, w, b, l, x);
+}
+
+/* Slot 43 */
+void
+XSetIconName(d, w, c)
+ Display* d;
+ Window w;
+ _Xconst char* c;
+{
+ (tkIntXlibStubsPtr->xSetIconName)(d, w, c);
+}
+
+/* Slot 44 */
+void
+XSetInputFocus(d, w, i, t)
+ Display* d;
+ Window w;
+ int i;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xSetInputFocus)(d, w, i, t);
+}
+
+/* Slot 45 */
+void
+XSetSelectionOwner(d, a, w, t)
+ Display* d;
+ Atom a;
+ Window w;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xSetSelectionOwner)(d, a, w, t);
+}
+
+/* Slot 46 */
+void
+XSetWindowBackground(d, w, ul)
+ Display* d;
+ Window w;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xSetWindowBackground)(d, w, ul);
+}
+
+/* Slot 47 */
+void
+XSetWindowBackgroundPixmap(d, w, p)
+ Display* d;
+ Window w;
+ Pixmap p;
+{
+ (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap)(d, w, p);
+}
+
+/* Slot 48 */
+void
+XSetWindowBorder(d, w, ul)
+ Display* d;
+ Window w;
+ unsigned long ul;
+{
+ (tkIntXlibStubsPtr->xSetWindowBorder)(d, w, ul);
+}
+
+/* Slot 49 */
+void
+XSetWindowBorderPixmap(d, w, p)
+ Display* d;
+ Window w;
+ Pixmap p;
+{
+ (tkIntXlibStubsPtr->xSetWindowBorderPixmap)(d, w, p);
+}
+
+/* Slot 50 */
+void
+XSetWindowBorderWidth(d, w, ui)
+ Display* d;
+ Window w;
+ unsigned int ui;
+{
+ (tkIntXlibStubsPtr->xSetWindowBorderWidth)(d, w, ui);
+}
+
+/* Slot 51 */
+void
+XSetWindowColormap(d, w, c)
+ Display* d;
+ Window w;
+ Colormap c;
+{
+ (tkIntXlibStubsPtr->xSetWindowColormap)(d, w, c);
+}
+
+/* Slot 52 */
+void
+XUngrabKeyboard(d, t)
+ Display* d;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xUngrabKeyboard)(d, t);
+}
+
+/* Slot 53 */
+void
+XUngrabPointer(d, t)
+ Display* d;
+ Time t;
+{
+ (tkIntXlibStubsPtr->xUngrabPointer)(d, t);
+}
+
+/* Slot 54 */
+void
+XUnmapWindow(d, w)
+ Display* d;
+ Window w;
+{
+ (tkIntXlibStubsPtr->xUnmapWindow)(d, w);
+}
+
+/* Slot 55 */
+void
+TkPutImage(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height)
+ unsigned long * colors;
+ int ncolors;
+ Display* display;
+ Drawable d;
+ GC gc;
+ XImage* image;
+ int src_x;
+ int src_y;
+ int dest_x;
+ int dest_y;
+ unsigned int width;
+ unsigned int height;
+{
+ (tkIntXlibStubsPtr->tkPutImage)(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height);
+}
+
+#endif /* MAC_TCL */
+
+/* !END!: Do not edit above this line. */
diff --git a/generic/tkMain.c b/generic/tkMain.c
index 0583408..d55f920 100644
--- a/generic/tkMain.c
+++ b/generic/tkMain.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMain.c,v 1.2 1998/09/14 18:23:14 stanton Exp $
+ * RCS: @(#) $Id: tkMain.c,v 1.3 1999/03/10 07:04:42 stanton Exp $
*/
#include <ctype.h>
@@ -21,6 +21,7 @@
#include <string.h>
#include <tcl.h>
#include <tk.h>
+#include "tkInt.h"
#ifdef NO_STDLIB_H
# include "../compat/stdlib.h"
#else
@@ -36,8 +37,10 @@
* some systems.
*/
-extern int isatty _ANSI_ARGS_((int fd));
+void TkConsoleCreate_ _ANSI_ARGS_((void));
+
#if !defined(__WIN32__) && !defined(_WIN32)
+extern int isatty _ANSI_ARGS_((int fd));
extern char * strrchr _ANSI_ARGS_((CONST char *string, int c));
#endif
extern void TkpDisplayWarning _ANSI_ARGS_((char *msg,
@@ -67,7 +70,7 @@ static void StdinProc _ANSI_ARGS_((ClientData clientData,
/*
*----------------------------------------------------------------------
*
- * Tk_Main --
+ * Tk_Main, Tk_MainEx --
*
* Main program for Wish and most other Tk-based applications.
*
@@ -92,14 +95,41 @@ Tk_Main(argc, argv, appInitProc)
* initialization but before starting
* to execute commands. */
{
+ Tk_MainEx(argc, argv, appInitProc, Tcl_CreateInterp());
+}
+
+void
+Tk_MainEx(argc, argv, appInitProc, interp)
+ int argc; /* Number of arguments. */
+ char **argv; /* Array of argument strings. */
+ Tcl_AppInitProc *appInitProc; /* Application-specific initialization
+ * procedure to call after most
+ * initialization but before starting
+ * to execute commands. */
+ Tcl_Interp *interp; /* Application interpreter. */
+{
char *args, *fileName;
char buf[20];
int code;
size_t length;
Tcl_Channel inChannel, outChannel;
+ /*
+ * Make sure that Tcl is present. If using stubs this will initialize the
+ * stub table pointers. (for 8.1, noop in 8.0.x)
+ */
+
+ if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) {
+ abort();
+ }
+
Tcl_FindExecutable(argv[0]);
- interp = Tcl_CreateInterp();
+
+
+#if (defined(__WIN32__) || defined(MAC_TCL))
+ TkConsoleCreate_();
+#endif
+
#ifdef TCL_MEM_DEBUG
Tcl_InitMemory(interp);
#endif
diff --git a/generic/tkPlatDecls.h b/generic/tkPlatDecls.h
new file mode 100644
index 0000000..37714d2
--- /dev/null
+++ b/generic/tkPlatDecls.h
@@ -0,0 +1,202 @@
+/*
+ * 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.2 1999/03/10 07:04:42 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;
+
+extern TkPlatStubs *tkPlatStubsPtr;
+
+#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifdef __WIN32__
+#ifndef Tk_AttachHWND
+#define Tk_AttachHWND(tkwin, hwnd) \
+ (tkPlatStubsPtr->tk_AttachHWND)(tkwin, hwnd) /* 0 */
+#endif
+#ifndef Tk_GetHINSTANCE
+#define Tk_GetHINSTANCE() \
+ (tkPlatStubsPtr->tk_GetHINSTANCE)() /* 1 */
+#endif
+#ifndef Tk_GetHWND
+#define Tk_GetHWND(window) \
+ (tkPlatStubsPtr->tk_GetHWND)(window) /* 2 */
+#endif
+#ifndef Tk_HWNDToWindow
+#define Tk_HWNDToWindow(hwnd) \
+ (tkPlatStubsPtr->tk_HWNDToWindow)(hwnd) /* 3 */
+#endif
+#ifndef Tk_PointerEvent
+#define Tk_PointerEvent(hwnd, x, y) \
+ (tkPlatStubsPtr->tk_PointerEvent)(hwnd, x, y) /* 4 */
+#endif
+#ifndef Tk_TranslateWinEvent
+#define Tk_TranslateWinEvent(hwnd, message, wParam, lParam, result) \
+ (tkPlatStubsPtr->tk_TranslateWinEvent)(hwnd, message, wParam, lParam, result) /* 5 */
+#endif
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+#ifndef Tk_MacSetEmbedHandler
+#define Tk_MacSetEmbedHandler(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc) \
+ (tkPlatStubsPtr->tk_MacSetEmbedHandler)(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc) /* 0 */
+#endif
+#ifndef Tk_MacTurnOffMenus
+#define Tk_MacTurnOffMenus() \
+ (tkPlatStubsPtr->tk_MacTurnOffMenus)() /* 1 */
+#endif
+#ifndef Tk_MacTkOwnsCursor
+#define Tk_MacTkOwnsCursor(tkOwnsIt) \
+ (tkPlatStubsPtr->tk_MacTkOwnsCursor)(tkOwnsIt) /* 2 */
+#endif
+#ifndef TkMacInitMenus
+#define TkMacInitMenus(interp) \
+ (tkPlatStubsPtr->tkMacInitMenus)(interp) /* 3 */
+#endif
+#ifndef TkMacInitAppleEvents
+#define TkMacInitAppleEvents(interp) \
+ (tkPlatStubsPtr->tkMacInitAppleEvents)(interp) /* 4 */
+#endif
+#ifndef TkMacConvertEvent
+#define TkMacConvertEvent(eventPtr) \
+ (tkPlatStubsPtr->tkMacConvertEvent)(eventPtr) /* 5 */
+#endif
+#ifndef TkMacConvertTkEvent
+#define TkMacConvertTkEvent(eventPtr, window) \
+ (tkPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window) /* 6 */
+#endif
+#ifndef TkGenWMConfigureEvent
+#define TkGenWMConfigureEvent(tkwin, x, y, width, height, flags) \
+ (tkPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags) /* 7 */
+#endif
+#ifndef TkMacInvalClipRgns
+#define TkMacInvalClipRgns(winPtr) \
+ (tkPlatStubsPtr->tkMacInvalClipRgns)(winPtr) /* 8 */
+#endif
+#ifndef TkMacHaveAppearance
+#define TkMacHaveAppearance() \
+ (tkPlatStubsPtr->tkMacHaveAppearance)() /* 9 */
+#endif
+#ifndef TkMacGetDrawablePort
+#define TkMacGetDrawablePort(drawable) \
+ (tkPlatStubsPtr->tkMacGetDrawablePort)(drawable) /* 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 */
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. */
diff --git a/generic/tkPointer.c b/generic/tkPointer.c
index 1817914..4b18d0b 100644
--- a/generic/tkPointer.c
+++ b/generic/tkPointer.c
@@ -11,11 +11,15 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkPointer.c,v 1.2 1998/09/14 18:23:16 stanton Exp $
+ * RCS: @(#) $Id: tkPointer.c,v 1.3 1999/03/10 07:04:43 stanton Exp $
*/
#include "tkInt.h"
+#ifdef __WIN32__
+#include "tkWinInt.h"
+#endif
+
#ifdef MAC_TCL
#define Cursor XCursor
#endif
diff --git a/generic/tkStubInit.c b/generic/tkStubInit.c
new file mode 100644
index 0000000..6aa0457
--- /dev/null
+++ b/generic/tkStubInit.c
@@ -0,0 +1,649 @@
+/*
+ * tkStubInit.c --
+ *
+ * This file contains the initializers for the Tk stub vectors.
+ *
+ * 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: tkStubInit.c,v 1.2 1999/03/10 07:04:43 stanton Exp $
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+#ifdef __WIN32__
+#include "tkWinInt.h"
+#endif
+
+#include "tkDecls.h"
+#include "tkPlatDecls.h"
+#include "tkIntDecls.h"
+#include "tkIntPlatDecls.h"
+#include "tkIntXlibDecls.h"
+
+/*
+ * Remove macros that will interfere with the definitions below.
+ */
+
+/*
+ * WARNING: The contents of 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. */
+
+static TkStubHooks tkStubHooks;
+
+TkStubs tkStubs = {
+ TCL_STUB_MAGIC,
+ &tkStubHooks,
+ Tk_MainLoop, /* 0 */
+ Tk_3DBorderColor, /* 1 */
+ Tk_3DBorderGC, /* 2 */
+ Tk_3DHorizontalBevel, /* 3 */
+ Tk_3DVerticalBevel, /* 4 */
+ Tk_AddOption, /* 5 */
+ Tk_BindEvent, /* 6 */
+ Tk_CanvasDrawableCoords, /* 7 */
+ Tk_CanvasEventuallyRedraw, /* 8 */
+ Tk_CanvasGetCoord, /* 9 */
+ Tk_CanvasGetTextInfo, /* 10 */
+ Tk_CanvasPsBitmap, /* 11 */
+ Tk_CanvasPsColor, /* 12 */
+ Tk_CanvasPsFont, /* 13 */
+ Tk_CanvasPsPath, /* 14 */
+ Tk_CanvasPsStipple, /* 15 */
+ Tk_CanvasPsY, /* 16 */
+ Tk_CanvasSetStippleOrigin, /* 17 */
+ Tk_CanvasTagsParseProc, /* 18 */
+ Tk_CanvasTagsPrintProc, /* 19 */
+ Tk_CanvasTkwin, /* 20 */
+ Tk_CanvasWindowCoords, /* 21 */
+ Tk_ChangeWindowAttributes, /* 22 */
+ Tk_CharBbox, /* 23 */
+ Tk_ClearSelection, /* 24 */
+ Tk_ClipboardAppend, /* 25 */
+ Tk_ClipboardClear, /* 26 */
+ Tk_ConfigureInfo, /* 27 */
+ Tk_ConfigureValue, /* 28 */
+ Tk_ConfigureWidget, /* 29 */
+ Tk_ConfigureWindow, /* 30 */
+ Tk_ComputeTextLayout, /* 31 */
+ Tk_CoordsToWindow, /* 32 */
+ Tk_CreateBinding, /* 33 */
+ Tk_CreateBindingTable, /* 34 */
+ Tk_CreateErrorHandler, /* 35 */
+ Tk_CreateEventHandler, /* 36 */
+ Tk_CreateGenericHandler, /* 37 */
+ Tk_CreateImageType, /* 38 */
+ Tk_CreateItemType, /* 39 */
+ Tk_CreatePhotoImageFormat, /* 40 */
+ Tk_CreateSelHandler, /* 41 */
+ Tk_CreateWindow, /* 42 */
+ Tk_CreateWindowFromPath, /* 43 */
+ Tk_DefineBitmap, /* 44 */
+ Tk_DefineCursor, /* 45 */
+ Tk_DeleteAllBindings, /* 46 */
+ Tk_DeleteBinding, /* 47 */
+ Tk_DeleteBindingTable, /* 48 */
+ Tk_DeleteErrorHandler, /* 49 */
+ Tk_DeleteEventHandler, /* 50 */
+ Tk_DeleteGenericHandler, /* 51 */
+ Tk_DeleteImage, /* 52 */
+ Tk_DeleteSelHandler, /* 53 */
+ Tk_DestroyWindow, /* 54 */
+ Tk_DisplayName, /* 55 */
+ Tk_DistanceToTextLayout, /* 56 */
+ Tk_Draw3DPolygon, /* 57 */
+ Tk_Draw3DRectangle, /* 58 */
+ Tk_DrawChars, /* 59 */
+ Tk_DrawFocusHighlight, /* 60 */
+ Tk_DrawTextLayout, /* 61 */
+ Tk_Fill3DPolygon, /* 62 */
+ Tk_Fill3DRectangle, /* 63 */
+ Tk_FindPhoto, /* 64 */
+ Tk_FontId, /* 65 */
+ Tk_Free3DBorder, /* 66 */
+ Tk_FreeBitmap, /* 67 */
+ Tk_FreeColor, /* 68 */
+ Tk_FreeColormap, /* 69 */
+ Tk_FreeCursor, /* 70 */
+ Tk_FreeFont, /* 71 */
+ Tk_FreeGC, /* 72 */
+ Tk_FreeImage, /* 73 */
+ Tk_FreeOptions, /* 74 */
+ Tk_FreePixmap, /* 75 */
+ Tk_FreeTextLayout, /* 76 */
+ Tk_FreeXId, /* 77 */
+ Tk_GCForColor, /* 78 */
+ Tk_GeometryRequest, /* 79 */
+ Tk_Get3DBorder, /* 80 */
+ Tk_GetAllBindings, /* 81 */
+ Tk_GetAnchor, /* 82 */
+ Tk_GetAtomName, /* 83 */
+ Tk_GetBinding, /* 84 */
+ Tk_GetBitmap, /* 85 */
+ Tk_GetBitmapFromData, /* 86 */
+ Tk_GetCapStyle, /* 87 */
+ Tk_GetColor, /* 88 */
+ Tk_GetColorByValue, /* 89 */
+ Tk_GetColormap, /* 90 */
+ Tk_GetCursor, /* 91 */
+ Tk_GetCursorFromData, /* 92 */
+ Tk_GetFont, /* 93 */
+ Tk_GetFontFromObj, /* 94 */
+ Tk_GetFontMetrics, /* 95 */
+ Tk_GetGC, /* 96 */
+ Tk_GetImage, /* 97 */
+ Tk_GetImageMasterData, /* 98 */
+ Tk_GetItemTypes, /* 99 */
+ Tk_GetJoinStyle, /* 100 */
+ Tk_GetJustify, /* 101 */
+ Tk_GetNumMainWindows, /* 102 */
+ Tk_GetOption, /* 103 */
+ Tk_GetPixels, /* 104 */
+ Tk_GetPixmap, /* 105 */
+ Tk_GetRelief, /* 106 */
+ Tk_GetRootCoords, /* 107 */
+ Tk_GetScrollInfo, /* 108 */
+ Tk_GetScreenMM, /* 109 */
+ Tk_GetSelection, /* 110 */
+ Tk_GetUid, /* 111 */
+ Tk_GetVisual, /* 112 */
+ Tk_GetVRootGeometry, /* 113 */
+ Tk_Grab, /* 114 */
+ Tk_HandleEvent, /* 115 */
+ Tk_IdToWindow, /* 116 */
+ Tk_ImageChanged, /* 117 */
+ Tk_Init, /* 118 */
+ Tk_InternAtom, /* 119 */
+ Tk_IntersectTextLayout, /* 120 */
+ Tk_MaintainGeometry, /* 121 */
+ Tk_MainWindow, /* 122 */
+ Tk_MakeWindowExist, /* 123 */
+ Tk_ManageGeometry, /* 124 */
+ Tk_MapWindow, /* 125 */
+ Tk_MeasureChars, /* 126 */
+ Tk_MoveResizeWindow, /* 127 */
+ Tk_MoveWindow, /* 128 */
+ Tk_MoveToplevelWindow, /* 129 */
+ Tk_NameOf3DBorder, /* 130 */
+ Tk_NameOfAnchor, /* 131 */
+ Tk_NameOfBitmap, /* 132 */
+ Tk_NameOfCapStyle, /* 133 */
+ Tk_NameOfColor, /* 134 */
+ Tk_NameOfCursor, /* 135 */
+ Tk_NameOfFont, /* 136 */
+ Tk_NameOfImage, /* 137 */
+ Tk_NameOfJoinStyle, /* 138 */
+ Tk_NameOfJustify, /* 139 */
+ Tk_NameOfRelief, /* 140 */
+ Tk_NameToWindow, /* 141 */
+ Tk_OwnSelection, /* 142 */
+ Tk_ParseArgv, /* 143 */
+ Tk_PhotoPutBlock, /* 144 */
+ Tk_PhotoPutZoomedBlock, /* 145 */
+ Tk_PhotoGetImage, /* 146 */
+ Tk_PhotoBlank, /* 147 */
+ Tk_PhotoExpand, /* 148 */
+ Tk_PhotoGetSize, /* 149 */
+ Tk_PhotoSetSize, /* 150 */
+ Tk_PointToChar, /* 151 */
+ Tk_PostscriptFontName, /* 152 */
+ Tk_PreserveColormap, /* 153 */
+ Tk_QueueWindowEvent, /* 154 */
+ Tk_RedrawImage, /* 155 */
+ Tk_ResizeWindow, /* 156 */
+ Tk_RestackWindow, /* 157 */
+ Tk_RestrictEvents, /* 158 */
+ Tk_SafeInit, /* 159 */
+ Tk_SetAppName, /* 160 */
+ Tk_SetBackgroundFromBorder, /* 161 */
+ Tk_SetClass, /* 162 */
+ Tk_SetGrid, /* 163 */
+ Tk_SetInternalBorder, /* 164 */
+ Tk_SetWindowBackground, /* 165 */
+ Tk_SetWindowBackgroundPixmap, /* 166 */
+ Tk_SetWindowBorder, /* 167 */
+ Tk_SetWindowBorderWidth, /* 168 */
+ Tk_SetWindowBorderPixmap, /* 169 */
+ Tk_SetWindowColormap, /* 170 */
+ Tk_SetWindowVisual, /* 171 */
+ Tk_SizeOfBitmap, /* 172 */
+ Tk_SizeOfImage, /* 173 */
+ Tk_StrictMotif, /* 174 */
+ Tk_TextLayoutToPostscript, /* 175 */
+ Tk_TextWidth, /* 176 */
+ Tk_UndefineCursor, /* 177 */
+ Tk_UnderlineChars, /* 178 */
+ Tk_UnderlineTextLayout, /* 179 */
+ Tk_Ungrab, /* 180 */
+ Tk_UnmaintainGeometry, /* 181 */
+ Tk_UnmapWindow, /* 182 */
+ Tk_UnsetGrid, /* 183 */
+ Tk_UpdatePointer, /* 184 */
+};
+
+TkStubs *tkStubsPtr = &tkStubs;
+
+TkIntStubs tkIntStubs = {
+ TCL_STUB_MAGIC,
+ NULL,
+ TkAllocWindow, /* 0 */
+ TkBezierPoints, /* 1 */
+ TkBezierScreenPoints, /* 2 */
+ TkBindDeadWindow, /* 3 */
+ TkBindEventProc, /* 4 */
+ TkBindFree, /* 5 */
+ TkBindInit, /* 6 */
+ TkChangeEventWindow, /* 7 */
+ TkClipInit, /* 8 */
+ TkComputeAnchor, /* 9 */
+ TkCopyAndGlobalEval, /* 10 */
+ TkCreateBindingProcedure, /* 11 */
+ TkCreateCursorFromData, /* 12 */
+ TkCreateFrame, /* 13 */
+ TkCreateMainWindow, /* 14 */
+ TkCurrentTime, /* 15 */
+ TkDeleteAllImages, /* 16 */
+ TkDoConfigureNotify, /* 17 */
+ TkDrawInsetFocusHighlight, /* 18 */
+ TkEventDeadWindow, /* 19 */
+ TkFillPolygon, /* 20 */
+ TkFindStateNum, /* 21 */
+ TkFindStateString, /* 22 */
+ TkFocusDeadWindow, /* 23 */
+ TkFocusFilterEvent, /* 24 */
+ TkFocusKeyEvent, /* 25 */
+ TkFontPkgInit, /* 26 */
+ TkFontPkgFree, /* 27 */
+ TkFreeBindingTags, /* 28 */
+ TkFreeCursor, /* 29 */
+ TkGetBitmapData, /* 30 */
+ TkGetButtPoints, /* 31 */
+ TkGetCursorByName, /* 32 */
+ TkGetDefaultScreenName, /* 33 */
+ TkGetDisplay, /* 34 */
+ TkGetDisplayOf, /* 35 */
+ TkGetFocusWin, /* 36 */
+ TkGetInterpNames, /* 37 */
+ TkGetMiterPoints, /* 38 */
+ TkGetPointerCoords, /* 39 */
+ TkGetServerInfo, /* 40 */
+ TkGrabDeadWindow, /* 41 */
+ TkGrabState, /* 42 */
+ TkIncludePoint, /* 43 */
+ TkInOutEvents, /* 44 */
+ TkInstallFrameMenu, /* 45 */
+ TkKeysymToString, /* 46 */
+ TkLineToArea, /* 47 */
+ TkLineToPoint, /* 48 */
+ TkMakeBezierCurve, /* 49 */
+ TkMakeBezierPostscript, /* 50 */
+ TkOptionClassChanged, /* 51 */
+ TkOptionDeadWindow, /* 52 */
+ TkOvalToArea, /* 53 */
+ TkOvalToPoint, /* 54 */
+ TkpChangeFocus, /* 55 */
+ TkpCloseDisplay, /* 56 */
+ TkpClaimFocus, /* 57 */
+ TkpDisplayWarning, /* 58 */
+ TkpGetAppName, /* 59 */
+ TkpGetOtherWindow, /* 60 */
+ TkpGetWrapperWindow, /* 61 */
+ TkpInit, /* 62 */
+ TkpInitializeMenuBindings, /* 63 */
+ TkpMakeContainer, /* 64 */
+ TkpMakeMenuWindow, /* 65 */
+ TkpMakeWindow, /* 66 */
+ TkpMenuNotifyToplevelCreate, /* 67 */
+ TkpOpenDisplay, /* 68 */
+ TkPointerEvent, /* 69 */
+ TkPolygonToArea, /* 70 */
+ TkPolygonToPoint, /* 71 */
+ TkPositionInTree, /* 72 */
+ TkpRedirectKeyEvent, /* 73 */
+ TkpSetMainMenubar, /* 74 */
+ TkpUseWindow, /* 75 */
+ TkpWindowWasRecentlyDeleted, /* 76 */
+ TkQueueEventForAllChildren, /* 77 */
+ TkReadBitmapFile, /* 78 */
+ TkScrollWindow, /* 79 */
+ TkSelDeadWindow, /* 80 */
+ TkSelEventProc, /* 81 */
+ TkSelInit, /* 82 */
+ TkSelPropProc, /* 83 */
+ TkSetClassProcs, /* 84 */
+ TkSetWindowMenuBar, /* 85 */
+ TkStringToKeysym, /* 86 */
+ TkThickPolyLineToArea, /* 87 */
+ TkWmAddToColormapWindows, /* 88 */
+ TkWmDeadWindow, /* 89 */
+ TkWmFocusToplevel, /* 90 */
+ TkWmMapWindow, /* 91 */
+ TkWmNewWindow, /* 92 */
+ TkWmProtocolEventProc, /* 93 */
+ TkWmRemoveFromColormapWindows, /* 94 */
+ TkWmRestackToplevel, /* 95 */
+ TkWmSetClass, /* 96 */
+ TkWmUnmapWindow, /* 97 */
+};
+
+TkIntStubs *tkIntStubsPtr = &tkIntStubs;
+
+TkIntPlatStubs tkIntPlatStubs = {
+ TCL_STUB_MAGIC,
+ NULL,
+#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
+ TkCreateXEventSource, /* 0 */
+ TkFreeWindowId, /* 1 */
+ TkInitXId, /* 2 */
+ TkpCmapStressed, /* 3 */
+ TkpSync, /* 4 */
+ TkUnixContainerId, /* 5 */
+ TkUnixDoOneXEvent, /* 6 */
+ TkUnixSetMenubar, /* 7 */
+#endif /* UNIX */
+#ifdef __WIN32__
+ TkAlignImageData, /* 0 */
+ TkClipBox, /* 1 */
+ TkCreateRegion, /* 2 */
+ TkDestroyRegion, /* 3 */
+ TkGenerateActivateEvents, /* 4 */
+ TkIntersectRegion, /* 5 */
+ TkpGetMS, /* 6 */
+ TkPointerDeadWindow, /* 7 */
+ TkpPrintWindowId, /* 8 */
+ TkpScanWindowId, /* 9 */
+ TkpSetCapture, /* 10 */
+ TkpSetCursor, /* 11 */
+ TkpWmSetState, /* 12 */
+ TkRectInRegion, /* 13 */
+ TkSetPixmapColormap, /* 14 */
+ TkSetRegion, /* 15 */
+ TkUnionRectWithRegion, /* 16 */
+ TkWinCancelMouseTimer, /* 17 */
+ TkWinClipboardRender, /* 18 */
+ TkWinEmbeddedEventProc, /* 19 */
+ TkWinFillRect, /* 20 */
+ TkWinGetBorderPixels, /* 21 */
+ TkWinGetDrawableDC, /* 22 */
+ TkWinGetModifierState, /* 23 */
+ TkWinGetSystemPalette, /* 24 */
+ TkWinGetWrapperWindow, /* 25 */
+ TkWinHandleMenuEvent, /* 26 */
+ TkWinIndexOfColor, /* 27 */
+ TkWinReleaseDrawableDC, /* 28 */
+ TkWinResendEvent, /* 29 */
+ TkWinSelectPalette, /* 30 */
+ TkWinSetMenu, /* 31 */
+ TkWinSetWindowPos, /* 32 */
+ TkWinWmCleanup, /* 33 */
+ TkWinXCleanup, /* 34 */
+ TkWinXInit, /* 35 */
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+ TkClipBox, /* 0 */
+ TkCreateRegion, /* 1 */
+ TkDestroyRegion, /* 2 */
+ TkGenerateActivateEvents, /* 3 */
+ TkIntersectRegion, /* 4 */
+ TkpCreateNativeBitmap, /* 5 */
+ TkpDefineNativeBitmaps, /* 6 */
+ TkpGetMS, /* 7 */
+ TkpGetNativeAppBitmap, /* 8 */
+ TkPointerDeadWindow, /* 9 */
+ TkpSetCapture, /* 10 */
+ TkpSetCursor, /* 11 */
+ TkpWmSetState, /* 12 */
+ TkRectInRegion, /* 13 */
+ TkSetRegion, /* 14 */
+ TkUnionRectWithRegion, /* 15 */
+ HandleWMEvent, /* 16 */
+ TkAboutDlg, /* 17 */
+ TkCreateMacEventSource, /* 18 */
+ TkFontList, /* 19 */
+ TkGetTransientMaster, /* 20 */
+ TkGenerateButtonEvent, /* 21 */
+ TkGetCharPositions, /* 22 */
+ TkGenWMDestroyEvent, /* 23 */
+ TkGenWMConfigureEvent, /* 24 */
+ TkMacButtonKeyState, /* 25 */
+ TkMacClearMenubarActive, /* 26 */
+ TkMacConvertEvent, /* 27 */
+ TkMacDispatchMenuEvent, /* 28 */
+ TkMacInstallCursor, /* 29 */
+ TkMacConvertTkEvent, /* 30 */
+ TkMacHandleTearoffMenu, /* 31 */
+ tkMacInstallMWConsole, /* 32 */
+ TkMacInvalClipRgns, /* 33 */
+ TkMacDoHLEvent, /* 34 */
+ TkMacFontInfo, /* 35 */
+ TkMacGenerateTime, /* 36 */
+ TkMacGetDrawablePort, /* 37 */
+ TkMacGetScrollbarGrowWindow, /* 38 */
+ TkMacGetXWindow, /* 39 */
+ TkMacGrowToplevel, /* 40 */
+ TkMacHandleMenuSelect, /* 41 */
+ TkMacHaveAppearance, /* 42 */
+ TkMacInitAppleEvents, /* 43 */
+ TkMacInitMenus, /* 44 */
+ TkMacInvalidateWindow, /* 45 */
+ TkMacIsCharacterMissing, /* 46 */
+ TkMacMakeRealWindowExist, /* 47 */
+ TkMacMakeStippleMap, /* 48 */
+ TkMacMenuClick, /* 49 */
+ TkMacRegisterOffScreenWindow, /* 50 */
+ TkMacResizable, /* 51 */
+ TkMacSetEmbedRgn, /* 52 */
+ TkMacSetHelpMenuItemCount, /* 53 */
+ TkMacSetScrollbarGrow, /* 54 */
+ TkMacSetUpClippingRgn, /* 55 */
+ TkMacSetUpGraphicsPort, /* 56 */
+ TkMacUpdateClipRgn, /* 57 */
+ TkMacUnregisterMacWindow, /* 58 */
+ TkMacUseMenuID, /* 59 */
+ TkMacVisableClipRgn, /* 60 */
+ TkMacWinBounds, /* 61 */
+ TkMacWindowOffset, /* 62 */
+ TkResumeClipboard, /* 63 */
+ TkSetMacColor, /* 64 */
+ TkSetWMName, /* 65 */
+ TkSuspendClipboard, /* 66 */
+ TkWMGrowToplevel, /* 67 */
+ TkMacZoomToplevel, /* 68 */
+ Tk_TopCoordsToWindow, /* 69 */
+ TkMacContainerId, /* 70 */
+ TkMacGetHostToplevel, /* 71 */
+#endif /* MAC_TCL */
+};
+
+TkIntPlatStubs *tkIntPlatStubsPtr = &tkIntPlatStubs;
+
+TkIntXlibStubs tkIntXlibStubs = {
+ TCL_STUB_MAGIC,
+ NULL,
+#ifdef __WIN32__
+ XGetModifierMapping, /* 0 */
+ XCreateImage, /* 1 */
+ XGetImage, /* 2 */
+ XGetAtomName, /* 3 */
+ XKeysymToString, /* 4 */
+ XCreateColormap, /* 5 */
+ XCreatePixmapCursor, /* 6 */
+ XCreateGlyphCursor, /* 7 */
+ XGContextFromGC, /* 8 */
+ XListHosts, /* 9 */
+ XKeycodeToKeysym, /* 10 */
+ XStringToKeysym, /* 11 */
+ XRootWindow, /* 12 */
+ XSetErrorHandler, /* 13 */
+ XIconifyWindow, /* 14 */
+ XWithdrawWindow, /* 15 */
+ XGetWMColormapWindows, /* 16 */
+ XAllocColor, /* 17 */
+ XBell, /* 18 */
+ XChangeProperty, /* 19 */
+ XChangeWindowAttributes, /* 20 */
+ XClearWindow, /* 21 */
+ XConfigureWindow, /* 22 */
+ XCopyArea, /* 23 */
+ XCopyPlane, /* 24 */
+ XDefineCursor, /* 25 */
+ XDeleteProperty, /* 26 */
+ XDestroyWindow, /* 27 */
+ XDrawArc, /* 28 */
+ XDrawLines, /* 29 */
+ XDrawRectangle, /* 30 */
+ XFillArc, /* 31 */
+ XFillPolygon, /* 32 */
+ XFillRectangles, /* 33 */
+ XForceScreenSaver, /* 34 */
+ XFreeColormap, /* 35 */
+ XFreeColors, /* 36 */
+ XFreeCursor, /* 37 */
+ XFreeModifiermap, /* 38 */
+ XGetGeometry, /* 39 */
+ XGetInputFocus, /* 40 */
+ XGetWindowProperty, /* 41 */
+ XGetWindowAttributes, /* 42 */
+ XGrabKeyboard, /* 43 */
+ XGrabPointer, /* 44 */
+ XKeysymToKeycode, /* 45 */
+ XLookupColor, /* 46 */
+ XMapWindow, /* 47 */
+ XMoveResizeWindow, /* 48 */
+ XMoveWindow, /* 49 */
+ XNextEvent, /* 50 */
+ XPutBackEvent, /* 51 */
+ XQueryColors, /* 52 */
+ XQueryPointer, /* 53 */
+ XQueryTree, /* 54 */
+ XRaiseWindow, /* 55 */
+ XRefreshKeyboardMapping, /* 56 */
+ XResizeWindow, /* 57 */
+ XSelectInput, /* 58 */
+ XSendEvent, /* 59 */
+ XSetCommand, /* 60 */
+ XSetIconName, /* 61 */
+ XSetInputFocus, /* 62 */
+ XSetSelectionOwner, /* 63 */
+ XSetWindowBackground, /* 64 */
+ XSetWindowBackgroundPixmap, /* 65 */
+ XSetWindowBorder, /* 66 */
+ XSetWindowBorderPixmap, /* 67 */
+ XSetWindowBorderWidth, /* 68 */
+ XSetWindowColormap, /* 69 */
+ XTranslateCoordinates, /* 70 */
+ XUngrabKeyboard, /* 71 */
+ XUngrabPointer, /* 72 */
+ XUnmapWindow, /* 73 */
+ XWindowEvent, /* 74 */
+ XDestroyIC, /* 75 */
+ XFilterEvent, /* 76 */
+ XmbLookupString, /* 77 */
+ TkPutImage, /* 78 */
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+ XGetModifierMapping, /* 0 */
+ XCreateImage, /* 1 */
+ XGetImage, /* 2 */
+ XGetAtomName, /* 3 */
+ XKeysymToString, /* 4 */
+ XCreateColormap, /* 5 */
+ XGContextFromGC, /* 6 */
+ XKeycodeToKeysym, /* 7 */
+ XStringToKeysym, /* 8 */
+ XRootWindow, /* 9 */
+ XSetErrorHandler, /* 10 */
+ XAllocColor, /* 11 */
+ XBell, /* 12 */
+ XChangeProperty, /* 13 */
+ XChangeWindowAttributes, /* 14 */
+ XConfigureWindow, /* 15 */
+ XCopyArea, /* 16 */
+ XCopyPlane, /* 17 */
+ XDefineCursor, /* 18 */
+ XDestroyWindow, /* 19 */
+ XDrawArc, /* 20 */
+ XDrawLines, /* 21 */
+ XDrawRectangle, /* 22 */
+ XFillArc, /* 23 */
+ XFillPolygon, /* 24 */
+ XFillRectangles, /* 25 */
+ XFreeColormap, /* 26 */
+ XFreeColors, /* 27 */
+ XFreeModifiermap, /* 28 */
+ XGetGeometry, /* 29 */
+ XGetWindowProperty, /* 30 */
+ XGrabKeyboard, /* 31 */
+ XGrabPointer, /* 32 */
+ XKeysymToKeycode, /* 33 */
+ XMapWindow, /* 34 */
+ XMoveResizeWindow, /* 35 */
+ XMoveWindow, /* 36 */
+ XQueryPointer, /* 37 */
+ XRaiseWindow, /* 38 */
+ XRefreshKeyboardMapping, /* 39 */
+ XResizeWindow, /* 40 */
+ XSelectInput, /* 41 */
+ XSendEvent, /* 42 */
+ XSetIconName, /* 43 */
+ XSetInputFocus, /* 44 */
+ XSetSelectionOwner, /* 45 */
+ XSetWindowBackground, /* 46 */
+ XSetWindowBackgroundPixmap, /* 47 */
+ XSetWindowBorder, /* 48 */
+ XSetWindowBorderPixmap, /* 49 */
+ XSetWindowBorderWidth, /* 50 */
+ XSetWindowColormap, /* 51 */
+ XUngrabKeyboard, /* 52 */
+ XUngrabPointer, /* 53 */
+ XUnmapWindow, /* 54 */
+ TkPutImage, /* 55 */
+#endif /* MAC_TCL */
+};
+
+TkIntXlibStubs *tkIntXlibStubsPtr = &tkIntXlibStubs;
+
+TkPlatStubs tkPlatStubs = {
+ TCL_STUB_MAGIC,
+ NULL,
+#ifdef __WIN32__
+ Tk_AttachHWND, /* 0 */
+ Tk_GetHINSTANCE, /* 1 */
+ Tk_GetHWND, /* 2 */
+ Tk_HWNDToWindow, /* 3 */
+ Tk_PointerEvent, /* 4 */
+ Tk_TranslateWinEvent, /* 5 */
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+ Tk_MacSetEmbedHandler, /* 0 */
+ Tk_MacTurnOffMenus, /* 1 */
+ Tk_MacTkOwnsCursor, /* 2 */
+ TkMacInitMenus, /* 3 */
+ TkMacInitAppleEvents, /* 4 */
+ TkMacConvertEvent, /* 5 */
+ TkMacConvertTkEvent, /* 6 */
+ TkGenWMConfigureEvent, /* 7 */
+ TkMacInvalClipRgns, /* 8 */
+ TkMacHaveAppearance, /* 9 */
+ TkMacGetDrawablePort, /* 10 */
+#endif /* MAC_TCL */
+};
+
+TkPlatStubs *tkPlatStubsPtr = &tkPlatStubs;
+
+static TkStubHooks tkStubHooks = {
+ &tkPlatStubs,
+ &tkIntStubs,
+ &tkIntPlatStubs,
+ &tkIntXlibStubs
+};
+
+
+/* !END!: Do not edit above this line. */
diff --git a/generic/tkStubLib.c b/generic/tkStubLib.c
new file mode 100644
index 0000000..85e5d99
--- /dev/null
+++ b/generic/tkStubLib.c
@@ -0,0 +1,102 @@
+/*
+ * tkStubLib.c --
+ *
+ * Stub object that will be statically linked into extensions that wish
+ * to access Tk.
+ *
+ * Copyright (c) 1998 Paul Duffin.
+ * 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: tkStubLib.c,v 1.2 1999/03/10 07:04:43 stanton Exp $
+ */
+
+/*
+ * We need to ensure that we use the stub macros so that this file contains
+ * no references to any of the stub functions. This will make it possible
+ * to build an extension that references Tk_InitStubs but doesn't end up
+ * including the rest of the stub functions.
+ */
+
+
+#ifndef USE_TK_STUBS
+#define USE_TK_STUBS
+#endif
+#undef USE_TK_STUB_PROCS
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+#ifdef __WIN32__
+#include "tkWinInt.h"
+#endif
+
+#include "tkDecls.h"
+#include "tkIntDecls.h"
+#include "tkPlatDecls.h"
+#include "tkIntPlatDecls.h"
+#include "tkIntXlibDecls.h"
+
+/*
+ * Ensure that Tk_InitStubs is built as an exported symbol. The other stub
+ * functions should be built as non-exported symbols.
+ */
+
+#undef TCL_STORAGE_CLASS
+#define TCL_STORAGE_CLASS DLLEXPORT
+
+TkStubs *tkStubsPtr;
+TkPlatStubs *tkPlatStubsPtr;
+TkIntStubs *tkIntStubsPtr;
+TkIntPlatStubs *tkIntPlatStubsPtr;
+TkIntXlibStubs *tkIntXlibStubsPtr;
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_InitStubs --
+ *
+ * Checks that the correct version of Tk is loaded and that it
+ * supports stubs. It then initialises the stub table pointers.
+ *
+ * Results:
+ * The actual version of Tk that satisfies the request, or
+ * NULL to indicate that an error occurred.
+ *
+ * Side effects:
+ * Sets the stub table pointers.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tk_InitStubs(interp, version, exact)
+ Tcl_Interp *interp;
+ char *version;
+ int exact;
+{
+ char *actualVersion;
+
+ actualVersion = Tcl_PkgRequireEx(interp, "Tk", version, exact,
+ (ClientData *) &tkStubsPtr);
+ if (!actualVersion) {
+ return NULL;
+ }
+
+ if (!tkStubsPtr) {
+ Tcl_SetResult(interp,
+ "This implementation of Tk does not support stubs",
+ TCL_STATIC);
+ return NULL;
+ }
+
+ tkPlatStubsPtr = tkStubsPtr->hooks->tkPlatStubs;
+ tkIntStubsPtr = tkStubsPtr->hooks->tkIntStubs;
+ tkIntPlatStubsPtr = tkStubsPtr->hooks->tkIntPlatStubs;
+ tkIntXlibStubsPtr = tkStubsPtr->hooks->tkIntXlibStubs;
+
+ return actualVersion;
+}
diff --git a/generic/tkStubs.c b/generic/tkStubs.c
new file mode 100644
index 0000000..b69022e
--- /dev/null
+++ b/generic/tkStubs.c
@@ -0,0 +1,1933 @@
+/*
+ * tkStubs.c --
+ *
+ * This file contains the wrapper functions for the platform independent
+ * public Tk 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: tkStubs.c,v 1.2 1999/03/10 07:04:43 stanton Exp $
+ */
+
+#include "tk.h"
+
+/*
+ * Undefine function macros that will interfere with the defintions below.
+ */
+
+
+/*
+ * 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:
+ */
+
+/* Slot 0 */
+void
+Tk_MainLoop()
+{
+ (tkStubsPtr->tk_MainLoop)();
+}
+
+/* Slot 1 */
+XColor *
+Tk_3DBorderColor(border)
+ Tk_3DBorder border;
+{
+ return (tkStubsPtr->tk_3DBorderColor)(border);
+}
+
+/* Slot 2 */
+GC
+Tk_3DBorderGC(tkwin, border, which)
+ Tk_Window tkwin;
+ Tk_3DBorder border;
+ int which;
+{
+ return (tkStubsPtr->tk_3DBorderGC)(tkwin, border, which);
+}
+
+/* Slot 3 */
+void
+Tk_3DHorizontalBevel(tkwin, drawable, border, x, y, width, height, leftIn, rightIn, topBevel, relief)
+ Tk_Window tkwin;
+ Drawable drawable;
+ Tk_3DBorder border;
+ int x;
+ int y;
+ int width;
+ int height;
+ int leftIn;
+ int rightIn;
+ int topBevel;
+ int relief;
+{
+ (tkStubsPtr->tk_3DHorizontalBevel)(tkwin, drawable, border, x, y, width, height, leftIn, rightIn, topBevel, relief);
+}
+
+/* Slot 4 */
+void
+Tk_3DVerticalBevel(tkwin, drawable, border, x, y, width, height, leftBevel, relief)
+ Tk_Window tkwin;
+ Drawable drawable;
+ Tk_3DBorder border;
+ int x;
+ int y;
+ int width;
+ int height;
+ int leftBevel;
+ int relief;
+{
+ (tkStubsPtr->tk_3DVerticalBevel)(tkwin, drawable, border, x, y, width, height, leftBevel, relief);
+}
+
+/* Slot 5 */
+void
+Tk_AddOption(tkwin, name, value, priority)
+ Tk_Window tkwin;
+ char * name;
+ char * value;
+ int priority;
+{
+ (tkStubsPtr->tk_AddOption)(tkwin, name, value, priority);
+}
+
+/* Slot 6 */
+void
+Tk_BindEvent(bindingTable, eventPtr, tkwin, numObjects, objectPtr)
+ Tk_BindingTable bindingTable;
+ XEvent * eventPtr;
+ Tk_Window tkwin;
+ int numObjects;
+ ClientData * objectPtr;
+{
+ (tkStubsPtr->tk_BindEvent)(bindingTable, eventPtr, tkwin, numObjects, objectPtr);
+}
+
+/* Slot 7 */
+void
+Tk_CanvasDrawableCoords(canvas, x, y, drawableXPtr, drawableYPtr)
+ Tk_Canvas canvas;
+ double x;
+ double y;
+ short * drawableXPtr;
+ short * drawableYPtr;
+{
+ (tkStubsPtr->tk_CanvasDrawableCoords)(canvas, x, y, drawableXPtr, drawableYPtr);
+}
+
+/* Slot 8 */
+void
+Tk_CanvasEventuallyRedraw(canvas, x1, y1, x2, y2)
+ Tk_Canvas canvas;
+ int x1;
+ int y1;
+ int x2;
+ int y2;
+{
+ (tkStubsPtr->tk_CanvasEventuallyRedraw)(canvas, x1, y1, x2, y2);
+}
+
+/* Slot 9 */
+int
+Tk_CanvasGetCoord(interp, canvas, string, doublePtr)
+ Tcl_Interp * interp;
+ Tk_Canvas canvas;
+ char * string;
+ double * doublePtr;
+{
+ return (tkStubsPtr->tk_CanvasGetCoord)(interp, canvas, string, doublePtr);
+}
+
+/* Slot 10 */
+Tk_CanvasTextInfo *
+Tk_CanvasGetTextInfo(canvas)
+ Tk_Canvas canvas;
+{
+ return (tkStubsPtr->tk_CanvasGetTextInfo)(canvas);
+}
+
+/* Slot 11 */
+int
+Tk_CanvasPsBitmap(interp, canvas, bitmap, x, y, width, height)
+ Tcl_Interp * interp;
+ Tk_Canvas canvas;
+ Pixmap bitmap;
+ int x;
+ int y;
+ int width;
+ int height;
+{
+ return (tkStubsPtr->tk_CanvasPsBitmap)(interp, canvas, bitmap, x, y, width, height);
+}
+
+/* Slot 12 */
+int
+Tk_CanvasPsColor(interp, canvas, colorPtr)
+ Tcl_Interp * interp;
+ Tk_Canvas canvas;
+ XColor * colorPtr;
+{
+ return (tkStubsPtr->tk_CanvasPsColor)(interp, canvas, colorPtr);
+}
+
+/* Slot 13 */
+int
+Tk_CanvasPsFont(interp, canvas, font)
+ Tcl_Interp * interp;
+ Tk_Canvas canvas;
+ Tk_Font font;
+{
+ return (tkStubsPtr->tk_CanvasPsFont)(interp, canvas, font);
+}
+
+/* Slot 14 */
+void
+Tk_CanvasPsPath(interp, canvas, coordPtr, numPoints)
+ Tcl_Interp * interp;
+ Tk_Canvas canvas;
+ double * coordPtr;
+ int numPoints;
+{
+ (tkStubsPtr->tk_CanvasPsPath)(interp, canvas, coordPtr, numPoints);
+}
+
+/* Slot 15 */
+int
+Tk_CanvasPsStipple(interp, canvas, bitmap)
+ Tcl_Interp * interp;
+ Tk_Canvas canvas;
+ Pixmap bitmap;
+{
+ return (tkStubsPtr->tk_CanvasPsStipple)(interp, canvas, bitmap);
+}
+
+/* Slot 16 */
+double
+Tk_CanvasPsY(canvas, y)
+ Tk_Canvas canvas;
+ double y;
+{
+ return (tkStubsPtr->tk_CanvasPsY)(canvas, y);
+}
+
+/* Slot 17 */
+void
+Tk_CanvasSetStippleOrigin(canvas, gc)
+ Tk_Canvas canvas;
+ GC gc;
+{
+ (tkStubsPtr->tk_CanvasSetStippleOrigin)(canvas, gc);
+}
+
+/* Slot 18 */
+int
+Tk_CanvasTagsParseProc(clientData, interp, tkwin, value, widgRec, offset)
+ ClientData clientData;
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * value;
+ char * widgRec;
+ int offset;
+{
+ return (tkStubsPtr->tk_CanvasTagsParseProc)(clientData, interp, tkwin, value, widgRec, offset);
+}
+
+/* Slot 19 */
+char *
+Tk_CanvasTagsPrintProc(clientData, tkwin, widgRec, offset, freeProcPtr)
+ ClientData clientData;
+ Tk_Window tkwin;
+ char * widgRec;
+ int offset;
+ Tcl_FreeProc ** freeProcPtr;
+{
+ return (tkStubsPtr->tk_CanvasTagsPrintProc)(clientData, tkwin, widgRec, offset, freeProcPtr);
+}
+
+/* Slot 20 */
+Tk_Window
+Tk_CanvasTkwin(canvas)
+ Tk_Canvas canvas;
+{
+ return (tkStubsPtr->tk_CanvasTkwin)(canvas);
+}
+
+/* Slot 21 */
+void
+Tk_CanvasWindowCoords(canvas, x, y, screenXPtr, screenYPtr)
+ Tk_Canvas canvas;
+ double x;
+ double y;
+ short * screenXPtr;
+ short * screenYPtr;
+{
+ (tkStubsPtr->tk_CanvasWindowCoords)(canvas, x, y, screenXPtr, screenYPtr);
+}
+
+/* Slot 22 */
+void
+Tk_ChangeWindowAttributes(tkwin, valueMask, attsPtr)
+ Tk_Window tkwin;
+ unsigned long valueMask;
+ XSetWindowAttributes * attsPtr;
+{
+ (tkStubsPtr->tk_ChangeWindowAttributes)(tkwin, valueMask, attsPtr);
+}
+
+/* Slot 23 */
+int
+Tk_CharBbox(layout, index, xPtr, yPtr, widthPtr, heightPtr)
+ Tk_TextLayout layout;
+ int index;
+ int * xPtr;
+ int * yPtr;
+ int * widthPtr;
+ int * heightPtr;
+{
+ return (tkStubsPtr->tk_CharBbox)(layout, index, xPtr, yPtr, widthPtr, heightPtr);
+}
+
+/* Slot 24 */
+void
+Tk_ClearSelection(tkwin, selection)
+ Tk_Window tkwin;
+ Atom selection;
+{
+ (tkStubsPtr->tk_ClearSelection)(tkwin, selection);
+}
+
+/* Slot 25 */
+int
+Tk_ClipboardAppend(interp, tkwin, target, format, buffer)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Atom target;
+ Atom format;
+ char* buffer;
+{
+ return (tkStubsPtr->tk_ClipboardAppend)(interp, tkwin, target, format, buffer);
+}
+
+/* Slot 26 */
+int
+Tk_ClipboardClear(interp, tkwin)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+{
+ return (tkStubsPtr->tk_ClipboardClear)(interp, tkwin);
+}
+
+/* Slot 27 */
+int
+Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_ConfigSpec * specs;
+ char * widgRec;
+ char * argvName;
+ int flags;
+{
+ return (tkStubsPtr->tk_ConfigureInfo)(interp, tkwin, specs, widgRec, argvName, flags);
+}
+
+/* Slot 28 */
+int
+Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_ConfigSpec * specs;
+ char * widgRec;
+ char * argvName;
+ int flags;
+{
+ return (tkStubsPtr->tk_ConfigureValue)(interp, tkwin, specs, widgRec, argvName, flags);
+}
+
+/* Slot 29 */
+int
+Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_ConfigSpec * specs;
+ int argc;
+ char ** argv;
+ char * widgRec;
+ int flags;
+{
+ return (tkStubsPtr->tk_ConfigureWidget)(interp, tkwin, specs, argc, argv, widgRec, flags);
+}
+
+/* Slot 30 */
+void
+Tk_ConfigureWindow(tkwin, valueMask, valuePtr)
+ Tk_Window tkwin;
+ unsigned int valueMask;
+ XWindowChanges * valuePtr;
+{
+ (tkStubsPtr->tk_ConfigureWindow)(tkwin, valueMask, valuePtr);
+}
+
+/* Slot 31 */
+Tk_TextLayout
+Tk_ComputeTextLayout(font, string, numChars, wrapLength, justify, flags, widthPtr, heightPtr)
+ Tk_Font font;
+ CONST char * string;
+ int numChars;
+ int wrapLength;
+ Tk_Justify justify;
+ int flags;
+ int * widthPtr;
+ int * heightPtr;
+{
+ return (tkStubsPtr->tk_ComputeTextLayout)(font, string, numChars, wrapLength, justify, flags, widthPtr, heightPtr);
+}
+
+/* Slot 32 */
+Tk_Window
+Tk_CoordsToWindow(rootX, rootY, tkwin)
+ int rootX;
+ int rootY;
+ Tk_Window tkwin;
+{
+ return (tkStubsPtr->tk_CoordsToWindow)(rootX, rootY, tkwin);
+}
+
+/* Slot 33 */
+unsigned long
+Tk_CreateBinding(interp, bindingTable, object, eventString, command, append)
+ Tcl_Interp * interp;
+ Tk_BindingTable bindingTable;
+ ClientData object;
+ char * eventString;
+ char * command;
+ int append;
+{
+ return (tkStubsPtr->tk_CreateBinding)(interp, bindingTable, object, eventString, command, append);
+}
+
+/* Slot 34 */
+Tk_BindingTable
+Tk_CreateBindingTable(interp)
+ Tcl_Interp * interp;
+{
+ return (tkStubsPtr->tk_CreateBindingTable)(interp);
+}
+
+/* Slot 35 */
+Tk_ErrorHandler
+Tk_CreateErrorHandler(display, errNum, request, minorCode, errorProc, clientData)
+ Display * display;
+ int errNum;
+ int request;
+ int minorCode;
+ Tk_ErrorProc * errorProc;
+ ClientData clientData;
+{
+ return (tkStubsPtr->tk_CreateErrorHandler)(display, errNum, request, minorCode, errorProc, clientData);
+}
+
+/* Slot 36 */
+void
+Tk_CreateEventHandler(token, mask, proc, clientData)
+ Tk_Window token;
+ unsigned long mask;
+ Tk_EventProc * proc;
+ ClientData clientData;
+{
+ (tkStubsPtr->tk_CreateEventHandler)(token, mask, proc, clientData);
+}
+
+/* Slot 37 */
+void
+Tk_CreateGenericHandler(proc, clientData)
+ Tk_GenericProc * proc;
+ ClientData clientData;
+{
+ (tkStubsPtr->tk_CreateGenericHandler)(proc, clientData);
+}
+
+/* Slot 38 */
+void
+Tk_CreateImageType(typePtr)
+ Tk_ImageType * typePtr;
+{
+ (tkStubsPtr->tk_CreateImageType)(typePtr);
+}
+
+/* Slot 39 */
+void
+Tk_CreateItemType(typePtr)
+ Tk_ItemType * typePtr;
+{
+ (tkStubsPtr->tk_CreateItemType)(typePtr);
+}
+
+/* Slot 40 */
+void
+Tk_CreatePhotoImageFormat(formatPtr)
+ Tk_PhotoImageFormat * formatPtr;
+{
+ (tkStubsPtr->tk_CreatePhotoImageFormat)(formatPtr);
+}
+
+/* Slot 41 */
+void
+Tk_CreateSelHandler(tkwin, selection, target, proc, clientData, format)
+ Tk_Window tkwin;
+ Atom selection;
+ Atom target;
+ Tk_SelectionProc * proc;
+ ClientData clientData;
+ Atom format;
+{
+ (tkStubsPtr->tk_CreateSelHandler)(tkwin, selection, target, proc, clientData, format);
+}
+
+/* Slot 42 */
+Tk_Window
+Tk_CreateWindow(interp, parent, name, screenName)
+ Tcl_Interp * interp;
+ Tk_Window parent;
+ char * name;
+ char * screenName;
+{
+ return (tkStubsPtr->tk_CreateWindow)(interp, parent, name, screenName);
+}
+
+/* Slot 43 */
+Tk_Window
+Tk_CreateWindowFromPath(interp, tkwin, pathName, screenName)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * pathName;
+ char * screenName;
+{
+ return (tkStubsPtr->tk_CreateWindowFromPath)(interp, tkwin, pathName, screenName);
+}
+
+/* Slot 44 */
+int
+Tk_DefineBitmap(interp, name, source, width, height)
+ Tcl_Interp * interp;
+ Tk_Uid name;
+ char * source;
+ int width;
+ int height;
+{
+ return (tkStubsPtr->tk_DefineBitmap)(interp, name, source, width, height);
+}
+
+/* Slot 45 */
+void
+Tk_DefineCursor(window, cursor)
+ Tk_Window window;
+ Tk_Cursor cursor;
+{
+ (tkStubsPtr->tk_DefineCursor)(window, cursor);
+}
+
+/* Slot 46 */
+void
+Tk_DeleteAllBindings(bindingTable, object)
+ Tk_BindingTable bindingTable;
+ ClientData object;
+{
+ (tkStubsPtr->tk_DeleteAllBindings)(bindingTable, object);
+}
+
+/* Slot 47 */
+int
+Tk_DeleteBinding(interp, bindingTable, object, eventString)
+ Tcl_Interp * interp;
+ Tk_BindingTable bindingTable;
+ ClientData object;
+ char * eventString;
+{
+ return (tkStubsPtr->tk_DeleteBinding)(interp, bindingTable, object, eventString);
+}
+
+/* Slot 48 */
+void
+Tk_DeleteBindingTable(bindingTable)
+ Tk_BindingTable bindingTable;
+{
+ (tkStubsPtr->tk_DeleteBindingTable)(bindingTable);
+}
+
+/* Slot 49 */
+void
+Tk_DeleteErrorHandler(handler)
+ Tk_ErrorHandler handler;
+{
+ (tkStubsPtr->tk_DeleteErrorHandler)(handler);
+}
+
+/* Slot 50 */
+void
+Tk_DeleteEventHandler(token, mask, proc, clientData)
+ Tk_Window token;
+ unsigned long mask;
+ Tk_EventProc * proc;
+ ClientData clientData;
+{
+ (tkStubsPtr->tk_DeleteEventHandler)(token, mask, proc, clientData);
+}
+
+/* Slot 51 */
+void
+Tk_DeleteGenericHandler(proc, clientData)
+ Tk_GenericProc * proc;
+ ClientData clientData;
+{
+ (tkStubsPtr->tk_DeleteGenericHandler)(proc, clientData);
+}
+
+/* Slot 52 */
+void
+Tk_DeleteImage(interp, name)
+ Tcl_Interp * interp;
+ char * name;
+{
+ (tkStubsPtr->tk_DeleteImage)(interp, name);
+}
+
+/* Slot 53 */
+void
+Tk_DeleteSelHandler(tkwin, selection, target)
+ Tk_Window tkwin;
+ Atom selection;
+ Atom target;
+{
+ (tkStubsPtr->tk_DeleteSelHandler)(tkwin, selection, target);
+}
+
+/* Slot 54 */
+void
+Tk_DestroyWindow(tkwin)
+ Tk_Window tkwin;
+{
+ (tkStubsPtr->tk_DestroyWindow)(tkwin);
+}
+
+/* Slot 55 */
+char *
+Tk_DisplayName(tkwin)
+ Tk_Window tkwin;
+{
+ return (tkStubsPtr->tk_DisplayName)(tkwin);
+}
+
+/* Slot 56 */
+int
+Tk_DistanceToTextLayout(layout, x, y)
+ Tk_TextLayout layout;
+ int x;
+ int y;
+{
+ return (tkStubsPtr->tk_DistanceToTextLayout)(layout, x, y);
+}
+
+/* Slot 57 */
+void
+Tk_Draw3DPolygon(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief)
+ Tk_Window tkwin;
+ Drawable drawable;
+ Tk_3DBorder border;
+ XPoint * pointPtr;
+ int numPoints;
+ int borderWidth;
+ int leftRelief;
+{
+ (tkStubsPtr->tk_Draw3DPolygon)(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief);
+}
+
+/* Slot 58 */
+void
+Tk_Draw3DRectangle(tkwin, drawable, border, x, y, width, height, borderWidth, relief)
+ Tk_Window tkwin;
+ Drawable drawable;
+ Tk_3DBorder border;
+ int x;
+ int y;
+ int width;
+ int height;
+ int borderWidth;
+ int relief;
+{
+ (tkStubsPtr->tk_Draw3DRectangle)(tkwin, drawable, border, x, y, width, height, borderWidth, relief);
+}
+
+/* Slot 59 */
+void
+Tk_DrawChars(display, drawable, gc, tkfont, source, numChars, x, y)
+ Display * display;
+ Drawable drawable;
+ GC gc;
+ Tk_Font tkfont;
+ CONST char * source;
+ int numChars;
+ int x;
+ int y;
+{
+ (tkStubsPtr->tk_DrawChars)(display, drawable, gc, tkfont, source, numChars, x, y);
+}
+
+/* Slot 60 */
+void
+Tk_DrawFocusHighlight(tkwin, gc, width, drawable)
+ Tk_Window tkwin;
+ GC gc;
+ int width;
+ Drawable drawable;
+{
+ (tkStubsPtr->tk_DrawFocusHighlight)(tkwin, gc, width, drawable);
+}
+
+/* Slot 61 */
+void
+Tk_DrawTextLayout(display, drawable, gc, layout, x, y, firstChar, lastChar)
+ Display * display;
+ Drawable drawable;
+ GC gc;
+ Tk_TextLayout layout;
+ int x;
+ int y;
+ int firstChar;
+ int lastChar;
+{
+ (tkStubsPtr->tk_DrawTextLayout)(display, drawable, gc, layout, x, y, firstChar, lastChar);
+}
+
+/* Slot 62 */
+void
+Tk_Fill3DPolygon(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief)
+ Tk_Window tkwin;
+ Drawable drawable;
+ Tk_3DBorder border;
+ XPoint * pointPtr;
+ int numPoints;
+ int borderWidth;
+ int leftRelief;
+{
+ (tkStubsPtr->tk_Fill3DPolygon)(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief);
+}
+
+/* Slot 63 */
+void
+Tk_Fill3DRectangle(tkwin, drawable, border, x, y, width, height, borderWidth, relief)
+ Tk_Window tkwin;
+ Drawable drawable;
+ Tk_3DBorder border;
+ int x;
+ int y;
+ int width;
+ int height;
+ int borderWidth;
+ int relief;
+{
+ (tkStubsPtr->tk_Fill3DRectangle)(tkwin, drawable, border, x, y, width, height, borderWidth, relief);
+}
+
+/* Slot 64 */
+Tk_PhotoHandle
+Tk_FindPhoto(interp, imageName)
+ Tcl_Interp * interp;
+ char * imageName;
+{
+ return (tkStubsPtr->tk_FindPhoto)(interp, imageName);
+}
+
+/* Slot 65 */
+Font
+Tk_FontId(font)
+ Tk_Font font;
+{
+ return (tkStubsPtr->tk_FontId)(font);
+}
+
+/* Slot 66 */
+void
+Tk_Free3DBorder(border)
+ Tk_3DBorder border;
+{
+ (tkStubsPtr->tk_Free3DBorder)(border);
+}
+
+/* Slot 67 */
+void
+Tk_FreeBitmap(display, bitmap)
+ Display * display;
+ Pixmap bitmap;
+{
+ (tkStubsPtr->tk_FreeBitmap)(display, bitmap);
+}
+
+/* Slot 68 */
+void
+Tk_FreeColor(colorPtr)
+ XColor * colorPtr;
+{
+ (tkStubsPtr->tk_FreeColor)(colorPtr);
+}
+
+/* Slot 69 */
+void
+Tk_FreeColormap(display, colormap)
+ Display * display;
+ Colormap colormap;
+{
+ (tkStubsPtr->tk_FreeColormap)(display, colormap);
+}
+
+/* Slot 70 */
+void
+Tk_FreeCursor(display, cursor)
+ Display * display;
+ Tk_Cursor cursor;
+{
+ (tkStubsPtr->tk_FreeCursor)(display, cursor);
+}
+
+/* Slot 71 */
+void
+Tk_FreeFont(f)
+ Tk_Font f;
+{
+ (tkStubsPtr->tk_FreeFont)(f);
+}
+
+/* Slot 72 */
+void
+Tk_FreeGC(display, gc)
+ Display * display;
+ GC gc;
+{
+ (tkStubsPtr->tk_FreeGC)(display, gc);
+}
+
+/* Slot 73 */
+void
+Tk_FreeImage(image)
+ Tk_Image image;
+{
+ (tkStubsPtr->tk_FreeImage)(image);
+}
+
+/* Slot 74 */
+void
+Tk_FreeOptions(specs, widgRec, display, needFlags)
+ Tk_ConfigSpec * specs;
+ char * widgRec;
+ Display * display;
+ int needFlags;
+{
+ (tkStubsPtr->tk_FreeOptions)(specs, widgRec, display, needFlags);
+}
+
+/* Slot 75 */
+void
+Tk_FreePixmap(display, pixmap)
+ Display * display;
+ Pixmap pixmap;
+{
+ (tkStubsPtr->tk_FreePixmap)(display, pixmap);
+}
+
+/* Slot 76 */
+void
+Tk_FreeTextLayout(textLayout)
+ Tk_TextLayout textLayout;
+{
+ (tkStubsPtr->tk_FreeTextLayout)(textLayout);
+}
+
+/* Slot 77 */
+void
+Tk_FreeXId(display, xid)
+ Display * display;
+ XID xid;
+{
+ (tkStubsPtr->tk_FreeXId)(display, xid);
+}
+
+/* Slot 78 */
+GC
+Tk_GCForColor(colorPtr, drawable)
+ XColor * colorPtr;
+ Drawable drawable;
+{
+ return (tkStubsPtr->tk_GCForColor)(colorPtr, drawable);
+}
+
+/* Slot 79 */
+void
+Tk_GeometryRequest(tkwin, reqWidth, reqHeight)
+ Tk_Window tkwin;
+ int reqWidth;
+ int reqHeight;
+{
+ (tkStubsPtr->tk_GeometryRequest)(tkwin, reqWidth, reqHeight);
+}
+
+/* Slot 80 */
+Tk_3DBorder
+Tk_Get3DBorder(interp, tkwin, colorName)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_Uid colorName;
+{
+ return (tkStubsPtr->tk_Get3DBorder)(interp, tkwin, colorName);
+}
+
+/* Slot 81 */
+void
+Tk_GetAllBindings(interp, bindingTable, object)
+ Tcl_Interp * interp;
+ Tk_BindingTable bindingTable;
+ ClientData object;
+{
+ (tkStubsPtr->tk_GetAllBindings)(interp, bindingTable, object);
+}
+
+/* Slot 82 */
+int
+Tk_GetAnchor(interp, string, anchorPtr)
+ Tcl_Interp * interp;
+ char * string;
+ Tk_Anchor * anchorPtr;
+{
+ return (tkStubsPtr->tk_GetAnchor)(interp, string, anchorPtr);
+}
+
+/* Slot 83 */
+char *
+Tk_GetAtomName(tkwin, atom)
+ Tk_Window tkwin;
+ Atom atom;
+{
+ return (tkStubsPtr->tk_GetAtomName)(tkwin, atom);
+}
+
+/* Slot 84 */
+char *
+Tk_GetBinding(interp, bindingTable, object, eventString)
+ Tcl_Interp * interp;
+ Tk_BindingTable bindingTable;
+ ClientData object;
+ char * eventString;
+{
+ return (tkStubsPtr->tk_GetBinding)(interp, bindingTable, object, eventString);
+}
+
+/* Slot 85 */
+Pixmap
+Tk_GetBitmap(interp, tkwin, string)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_Uid string;
+{
+ return (tkStubsPtr->tk_GetBitmap)(interp, tkwin, string);
+}
+
+/* Slot 86 */
+Pixmap
+Tk_GetBitmapFromData(interp, tkwin, source, width, height)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * source;
+ int width;
+ int height;
+{
+ return (tkStubsPtr->tk_GetBitmapFromData)(interp, tkwin, source, width, height);
+}
+
+/* Slot 87 */
+int
+Tk_GetCapStyle(interp, string, capPtr)
+ Tcl_Interp * interp;
+ char * string;
+ int * capPtr;
+{
+ return (tkStubsPtr->tk_GetCapStyle)(interp, string, capPtr);
+}
+
+/* Slot 88 */
+XColor *
+Tk_GetColor(interp, tkwin, name)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_Uid name;
+{
+ return (tkStubsPtr->tk_GetColor)(interp, tkwin, name);
+}
+
+/* Slot 89 */
+XColor *
+Tk_GetColorByValue(tkwin, colorPtr)
+ Tk_Window tkwin;
+ XColor * colorPtr;
+{
+ return (tkStubsPtr->tk_GetColorByValue)(tkwin, colorPtr);
+}
+
+/* Slot 90 */
+Colormap
+Tk_GetColormap(interp, tkwin, string)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * string;
+{
+ return (tkStubsPtr->tk_GetColormap)(interp, tkwin, string);
+}
+
+/* Slot 91 */
+Tk_Cursor
+Tk_GetCursor(interp, tkwin, string)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tk_Uid string;
+{
+ return (tkStubsPtr->tk_GetCursor)(interp, tkwin, string);
+}
+
+/* Slot 92 */
+Tk_Cursor
+Tk_GetCursorFromData(interp, tkwin, source, mask, width, height, xHot, yHot, fg, bg)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * source;
+ char * mask;
+ int width;
+ int height;
+ int xHot;
+ int yHot;
+ Tk_Uid fg;
+ Tk_Uid bg;
+{
+ return (tkStubsPtr->tk_GetCursorFromData)(interp, tkwin, source, mask, width, height, xHot, yHot, fg, bg);
+}
+
+/* Slot 93 */
+Tk_Font
+Tk_GetFont(interp, tkwin, string)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ CONST char * string;
+{
+ return (tkStubsPtr->tk_GetFont)(interp, tkwin, string);
+}
+
+/* Slot 94 */
+Tk_Font
+Tk_GetFontFromObj(interp, tkwin, objPtr)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Tcl_Obj * objPtr;
+{
+ return (tkStubsPtr->tk_GetFontFromObj)(interp, tkwin, objPtr);
+}
+
+/* Slot 95 */
+void
+Tk_GetFontMetrics(font, fmPtr)
+ Tk_Font font;
+ Tk_FontMetrics * fmPtr;
+{
+ (tkStubsPtr->tk_GetFontMetrics)(font, fmPtr);
+}
+
+/* Slot 96 */
+GC
+Tk_GetGC(tkwin, valueMask, valuePtr)
+ Tk_Window tkwin;
+ unsigned long valueMask;
+ XGCValues * valuePtr;
+{
+ return (tkStubsPtr->tk_GetGC)(tkwin, valueMask, valuePtr);
+}
+
+/* Slot 97 */
+Tk_Image
+Tk_GetImage(interp, tkwin, name, changeProc, clientData)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * name;
+ Tk_ImageChangedProc * changeProc;
+ ClientData clientData;
+{
+ return (tkStubsPtr->tk_GetImage)(interp, tkwin, name, changeProc, clientData);
+}
+
+/* Slot 98 */
+ClientData
+Tk_GetImageMasterData(interp, name, typePtrPtr)
+ Tcl_Interp * interp;
+ char * name;
+ Tk_ImageType ** typePtrPtr;
+{
+ return (tkStubsPtr->tk_GetImageMasterData)(interp, name, typePtrPtr);
+}
+
+/* Slot 99 */
+Tk_ItemType *
+Tk_GetItemTypes()
+{
+ return (tkStubsPtr->tk_GetItemTypes)();
+}
+
+/* Slot 100 */
+int
+Tk_GetJoinStyle(interp, string, joinPtr)
+ Tcl_Interp * interp;
+ char * string;
+ int * joinPtr;
+{
+ return (tkStubsPtr->tk_GetJoinStyle)(interp, string, joinPtr);
+}
+
+/* Slot 101 */
+int
+Tk_GetJustify(interp, string, justifyPtr)
+ Tcl_Interp * interp;
+ char * string;
+ Tk_Justify * justifyPtr;
+{
+ return (tkStubsPtr->tk_GetJustify)(interp, string, justifyPtr);
+}
+
+/* Slot 102 */
+int
+Tk_GetNumMainWindows()
+{
+ return (tkStubsPtr->tk_GetNumMainWindows)();
+}
+
+/* Slot 103 */
+Tk_Uid
+Tk_GetOption(tkwin, name, className)
+ Tk_Window tkwin;
+ char * name;
+ char * className;
+{
+ return (tkStubsPtr->tk_GetOption)(tkwin, name, className);
+}
+
+/* Slot 104 */
+int
+Tk_GetPixels(interp, tkwin, string, intPtr)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * string;
+ int * intPtr;
+{
+ return (tkStubsPtr->tk_GetPixels)(interp, tkwin, string, intPtr);
+}
+
+/* Slot 105 */
+Pixmap
+Tk_GetPixmap(display, d, width, height, depth)
+ Display * display;
+ Drawable d;
+ int width;
+ int height;
+ int depth;
+{
+ return (tkStubsPtr->tk_GetPixmap)(display, d, width, height, depth);
+}
+
+/* Slot 106 */
+int
+Tk_GetRelief(interp, name, reliefPtr)
+ Tcl_Interp * interp;
+ char * name;
+ int * reliefPtr;
+{
+ return (tkStubsPtr->tk_GetRelief)(interp, name, reliefPtr);
+}
+
+/* Slot 107 */
+void
+Tk_GetRootCoords(tkwin, xPtr, yPtr)
+ Tk_Window tkwin;
+ int * xPtr;
+ int * yPtr;
+{
+ (tkStubsPtr->tk_GetRootCoords)(tkwin, xPtr, yPtr);
+}
+
+/* Slot 108 */
+int
+Tk_GetScrollInfo(interp, argc, argv, dblPtr, intPtr)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+ double * dblPtr;
+ int * intPtr;
+{
+ return (tkStubsPtr->tk_GetScrollInfo)(interp, argc, argv, dblPtr, intPtr);
+}
+
+/* Slot 109 */
+int
+Tk_GetScreenMM(interp, tkwin, string, doublePtr)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * string;
+ double * doublePtr;
+{
+ return (tkStubsPtr->tk_GetScreenMM)(interp, tkwin, string, doublePtr);
+}
+
+/* Slot 110 */
+int
+Tk_GetSelection(interp, tkwin, selection, target, proc, clientData)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ Atom selection;
+ Atom target;
+ Tk_GetSelProc * proc;
+ ClientData clientData;
+{
+ return (tkStubsPtr->tk_GetSelection)(interp, tkwin, selection, target, proc, clientData);
+}
+
+/* Slot 111 */
+Tk_Uid
+Tk_GetUid(string)
+ CONST char * string;
+{
+ return (tkStubsPtr->tk_GetUid)(string);
+}
+
+/* Slot 112 */
+Visual *
+Tk_GetVisual(interp, tkwin, string, depthPtr, colormapPtr)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ char * string;
+ int * depthPtr;
+ Colormap * colormapPtr;
+{
+ return (tkStubsPtr->tk_GetVisual)(interp, tkwin, string, depthPtr, colormapPtr);
+}
+
+/* Slot 113 */
+void
+Tk_GetVRootGeometry(tkwin, xPtr, yPtr, widthPtr, heightPtr)
+ Tk_Window tkwin;
+ int * xPtr;
+ int * yPtr;
+ int * widthPtr;
+ int * heightPtr;
+{
+ (tkStubsPtr->tk_GetVRootGeometry)(tkwin, xPtr, yPtr, widthPtr, heightPtr);
+}
+
+/* Slot 114 */
+int
+Tk_Grab(interp, tkwin, grabGlobal)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ int grabGlobal;
+{
+ return (tkStubsPtr->tk_Grab)(interp, tkwin, grabGlobal);
+}
+
+/* Slot 115 */
+void
+Tk_HandleEvent(eventPtr)
+ XEvent * eventPtr;
+{
+ (tkStubsPtr->tk_HandleEvent)(eventPtr);
+}
+
+/* Slot 116 */
+Tk_Window
+Tk_IdToWindow(display, window)
+ Display * display;
+ Window window;
+{
+ return (tkStubsPtr->tk_IdToWindow)(display, window);
+}
+
+/* Slot 117 */
+void
+Tk_ImageChanged(master, x, y, width, height, imageWidth, imageHeight)
+ Tk_ImageMaster master;
+ int x;
+ int y;
+ int width;
+ int height;
+ int imageWidth;
+ int imageHeight;
+{
+ (tkStubsPtr->tk_ImageChanged)(master, x, y, width, height, imageWidth, imageHeight);
+}
+
+/* Slot 118 */
+int
+Tk_Init(interp)
+ Tcl_Interp * interp;
+{
+ return (tkStubsPtr->tk_Init)(interp);
+}
+
+/* Slot 119 */
+Atom
+Tk_InternAtom(tkwin, name)
+ Tk_Window tkwin;
+ char * name;
+{
+ return (tkStubsPtr->tk_InternAtom)(tkwin, name);
+}
+
+/* Slot 120 */
+int
+Tk_IntersectTextLayout(layout, x, y, width, height)
+ Tk_TextLayout layout;
+ int x;
+ int y;
+ int width;
+ int height;
+{
+ return (tkStubsPtr->tk_IntersectTextLayout)(layout, x, y, width, height);
+}
+
+/* Slot 121 */
+void
+Tk_MaintainGeometry(slave, master, x, y, width, height)
+ Tk_Window slave;
+ Tk_Window master;
+ int x;
+ int y;
+ int width;
+ int height;
+{
+ (tkStubsPtr->tk_MaintainGeometry)(slave, master, x, y, width, height);
+}
+
+/* Slot 122 */
+Tk_Window
+Tk_MainWindow(interp)
+ Tcl_Interp * interp;
+{
+ return (tkStubsPtr->tk_MainWindow)(interp);
+}
+
+/* Slot 123 */
+void
+Tk_MakeWindowExist(tkwin)
+ Tk_Window tkwin;
+{
+ (tkStubsPtr->tk_MakeWindowExist)(tkwin);
+}
+
+/* Slot 124 */
+void
+Tk_ManageGeometry(tkwin, mgrPtr, clientData)
+ Tk_Window tkwin;
+ Tk_GeomMgr * mgrPtr;
+ ClientData clientData;
+{
+ (tkStubsPtr->tk_ManageGeometry)(tkwin, mgrPtr, clientData);
+}
+
+/* Slot 125 */
+void
+Tk_MapWindow(tkwin)
+ Tk_Window tkwin;
+{
+ (tkStubsPtr->tk_MapWindow)(tkwin);
+}
+
+/* Slot 126 */
+int
+Tk_MeasureChars(tkfont, source, maxChars, maxPixels, flags, lengthPtr)
+ Tk_Font tkfont;
+ CONST char * source;
+ int maxChars;
+ int maxPixels;
+ int flags;
+ int * lengthPtr;
+{
+ return (tkStubsPtr->tk_MeasureChars)(tkfont, source, maxChars, maxPixels, flags, lengthPtr);
+}
+
+/* Slot 127 */
+void
+Tk_MoveResizeWindow(tkwin, x, y, width, height)
+ Tk_Window tkwin;
+ int x;
+ int y;
+ int width;
+ int height;
+{
+ (tkStubsPtr->tk_MoveResizeWindow)(tkwin, x, y, width, height);
+}
+
+/* Slot 128 */
+void
+Tk_MoveWindow(tkwin, x, y)
+ Tk_Window tkwin;
+ int x;
+ int y;
+{
+ (tkStubsPtr->tk_MoveWindow)(tkwin, x, y);
+}
+
+/* Slot 129 */
+void
+Tk_MoveToplevelWindow(tkwin, x, y)
+ Tk_Window tkwin;
+ int x;
+ int y;
+{
+ (tkStubsPtr->tk_MoveToplevelWindow)(tkwin, x, y);
+}
+
+/* Slot 130 */
+char *
+Tk_NameOf3DBorder(border)
+ Tk_3DBorder border;
+{
+ return (tkStubsPtr->tk_NameOf3DBorder)(border);
+}
+
+/* Slot 131 */
+char *
+Tk_NameOfAnchor(anchor)
+ Tk_Anchor anchor;
+{
+ return (tkStubsPtr->tk_NameOfAnchor)(anchor);
+}
+
+/* Slot 132 */
+char *
+Tk_NameOfBitmap(display, bitmap)
+ Display * display;
+ Pixmap bitmap;
+{
+ return (tkStubsPtr->tk_NameOfBitmap)(display, bitmap);
+}
+
+/* Slot 133 */
+char *
+Tk_NameOfCapStyle(cap)
+ int cap;
+{
+ return (tkStubsPtr->tk_NameOfCapStyle)(cap);
+}
+
+/* Slot 134 */
+char *
+Tk_NameOfColor(colorPtr)
+ XColor * colorPtr;
+{
+ return (tkStubsPtr->tk_NameOfColor)(colorPtr);
+}
+
+/* Slot 135 */
+char *
+Tk_NameOfCursor(display, cursor)
+ Display * display;
+ Tk_Cursor cursor;
+{
+ return (tkStubsPtr->tk_NameOfCursor)(display, cursor);
+}
+
+/* Slot 136 */
+char *
+Tk_NameOfFont(font)
+ Tk_Font font;
+{
+ return (tkStubsPtr->tk_NameOfFont)(font);
+}
+
+/* Slot 137 */
+char *
+Tk_NameOfImage(imageMaster)
+ Tk_ImageMaster imageMaster;
+{
+ return (tkStubsPtr->tk_NameOfImage)(imageMaster);
+}
+
+/* Slot 138 */
+char *
+Tk_NameOfJoinStyle(join)
+ int join;
+{
+ return (tkStubsPtr->tk_NameOfJoinStyle)(join);
+}
+
+/* Slot 139 */
+char *
+Tk_NameOfJustify(justify)
+ Tk_Justify justify;
+{
+ return (tkStubsPtr->tk_NameOfJustify)(justify);
+}
+
+/* Slot 140 */
+char *
+Tk_NameOfRelief(relief)
+ int relief;
+{
+ return (tkStubsPtr->tk_NameOfRelief)(relief);
+}
+
+/* Slot 141 */
+Tk_Window
+Tk_NameToWindow(interp, pathName, tkwin)
+ Tcl_Interp * interp;
+ char * pathName;
+ Tk_Window tkwin;
+{
+ return (tkStubsPtr->tk_NameToWindow)(interp, pathName, tkwin);
+}
+
+/* Slot 142 */
+void
+Tk_OwnSelection(tkwin, selection, proc, clientData)
+ Tk_Window tkwin;
+ Atom selection;
+ Tk_LostSelProc * proc;
+ ClientData clientData;
+{
+ (tkStubsPtr->tk_OwnSelection)(tkwin, selection, proc, clientData);
+}
+
+/* Slot 143 */
+int
+Tk_ParseArgv(interp, tkwin, argcPtr, argv, argTable, flags)
+ Tcl_Interp * interp;
+ Tk_Window tkwin;
+ int * argcPtr;
+ char ** argv;
+ Tk_ArgvInfo * argTable;
+ int flags;
+{
+ return (tkStubsPtr->tk_ParseArgv)(interp, tkwin, argcPtr, argv, argTable, flags);
+}
+
+/* Slot 144 */
+void
+Tk_PhotoPutBlock(handle, blockPtr, x, y, width, height)
+ Tk_PhotoHandle handle;
+ Tk_PhotoImageBlock * blockPtr;
+ int x;
+ int y;
+ int width;
+ int height;
+{
+ (tkStubsPtr->tk_PhotoPutBlock)(handle, blockPtr, x, y, width, height);
+}
+
+/* Slot 145 */
+void
+Tk_PhotoPutZoomedBlock(handle, blockPtr, x, y, width, height, zoomX, zoomY, subsampleX, subsampleY)
+ Tk_PhotoHandle handle;
+ Tk_PhotoImageBlock * blockPtr;
+ int x;
+ int y;
+ int width;
+ int height;
+ int zoomX;
+ int zoomY;
+ int subsampleX;
+ int subsampleY;
+{
+ (tkStubsPtr->tk_PhotoPutZoomedBlock)(handle, blockPtr, x, y, width, height, zoomX, zoomY, subsampleX, subsampleY);
+}
+
+/* Slot 146 */
+int
+Tk_PhotoGetImage(handle, blockPtr)
+ Tk_PhotoHandle handle;
+ Tk_PhotoImageBlock * blockPtr;
+{
+ return (tkStubsPtr->tk_PhotoGetImage)(handle, blockPtr);
+}
+
+/* Slot 147 */
+void
+Tk_PhotoBlank(handle)
+ Tk_PhotoHandle handle;
+{
+ (tkStubsPtr->tk_PhotoBlank)(handle);
+}
+
+/* Slot 148 */
+void
+Tk_PhotoExpand(handle, width, height)
+ Tk_PhotoHandle handle;
+ int width;
+ int height;
+{
+ (tkStubsPtr->tk_PhotoExpand)(handle, width, height);
+}
+
+/* Slot 149 */
+void
+Tk_PhotoGetSize(handle, widthPtr, heightPtr)
+ Tk_PhotoHandle handle;
+ int * widthPtr;
+ int * heightPtr;
+{
+ (tkStubsPtr->tk_PhotoGetSize)(handle, widthPtr, heightPtr);
+}
+
+/* Slot 150 */
+void
+Tk_PhotoSetSize(handle, width, height)
+ Tk_PhotoHandle handle;
+ int width;
+ int height;
+{
+ (tkStubsPtr->tk_PhotoSetSize)(handle, width, height);
+}
+
+/* Slot 151 */
+int
+Tk_PointToChar(layout, x, y)
+ Tk_TextLayout layout;
+ int x;
+ int y;
+{
+ return (tkStubsPtr->tk_PointToChar)(layout, x, y);
+}
+
+/* Slot 152 */
+int
+Tk_PostscriptFontName(tkfont, dsPtr)
+ Tk_Font tkfont;
+ Tcl_DString * dsPtr;
+{
+ return (tkStubsPtr->tk_PostscriptFontName)(tkfont, dsPtr);
+}
+
+/* Slot 153 */
+void
+Tk_PreserveColormap(display, colormap)
+ Display * display;
+ Colormap colormap;
+{
+ (tkStubsPtr->tk_PreserveColormap)(display, colormap);
+}
+
+/* Slot 154 */
+void
+Tk_QueueWindowEvent(eventPtr, position)
+ XEvent * eventPtr;
+ Tcl_QueuePosition position;
+{
+ (tkStubsPtr->tk_QueueWindowEvent)(eventPtr, position);
+}
+
+/* Slot 155 */
+void
+Tk_RedrawImage(image, imageX, imageY, width, height, drawable, drawableX, drawableY)
+ Tk_Image image;
+ int imageX;
+ int imageY;
+ int width;
+ int height;
+ Drawable drawable;
+ int drawableX;
+ int drawableY;
+{
+ (tkStubsPtr->tk_RedrawImage)(image, imageX, imageY, width, height, drawable, drawableX, drawableY);
+}
+
+/* Slot 156 */
+void
+Tk_ResizeWindow(tkwin, width, height)
+ Tk_Window tkwin;
+ int width;
+ int height;
+{
+ (tkStubsPtr->tk_ResizeWindow)(tkwin, width, height);
+}
+
+/* Slot 157 */
+int
+Tk_RestackWindow(tkwin, aboveBelow, other)
+ Tk_Window tkwin;
+ int aboveBelow;
+ Tk_Window other;
+{
+ return (tkStubsPtr->tk_RestackWindow)(tkwin, aboveBelow, other);
+}
+
+/* Slot 158 */
+Tk_RestrictProc *
+Tk_RestrictEvents(proc, arg, prevArgPtr)
+ Tk_RestrictProc * proc;
+ ClientData arg;
+ ClientData * prevArgPtr;
+{
+ return (tkStubsPtr->tk_RestrictEvents)(proc, arg, prevArgPtr);
+}
+
+/* Slot 159 */
+int
+Tk_SafeInit(interp)
+ Tcl_Interp * interp;
+{
+ return (tkStubsPtr->tk_SafeInit)(interp);
+}
+
+/* Slot 160 */
+char *
+Tk_SetAppName(tkwin, name)
+ Tk_Window tkwin;
+ char * name;
+{
+ return (tkStubsPtr->tk_SetAppName)(tkwin, name);
+}
+
+/* Slot 161 */
+void
+Tk_SetBackgroundFromBorder(tkwin, border)
+ Tk_Window tkwin;
+ Tk_3DBorder border;
+{
+ (tkStubsPtr->tk_SetBackgroundFromBorder)(tkwin, border);
+}
+
+/* Slot 162 */
+void
+Tk_SetClass(tkwin, className)
+ Tk_Window tkwin;
+ char * className;
+{
+ (tkStubsPtr->tk_SetClass)(tkwin, className);
+}
+
+/* Slot 163 */
+void
+Tk_SetGrid(tkwin, reqWidth, reqHeight, gridWidth, gridHeight)
+ Tk_Window tkwin;
+ int reqWidth;
+ int reqHeight;
+ int gridWidth;
+ int gridHeight;
+{
+ (tkStubsPtr->tk_SetGrid)(tkwin, reqWidth, reqHeight, gridWidth, gridHeight);
+}
+
+/* Slot 164 */
+void
+Tk_SetInternalBorder(tkwin, width)
+ Tk_Window tkwin;
+ int width;
+{
+ (tkStubsPtr->tk_SetInternalBorder)(tkwin, width);
+}
+
+/* Slot 165 */
+void
+Tk_SetWindowBackground(tkwin, pixel)
+ Tk_Window tkwin;
+ unsigned long pixel;
+{
+ (tkStubsPtr->tk_SetWindowBackground)(tkwin, pixel);
+}
+
+/* Slot 166 */
+void
+Tk_SetWindowBackgroundPixmap(tkwin, pixmap)
+ Tk_Window tkwin;
+ Pixmap pixmap;
+{
+ (tkStubsPtr->tk_SetWindowBackgroundPixmap)(tkwin, pixmap);
+}
+
+/* Slot 167 */
+void
+Tk_SetWindowBorder(tkwin, pixel)
+ Tk_Window tkwin;
+ unsigned long pixel;
+{
+ (tkStubsPtr->tk_SetWindowBorder)(tkwin, pixel);
+}
+
+/* Slot 168 */
+void
+Tk_SetWindowBorderWidth(tkwin, width)
+ Tk_Window tkwin;
+ int width;
+{
+ (tkStubsPtr->tk_SetWindowBorderWidth)(tkwin, width);
+}
+
+/* Slot 169 */
+void
+Tk_SetWindowBorderPixmap(tkwin, pixmap)
+ Tk_Window tkwin;
+ Pixmap pixmap;
+{
+ (tkStubsPtr->tk_SetWindowBorderPixmap)(tkwin, pixmap);
+}
+
+/* Slot 170 */
+void
+Tk_SetWindowColormap(tkwin, colormap)
+ Tk_Window tkwin;
+ Colormap colormap;
+{
+ (tkStubsPtr->tk_SetWindowColormap)(tkwin, colormap);
+}
+
+/* Slot 171 */
+int
+Tk_SetWindowVisual(tkwin, visual, depth, colormap)
+ Tk_Window tkwin;
+ Visual * visual;
+ int depth;
+ Colormap colormap;
+{
+ return (tkStubsPtr->tk_SetWindowVisual)(tkwin, visual, depth, colormap);
+}
+
+/* Slot 172 */
+void
+Tk_SizeOfBitmap(display, bitmap, widthPtr, heightPtr)
+ Display * display;
+ Pixmap bitmap;
+ int * widthPtr;
+ int * heightPtr;
+{
+ (tkStubsPtr->tk_SizeOfBitmap)(display, bitmap, widthPtr, heightPtr);
+}
+
+/* Slot 173 */
+void
+Tk_SizeOfImage(image, widthPtr, heightPtr)
+ Tk_Image image;
+ int * widthPtr;
+ int * heightPtr;
+{
+ (tkStubsPtr->tk_SizeOfImage)(image, widthPtr, heightPtr);
+}
+
+/* Slot 174 */
+int
+Tk_StrictMotif(tkwin)
+ Tk_Window tkwin;
+{
+ return (tkStubsPtr->tk_StrictMotif)(tkwin);
+}
+
+/* Slot 175 */
+void
+Tk_TextLayoutToPostscript(interp, layout)
+ Tcl_Interp * interp;
+ Tk_TextLayout layout;
+{
+ (tkStubsPtr->tk_TextLayoutToPostscript)(interp, layout);
+}
+
+/* Slot 176 */
+int
+Tk_TextWidth(font, string, numChars)
+ Tk_Font font;
+ CONST char * string;
+ int numChars;
+{
+ return (tkStubsPtr->tk_TextWidth)(font, string, numChars);
+}
+
+/* Slot 177 */
+void
+Tk_UndefineCursor(window)
+ Tk_Window window;
+{
+ (tkStubsPtr->tk_UndefineCursor)(window);
+}
+
+/* Slot 178 */
+void
+Tk_UnderlineChars(display, drawable, gc, tkfont, source, x, y, firstChar, lastChar)
+ Display * display;
+ Drawable drawable;
+ GC gc;
+ Tk_Font tkfont;
+ CONST char * source;
+ int x;
+ int y;
+ int firstChar;
+ int lastChar;
+{
+ (tkStubsPtr->tk_UnderlineChars)(display, drawable, gc, tkfont, source, x, y, firstChar, lastChar);
+}
+
+/* Slot 179 */
+void
+Tk_UnderlineTextLayout(display, drawable, gc, layout, x, y, underline)
+ Display * display;
+ Drawable drawable;
+ GC gc;
+ Tk_TextLayout layout;
+ int x;
+ int y;
+ int underline;
+{
+ (tkStubsPtr->tk_UnderlineTextLayout)(display, drawable, gc, layout, x, y, underline);
+}
+
+/* Slot 180 */
+void
+Tk_Ungrab(tkwin)
+ Tk_Window tkwin;
+{
+ (tkStubsPtr->tk_Ungrab)(tkwin);
+}
+
+/* Slot 181 */
+void
+Tk_UnmaintainGeometry(slave, master)
+ Tk_Window slave;
+ Tk_Window master;
+{
+ (tkStubsPtr->tk_UnmaintainGeometry)(slave, master);
+}
+
+/* Slot 182 */
+void
+Tk_UnmapWindow(tkwin)
+ Tk_Window tkwin;
+{
+ (tkStubsPtr->tk_UnmapWindow)(tkwin);
+}
+
+/* Slot 183 */
+void
+Tk_UnsetGrid(tkwin)
+ Tk_Window tkwin;
+{
+ (tkStubsPtr->tk_UnsetGrid)(tkwin);
+}
+
+/* Slot 184 */
+void
+Tk_UpdatePointer(tkwin, x, y, state)
+ Tk_Window tkwin;
+ int x;
+ int y;
+ int state;
+{
+ (tkStubsPtr->tk_UpdatePointer)(tkwin, x, y, state);
+}
+
+
+/* !END!: Do not edit above this line. */
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c
index 8d8de8d..8cbdd27 100644
--- a/generic/tkTextDisp.c
+++ b/generic/tkTextDisp.c
@@ -11,13 +11,17 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTextDisp.c,v 1.2 1998/09/14 18:23:18 stanton Exp $
+ * RCS: @(#) $Id: tkTextDisp.c,v 1.3 1999/03/10 07:04:44 stanton Exp $
*/
#include "tkPort.h"
#include "tkInt.h"
#include "tkText.h"
+#ifdef __WIN32__
+#include "tkWinInt.h"
+#endif
+
/*
* The following structure describes how to display a range of characters.
* The information is generated by scanning all of the tags associated
diff --git a/generic/tkWindow.c b/generic/tkWindow.c
index 64b06a8..d904658 100644
--- a/generic/tkWindow.c
+++ b/generic/tkWindow.c
@@ -12,12 +12,16 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkWindow.c,v 1.4 1998/09/30 19:01:20 rjohnson Exp $
+ * RCS: @(#) $Id: tkWindow.c,v 1.5 1999/03/10 07:04:44 stanton Exp $
*/
#include "tkPort.h"
#include "tkInt.h"
+#if !defined(__WIN32__) && !defined(MAC_TCL)
+#include "tkUnixInt.h"
+#endif
+
/*
* Count of number of main windows currently open in this process.
*/
@@ -2609,6 +2613,15 @@ Initialize(interp)
char buffer[30];
/*
+ * Ensure that we are getting the matching version of Tcl. This is
+ * really only an issue when Tk is loaded dynamically.
+ */
+
+ if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) {
+ return TCL_ERROR;
+ }
+
+ /*
* Start by initializing all the static variables to default acceptable
* values so that no information is leaked from a previous run of this
* code.
@@ -2817,7 +2830,12 @@ Initialize(interp)
code = TCL_ERROR;
goto done;
}
- code = Tcl_PkgProvide(interp, "Tk", TK_VERSION);
+
+ /*
+ * Provide Tk and its stub table.
+ */
+
+ code = Tcl_PkgProvideEx(interp, "Tk", TK_VERSION, (ClientData) tkStubsPtr);
if (code != TCL_OK) {
goto done;
}