From a94e7ca1e7df98ec2eb7f2a6e38e40bfa45e1a52 Mon Sep 17 00:00:00 2001 From: stanton Date: Wed, 10 Mar 1999 07:13:36 +0000 Subject: integrated stubs from development branch --- generic/tk.decls | 1132 +++++++++++++++++ generic/tk.h | 601 +-------- generic/tkBind.c | 6 +- generic/tkCmds.c | 11 +- generic/tkConfig.c | 9 +- generic/tkConsole.c | 23 +- generic/tkCursor.c | 5 +- generic/tkDecls.h | 1851 +++++++++++++++++++++++++++ generic/tkGrab.c | 6 +- generic/tkImgPhoto.c | 9 +- generic/tkInt.decls | 1673 +++++++++++++++++++++++++ generic/tkInt.h | 442 ++----- generic/tkIntDecls.h | 962 ++++++++++++++ generic/tkIntPlatDecls.h | 986 +++++++++++++++ generic/tkIntPlatStubs.c | 1083 ++++++++++++++++ generic/tkIntStubs.c | 1098 ++++++++++++++++ generic/tkIntXlibDecls.h | 1175 ++++++++++++++++++ generic/tkMain.c | 36 +- generic/tkMenu.c | 10 +- generic/tkMenu.h | 3 +- generic/tkPlatDecls.h | 211 ++++ generic/tkPointer.c | 6 +- generic/tkStubInit.c | 701 +++++++++++ generic/tkStubLib.c | 102 ++ generic/tkTextDisp.c | 6 +- generic/tkWindow.c | 29 +- mac/tkMac.h | 29 +- mac/tkMacAppInit.c | 3 +- mac/tkMacCursor.c | 5 +- mac/tkMacInt.h | 92 +- mac/tkMacPort.h | 3 +- mac/tkMacXStubs.c | 43 +- unix/Makefile.in | 133 +- unix/configure.in | 65 +- unix/tkConfig.sh.in | 21 +- unix/tkUnix.c | 30 +- unix/tkUnix3d.c | 6 +- unix/tkUnixDraw.c | 6 +- unix/tkUnixInt.h | 11 +- unix/tkUnixMenubu.c | 4 +- unix/tkUnixPort.h | 7 +- win/makefile.vc | 48 +- win/tkWin.h | 16 +- win/tkWinInt.h | 51 +- win/tkWinPort.h | 7 +- win/winMain.c | 7 +- xlib/X11/Xlib.h | 3093 +--------------------------------------------- 47 files changed, 11626 insertions(+), 4230 deletions(-) create mode 100644 generic/tk.decls create mode 100644 generic/tkDecls.h create mode 100644 generic/tkInt.decls create mode 100644 generic/tkIntDecls.h create mode 100644 generic/tkIntPlatDecls.h create mode 100644 generic/tkIntPlatStubs.c create mode 100644 generic/tkIntStubs.c create mode 100644 generic/tkIntXlibDecls.h create mode 100644 generic/tkPlatDecls.h create mode 100644 generic/tkStubInit.c create mode 100644 generic/tkStubLib.c diff --git a/generic/tk.decls b/generic/tk.decls new file mode 100644 index 0000000..d27e574 --- /dev/null +++ b/generic/tk.decls @@ -0,0 +1,1132 @@ +# 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.2.1 1999/03/10 07:13:36 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 (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) +} + +# new functions for 8.1 + +declare 185 generic { + Pixmap Tk_AllocBitmapFromObj (Tcl_Interp *interp, Tk_Window tkwin, \ + Tcl_Obj *objPtr) +} + +declare 186 generic { + Tk_3DBorder Tk_Alloc3DBorderFromObj (Tcl_Interp *interp, Tk_Window tkwin, \ + Tcl_Obj *objPtr) +} + +declare 187 generic { + XColor * Tk_AllocColorFromObj (Tcl_Interp *interp, Tk_Window tkwin, \ + Tcl_Obj *objPtr) +} + +declare 188 generic { + Tk_Cursor Tk_AllocCursorFromObj (Tcl_Interp *interp, Tk_Window tkwin, \ + Tcl_Obj *objPtr) +} + +declare 189 generic { + Tk_Font Tk_AllocFontFromObj (Tcl_Interp *interp, Tk_Window tkwin, \ + Tcl_Obj *objPtr) + +} + +declare 190 generic { + Tk_OptionTable Tk_CreateOptionTable (Tcl_Interp *interp, \ + CONST Tk_OptionSpec *templatePtr) +} + +declare 191 generic { + void Tk_DeleteOptionTable (Tk_OptionTable optionTable) +} + +declare 192 generic { + void Tk_Free3DBorderFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 193 generic { + void Tk_FreeBitmapFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 194 generic { + void Tk_FreeColorFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 195 generic { + void Tk_FreeConfigOptions (char *recordPtr, Tk_OptionTable optionToken, \ + Tk_Window tkwin) + +} + +declare 196 generic { + void Tk_FreeSavedOptions (Tk_SavedOptions *savePtr) +} + +declare 197 generic { + void Tk_FreeCursorFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 198 generic { + void Tk_FreeFontFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 199 generic { + Tk_3DBorder Tk_Get3DBorderFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 200 generic { + int Tk_GetAnchorFromObj (Tcl_Interp *interp, Tcl_Obj *objPtr, \ + Tk_Anchor *anchorPtr) +} + +declare 201 generic { + Pixmap Tk_GetBitmapFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 202 generic { + XColor * Tk_GetColorFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 203 generic { + Tk_Cursor Tk_GetCursorFromObj (Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 204 generic { + Tcl_Obj * Tk_GetOptionInfo (Tcl_Interp *interp, \ + char *recordPtr, Tk_OptionTable optionTable, \ + Tcl_Obj *namePtr, Tk_Window tkwin) +} + +declare 205 generic { + Tcl_Obj * Tk_GetOptionValue (Tcl_Interp *interp, char *recordPtr, \ + Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin) +} + +declare 206 generic { + int Tk_GetJustifyFromObj (Tcl_Interp *interp, \ + Tcl_Obj *objPtr, Tk_Justify *justifyPtr) +} + +declare 207 generic { + int Tk_GetMMFromObj (Tcl_Interp *interp, \ + Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr) +} + +declare 208 generic { + int Tk_GetPixelsFromObj (Tcl_Interp *interp, \ + Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr) +} + +declare 209 generic { + int Tk_GetReliefFromObj (Tcl_Interp *interp, \ + Tcl_Obj *objPtr, int *resultPtr) +} + +declare 210 generic { + int Tk_GetScrollInfoObj (Tcl_Interp *interp, \ + int objc, Tcl_Obj *CONST objv[], double *dblPtr, int *intPtr) +} + +declare 211 generic { + int Tk_InitOptions ( + Tcl_Interp *interp, char *recordPtr, \ + Tk_OptionTable optionToken, Tk_Window tkwin) +} + +declare 212 generic { + void Tk_MainEx (int argc, char **argv, Tcl_AppInitProc *appInitProc, \ + Tcl_Interp *interp) +} + +declare 213 generic { + void Tk_RestoreSavedOptions (Tk_SavedOptions *savePtr) +} + +declare 214 generic { + int Tk_SetOptions (Tcl_Interp *interp, char *recordPtr, \ + Tk_OptionTable optionTable, int objc, \ + Tcl_Obj *CONST objv[], Tk_Window tkwin, \ + Tk_SavedOptions *savePtr, int *maskPtr) +} + + +# 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) +} + +# new for 8.1 + +declare 6 win { + int Tk_DdeObjCmd (ClientData clientData, Tcl_Interp *interp, \ + int objc, Tcl_Obj *CONST objv[]) +} + +# 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 7299d5c..8e0a78c 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.1.4.11 1999/02/16 11:39:29 lfb Exp $ + * RCS: @(#) $Id: tk.h,v 1.1.4.12 1999/03/10 07:13:37 stanton Exp $ */ #ifndef _TK @@ -1157,6 +1157,11 @@ struct Tk_PhotoImageFormat { #define Tk_FreeProc Tcl_FreeProc #define Tk_Preserve Tcl_Preserve #define Tk_Release Tcl_Release + +/* Removed Tk_Main, use macro instead */ +#define Tk_Main(argc, argv, proc) \ + Tk_MainEx(argc, argv, proc, Tcl_CreateInterp()) + /* *-------------------------------------------------------------- @@ -1188,604 +1193,12 @@ typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, *-------------------------------------------------------------- */ -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 Pixmap Tk_AllocBitmapFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr)); -EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr)); -EXTERN XColor * Tk_AllocColorFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr)); -EXTERN Tk_Cursor Tk_AllocCursorFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr)); -EXTERN Tk_Font Tk_AllocFontFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr)); -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)); -#ifndef __NO_OLD_CONFIG -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)); -#endif -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)); -#ifndef __NO_OLD_CONFIG -EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType *typePtr)); -#endif -EXTERN Tk_OptionTable Tk_CreateOptionTable _ANSI_ARGS_((Tcl_Interp *interp, - CONST Tk_OptionSpec *templatePtr)); -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_DeleteOptionTable _ANSI_ARGS_(( - Tk_OptionTable optionTable)); -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_Free3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -EXTERN void Tk_FreeBitmap _ANSI_ARGS_((Display *display, - Pixmap bitmap)); -EXTERN void Tk_FreeBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -EXTERN void Tk_FreeColor _ANSI_ARGS_((XColor *colorPtr)); -EXTERN void Tk_FreeColorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -EXTERN void Tk_FreeColormap _ANSI_ARGS_((Display *display, - Colormap colormap)); -EXTERN void Tk_FreeConfigOptions _ANSI_ARGS_((char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin)); -EXTERN void Tk_FreeSavedOptions _ANSI_ARGS_(( - Tk_SavedOptions *savePtr)); -EXTERN void Tk_FreeCursor _ANSI_ARGS_((Display *display, - Tk_Cursor cursor)); -EXTERN void Tk_FreeCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -EXTERN void Tk_FreeFont _ANSI_ARGS_((Tk_Font tkfont)); -EXTERN void Tk_FreeFontFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -EXTERN void Tk_FreeGC _ANSI_ARGS_((Display *display, GC gc)); -EXTERN void Tk_FreeImage _ANSI_ARGS_((Tk_Image image)); -#ifndef __NO_OLD_CONFIG -EXTERN void Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec *specs, - char *widgRec, Display *display, int needFlags)); -#endif -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, char *colorName)); -EXTERN Tk_3DBorder Tk_Get3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -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 int Tk_GetAnchorFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *objPtr, 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, char *string)); -EXTERN Pixmap Tk_GetBitmapFromData _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *source, - int width, int height)); -EXTERN Pixmap Tk_GetBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -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, char *name)); -EXTERN XColor * Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin, - XColor *colorPtr)); -EXTERN XColor * Tk_GetColorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -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, char *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_Cursor Tk_GetCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -EXTERN Tk_Font Tk_GetFont _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, CONST char *string)); -EXTERN Tk_Font Tk_GetFontFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj *objPtr)); -EXTERN void Tk_GetFontMetrics _ANSI_ARGS_((Tk_Font font, - Tk_FontMetrics *fmPtr)); -EXTERN Tcl_Obj * Tk_GetOptionInfo _ANSI_ARGS_((Tcl_Interp *interp, - char *recordPtr, Tk_OptionTable optionTable, - Tcl_Obj *namePtr, Tk_Window tkwin)); -EXTERN Tcl_Obj * Tk_GetOptionValue _ANSI_ARGS_(( - Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, Tcl_Obj *namePtr, - Tk_Window tkwin)); -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)); -#ifndef __NO_OLD_CONFIG -EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void)); -#endif -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_GetJustifyFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Justify *justifyPtr)); -EXTERN int Tk_GetMMFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - double *doublePtr)); -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 int Tk_GetPixelsFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, 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 int Tk_GetReliefFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *objPtr, int *resultPtr)); -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_GetScrollInfoObj _ANSI_ARGS_((Tcl_Interp *interp, - int objc, Tcl_Obj *CONST objv[], 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 int Tk_InitOptions _ANSI_ARGS_(( - Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin)); -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_RestoreSavedOptions _ANSI_ARGS_(( - Tk_SavedOptions *savePtr)); -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 int Tk_SetOptions _ANSI_ARGS_(( - Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, int objc, - Tcl_Obj *CONST objv[], Tk_Window tkwin, - Tk_SavedOptions *savePtr, int *maskPtr)); -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)); +#include "tkDecls.h" /* * Tcl commands exported by Tk: */ -EXTERN int Tk_AfterCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -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_ButtonObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_CheckbuttonObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ChooseColorObjCmd _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_ChooseDirectoryObjCmd _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_ChooseFontObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_EntryObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_EventObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_FileeventCmd _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_FocusObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GetOpenFileObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GetSaveFileObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -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_LabelObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -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_MenubuttonObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_MessageBoxObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -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_RadiobuttonObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ScaleObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -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_SendObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -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_UpdateObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -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)); #endif /* RESOURCE_INCLUDED */ diff --git a/generic/tkBind.c b/generic/tkBind.c index c407d38..b173df5 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.1.4.6 1998/12/13 09:54:43 lfb Exp $ + * RCS: @(#) $Id: tkBind.c,v 1.1.4.7 1999/03/10 07:13:37 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 9d40616..42150fe 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -10,13 +10,22 @@ * 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.1.4.4 1999/02/16 11:39:31 lfb Exp $ + * RCS: @(#) $Id: tkCmds.c,v 1.1.4.5 1999/03/10 07:13:38 stanton Exp $ */ #include "tkPort.h" #include "tkInt.h" #include +#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/tkConfig.c b/generic/tkConfig.c index a7d2511..32ac0ed 100644 --- a/generic/tkConfig.c +++ b/generic/tkConfig.c @@ -9,14 +9,21 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkConfig.c,v 1.1.4.2 1998/09/30 02:16:52 stanton Exp $ + * RCS: @(#) $Id: tkConfig.c,v 1.1.4.3 1999/03/10 07:13:38 stanton Exp $ */ /* * Temporary flag for working on new config package. */ +#if 0 + +/* + * used only for removing the old config code + */ + #define __NO_OLD_CONFIG +#endif #include "tk.h" #include "tkInt.h" diff --git a/generic/tkConsole.c b/generic/tkConsole.c index e06eea9..a5b7663 100644 --- a/generic/tkConsole.c +++ b/generic/tkConsole.c @@ -10,12 +10,14 @@ * 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.1.4.5 1999/02/26 02:26:05 redman Exp $ + * RCS: @(#) $Id: tkConsole.c,v 1.1.4.6 1999/03/10 07:13:38 stanton Exp $ */ #include "tk.h" #include +#include "tkInt.h" + /* * A data structure of the following type holds information for each console * which a handler (i.e. a Tcl command) has been defined for a particular @@ -27,8 +29,6 @@ typedef struct ConsoleInfo { Tcl_Interp *interp; /* Interpreter to send console commands. */ } ConsoleInfo; -EXTERN void TclInitSubsystems _ANSI_ARGS_((CONST char *argv0)); - typedef struct ThreadSpecificData { Tcl_Interp *gStdoutInterp; } ThreadSpecificData; @@ -40,7 +40,7 @@ static Tcl_ThreadDataKey dataKey; * The first three will be used in the tk app shells... */ -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)); @@ -84,7 +84,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 @@ -103,9 +103,18 @@ static Tcl_ChannelType consoleChannelType = { void TkConsoleCreate() { - Tcl_Channel consoleChannel; + /* + * This function is being diabled so we don't end up calling it + * twice. Once from WinMain() and once from Tk_MainEx(). The real + * function is now tkCreateConsole_ and is only called from Tk_MainEx. + * All of this is an ugly hack. + */ +} - TclInitSubsystems(NULL); +void +TkConsoleCreate_() +{ + Tcl_Channel consoleChannel; /* * check for STDIN, otherwise create it diff --git a/generic/tkCursor.c b/generic/tkCursor.c index c3e4a12..98d4bc4 100644 --- a/generic/tkCursor.c +++ b/generic/tkCursor.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: tkCursor.c,v 1.1.4.3 1998/12/13 08:16:04 lfb Exp $ + * RCS: @(#) $Id: tkCursor.c,v 1.1.4.4 1999/03/10 07:13:39 stanton Exp $ */ #include "tkPort.h" @@ -330,7 +330,8 @@ Tk_GetCursorFromData(interp, tkwin, source, mask, width, height, register TkCursor *cursorPtr; int new; XColor fgColor, bgColor; - TkDisplay *dispPtr; + TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr; + if (!dispPtr->cursorInit) { CursorInit(dispPtr); diff --git a/generic/tkDecls.h b/generic/tkDecls.h new file mode 100644 index 0000000..3ef1b9c --- /dev/null +++ b/generic/tkDecls.h @@ -0,0 +1,1851 @@ +/* + * 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.2.1 1999/03/10 07:13: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_((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)); +/* 185 */ +EXTERN Pixmap Tk_AllocBitmapFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 186 */ +EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 187 */ +EXTERN XColor * Tk_AllocColorFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 188 */ +EXTERN Tk_Cursor Tk_AllocCursorFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 189 */ +EXTERN Tk_Font Tk_AllocFontFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tcl_Obj * objPtr)); +/* 190 */ +EXTERN Tk_OptionTable Tk_CreateOptionTable _ANSI_ARGS_(( + Tcl_Interp * interp, + CONST Tk_OptionSpec * templatePtr)); +/* 191 */ +EXTERN void Tk_DeleteOptionTable _ANSI_ARGS_(( + Tk_OptionTable optionTable)); +/* 192 */ +EXTERN void Tk_Free3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 193 */ +EXTERN void Tk_FreeBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 194 */ +EXTERN void Tk_FreeColorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 195 */ +EXTERN void Tk_FreeConfigOptions _ANSI_ARGS_((char * recordPtr, + Tk_OptionTable optionToken, Tk_Window tkwin)); +/* 196 */ +EXTERN void Tk_FreeSavedOptions _ANSI_ARGS_(( + Tk_SavedOptions * savePtr)); +/* 197 */ +EXTERN void Tk_FreeCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 198 */ +EXTERN void Tk_FreeFontFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 199 */ +EXTERN Tk_3DBorder Tk_Get3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 200 */ +EXTERN int Tk_GetAnchorFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, Tk_Anchor * anchorPtr)); +/* 201 */ +EXTERN Pixmap Tk_GetBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 202 */ +EXTERN XColor * Tk_GetColorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 203 */ +EXTERN Tk_Cursor Tk_GetCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj * objPtr)); +/* 204 */ +EXTERN Tcl_Obj * Tk_GetOptionInfo _ANSI_ARGS_((Tcl_Interp * interp, + char * recordPtr, Tk_OptionTable optionTable, + Tcl_Obj * namePtr, Tk_Window tkwin)); +/* 205 */ +EXTERN Tcl_Obj * Tk_GetOptionValue _ANSI_ARGS_((Tcl_Interp * interp, + char * recordPtr, Tk_OptionTable optionTable, + Tcl_Obj * namePtr, Tk_Window tkwin)); +/* 206 */ +EXTERN int Tk_GetJustifyFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr, + Tk_Justify * justifyPtr)); +/* 207 */ +EXTERN int Tk_GetMMFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tcl_Obj * objPtr, + double * doublePtr)); +/* 208 */ +EXTERN int Tk_GetPixelsFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tcl_Obj * objPtr, + int * intPtr)); +/* 209 */ +EXTERN int Tk_GetReliefFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, int * resultPtr)); +/* 210 */ +EXTERN int Tk_GetScrollInfoObj _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], + double * dblPtr, int * intPtr)); +/* 211 */ +EXTERN int Tk_InitOptions _ANSI_ARGS_((Tcl_Interp * interp, + char * recordPtr, Tk_OptionTable optionToken, + Tk_Window tkwin)); +/* 212 */ +EXTERN void Tk_MainEx _ANSI_ARGS_((int argc, char ** argv, + Tcl_AppInitProc * appInitProc, + Tcl_Interp * interp)); +/* 213 */ +EXTERN void Tk_RestoreSavedOptions _ANSI_ARGS_(( + Tk_SavedOptions * savePtr)); +/* 214 */ +EXTERN int Tk_SetOptions _ANSI_ARGS_((Tcl_Interp * interp, + char * recordPtr, Tk_OptionTable optionTable, + int objc, Tcl_Obj *CONST objv[], + Tk_Window tkwin, Tk_SavedOptions * savePtr, + int * maskPtr)); + +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_((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 */ + Pixmap (*tk_AllocBitmapFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 185 */ + Tk_3DBorder (*tk_Alloc3DBorderFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 186 */ + XColor * (*tk_AllocColorFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 187 */ + Tk_Cursor (*tk_AllocCursorFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 188 */ + Tk_Font (*tk_AllocFontFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 189 */ + Tk_OptionTable (*tk_CreateOptionTable) _ANSI_ARGS_((Tcl_Interp * interp, CONST Tk_OptionSpec * templatePtr)); /* 190 */ + void (*tk_DeleteOptionTable) _ANSI_ARGS_((Tk_OptionTable optionTable)); /* 191 */ + void (*tk_Free3DBorderFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 192 */ + void (*tk_FreeBitmapFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 193 */ + void (*tk_FreeColorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 194 */ + void (*tk_FreeConfigOptions) _ANSI_ARGS_((char * recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin)); /* 195 */ + void (*tk_FreeSavedOptions) _ANSI_ARGS_((Tk_SavedOptions * savePtr)); /* 196 */ + void (*tk_FreeCursorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 197 */ + void (*tk_FreeFontFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 198 */ + Tk_3DBorder (*tk_Get3DBorderFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 199 */ + int (*tk_GetAnchorFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tk_Anchor * anchorPtr)); /* 200 */ + Pixmap (*tk_GetBitmapFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 201 */ + XColor * (*tk_GetColorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 202 */ + Tk_Cursor (*tk_GetCursorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 203 */ + Tcl_Obj * (*tk_GetOptionInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, Tcl_Obj * namePtr, Tk_Window tkwin)); /* 204 */ + Tcl_Obj * (*tk_GetOptionValue) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, Tcl_Obj * namePtr, Tk_Window tkwin)); /* 205 */ + int (*tk_GetJustifyFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tk_Justify * justifyPtr)); /* 206 */ + int (*tk_GetMMFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, double * doublePtr)); /* 207 */ + int (*tk_GetPixelsFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, int * intPtr)); /* 208 */ + int (*tk_GetReliefFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * resultPtr)); /* 209 */ + int (*tk_GetScrollInfoObj) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], double * dblPtr, int * intPtr)); /* 210 */ + int (*tk_InitOptions) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin)); /* 211 */ + void (*tk_MainEx) _ANSI_ARGS_((int argc, char ** argv, Tcl_AppInitProc * appInitProc, Tcl_Interp * interp)); /* 212 */ + void (*tk_RestoreSavedOptions) _ANSI_ARGS_((Tk_SavedOptions * savePtr)); /* 213 */ + int (*tk_SetOptions) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *CONST objv[], Tk_Window tkwin, Tk_SavedOptions * savePtr, int * maskPtr)); /* 214 */ +} 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(tkwin, objPtr) \ + (tkStubsPtr->tk_GetFontFromObj)(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 +#ifndef Tk_AllocBitmapFromObj +#define Tk_AllocBitmapFromObj(interp, tkwin, objPtr) \ + (tkStubsPtr->tk_AllocBitmapFromObj)(interp, tkwin, objPtr) /* 185 */ +#endif +#ifndef Tk_Alloc3DBorderFromObj +#define Tk_Alloc3DBorderFromObj(interp, tkwin, objPtr) \ + (tkStubsPtr->tk_Alloc3DBorderFromObj)(interp, tkwin, objPtr) /* 186 */ +#endif +#ifndef Tk_AllocColorFromObj +#define Tk_AllocColorFromObj(interp, tkwin, objPtr) \ + (tkStubsPtr->tk_AllocColorFromObj)(interp, tkwin, objPtr) /* 187 */ +#endif +#ifndef Tk_AllocCursorFromObj +#define Tk_AllocCursorFromObj(interp, tkwin, objPtr) \ + (tkStubsPtr->tk_AllocCursorFromObj)(interp, tkwin, objPtr) /* 188 */ +#endif +#ifndef Tk_AllocFontFromObj +#define Tk_AllocFontFromObj(interp, tkwin, objPtr) \ + (tkStubsPtr->tk_AllocFontFromObj)(interp, tkwin, objPtr) /* 189 */ +#endif +#ifndef Tk_CreateOptionTable +#define Tk_CreateOptionTable(interp, templatePtr) \ + (tkStubsPtr->tk_CreateOptionTable)(interp, templatePtr) /* 190 */ +#endif +#ifndef Tk_DeleteOptionTable +#define Tk_DeleteOptionTable(optionTable) \ + (tkStubsPtr->tk_DeleteOptionTable)(optionTable) /* 191 */ +#endif +#ifndef Tk_Free3DBorderFromObj +#define Tk_Free3DBorderFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_Free3DBorderFromObj)(tkwin, objPtr) /* 192 */ +#endif +#ifndef Tk_FreeBitmapFromObj +#define Tk_FreeBitmapFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_FreeBitmapFromObj)(tkwin, objPtr) /* 193 */ +#endif +#ifndef Tk_FreeColorFromObj +#define Tk_FreeColorFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_FreeColorFromObj)(tkwin, objPtr) /* 194 */ +#endif +#ifndef Tk_FreeConfigOptions +#define Tk_FreeConfigOptions(recordPtr, optionToken, tkwin) \ + (tkStubsPtr->tk_FreeConfigOptions)(recordPtr, optionToken, tkwin) /* 195 */ +#endif +#ifndef Tk_FreeSavedOptions +#define Tk_FreeSavedOptions(savePtr) \ + (tkStubsPtr->tk_FreeSavedOptions)(savePtr) /* 196 */ +#endif +#ifndef Tk_FreeCursorFromObj +#define Tk_FreeCursorFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_FreeCursorFromObj)(tkwin, objPtr) /* 197 */ +#endif +#ifndef Tk_FreeFontFromObj +#define Tk_FreeFontFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_FreeFontFromObj)(tkwin, objPtr) /* 198 */ +#endif +#ifndef Tk_Get3DBorderFromObj +#define Tk_Get3DBorderFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_Get3DBorderFromObj)(tkwin, objPtr) /* 199 */ +#endif +#ifndef Tk_GetAnchorFromObj +#define Tk_GetAnchorFromObj(interp, objPtr, anchorPtr) \ + (tkStubsPtr->tk_GetAnchorFromObj)(interp, objPtr, anchorPtr) /* 200 */ +#endif +#ifndef Tk_GetBitmapFromObj +#define Tk_GetBitmapFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_GetBitmapFromObj)(tkwin, objPtr) /* 201 */ +#endif +#ifndef Tk_GetColorFromObj +#define Tk_GetColorFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_GetColorFromObj)(tkwin, objPtr) /* 202 */ +#endif +#ifndef Tk_GetCursorFromObj +#define Tk_GetCursorFromObj(tkwin, objPtr) \ + (tkStubsPtr->tk_GetCursorFromObj)(tkwin, objPtr) /* 203 */ +#endif +#ifndef Tk_GetOptionInfo +#define Tk_GetOptionInfo(interp, recordPtr, optionTable, namePtr, tkwin) \ + (tkStubsPtr->tk_GetOptionInfo)(interp, recordPtr, optionTable, namePtr, tkwin) /* 204 */ +#endif +#ifndef Tk_GetOptionValue +#define Tk_GetOptionValue(interp, recordPtr, optionTable, namePtr, tkwin) \ + (tkStubsPtr->tk_GetOptionValue)(interp, recordPtr, optionTable, namePtr, tkwin) /* 205 */ +#endif +#ifndef Tk_GetJustifyFromObj +#define Tk_GetJustifyFromObj(interp, objPtr, justifyPtr) \ + (tkStubsPtr->tk_GetJustifyFromObj)(interp, objPtr, justifyPtr) /* 206 */ +#endif +#ifndef Tk_GetMMFromObj +#define Tk_GetMMFromObj(interp, tkwin, objPtr, doublePtr) \ + (tkStubsPtr->tk_GetMMFromObj)(interp, tkwin, objPtr, doublePtr) /* 207 */ +#endif +#ifndef Tk_GetPixelsFromObj +#define Tk_GetPixelsFromObj(interp, tkwin, objPtr, intPtr) \ + (tkStubsPtr->tk_GetPixelsFromObj)(interp, tkwin, objPtr, intPtr) /* 208 */ +#endif +#ifndef Tk_GetReliefFromObj +#define Tk_GetReliefFromObj(interp, objPtr, resultPtr) \ + (tkStubsPtr->tk_GetReliefFromObj)(interp, objPtr, resultPtr) /* 209 */ +#endif +#ifndef Tk_GetScrollInfoObj +#define Tk_GetScrollInfoObj(interp, objc, objv, dblPtr, intPtr) \ + (tkStubsPtr->tk_GetScrollInfoObj)(interp, objc, objv, dblPtr, intPtr) /* 210 */ +#endif +#ifndef Tk_InitOptions +#define Tk_InitOptions(interp, recordPtr, optionToken, tkwin) \ + (tkStubsPtr->tk_InitOptions)(interp, recordPtr, optionToken, tkwin) /* 211 */ +#endif +#ifndef Tk_MainEx +#define Tk_MainEx(argc, argv, appInitProc, interp) \ + (tkStubsPtr->tk_MainEx)(argc, argv, appInitProc, interp) /* 212 */ +#endif +#ifndef Tk_RestoreSavedOptions +#define Tk_RestoreSavedOptions(savePtr) \ + (tkStubsPtr->tk_RestoreSavedOptions)(savePtr) /* 213 */ +#endif +#ifndef Tk_SetOptions +#define Tk_SetOptions(interp, recordPtr, optionTable, objc, objv, tkwin, savePtr, maskPtr) \ + (tkStubsPtr->tk_SetOptions)(interp, recordPtr, optionTable, objc, objv, tkwin, savePtr, maskPtr) /* 214 */ +#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 cf648b1..934ea1b 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.1.4.3 1998/12/13 08:16:06 lfb Exp $ + * RCS: @(#) $Id: tkGrab.c,v 1.1.4.4 1999/03/10 07:13:40 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 a07595c..d9b2fcd 100644 --- a/generic/tkImgPhoto.c +++ b/generic/tkImgPhoto.c @@ -15,7 +15,7 @@ * Department of Computer Science, * Australian National University. * - * RCS: @(#) $Id: tkImgPhoto.c,v 1.1.4.4 1999/02/11 04:13:46 stanton Exp $ + * RCS: @(#) $Id: tkImgPhoto.c,v 1.1.4.5 1999/03/10 07:13:40 stanton Exp $ */ #include "tkInt.h" @@ -23,6 +23,10 @@ #include "tclMath.h" #include +#ifdef __WIN32__ +#include "tkWinInt.h" +#endif + /* * Declaration for internal Xlib function used here: */ @@ -125,6 +129,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..16ab995 --- /dev/null +++ b/generic/tkInt.decls @@ -0,0 +1,1673 @@ +# 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.2.1 1999/03/10 07:13: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) +} + +# Name change only, TkFreeCursor in Tcl 8.0.x now TkpFreeCursor +declare 29 generic { + void TkpFreeCursor (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 (double end1Ptr[], double end2Ptr[], double rectPtr[]) +} + +declare 48 generic { + double TkLineToPoint (double end1Ptr[], \ + double end2Ptr[], double 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 (double ovalPtr[], \ + double width, int filled, double 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) +} + +# new for 8.1 + +declare 98 generic { + Tcl_Obj * TkDebugBitmap ( Tk_Window tkwin, char *name) +} + +declare 99 generic { + Tcl_Obj * TkDebugBorder ( Tk_Window tkwin, char *name) +} + +declare 100 generic { + Tcl_Obj * TkDebugCursor ( Tk_Window tkwin, char *name) +} + +declare 101 generic { + Tcl_Obj * TkDebugColor ( Tk_Window tkwin, char *name) +} + +declare 102 generic { + Tcl_Obj * TkDebugConfig (Tcl_Interp *interp, Tk_OptionTable table) +} + +declare 103 generic { + Tcl_Obj * TkDebugFont ( Tk_Window tkwin, char *name) +} + +declare 104 generic { + int TkFindStateNumObj (Tcl_Interp *interp, \ + Tcl_Obj *optionPtr, CONST TkStateMap *mapPtr, \ + Tcl_Obj *keyPtr) +} + +declare 105 generic { + Tcl_HashTable * TkGetBitmapPredefTable (void) +} + +declare 106 generic { + TkDisplay * TkGetDisplayList (void) +} + +declare 107 generic { + TkMainInfo * TkGetMainInfoList (void) +} + +declare 108 generic { + int TkGetWindowFromObj (Tcl_Interp *interp, \ + Tk_Window tkwin, Tcl_Obj *objPtr, \ + Tk_Window *windowPtr) +} + +declare 109 generic { + char * TkpGetString (TkWindow *winPtr, \ + XEvent *eventPtr, Tcl_DString *dsPtr) +} + +declare 110 generic { + void TkpGetSubFonts (Tcl_Interp *interp, Tk_Font tkfont) +} + +declare 111 generic { + Tcl_Obj * TkpGetSystemDefault (Tk_Window tkwin, \ + char *dbName, char *className) +} + +declare 112 generic { + void TkpMenuThreadInit (void) +} + +############################################################################## + +# 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) +} + +# new for 8.1 + +declare 36 win { + void TkWinSetForegroundWindow (TkWindow *winPtr) +} + +declare 37 win { + void TkWinDialogDebug (int debug) +} + +declare 38 win { + Tcl_Obj * TkWinGetMenuSystemDefault (Tk_Window tkwin, \ + char *dbName, char *className) +} + +declare 39 win { + int TkWinGetPlatformId(void) +} + +######################## +# 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 { + Pixmap XCreateBitmapFromData(Display* display, Drawable d, \ + _Xconst char* data, unsigned int width,unsigned int height) +} + +declare 26 win { + void XDefineCursor (Display* d, Window w, Cursor c) +} + +declare 27 win { + void XDeleteProperty (Display* d, Window w, Atom a) +} + +declare 28 win { + void XDestroyWindow (Display* d, Window w) +} + +declare 29 win { + void XDrawArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 30 win { + void XDrawLines (Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2) +} + +declare 31 win { + void XDrawRectangle (Display* d, Drawable dr, GC g, int i1, int i2,\ + unsigned int ui1, unsigned int ui2) +} + +declare 32 win { + void XFillArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 33 win { + void XFillPolygon (Display* d, Drawable dr, GC g, XPoint* x, \ + int i1, int i2, int i3) +} + +declare 34 win { + void XFillRectangles (Display* d, Drawable dr, GC g, XRectangle* x, int i) +} + +declare 35 win { + void XForceScreenSaver (Display* d, int i) +} + +declare 36 win { + void XFreeColormap (Display* d, Colormap c) +} + +declare 37 win { + void XFreeColors (Display* d, Colormap c, \ + unsigned long* ulp, int i, unsigned long ul) +} + +declare 38 win { + void XFreeCursor (Display* d, Cursor c) +} + +declare 39 win { + void XFreeModifiermap (XModifierKeymap* x) +} + +declare 40 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 41 win { + void XGetInputFocus (Display* d, Window* w, int* i) +} + +declare 42 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 43 win { + Status XGetWindowAttributes (Display* d, Window w, XWindowAttributes* x) +} + +declare 44 win { + int XGrabKeyboard (Display* d, Window w, Bool b, int i1, int i2, Time t) +} + +declare 45 win { + int XGrabPointer (Display* d, Window w1, Bool b, unsigned int ui, \ + int i1, int i2, Window w2, Cursor c, Time t) +} + +declare 46 win { + KeyCode XKeysymToKeycode (Display* d, KeySym k) +} + +declare 47 win { + Status XLookupColor (Display* d, Colormap c1, _Xconst char* c2, \ + XColor* x1, XColor* x2) +} + +declare 48 win { + void XMapWindow (Display* d, Window w) +} + +declare 49 win { + void XMoveResizeWindow (Display* d, Window w, int i1, int i2, \ + unsigned int ui1, unsigned int ui2) +} + +declare 50 win { + void XMoveWindow (Display* d, Window w, int i1, int i2) +} + +declare 51 win { + void XNextEvent (Display* d, XEvent* x) +} + +declare 52 win { + void XPutBackEvent (Display* d, XEvent* x) +} + +declare 53 win { + void XQueryColors (Display* d, Colormap c, XColor* x, int i) +} + +declare 54 win { + Bool XQueryPointer (Display* d, Window w1, Window* w2, Window* w3, \ + int* i1, int* i2, int* i3, int* i4, unsigned int* ui) +} + +declare 55 win { + Status XQueryTree (Display* d, Window w1, Window* w2, Window* w3, \ + Window** w4, unsigned int* ui) +} + +declare 56 win { + void XRaiseWindow (Display* d, Window w) +} + +declare 57 win { + void XRefreshKeyboardMapping (XMappingEvent* x) +} + +declare 58 win { + void XResizeWindow (Display* d, Window w, unsigned int ui1, \ + unsigned int ui2) +} + +declare 59 win { + void XSelectInput (Display* d, Window w, long l) +} + +declare 60 win { + Status XSendEvent (Display* d, Window w, Bool b, long l, XEvent* x) +} + +declare 61 win { + void XSetCommand (Display* d, Window w, char** c, int i) +} + +declare 62 win { + void XSetIconName (Display* d, Window w, _Xconst char* c) +} + +declare 63 win { + void XSetInputFocus (Display* d, Window w, int i, Time t) +} + +declare 64 win { + void XSetSelectionOwner (Display* d, Atom a, Window w, Time t) +} + +declare 65 win { + void XSetWindowBackground (Display* d, Window w, unsigned long ul) +} + +declare 66 win { + void XSetWindowBackgroundPixmap (Display* d, Window w, Pixmap p) +} + +declare 67 win { + void XSetWindowBorder (Display* d, Window w, unsigned long ul) +} + +declare 68 win { + void XSetWindowBorderPixmap (Display* d, Window w, Pixmap p) +} + +declare 69 win { + void XSetWindowBorderWidth (Display* d, Window w, unsigned int ui) +} + +declare 70 win { + void XSetWindowColormap (Display* d, Window w, Colormap c) +} + +declare 71 win { + Bool XTranslateCoordinates (Display* d, Window w1, Window w2, int i1,\ + int i2, int* i3, int* i4, Window* w3) +} + +declare 72 win { + void XUngrabKeyboard (Display* d, Time t) +} + +declare 73 win { + void XUngrabPointer (Display* d, Time t) +} + +declare 74 win { + void XUnmapWindow (Display* d, Window w) +} + +declare 75 win { + void XWindowEvent (Display* d, Window w, long l, XEvent* x) +} + +declare 76 win { + void XDestroyIC (XIC x) +} + +declare 77 win { + Bool XFilterEvent (XEvent* x, Window w) +} + +declare 78 win { + int XmbLookupString (XIC xi, XKeyPressedEvent* xk, \ + char* c, int i, KeySym* k, Status* s) +} + +declare 79 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 { + Pixmap XCreateBitmapFromData(Display* display, Drawable d, \ + _Xconst char* data, unsigned int width,unsigned int height) +} + +declare 19 mac { + void XDefineCursor (Display* d, Window w, Cursor c) +} + +declare 20 mac { + void XDestroyWindow (Display* d, Window w) +} + +declare 21 mac { + void XDrawArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 22 mac { + void XDrawLines (Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2) +} + +declare 23 mac { + void XDrawRectangle (Display* d, Drawable dr, GC g, int i1, int i2,\ + unsigned int ui1, unsigned int ui2) +} + +declare 24 mac { + void XFillArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 25 mac { + void XFillPolygon (Display* d, Drawable dr, GC g, XPoint* x, \ + int i1, int i2, int i3) +} + +declare 26 mac { + void XFillRectangles (Display* d, Drawable dr, GC g, XRectangle* x, int i) +} + +declare 27 mac { + void XFreeColormap (Display* d, Colormap c) +} + +declare 28 mac { + void XFreeColors (Display* d, Colormap c, \ + unsigned long* ulp, int i, unsigned long ul) +} + +declare 29 mac { + void XFreeModifiermap (XModifierKeymap* x) +} + +declare 30 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 31 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 32 mac { + int XGrabKeyboard (Display* d, Window w, Bool b, int i1, int i2, Time t) +} + +declare 33 mac { + int XGrabPointer (Display* d, Window w1, Bool b, unsigned int ui, \ + int i1, int i2, Window w2, Cursor c, Time t) +} + +declare 34 mac { + KeyCode XKeysymToKeycode (Display* d, KeySym k) +} + +declare 35 mac { + void XMapWindow (Display* d, Window w) +} + +declare 36 mac { + void XMoveResizeWindow (Display* d, Window w, int i1, int i2, \ + unsigned int ui1, unsigned int ui2) +} + +declare 37 mac { + void XMoveWindow (Display* d, Window w, int i1, int i2) +} + +declare 38 mac { + Bool XQueryPointer (Display* d, Window w1, Window* w2, Window* w3, \ + int* i1, int* i2, int* i3, int* i4, unsigned int* ui) +} + +declare 39 mac { + void XRaiseWindow (Display* d, Window w) +} + +declare 40 mac { + void XRefreshKeyboardMapping (XMappingEvent* x) +} + +declare 41 mac { + void XResizeWindow (Display* d, Window w, unsigned int ui1, \ + unsigned int ui2) +} + +declare 42 mac { + void XSelectInput (Display* d, Window w, long l) +} + +declare 43 mac { + Status XSendEvent (Display* d, Window w, Bool b, long l, XEvent* x) +} + +declare 44 mac { + void XSetIconName (Display* d, Window w, _Xconst char* c) +} + +declare 45 mac { + void XSetInputFocus (Display* d, Window w, int i, Time t) +} + +declare 46 mac { + void XSetSelectionOwner (Display* d, Atom a, Window w, Time t) +} + +declare 47 mac { + void XSetWindowBackground (Display* d, Window w, unsigned long ul) +} + +declare 48 mac { + void XSetWindowBackgroundPixmap (Display* d, Window w, Pixmap p) +} + +declare 49 mac { + void XSetWindowBorder (Display* d, Window w, unsigned long ul) +} + +declare 50 mac { + void XSetWindowBorderPixmap (Display* d, Window w, Pixmap p) +} + +declare 51 mac { + void XSetWindowBorderWidth (Display* d, Window w, unsigned int ui) +} + +declare 52 mac { + void XSetWindowColormap (Display* d, Window w, Colormap c) +} + +declare 53 mac { + void XUngrabKeyboard (Display* d, Time t) +} + +declare 54 mac { + void XUngrabPointer (Display* d, Time t) +} + +declare 55 mac { + void XUnmapWindow (Display* d, Window w) +} + +declare 56 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 ab72990..6388e94 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.1.4.3 1998/12/13 08:16:08 lfb Exp $ + * RCS: $Id: tkInt.h,v 1.1.4.4 1999/03/10 07:13:41 stanton Exp $ */ #ifndef _TKINT @@ -27,11 +27,6 @@ #include #endif -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - /* * Opaque type declarations: */ @@ -864,324 +859,143 @@ 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 + /* * Internal procedures shared among Tk modules but not exported * to the outside world: */ -EXTERN char * TkAlignImageData _ANSI_ARGS_((XImage *image, - int alignment, int bitOrder)); -EXTERN TkWindow * TkAllocWindow _ANSI_ARGS_((TkDisplay *dispPtr, - int screenNum, TkWindow *parentPtr)); -EXTERN int TkAreaToPolygon _ANSI_ARGS_((double *polyPtr, - int numPoints, double *rectPtr)); -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 Pixmap TkCreateBitmapFromData _ANSI_ARGS_((Display* display, - Drawable d, CONST char* data, - unsigned int width, unsigned int height)); -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)); +EXTERN int Tk_AfterCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +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_ButtonObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_CheckbuttonObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ChooseColorObjCmd _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[])); +EXTERN int Tk_ChooseDirectoryObjCmd _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[])); +EXTERN int Tk_ChooseFontObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_EntryObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_EventObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_FileeventCmd _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_FocusObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_GetOpenFileObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_GetSaveFileObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +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_LabelObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +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_MenubuttonObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_MessageBoxObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +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_RadiobuttonObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ScaleObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +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_SendObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +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_UpdateObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +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)); +int TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp)); +void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, + int devId, char *buffer, long size)); + +EXTERN void TkEventInit _ANSI_ARGS_((void)); + EXTERN int TkCreateMenuCmd _ANSI_ARGS_((Tcl_Interp *interp)); -#ifndef TkCreateRegion -EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void)); -#endif -EXTERN Time TkCurrentTime _ANSI_ARGS_((TkDisplay *dispPtr)); EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); -EXTERN void TkDeleteAllImages _ANSI_ARGS_((TkMainInfo *mainPtr)); -EXTERN Tcl_Obj * TkDebugBitmap _ANSI_ARGS_(( Tk_Window tkwin, - char *name)); -EXTERN Tcl_Obj * TkDebugBorder _ANSI_ARGS_(( Tk_Window tkwin, - char *name)); -EXTERN Tcl_Obj * TkDebugCursor _ANSI_ARGS_(( Tk_Window tkwin, - char *name)); -EXTERN Tcl_Obj * TkDebugColor _ANSI_ARGS_(( Tk_Window tkwin, - char *name)); -EXTERN Tcl_Obj * TkDebugConfig _ANSI_ARGS_((Tcl_Interp *interp, - Tk_OptionTable table)); -EXTERN Tcl_Obj * TkDebugFont _ANSI_ARGS_(( Tk_Window tkwin, - char *name)); -#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 TkEventCleanupProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp)); -EXTERN void TkEventDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkEventInit _ANSI_ARGS_((void)); -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 int TkFindStateNumObj _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *optionPtr, CONST TkStateMap *mapPtr, - Tcl_Obj *keyPtr)); -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 TkFreeWindowId _ANSI_ARGS_((TkDisplay *dispPtr, - Window w)); -EXTERN void TkGenerateActivateEvents _ANSI_ARGS_(( - TkWindow *winPtr, int active)); -EXTERN Tcl_HashTable * TkGetBitmapPredefTabel _ANSI_ARGS_((void)); -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 TkDisplay * TkGetDisplayList _ANSI_ARGS_((void)); -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 TkMainInfo * TkGetMainInfoList _ANSI_ARGS_((void)); -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 void TkGetServerInfo _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin)); -EXTERN int TkGetWindowFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - Tk_Window *windowPtr)); -EXTERN void TkGrabDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkGrabState _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN TkWindow * TkIDToWindow _ANSI_ARGS_((Window window, - TkDisplay *display)); -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 TkListAppend _ANSI_ARGS_((void **headPtrPtr, - void *itemPtr, size_t size)); -EXTERN int TkListDelete _ANSI_ARGS_((void **headPtrPtr, - void *itemPtr, size_t size)); -EXTERN void * TkListFind _ANSI_ARGS_((void *headPtr, void *itemPtr, - size_t size)); -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 TkpFreeCursor _ANSI_ARGS_((TkCursor *cursorPtr)); -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 char * TkpGetString _ANSI_ARGS_((TkWindow *winPtr, - XEvent *eventPtr, Tcl_DString *dsPtr)); -EXTERN void TkpGetSubFonts _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Font tkfont)); -EXTERN Tcl_Obj * TkpGetSystemDefault _ANSI_ARGS_((Tk_Window tkwin, - char *dbName, char *className)); -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 TkXFileProc _ANSI_ARGS_((ClientData clientData, - int mask, int flags)); /* * Unsupported commands. diff --git a/generic/tkIntDecls.h b/generic/tkIntDecls.h new file mode 100644 index 0000000..8c25644 --- /dev/null +++ b/generic/tkIntDecls.h @@ -0,0 +1,962 @@ +/* + * 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.2.1 1999/03/10 07:13:41 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 TkpFreeCursor _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_((double end1Ptr[], + double end2Ptr[], double rectPtr[])); +/* 48 */ +EXTERN double TkLineToPoint _ANSI_ARGS_((double end1Ptr[], + double end2Ptr[], double 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_((double ovalPtr[], + double width, int filled, double 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)); +/* 98 */ +EXTERN Tcl_Obj * TkDebugBitmap _ANSI_ARGS_((Tk_Window tkwin, + char * name)); +/* 99 */ +EXTERN Tcl_Obj * TkDebugBorder _ANSI_ARGS_((Tk_Window tkwin, + char * name)); +/* 100 */ +EXTERN Tcl_Obj * TkDebugCursor _ANSI_ARGS_((Tk_Window tkwin, + char * name)); +/* 101 */ +EXTERN Tcl_Obj * TkDebugColor _ANSI_ARGS_((Tk_Window tkwin, + char * name)); +/* 102 */ +EXTERN Tcl_Obj * TkDebugConfig _ANSI_ARGS_((Tcl_Interp * interp, + Tk_OptionTable table)); +/* 103 */ +EXTERN Tcl_Obj * TkDebugFont _ANSI_ARGS_((Tk_Window tkwin, + char * name)); +/* 104 */ +EXTERN int TkFindStateNumObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * optionPtr, + CONST TkStateMap * mapPtr, Tcl_Obj * keyPtr)); +/* 105 */ +EXTERN Tcl_HashTable * TkGetBitmapPredefTable _ANSI_ARGS_((void)); +/* 106 */ +EXTERN TkDisplay * TkGetDisplayList _ANSI_ARGS_((void)); +/* 107 */ +EXTERN TkMainInfo * TkGetMainInfoList _ANSI_ARGS_((void)); +/* 108 */ +EXTERN int TkGetWindowFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tcl_Obj * objPtr, + Tk_Window * windowPtr)); +/* 109 */ +EXTERN char * TkpGetString _ANSI_ARGS_((TkWindow * winPtr, + XEvent * eventPtr, Tcl_DString * dsPtr)); +/* 110 */ +EXTERN void TkpGetSubFonts _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Font tkfont)); +/* 111 */ +EXTERN Tcl_Obj * TkpGetSystemDefault _ANSI_ARGS_((Tk_Window tkwin, + char * dbName, char * className)); +/* 112 */ +EXTERN void TkpMenuThreadInit _ANSI_ARGS_((void)); + +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 (*tkpFreeCursor) _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_((double end1Ptr[], double end2Ptr[], double rectPtr[])); /* 47 */ + double (*tkLineToPoint) _ANSI_ARGS_((double end1Ptr[], double end2Ptr[], double 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_((double ovalPtr[], double width, int filled, double 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 */ + Tcl_Obj * (*tkDebugBitmap) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 98 */ + Tcl_Obj * (*tkDebugBorder) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 99 */ + Tcl_Obj * (*tkDebugCursor) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 100 */ + Tcl_Obj * (*tkDebugColor) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 101 */ + Tcl_Obj * (*tkDebugConfig) _ANSI_ARGS_((Tcl_Interp * interp, Tk_OptionTable table)); /* 102 */ + Tcl_Obj * (*tkDebugFont) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 103 */ + int (*tkFindStateNumObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * optionPtr, CONST TkStateMap * mapPtr, Tcl_Obj * keyPtr)); /* 104 */ + Tcl_HashTable * (*tkGetBitmapPredefTable) _ANSI_ARGS_((void)); /* 105 */ + TkDisplay * (*tkGetDisplayList) _ANSI_ARGS_((void)); /* 106 */ + TkMainInfo * (*tkGetMainInfoList) _ANSI_ARGS_((void)); /* 107 */ + int (*tkGetWindowFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, Tk_Window * windowPtr)); /* 108 */ + char * (*tkpGetString) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr, Tcl_DString * dsPtr)); /* 109 */ + void (*tkpGetSubFonts) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Font tkfont)); /* 110 */ + Tcl_Obj * (*tkpGetSystemDefault) _ANSI_ARGS_((Tk_Window tkwin, char * dbName, char * className)); /* 111 */ + void (*tkpMenuThreadInit) _ANSI_ARGS_((void)); /* 112 */ +} 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 TkpFreeCursor +#define TkpFreeCursor(cursorPtr) \ + (tkIntStubsPtr->tkpFreeCursor)(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 +#ifndef TkDebugBitmap +#define TkDebugBitmap(tkwin, name) \ + (tkIntStubsPtr->tkDebugBitmap)(tkwin, name) /* 98 */ +#endif +#ifndef TkDebugBorder +#define TkDebugBorder(tkwin, name) \ + (tkIntStubsPtr->tkDebugBorder)(tkwin, name) /* 99 */ +#endif +#ifndef TkDebugCursor +#define TkDebugCursor(tkwin, name) \ + (tkIntStubsPtr->tkDebugCursor)(tkwin, name) /* 100 */ +#endif +#ifndef TkDebugColor +#define TkDebugColor(tkwin, name) \ + (tkIntStubsPtr->tkDebugColor)(tkwin, name) /* 101 */ +#endif +#ifndef TkDebugConfig +#define TkDebugConfig(interp, table) \ + (tkIntStubsPtr->tkDebugConfig)(interp, table) /* 102 */ +#endif +#ifndef TkDebugFont +#define TkDebugFont(tkwin, name) \ + (tkIntStubsPtr->tkDebugFont)(tkwin, name) /* 103 */ +#endif +#ifndef TkFindStateNumObj +#define TkFindStateNumObj(interp, optionPtr, mapPtr, keyPtr) \ + (tkIntStubsPtr->tkFindStateNumObj)(interp, optionPtr, mapPtr, keyPtr) /* 104 */ +#endif +#ifndef TkGetBitmapPredefTable +#define TkGetBitmapPredefTable() \ + (tkIntStubsPtr->tkGetBitmapPredefTable)() /* 105 */ +#endif +#ifndef TkGetDisplayList +#define TkGetDisplayList() \ + (tkIntStubsPtr->tkGetDisplayList)() /* 106 */ +#endif +#ifndef TkGetMainInfoList +#define TkGetMainInfoList() \ + (tkIntStubsPtr->tkGetMainInfoList)() /* 107 */ +#endif +#ifndef TkGetWindowFromObj +#define TkGetWindowFromObj(interp, tkwin, objPtr, windowPtr) \ + (tkIntStubsPtr->tkGetWindowFromObj)(interp, tkwin, objPtr, windowPtr) /* 108 */ +#endif +#ifndef TkpGetString +#define TkpGetString(winPtr, eventPtr, dsPtr) \ + (tkIntStubsPtr->tkpGetString)(winPtr, eventPtr, dsPtr) /* 109 */ +#endif +#ifndef TkpGetSubFonts +#define TkpGetSubFonts(interp, tkfont) \ + (tkIntStubsPtr->tkpGetSubFonts)(interp, tkfont) /* 110 */ +#endif +#ifndef TkpGetSystemDefault +#define TkpGetSystemDefault(tkwin, dbName, className) \ + (tkIntStubsPtr->tkpGetSystemDefault)(tkwin, dbName, className) /* 111 */ +#endif +#ifndef TkpMenuThreadInit +#define TkpMenuThreadInit() \ + (tkIntStubsPtr->tkpMenuThreadInit)() /* 112 */ +#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..378575b --- /dev/null +++ b/generic/tkIntPlatDecls.h @@ -0,0 +1,986 @@ +/* + * 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.2.1 1999/03/10 07:13:42 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)); +/* 36 */ +EXTERN void TkWinSetForegroundWindow _ANSI_ARGS_(( + TkWindow * winPtr)); +/* 37 */ +EXTERN void TkWinDialogDebug _ANSI_ARGS_((int debug)); +/* 38 */ +EXTERN Tcl_Obj * TkWinGetMenuSystemDefault _ANSI_ARGS_(( + Tk_Window tkwin, char * dbName, + char * className)); +/* 39 */ +EXTERN int TkWinGetPlatformId _ANSI_ARGS_((void)); +#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 */ + void (*tkWinSetForegroundWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 36 */ + void (*tkWinDialogDebug) _ANSI_ARGS_((int debug)); /* 37 */ + Tcl_Obj * (*tkWinGetMenuSystemDefault) _ANSI_ARGS_((Tk_Window tkwin, char * dbName, char * className)); /* 38 */ + int (*tkWinGetPlatformId) _ANSI_ARGS_((void)); /* 39 */ +#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 +#ifndef TkWinSetForegroundWindow +#define TkWinSetForegroundWindow(winPtr) \ + (tkIntPlatStubsPtr->tkWinSetForegroundWindow)(winPtr) /* 36 */ +#endif +#ifndef TkWinDialogDebug +#define TkWinDialogDebug(debug) \ + (tkIntPlatStubsPtr->tkWinDialogDebug)(debug) /* 37 */ +#endif +#ifndef TkWinGetMenuSystemDefault +#define TkWinGetMenuSystemDefault(tkwin, dbName, className) \ + (tkIntPlatStubsPtr->tkWinGetMenuSystemDefault)(tkwin, dbName, className) /* 38 */ +#endif +#ifndef TkWinGetPlatformId +#define TkWinGetPlatformId() \ + (tkIntPlatStubsPtr->tkWinGetPlatformId)() /* 39 */ +#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..1e8a7c3 --- /dev/null +++ b/generic/tkIntPlatStubs.c @@ -0,0 +1,1083 @@ +/* + * 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.2.1 1999/03/10 07:13:42 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); +} + +/* Slot 36 */ +void +TkWinSetForegroundWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkWinSetForegroundWindow)(winPtr); +} + +/* Slot 37 */ +void +TkWinDialogDebug(debug) + int debug; +{ + (tkIntPlatStubsPtr->tkWinDialogDebug)(debug); +} + +/* Slot 38 */ +Tcl_Obj * +TkWinGetMenuSystemDefault(tkwin, dbName, className) + Tk_Window tkwin; + char * dbName; + char * className; +{ + return (tkIntPlatStubsPtr->tkWinGetMenuSystemDefault)(tkwin, dbName, className); +} + +/* Slot 39 */ +int +TkWinGetPlatformId() +{ + return (tkIntPlatStubsPtr->tkWinGetPlatformId)(); +} + +#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..30c149c --- /dev/null +++ b/generic/tkIntStubs.c @@ -0,0 +1,1098 @@ +/* + * 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.2.1 1999/03/10 07:13:43 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 +TkpFreeCursor(cursorPtr) + TkCursor * cursorPtr; +{ + (tkIntStubsPtr->tkpFreeCursor)(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) + double end1Ptr[]; + double end2Ptr[]; + double rectPtr[]; +{ + return (tkIntStubsPtr->tkLineToArea)(end1Ptr, end2Ptr, rectPtr); +} + +/* Slot 48 */ +double +TkLineToPoint(end1Ptr, end2Ptr, pointPtr) + double end1Ptr[]; + double end2Ptr[]; + double 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) + double ovalPtr[]; + double width; + int filled; + double 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); +} + +/* Slot 98 */ +Tcl_Obj * +TkDebugBitmap(tkwin, name) + Tk_Window tkwin; + char * name; +{ + return (tkIntStubsPtr->tkDebugBitmap)(tkwin, name); +} + +/* Slot 99 */ +Tcl_Obj * +TkDebugBorder(tkwin, name) + Tk_Window tkwin; + char * name; +{ + return (tkIntStubsPtr->tkDebugBorder)(tkwin, name); +} + +/* Slot 100 */ +Tcl_Obj * +TkDebugCursor(tkwin, name) + Tk_Window tkwin; + char * name; +{ + return (tkIntStubsPtr->tkDebugCursor)(tkwin, name); +} + +/* Slot 101 */ +Tcl_Obj * +TkDebugColor(tkwin, name) + Tk_Window tkwin; + char * name; +{ + return (tkIntStubsPtr->tkDebugColor)(tkwin, name); +} + +/* Slot 102 */ +Tcl_Obj * +TkDebugConfig(interp, table) + Tcl_Interp * interp; + Tk_OptionTable table; +{ + return (tkIntStubsPtr->tkDebugConfig)(interp, table); +} + +/* Slot 103 */ +Tcl_Obj * +TkDebugFont(tkwin, name) + Tk_Window tkwin; + char * name; +{ + return (tkIntStubsPtr->tkDebugFont)(tkwin, name); +} + +/* Slot 104 */ +int +TkFindStateNumObj(interp, optionPtr, mapPtr, keyPtr) + Tcl_Interp * interp; + Tcl_Obj * optionPtr; + CONST TkStateMap * mapPtr; + Tcl_Obj * keyPtr; +{ + return (tkIntStubsPtr->tkFindStateNumObj)(interp, optionPtr, mapPtr, keyPtr); +} + +/* Slot 105 */ +Tcl_HashTable * +TkGetBitmapPredefTable() +{ + return (tkIntStubsPtr->tkGetBitmapPredefTable)(); +} + +/* Slot 106 */ +TkDisplay * +TkGetDisplayList() +{ + return (tkIntStubsPtr->tkGetDisplayList)(); +} + +/* Slot 107 */ +TkMainInfo * +TkGetMainInfoList() +{ + return (tkIntStubsPtr->tkGetMainInfoList)(); +} + +/* Slot 108 */ +int +TkGetWindowFromObj(interp, tkwin, objPtr, windowPtr) + Tcl_Interp * interp; + Tk_Window tkwin; + Tcl_Obj * objPtr; + Tk_Window * windowPtr; +{ + return (tkIntStubsPtr->tkGetWindowFromObj)(interp, tkwin, objPtr, windowPtr); +} + +/* Slot 109 */ +char * +TkpGetString(winPtr, eventPtr, dsPtr) + TkWindow * winPtr; + XEvent * eventPtr; + Tcl_DString * dsPtr; +{ + return (tkIntStubsPtr->tkpGetString)(winPtr, eventPtr, dsPtr); +} + +/* Slot 110 */ +void +TkpGetSubFonts(interp, tkfont) + Tcl_Interp * interp; + Tk_Font tkfont; +{ + (tkIntStubsPtr->tkpGetSubFonts)(interp, tkfont); +} + +/* Slot 111 */ +Tcl_Obj * +TkpGetSystemDefault(tkwin, dbName, className) + Tk_Window tkwin; + char * dbName; + char * className; +{ + return (tkIntStubsPtr->tkpGetSystemDefault)(tkwin, dbName, className); +} + +/* Slot 112 */ +void +TkpMenuThreadInit() +{ + (tkIntStubsPtr->tkpMenuThreadInit)(); +} + + +/* !END!: Do not edit above this line. */ diff --git a/generic/tkIntXlibDecls.h b/generic/tkIntXlibDecls.h new file mode 100644 index 0000000..faaa3c1 --- /dev/null +++ b/generic/tkIntXlibDecls.h @@ -0,0 +1,1175 @@ +/* + * 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.2.1 1999/03/10 07:13:43 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 Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display* display, + Drawable d, _Xconst char* data, + unsigned int width, unsigned int height)); +/* 26 */ +EXTERN void XDefineCursor _ANSI_ARGS_((Display* d, Window w, + Cursor c)); +/* 27 */ +EXTERN void XDeleteProperty _ANSI_ARGS_((Display* d, Window w, + Atom a)); +/* 28 */ +EXTERN void XDestroyWindow _ANSI_ARGS_((Display* d, Window w)); +/* 29 */ +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)); +/* 30 */ +EXTERN void XDrawLines _ANSI_ARGS_((Display* d, Drawable dr, + GC g, XPoint* x, int i1, int i2)); +/* 31 */ +EXTERN void XDrawRectangle _ANSI_ARGS_((Display* d, Drawable dr, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 32 */ +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)); +/* 33 */ +EXTERN void XFillPolygon _ANSI_ARGS_((Display* d, Drawable dr, + GC g, XPoint* x, int i1, int i2, int i3)); +/* 34 */ +EXTERN void XFillRectangles _ANSI_ARGS_((Display* d, Drawable dr, + GC g, XRectangle* x, int i)); +/* 35 */ +EXTERN void XForceScreenSaver _ANSI_ARGS_((Display* d, int i)); +/* 36 */ +EXTERN void XFreeColormap _ANSI_ARGS_((Display* d, Colormap c)); +/* 37 */ +EXTERN void XFreeColors _ANSI_ARGS_((Display* d, Colormap c, + unsigned long* ulp, int i, unsigned long ul)); +/* 38 */ +EXTERN void XFreeCursor _ANSI_ARGS_((Display* d, Cursor c)); +/* 39 */ +EXTERN void XFreeModifiermap _ANSI_ARGS_((XModifierKeymap* x)); +/* 40 */ +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)); +/* 41 */ +EXTERN void XGetInputFocus _ANSI_ARGS_((Display* d, Window* w, + int* i)); +/* 42 */ +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)); +/* 43 */ +EXTERN Status XGetWindowAttributes _ANSI_ARGS_((Display* d, + Window w, XWindowAttributes* x)); +/* 44 */ +EXTERN int XGrabKeyboard _ANSI_ARGS_((Display* d, Window w, + Bool b, int i1, int i2, Time t)); +/* 45 */ +EXTERN int XGrabPointer _ANSI_ARGS_((Display* d, Window w1, + Bool b, unsigned int ui, int i1, int i2, + Window w2, Cursor c, Time t)); +/* 46 */ +EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display* d, KeySym k)); +/* 47 */ +EXTERN Status XLookupColor _ANSI_ARGS_((Display* d, Colormap c1, + _Xconst char* c2, XColor* x1, XColor* x2)); +/* 48 */ +EXTERN void XMapWindow _ANSI_ARGS_((Display* d, Window w)); +/* 49 */ +EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display* d, Window w, + int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 50 */ +EXTERN void XMoveWindow _ANSI_ARGS_((Display* d, Window w, + int i1, int i2)); +/* 51 */ +EXTERN void XNextEvent _ANSI_ARGS_((Display* d, XEvent* x)); +/* 52 */ +EXTERN void XPutBackEvent _ANSI_ARGS_((Display* d, XEvent* x)); +/* 53 */ +EXTERN void XQueryColors _ANSI_ARGS_((Display* d, Colormap c, + XColor* x, int i)); +/* 54 */ +EXTERN Bool XQueryPointer _ANSI_ARGS_((Display* d, Window w1, + Window* w2, Window* w3, int* i1, int* i2, + int* i3, int* i4, unsigned int* ui)); +/* 55 */ +EXTERN Status XQueryTree _ANSI_ARGS_((Display* d, Window w1, + Window* w2, Window* w3, Window** w4, + unsigned int* ui)); +/* 56 */ +EXTERN void XRaiseWindow _ANSI_ARGS_((Display* d, Window w)); +/* 57 */ +EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_(( + XMappingEvent* x)); +/* 58 */ +EXTERN void XResizeWindow _ANSI_ARGS_((Display* d, Window w, + unsigned int ui1, unsigned int ui2)); +/* 59 */ +EXTERN void XSelectInput _ANSI_ARGS_((Display* d, Window w, + long l)); +/* 60 */ +EXTERN Status XSendEvent _ANSI_ARGS_((Display* d, Window w, Bool b, + long l, XEvent* x)); +/* 61 */ +EXTERN void XSetCommand _ANSI_ARGS_((Display* d, Window w, + char** c, int i)); +/* 62 */ +EXTERN void XSetIconName _ANSI_ARGS_((Display* d, Window w, + _Xconst char* c)); +/* 63 */ +EXTERN void XSetInputFocus _ANSI_ARGS_((Display* d, Window w, + int i, Time t)); +/* 64 */ +EXTERN void XSetSelectionOwner _ANSI_ARGS_((Display* d, Atom a, + Window w, Time t)); +/* 65 */ +EXTERN void XSetWindowBackground _ANSI_ARGS_((Display* d, + Window w, unsigned long ul)); +/* 66 */ +EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display* d, + Window w, Pixmap p)); +/* 67 */ +EXTERN void XSetWindowBorder _ANSI_ARGS_((Display* d, Window w, + unsigned long ul)); +/* 68 */ +EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display* d, + Window w, Pixmap p)); +/* 69 */ +EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display* d, + Window w, unsigned int ui)); +/* 70 */ +EXTERN void XSetWindowColormap _ANSI_ARGS_((Display* d, Window w, + Colormap c)); +/* 71 */ +EXTERN Bool XTranslateCoordinates _ANSI_ARGS_((Display* d, + Window w1, Window w2, int i1, int i2, + int* i3, int* i4, Window* w3)); +/* 72 */ +EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display* d, Time t)); +/* 73 */ +EXTERN void XUngrabPointer _ANSI_ARGS_((Display* d, Time t)); +/* 74 */ +EXTERN void XUnmapWindow _ANSI_ARGS_((Display* d, Window w)); +/* 75 */ +EXTERN void XWindowEvent _ANSI_ARGS_((Display* d, Window w, + long l, XEvent* x)); +/* 76 */ +EXTERN void XDestroyIC _ANSI_ARGS_((XIC x)); +/* 77 */ +EXTERN Bool XFilterEvent _ANSI_ARGS_((XEvent* x, Window w)); +/* 78 */ +EXTERN int XmbLookupString _ANSI_ARGS_((XIC xi, + XKeyPressedEvent* xk, char* c, int i, + KeySym* k, Status* s)); +/* 79 */ +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 Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display* display, + Drawable d, _Xconst char* data, + unsigned int width, unsigned int height)); +/* 19 */ +EXTERN void XDefineCursor _ANSI_ARGS_((Display* d, Window w, + Cursor c)); +/* 20 */ +EXTERN void XDestroyWindow _ANSI_ARGS_((Display* d, Window w)); +/* 21 */ +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)); +/* 22 */ +EXTERN void XDrawLines _ANSI_ARGS_((Display* d, Drawable dr, + GC g, XPoint* x, int i1, int i2)); +/* 23 */ +EXTERN void XDrawRectangle _ANSI_ARGS_((Display* d, Drawable dr, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 24 */ +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)); +/* 25 */ +EXTERN void XFillPolygon _ANSI_ARGS_((Display* d, Drawable dr, + GC g, XPoint* x, int i1, int i2, int i3)); +/* 26 */ +EXTERN void XFillRectangles _ANSI_ARGS_((Display* d, Drawable dr, + GC g, XRectangle* x, int i)); +/* 27 */ +EXTERN void XFreeColormap _ANSI_ARGS_((Display* d, Colormap c)); +/* 28 */ +EXTERN void XFreeColors _ANSI_ARGS_((Display* d, Colormap c, + unsigned long* ulp, int i, unsigned long ul)); +/* 29 */ +EXTERN void XFreeModifiermap _ANSI_ARGS_((XModifierKeymap* x)); +/* 30 */ +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)); +/* 31 */ +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)); +/* 32 */ +EXTERN int XGrabKeyboard _ANSI_ARGS_((Display* d, Window w, + Bool b, int i1, int i2, Time t)); +/* 33 */ +EXTERN int XGrabPointer _ANSI_ARGS_((Display* d, Window w1, + Bool b, unsigned int ui, int i1, int i2, + Window w2, Cursor c, Time t)); +/* 34 */ +EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display* d, KeySym k)); +/* 35 */ +EXTERN void XMapWindow _ANSI_ARGS_((Display* d, Window w)); +/* 36 */ +EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display* d, Window w, + int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 37 */ +EXTERN void XMoveWindow _ANSI_ARGS_((Display* d, Window w, + int i1, int i2)); +/* 38 */ +EXTERN Bool XQueryPointer _ANSI_ARGS_((Display* d, Window w1, + Window* w2, Window* w3, int* i1, int* i2, + int* i3, int* i4, unsigned int* ui)); +/* 39 */ +EXTERN void XRaiseWindow _ANSI_ARGS_((Display* d, Window w)); +/* 40 */ +EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_(( + XMappingEvent* x)); +/* 41 */ +EXTERN void XResizeWindow _ANSI_ARGS_((Display* d, Window w, + unsigned int ui1, unsigned int ui2)); +/* 42 */ +EXTERN void XSelectInput _ANSI_ARGS_((Display* d, Window w, + long l)); +/* 43 */ +EXTERN Status XSendEvent _ANSI_ARGS_((Display* d, Window w, Bool b, + long l, XEvent* x)); +/* 44 */ +EXTERN void XSetIconName _ANSI_ARGS_((Display* d, Window w, + _Xconst char* c)); +/* 45 */ +EXTERN void XSetInputFocus _ANSI_ARGS_((Display* d, Window w, + int i, Time t)); +/* 46 */ +EXTERN void XSetSelectionOwner _ANSI_ARGS_((Display* d, Atom a, + Window w, Time t)); +/* 47 */ +EXTERN void XSetWindowBackground _ANSI_ARGS_((Display* d, + Window w, unsigned long ul)); +/* 48 */ +EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display* d, + Window w, Pixmap p)); +/* 49 */ +EXTERN void XSetWindowBorder _ANSI_ARGS_((Display* d, Window w, + unsigned long ul)); +/* 50 */ +EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display* d, + Window w, Pixmap p)); +/* 51 */ +EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display* d, + Window w, unsigned int ui)); +/* 52 */ +EXTERN void XSetWindowColormap _ANSI_ARGS_((Display* d, Window w, + Colormap c)); +/* 53 */ +EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display* d, Time t)); +/* 54 */ +EXTERN void XUngrabPointer _ANSI_ARGS_((Display* d, Time t)); +/* 55 */ +EXTERN void XUnmapWindow _ANSI_ARGS_((Display* d, Window w)); +/* 56 */ +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 */ + Pixmap (*xCreateBitmapFromData) _ANSI_ARGS_((Display* display, Drawable d, _Xconst char* data, unsigned int width, unsigned int height)); /* 25 */ + void (*xDefineCursor) _ANSI_ARGS_((Display* d, Window w, Cursor c)); /* 26 */ + void (*xDeleteProperty) _ANSI_ARGS_((Display* d, Window w, Atom a)); /* 27 */ + void (*xDestroyWindow) _ANSI_ARGS_((Display* d, Window w)); /* 28 */ + 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 */ + void (*xDrawLines) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)); /* 30 */ + void (*xDrawRectangle) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 31 */ + 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 */ + void (*xFillPolygon) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2, int i3)); /* 33 */ + void (*xFillRectangles) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XRectangle* x, int i)); /* 34 */ + void (*xForceScreenSaver) _ANSI_ARGS_((Display* d, int i)); /* 35 */ + void (*xFreeColormap) _ANSI_ARGS_((Display* d, Colormap c)); /* 36 */ + void (*xFreeColors) _ANSI_ARGS_((Display* d, Colormap c, unsigned long* ulp, int i, unsigned long ul)); /* 37 */ + void (*xFreeCursor) _ANSI_ARGS_((Display* d, Cursor c)); /* 38 */ + void (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap* x)); /* 39 */ + 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 */ + void (*xGetInputFocus) _ANSI_ARGS_((Display* d, Window* w, int* i)); /* 41 */ + 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 */ + Status (*xGetWindowAttributes) _ANSI_ARGS_((Display* d, Window w, XWindowAttributes* x)); /* 43 */ + int (*xGrabKeyboard) _ANSI_ARGS_((Display* d, Window w, Bool b, int i1, int i2, Time t)); /* 44 */ + int (*xGrabPointer) _ANSI_ARGS_((Display* d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 45 */ + KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display* d, KeySym k)); /* 46 */ + Status (*xLookupColor) _ANSI_ARGS_((Display* d, Colormap c1, _Xconst char* c2, XColor* x1, XColor* x2)); /* 47 */ + void (*xMapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 48 */ + void (*xMoveResizeWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 49 */ + void (*xMoveWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2)); /* 50 */ + void (*xNextEvent) _ANSI_ARGS_((Display* d, XEvent* x)); /* 51 */ + void (*xPutBackEvent) _ANSI_ARGS_((Display* d, XEvent* x)); /* 52 */ + void (*xQueryColors) _ANSI_ARGS_((Display* d, Colormap c, XColor* x, int i)); /* 53 */ + Bool (*xQueryPointer) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, int* i1, int* i2, int* i3, int* i4, unsigned int* ui)); /* 54 */ + Status (*xQueryTree) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, Window** w4, unsigned int* ui)); /* 55 */ + void (*xRaiseWindow) _ANSI_ARGS_((Display* d, Window w)); /* 56 */ + void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent* x)); /* 57 */ + void (*xResizeWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int ui1, unsigned int ui2)); /* 58 */ + void (*xSelectInput) _ANSI_ARGS_((Display* d, Window w, long l)); /* 59 */ + Status (*xSendEvent) _ANSI_ARGS_((Display* d, Window w, Bool b, long l, XEvent* x)); /* 60 */ + void (*xSetCommand) _ANSI_ARGS_((Display* d, Window w, char** c, int i)); /* 61 */ + void (*xSetIconName) _ANSI_ARGS_((Display* d, Window w, _Xconst char* c)); /* 62 */ + void (*xSetInputFocus) _ANSI_ARGS_((Display* d, Window w, int i, Time t)); /* 63 */ + void (*xSetSelectionOwner) _ANSI_ARGS_((Display* d, Atom a, Window w, Time t)); /* 64 */ + void (*xSetWindowBackground) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 65 */ + void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 66 */ + void (*xSetWindowBorder) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 67 */ + void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 68 */ + void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display* d, Window w, unsigned int ui)); /* 69 */ + void (*xSetWindowColormap) _ANSI_ARGS_((Display* d, Window w, Colormap c)); /* 70 */ + Bool (*xTranslateCoordinates) _ANSI_ARGS_((Display* d, Window w1, Window w2, int i1, int i2, int* i3, int* i4, Window* w3)); /* 71 */ + void (*xUngrabKeyboard) _ANSI_ARGS_((Display* d, Time t)); /* 72 */ + void (*xUngrabPointer) _ANSI_ARGS_((Display* d, Time t)); /* 73 */ + void (*xUnmapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 74 */ + void (*xWindowEvent) _ANSI_ARGS_((Display* d, Window w, long l, XEvent* x)); /* 75 */ + void (*xDestroyIC) _ANSI_ARGS_((XIC x)); /* 76 */ + Bool (*xFilterEvent) _ANSI_ARGS_((XEvent* x, Window w)); /* 77 */ + int (*xmbLookupString) _ANSI_ARGS_((XIC xi, XKeyPressedEvent* xk, char* c, int i, KeySym* k, Status* s)); /* 78 */ + 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)); /* 79 */ +#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 */ + Pixmap (*xCreateBitmapFromData) _ANSI_ARGS_((Display* display, Drawable d, _Xconst char* data, unsigned int width, unsigned int height)); /* 18 */ + void (*xDefineCursor) _ANSI_ARGS_((Display* d, Window w, Cursor c)); /* 19 */ + void (*xDestroyWindow) _ANSI_ARGS_((Display* d, Window w)); /* 20 */ + 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 */ + void (*xDrawLines) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)); /* 22 */ + void (*xDrawRectangle) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 23 */ + 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 */ + void (*xFillPolygon) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2, int i3)); /* 25 */ + void (*xFillRectangles) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XRectangle* x, int i)); /* 26 */ + void (*xFreeColormap) _ANSI_ARGS_((Display* d, Colormap c)); /* 27 */ + void (*xFreeColors) _ANSI_ARGS_((Display* d, Colormap c, unsigned long* ulp, int i, unsigned long ul)); /* 28 */ + void (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap* x)); /* 29 */ + 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 */ + 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 */ + int (*xGrabKeyboard) _ANSI_ARGS_((Display* d, Window w, Bool b, int i1, int i2, Time t)); /* 32 */ + int (*xGrabPointer) _ANSI_ARGS_((Display* d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 33 */ + KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display* d, KeySym k)); /* 34 */ + void (*xMapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 35 */ + void (*xMoveResizeWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 36 */ + void (*xMoveWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2)); /* 37 */ + Bool (*xQueryPointer) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, int* i1, int* i2, int* i3, int* i4, unsigned int* ui)); /* 38 */ + void (*xRaiseWindow) _ANSI_ARGS_((Display* d, Window w)); /* 39 */ + void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent* x)); /* 40 */ + void (*xResizeWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int ui1, unsigned int ui2)); /* 41 */ + void (*xSelectInput) _ANSI_ARGS_((Display* d, Window w, long l)); /* 42 */ + Status (*xSendEvent) _ANSI_ARGS_((Display* d, Window w, Bool b, long l, XEvent* x)); /* 43 */ + void (*xSetIconName) _ANSI_ARGS_((Display* d, Window w, _Xconst char* c)); /* 44 */ + void (*xSetInputFocus) _ANSI_ARGS_((Display* d, Window w, int i, Time t)); /* 45 */ + void (*xSetSelectionOwner) _ANSI_ARGS_((Display* d, Atom a, Window w, Time t)); /* 46 */ + void (*xSetWindowBackground) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 47 */ + void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 48 */ + void (*xSetWindowBorder) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 49 */ + void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 50 */ + void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display* d, Window w, unsigned int ui)); /* 51 */ + void (*xSetWindowColormap) _ANSI_ARGS_((Display* d, Window w, Colormap c)); /* 52 */ + void (*xUngrabKeyboard) _ANSI_ARGS_((Display* d, Time t)); /* 53 */ + void (*xUngrabPointer) _ANSI_ARGS_((Display* d, Time t)); /* 54 */ + void (*xUnmapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 55 */ + 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)); /* 56 */ +#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 XCreateBitmapFromData +#define XCreateBitmapFromData(display, d, data, width, height) \ + (tkIntXlibStubsPtr->xCreateBitmapFromData)(display, d, data, width, height) /* 25 */ +#endif +#ifndef XDefineCursor +#define XDefineCursor(d, w, c) \ + (tkIntXlibStubsPtr->xDefineCursor)(d, w, c) /* 26 */ +#endif +#ifndef XDeleteProperty +#define XDeleteProperty(d, w, a) \ + (tkIntXlibStubsPtr->xDeleteProperty)(d, w, a) /* 27 */ +#endif +#ifndef XDestroyWindow +#define XDestroyWindow(d, w) \ + (tkIntXlibStubsPtr->xDestroyWindow)(d, w) /* 28 */ +#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) /* 29 */ +#endif +#ifndef XDrawLines +#define XDrawLines(d, dr, g, x, i1, i2) \ + (tkIntXlibStubsPtr->xDrawLines)(d, dr, g, x, i1, i2) /* 30 */ +#endif +#ifndef XDrawRectangle +#define XDrawRectangle(d, dr, g, i1, i2, ui1, ui2) \ + (tkIntXlibStubsPtr->xDrawRectangle)(d, dr, g, i1, i2, ui1, ui2) /* 31 */ +#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) /* 32 */ +#endif +#ifndef XFillPolygon +#define XFillPolygon(d, dr, g, x, i1, i2, i3) \ + (tkIntXlibStubsPtr->xFillPolygon)(d, dr, g, x, i1, i2, i3) /* 33 */ +#endif +#ifndef XFillRectangles +#define XFillRectangles(d, dr, g, x, i) \ + (tkIntXlibStubsPtr->xFillRectangles)(d, dr, g, x, i) /* 34 */ +#endif +#ifndef XForceScreenSaver +#define XForceScreenSaver(d, i) \ + (tkIntXlibStubsPtr->xForceScreenSaver)(d, i) /* 35 */ +#endif +#ifndef XFreeColormap +#define XFreeColormap(d, c) \ + (tkIntXlibStubsPtr->xFreeColormap)(d, c) /* 36 */ +#endif +#ifndef XFreeColors +#define XFreeColors(d, c, ulp, i, ul) \ + (tkIntXlibStubsPtr->xFreeColors)(d, c, ulp, i, ul) /* 37 */ +#endif +#ifndef XFreeCursor +#define XFreeCursor(d, c) \ + (tkIntXlibStubsPtr->xFreeCursor)(d, c) /* 38 */ +#endif +#ifndef XFreeModifiermap +#define XFreeModifiermap(x) \ + (tkIntXlibStubsPtr->xFreeModifiermap)(x) /* 39 */ +#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) /* 40 */ +#endif +#ifndef XGetInputFocus +#define XGetInputFocus(d, w, i) \ + (tkIntXlibStubsPtr->xGetInputFocus)(d, w, i) /* 41 */ +#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) /* 42 */ +#endif +#ifndef XGetWindowAttributes +#define XGetWindowAttributes(d, w, x) \ + (tkIntXlibStubsPtr->xGetWindowAttributes)(d, w, x) /* 43 */ +#endif +#ifndef XGrabKeyboard +#define XGrabKeyboard(d, w, b, i1, i2, t) \ + (tkIntXlibStubsPtr->xGrabKeyboard)(d, w, b, i1, i2, t) /* 44 */ +#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) /* 45 */ +#endif +#ifndef XKeysymToKeycode +#define XKeysymToKeycode(d, k) \ + (tkIntXlibStubsPtr->xKeysymToKeycode)(d, k) /* 46 */ +#endif +#ifndef XLookupColor +#define XLookupColor(d, c1, c2, x1, x2) \ + (tkIntXlibStubsPtr->xLookupColor)(d, c1, c2, x1, x2) /* 47 */ +#endif +#ifndef XMapWindow +#define XMapWindow(d, w) \ + (tkIntXlibStubsPtr->xMapWindow)(d, w) /* 48 */ +#endif +#ifndef XMoveResizeWindow +#define XMoveResizeWindow(d, w, i1, i2, ui1, ui2) \ + (tkIntXlibStubsPtr->xMoveResizeWindow)(d, w, i1, i2, ui1, ui2) /* 49 */ +#endif +#ifndef XMoveWindow +#define XMoveWindow(d, w, i1, i2) \ + (tkIntXlibStubsPtr->xMoveWindow)(d, w, i1, i2) /* 50 */ +#endif +#ifndef XNextEvent +#define XNextEvent(d, x) \ + (tkIntXlibStubsPtr->xNextEvent)(d, x) /* 51 */ +#endif +#ifndef XPutBackEvent +#define XPutBackEvent(d, x) \ + (tkIntXlibStubsPtr->xPutBackEvent)(d, x) /* 52 */ +#endif +#ifndef XQueryColors +#define XQueryColors(d, c, x, i) \ + (tkIntXlibStubsPtr->xQueryColors)(d, c, x, i) /* 53 */ +#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) /* 54 */ +#endif +#ifndef XQueryTree +#define XQueryTree(d, w1, w2, w3, w4, ui) \ + (tkIntXlibStubsPtr->xQueryTree)(d, w1, w2, w3, w4, ui) /* 55 */ +#endif +#ifndef XRaiseWindow +#define XRaiseWindow(d, w) \ + (tkIntXlibStubsPtr->xRaiseWindow)(d, w) /* 56 */ +#endif +#ifndef XRefreshKeyboardMapping +#define XRefreshKeyboardMapping(x) \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping)(x) /* 57 */ +#endif +#ifndef XResizeWindow +#define XResizeWindow(d, w, ui1, ui2) \ + (tkIntXlibStubsPtr->xResizeWindow)(d, w, ui1, ui2) /* 58 */ +#endif +#ifndef XSelectInput +#define XSelectInput(d, w, l) \ + (tkIntXlibStubsPtr->xSelectInput)(d, w, l) /* 59 */ +#endif +#ifndef XSendEvent +#define XSendEvent(d, w, b, l, x) \ + (tkIntXlibStubsPtr->xSendEvent)(d, w, b, l, x) /* 60 */ +#endif +#ifndef XSetCommand +#define XSetCommand(d, w, c, i) \ + (tkIntXlibStubsPtr->xSetCommand)(d, w, c, i) /* 61 */ +#endif +#ifndef XSetIconName +#define XSetIconName(d, w, c) \ + (tkIntXlibStubsPtr->xSetIconName)(d, w, c) /* 62 */ +#endif +#ifndef XSetInputFocus +#define XSetInputFocus(d, w, i, t) \ + (tkIntXlibStubsPtr->xSetInputFocus)(d, w, i, t) /* 63 */ +#endif +#ifndef XSetSelectionOwner +#define XSetSelectionOwner(d, a, w, t) \ + (tkIntXlibStubsPtr->xSetSelectionOwner)(d, a, w, t) /* 64 */ +#endif +#ifndef XSetWindowBackground +#define XSetWindowBackground(d, w, ul) \ + (tkIntXlibStubsPtr->xSetWindowBackground)(d, w, ul) /* 65 */ +#endif +#ifndef XSetWindowBackgroundPixmap +#define XSetWindowBackgroundPixmap(d, w, p) \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap)(d, w, p) /* 66 */ +#endif +#ifndef XSetWindowBorder +#define XSetWindowBorder(d, w, ul) \ + (tkIntXlibStubsPtr->xSetWindowBorder)(d, w, ul) /* 67 */ +#endif +#ifndef XSetWindowBorderPixmap +#define XSetWindowBorderPixmap(d, w, p) \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap)(d, w, p) /* 68 */ +#endif +#ifndef XSetWindowBorderWidth +#define XSetWindowBorderWidth(d, w, ui) \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth)(d, w, ui) /* 69 */ +#endif +#ifndef XSetWindowColormap +#define XSetWindowColormap(d, w, c) \ + (tkIntXlibStubsPtr->xSetWindowColormap)(d, w, c) /* 70 */ +#endif +#ifndef XTranslateCoordinates +#define XTranslateCoordinates(d, w1, w2, i1, i2, i3, i4, w3) \ + (tkIntXlibStubsPtr->xTranslateCoordinates)(d, w1, w2, i1, i2, i3, i4, w3) /* 71 */ +#endif +#ifndef XUngrabKeyboard +#define XUngrabKeyboard(d, t) \ + (tkIntXlibStubsPtr->xUngrabKeyboard)(d, t) /* 72 */ +#endif +#ifndef XUngrabPointer +#define XUngrabPointer(d, t) \ + (tkIntXlibStubsPtr->xUngrabPointer)(d, t) /* 73 */ +#endif +#ifndef XUnmapWindow +#define XUnmapWindow(d, w) \ + (tkIntXlibStubsPtr->xUnmapWindow)(d, w) /* 74 */ +#endif +#ifndef XWindowEvent +#define XWindowEvent(d, w, l, x) \ + (tkIntXlibStubsPtr->xWindowEvent)(d, w, l, x) /* 75 */ +#endif +#ifndef XDestroyIC +#define XDestroyIC(x) \ + (tkIntXlibStubsPtr->xDestroyIC)(x) /* 76 */ +#endif +#ifndef XFilterEvent +#define XFilterEvent(x, w) \ + (tkIntXlibStubsPtr->xFilterEvent)(x, w) /* 77 */ +#endif +#ifndef XmbLookupString +#define XmbLookupString(xi, xk, c, i, k, s) \ + (tkIntXlibStubsPtr->xmbLookupString)(xi, xk, c, i, k, s) /* 78 */ +#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) /* 79 */ +#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 XCreateBitmapFromData +#define XCreateBitmapFromData(display, d, data, width, height) \ + (tkIntXlibStubsPtr->xCreateBitmapFromData)(display, d, data, width, height) /* 18 */ +#endif +#ifndef XDefineCursor +#define XDefineCursor(d, w, c) \ + (tkIntXlibStubsPtr->xDefineCursor)(d, w, c) /* 19 */ +#endif +#ifndef XDestroyWindow +#define XDestroyWindow(d, w) \ + (tkIntXlibStubsPtr->xDestroyWindow)(d, w) /* 20 */ +#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) /* 21 */ +#endif +#ifndef XDrawLines +#define XDrawLines(d, dr, g, x, i1, i2) \ + (tkIntXlibStubsPtr->xDrawLines)(d, dr, g, x, i1, i2) /* 22 */ +#endif +#ifndef XDrawRectangle +#define XDrawRectangle(d, dr, g, i1, i2, ui1, ui2) \ + (tkIntXlibStubsPtr->xDrawRectangle)(d, dr, g, i1, i2, ui1, ui2) /* 23 */ +#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) /* 24 */ +#endif +#ifndef XFillPolygon +#define XFillPolygon(d, dr, g, x, i1, i2, i3) \ + (tkIntXlibStubsPtr->xFillPolygon)(d, dr, g, x, i1, i2, i3) /* 25 */ +#endif +#ifndef XFillRectangles +#define XFillRectangles(d, dr, g, x, i) \ + (tkIntXlibStubsPtr->xFillRectangles)(d, dr, g, x, i) /* 26 */ +#endif +#ifndef XFreeColormap +#define XFreeColormap(d, c) \ + (tkIntXlibStubsPtr->xFreeColormap)(d, c) /* 27 */ +#endif +#ifndef XFreeColors +#define XFreeColors(d, c, ulp, i, ul) \ + (tkIntXlibStubsPtr->xFreeColors)(d, c, ulp, i, ul) /* 28 */ +#endif +#ifndef XFreeModifiermap +#define XFreeModifiermap(x) \ + (tkIntXlibStubsPtr->xFreeModifiermap)(x) /* 29 */ +#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) /* 30 */ +#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) /* 31 */ +#endif +#ifndef XGrabKeyboard +#define XGrabKeyboard(d, w, b, i1, i2, t) \ + (tkIntXlibStubsPtr->xGrabKeyboard)(d, w, b, i1, i2, t) /* 32 */ +#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) /* 33 */ +#endif +#ifndef XKeysymToKeycode +#define XKeysymToKeycode(d, k) \ + (tkIntXlibStubsPtr->xKeysymToKeycode)(d, k) /* 34 */ +#endif +#ifndef XMapWindow +#define XMapWindow(d, w) \ + (tkIntXlibStubsPtr->xMapWindow)(d, w) /* 35 */ +#endif +#ifndef XMoveResizeWindow +#define XMoveResizeWindow(d, w, i1, i2, ui1, ui2) \ + (tkIntXlibStubsPtr->xMoveResizeWindow)(d, w, i1, i2, ui1, ui2) /* 36 */ +#endif +#ifndef XMoveWindow +#define XMoveWindow(d, w, i1, i2) \ + (tkIntXlibStubsPtr->xMoveWindow)(d, w, i1, i2) /* 37 */ +#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) /* 38 */ +#endif +#ifndef XRaiseWindow +#define XRaiseWindow(d, w) \ + (tkIntXlibStubsPtr->xRaiseWindow)(d, w) /* 39 */ +#endif +#ifndef XRefreshKeyboardMapping +#define XRefreshKeyboardMapping(x) \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping)(x) /* 40 */ +#endif +#ifndef XResizeWindow +#define XResizeWindow(d, w, ui1, ui2) \ + (tkIntXlibStubsPtr->xResizeWindow)(d, w, ui1, ui2) /* 41 */ +#endif +#ifndef XSelectInput +#define XSelectInput(d, w, l) \ + (tkIntXlibStubsPtr->xSelectInput)(d, w, l) /* 42 */ +#endif +#ifndef XSendEvent +#define XSendEvent(d, w, b, l, x) \ + (tkIntXlibStubsPtr->xSendEvent)(d, w, b, l, x) /* 43 */ +#endif +#ifndef XSetIconName +#define XSetIconName(d, w, c) \ + (tkIntXlibStubsPtr->xSetIconName)(d, w, c) /* 44 */ +#endif +#ifndef XSetInputFocus +#define XSetInputFocus(d, w, i, t) \ + (tkIntXlibStubsPtr->xSetInputFocus)(d, w, i, t) /* 45 */ +#endif +#ifndef XSetSelectionOwner +#define XSetSelectionOwner(d, a, w, t) \ + (tkIntXlibStubsPtr->xSetSelectionOwner)(d, a, w, t) /* 46 */ +#endif +#ifndef XSetWindowBackground +#define XSetWindowBackground(d, w, ul) \ + (tkIntXlibStubsPtr->xSetWindowBackground)(d, w, ul) /* 47 */ +#endif +#ifndef XSetWindowBackgroundPixmap +#define XSetWindowBackgroundPixmap(d, w, p) \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap)(d, w, p) /* 48 */ +#endif +#ifndef XSetWindowBorder +#define XSetWindowBorder(d, w, ul) \ + (tkIntXlibStubsPtr->xSetWindowBorder)(d, w, ul) /* 49 */ +#endif +#ifndef XSetWindowBorderPixmap +#define XSetWindowBorderPixmap(d, w, p) \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap)(d, w, p) /* 50 */ +#endif +#ifndef XSetWindowBorderWidth +#define XSetWindowBorderWidth(d, w, ui) \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth)(d, w, ui) /* 51 */ +#endif +#ifndef XSetWindowColormap +#define XSetWindowColormap(d, w, c) \ + (tkIntXlibStubsPtr->xSetWindowColormap)(d, w, c) /* 52 */ +#endif +#ifndef XUngrabKeyboard +#define XUngrabKeyboard(d, t) \ + (tkIntXlibStubsPtr->xUngrabKeyboard)(d, t) /* 53 */ +#endif +#ifndef XUngrabPointer +#define XUngrabPointer(d, t) \ + (tkIntXlibStubsPtr->xUngrabPointer)(d, t) /* 54 */ +#endif +#ifndef XUnmapWindow +#define XUnmapWindow(d, w) \ + (tkIntXlibStubsPtr->xUnmapWindow)(d, w) /* 55 */ +#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) /* 56 */ +#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/tkMain.c b/generic/tkMain.c index 4284a01..eaead05 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.1.4.5 1999/02/26 02:26:05 redman Exp $ + * RCS: @(#) $Id: tkMain.c,v 1.1.4.6 1999/03/10 07:13:44 stanton Exp $ */ #include @@ -21,6 +21,7 @@ #include #include #include +#include "tkInt.h" #ifdef NO_STDLIB_H # include "../compat/stdlib.h" #else @@ -30,6 +31,7 @@ #include "tkWinInt.h" #endif + typedef struct ThreadSpecificData { Tcl_Interp *interp; /* Interpreter for this thread. */ Tcl_DString command; /* Used to assemble lines of terminal input @@ -57,6 +59,9 @@ extern char * strrchr _ANSI_ARGS_((CONST char *string, int c)); #endif extern void TkpDisplayWarning _ANSI_ARGS_((char *msg, char *title)); + +extern void TkConsoleCreate_ _ANSI_ARGS_((void)); + /* * Forward declarations for procedures defined later in this file. */ @@ -68,7 +73,7 @@ static void StdinProc _ANSI_ARGS_((ClientData clientData, /* *---------------------------------------------------------------------- * - * Tk_Main -- + * TkMainEx -- * * Main program for Wish and most other Tk-based applications. * @@ -83,15 +88,15 @@ static void StdinProc _ANSI_ARGS_((ClientData clientData, * *---------------------------------------------------------------------- */ - void -Tk_Main(argc, argv, appInitProc) +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; { char *args, *fileName; char buf[TCL_INTEGER_SPACE]; @@ -99,15 +104,30 @@ Tk_Main(argc, argv, appInitProc) size_t length; Tcl_Channel inChannel, outChannel; Tcl_DString argString; - ThreadSpecificData *tsdPtr = (ThreadSpecificData *) - Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); - Tcl_Interp *interp; + ThreadSpecificData *tsdPtr; #ifdef __WIN32__ HANDLE handle; #endif + /* + * 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) { + abort(); + } + + tsdPtr = (ThreadSpecificData *) + Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); + Tcl_FindExecutable(argv[0]); - interp = tsdPtr->interp = Tcl_CreateInterp(); + tsdPtr->interp = interp; + +#if (defined(__WIN32__) || defined(MAC_TCL)) + TkConsoleCreate_(); +#endif + #ifdef TCL_MEM_DEBUG Tcl_InitMemory(interp); #endif diff --git a/generic/tkMenu.c b/generic/tkMenu.c index a4a89b2..c7f852e 100644 --- a/generic/tkMenu.c +++ b/generic/tkMenu.c @@ -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: tkMenu.c,v 1.1.4.7 1999/03/09 01:51:26 lfb Exp $ + * RCS: @(#) $Id: tkMenu.c,v 1.1.4.8 1999/03/10 07:13:44 stanton Exp $ */ /* @@ -68,7 +68,15 @@ * */ +#if 0 + +/* + * used only to test for old config code + */ + #define __NO_OLD_CONFIG +#endif + #include "tkPort.h" #include "tkMenu.h" diff --git a/generic/tkMenu.h b/generic/tkMenu.h index ef15ff8..a843317 100644 --- a/generic/tkMenu.h +++ b/generic/tkMenu.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: tkMenu.h,v 1.1.4.4 1999/03/09 01:52:38 lfb Exp $ + * RCS: @(#) $Id: tkMenu.h,v 1.1.4.5 1999/03/10 07:13:44 stanton Exp $ */ #ifndef _TKMENU @@ -558,7 +558,6 @@ EXTERN void TkpDrawMenuEntry _ANSI_ARGS_((TkMenuEntry *mePtr, int y, int width, int height, int strictMotif, int drawArrow)); EXTERN void TkpMenuInit _ANSI_ARGS_((void)); -EXTERN void TkpMenuThreadInit _ANSI_ARGS_((void)); EXTERN int TkpMenuNewEntry _ANSI_ARGS_((TkMenuEntry *mePtr)); EXTERN int TkpNewMenu _ANSI_ARGS_((TkMenu *menuPtr)); EXTERN int TkpPostMenu _ANSI_ARGS_((Tcl_Interp *interp, diff --git a/generic/tkPlatDecls.h b/generic/tkPlatDecls.h new file mode 100644 index 0000000..519f4e0 --- /dev/null +++ b/generic/tkPlatDecls.h @@ -0,0 +1,211 @@ +/* + * 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.2.1 1999/03/10 07:13:45 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)); +/* 6 */ +EXTERN int Tk_DdeObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int objc, + Tcl_Obj *CONST objv[])); +#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 */ + int (*tk_DdeObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 6 */ +#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 +#ifndef Tk_DdeObjCmd +#define Tk_DdeObjCmd(clientData, interp, objc, objv) \ + (tkPlatStubsPtr->tk_DdeObjCmd)(clientData, interp, objc, objv) /* 6 */ +#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/tkPointer.c b/generic/tkPointer.c index 6361421..35c8f0c 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.1.4.2 1998/12/13 08:16:10 lfb Exp $ + * RCS: @(#) $Id: tkPointer.c,v 1.1.4.3 1999/03/10 07:13:45 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..a1b228b --- /dev/null +++ b/generic/tkStubInit.c @@ -0,0 +1,701 @@ +/* + * 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.2.1 1999/03/10 07:13:45 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 */ + Tk_AllocBitmapFromObj, /* 185 */ + Tk_Alloc3DBorderFromObj, /* 186 */ + Tk_AllocColorFromObj, /* 187 */ + Tk_AllocCursorFromObj, /* 188 */ + Tk_AllocFontFromObj, /* 189 */ + Tk_CreateOptionTable, /* 190 */ + Tk_DeleteOptionTable, /* 191 */ + Tk_Free3DBorderFromObj, /* 192 */ + Tk_FreeBitmapFromObj, /* 193 */ + Tk_FreeColorFromObj, /* 194 */ + Tk_FreeConfigOptions, /* 195 */ + Tk_FreeSavedOptions, /* 196 */ + Tk_FreeCursorFromObj, /* 197 */ + Tk_FreeFontFromObj, /* 198 */ + Tk_Get3DBorderFromObj, /* 199 */ + Tk_GetAnchorFromObj, /* 200 */ + Tk_GetBitmapFromObj, /* 201 */ + Tk_GetColorFromObj, /* 202 */ + Tk_GetCursorFromObj, /* 203 */ + Tk_GetOptionInfo, /* 204 */ + Tk_GetOptionValue, /* 205 */ + Tk_GetJustifyFromObj, /* 206 */ + Tk_GetMMFromObj, /* 207 */ + Tk_GetPixelsFromObj, /* 208 */ + Tk_GetReliefFromObj, /* 209 */ + Tk_GetScrollInfoObj, /* 210 */ + Tk_InitOptions, /* 211 */ + Tk_MainEx, /* 212 */ + Tk_RestoreSavedOptions, /* 213 */ + Tk_SetOptions, /* 214 */ +}; + +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 */ + TkpFreeCursor, /* 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 */ + TkDebugBitmap, /* 98 */ + TkDebugBorder, /* 99 */ + TkDebugCursor, /* 100 */ + TkDebugColor, /* 101 */ + TkDebugConfig, /* 102 */ + TkDebugFont, /* 103 */ + TkFindStateNumObj, /* 104 */ + TkGetBitmapPredefTable, /* 105 */ + TkGetDisplayList, /* 106 */ + TkGetMainInfoList, /* 107 */ + TkGetWindowFromObj, /* 108 */ + TkpGetString, /* 109 */ + TkpGetSubFonts, /* 110 */ + TkpGetSystemDefault, /* 111 */ + TkpMenuThreadInit, /* 112 */ +}; + +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 */ + TkWinSetForegroundWindow, /* 36 */ + TkWinDialogDebug, /* 37 */ + TkWinGetMenuSystemDefault, /* 38 */ + TkWinGetPlatformId, /* 39 */ +#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 */ + XCreateBitmapFromData, /* 25 */ + XDefineCursor, /* 26 */ + XDeleteProperty, /* 27 */ + XDestroyWindow, /* 28 */ + XDrawArc, /* 29 */ + XDrawLines, /* 30 */ + XDrawRectangle, /* 31 */ + XFillArc, /* 32 */ + XFillPolygon, /* 33 */ + XFillRectangles, /* 34 */ + XForceScreenSaver, /* 35 */ + XFreeColormap, /* 36 */ + XFreeColors, /* 37 */ + XFreeCursor, /* 38 */ + XFreeModifiermap, /* 39 */ + XGetGeometry, /* 40 */ + XGetInputFocus, /* 41 */ + XGetWindowProperty, /* 42 */ + XGetWindowAttributes, /* 43 */ + XGrabKeyboard, /* 44 */ + XGrabPointer, /* 45 */ + XKeysymToKeycode, /* 46 */ + XLookupColor, /* 47 */ + XMapWindow, /* 48 */ + XMoveResizeWindow, /* 49 */ + XMoveWindow, /* 50 */ + XNextEvent, /* 51 */ + XPutBackEvent, /* 52 */ + XQueryColors, /* 53 */ + XQueryPointer, /* 54 */ + XQueryTree, /* 55 */ + XRaiseWindow, /* 56 */ + XRefreshKeyboardMapping, /* 57 */ + XResizeWindow, /* 58 */ + XSelectInput, /* 59 */ + XSendEvent, /* 60 */ + XSetCommand, /* 61 */ + XSetIconName, /* 62 */ + XSetInputFocus, /* 63 */ + XSetSelectionOwner, /* 64 */ + XSetWindowBackground, /* 65 */ + XSetWindowBackgroundPixmap, /* 66 */ + XSetWindowBorder, /* 67 */ + XSetWindowBorderPixmap, /* 68 */ + XSetWindowBorderWidth, /* 69 */ + XSetWindowColormap, /* 70 */ + XTranslateCoordinates, /* 71 */ + XUngrabKeyboard, /* 72 */ + XUngrabPointer, /* 73 */ + XUnmapWindow, /* 74 */ + XWindowEvent, /* 75 */ + XDestroyIC, /* 76 */ + XFilterEvent, /* 77 */ + XmbLookupString, /* 78 */ + TkPutImage, /* 79 */ +#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 */ + XCreateBitmapFromData, /* 18 */ + XDefineCursor, /* 19 */ + XDestroyWindow, /* 20 */ + XDrawArc, /* 21 */ + XDrawLines, /* 22 */ + XDrawRectangle, /* 23 */ + XFillArc, /* 24 */ + XFillPolygon, /* 25 */ + XFillRectangles, /* 26 */ + XFreeColormap, /* 27 */ + XFreeColors, /* 28 */ + XFreeModifiermap, /* 29 */ + XGetGeometry, /* 30 */ + XGetWindowProperty, /* 31 */ + XGrabKeyboard, /* 32 */ + XGrabPointer, /* 33 */ + XKeysymToKeycode, /* 34 */ + XMapWindow, /* 35 */ + XMoveResizeWindow, /* 36 */ + XMoveWindow, /* 37 */ + XQueryPointer, /* 38 */ + XRaiseWindow, /* 39 */ + XRefreshKeyboardMapping, /* 40 */ + XResizeWindow, /* 41 */ + XSelectInput, /* 42 */ + XSendEvent, /* 43 */ + XSetIconName, /* 44 */ + XSetInputFocus, /* 45 */ + XSetSelectionOwner, /* 46 */ + XSetWindowBackground, /* 47 */ + XSetWindowBackgroundPixmap, /* 48 */ + XSetWindowBorder, /* 49 */ + XSetWindowBorderPixmap, /* 50 */ + XSetWindowBorderWidth, /* 51 */ + XSetWindowColormap, /* 52 */ + XUngrabKeyboard, /* 53 */ + XUngrabPointer, /* 54 */ + XUnmapWindow, /* 55 */ + TkPutImage, /* 56 */ +#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 */ + Tk_DdeObjCmd, /* 6 */ +#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..0c9a02d --- /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.2.1 1999/03/10 07:13:46 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/tkTextDisp.c b/generic/tkTextDisp.c index 816d887..8da603a 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.1.4.4 1999/02/16 11:39:32 lfb Exp $ + * RCS: @(#) $Id: tkTextDisp.c,v 1.1.4.5 1999/03/10 07:13:46 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 8c53c61..d08221e 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -12,12 +12,17 @@ * 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.1.4.8 1999/02/16 11:39:34 lfb Exp $ + * RCS: @(#) $Id: tkWindow.c,v 1.1.4.9 1999/03/10 07:13:47 stanton Exp $ */ #include "tkPort.h" #include "tkInt.h" +#if !defined(__WIN32__) && !defined(MAC_TCL) +#include "tkUnixInt.h" +#endif + + typedef struct ThreadSpecificData { int numMainWindows; /* Count of numver of main windows currently * open in this thread. */ @@ -2699,8 +2704,19 @@ Initialize(interp) int argc, code; char **argv, *args[20]; Tcl_DString class; - ThreadSpecificData *tsdPtr = (ThreadSpecificData *) - Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); + ThreadSpecificData *tsdPtr; + + /* + * 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; + } + + tsdPtr = (ThreadSpecificData *) + Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); /* * Start by initializing all the static variables to default acceptable @@ -2916,7 +2932,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 7633a03..215d089 100644 --- a/mac/tkMac.h +++ b/mac/tkMac.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: tkMac.h,v 1.1.4.2 1998/09/30 02:18:00 stanton Exp $ + * RCS: @(#) $Id: tkMac.h,v 1.1.4.3 1999/03/10 07:13:48 stanton Exp $ */ #ifndef _TKMAC @@ -44,38 +44,11 @@ typedef int (Tk_MacEmbedMakeContainerExistProc) (Tk_Window window); typedef void (Tk_MacEmbedGetClipProc) (Tk_Window window, RgnHandle rgn); typedef void (Tk_MacEmbedGetOffsetInParentProc) (Tk_Window window, Point *ulCorner); -/* - * 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)); - #pragma export reset diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c index eea97a9..cbe389f 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.1.4.4 1999/02/11 04:13:48 stanton Exp $ + * RCS: @(#) $Id: tkMacAppInit.c,v 1.1.4.5 1999/03/10 07:13:48 stanton Exp $ */ #include @@ -274,7 +274,6 @@ MacintoshInit() Tcl_MacSetEventProc(TkMacConvertEvent); - TkConsoleCreate(); return TCL_OK; } diff --git a/mac/tkMacCursor.c b/mac/tkMacCursor.c index 6a2b228..238e282 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.1.4.2 1998/09/30 02:18:04 stanton Exp $ + * RCS: @(#) $Id: tkMacCursor.c,v 1.1.4.3 1999/03/10 07:13:48 stanton Exp $ */ #include "tkPort.h" @@ -393,7 +393,8 @@ TkpSetCursor( *---------------------------------------------------------------------- */ -void Tk_MacTkOwnsCursor( +void +Tk_MacTkOwnsCursor( int tkOwnsIt) { gTkOwnsCursor = tkOwnsIt; diff --git a/mac/tkMacInt.h b/mac/tkMacInt.h index c4e305e..3050905 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.1.4.2 1998/09/30 02:18:09 stanton Exp $ + * RCS: @(#) $Id: tkMacInt.h,v 1.1.4.3 1999/03/10 07:13:48 stanton Exp $ */ #ifndef _TKMACINT @@ -208,94 +208,4 @@ typedef TkMenuDefProcPtr TkMenuDefUPP; (whichItemPtr), (globalsPtr)) #endif -/* - * 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)); -/* - * The following prototypes need to go into tkMac.h - */ -EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int state)); - #endif /* _TKMACINT */ diff --git a/mac/tkMacPort.h b/mac/tkMacPort.h index 5d2f524..b89af4c 100644 --- a/mac/tkMacPort.h +++ b/mac/tkMacPort.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: tkMacPort.h,v 1.1.4.3 1998/11/25 21:16:37 stanton Exp $ + * RCS: @(#) $Id: tkMacPort.h,v 1.1.4.4 1999/03/10 07:13:49 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 a6180fb..16b9964 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.1.4.2 1998/09/30 02:18:20 stanton Exp $ + * RCS: @(#) $Id: tkMacXStubs.c,v 1.1.4.3 1999/03/10 07:13:49 stanton Exp $ */ #include "tkInt.h" @@ -515,6 +515,47 @@ XForceScreenSaver( */ display->request++; } + +void +Tk_FreeXId ( + Display *display, + XID xid) +{ + /* no-op function needed for stubs implementation. */ +} + +void +Tk_3DHorizontalBevel ( + Tk_Window tkwin, + Drawable d, + Tk_3DBorder b, + int x, + int y, + int width, + int height, + int leftIn, + int rightIn, + int topBevel, + int relief) +{ + /* no-op function needed for stubs implementation. */ +} + +void +Tk_3DVerticalBevel ( + Tk_Window tkwin, + Drawable d, + Tk_3DBorder b, + int x, + int y, + int width, + int height, + int leftBevel, + int relief) +{ + /* no-op function needed for stubs implementation. */ +} + /* *---------------------------------------------------------------------- diff --git a/unix/Makefile.in b/unix/Makefile.in index 0e43347..51ebe72 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.1.4.4 1999/02/16 12:03:59 lfb Exp $ +# RCS: @(#) $Id: Makefile.in,v 1.1.4.5 1999/03/10 07:13:49 stanton Exp $ # Current Tk version; used in various names. @@ -111,9 +111,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 @@ -167,14 +164,31 @@ INSTALL_DATA = ${INSTALL} -m 644 TK_SHLIB_CFLAGS = @TK_SHLIB_CFLAGS@ +# 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 + TK_LIB_FILE = @TK_LIB_FILE@ #TK_LIB_FILE = libtk.a TK_LIB_FLAG = @TK_LIB_FLAG@ #TK_LIB_FLAG = -ltk -TCL_LIB_FLAG = @TCL_LIB_FLAG@ -#TCL_LIB_FLAG = -ltcl +TCL_LIB_SPEC = @TCL_BUILD_LIB_SPEC@ +TK_EXP_FILE = @TK_EXP_FILE@ +TK_BUILD_EXP_FILE = @TK_BUILD_EXP_FILE@ + +TCL_STUB_FLAGS = @TCL_STUB_FLAGS@ + +# Libraries to use when linking. This definition is determined by the +# configure script. +LIBS = @SHLIB_LD_LIBS@ @LIBS@ $(X11_LIB_SWITCHES) @DL_LIBS@ @MATH_LIBS@ -lc +WISH_LIBS = $(TCL_LIB_SPEC) @LIBS@ $(X11_LIB_SWITCHES) @DL_LIBS@ @MATH_LIBS@ -lc # The symbol below provides support for dynamic loading and shared # libraries. See configure.in for a description of what it means. @@ -213,9 +227,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} ${TCL_STUB_FLAGS} \ ${SECURITY_FLAGS} ${MEM_DEBUG_FLAGS} ${KEYSYM_FLAGS} ${NO_DEPRECATED_FLAGS} +WISH_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} \ +${SECURITY_FLAGS} ${MEM_DEBUG_FLAGS} ${KEYSYM_FLAGS} ${NO_DEPRECATED_FLAGS} + +STUB_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} \ +${SECURITY_FLAGS} ${MEM_DEBUG_FLAGS} ${KEYSYM_FLAGS} ${NO_DEPRECATED_FLAGS} + + DEPEND_SWITCHES = ${CFLAGS} -I${UNIX_DIR} -I${GENERIC_DIR} \ -I${BMAP_DIR} \ -I${TCL_GENERIC_DIR} ${X11_INCLUDES} \ @@ -245,7 +273,10 @@ UNIXOBJS = tkUnix.o tkUnix3d.o tkUnixButton.o tkUnixColor.o tkUnixConfig.o \ tkUnixCursor.o tkUnixDraw.o tkUnixEmbed.o tkUnixEvent.o \ tkUnixFocus.o tkUnixFont.o tkUnixInit.o tkUnixKey.o tkUnixMenu.o \ tkUnixMenubu.o tkUnixScale.o tkUnixScrlbr.o tkUnixSelect.o \ - tkUnixSend.o tkUnixWm.o tkUnixXId.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 \ @@ -254,6 +285,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 \ @@ -291,6 +326,9 @@ SRCS = \ $(GENERIC_DIR)/tkTextTag.c $(GENERIC_DIR)/tkTextWind.c \ $(GENERIC_DIR)/tkOldConfig.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 \ @@ -323,18 +361,24 @@ ${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 tkLibObjs: @echo ${OBJS} + # This targets actually build the objects needed for the lib in the above # case objs: ${OBJS} -wish: $(WISH_OBJS) $(TK_LIB_FILE) - $(CC) @LD_FLAGS@ $(WISH_OBJS) @TK_BUILD_LIB_SPEC@ $(LIBS) \ +wish: $(WISH_OBJS) $(TK_LIB_FILE) $(TK_STUB_LIB_FILE) + $(CC) @LD_FLAGS@ $(WISH_OBJS) @TK_BUILD_LIB_SPEC@ $(WISH_LIBS) \ $(TK_CC_SEARCH_FLAGS) -o wish tktest: $(TKTEST_OBJS) $(TK_LIB_FILE) @@ -377,7 +421,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) 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 \ @@ -395,6 +439,16 @@ install-binaries: $(TK_LIB_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_BUILD_EXP_FILE)" != ""; then \ + echo "Installing $(TK_EXP_FILE)"; \ + $(INSTALL_DATA) $(TK_BUILD_EXP_FILE) \ + $(LIB_INSTALL_DIR)/$(TK_EXP_FILE); \ + fi + @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) \ @@ -522,12 +576,12 @@ tkTestInit.o: $(UNIX_DIR)/tkAppInit.c mv tkAppInit.sav tkAppInit.o; \ fi; +tkAppInit.o: $(UNIX_DIR)/tkAppInit.c + $(CC) -c $(WISH_CC_SWITCHES) $(UNIX_DIR)/tkAppInit.c + tk3d.o: $(GENERIC_DIR)/tk3d.c $(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tk3d.c -tkAppInit.o: $(UNIX_DIR)/tkAppInit.c - $(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkAppInit.c - tkArgv.o: $(GENERIC_DIR)/tkArgv.c $(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkArgv.c @@ -723,6 +777,31 @@ tkTextTag.o: $(GENERIC_DIR)/tkTextTag.c tkTextWind.o: $(GENERIC_DIR)/tkTextWind.c $(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTextWind.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 + + tkUnix.o: $(UNIX_DIR)/tkUnix.c $(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnix.c @@ -805,6 +884,32 @@ checkuchar: checkexports: $(TK_LIB_FILE) -nm -p $(TK_LIB_FILE) | awk '$$2 ~ /[TDB]/ { print $$3 }' | sort -n | grep -v '^[Tt]k' +# 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 create a proper Tk distribution from information in the # master source directory. DISTDIR must be defined to indicate where diff --git a/unix/configure.in b/unix/configure.in index 995cb5b..36d6798 100644 --- a/unix/configure.in +++ b/unix/configure.in @@ -1,8 +1,9 @@ +#! /bin/bash -norc 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.1.4.9 1999/02/12 01:09:02 stanton Exp $ +# RCS: @(#) $Id: configure.in,v 1.1.4.10 1999/03/10 07:13:50 stanton Exp $ TK_VERSION=8.1 TK_MAJOR_VERSION=8 @@ -453,13 +454,64 @@ eval "TK_LIB_FILE=${TK_LIB_FILE}" # AIX remembers this path and will attempt to use it at run-time to look # up the Tcl library. -if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then - TK_LIB_FLAG="-ltk${VERSION}\${TK_DBGX}" +if test $TK_SHARED_BUILD = 0 -o $TCL_NEEDS_EXP_FILE = 0; then + if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then + TK_LIB_FLAG="-ltk${VERSION}\${TK_DBGX}" + else + 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_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_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) + + MAKE_STUB_LIB="ar cr \${STUB_LIB_FILE} \${STUB_LIB_OBJS}" + TCL_STUB_FLAGS="-DUSE_TCL_STUBS" + + # Don't link Tk directly to Tcl. + + SHLIB_LD_LIBS="\${TCL_BUILD_STUB_LIB_SPEC}" else - TK_LIB_FLAG="-ltk`echo ${VERSION} | tr -d .`\${TK_DBGX}" + AC_MSG_RESULT(dynamic linking) + + TCL_BUILD_STUB_LIB_SPEC="" + TCL_STUB_FLAGS="" fi -TK_BUILD_LIB_SPEC="-L`pwd` ${TK_LIB_FLAG}" -TK_LIB_SPEC="-L${exec_prefix}/lib ${TK_LIB_FLAG}" + +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) @@ -477,6 +529,7 @@ AC_SUBST(SHLIB_LD_LIBS) AC_SUBST(SHLIB_SUFFIX) AC_SUBST(SHLIB_VERSION) AC_SUBST(TCL_BIN_DIR) +AC_SUBST(TCL_BUILD_STUB_LIB_SPEC) AC_SUBST(TCL_BUILD_LIB_SPEC) AC_SUBST(TCL_DBGX) AC_SUBST(TCL_LIB_FLAG) diff --git a/unix/tkConfig.sh.in b/unix/tkConfig.sh.in index cc5c33d..5afb316 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.1.4.1 1998/09/30 02:19:13 stanton Exp $ +# RCS: @(#) $Id: tkConfig.sh.in,v 1.1.4.2 1999/03/10 07:13:50 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 e1cd27d..bcccc36 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.1.4.2 1998/09/30 02:19:13 stanton Exp $ + * RCS: @(#) $Id: tkUnix.c,v 1.1.4.3 1999/03/10 07:13:50 stanton Exp $ */ #include @@ -78,3 +78,31 @@ 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 1b6285d..eadb830 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.1.4.1 1998/09/30 02:19:13 stanton Exp $ + * RCS: @(#) $Id: tkUnix3d.c,v 1.1.4.2 1999/03/10 07:13:50 stanton Exp $ */ #include +#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 db2af5e..1f046fc 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.1.4.1 1998/09/30 02:19:16 stanton Exp $ + * RCS: @(#) $Id: tkUnixDraw.c,v 1.1.4.2 1999/03/10 07:13:51 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/tkUnixInt.h b/unix/tkUnixInt.h index 6fb896a..cf9e7fd 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.1.4.2 1998/09/30 02:19:19 stanton Exp $ + * RCS: @(#) $Id: tkUnixInt.h,v 1.1.4.3 1999/03/10 07:13:51 stanton Exp $ */ #ifndef _TKUNIXINT @@ -24,13 +24,6 @@ * Prototypes for procedures that are referenced in files other * 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/tkUnixMenubu.c b/unix/tkUnixMenubu.c index c94653c..f2d0b77 100644 --- a/unix/tkUnixMenubu.c +++ b/unix/tkUnixMenubu.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: tkUnixMenubu.c,v 1.1.4.4 1999/02/16 06:00:09 lfb Exp $ + * RCS: @(#) $Id: tkUnixMenubu.c,v 1.1.4.5 1999/03/10 07:13:51 stanton Exp $ */ #include "tkMenubutton.h" @@ -143,7 +143,7 @@ TkpDisplayMenuButton(clientData) * foreground color, generate the stippled effect. */ - if ((mbPtr->state == STATE_DISABLED) && (mbPtr->disabledFg != NULL) + if (((mbPtr->state == STATE_DISABLED) && (mbPtr->disabledFg != NULL) ) || (mbPtr->image != NULL)) { XFillRectangle(mbPtr->display, pixmap, mbPtr->disabledGC, mbPtr->inset, mbPtr->inset, diff --git a/unix/tkUnixPort.h b/unix/tkUnixPort.h index 4d84c0f..e38f293 100644 --- a/unix/tkUnixPort.h +++ b/unix/tkUnixPort.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: tkUnixPort.h,v 1.1.4.2 1998/09/30 02:19:21 stanton Exp $ + * RCS: @(#) $Id: tkUnixPort.h,v 1.1.4.3 1999/03/10 07:13:51 stanton Exp $ */ #ifndef _UNIXPORT @@ -179,7 +179,6 @@ extern int errno; * 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. @@ -225,6 +224,8 @@ extern void panic _ANSI_ARGS_(TCL_VARARGS(char *, string)); * that is needed for portability reasons. */ -EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time *time)); +#ifndef _TCLINT +#include +#endif #endif /* _UNIXPORT */ diff --git a/win/makefile.vc b/win/makefile.vc index 598e9fa..b0ecf2e 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-1997 Sun Microsystems, Inc. -# RCS: @(#) $Id: makefile.vc,v 1.1.4.13 1999/03/09 02:48:44 lfb Exp $ +# RCS: @(#) $Id: makefile.vc,v 1.1.4.14 1999/03/10 07:13:51 stanton Exp $ # Does not depend on the presence of any environment variables in # order to compile tcl; all needed information is derived from @@ -29,6 +29,7 @@ ROOT = .. TOOLS32 = c:\program files\devstudio\vc TOOLS32_rc = c:\program files\devstudio\sharedide TCLDIR = ..\..\tcl8.1b2 +INSTALLDIR = c:\program files\tcl # Set this to the appropriate value of /MACHINE: for your platform MACHINE = IX86 @@ -52,6 +53,10 @@ WISHNAMEPREFIX = wish VERSION = 81 DOTVERSION = 8.1 +TCLSTUBPREFIX = $(TCLNAMEPREFIX)stub +TKSTUBPREFIX = $(TKNAMEPREFIX)stub + + BINROOT = . !IF "$(NODEBUG)" == "1" TMPDIRNAME = Release @@ -66,9 +71,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 +TKSTUBLIBNAME = $(TKSTUBPREFIX)$(VERSION)$(DBGX).lib +TKSTUBLIB = $(OUTDIR)\$(TKSTUBLIBNAME) TKPLUGINDLLNAME = $(TKNAMEPREFIX)$(VERSION)p$(DBG).dll TKPLUGINDLL = $(OUTDIR)\$(TKPLUGINDLLNAME) TKPLUGINLIB = $(OUTDIR)\$(TKNAMEPREFIX)$(VERSION)p$(DBGX).lib @@ -198,10 +206,21 @@ 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 \ + $(TMPDIR)\tkIntXlibStubs.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" @@ -217,7 +236,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) -DUSE_TCL_STUBS + +WISH_CFLAGS = $(cdebug) $(cflags) $(cvarsdll) $(include32) \ + $(TK_INCLUDES) $(TK_DEFINES) ###################################################################### # Link flags @@ -323,6 +345,11 @@ test: setup $(TKTEST) $(TKLIB) $(CAT32) console-wish : all $(WISHC) +stubs: + $(TCLDIR)\win\$(TMPDIRNAME)\tclsh$(VERSION)$(DBGX) \ + $(TCLDIR)\tools\genStubs.tcl $(GENERICDIR) \ + $(GENERICDIR)\tk.decls $(GENERICDIR)\tkInt.decls + setup: @mkd $(TMPDIR) @mkd $(OUTDIR) @@ -348,12 +375,15 @@ install-libraries: xcopy "$(ROOT)\library\demos" "$(SCRIPT_INSTALL_DIR)\demos" xcopy "$(ROOT)\library\demos\images" "$(SCRIPT_INSTALL_DIR)\demos\images" -$(TKLIB): $(TKDLL) +$(TKLIB): $(TKDLL) $(TKSTUBLIB) + +$(TKSTUBLIB): $(TKSTUBOBJS) + $(lib32) /out:$@ $(TKSTUBOBJS) $(TKDLL): $(TKOBJS) $(TMPDIR)\tk.res $(TMPDIR)\tk.def set LIB=$(TOOLS32)\lib $(link32) $(ldebug) $(dlllflags) -def:$(TMPDIR)\tk.def \ - -out:$@ $(TMPDIR)\tk.res $(TCLLIBDIR)\$(TCLLIB) \ + -out:$@ $(TMPDIR)\tk.res $(TCLLIBDIR)\$(TCLSTUBLIB) \ $(guilibsdll) @<< $(TKOBJS) << @@ -411,6 +441,14 @@ $(CAT32): $(TCLDIR)\win\cat.c $(link32) $(conlflags) -out:$@ -stack:16384 $(TMPDIR)\cat.obj $(conlibs) # +# Regenerate the stubs files. +# + +genstubs: + tclsh$(VERSION) $(TCLDIR)\tools\genStubs.tcl $(GENERICDIR) \ + $(GENERICDIR)\tk.decls $(GENERICDIR)\tkInt.decls + +# # Special case object file targets # @@ -424,7 +462,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 a746fe8..e430942 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.1.4.2 1998/09/30 02:19:27 stanton Exp $ + * RCS: @(#) $Id: tkWin.h,v 1.1.4.3 1999/03/10 07:13:52 stanton Exp $ */ #ifndef _TKWIN @@ -47,19 +47,7 @@ *-------------------------------------------------------------- */ -EXTERN Window Tk_AttachHWND _ANSI_ARGS_((Tk_Window tkwin, - HWND hwnd)); -EXTERN int Tk_DdeObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -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/tkWinInt.h b/win/tkWinInt.h index 45030e9..a8b0fb1 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.1.4.4 1999/03/01 19:35:28 redman Exp $ + * RCS: @(#) $Id: tkWinInt.h,v 1.1.4.5 1999/03/10 07:13:52 stanton Exp $ */ #ifndef _TKWININT @@ -151,55 +151,10 @@ extern int tkpWinRopModes[]; * Internal procedures used by more than one source file. */ -extern void TkWinCancelMouseTimer _ANSI_ARGS_((void)); +#include "tkIntPlatDecls.h" + extern LRESULT CALLBACK TkWinChildProc _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)); -extern void TkWinClipboardRender _ANSI_ARGS_((TkDisplay *dispPtr, - UINT format)); -extern void TkWinDialogDebug _ANSI_ARGS_((int debug)); -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 Tcl_Obj * TkWinGetMenuSystemDefault _ANSI_ARGS_((Tk_Window tkwin, - char *dbName, char *className)); -extern int TkWinGetModifierState _ANSI_ARGS_((void)); -extern int TkWinGetPlatformId(); -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)); -extern void TkWinSetForegroundWindow _ANSI_ARGS_((TkWindow *winPtr)); #endif /* _TKWININT */ diff --git a/win/tkWinPort.h b/win/tkWinPort.h index 333f7ed..7289d0c 100644 --- a/win/tkWinPort.h +++ b/win/tkWinPort.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: tkWinPort.h,v 1.1.4.2 1998/09/30 02:19:37 stanton Exp $ + * RCS: @(#) $Id: tkWinPort.h,v 1.1.4.3 1999/03/10 07:13:52 stanton Exp $ */ #ifndef _WINPORT @@ -111,7 +111,8 @@ struct timezone { int tz_dsttime; }; -extern int gettimeofday(struct timeval *, struct timezone *); -EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); +#ifndef _TCLINT +#include +#endif #endif /* _WINPORT */ diff --git a/win/winMain.c b/win/winMain.c index 23aa235..0f7f6a0 100644 --- a/win/winMain.c +++ b/win/winMain.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: winMain.c,v 1.1.4.4 1999/02/26 02:24:46 redman Exp $ + * RCS: @(#) $Id: winMain.c,v 1.1.4.5 1999/03/10 07:13:52 stanton Exp $ */ #include @@ -19,13 +19,13 @@ #include #include +#include "tkInt.h" + /* * The following declarations refer to internal Tk routines. These * 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: @@ -100,7 +100,6 @@ WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow) */ consoleRequired = TRUE; - TkConsoleCreate(); Tk_Main(argc, argv, Tcl_AppInit); return 1; diff --git a/xlib/X11/Xlib.h b/xlib/X11/Xlib.h index 247255b..daefec3 100644 --- a/xlib/X11/Xlib.h +++ b/xlib/X11/Xlib.h @@ -1180,3126 +1180,113 @@ 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( -#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 */ -#endif -); - -extern void XrmInitialize( -#if NeedFunctionPrototypes - void -#endif -); - -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 */, - _Xconst char* /* atom_name */, - 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 */, - Drawable /* d */, - unsigned long /* valuemask */, - 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 */, - Drawable /* d */, - _Xconst char* /* data */, - unsigned int /* width */, - 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 - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x1 */, - int /* y1 */, - int /* x2 */, - int /* y2 */ -#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 - Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#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 */, - GC /* gc */ -#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 */, - Colormap /* colormap */, - _Xconst char* /* spec */, - XColor* /* exact_def_return */ -#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 */, - GC /* gc */, - Pixmap /* pixmap */ -#endif -); - -extern void XSetClipOrigin( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - int /* clip_x_origin */, - int /* clip_y_origin */ -#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 */, - GC /* gc */, - unsigned long /* foreground */ -#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 */, - GC /* gc */, - int /* ts_x_origin */, - int /* ts_y_origin */ -#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( +typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */, - Window /* w */ + XErrorEvent* /* error_event */ #endif ); -extern void XUnmapWindow( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); +_XFUNCPROTOBEGIN -extern int XVendorRelease( -#if NeedFunctionPrototypes - Display* /* display */ -#endif -); -extern void XWarpPointer( +extern Atom XInternAtom( #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 */ + _Xconst char* /* atom_name */, + Bool /* only_if_exists */ #endif ); -extern void XWindowEvent( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - long /* event_mask */, - XEvent* /* event_return */ -#endif -); -extern int XWriteBitmapFile( +extern GC XCreateGC( #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 */ + Drawable /* d */, + unsigned long /* valuemask */, + XGCValues* /* values */ #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( +extern void XDrawLine( #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 */ + Drawable /* d */, + GC /* gc */, + int /* x1 */, + int /* y1 */, + int /* x2 */, + int /* y2 */ #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( +extern void XFillRectangle( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, - XmbTextItem* /* text_items */, - int /* nitems */ + unsigned int /* width */, + unsigned int /* height */ #endif ); -extern void XwcDrawText( +extern void XFreeGC( #if NeedFunctionPrototypes Display* /* display */, - Drawable /* d */, - GC /* gc */, - int /* x */, - int /* y */, - XwcTextItem* /* text_items */, - int /* nitems */ + GC /* gc */ #endif ); -extern void XmbDrawString( +extern Status XParseColor( #if NeedFunctionPrototypes Display* /* display */, - Drawable /* d */, - XFontSet /* font_set */, - GC /* gc */, - int /* x */, - int /* y */, - _Xconst char* /* text */, - int /* bytes_text */ + Colormap /* colormap */, + _Xconst char* /* spec */, + XColor* /* exact_def_return */ #endif ); -extern void XwcDrawString( +extern void XSetClipMask( #if NeedFunctionPrototypes Display* /* display */, - Drawable /* d */, - XFontSet /* font_set */, GC /* gc */, - int /* x */, - int /* y */, - wchar_t* /* text */, - int /* num_wchars */ + Pixmap /* pixmap */ #endif ); -extern void XmbDrawImageString( + +extern void XSetClipOrigin( #if NeedFunctionPrototypes Display* /* display */, - Drawable /* d */, - XFontSet /* font_set */, GC /* gc */, - int /* x */, - int /* y */, - _Xconst char* /* text */, - int /* bytes_text */ + int /* clip_x_origin */, + int /* clip_y_origin */ #endif ); -extern void XwcDrawImageString( +extern void XSetForeground( #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 */ + unsigned long /* foreground */ #endif ); -extern int XmbLookupString( +extern void XSetTSOrigin( #if NeedFunctionPrototypes - XIC /* ic */, - XKeyPressedEvent* /* event */, - char* /* buffer_return */, - int /* bytes_buffer */, - KeySym* /* keysym_return */, - Status* /* status_return */ + Display* /* display */, + GC /* gc */, + int /* ts_x_origin */, + int /* ts_y_origin */ #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 -- cgit v0.12