diff options
48 files changed, 14379 insertions, 4038 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; } diff --git a/mac/tkMac.h b/mac/tkMac.h index 45eafdc..4c3d362 100644 --- a/mac/tkMac.h +++ b/mac/tkMac.h @@ -1,5 +1,5 @@ /* - * tkMacInt.h -- + * Tkmacint.h -- * * Declarations of Macintosh specific exported variables and procedures. * @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMac.h,v 1.4 1998/09/14 18:23:34 stanton Exp $ + * RCS: @(#) $Id: tkMac.h,v 1.5 1999/03/10 07:04:44 stanton Exp $ */ #ifndef _TKMAC @@ -48,33 +48,7 @@ typedef void (Tk_MacEmbedGetOffsetInParentProc) (Tk_Window window, Point *ulCorn * Mac Specific functions that are available to extension writers. */ -EXTERN void Tk_MacSetEmbedHandler _ANSI_ARGS_(( - Tk_MacEmbedRegisterWinProc *registerWinProcPtr, - Tk_MacEmbedGetGrafPortProc *getPortProcPtr, - Tk_MacEmbedMakeContainerExistProc *containerExistProcPtr, - Tk_MacEmbedGetClipProc *getClipProc, - Tk_MacEmbedGetOffsetInParentProc *getOffsetProc)); - - -EXTERN void Tk_MacTurnOffMenus _ANSI_ARGS_ (()); -EXTERN void Tk_MacTkOwnsCursor _ANSI_ARGS_ ((int tkOwnsIt)); - -/* - * These functions are currently in tkMacInt.h. They are just copied over here - * so they can be exported. - */ - -EXTERN void TkMacInitMenus _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN void TkMacInitAppleEvents _ANSI_ARGS_((Tcl_Interp *interp)); - -EXTERN int TkMacConvertEvent _ANSI_ARGS_((EventRecord *eventPtr)); -EXTERN int TkMacConvertTkEvent _ANSI_ARGS_((EventRecord *eventPtr, - Window window)); -EXTERN void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int width, int height, int flags)); -EXTERN void TkMacInvalClipRgns _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkMacHaveAppearance _ANSI_ARGS_((void)); -EXTERN GWorldPtr TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable)); +#include "tkPlatDecls.h" #pragma export reset diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c index 5b73a65..b749454 100644 --- a/mac/tkMacAppInit.c +++ b/mac/tkMacAppInit.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacAppInit.c,v 1.5 1999/02/04 20:57:18 stanton Exp $ + * RCS: @(#) $Id: tkMacAppInit.c,v 1.6 1999/03/10 07:04:44 stanton Exp $ */ #include <Gestalt.h> @@ -274,7 +274,6 @@ MacintoshInit() Tcl_MacSetEventProc(TkMacConvertEvent); - TkConsoleCreate(); return TCL_OK; } diff --git a/mac/tkMacCursor.c b/mac/tkMacCursor.c index 4b8a454..604e8f0 100644 --- a/mac/tkMacCursor.c +++ b/mac/tkMacCursor.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacCursor.c,v 1.3 1998/09/14 18:23:34 stanton Exp $ + * RCS: @(#) $Id: tkMacCursor.c,v 1.4 1999/03/10 07:04:44 stanton Exp $ */ #include "tkPort.h" @@ -385,7 +385,8 @@ TkpSetCursor( *---------------------------------------------------------------------- */ -void Tk_MacTkOwnsCursor( +void +Tk_MacTkOwnsCursor( int tkOwnsIt) { gTkOwnsCursor = tkOwnsIt; diff --git a/mac/tkMacInt.h b/mac/tkMacInt.h index 04b132b..1a8f1fc 100644 --- a/mac/tkMacInt.h +++ b/mac/tkMacInt.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacInt.h,v 1.5 1998/09/30 19:01:21 rjohnson Exp $ + * RCS: @(#) $Id: tkMacInt.h,v 1.6 1999/03/10 07:04:44 stanton Exp $ */ #ifndef _TKMACINT @@ -212,85 +212,6 @@ typedef TkMenuDefProcPtr TkMenuDefUPP; * Internal procedures shared among Macintosh Tk modules but not exported * to the outside world: */ - -extern int HandleWMEvent _ANSI_ARGS_((EventRecord *theEvent)); -extern void TkAboutDlg _ANSI_ARGS_((void)); -extern void TkCreateMacEventSource _ANSI_ARGS_((void)); -extern void TkFontList _ANSI_ARGS_((Tcl_Interp *interp, - Display *display)); -extern Window TkGetTransientMaster _ANSI_ARGS_((TkWindow *winPtr)); -extern int TkGenerateButtonEvent _ANSI_ARGS_((int x, int y, - Window window, unsigned int state)); -extern int TkGetCharPositions _ANSI_ARGS_(( - XFontStruct *font_struct, char *string, - int count, short *buffer)); -extern void TkGenWMDestroyEvent _ANSI_ARGS_((Tk_Window tkwin)); -extern void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int width, int height, int flags)); -extern unsigned int TkMacButtonKeyState _ANSI_ARGS_((void)); -extern void TkMacClearMenubarActive _ANSI_ARGS_((void)); -extern int TkMacConvertEvent _ANSI_ARGS_((EventRecord *eventPtr)); -extern int TkMacDispatchMenuEvent _ANSI_ARGS_((int menuID, - int index)); -extern void TkMacInstallCursor _ANSI_ARGS_((int resizeOverride)); -extern int TkMacConvertTkEvent _ANSI_ARGS_((EventRecord *eventPtr, - Window window)); -extern void TkMacHandleTearoffMenu _ANSI_ARGS_((void)); -extern void tkMacInstallMWConsole _ANSI_ARGS_(( - Tcl_Interp *interp)); -extern void TkMacInvalClipRgns _ANSI_ARGS_((TkWindow *winPtr)); -extern void TkMacDoHLEvent _ANSI_ARGS_((EventRecord *theEvent)); -extern void TkMacFontInfo _ANSI_ARGS_((Font fontId, short *family, - short *style, short *size)); -extern Time TkMacGenerateTime _ANSI_ARGS_(()); -extern GWorldPtr TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable)); -extern TkWindow * TkMacGetScrollbarGrowWindow _ANSI_ARGS_(( - TkWindow *winPtr)); -extern Window TkMacGetXWindow _ANSI_ARGS_((WindowRef macWinPtr)); -extern int TkMacGrowToplevel _ANSI_ARGS_((WindowRef whichWindow, - Point start)); -extern void TkMacHandleMenuSelect _ANSI_ARGS_((long mResult, - int optionKeyPressed)); -extern int TkMacHaveAppearance _ANSI_ARGS_((void)); -extern void TkMacInitAppleEvents _ANSI_ARGS_((Tcl_Interp *interp)); -extern void TkMacInitMenus _ANSI_ARGS_((Tcl_Interp *interp)); -extern void TkMacInvalidateWindow _ANSI_ARGS_((MacDrawable *macWin, int flag)); -extern int TkMacIsCharacterMissing _ANSI_ARGS_((Tk_Font tkfont, - unsigned int searchChar)); -extern void TkMacMakeRealWindowExist _ANSI_ARGS_(( - TkWindow *winPtr)); -extern BitMapPtr TkMacMakeStippleMap(Drawable, Drawable); -extern void TkMacMenuClick _ANSI_ARGS_((void)); -extern void TkMacRegisterOffScreenWindow _ANSI_ARGS_((Window window, - GWorldPtr portPtr)); -extern int TkMacResizable _ANSI_ARGS_((TkWindow *winPtr)); -extern void TkMacSetEmbedRgn _ANSI_ARGS_((TkWindow *winPtr, RgnHandle rgn)); -extern void TkMacSetHelpMenuItemCount _ANSI_ARGS_((void)); -extern void TkMacSetScrollbarGrow _ANSI_ARGS_((TkWindow *winPtr, - int flag)); -extern void TkMacSetUpClippingRgn _ANSI_ARGS_((Drawable drawable)); -extern void TkMacSetUpGraphicsPort _ANSI_ARGS_((GC gc)); -extern void TkMacUpdateClipRgn _ANSI_ARGS_((TkWindow *winPtr)); -extern void TkMacUnregisterMacWindow _ANSI_ARGS_((GWorldPtr portPtr)); -extern int TkMacUseMenuID _ANSI_ARGS_((short macID)); -extern RgnHandle TkMacVisableClipRgn _ANSI_ARGS_((TkWindow *winPtr)); -extern void TkMacWinBounds _ANSI_ARGS_((TkWindow *winPtr, - Rect *geometry)); -extern void TkMacWindowOffset _ANSI_ARGS_((WindowRef wRef, - int *xOffset, int *yOffset)); -extern void TkResumeClipboard _ANSI_ARGS_((void)); -extern int TkSetMacColor _ANSI_ARGS_((unsigned long pixel, - RGBColor *macColor)); -extern void TkSetWMName _ANSI_ARGS_((TkWindow *winPtr, - Tk_Uid titleUid)); -extern void TkSuspendClipboard _ANSI_ARGS_((void)); -extern int TkWMGrowToplevel _ANSI_ARGS_((WindowRef whichWindow, - Point start)); -extern int TkMacZoomToplevel _ANSI_ARGS_((WindowPtr whichWindow, - Point where, short zoomPart)); -extern Tk_Window Tk_TopCoordsToWindow _ANSI_ARGS_((Tk_Window tkwin, - int rootX, int rootY, int *newX, int *newY)); -extern MacDrawable * TkMacContainerId _ANSI_ARGS_((TkWindow *winPtr)); -extern MacDrawable * TkMacGetHostToplevel _ANSI_ARGS_((TkWindow *winPtr)); +#include "tkIntPlatDecls.h" #endif /* _TKMACINT */ diff --git a/mac/tkMacPort.h b/mac/tkMacPort.h index 6175364..76a61b4 100644 --- a/mac/tkMacPort.h +++ b/mac/tkMacPort.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: tkMacPort.h,v 1.4 1998/11/11 17:31:29 jingham Exp $ + * RCS: @(#) $Id: tkMacPort.h,v 1.5 1999/03/10 07:04:44 stanton Exp $ */ #ifndef _TKMACPORT @@ -99,7 +99,6 @@ extern int strncasecmp _ANSI_ARGS_((CONST char *s1, #define TkpCmapStressed(tkwin,colormap) (0) #define TkpFreeColor(tkColPtr) #define TkSetPixmapColormap(p,c) {} -#define Tk_FreeXId(display,xid) #define TkpSync(display) /* diff --git a/mac/tkMacXStubs.c b/mac/tkMacXStubs.c index ba25207..6e0c714 100644 --- a/mac/tkMacXStubs.c +++ b/mac/tkMacXStubs.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: tkMacXStubs.c,v 1.3 1998/09/14 18:23:40 stanton Exp $ + * RCS: @(#) $Id: tkMacXStubs.c,v 1.4 1999/03/10 07:04:45 stanton Exp $ */ #include "tkInt.h" @@ -274,6 +274,15 @@ DefaultErrorHandler( } + +void +Tk_FreeXId ( + Display *display, + XID xid) +{ + /* no-op function needed for stubs implementation */ +} + char * XGetAtomName( Display * display, @@ -707,3 +716,24 @@ TkGetDefaultScreenName( } return screenName; } + +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 ) +{ + /* no-op required for stubs implementation */ + /* this function will probably be filled in at some point */ +} + +void Tk_3DVerticalBevel ( + Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftBevel, + int relief ) +{ + /* no-op required for stubs implementation */ + /* this function will probably be filled in at some point */ +} + diff --git a/unix/Makefile.in b/unix/Makefile.in index 0438728..a4af245 100644 --- a/unix/Makefile.in +++ b/unix/Makefile.in @@ -5,7 +5,7 @@ # "autoconf" program (constructs like "@foo@" will get replaced in the # actual Makefile. # -# RCS: @(#) $Id: Makefile.in,v 1.12 1999/03/06 00:23:43 stanton Exp $ +# RCS: @(#) $Id: Makefile.in,v 1.13 1999/03/10 07:04:45 stanton Exp $ # Current Tk version; used in various names. @@ -110,10 +110,6 @@ X11_INCLUDES = @XINCLUDES@ # can override it). X11_LIB_SWITCHES = @XLIBSW@ -# Libraries to use when linking. This definition is determined by the -# configure script. -LIBS = @TCL_BUILD_LIB_SPEC@ @LIBS@ $(X11_LIB_SWITCHES) @DL_LIBS@ @MATH_LIBS@ -lc - # To turn off the security checks that disallow incoming sends when # the X server appears to be insecure, reverse the comments on the # following lines: @@ -132,6 +128,22 @@ PROTO_FLAGS = MEM_DEBUG_FLAGS = #MEM_DEBUG_FLAGS = -DTCL_MEM_DEBUG +# To enable support for stubs in Tcl. +STUB_LIB_FILE = @STUB_LIB_FILE@ + +TK_STUB_LIB_FILE = @TK_STUB_LIB_FILE@ +#TK_STUB_LIB_FILE = libtkstub.a + +TK_STUB_LIB_FLAG = @TK_STUB_LIB_FLAG@ +#TK_STUB_LIB_FLAG = -ltkstub + + + +# Libraries to use when linking. This definition is determined by the +# configure script. +LIBS = @TCL_BUILD_LIB_SPEC@ @LIBS@ $(X11_LIB_SWITCHES) @DL_LIBS@ @MATH_LIBS@ -lc + + # If your X server is X11R4 or earlier, then you may wish to reverse # the comment characters on the following two lines. This will enable # extra code to speed up XStringToKeysym. In X11R5 and later releases @@ -206,14 +218,23 @@ TOOL_DIR = @TCL_SRC_DIR@/tools CC = @CC@ CC_SWITCHES = ${CFLAGS} ${CFLAGS_WARNING} ${TK_SHLIB_CFLAGS} \ -I${UNIX_DIR} -I${GENERIC_DIR} \ --I${BMAP_DIR} -I${TCL_GENERIC_DIR} ${X11_INCLUDES} ${AC_FLAGS} ${PROTO_FLAGS} \ +-I${BMAP_DIR} -I${TCL_GENERIC_DIR} ${X11_INCLUDES} \ +${AC_FLAGS} ${PROTO_FLAGS} \ ${SECURITY_FLAGS} ${MEM_DEBUG_FLAGS} ${KEYSYM_FLAGS} + +STUB_CC_SWITCHES = ${CFLAGS} ${CFLAGS_WARNING} ${SHLIB_CFLAGS} \ +-I${UNIX_DIR} -I${GENERIC_DIR} \ +-I${BMAP_DIR} -I${TCL_GENERIC_DIR} ${X11_INCLUDES} \ +${AC_FLAGS} ${PROTO_FLAGS} \ +${SECURITY_FLAGS} ${MEM_DEBUG_FLAGS} ${KEYSYM_FLAGS} \ + -DTK_SHLIB_EXT=\"${SHLIB_SUFFIX}\" + DEPEND_SWITCHES = ${CFLAGS} -I${UNIX_DIR} -I${GENERIC_DIR} \ -I${BMAP_DIR} \ -I${TCL_GENERIC_DIR} ${X11_INCLUDES} \ ${AC_FLAGS} ${PROTO_FLAGS} ${SECURITY_FLAGS} ${MEM_DEBUG_FLAGS} \ -${KEYSYM_FLAGS} +${KEYSYM_FLAGS} -DTK_SHLIB_EXT=\"${SHLIB_SUFFIX}\" WISH_OBJS = tkAppInit.o @@ -236,7 +257,10 @@ UNIXOBJS = tkUnix.o tkUnix3d.o tkUnixButton.o tkUnixColor.o tkUnixCursor.o \ tkUnixDialog.o tkUnixDraw.o \ tkUnixEmbed.o tkUnixEvent.o tkUnixFocus.o tkUnixFont.o tkUnixInit.o \ tkUnixMenu.o tkUnixMenubu.o tkUnixScale.o tkUnixScrlbr.o \ - tkUnixSelect.o tkUnixSend.o tkUnixWm.o tkUnixXId.o + tkUnixSelect.o tkUnixSend.o tkUnixWm.o tkUnixXId.o tkStubInit.o + +STUB_LIB_OBJS = tkStubs.o tkIntStubs.o tkIntPlatStubs.o tkPlatStubs.o \ + tkIntXlibStubs.o tkStubLib.o OBJS = tk3d.o tkArgv.o tkAtom.o tkBind.o tkBitmap.o tkClipboard.o tkCmds.o \ tkColor.o tkConfig.o tkCursor.o tkError.o tkEvent.o \ @@ -245,6 +269,10 @@ OBJS = tk3d.o tkArgv.o tkAtom.o tkBind.o tkBitmap.o tkClipboard.o tkCmds.o \ tkSelect.o tkUtil.o tkVisual.o tkWindow.o \ $(UNIXOBJS) $(WIDGOBJS) $(CANVOBJS) $(IMAGEOBJS) $(TEXTOBJS) +TK_DECLS = \ + $(GENERIC_DIR)/tk.decls \ + $(GENERIC_DIR)/tkInt.decls + SRCS = \ $(GENERIC_DIR)/tk3d.c $(GENERIC_DIR)/tkArgv.c \ $(GENERIC_DIR)/tkAtom.c $(GENERIC_DIR)/tkBind.c \ @@ -281,6 +309,9 @@ SRCS = \ $(GENERIC_DIR)/tkTextIndex.c $(GENERIC_DIR)/tkTextMark.c \ $(GENERIC_DIR)/tkTextTag.c $(GENERIC_DIR)/tkTextWind.c \ $(GENERIC_DIR)/tkSquare.c $(GENERIC_DIR)/tkTest.c \ + $(GENERIC_DIR)/tkStubs.c $(GENERIC_DIR)/tkIntStubs.c \ + $(GENERIC_DIR)/tkPlatStubs.c $(GENERIC_DIR)/tkIntPlatStubs.c \ + $(GENERIC_DIR)/tkIntXlibStubs.c $(GENERIC_DIR)/tkInitStubs.c \ $(UNIX_DIR)/tkAppInit.c $(UNIX_DIR)/tkUnix.c \ $(UNIX_DIR)/tkUnix3d.c \ $(UNIX_DIR)/tkUnixButton.c $(UNIX_DIR)/tkUnixColor.c \ @@ -311,6 +342,11 @@ ${TK_LIB_FILE}: ${OBJS} @MAKE_LIB@ $(RANLIB) ${TK_LIB_FILE} +${STUB_LIB_FILE}: ${STUB_LIB_OBJS} + rm -f ${STUB_LIB_FILE} + @MAKE_STUB_LIB@ + $(RANLIB) ${STUB_LIB_FILE} + # Make target which outputs the list of the .o contained in the Tk lib # usefull to build a single big shared library containing Tcl/Tk and other # extensions. used for the Tcl Plugin. -- dl @@ -321,7 +357,7 @@ tkLibObjs: objs: ${OBJS} -wish: $(WISH_OBJS) $(TK_LIB_FILE) +wish: $(WISH_OBJS) $(TK_LIB_FILE) $(TK_STUB_LIB_FILE) $(CC) @LD_FLAGS@ $(WISH_OBJS) @TK_BUILD_LIB_SPEC@ $(LIBS) \ $(TK_CC_SEARCH_FLAGS) -o wish @@ -365,7 +401,7 @@ install: install-binaries install-libraries install-demos install-man # some ranlibs write to current directory, and this might not always be # possible (e.g. if installing as root). -install-binaries: $(TK_LIB_FILE) $(TK_BUILD_EXP_FILE) wish +install-binaries: $(TK_LIB_FILE) $(TK_STUB_LIB_FILE) $(TK_BUILD_EXP_FILE) wish @for i in $(LIB_INSTALL_DIR) $(BIN_INSTALL_DIR) ; \ do \ if [ ! -d $$i ] ; then \ @@ -388,6 +424,11 @@ install-binaries: $(TK_LIB_FILE) $(TK_BUILD_EXP_FILE) wish @$(INSTALL_PROGRAM) wish $(BIN_INSTALL_DIR)/wish$(VERSION) @echo "Installing tkConfig.sh" @$(INSTALL_DATA) tkConfig.sh $(LIB_INSTALL_DIR)/tkConfig.sh + @if test "$(TK_STUB_LIB_FILE)" != "" ; then \ + echo "Installing $(TK_STUB_LIB_FILE)"; \ + $(INSTALL_DATA) $(STUB_LIB_FILE) \ + $(LIB_INSTALL_DIR)/$(TK_STUB_LIB_FILE); \ + fi install-libraries: @for i in $(INSTALL_ROOT)$(prefix)/lib $(INCLUDE_INSTALL_DIR) \ @@ -771,10 +812,60 @@ tkUnixWm.o: $(UNIX_DIR)/tkUnixWm.c tkUnixXId.o: $(UNIX_DIR)/tkUnixXId.c $(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixXId.c +tkStubInit.o: $(GENERIC_DIR)/tkStubInit.c + $(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkStubInit.c + + +# Stub library binaries, these must be compiled for use in a shared library +# even though they will be placed in a static archive + +tkStubs.o: $(GENERIC_DIR)/tkStubs.c + $(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tkStubs.c + +tkIntStubs.o: $(GENERIC_DIR)/tkIntStubs.c + $(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tkIntStubs.c + +tkPlatStubs.o: $(GENERIC_DIR)/tkPlatStubs.c + $(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tkPlatStubs.c + +tkIntPlatStubs.o: $(GENERIC_DIR)/tkIntPlatStubs.c + $(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tkIntPlatStubs.c + +tkIntXlibStubs.o: $(GENERIC_DIR)/tkIntXlibStubs.c + $(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tkIntXlibStubs.c + +tkStubLib.o: $(GENERIC_DIR)/tkStubLib.c + $(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tkStubLib.c + .c.o: $(CC) -c $(CC_SWITCHES) $< # +# Target to regenerate header files and stub files from the *.decls tables. +# + +genstubs: + tclsh $(TOOL_DIR)/genStubs.tcl $(GENERIC_DIR) \ + $(GENERIC_DIR)/tk.decls $(GENERIC_DIR)/tkInt.decls + +# +# Target to check that all exported functions have an entry in the stubs +# tables. +# + +checkstubs: + -@for i in `nm -p $(TK_LIB_FILE) | awk '$$2 ~ /T/ { print $$3 }' \ + | sort -n`; do \ + match=0; \ + for j in $(TK_DECLS); do \ + if [ `grep -c $$i $$j` -gt 0 ]; then \ + match=1; \ + fi; \ + done; \ + if [ $$match -eq 0 ]; then echo $$i; fi \ + done + +# # Target to check for proper usage of UCHAR macro. # diff --git a/unix/configure.in b/unix/configure.in index aa44403..f79b4db 100644 --- a/unix/configure.in +++ b/unix/configure.in @@ -3,7 +3,7 @@ dnl This file is an input file used by the GNU "autoconf" program to dnl generate the file "configure", which is run during Tk installation dnl to configure the system for the local environment. AC_INIT(../generic/tk.h) -# RCS: @(#) $Id: configure.in,v 1.27 1999/03/06 00:23:43 stanton Exp $ +# RCS: @(#) $Id: configure.in,v 1.28 1999/03/10 07:04:45 stanton Exp $ TK_VERSION=8.0 TK_MAJOR_VERSION=8 @@ -409,13 +409,13 @@ if test "$ok" = "yes" -a "${SHLIB_SUFFIX}" != ""; then TK_SHARED_BUILD=1 TK_SHLIB_CFLAGS="${SHLIB_CFLAGS}" TK_LIB_FILE=libtk${TCL_SHARED_LIB_SUFFIX} - MAKE_LIB="\${SHLIB_LD} -o \${TK_LIB_FILE} \${OBJS} \$(TK_LD_SEARCH_FLAGS) ${SHLIB_LD_LIBS}" + MAKE_LIB='\${SHLIB_LD} -o \${TK_LIB_FILE} \${OBJS} \$(TK_LD_SEARCH_FLAGS) ${SHLIB_LD_LIBS}' RANLIB=":" else TK_SHARED_BUILD=0 TK_SHLIB_CFLAGS="" TK_LIB_FILE=libtk${TCL_UNSHARED_LIB_SUFFIX} - MAKE_LIB="ar cr \${TK_LIB_FILE} \${OBJS}" + MAKE_LIB='ar cr \${TK_LIB_FILE} \${OBJS}' fi DBGX='${TK_DBGX}' @@ -433,15 +433,86 @@ if test $TK_SHARED_BUILD = 0 -o $TCL_NEEDS_EXP_FILE = 0; then TK_LIB_FLAG="-ltk`echo ${VERSION} | tr -d .`\${TK_DBGX}" fi TK_BUILD_LIB_SPEC="-L`pwd` ${TK_LIB_FLAG}" - TK_LIB_SPEC="-L${exec_prefix}/lib/tk${VERSION} ${TK_LIB_FLAG}" + TK_LIB_SPEC="-L${exec_prefix}/lib ${TK_LIB_FLAG}" + TK_BUILD_EXP_FILE="" + TK_EXP_FILE="" else TK_BUILD_EXP_FILE="lib.exp" eval "TK_EXP_FILE=libtk${TCL_EXPORT_FILE_SUFFIX}" TK_BUILD_LIB_SPEC="-bI:`pwd`/${TK_BUILD_EXP_FILE}" - TK_LIB_SPEC="-bI:${exec_prefix}/lib/tk${VERSION}/${TK_EXP_FILE}" + TK_LIB_SPEC="-bI:${exec_prefix}/lib/${TK_EXP_FILE}" fi +#-------------------------------------------------------------------- +# The statements below define various symbols relating to Tk +# using tcl stub support. +#-------------------------------------------------------------------- + +AC_MSG_CHECKING(how to link to Tcl) + +AC_ARG_ENABLE(tcl-stub, + [ --enable-tcl-stub use the Tcl stub interface], + [tk_ok=$enableval], [tk_ok=no]) + +if test "$tk_ok" = "yes" ; then + + AC_MSG_RESULT(using Tcl stub interface) + + TCL_STUB_FLAGS="-DUSE_TCL_STUBS" + + # Don't link Tk directly to Tcl. + + if test "$SHLIB_LD_LIBS" = '${LIBS}'; then + SHLIB_LD_LIBS='${STUB_LIBS}' + else + SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \${TCL_BUILD_STUB_LIB_SPEC}" + fi +else + AC_MSG_RESULT(dynamic linking) + + TCL_BUILD_STUB_LIB_SPEC="" + TCL_STUB_FLAGS="" +fi + +#-------------------------------------------------------------------- +# The statements below define various symbols relating to Tcl +# stub support. +#-------------------------------------------------------------------- +# Replace ${VERSION} with contents of ${TK_VERSION} +eval "STUB_LIB_FILE=libtkstub${TCL_UNSHARED_LIB_SUFFIX}" + +# Replace DBGX with TCL_DBGX +eval "STUB_LIB_FILE=\"${STUB_LIB_FILE}\"" + +MAKE_STUB_LIB="ar cr \${STUB_LIB_FILE} \${STUB_LIB_OBJS}" + +TK_STUB_LIB_FILE=${STUB_LIB_FILE} + +if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then + TK_STUB_LIB_FLAG="-ltkstub${TK_VERSION}\${TCL_DBGX}" +else + TK_STUB_LIB_FLAG="-ltkstub`echo ${TK_VERSION} | tr -d .`\${TCL_DBGX}" +fi + +TK_BUILD_STUB_LIB_SPEC="-L`pwd` ${TK_STUB_LIB_FLAG}" +TL_STUB_LIB_SPEC="-L${exec_prefix}/lib ${TK_STUB_LIB_FLAG}" +TK_BUILD_STUB_LIB_PATH="`pwd`/${TK_STUB_LIB_FILE}" +TK_STUB_LIB_PATH="${exec_prefix}/lib/${TK_STUB_LIB_FILE}" + +AC_SUBST(STUB_LIB_FILE) + +AC_SUBST(TK_STUB_LIB_FILE) +AC_SUBST(TK_STUB_LIB_FLAG) +AC_SUBST(TK_BUILD_STUB_LIB_SPEC) +AC_SUBST(TK_STUB_LIB_SPEC) +AC_SUBST(TK_BUILD_STUB_LIB_PATH) +AC_SUBST(TK_STUB_LIB_PATH) +AC_SUBST(MAKE_STUB_LIB) +AC_SUBST(TCL_STUB_FLAGS) +AC_SUBST(TK_BUILD_EXP_FILE) +AC_SUBST(TK_EXP_FILE) + AC_SUBST(CFLAGS_DEBUG) AC_SUBST(CFLAGS_DEFAULT) AC_SUBST(CFLAGS_OPTIMIZE) @@ -459,6 +530,7 @@ AC_SUBST(SHLIB_SUFFIX) AC_SUBST(SHLIB_VERSION) AC_SUBST(TCL_BIN_DIR) AC_SUBST(TCL_BUILD_LIB_SPEC) +AC_SUBST(TCL_BUILD_STUB_LIB_SPEC) AC_SUBST(TCL_DBGX) AC_SUBST(TCL_LIB_FLAG) AC_SUBST(TCL_SRC_DIR) diff --git a/unix/tkConfig.sh.in b/unix/tkConfig.sh.in index bb5da6d..7e0d7ca 100644 --- a/unix/tkConfig.sh.in +++ b/unix/tkConfig.sh.in @@ -11,7 +11,7 @@ # # The information in this file is specific to a single platform. # -# RCS: @(#) $Id: tkConfig.sh.in,v 1.6 1998/09/14 18:23:55 stanton Exp $ +# RCS: @(#) $Id: tkConfig.sh.in,v 1.7 1999/03/10 07:04:45 stanton Exp $ # Tk's version number. TK_VERSION='@TK_VERSION@' @@ -72,3 +72,22 @@ TK_SRC_DIR='@TK_SRC_DIR@' TK_CC_SEARCH_FLAGS='@TK_CC_SEARCH_FLAGS@' TK_LD_SEARCH_FLAGS='@TK_LD_SEARCH_FLAGS@' +# The name of the Tk stub library (.a): +TK_STUB_LIB_FILE='@TK_STUB_LIB_FILE@' + +# -l flag to pass to the linker to pick up the Tk stub library +TK_STUB_LIB_FLAG='@TK_STUB_LIB_FLAG@' + +# String to pass to linker to pick up the Tk stub library from its +# build directory. +TK_BUILD_STUB_LIB_SPEC='@TK_BUILD_STUB_LIB_SPEC@' + +# String to pass to linker to pick up the Tk stub library from its +# installed directory. +TK_STUB_LIB_SPEC='@TK_STUB_LIB_SPEC@' + +# Path to the Tk stub library in the build directory. +TK_BUILD_STUB_LIB_PATH='@TK_BUILD_STUB_LIB_PATH@' + +# Path to the Tk stub library in the install directory. +TK_STUB_LIB_PATH='@TK_STUB_LIB_PATH@' diff --git a/unix/tkUnix.c b/unix/tkUnix.c index 04fdee1..b50ee42 100644 --- a/unix/tkUnix.c +++ b/unix/tkUnix.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnix.c,v 1.2 1998/09/14 18:23:55 stanton Exp $ + * RCS: @(#) $Id: tkUnix.c,v 1.3 1999/03/10 07:04:45 stanton Exp $ */ #include <tkInt.h> @@ -77,3 +77,32 @@ TkGetDefaultScreenName(interp, screenName) } return screenName; } + + +/* + *---------------------------------------------------------------------- + * + * Tk_UpdatePointer -- + * + * Unused function in UNIX + * + * Results: + * None. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +void +Tk_UpdatePointer(tkwin, x, y, state) + Tk_Window tkwin; /* Window to which pointer event + * is reported. May be NULL. */ + int x, y; /* Pointer location in root coords. */ + int state; /* Modifier state mask. */ +{ + /* + * This function intentionally left blank + */ +} diff --git a/unix/tkUnix3d.c b/unix/tkUnix3d.c index f8470a2..82cccdb 100644 --- a/unix/tkUnix3d.c +++ b/unix/tkUnix3d.c @@ -9,11 +9,15 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnix3d.c,v 1.2 1998/09/14 18:23:55 stanton Exp $ + * RCS: @(#) $Id: tkUnix3d.c,v 1.3 1999/03/10 07:04:45 stanton Exp $ */ #include <tk3d.h> +#if !defined(__WIN32__) && !defined(MAC_TCL) +#include "tkUnixInt.h" +#endif + /* * This structure is used to keep track of the extra colors used * by Unix 3d borders. diff --git a/unix/tkUnixDraw.c b/unix/tkUnixDraw.c index 38c82a4..adb86dc 100644 --- a/unix/tkUnixDraw.c +++ b/unix/tkUnixDraw.c @@ -8,12 +8,16 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixDraw.c,v 1.2 1998/09/14 18:23:55 stanton Exp $ + * RCS: @(#) $Id: tkUnixDraw.c,v 1.3 1999/03/10 07:04:45 stanton Exp $ */ #include "tkPort.h" #include "tkInt.h" +#if !defined(__WIN32__) && !defined(MAC_TCL) +#include "tkUnixInt.h" +#endif + /* * The following structure is used to pass information to * ScrollRestrictProc from TkScrollWindow. diff --git a/unix/tkUnixFont.c b/unix/tkUnixFont.c index 1428b79..638db14 100644 --- a/unix/tkUnixFont.c +++ b/unix/tkUnixFont.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixFont.c,v 1.4 1998/11/25 01:48:54 stanton Exp $ + * RCS: @(#) $Id: tkUnixFont.c,v 1.5 1999/03/10 07:04:45 stanton Exp $ */ #include "tkPort.h" @@ -141,7 +141,7 @@ TkpGetNativeFont(tkwin, name) */ hasSpace = dashes = hasWild = 0; - for (p = name; *p != '\0'; p++) { + for (p = (char *) name; *p != '\0'; p++) { if (*p == ' ') { if (p[1] == '-') { return NULL; diff --git a/unix/tkUnixInt.h b/unix/tkUnixInt.h index 3907e04..ade08ff 100644 --- a/unix/tkUnixInt.h +++ b/unix/tkUnixInt.h @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixInt.h,v 1.2 1998/09/14 18:23:57 stanton Exp $ + * RCS: @(#) $Id: tkUnixInt.h,v 1.3 1999/03/10 07:04:46 stanton Exp $ */ #ifndef _TKUNIXINT @@ -21,12 +21,6 @@ * than the ones they're defined in. */ -EXTERN void TkCreateXEventSource _ANSI_ARGS_((void)); -EXTERN TkWindow * TkpGetContainer _ANSI_ARGS_((TkWindow *embeddedPtr)); -EXTERN TkWindow * TkpGetWrapperWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN Window TkUnixContainerId _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkUnixDoOneXEvent _ANSI_ARGS_((Tcl_Time *timePtr)); -EXTERN void TkUnixSetMenubar _ANSI_ARGS_((Tk_Window tkwin, - Tk_Window menubar)); +#include "tkIntPlatDecls.h" #endif /* _TKUNIXINT */ diff --git a/unix/tkUnixPort.h b/unix/tkUnixPort.h index 5b0800a..590e22a 100644 --- a/unix/tkUnixPort.h +++ b/unix/tkUnixPort.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: tkUnixPort.h,v 1.3 1998/09/30 19:01:22 rjohnson Exp $ + * RCS: @(#) $Id: tkUnixPort.h,v 1.4 1999/03/10 07:04:46 stanton Exp $ */ #ifndef _UNIXPORT @@ -176,13 +176,6 @@ extern int errno; #endif /* - * Declarations for various library procedures that may not be declared - * in any other header file. - */ - -extern void panic _ANSI_ARGS_(TCL_VARARGS(char *, string)); - -/* * These functions do nothing under Unix, so we just eliminate calls to them. */ @@ -221,10 +214,13 @@ extern void panic _ANSI_ARGS_(TCL_VARARGS(char *, string)); #define ALWAYS_SHOW_SELECTION /* - * The following declaration is used to get access to a private Tcl interface - * that is needed for portability reasons. + * tclInt.h is included to get declarations of the following functions. + * void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); + * void TclpGetTime _ANSI_ARGS_((Tcl_Time *time)); */ - -EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time *time)); + +#ifndef _TCLINT +# include <tclInt.h> +#endif #endif /* _UNIXPORT */ diff --git a/win/makefile.vc b/win/makefile.vc index aff185c..ec8c110 100644 --- a/win/makefile.vc +++ b/win/makefile.vc @@ -4,7 +4,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # Copyright (c) 1995-1996 Sun Microsystems, Inc. -# RCS: @(#) $Id: makefile.vc,v 1.19 1999/02/12 00:51:12 stanton Exp $ +# RCS: @(#) $Id: makefile.vc,v 1.20 1999/03/10 07:04:46 stanton Exp $ # Does not depend on the presence of any environment variables in # order to compile tcl; all needed information is derived from @@ -46,6 +46,8 @@ NODEBUG = 1 TCLNAMEPREFIX = tcl TKNAMEPREFIX = tk +TCLSTUBPREFIX = $(TCLNAMEPREFIX)stub +TKSTUBPREFIX = $(TKNAMEPREFIX)stub WISHNAMEPREFIX = wish VERSION = 80 DOTVERSION = 8.0 @@ -64,9 +66,12 @@ OUTDIR = $(TMPDIR) TCLLIB = $(TCLNAMEPREFIX)$(VERSION)$(DBGX).lib TCLPLUGINLIB = $(TCLNAMEPREFIX)$(VERSION)p.lib +TCLSTUBLIB = $(TCLSTUBPREFIX)$(VERSION)$(DBGX).lib TKDLLNAME = $(TKNAMEPREFIX)$(VERSION)$(DBGX).dll TKDLL = $(OUTDIR)\$(TKDLLNAME) -TKLIB = $(OUTDIR)\$(TKNAMEPREFIX)$(VERSION)$(DBGX).lib +TKLIB = $(OUTDIR)\$(TKNAMEPREFIX)$(VERSION)$(DBGX).lib +TKSTUBLIBNAME = $(TKSTUBPREFIX)$(VERSION)$(DBGX).lib +TKSTUBLIB = $(OUTDIR)\$(TKSTUBLIBNAME) TKPLUGINDLLNAME = $(TKNAMEPREFIX)$(VERSION)p$(DBG).dll TKPLUGINDLL = $(OUTDIR)\$(TKPLUGINDLLNAME) TKPLUGINLIB = $(OUTDIR)\$(TKNAMEPREFIX)$(VERSION)p$(DBGX).lib @@ -189,10 +194,19 @@ TKOBJS = \ $(TMPDIR)\tkTrig.obj \ $(TMPDIR)\tkUtil.obj \ $(TMPDIR)\tkVisual.obj \ + $(TMPDIR)\tkStubInit.obj \ $(TMPDIR)\tkWindow.obj +TKSTUBOBJS = \ + $(TMPDIR)\tkStubLib.obj \ + $(TMPDIR)\tkStubs.obj \ + $(TMPDIR)\tkPlatStubs.obj \ + $(TMPDIR)\tkIntStubs.obj \ + $(TMPDIR)\tkIntPlatStubs.obj + cc32 = "$(TOOLS32)\bin\cl.exe" link32 = "$(TOOLS32)\bin\link.exe" +lib32 = "$(TOOLS32)\bin\lib.exe" rc32 = "$(TOOLS32_rc)\bin\rc.exe" include32 = -I"$(TOOLS32)\include" @@ -208,7 +222,10 @@ TK_INCLUDES = -I$(WINDIR) -I$(GENERICDIR) -I$(BITMAPDIR) -I$(XLIBDIR) \ TK_DEFINES = $(DEBUGDEFINES) TK_CFLAGS = $(cdebug) $(cflags) $(cvarsdll) $(include32) \ - $(TK_INCLUDES) $(TK_DEFINES) + $(TK_INCLUDES) $(TK_DEFINES) + +WISH_CFLAGS = $(cdebug) $(cflags) $(cvarsdll) $(include32) \ + $(TK_INCLUDES) $(TK_DEFINES) ###################################################################### # Link flags @@ -317,6 +334,15 @@ install-binaries: @mkd "$(LIB_INSTALL_DIR)" copy $(TKLIB) "$(LIB_INSTALL_DIR)" +# +# Regenerate the stubs files. +# + +stubs: + $(TCLDIR)\win\$(TMPDIRNAME)\tclsh$(VERSION)$(DBGX) \ + $(TCLDIR)\tools\genStubs.tcl $(GENERICDIR) \ + $(GENERICDIR)\tk.decls $(GENERICDIR)\tkInt.decls + install-libraries: @mkd "$(INCLUDE_INSTALL_DIR)" @mkd "$(INCLUDE_INSTALL_DIR)\X11" @@ -341,6 +367,9 @@ $(TKDLL): $(TKOBJS) $(TMPDIR)\tk.res $(TMPDIR)\tk.def $(TKOBJS) << +$(TKSTUBLIB): $(TKSTUBOBJS) + $(lib32) /out:$@ $(TKSTUBOBJS) + $(TKPLUGINLIB): $(TKPLUGINDLL) $(TKPLUGINDLL): $(TKOBJS) $(TMPDIR)\tk.res $(TMPDIR)\plugin.def @@ -351,7 +380,7 @@ $(TKPLUGINDLL): $(TKOBJS) $(TMPDIR)\tk.res $(TMPDIR)\plugin.def $(TKOBJS) << -$(WISH): $(WISHOBJS) $(TKLIB) $(TMPDIR)\wish.res +$(WISH): $(WISHOBJS) $(TKSTUBLIB) $(TKLIB) $(TMPDIR)\wish.res set LIB=$(TOOLS32)\lib $(link32) $(ldebug) $(guilflags) $(TMPDIR)\wish.res -stack:2300000 \ -out:$@ \ @@ -364,7 +393,7 @@ $(WISHP): $(WISHOBJS) $(TKPLUGINLIB) $(TMPDIR)\wish.res $(guilibsdll) $(TCLLIBDIR)\$(TCLPLUGINLIB) \ $(TKPLUGINLIB) $(WISHOBJS) -$(TKTEST): $(TKTESTOBJS) $(TKLIB) $(TMPDIR)\wish.res +$(TKTEST): $(TKTESTOBJS) $(TKSTUBLIB) $(TMPDIR)\wish.res set LIB=$(TOOLS32)\lib $(link32) $(ldebug) $(guilflags) $(TMPDIR)\wish.res -stack:2300000 \ -out:$@ \ @@ -387,6 +416,14 @@ $(DUMPEXTS): $(TCLDIR)\win\winDumpExts.c $(TMPDIR)\winDumpExts.obj # +# Regenerate the stubs files. +# + +genstubs: + tclsh$(VERSION) $(TCLDIR)\tools\genStubs.tcl $(GENERICDIR) \ + $(GENERICDIR)\tk.decls $(GENERICDIR)\tkInt.decls + +# # Special case object file targets # @@ -400,7 +437,7 @@ $(TMPDIR)\tkSquare.obj: $(ROOT)\generic\tkSquare.c $(cc32) $(TK_CFLAGS) -Fo$@ $? $(TMPDIR)\winMain.obj: $(ROOT)\win\winMain.c - $(cc32) $(TK_CFLAGS) -Fo$@ $? + $(cc32) $(WISH_CFLAGS) -Fo$@ $? # # Implicit rules diff --git a/win/tkWin.h b/win/tkWin.h index fe0d6b3..191ceea 100644 --- a/win/tkWin.h +++ b/win/tkWin.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWin.h,v 1.4 1998/09/14 18:23:59 stanton Exp $ + * RCS: @(#) $Id: tkWin.h,v 1.5 1999/03/10 07:04:46 stanton Exp $ */ #ifndef _TKWIN @@ -28,6 +28,7 @@ # define TCL_STORAGE_CLASS DLLEXPORT #endif + /* * The following messages are use to communicate between a Tk toplevel * and its container window. @@ -46,17 +47,7 @@ * *-------------------------------------------------------------- */ - -EXTERN Window Tk_AttachHWND _ANSI_ARGS_((Tk_Window tkwin, - HWND hwnd)); -EXTERN HINSTANCE Tk_GetHINSTANCE _ANSI_ARGS_((void)); -EXTERN HWND Tk_GetHWND _ANSI_ARGS_((Window window)); -EXTERN Tk_Window Tk_HWNDToWindow _ANSI_ARGS_((HWND hwnd)); -EXTERN void Tk_PointerEvent _ANSI_ARGS_((HWND hwnd, - int x, int y)); -EXTERN int Tk_TranslateWinEvent _ANSI_ARGS_((HWND hwnd, - UINT message, WPARAM wParam, LPARAM lParam, - LRESULT *result)); +#include "tkPlatDecls.h" # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLIMPORT diff --git a/win/tkWinDraw.c b/win/tkWinDraw.c index c3842c6..c68fb04 100644 --- a/win/tkWinDraw.c +++ b/win/tkWinDraw.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinDraw.c,v 1.2 1998/09/14 18:24:00 stanton Exp $ + * RCS: @(#) $Id: tkWinDraw.c,v 1.3 1999/03/10 07:04:46 stanton Exp $ */ #include "tkWinInt.h" @@ -926,6 +926,8 @@ XDrawLines(display, d, gc, points, npoints, mode) /* *---------------------------------------------------------------------- * +#if 0 + * XFillPolygon -- * * Draws a filled polygon. diff --git a/win/tkWinInt.h b/win/tkWinInt.h index 40ed5e4..b1ab878 100644 --- a/win/tkWinInt.h +++ b/win/tkWinInt.h @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinInt.h,v 1.3 1999/02/04 21:01:35 stanton Exp $ + * RCS: @(#) $Id: tkWinInt.h,v 1.4 1999/03/10 07:04:46 stanton Exp $ */ #ifndef _TKWININT @@ -146,50 +146,10 @@ extern int tkpWinRopModes[]; * Internal procedures used by more than one source file. */ -extern void TkWinCancelMouseTimer _ANSI_ARGS_((void)); -extern LRESULT CALLBACK TkWinChildProc _ANSI_ARGS_((HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam)); -extern void TkWinClipboardRender _ANSI_ARGS_((TkDisplay *dispPtr, - UINT format)); -extern LRESULT TkWinEmbeddedEventProc _ANSI_ARGS_((HWND hwnd, - UINT message, WPARAM wParam, LPARAM lParam)); -extern void TkWinFillRect _ANSI_ARGS_((HDC dc, int x, int y, - int width, int height, int pixel)); -extern COLORREF TkWinGetBorderPixels _ANSI_ARGS_((Tk_Window tkwin, - Tk_3DBorder border, int which)); -extern HDC TkWinGetDrawableDC _ANSI_ARGS_((Display *display, - Drawable d, TkWinDCState* state)); -extern int TkWinGetModifierState _ANSI_ARGS_((void)); -extern HPALETTE TkWinGetSystemPalette _ANSI_ARGS_((void)); -extern HWND TkWinGetWrapperWindow _ANSI_ARGS_((Tk_Window tkwin)); -extern int TkWinHandleMenuEvent _ANSI_ARGS_((HWND *phwnd, - UINT *pMessage, WPARAM *pwParam, LPARAM *plParam, - LRESULT *plResult)); -extern int TkWinIndexOfColor _ANSI_ARGS_((XColor *colorPtr)); -extern void TkWinPointerDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -extern void TkWinPointerEvent _ANSI_ARGS_((HWND hwnd, int x, - int y)); -extern void TkWinPointerInit _ANSI_ARGS_((void)); -extern LRESULT TkWinReflectMessage _ANSI_ARGS_((HWND hwnd, - UINT message, WPARAM wParam, LPARAM lParam)); -extern void TkWinReleaseDrawableDC _ANSI_ARGS_((Drawable d, - HDC hdc, TkWinDCState* state)); -extern LRESULT TkWinResendEvent _ANSI_ARGS_((WNDPROC wndproc, - HWND hwnd, XEvent *eventPtr)); -extern HPALETTE TkWinSelectPalette _ANSI_ARGS_((HDC dc, - Colormap colormap)); -extern void TkWinSetMenu _ANSI_ARGS_((Tk_Window tkwin, - HMENU hMenu)); -extern void TkWinSetWindowPos _ANSI_ARGS_((HWND hwnd, - HWND siblingHwnd, int pos)); -extern void TkWinUpdateCursor _ANSI_ARGS_((TkWindow *winPtr)); -extern void TkWinWmCleanup _ANSI_ARGS_((HINSTANCE hInstance)); -extern HWND TkWinWmFindEmbedAssociation _ANSI_ARGS_(( - TkWindow *winPtr)); -extern void TkWinWmStoreEmbedAssociation _ANSI_ARGS_(( - TkWindow *winPtr, HWND hwnd)); -extern void TkWinXCleanup _ANSI_ARGS_((HINSTANCE hInstance)); -extern void TkWinXInit _ANSI_ARGS_((HINSTANCE hInstance)); +#include "tkIntPlatDecls.h" + +extern LRESULT CALLBACK TkWinChildProc (HWND hwnd, UINT message, + WPARAM wParam, LPARAM lParam); #endif /* _TKWININT */ diff --git a/win/tkWinPort.h b/win/tkWinPort.h index 55a0300..d673d46 100644 --- a/win/tkWinPort.h +++ b/win/tkWinPort.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: tkWinPort.h,v 1.3 1998/09/30 19:01:22 rjohnson Exp $ + * RCS: @(#) $Id: tkWinPort.h,v 1.4 1999/03/10 07:04:46 stanton Exp $ */ #ifndef _WINPORT @@ -22,7 +22,6 @@ #include <X11/keysym.h> #include <X11/Xatom.h> #include <X11/Xutil.h> - #include <malloc.h> #include <errno.h> #include <ctype.h> @@ -112,6 +111,15 @@ struct timezone { }; extern int gettimeofday(struct timeval *, struct timezone *); -EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); + +/* + * tclInt.h is included to get declarations of the following functions. + * void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); + * void TclpGetTime _ANSI_ARGS_((Tcl_Time *time)); + */ + +#ifndef _TCLINT +# include <tclInt.h> +#endif #endif /* _WINPORT */ diff --git a/win/winMain.c b/win/winMain.c index 12c9d34..9cf081d 100644 --- a/win/winMain.c +++ b/win/winMain.c @@ -8,10 +8,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: winMain.c,v 1.4 1999/02/04 20:57:18 stanton Exp $ + * RCS: @(#) $Id: winMain.c,v 1.5 1999/03/10 07:04:46 stanton Exp $ */ #include <tk.h> +#include "tkInt.h" #define WIN32_LEAN_AND_MEAN #include <windows.h> #undef WIN32_LEAN_AND_MEAN @@ -23,9 +24,6 @@ * interfaces are available for use, but are not supported. */ -EXTERN void TkConsoleCreate(void); -EXTERN int TkConsoleInit(Tcl_Interp *interp); - /* * Forward declarations for procedures defined later in this file: */ @@ -85,14 +83,6 @@ WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow) */ SetMessageQueue(64); - /* - * Create the console channels and install them as the standard - * channels. All I/O will be discarded until TkConsoleInit is - * called to attach the console to a text widget. - */ - - TkConsoleCreate(); - setargv(&argc, &argv); /* @@ -142,6 +132,7 @@ Tcl_AppInit(interp) if (Tk_Init(interp) == TCL_ERROR) { goto error; } + Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit); /* diff --git a/xlib/X11/Xlib.h b/xlib/X11/Xlib.h index 397bb03..ef96f35 100644 --- a/xlib/X11/Xlib.h +++ b/xlib/X11/Xlib.h @@ -1180,179 +1180,16 @@ typedef struct _XIMStatusDrawCallbackStruct { } data; } XIMStatusDrawCallbackStruct; -_XFUNCPROTOBEGIN - -extern XFontStruct *XLoadQueryFont( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* name */ -#endif -); - -extern XFontStruct *XQueryFont( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* font_ID */ -#endif -); - - -extern XTimeCoord *XGetMotionEvents( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Time /* start */, - Time /* stop */, - int* /* nevents_return */ -#endif -); - -extern XModifierKeymap *XDeleteModifiermapEntry( -#if NeedFunctionPrototypes - XModifierKeymap* /* modmap */, -#if NeedWidePrototypes - unsigned int /* keycode_entry */, -#else - KeyCode /* keycode_entry */, -#endif - int /* modifier */ -#endif -); - -extern XModifierKeymap *XGetModifierMapping( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern XModifierKeymap *XInsertModifiermapEntry( -#if NeedFunctionPrototypes - XModifierKeymap* /* modmap */, -#if NeedWidePrototypes - unsigned int /* keycode_entry */, -#else - KeyCode /* keycode_entry */, -#endif - int /* modifier */ -#endif -); - -extern XModifierKeymap *XNewModifiermap( -#if NeedFunctionPrototypes - int /* max_keys_per_mod */ -#endif -); - -extern XImage *XCreateImage( -#if NeedFunctionPrototypes - Display* /* display */, - Visual* /* visual */, - unsigned int /* depth */, - int /* format */, - int /* offset */, - char* /* data */, - unsigned int /* width */, - unsigned int /* height */, - int /* bitmap_pad */, - int /* bytes_per_line */ -#endif -); -extern XImage *XGetImage( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */, - unsigned long /* plane_mask */, - int /* format */ -#endif -); -extern XImage *XGetSubImage( +typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */, - Drawable /* d */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */, - unsigned long /* plane_mask */, - int /* format */, - XImage* /* dest_image */, - int /* dest_x */, - int /* dest_y */ -#endif -); - -/* - * X function declarations. - */ -extern Display *XOpenDisplay( -#if NeedFunctionPrototypes - _Xconst char* /* display_name */ + XErrorEvent* /* error_event */ #endif ); -extern void XrmInitialize( -#if NeedFunctionPrototypes - void -#endif -); +_XFUNCPROTOBEGIN -extern char *XFetchBytes( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* nbytes_return */ -#endif -); -extern char *XFetchBuffer( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* nbytes_return */, - int /* buffer */ -#endif -); -extern char *XGetAtomName( -#if NeedFunctionPrototypes - Display* /* display */, - Atom /* atom */ -#endif -); -extern char *XGetDefault( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* program */, - _Xconst char* /* option */ -#endif -); -extern char *XDisplayName( -#if NeedFunctionPrototypes - _Xconst char* /* string */ -#endif -); -extern char *XKeysymToString( -#if NeedFunctionPrototypes - KeySym /* keysym */ -#endif -); -extern int (*XSynchronize( -#if NeedFunctionPrototypes - Display* /* display */, - Bool /* onoff */ -#endif -))(); -extern int (*XSetAfterFunction( -#if NeedFunctionPrototypes - Display* /* display */, - int (*) ( -#if NeedNestedPrototypes - Display* /* display */ -#endif - ) /* procedure */ -#endif -))(); extern Atom XInternAtom( #if NeedFunctionPrototypes Display* /* display */, @@ -1360,54 +1197,8 @@ extern Atom XInternAtom( Bool /* only_if_exists */ #endif ); -extern Colormap XCopyColormapAndFree( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */ -#endif -); -extern Colormap XCreateColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Visual* /* visual */, - int /* alloc */ -#endif -); -extern Cursor XCreatePixmapCursor( -#if NeedFunctionPrototypes - Display* /* display */, - Pixmap /* source */, - Pixmap /* mask */, - XColor* /* foreground_color */, - XColor* /* background_color */, - unsigned int /* x */, - unsigned int /* y */ -#endif -); -extern Cursor XCreateGlyphCursor( -#if NeedFunctionPrototypes - Display* /* display */, - Font /* source_font */, - Font /* mask_font */, - unsigned int /* source_char */, - unsigned int /* mask_char */, - XColor* /* foreground_color */, - XColor* /* background_color */ -#endif -); -extern Cursor XCreateFontCursor( -#if NeedFunctionPrototypes - Display* /* display */, - unsigned int /* shape */ -#endif -); -extern Font XLoadFont( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* name */ -#endif -); + + extern GC XCreateGC( #if NeedFunctionPrototypes Display* /* display */, @@ -1416,26 +1207,8 @@ extern GC XCreateGC( XGCValues* /* values */ #endif ); -extern GContext XGContextFromGC( -#if NeedFunctionPrototypes - GC /* gc */ -#endif -); -extern void XFlushGC( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */ -#endif -); -extern Pixmap XCreatePixmap( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - unsigned int /* width */, - unsigned int /* height */, - unsigned int /* depth */ -#endif -); + + extern Pixmap XCreateBitmapFromData( #if NeedFunctionPrototypes Display* /* display */, @@ -1445,977 +1218,7 @@ extern Pixmap XCreateBitmapFromData( unsigned int /* height */ #endif ); -extern Pixmap XCreatePixmapFromBitmapData( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - char* /* data */, - unsigned int /* width */, - unsigned int /* height */, - unsigned long /* fg */, - unsigned long /* bg */, - unsigned int /* depth */ -#endif -); -extern Window XCreateSimpleWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* parent */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */, - unsigned int /* border_width */, - unsigned long /* border */, - unsigned long /* background */ -#endif -); -extern Window XGetSelectionOwner( -#if NeedFunctionPrototypes - Display* /* display */, - Atom /* selection */ -#endif -); -extern Window XCreateWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* parent */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */, - unsigned int /* border_width */, - int /* depth */, - unsigned int /* class */, - Visual* /* visual */, - unsigned long /* valuemask */, - XSetWindowAttributes* /* attributes */ -#endif -); -extern Colormap *XListInstalledColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int* /* num_return */ -#endif -); -extern char **XListFonts( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* pattern */, - int /* maxnames */, - int* /* actual_count_return */ -#endif -); -extern char **XListFontsWithInfo( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* pattern */, - int /* maxnames */, - int* /* count_return */, - XFontStruct** /* info_return */ -#endif -); -extern char **XGetFontPath( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* npaths_return */ -#endif -); -extern char **XListExtensions( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* nextensions_return */ -#endif -); -extern Atom *XListProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int* /* num_prop_return */ -#endif -); -extern XHostAddress *XListHosts( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* nhosts_return */, - Bool* /* state_return */ -#endif -); -extern KeySym XKeycodeToKeysym( -#if NeedFunctionPrototypes - Display* /* display */, -#if NeedWidePrototypes - unsigned int /* keycode */, -#else - KeyCode /* keycode */, -#endif - int /* index */ -#endif -); -extern KeySym XLookupKeysym( -#if NeedFunctionPrototypes - XKeyEvent* /* key_event */, - int /* index */ -#endif -); -extern KeySym *XGetKeyboardMapping( -#if NeedFunctionPrototypes - Display* /* display */, -#if NeedWidePrototypes - unsigned int /* first_keycode */, -#else - KeyCode /* first_keycode */, -#endif - int /* keycode_count */, - int* /* keysyms_per_keycode_return */ -#endif -); -extern KeySym XStringToKeysym( -#if NeedFunctionPrototypes - _Xconst char* /* string */ -#endif -); -extern long XMaxRequestSize( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern long XExtendedMaxRequestSize( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern char *XResourceManagerString( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern char *XScreenResourceString( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern unsigned long XDisplayMotionBufferSize( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern VisualID XVisualIDFromVisual( -#if NeedFunctionPrototypes - Visual* /* visual */ -#endif -); - -/* routines for dealing with extensions */ - -extern XExtCodes *XInitExtension( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* name */ -#endif -); - -extern XExtCodes *XAddExtension( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern XExtData *XFindOnExtensionList( -#if NeedFunctionPrototypes - XExtData** /* structure */, - int /* number */ -#endif -); -extern XExtData **XEHeadOfExtensionList( -#if NeedFunctionPrototypes - XEDataObject /* object */ -#endif -); - -/* these are routines for which there are also macros */ -extern Window XRootWindow( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); -extern Window XDefaultRootWindow( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern Window XRootWindowOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern Visual *XDefaultVisual( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); -extern Visual *XDefaultVisualOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern GC XDefaultGC( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); -extern GC XDefaultGCOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern unsigned long XBlackPixel( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); -extern unsigned long XWhitePixel( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); -extern unsigned long XAllPlanes( -#if NeedFunctionPrototypes - void -#endif -); -extern unsigned long XBlackPixelOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern unsigned long XWhitePixelOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern unsigned long XNextRequest( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern unsigned long XLastKnownRequestProcessed( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern char *XServerVendor( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern char *XDisplayString( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern Colormap XDefaultColormap( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); -extern Colormap XDefaultColormapOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern Display *XDisplayOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); -extern Screen *XScreenOfDisplay( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); -extern Screen *XDefaultScreenOfDisplay( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern long XEventMaskOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern int XScreenNumberOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ -#if NeedFunctionPrototypes - Display* /* display */, - XErrorEvent* /* error_event */ -#endif -); - -extern XErrorHandler XSetErrorHandler ( -#if NeedFunctionPrototypes - XErrorHandler /* handler */ -#endif -); - - -typedef int (*XIOErrorHandler) ( /* WARNING, this type not in Xlib spec */ -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern XIOErrorHandler XSetIOErrorHandler ( -#if NeedFunctionPrototypes - XIOErrorHandler /* handler */ -#endif -); - - -extern XPixmapFormatValues *XListPixmapFormats( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* count_return */ -#endif -); -extern int *XListDepths( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */, - int* /* count_return */ -#endif -); - -/* ICCCM routines for things that don't require special include files; */ -/* other declarations are given in Xutil.h */ -extern Status XReconfigureWMWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* screen_number */, - unsigned int /* mask */, - XWindowChanges* /* changes */ -#endif -); - -extern Status XGetWMProtocols( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Atom** /* protocols_return */, - int* /* count_return */ -#endif -); -extern Status XSetWMProtocols( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Atom* /* protocols */, - int /* count */ -#endif -); -extern Status XIconifyWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* screen_number */ -#endif -); -extern Status XWithdrawWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* screen_number */ -#endif -); -extern Status XGetCommand( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - char*** /* argv_return */, - int* /* argc_return */ -#endif -); -extern Status XGetWMColormapWindows( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Window** /* windows_return */, - int* /* count_return */ -#endif -); -extern Status XSetWMColormapWindows( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Window* /* colormap_windows */, - int /* count */ -#endif -); -extern void XFreeStringList( -#if NeedFunctionPrototypes - char** /* list */ -#endif -); -extern void XSetTransientForHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Window /* prop_window */ -#endif -); - -/* The following are given in alphabetical order */ - -extern void XActivateScreenSaver( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XAddHost( -#if NeedFunctionPrototypes - Display* /* display */, - XHostAddress* /* host */ -#endif -); - -extern void XAddHosts( -#if NeedFunctionPrototypes - Display* /* display */, - XHostAddress* /* hosts */, - int /* num_hosts */ -#endif -); - -extern void XAddToExtensionList( -#if NeedFunctionPrototypes - struct _XExtData** /* structure */, - XExtData* /* ext_data */ -#endif -); - -extern void XAddToSaveSet( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern Status XAllocColor( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - XColor* /* screen_in_out */ -#endif -); - -extern Status XAllocColorCells( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - Bool /* contig */, - unsigned long* /* plane_masks_return */, - unsigned int /* nplanes */, - unsigned long* /* pixels_return */, - unsigned int /* npixels */ -#endif -); - -extern Status XAllocColorPlanes( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - Bool /* contig */, - unsigned long* /* pixels_return */, - int /* ncolors */, - int /* nreds */, - int /* ngreens */, - int /* nblues */, - unsigned long* /* rmask_return */, - unsigned long* /* gmask_return */, - unsigned long* /* bmask_return */ -#endif -); - -extern Status XAllocNamedColor( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - _Xconst char* /* color_name */, - XColor* /* screen_def_return */, - XColor* /* exact_def_return */ -#endif -); - -extern void XAllowEvents( -#if NeedFunctionPrototypes - Display* /* display */, - int /* event_mode */, - Time /* time */ -#endif -); - -extern void XAutoRepeatOff( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XAutoRepeatOn( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XBell( -#if NeedFunctionPrototypes - Display* /* display */, - int /* percent */ -#endif -); - -extern int XBitmapBitOrder( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern int XBitmapPad( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern int XBitmapUnit( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern int XCellsOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern void XChangeActivePointerGrab( -#if NeedFunctionPrototypes - Display* /* display */, - unsigned int /* event_mask */, - Cursor /* cursor */, - Time /* time */ -#endif -); - -extern void XChangeGC( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - unsigned long /* valuemask */, - XGCValues* /* values */ -#endif -); - -extern void XChangeKeyboardControl( -#if NeedFunctionPrototypes - Display* /* display */, - unsigned long /* value_mask */, - XKeyboardControl* /* values */ -#endif -); - -extern void XChangeKeyboardMapping( -#if NeedFunctionPrototypes - Display* /* display */, - int /* first_keycode */, - int /* keysyms_per_keycode */, - KeySym* /* keysyms */, - int /* num_codes */ -#endif -); - -extern void XChangePointerControl( -#if NeedFunctionPrototypes - Display* /* display */, - Bool /* do_accel */, - Bool /* do_threshold */, - int /* accel_numerator */, - int /* accel_denominator */, - int /* threshold */ -#endif -); - -extern void XChangeProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Atom /* property */, - Atom /* type */, - int /* format */, - int /* mode */, - _Xconst unsigned char* /* data */, - int /* nelements */ -#endif -); - -extern void XChangeSaveSet( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* change_mode */ -#endif -); - -extern void XChangeWindowAttributes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - unsigned long /* valuemask */, - XSetWindowAttributes* /* attributes */ -#endif -); - -extern Bool XCheckIfEvent( -#if NeedFunctionPrototypes - Display* /* display */, - XEvent* /* event_return */, - Bool (*) ( -#if NeedNestedPrototypes - Display* /* display */, - XEvent* /* event */, - XPointer /* arg */ -#endif - ) /* predicate */, - XPointer /* arg */ -#endif -); - -extern Bool XCheckMaskEvent( -#if NeedFunctionPrototypes - Display* /* display */, - long /* event_mask */, - XEvent* /* event_return */ -#endif -); - -extern Bool XCheckTypedEvent( -#if NeedFunctionPrototypes - Display* /* display */, - int /* event_type */, - XEvent* /* event_return */ -#endif -); - -extern Bool XCheckTypedWindowEvent( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* event_type */, - XEvent* /* event_return */ -#endif -); - -extern Bool XCheckWindowEvent( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - long /* event_mask */, - XEvent* /* event_return */ -#endif -); - -extern void XCirculateSubwindows( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* direction */ -#endif -); - -extern void XCirculateSubwindowsDown( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XCirculateSubwindowsUp( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XClearArea( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */, - Bool /* exposures */ -#endif -); -extern void XClearWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XCloseDisplay( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XConfigureWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - unsigned int /* value_mask */, - XWindowChanges* /* values */ -#endif -); - -extern int XConnectionNumber( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XConvertSelection( -#if NeedFunctionPrototypes - Display* /* display */, - Atom /* selection */, - Atom /* target */, - Atom /* property */, - Window /* requestor */, - Time /* time */ -#endif -); - -extern void XCopyArea( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* src */, - Drawable /* dest */, - GC /* gc */, - int /* src_x */, - int /* src_y */, - unsigned int /* width */, - unsigned int /* height */, - int /* dest_x */, - int /* dest_y */ -#endif -); - -extern void XCopyGC( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* src */, - unsigned long /* valuemask */, - GC /* dest */ -#endif -); - -extern void XCopyPlane( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* src */, - Drawable /* dest */, - GC /* gc */, - int /* src_x */, - int /* src_y */, - unsigned int /* width */, - unsigned int /* height */, - int /* dest_x */, - int /* dest_y */, - unsigned long /* plane */ -#endif -); - -extern int XDefaultDepth( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); - -extern int XDefaultDepthOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern int XDefaultScreen( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XDefineCursor( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Cursor /* cursor */ -#endif -); - -extern void XDeleteProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Atom /* property */ -#endif -); - -extern void XDestroyWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XDestroySubwindows( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern int XDoesBackingStore( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern Bool XDoesSaveUnders( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern void XDisableAccessControl( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - - -extern int XDisplayCells( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); - -extern int XDisplayHeight( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); - -extern int XDisplayHeightMM( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); - -extern void XDisplayKeycodes( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* min_keycodes_return */, - int* /* max_keycodes_return */ -#endif -); - -extern int XDisplayPlanes( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); - -extern int XDisplayWidth( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); - -extern int XDisplayWidthMM( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */ -#endif -); - -extern void XDrawArc( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */, - int /* angle1 */, - int /* angle2 */ -#endif -); - -extern void XDrawArcs( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XArc* /* arcs */, - int /* narcs */ -#endif -); - -extern void XDrawImageString( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - _Xconst char* /* string */, - int /* length */ -#endif -); - -extern void XDrawImageString16( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - _Xconst XChar2b* /* string */, - int /* length */ -#endif -); extern void XDrawLine( #if NeedFunctionPrototypes @@ -2429,174 +1232,6 @@ extern void XDrawLine( #endif ); -extern void XDrawLines( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XPoint* /* points */, - int /* npoints */, - int /* mode */ -#endif -); - -extern void XDrawPoint( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */ -#endif -); - -extern void XDrawPoints( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XPoint* /* points */, - int /* npoints */, - int /* mode */ -#endif -); - -extern void XDrawRectangle( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern void XDrawRectangles( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XRectangle* /* rectangles */, - int /* nrectangles */ -#endif -); - -extern void XDrawSegments( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XSegment* /* segments */, - int /* nsegments */ -#endif -); - -extern void XDrawString( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - _Xconst char* /* string */, - int /* length */ -#endif -); - -extern void XDrawString16( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - _Xconst XChar2b* /* string */, - int /* length */ -#endif -); - -extern void XDrawText( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - XTextItem* /* items */, - int /* nitems */ -#endif -); - -extern void XDrawText16( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - XTextItem16* /* items */, - int /* nitems */ -#endif -); - -extern void XEnableAccessControl( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern int XEventsQueued( -#if NeedFunctionPrototypes - Display* /* display */, - int /* mode */ -#endif -); - -extern Status XFetchName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - char** /* window_name_return */ -#endif -); - -extern void XFillArc( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */, - int /* angle1 */, - int /* angle2 */ -#endif -); - -extern void XFillArcs( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XArc* /* arcs */, - int /* narcs */ -#endif -); - -extern void XFillPolygon( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XPoint* /* points */, - int /* npoints */, - int /* shape */, - int /* mode */ -#endif -); extern void XFillRectangle( #if NeedFunctionPrototypes @@ -2610,92 +1245,6 @@ extern void XFillRectangle( #endif ); -extern void XFillRectangles( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - XRectangle* /* rectangles */, - int /* nrectangles */ -#endif -); - -extern void XFlush( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XForceScreenSaver( -#if NeedFunctionPrototypes - Display* /* display */, - int /* mode */ -#endif -); - -extern void XFree( -#if NeedFunctionPrototypes - void* /* data */ -#endif -); - -extern void XFreeColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */ -#endif -); - -extern void XFreeColors( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - unsigned long* /* pixels */, - int /* npixels */, - unsigned long /* planes */ -#endif -); - -extern void XFreeCursor( -#if NeedFunctionPrototypes - Display* /* display */, - Cursor /* cursor */ -#endif -); - -extern void XFreeExtensionList( -#if NeedFunctionPrototypes - char** /* list */ -#endif -); - -extern void XFreeFont( -#if NeedFunctionPrototypes - Display* /* display */, - XFontStruct* /* font_struct */ -#endif -); - -extern void XFreeFontInfo( -#if NeedFunctionPrototypes - char** /* names */, - XFontStruct* /* free_info */, - int /* actual_count */ -#endif -); - -extern void XFreeFontNames( -#if NeedFunctionPrototypes - char** /* list */ -#endif -); - -extern void XFreeFontPath( -#if NeedFunctionPrototypes - char** /* list */ -#endif -); - extern void XFreeGC( #if NeedFunctionPrototypes Display* /* display */, @@ -2703,380 +1252,6 @@ extern void XFreeGC( #endif ); -extern void XFreeModifiermap( -#if NeedFunctionPrototypes - XModifierKeymap* /* modmap */ -#endif -); - -extern void XFreePixmap( -#if NeedFunctionPrototypes - Display* /* display */, - Pixmap /* pixmap */ -#endif -); - -extern int XGeometry( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen */, - _Xconst char* /* position */, - _Xconst char* /* default_position */, - unsigned int /* bwidth */, - unsigned int /* fwidth */, - unsigned int /* fheight */, - int /* xadder */, - int /* yadder */, - int* /* x_return */, - int* /* y_return */, - int* /* width_return */, - int* /* height_return */ -#endif -); - -extern void XGetErrorDatabaseText( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* name */, - _Xconst char* /* message */, - _Xconst char* /* default_string */, - char* /* buffer_return */, - int /* length */ -#endif -); - -extern void XGetErrorText( -#if NeedFunctionPrototypes - Display* /* display */, - int /* code */, - char* /* buffer_return */, - int /* length */ -#endif -); - -extern Bool XGetFontProperty( -#if NeedFunctionPrototypes - XFontStruct* /* font_struct */, - Atom /* atom */, - unsigned long* /* value_return */ -#endif -); - -extern Status XGetGCValues( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - unsigned long /* valuemask */, - XGCValues* /* values_return */ -#endif -); - -extern Status XGetGeometry( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - Window* /* root_return */, - int* /* x_return */, - int* /* y_return */, - unsigned int* /* width_return */, - unsigned int* /* height_return */, - unsigned int* /* border_width_return */, - unsigned int* /* depth_return */ -#endif -); - -extern Status XGetIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - char** /* icon_name_return */ -#endif -); - -extern void XGetInputFocus( -#if NeedFunctionPrototypes - Display* /* display */, - Window* /* focus_return */, - int* /* revert_to_return */ -#endif -); - -extern void XGetKeyboardControl( -#if NeedFunctionPrototypes - Display* /* display */, - XKeyboardState* /* values_return */ -#endif -); - -extern void XGetPointerControl( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* accel_numerator_return */, - int* /* accel_denominator_return */, - int* /* threshold_return */ -#endif -); - -extern int XGetPointerMapping( -#if NeedFunctionPrototypes - Display* /* display */, - unsigned char* /* map_return */, - int /* nmap */ -#endif -); - -extern void XGetScreenSaver( -#if NeedFunctionPrototypes - Display* /* display */, - int* /* timeout_return */, - int* /* interval_return */, - int* /* prefer_blanking_return */, - int* /* allow_exposures_return */ -#endif -); - -extern Status XGetTransientForHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Window* /* prop_window_return */ -#endif -); - -extern int XGetWindowProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Atom /* property */, - long /* long_offset */, - long /* long_length */, - Bool /* delete */, - Atom /* req_type */, - Atom* /* actual_type_return */, - int* /* actual_format_return */, - unsigned long* /* nitems_return */, - unsigned long* /* bytes_after_return */, - unsigned char** /* prop_return */ -#endif -); - -extern Status XGetWindowAttributes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XWindowAttributes* /* window_attributes_return */ -#endif -); - -extern void XGrabButton( -#if NeedFunctionPrototypes - Display* /* display */, - unsigned int /* button */, - unsigned int /* modifiers */, - Window /* grab_window */, - Bool /* owner_events */, - unsigned int /* event_mask */, - int /* pointer_mode */, - int /* keyboard_mode */, - Window /* confine_to */, - Cursor /* cursor */ -#endif -); - -extern void XGrabKey( -#if NeedFunctionPrototypes - Display* /* display */, - int /* keycode */, - unsigned int /* modifiers */, - Window /* grab_window */, - Bool /* owner_events */, - int /* pointer_mode */, - int /* keyboard_mode */ -#endif -); - -extern int XGrabKeyboard( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* grab_window */, - Bool /* owner_events */, - int /* pointer_mode */, - int /* keyboard_mode */, - Time /* time */ -#endif -); - -extern int XGrabPointer( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* grab_window */, - Bool /* owner_events */, - unsigned int /* event_mask */, - int /* pointer_mode */, - int /* keyboard_mode */, - Window /* confine_to */, - Cursor /* cursor */, - Time /* time */ -#endif -); - -extern void XGrabServer( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern int XHeightMMOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern int XHeightOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern void XIfEvent( -#if NeedFunctionPrototypes - Display* /* display */, - XEvent* /* event_return */, - Bool (*) ( -#if NeedNestedPrototypes - Display* /* display */, - XEvent* /* event */, - XPointer /* arg */ -#endif - ) /* predicate */, - XPointer /* arg */ -#endif -); - -extern int XImageByteOrder( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XInstallColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */ -#endif -); - -extern KeyCode XKeysymToKeycode( -#if NeedFunctionPrototypes - Display* /* display */, - KeySym /* keysym */ -#endif -); - -extern void XKillClient( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* resource */ -#endif -); - -extern unsigned long XLastKnownRequestProcessed( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern Status XLookupColor( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - _Xconst char* /* color_name */, - XColor* /* exact_def_return */, - XColor* /* screen_def_return */ -#endif -); - -extern void XLowerWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XMapRaised( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XMapSubwindows( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XMapWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XMaskEvent( -#if NeedFunctionPrototypes - Display* /* display */, - long /* event_mask */, - XEvent* /* event_return */ -#endif -); - -extern int XMaxCmapsOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern int XMinCmapsOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern void XMoveResizeWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern void XMoveWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - int /* x */, - int /* y */ -#endif -); - -extern void XNextEvent( -#if NeedFunctionPrototypes - Display* /* display */, - XEvent* /* event_return */ -#endif -); - -extern void XNoOp( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - extern Status XParseColor( #if NeedFunctionPrototypes Display* /* display */, @@ -3086,387 +1261,6 @@ extern Status XParseColor( #endif ); -extern int XParseGeometry( -#if NeedFunctionPrototypes - _Xconst char* /* parsestring */, - int* /* x_return */, - int* /* y_return */, - unsigned int* /* width_return */, - unsigned int* /* height_return */ -#endif -); - -extern void XPeekEvent( -#if NeedFunctionPrototypes - Display* /* display */, - XEvent* /* event_return */ -#endif -); - -extern void XPeekIfEvent( -#if NeedFunctionPrototypes - Display* /* display */, - XEvent* /* event_return */, - Bool (*) ( -#if NeedNestedPrototypes - Display* /* display */, - XEvent* /* event */, - XPointer /* arg */ -#endif - ) /* predicate */, - XPointer /* arg */ -#endif -); - -extern int XPending( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern int XPlanesOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ - -#endif -); - -extern int XProtocolRevision( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern int XProtocolVersion( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - - -extern void XPutBackEvent( -#if NeedFunctionPrototypes - Display* /* display */, - XEvent* /* event */ -#endif -); - -extern void XPutImage( -#if NeedFunctionPrototypes - 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 XQLength( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern Status XQueryBestCursor( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - unsigned int /* width */, - unsigned int /* height */, - unsigned int* /* width_return */, - unsigned int* /* height_return */ -#endif -); - -extern Status XQueryBestSize( -#if NeedFunctionPrototypes - Display* /* display */, - int /* class */, - Drawable /* which_screen */, - unsigned int /* width */, - unsigned int /* height */, - unsigned int* /* width_return */, - unsigned int* /* height_return */ -#endif -); - -extern Status XQueryBestStipple( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* which_screen */, - unsigned int /* width */, - unsigned int /* height */, - unsigned int* /* width_return */, - unsigned int* /* height_return */ -#endif -); - -extern Status XQueryBestTile( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* which_screen */, - unsigned int /* width */, - unsigned int /* height */, - unsigned int* /* width_return */, - unsigned int* /* height_return */ -#endif -); - -extern void XQueryColor( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - XColor* /* def_in_out */ -#endif -); - -extern void XQueryColors( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - XColor* /* defs_in_out */, - int /* ncolors */ -#endif -); - -extern Bool XQueryExtension( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* name */, - int* /* major_opcode_return */, - int* /* first_event_return */, - int* /* first_error_return */ -#endif -); - -extern void XQueryKeymap( -#if NeedFunctionPrototypes - Display* /* display */, - char [32] /* keys_return */ -#endif -); - -extern Bool XQueryPointer( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Window* /* root_return */, - Window* /* child_return */, - int* /* root_x_return */, - int* /* root_y_return */, - int* /* win_x_return */, - int* /* win_y_return */, - unsigned int* /* mask_return */ -#endif -); - -extern void XQueryTextExtents( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* font_ID */, - _Xconst char* /* string */, - int /* nchars */, - int* /* direction_return */, - int* /* font_ascent_return */, - int* /* font_descent_return */, - XCharStruct* /* overall_return */ -#endif -); - -extern void XQueryTextExtents16( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* font_ID */, - _Xconst XChar2b* /* string */, - int /* nchars */, - int* /* direction_return */, - int* /* font_ascent_return */, - int* /* font_descent_return */, - XCharStruct* /* overall_return */ -#endif -); - -extern Status XQueryTree( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Window* /* root_return */, - Window* /* parent_return */, - Window** /* children_return */, - unsigned int* /* nchildren_return */ -#endif -); - -extern void XRaiseWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern int XReadBitmapFile( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - _Xconst char* /* filename */, - unsigned int* /* width_return */, - unsigned int* /* height_return */, - Pixmap* /* bitmap_return */, - int* /* x_hot_return */, - int* /* y_hot_return */ -#endif -); - -extern void XRebindKeysym( -#if NeedFunctionPrototypes - Display* /* display */, - KeySym /* keysym */, - KeySym* /* list */, - int /* mod_count */, - _Xconst unsigned char* /* string */, - int /* bytes_string */ -#endif -); - -extern void XRecolorCursor( -#if NeedFunctionPrototypes - Display* /* display */, - Cursor /* cursor */, - XColor* /* foreground_color */, - XColor* /* background_color */ -#endif -); - -extern void XRefreshKeyboardMapping( -#if NeedFunctionPrototypes - XMappingEvent* /* event_map */ -#endif -); - -extern void XRemoveFromSaveSet( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XRemoveHost( -#if NeedFunctionPrototypes - Display* /* display */, - XHostAddress* /* host */ -#endif -); - -extern void XRemoveHosts( -#if NeedFunctionPrototypes - Display* /* display */, - XHostAddress* /* hosts */, - int /* num_hosts */ -#endif -); - -extern void XReparentWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Window /* parent */, - int /* x */, - int /* y */ -#endif -); - -extern void XResetScreenSaver( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XResizeWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern void XRestackWindows( -#if NeedFunctionPrototypes - Display* /* display */, - Window* /* windows */, - int /* nwindows */ -#endif -); - -extern void XRotateBuffers( -#if NeedFunctionPrototypes - Display* /* display */, - int /* rotate */ -#endif -); - -extern void XRotateWindowProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Atom* /* properties */, - int /* num_prop */, - int /* npositions */ -#endif -); - -extern int XScreenCount( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XSelectInput( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - long /* event_mask */ -#endif -); - -extern Status XSendEvent( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Bool /* propagate */, - long /* event_mask */, - XEvent* /* event_send */ -#endif -); - -extern void XSetAccessControl( -#if NeedFunctionPrototypes - Display* /* display */, - int /* mode */ -#endif -); - -extern void XSetArcMode( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* arc_mode */ -#endif -); - -extern void XSetBackground( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - unsigned long /* background */ -#endif -); - extern void XSetClipMask( #if NeedFunctionPrototypes Display* /* display */, @@ -3475,6 +1269,7 @@ extern void XSetClipMask( #endif ); + extern void XSetClipOrigin( #if NeedFunctionPrototypes Display* /* display */, @@ -3484,76 +1279,6 @@ extern void XSetClipOrigin( #endif ); -extern void XSetClipRectangles( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* clip_x_origin */, - int /* clip_y_origin */, - XRectangle* /* rectangles */, - int /* n */, - int /* ordering */ -#endif -); - -extern void XSetCloseDownMode( -#if NeedFunctionPrototypes - Display* /* display */, - int /* close_mode */ -#endif -); - -extern void XSetCommand( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - char** /* argv */, - int /* argc */ -#endif -); - -extern void XSetDashes( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* dash_offset */, - _Xconst char* /* dash_list */, - int /* n */ -#endif -); - -extern void XSetFillRule( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* fill_rule */ -#endif -); - -extern void XSetFillStyle( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* fill_style */ -#endif -); - -extern void XSetFont( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Font /* font */ -#endif -); - -extern void XSetFontPath( -#if NeedFunctionPrototypes - Display* /* display */, - char** /* directories */, - int /* ndirs */ -#endif -); - extern void XSetForeground( #if NeedFunctionPrototypes Display* /* display */, @@ -3562,119 +1287,6 @@ extern void XSetForeground( #endif ); -extern void XSetFunction( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* function */ -#endif -); - -extern void XSetGraphicsExposures( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Bool /* graphics_exposures */ -#endif -); - -extern void XSetIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* icon_name */ -#endif -); - -extern void XSetInputFocus( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* focus */, - int /* revert_to */, - Time /* time */ -#endif -); - -extern void XSetLineAttributes( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - unsigned int /* line_width */, - int /* line_style */, - int /* cap_style */, - int /* join_style */ -#endif -); - -extern int XSetModifierMapping( -#if NeedFunctionPrototypes - Display* /* display */, - XModifierKeymap* /* modmap */ -#endif -); - -extern void XSetPlaneMask( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - unsigned long /* plane_mask */ -#endif -); - -extern int XSetPointerMapping( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst unsigned char* /* map */, - int /* nmap */ -#endif -); - -extern void XSetScreenSaver( -#if NeedFunctionPrototypes - Display* /* display */, - int /* timeout */, - int /* interval */, - int /* prefer_blanking */, - int /* allow_exposures */ -#endif -); - -extern void XSetSelectionOwner( -#if NeedFunctionPrototypes - Display* /* display */, - Atom /* selection */, - Window /* owner */, - Time /* time */ -#endif -); - -extern void XSetState( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - unsigned long /* foreground */, - unsigned long /* background */, - int /* function */, - unsigned long /* plane_mask */ -#endif -); - -extern void XSetStipple( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Pixmap /* stipple */ -#endif -); - -extern void XSetSubwindowMode( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* subwindow_mode */ -#endif -); - extern void XSetTSOrigin( #if NeedFunctionPrototypes Display* /* display */, @@ -3684,622 +1296,8 @@ extern void XSetTSOrigin( #endif ); -extern void XSetTile( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Pixmap /* tile */ -#endif -); - -extern void XSetWindowBackground( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - unsigned long /* background_pixel */ -#endif -); - -extern void XSetWindowBackgroundPixmap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Pixmap /* background_pixmap */ -#endif -); - -extern void XSetWindowBorder( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - unsigned long /* border_pixel */ -#endif -); - -extern void XSetWindowBorderPixmap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Pixmap /* border_pixmap */ -#endif -); - -extern void XSetWindowBorderWidth( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - unsigned int /* width */ -#endif -); - -extern void XSetWindowColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - Colormap /* colormap */ -#endif -); - -extern void XStoreBuffer( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* bytes */, - int /* nbytes */, - int /* buffer */ -#endif -); - -extern void XStoreBytes( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* bytes */, - int /* nbytes */ -#endif -); - -extern void XStoreColor( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - XColor* /* color */ -#endif -); - -extern void XStoreColors( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - XColor* /* color */, - int /* ncolors */ -#endif -); - -extern void XStoreName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */ -#endif -); - -extern void XStoreNamedColor( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */, - _Xconst char* /* color */, - unsigned long /* pixel */, - int /* flags */ -#endif -); - -extern void XSync( -#if NeedFunctionPrototypes - Display* /* display */, - Bool /* discard */ -#endif -); - -extern void XTextExtents( -#if NeedFunctionPrototypes - XFontStruct* /* font_struct */, - _Xconst char* /* string */, - int /* nchars */, - int* /* direction_return */, - int* /* font_ascent_return */, - int* /* font_descent_return */, - XCharStruct* /* overall_return */ -#endif -); - -extern void XTextExtents16( -#if NeedFunctionPrototypes - XFontStruct* /* font_struct */, - _Xconst XChar2b* /* string */, - int /* nchars */, - int* /* direction_return */, - int* /* font_ascent_return */, - int* /* font_descent_return */, - XCharStruct* /* overall_return */ -#endif -); - -extern int XTextWidth( -#if NeedFunctionPrototypes - XFontStruct* /* font_struct */, - _Xconst char* /* string */, - int /* count */ -#endif -); - -extern int XTextWidth16( -#if NeedFunctionPrototypes - XFontStruct* /* font_struct */, - _Xconst XChar2b* /* string */, - int /* count */ -#endif -); - -extern Bool XTranslateCoordinates( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* src_w */, - Window /* dest_w */, - int /* src_x */, - int /* src_y */, - int* /* dest_x_return */, - int* /* dest_y_return */, - Window* /* child_return */ -#endif -); - -extern void XUndefineCursor( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XUngrabButton( -#if NeedFunctionPrototypes - Display* /* display */, - unsigned int /* button */, - unsigned int /* modifiers */, - Window /* grab_window */ -#endif -); - -extern void XUngrabKey( -#if NeedFunctionPrototypes - Display* /* display */, - int /* keycode */, - unsigned int /* modifiers */, - Window /* grab_window */ -#endif -); - -extern void XUngrabKeyboard( -#if NeedFunctionPrototypes - Display* /* display */, - Time /* time */ -#endif -); - -extern void XUngrabPointer( -#if NeedFunctionPrototypes - Display* /* display */, - Time /* time */ -#endif -); - -extern void XUngrabServer( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XUninstallColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Colormap /* colormap */ -#endif -); -extern void XUnloadFont( -#if NeedFunctionPrototypes - Display* /* display */, - Font /* font */ -#endif -); - -extern void XUnmapSubwindows( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern void XUnmapWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern int XVendorRelease( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); - -extern void XWarpPointer( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* src_w */, - Window /* dest_w */, - int /* src_x */, - int /* src_y */, - unsigned int /* src_width */, - unsigned int /* src_height */, - int /* dest_x */, - int /* dest_y */ -#endif -); - -extern int XWidthMMOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern int XWidthOfScreen( -#if NeedFunctionPrototypes - Screen* /* screen */ -#endif -); - -extern void XWindowEvent( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - long /* event_mask */, - XEvent* /* event_return */ -#endif -); - -extern int XWriteBitmapFile( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* filename */, - Pixmap /* bitmap */, - unsigned int /* width */, - unsigned int /* height */, - int /* x_hot */, - int /* y_hot */ -#endif -); - -extern Bool XSupportsLocale( -#if NeedFunctionPrototypes - void -#endif -); - -extern char *XSetLocaleModifiers( -#if NeedFunctionPrototypes - _Xconst char* /* modifier_list */ -#endif -); - -extern XFontSet XCreateFontSet( -#if NeedFunctionPrototypes - Display* /* display */, - _Xconst char* /* base_font_name_list */, - char*** /* missing_charset_list */, - int* /* missing_charset_count */, - char** /* def_string */ -#endif -); - -extern void XFreeFontSet( -#if NeedFunctionPrototypes - Display* /* display */, - XFontSet /* font_set */ -#endif -); - -extern int XFontsOfFontSet( -#if NeedFunctionPrototypes - XFontSet /* font_set */, - XFontStruct*** /* font_struct_list */, - char*** /* font_name_list */ -#endif -); - -extern char *XBaseFontNameListOfFontSet( -#if NeedFunctionPrototypes - XFontSet /* font_set */ -#endif -); - -extern char *XLocaleOfFontSet( -#if NeedFunctionPrototypes - XFontSet /* font_set */ -#endif -); - -extern Bool XContextDependentDrawing( -#if NeedFunctionPrototypes - XFontSet /* font_set */ -#endif -); - -extern XFontSetExtents *XExtentsOfFontSet( -#if NeedFunctionPrototypes - XFontSet /* font_set */ -#endif -); - -extern int XmbTextEscapement( -#if NeedFunctionPrototypes - XFontSet /* font_set */, - _Xconst char* /* text */, - int /* bytes_text */ -#endif -); - -extern int XwcTextEscapement( -#if NeedFunctionPrototypes - XFontSet /* font_set */, - wchar_t* /* text */, - int /* num_wchars */ -#endif -); - -extern int XmbTextExtents( -#if NeedFunctionPrototypes - XFontSet /* font_set */, - _Xconst char* /* text */, - int /* bytes_text */, - XRectangle* /* overall_ink_return */, - XRectangle* /* overall_logical_return */ -#endif -); - -extern int XwcTextExtents( -#if NeedFunctionPrototypes - XFontSet /* font_set */, - wchar_t* /* text */, - int /* num_wchars */, - XRectangle* /* overall_ink_return */, - XRectangle* /* overall_logical_return */ -#endif -); - -extern Status XmbTextPerCharExtents( -#if NeedFunctionPrototypes - XFontSet /* font_set */, - _Xconst char* /* text */, - int /* bytes_text */, - XRectangle* /* ink_extents_buffer */, - XRectangle* /* logical_extents_buffer */, - int /* buffer_size */, - int* /* num_chars */, - XRectangle* /* overall_ink_return */, - XRectangle* /* overall_logical_return */ -#endif -); - -extern Status XwcTextPerCharExtents( -#if NeedFunctionPrototypes - XFontSet /* font_set */, - wchar_t* /* text */, - int /* num_wchars */, - XRectangle* /* ink_extents_buffer */, - XRectangle* /* logical_extents_buffer */, - int /* buffer_size */, - int* /* num_chars */, - XRectangle* /* overall_ink_return */, - XRectangle* /* overall_logical_return */ -#endif -); - -extern void XmbDrawText( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - XmbTextItem* /* text_items */, - int /* nitems */ -#endif -); - -extern void XwcDrawText( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - XwcTextItem* /* text_items */, - int /* nitems */ -#endif -); - -extern void XmbDrawString( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - XFontSet /* font_set */, - GC /* gc */, - int /* x */, - int /* y */, - _Xconst char* /* text */, - int /* bytes_text */ -#endif -); - -extern void XwcDrawString( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - XFontSet /* font_set */, - GC /* gc */, - int /* x */, - int /* y */, - wchar_t* /* text */, - int /* num_wchars */ -#endif -); - -extern void XmbDrawImageString( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - XFontSet /* font_set */, - GC /* gc */, - int /* x */, - int /* y */, - _Xconst char* /* text */, - int /* bytes_text */ -#endif -); - -extern void XwcDrawImageString( -#if NeedFunctionPrototypes - Display* /* display */, - Drawable /* d */, - XFontSet /* font_set */, - GC /* gc */, - int /* x */, - int /* y */, - wchar_t* /* text */, - int /* num_wchars */ -#endif -); - -extern XIM XOpenIM( -#if NeedFunctionPrototypes - Display* /* dpy */, - struct _XrmHashBucketRec* /* rdb */, - char* /* res_name */, - char* /* res_class */ -#endif -); - -extern Status XCloseIM( -#if NeedFunctionPrototypes - XIM /* im */ -#endif -); - -extern char *XGetIMValues( -#if NeedVarargsPrototypes - XIM /* im */, ... -#endif -); - -extern Display *XDisplayOfIM( -#if NeedFunctionPrototypes - XIM /* im */ -#endif -); - -extern char *XLocaleOfIM( -#if NeedFunctionPrototypes - XIM /* im*/ -#endif -); - -extern XIC XCreateIC( -#if NeedVarargsPrototypes - XIM /* im */, ... -#endif -); - -extern void XDestroyIC( -#if NeedFunctionPrototypes - XIC /* ic */ -#endif -); - -extern void XSetICFocus( -#if NeedFunctionPrototypes - XIC /* ic */ -#endif -); - -extern void XUnsetICFocus( -#if NeedFunctionPrototypes - XIC /* ic */ -#endif -); - -extern wchar_t *XwcResetIC( -#if NeedFunctionPrototypes - XIC /* ic */ -#endif -); - -extern char *XmbResetIC( -#if NeedFunctionPrototypes - XIC /* ic */ -#endif -); - -extern char *XSetICValues( -#if NeedVarargsPrototypes - XIC /* ic */, ... -#endif -); - -extern char *XGetICValues( -#if NeedVarargsPrototypes - XIC /* ic */, ... -#endif -); - -extern XIM XIMOfIC( -#if NeedFunctionPrototypes - XIC /* ic */ -#endif -); - -extern Bool XFilterEvent( -#if NeedFunctionPrototypes - XEvent* /* event */, - Window /* window */ -#endif -); - -extern int XmbLookupString( -#if NeedFunctionPrototypes - XIC /* ic */, - XKeyPressedEvent* /* event */, - char* /* buffer_return */, - int /* bytes_buffer */, - KeySym* /* keysym_return */, - Status* /* status_return */ -#endif -); - -extern int XwcLookupString( -#if NeedFunctionPrototypes - XIC /* ic */, - XKeyPressedEvent* /* event */, - wchar_t* /* buffer_return */, - int /* wchars_buffer */, - KeySym* /* keysym_return */, - Status* /* status_return */ -#endif -); - -extern XVaNestedList XVaCreateNestedList( -#if NeedVarargsPrototypes - int /*unused*/, ... -#endif -); +#include "tkIntXlibDecls.h" _XFUNCPROTOEND diff --git a/xlib/xdraw.c b/xlib/xdraw.c index 93b2181..e62f90b 100644 --- a/xlib/xdraw.c +++ b/xlib/xdraw.c @@ -9,10 +9,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: xdraw.c,v 1.2 1998/09/14 18:24:03 stanton Exp $ + * RCS: @(#) $Id: xdraw.c,v 1.3 1999/03/10 07:04:47 stanton Exp $ */ -#include "tk.h" +#include "tkInt.h" /* *---------------------------------------------------------------------- |