diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tk.decls | 980 | ||||
| -rw-r--r-- | generic/tk.h | 524 | ||||
| -rw-r--r-- | generic/tkBind.c | 6 | ||||
| -rw-r--r-- | generic/tkCmds.c | 10 | ||||
| -rw-r--r-- | generic/tkConsole.c | 18 | ||||
| -rw-r--r-- | generic/tkDecls.h | 1595 | ||||
| -rw-r--r-- | generic/tkGrab.c | 6 | ||||
| -rw-r--r-- | generic/tkImgPhoto.c | 9 | ||||
| -rw-r--r-- | generic/tkInt.decls | 1577 | ||||
| -rw-r--r-- | generic/tkInt.h | 387 | ||||
| -rw-r--r-- | generic/tkIntDecls.h | 844 | ||||
| -rw-r--r-- | generic/tkIntPlatDecls.h | 955 | ||||
| -rw-r--r-- | generic/tkIntPlatStubs.c | 1050 | ||||
| -rw-r--r-- | generic/tkIntStubs.c | 965 | ||||
| -rw-r--r-- | generic/tkIntXlibDecls.h | 1157 | ||||
| -rw-r--r-- | generic/tkIntXlibStubs.c | 1570 | ||||
| -rw-r--r-- | generic/tkMain.c | 38 | ||||
| -rw-r--r-- | generic/tkPlatDecls.h | 202 | ||||
| -rw-r--r-- | generic/tkPlatStubs.c | 186 | ||||
| -rw-r--r-- | generic/tkPointer.c | 6 | ||||
| -rw-r--r-- | generic/tkStubInit.c | 649 | ||||
| -rw-r--r-- | generic/tkStubLib.c | 102 | ||||
| -rw-r--r-- | generic/tkStubs.c | 1933 | ||||
| -rw-r--r-- | generic/tkTextDisp.c | 6 | ||||
| -rw-r--r-- | generic/tkWindow.c | 22 |
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; } |