'\" '\" Copyright (c) 1994-1996 Sun Microsystems, Inc. '\" Copyright (c) 2004 Joe English '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" .TH ttk::scrollbar n 8.5 Tk "Tk Themed Widget" .so man.macros .BS .SH NAME ttk::scrollbar \- Control the viewport of a scrollable widget .SH SYNOPSIS \fBttk::scrollbar\fR \fIpathName \fR?\fIoptions...\fR? .BE .SH DESCRIPTION .PP \fBttk::scrollbar\fR widgets are typically linked to an associated window that displays a document of some sort, such as a file being edited or a drawing. A scrollbar displays a \fIthumb\fR in the middle portion of the scrollbar, whose position and size provides information about the portion of the document visible in the associated window. The thumb may be dragged by the user to control the visible region. Depending on the theme, two or more arrow buttons may also be present; these are used to scroll the visible region in discrete units. .SO ttk_widget \-class \-cursor \-style \-takefocus .SE .SH "WIDGET-SPECIFIC OPTIONS" .OP \-command command Command A Tcl script prefix to evaluate to change the view in the widget associated with the scrollbar. Additional arguments are appended to the value of this option, as described in \fBSCROLLING COMMANDS\fR below, whenever the user requests a view change by manipulating the scrollbar. .RS .PP This option typically consists of a two-element list, containing the name of a scrollable widget followed by either \fBxview\fR (for horizontal scrollbars) or \fByview\fR (for vertical scrollbars). .RE .OP \-orient orient Orient One of \fBhorizontal\fR or \fBvertical\fR. Specifies the orientation of the scrollbar. .SH "WIDGET COMMAND" .PP .TP \fIpathName \fBcget\fR \fIoption\fR Returns the current value of the specified \fIoption\fR; see \fIttk::widget(n)\fR. .TP \fIpathName \fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR? Modify or query widget options; see \fIttk::widget(n)\fR. .TP \fIpathName \fBget\fR Returns the scrollbar settings in the form of a list whose elements are the arguments to the most recent \fBset\fR widget command. .TP \fIpathName \fBidentify\fR \fIx y\fR Returns the name of the element at position \fIx\fR, \fIy\fR. See \fIttk::widget(n)\fR. .TP \fIpathName \fBinstate \fIstatespec\fR ?\fIscript\fR? Test the widget state; see \fIttk::widget(n)\fR. .TP \fIpathName \fBset\fR \fIfirst last\fR This command is normally invoked by the scrollbar's associated widget from an \fB\-xscrollcommand\fR or \fB\-yscrollcommand\fR callback. Specifies the visible range to be displayed. \fIfirst\fR and \fIlast\fR are real fractions between 0 and 1. .TP \fIpathName \fBstate\fR ?\fIstateSpec\fR? Modify or query the widget state; see \fIttk::widget(n)\fR. .SH "INTERNAL COMMANDS" .PP The following widget commands are used internally by the TScrollbar widget class bindings. .TP \fIpathName \fBdelta \fIdeltaX deltaY\fR Returns a real number indicating the fractional change in the scrollbar setting that corresponds to a given change in thumb position. For example, if the scrollbar is horizontal, the result indicates how much the scrollbar setting must change to move the thumb \fIdeltaX\fR pixels to the right (\fIdeltaY\fR is ignored in this case). If the scrollbar is vertical, the result indicates how much the scrollbar setting must change to move the thumb \fIdeltaY\fR pixels down. The arguments and the result may be zero or negative. .TP \fIpathName \fBfraction \fIx y\fR Returns a real number between 0 and 1 indicating where the point given by \fIx\fR and \fIy\fR lies in the trough area of the scrollbar, where 0.0 corresponds to the top or left of the trough and 1.0 corresponds to the bottom or right. \fIX\fR and \fIy\fR are pixel coordinates relative to the scrollbar widget. If \fIx\fR and \fIy\fR refer to a point outside the trough, the closest point in the trough is used. .SH "SCROLLING COMMANDS" .PP When the user interacts with the scrollbar, for example by dragging the thumb, the scrollbar notifies the associated widget that it must change its view. The scrollbar makes the notification by evaluating a Tcl command generated from the scrollbar's \fB\-command\fR option. The command may take any of the following forms. In each case, \fIprefix\fR is the contents of the \fB\-command\fR option, which usually has a form like \fB.t yview\fR .TP \fIprefix \fBmoveto \fIfraction\fR \fIFraction\fR is a real number between 0 and 1. The widget should adjust its view so that the point given by \fIfraction\fR appears at the beginning of the widget. If \fIfraction\fR is 0 it refers to the beginning of the document. 1.0 refers to the end of the document, 0.333 refers to a point one-third of the way through the document, and so on. .TP \fIprefix \fBscroll \fInumber \fBunits\fR The widget should adjust its view by \fInumber\fR units. The units are defined in whatever way makes sense for the widget, such as characters or lines in a text widget. \fINumber\fR is either 1, which means one unit should scroll off the top or left of the window, or \-1, which means that one unit should scroll off the bottom or right of the window. .TP \fIprefix \fBscroll \fInumber \fBpages\fR The widget should adjust its view by \fInumber\fR pages. It is up to the widget to define the meaning of a page; typically it is slightly less than what fits in the window, so that there is a slight overlap between the old and new views. \fINumber\fR is either 1, which means the next page should become visible, or \-1, which means that the previous page should become visible. .SH "WIDGET STATES" .PP The scrollbar automatically sets the \fBdisabled\fR state bit. when the entire range is visible (range is 0.0 to 1.0), and clears it otherwise. It also sets the \fBactive\fR and \fBpressed\fR state flags of individual elements, based on the position and state of the mouse pointer. .SH EXAMPLE .PP .CS set f [frame .f] ttk::scrollbar $f.hsb \-orient horizontal \-command [list $f.t xview] ttk::scrollbar $f.vsb \-orient vertical \-command [list $f.t yview] text $f.t \-xscrollcommand [list $f.hsb set] \-yscrollcommand [list $f.vsb set] grid $f.t \-row 0 \-column 0 \-sticky nsew grid $f.vsb \-row 0 \-column 1 \-sticky nsew grid $f.hsb \-row 1 \-column 0 \-sticky nsew grid columnconfigure $f 0 \-weight 1 grid rowconfigure $f 0 \-weight 1 .CE .SH "SEE ALSO" ttk::widget(n), scrollbar(n) .SH KEYWORDS scrollbar, widget '\" Local Variables: '\" mode: nroff '\" End: s canvas, double x, double y, \ + short *screenXPtr, short *screenYPtr) +} + +declare 22 generic { + void Tk_ChangeWindowAttributes (Tk_Window tkwin, unsigned long valueMask, \ + XSetWindowAttributes *attsPtr) +} + +declare 23 generic { + int Tk_CharBbox (Tk_TextLayout layout, int index, int *xPtr, \ + int *yPtr, int *widthPtr, int *heightPtr) +} + +declare 24 generic { + void Tk_ClearSelection (Tk_Window tkwin, Atom selection) +} + +declare 25 generic { + int Tk_ClipboardAppend (Tcl_Interp *interp,Tk_Window tkwin, \ + Atom target, Atom format, char* buffer) +} + +declare 26 generic { + int Tk_ClipboardClear (Tcl_Interp *interp, Tk_Window tkwin) +} + +declare 27 generic { + int Tk_ConfigureInfo (Tcl_Interp *interp, \ + Tk_Window tkwin, Tk_ConfigSpec *specs, \ + char *widgRec, char *argvName, int flags) +} + +declare 28 generic { + int Tk_ConfigureValue (Tcl_Interp *interp, \ + Tk_Window tkwin, Tk_ConfigSpec *specs, \ + char *widgRec, char *argvName, int flags) +} + +declare 29 generic { + int Tk_ConfigureWidget (Tcl_Interp *interp, \ + Tk_Window tkwin, Tk_ConfigSpec *specs, \ + int argc, char **argv, char *widgRec, \ + int flags) +} + +declare 30 generic { + void Tk_ConfigureWindow (Tk_Window tkwin, \ + unsigned int valueMask, XWindowChanges *valuePtr) +} + +declare 31 generic { + Tk_TextLayout Tk_ComputeTextLayout (Tk_Font font, \ + CONST char *string, int numChars, int wrapLength, \ + Tk_Justify justify, int flags, int *widthPtr, \ + int *heightPtr) +} + +declare 32 generic { + Tk_Window Tk_CoordsToWindow (int rootX, int rootY, Tk_Window tkwin) +} + +declare 33 generic { + unsigned long Tk_CreateBinding (Tcl_Interp *interp, \ + Tk_BindingTable bindingTable, ClientData object, \ + char *eventString, char *command, int append) +} + +declare 34 generic { + Tk_BindingTable Tk_CreateBindingTable (Tcl_Interp *interp) +} + +declare 35 generic { + Tk_ErrorHandler Tk_CreateErrorHandler (Display *display, \ + int errNum, int request, int minorCode, \ + Tk_ErrorProc *errorProc, ClientData clientData) +} + +declare 36 generic { + void Tk_CreateEventHandler (Tk_Window token, \ + unsigned long mask, Tk_EventProc *proc, \ + ClientData clientData) +} + +declare 37 generic { + void Tk_CreateGenericHandler (Tk_GenericProc *proc, ClientData clientData) +} + +declare 38 generic { + void Tk_CreateImageType (Tk_ImageType *typePtr) +} + +declare 39 generic { + void Tk_CreateItemType (Tk_ItemType *typePtr) +} + +declare 40 generic { + void Tk_CreatePhotoImageFormat (Tk_PhotoImageFormat *formatPtr) +} + +declare 41 generic { + void Tk_CreateSelHandler (Tk_Window tkwin, \ + Atom selection, Atom target, \ + Tk_SelectionProc *proc, ClientData clientData, \ + Atom format) +} + +declare 42 generic { + Tk_Window Tk_CreateWindow (Tcl_Interp *interp, \ + Tk_Window parent, char *name, char *screenName) +} + +declare 43 generic { + Tk_Window Tk_CreateWindowFromPath (Tcl_Interp *interp, Tk_Window tkwin, \ + char *pathName, char *screenName) +} + +declare 44 generic { + int Tk_DefineBitmap (Tcl_Interp *interp, \ + Tk_Uid name, char *source, int width, int height) +} + +declare 45 generic { + void Tk_DefineCursor (Tk_Window window, Tk_Cursor cursor) +} + +declare 46 generic { + void Tk_DeleteAllBindings (Tk_BindingTable bindingTable, ClientData object) +} + +declare 47 generic { + int Tk_DeleteBinding (Tcl_Interp *interp, \ + Tk_BindingTable bindingTable, ClientData object, \ + char *eventString) +} + +declare 48 generic { + void Tk_DeleteBindingTable (Tk_BindingTable bindingTable) +} + +declare 49 generic { + void Tk_DeleteErrorHandler (Tk_ErrorHandler handler) +} + +declare 50 generic { + void Tk_DeleteEventHandler (Tk_Window token, \ + unsigned long mask, Tk_EventProc *proc, \ + ClientData clientData) +} + +declare 51 generic { + void Tk_DeleteGenericHandler (Tk_GenericProc *proc, ClientData clientData) +} + +declare 52 generic { + void Tk_DeleteImage (Tcl_Interp *interp, char *name) +} + +declare 53 generic { + void Tk_DeleteSelHandler (Tk_Window tkwin, Atom selection, Atom target) +} + +declare 54 generic { + void Tk_DestroyWindow (Tk_Window tkwin) +} + +declare 55 generic { + char * Tk_DisplayName (Tk_Window tkwin) +} + +declare 56 generic { + int Tk_DistanceToTextLayout (Tk_TextLayout layout, int x, int y) +} + +declare 57 generic { + void Tk_Draw3DPolygon (Tk_Window tkwin, \ + Drawable drawable, Tk_3DBorder border, \ + XPoint *pointPtr, int numPoints, int borderWidth, \ + int leftRelief) +} + +declare 58 generic { + void Tk_Draw3DRectangle (Tk_Window tkwin, \ + Drawable drawable, Tk_3DBorder border, int x, \ + int y, int width, int height, int borderWidth, \ + int relief) +} + +declare 59 generic { + void Tk_DrawChars (Display *display, \ + Drawable drawable, GC gc, Tk_Font tkfont, \ + CONST char *source, int numChars, int x, \ + int y) +} + +declare 60 generic { + void Tk_DrawFocusHighlight (Tk_Window tkwin, \ + GC gc, int width, Drawable drawable) +} + +declare 61 generic { + void Tk_DrawTextLayout (Display *display, \ + Drawable drawable, GC gc, Tk_TextLayout layout, \ + int x, int y, int firstChar, int lastChar) +} + +declare 62 generic { + void Tk_Fill3DPolygon (Tk_Window tkwin, \ + Drawable drawable, Tk_3DBorder border, \ + XPoint *pointPtr, int numPoints, int borderWidth, \ + int leftRelief) +} + +declare 63 generic { + void Tk_Fill3DRectangle (Tk_Window tkwin, \ + Drawable drawable, Tk_3DBorder border, int x, \ + int y, int width, int height, int borderWidth, \ + int relief) +} + +declare 64 generic { + Tk_PhotoHandle Tk_FindPhoto (Tcl_Interp *interp, char *imageName) +} + +declare 65 generic { + Font Tk_FontId (Tk_Font font) +} + +declare 66 generic { + void Tk_Free3DBorder (Tk_3DBorder border) +} + +declare 67 generic { + void Tk_FreeBitmap (Display *display, Pixmap bitmap) +} + +declare 68 generic { + void Tk_FreeColor (XColor *colorPtr) +} + +declare 69 generic { + void Tk_FreeColormap (Display *display, Colormap colormap) +} + +declare 70 generic { + void Tk_FreeCursor (Display *display, Tk_Cursor cursor) +} + +declare 71 generic { + void Tk_FreeFont (Tk_Font f) +} + +declare 72 generic { + void Tk_FreeGC (Display *display, GC gc) +} + +declare 73 generic { + void Tk_FreeImage (Tk_Image image) +} + +declare 74 generic { + void Tk_FreeOptions (Tk_ConfigSpec *specs, \ + char *widgRec, Display *display, int needFlags) +} + +declare 75 generic { + void Tk_FreePixmap (Display *display, Pixmap pixmap) +} + +declare 76 generic { + void Tk_FreeTextLayout (Tk_TextLayout textLayout) +} + +declare 77 generic { + void Tk_FreeXId (Display *display, XID xid) +} + +declare 78 generic { + GC Tk_GCForColor (XColor *colorPtr, Drawable drawable) +} + +declare 79 generic { + void Tk_GeometryRequest (Tk_Window tkwin, int reqWidth, int reqHeight) +} + +declare 80 generic { + Tk_3DBorder Tk_Get3DBorder (Tcl_Interp *interp, Tk_Window tkwin, \ + Tk_Uid colorName) +} + +declare 81 generic { + void Tk_GetAllBindings (Tcl_Interp *interp, \ + Tk_BindingTable bindingTable, ClientData object) +} + +declare 82 generic { + int Tk_GetAnchor (Tcl_Interp *interp, \ + char *string, Tk_Anchor *anchorPtr) +} + +declare 83 generic { + char * Tk_GetAtomName (Tk_Window tkwin, Atom atom) +} + +declare 84 generic { + char * Tk_GetBinding (Tcl_Interp *interp, \ + Tk_BindingTable bindingTable, ClientData object, \ + char *eventString) +} + +declare 85 generic { + Pixmap Tk_GetBitmap (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid string) +} + +declare 86 generic { + Pixmap Tk_GetBitmapFromData (Tcl_Interp *interp, \ + Tk_Window tkwin, char *source, int width, int height) +} + +declare 87 generic { + int Tk_GetCapStyle (Tcl_Interp *interp, char *string, int *capPtr) +} + +declare 88 generic { + XColor * Tk_GetColor (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name) +} + +declare 89 generic { + XColor * Tk_GetColorByValue (Tk_Window tkwin, XColor *colorPtr) +} + +declare 90 generic { + Colormap Tk_GetColormap (Tcl_Interp *interp, Tk_Window tkwin, char *string) +} + +declare 91 generic { + Tk_Cursor Tk_GetCursor (Tcl_Interp *interp, Tk_Window tkwin, \ + Tk_Uid string) +} + +declare 92 generic { + Tk_Cursor Tk_GetCursorFromData (Tcl_Interp *interp, \ + Tk_Window tkwin, char *source, char *mask, \ + int width, int height, int xHot, int yHot, \ + Tk_Uid fg, Tk_Uid bg) +} + +declare 93 generic { + Tk_Font Tk_GetFont (Tcl_Interp *interp, \ + Tk_Window tkwin, CONST char *string) +} + +declare 94 generic { + Tk_Font Tk_GetFontFromObj (Tcl_Interp *interp, \ + Tk_Window tkwin, Tcl_Obj *objPtr) +} + +declare 95 generic { + void Tk_GetFontMetrics (Tk_Font font, Tk_FontMetrics *fmPtr) +} + +declare 96 generic { + GC Tk_GetGC (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr) +} + +declare 97 generic { + Tk_Image Tk_GetImage (Tcl_Interp *interp, Tk_Window tkwin, char *name, \ + Tk_ImageChangedProc *changeProc, ClientData clientData) +} + +declare 98 generic { + ClientData Tk_GetImageMasterData (Tcl_Interp *interp, \ + char *name, Tk_ImageType **typePtrPtr) +} + +declare 99 generic { + Tk_ItemType * Tk_GetItemTypes (void) +} + +declare 100 generic { + int Tk_GetJoinStyle (Tcl_Interp *interp, char *string, int *joinPtr) +} + +declare 101 generic { + int Tk_GetJustify (Tcl_Interp *interp, \ + char *string, Tk_Justify *justifyPtr) +} + +declare 102 generic { + int Tk_GetNumMainWindows (void) +} + +declare 103 generic { + Tk_Uid Tk_GetOption (Tk_Window tkwin, char *name, char *className) +} + +declare 104 generic { + int Tk_GetPixels (Tcl_Interp *interp, \ + Tk_Window tkwin, char *string, int *intPtr) +} + +declare 105 generic { + Pixmap Tk_GetPixmap (Display *display, Drawable d, \ + int width, int height, int depth) +} + +declare 106 generic { + int Tk_GetRelief (Tcl_Interp *interp, char *name, int *reliefPtr) +} + +declare 107 generic { + void Tk_GetRootCoords (Tk_Window tkwin, int *xPtr, int *yPtr) +} + +declare 108 generic { + int Tk_GetScrollInfo (Tcl_Interp *interp, \ + int argc, char **argv, double *dblPtr, int *intPtr) +} + +declare 109 generic { + int Tk_GetScreenMM (Tcl_Interp *interp, \ + Tk_Window tkwin, char *string, double *doublePtr) +} + +declare 110 generic { + int Tk_GetSelection (Tcl_Interp *interp, \ + Tk_Window tkwin, Atom selection, Atom target, \ + Tk_GetSelProc *proc, ClientData clientData) +} + +declare 111 generic { + Tk_Uid Tk_GetUid (CONST char *string) +} + +declare 112 generic { + Visual * Tk_GetVisual (Tcl_Interp *interp, \ + Tk_Window tkwin, char *string, int *depthPtr, \ + Colormap *colormapPtr) +} + +declare 113 generic { + void Tk_GetVRootGeometry (Tk_Window tkwin, \ + int *xPtr, int *yPtr, int *widthPtr, int *heightPtr) +} + +declare 114 generic { + int Tk_Grab (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal) +} + +declare 115 generic { + void Tk_HandleEvent (XEvent *eventPtr) +} + +declare 116 generic { + Tk_Window Tk_IdToWindow (Display *display, Window window) +} + +declare 117 generic { + void Tk_ImageChanged (Tk_ImageMaster master, int x, int y, \ + int width, int height, int imageWidth, int imageHeight) +} + +declare 118 generic { + int Tk_Init (Tcl_Interp *interp) +} + +declare 119 generic { + Atom Tk_InternAtom (Tk_Window tkwin, char *name) +} + +declare 120 generic { + int Tk_IntersectTextLayout (Tk_TextLayout layout, int x, int y, \ + int width, int height) +} + +declare 121 generic { + void Tk_MaintainGeometry (Tk_Window slave, \ + Tk_Window master, int x, int y, int width, int height) +} + +declare 122 generic { + Tk_Window Tk_MainWindow (Tcl_Interp *interp) +} + +declare 123 generic { + void Tk_MakeWindowExist (Tk_Window tkwin) +} + +declare 124 generic { + void Tk_ManageGeometry (Tk_Window tkwin, \ + Tk_GeomMgr *mgrPtr, ClientData clientData) +} + +declare 125 generic { + void Tk_MapWindow (Tk_Window tkwin) +} + +declare 126 generic { + int Tk_MeasureChars (Tk_Font tkfont, \ + CONST char *source, int maxChars, int maxPixels, \ + int flags, int *lengthPtr) +} + +declare 127 generic { + void Tk_MoveResizeWindow (Tk_Window tkwin, \ + int x, int y, int width, int height) +} + +declare 128 generic { + void Tk_MoveWindow (Tk_Window tkwin, int x, int y) +} + +declare 129 generic { + void Tk_MoveToplevelWindow (Tk_Window tkwin, int x, int y) +} + +declare 130 generic { + char * Tk_NameOf3DBorder (Tk_3DBorder border) +} + +declare 131 generic { + char * Tk_NameOfAnchor (Tk_Anchor anchor) +} + +declare 132 generic { + char * Tk_NameOfBitmap (Display *display, Pixmap bitmap) +} + +declare 133 generic { + char * Tk_NameOfCapStyle (int cap) +} + +declare 134 generic { + char * Tk_NameOfColor (XColor *colorPtr) +} + +declare 135 generic { + char * Tk_NameOfCursor (Display *display, Tk_Cursor cursor) +} + +declare 136 generic { + char * Tk_NameOfFont (Tk_Font font) +} + +declare 137 generic { + char * Tk_NameOfImage (Tk_ImageMaster imageMaster) +} + +declare 138 generic { + char * Tk_NameOfJoinStyle (int join) +} + +declare 139 generic { + char * Tk_NameOfJustify (Tk_Justify justify) +} + +declare 140 generic { + char * Tk_NameOfRelief (int relief) +} + +declare 141 generic { + Tk_Window Tk_NameToWindow (Tcl_Interp *interp, \ + char *pathName, Tk_Window tkwin) +} + +declare 142 generic { + void Tk_OwnSelection (Tk_Window tkwin, \ + Atom selection, Tk_LostSelProc *proc, \ + ClientData clientData) +} + +declare 143 generic { + int Tk_ParseArgv (Tcl_Interp *interp, \ + Tk_Window tkwin, int *argcPtr, char **argv, \ + Tk_ArgvInfo *argTable, int flags) +} + +declare 144 generic { + void Tk_PhotoPutBlock (Tk_PhotoHandle handle, \ + Tk_PhotoImageBlock *blockPtr, int x, int y, \ + int width, int height) +} + +declare 145 generic { + void Tk_PhotoPutZoomedBlock (Tk_PhotoHandle handle, \ + Tk_PhotoImageBlock *blockPtr, int x, int y, \ + int width, int height, int zoomX, int zoomY, \ + int subsampleX, int subsampleY) +} + +declare 146 generic { + int Tk_PhotoGetImage (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr) +} + +declare 147 generic { + void Tk_PhotoBlank (Tk_PhotoHandle handle) +} + +declare 148 generic { + void Tk_PhotoExpand (Tk_PhotoHandle handle, int width, int height ) +} + +declare 149 generic { + void Tk_PhotoGetSize (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr) +} + +declare 150 generic { + void Tk_PhotoSetSize (Tk_PhotoHandle handle, int width, int height) +} + +declare 151 generic { + int Tk_PointToChar (Tk_TextLayout layout, int x, int y) +} + +declare 152 generic { + int Tk_PostscriptFontName (Tk_Font tkfont, Tcl_DString *dsPtr) +} + +declare 153 generic { + void Tk_PreserveColormap (Display *display, Colormap colormap) +} + +declare 154 generic { + void Tk_QueueWindowEvent (XEvent *eventPtr, Tcl_QueuePosition position) +} + +declare 155 generic { + void Tk_RedrawImage (Tk_Image image, int imageX, \ + int imageY, int width, int height, \ + Drawable drawable, int drawableX, int drawableY) +} + +declare 156 generic { + void Tk_ResizeWindow (Tk_Window tkwin, int width, int height) +} + +declare 157 generic { + int Tk_RestackWindow (Tk_Window tkwin, int aboveBelow, Tk_Window other) +} + +declare 158 generic { + Tk_RestrictProc *Tk_RestrictEvents (Tk_RestrictProc *proc, \ + ClientData arg, ClientData *prevArgPtr) +} + +declare 159 generic { + int Tk_SafeInit (Tcl_Interp *interp) +} + +declare 160 generic { + char * Tk_SetAppName (Tk_Window tkwin, char *name) +} + +declare 161 generic { + void Tk_SetBackgroundFromBorder (Tk_Window tkwin, Tk_3DBorder border) +} + +declare 162 generic { + void Tk_SetClass (Tk_Window tkwin, char *className) +} + +declare 163 generic { + void Tk_SetGrid (Tk_Window tkwin, int reqWidth, int reqHeight, \ + int gridWidth, int gridHeight) +} + +declare 164 generic { + void Tk_SetInternalBorder (Tk_Window tkwin, int width) +} + +declare 165 generic { + void Tk_SetWindowBackground (Tk_Window tkwin, unsigned long pixel) +} + +declare 166 generic { + void Tk_SetWindowBackgroundPixmap (Tk_Window tkwin, Pixmap pixmap) +} + +declare 167 generic { + void Tk_SetWindowBorder (Tk_Window tkwin, unsigned long pixel) +} + +declare 168 generic { + void Tk_SetWindowBorderWidth (Tk_Window tkwin, int width) +} + +declare 169 generic { + void Tk_SetWindowBorderPixmap (Tk_Window tkwin, Pixmap pixmap) +} + +declare 170 generic { + void Tk_SetWindowColormap (Tk_Window tkwin, Colormap colormap) +} + +declare 171 generic { + int Tk_SetWindowVisual (Tk_Window tkwin, Visual *visual, int depth,\ + Colormap colormap) +} + +declare 172 generic { + void Tk_SizeOfBitmap (Display *display, Pixmap bitmap, int *widthPtr, \ + int *heightPtr) +} + +declare 173 generic { + void Tk_SizeOfImage (Tk_Image image, int *widthPtr, int *heightPtr) +} + +declare 174 generic { + int Tk_StrictMotif (Tk_Window tkwin) +} + +declare 175 generic { + void Tk_TextLayoutToPostscript (Tcl_Interp *interp, Tk_TextLayout layout) +} + +declare 176 generic { + int Tk_TextWidth (Tk_Font font, CONST char *string, int numChars) +} + +declare 177 generic { + void Tk_UndefineCursor (Tk_Window window) +} + +declare 178 generic { + void Tk_UnderlineChars (Display *display, \ + Drawable drawable, GC gc, Tk_Font tkfont, \ + CONST char *source, int x, int y, int firstChar, \ + int lastChar) +} + +declare 179 generic { + void Tk_UnderlineTextLayout (Display *display, Drawable drawable, GC gc, \ + Tk_TextLayout layout, int x, int y, \ + int underline) +} + +declare 180 generic { + void Tk_Ungrab (Tk_Window tkwin) +} + +declare 181 generic { + void Tk_UnmaintainGeometry (Tk_Window slave, Tk_Window master) +} + +declare 182 generic { + void Tk_UnmapWindow (Tk_Window tkwin) +} + +declare 183 generic { + void Tk_UnsetGrid (Tk_Window tkwin) +} + +declare 184 generic { + void Tk_UpdatePointer (Tk_Window tkwin, int x, int y, int state) +} + + +# Define the platform specific public Tk interface. These functions are +# only available on the designated platform. + +interface tkPlat + +# Unix specific functions +# (none) + +# Windows specific functions + +declare 0 win { + Window Tk_AttachHWND (Tk_Window tkwin, HWND hwnd) +} + +declare 1 win { + HINSTANCE Tk_GetHINSTANCE (void) +} + +declare 2 win { + HWND Tk_GetHWND (Window window) +} + +declare 3 win { + Tk_Window Tk_HWNDToWindow (HWND hwnd) +} + +declare 4 win { + void Tk_PointerEvent (HWND hwnd, int x, int y) +} + +declare 5 win { + int Tk_TranslateWinEvent (HWND hwnd, \ + UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result) +} + +# Mac specific functions + +declare 0 mac { + void Tk_MacSetEmbedHandler ( \ + Tk_MacEmbedRegisterWinProc *registerWinProcPtr, \ + Tk_MacEmbedGetGrafPortProc *getPortProcPtr, \ + Tk_MacEmbedMakeContainerExistProc *containerExistProcPtr, \ + Tk_MacEmbedGetClipProc *getClipProc, \ + Tk_MacEmbedGetOffsetInParentProc *getOffsetProc) +} + +declare 1 mac { + void Tk_MacTurnOffMenus (void) +} + +declare 2 mac { + void Tk_MacTkOwnsCursor (int tkOwnsIt) +} + +declare 3 mac { + void TkMacInitMenus (Tcl_Interp *interp) +} + +declare 4 mac { + void TkMacInitAppleEvents (Tcl_Interp *interp) +} + +declare 5 mac { + int TkMacConvertEvent (EventRecord *eventPtr) +} + +declare 6 mac { + int TkMacConvertTkEvent (EventRecord *eventPtr, Window window) +} + +declare 7 mac { + void TkGenWMConfigureEvent (Tk_Window tkwin, \ + int x, int y, int width, int height, int flags) +} + +declare 8 mac { + void TkMacInvalClipRgns (TkWindow *winPtr) +} + +declare 9 mac { + int TkMacHaveAppearance (void) +} + +declare 10 mac { + GWorldPtr TkMacGetDrawablePort (Drawable drawable) +} + diff --git a/generic/tk.h b/generic/tk.h index 0bd5040..69ca6a7 100644 --- a/generic/tk.h +++ b/generic/tk.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tk.h,v 1.19 1999/02/04 21:03:27 stanton Exp $ + * RCS: @(#) $Id: tk.h,v 1.20 1999/03/10 07:04:38 stanton Exp $ */ #ifndef _TK @@ -82,9 +82,15 @@ # include #endif +#undef TCL_STORAGE_CLASS #ifdef BUILD_tk -# undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TK_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif #endif /* @@ -1045,512 +1051,32 @@ typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_(( typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, int offset, char *buffer, int maxBytes)); + /* - *-------------------------------------------------------------- - * - * Exported procedures and variables. - * - *-------------------------------------------------------------- + * Public functions that are not accessible via the stubs table. */ -EXTERN XColor * Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border)); -EXTERN GC Tk_3DBorderGC _ANSI_ARGS_((Tk_Window tkwin, - Tk_3DBorder border, int which)); -EXTERN void Tk_3DHorizontalBevel _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftIn, - int rightIn, int topBevel, int relief)); -EXTERN void Tk_3DVerticalBevel _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftBevel, - int relief)); -EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, char *name, - char *value, int priority)); -EXTERN void Tk_BindEvent _ANSI_ARGS_((Tk_BindingTable bindingTable, - XEvent *eventPtr, Tk_Window tkwin, int numObjects, - ClientData *objectPtr)); -EXTERN void Tk_CanvasDrawableCoords _ANSI_ARGS_((Tk_Canvas canvas, - double x, double y, short *drawableXPtr, - short *drawableYPtr)); -EXTERN void Tk_CanvasEventuallyRedraw _ANSI_ARGS_(( - Tk_Canvas canvas, int x1, int y1, int x2, - int y2)); -EXTERN int Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, char *string, - double *doublePtr)); -EXTERN Tk_CanvasTextInfo *Tk_CanvasGetTextInfo _ANSI_ARGS_((Tk_Canvas canvas)); -EXTERN int Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap, int x, int y, - int width, int height)); -EXTERN int Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, XColor *colorPtr)); -EXTERN int Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Font font)); -EXTERN void Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *coordPtr, int numPoints)); -EXTERN int Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap)); -EXTERN double Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y)); -EXTERN void Tk_CanvasSetStippleOrigin _ANSI_ARGS_(( - Tk_Canvas canvas, GC gc)); -EXTERN int Tk_CanvasTagsParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, char *value, char *widgRec, - int offset)); -EXTERN char * Tk_CanvasTagsPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN Tk_Window Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas)); -EXTERN void Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas, - double x, double y, short *screenXPtr, - short *screenYPtr)); -EXTERN void Tk_ChangeWindowAttributes _ANSI_ARGS_((Tk_Window tkwin, - unsigned long valueMask, - XSetWindowAttributes *attsPtr)); -EXTERN int Tk_CharBbox _ANSI_ARGS_((Tk_TextLayout layout, - int index, int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr)); -EXTERN void Tk_ClearSelection _ANSI_ARGS_((Tk_Window tkwin, - Atom selection)); -EXTERN int Tk_ClipboardAppend _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Atom target, Atom format, - char* buffer)); -EXTERN int Tk_ClipboardClear _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin)); -EXTERN int Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_ConfigSpec *specs, - char *widgRec, char *argvName, int flags)); -EXTERN int Tk_ConfigureValue _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_ConfigSpec *specs, - char *widgRec, char *argvName, int flags)); -EXTERN int Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_ConfigSpec *specs, - int argc, char **argv, char *widgRec, - int flags)); -EXTERN void Tk_ConfigureWindow _ANSI_ARGS_((Tk_Window tkwin, - unsigned int valueMask, XWindowChanges *valuePtr)); -EXTERN Tk_TextLayout Tk_ComputeTextLayout _ANSI_ARGS_((Tk_Font font, - CONST char *string, int numChars, int wrapLength, - Tk_Justify justify, int flags, int *widthPtr, - int *heightPtr)); -EXTERN Tk_Window Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY, - Tk_Window tkwin)); -EXTERN unsigned long Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp *interp, - Tk_BindingTable bindingTable, ClientData object, - char *eventString, char *command, int append)); -EXTERN Tk_BindingTable Tk_CreateBindingTable _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN Tk_ErrorHandler Tk_CreateErrorHandler _ANSI_ARGS_((Display *display, - int errNum, int request, int minorCode, - Tk_ErrorProc *errorProc, ClientData clientData)); -EXTERN void Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData)); -EXTERN void Tk_CreateGenericHandler _ANSI_ARGS_(( - Tk_GenericProc *proc, ClientData clientData)); -EXTERN void Tk_CreateImageType _ANSI_ARGS_(( - Tk_ImageType *typePtr)); -EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType *typePtr)); -EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_(( - Tk_PhotoImageFormat *formatPtr)); -EXTERN void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin, - Atom selection, Atom target, - Tk_SelectionProc *proc, ClientData clientData, - Atom format)); -EXTERN Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window parent, char *name, char *screenName)); -EXTERN Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_(( - Tcl_Interp *interp, Tk_Window tkwin, - char *pathName, char *screenName)); -EXTERN int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Uid name, char *source, int width, - int height)); -EXTERN void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window, - Tk_Cursor cursor)); -EXTERN void Tk_DeleteAllBindings _ANSI_ARGS_(( - Tk_BindingTable bindingTable, ClientData object)); -EXTERN int Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp *interp, - Tk_BindingTable bindingTable, ClientData object, - char *eventString)); -EXTERN void Tk_DeleteBindingTable _ANSI_ARGS_(( - Tk_BindingTable bindingTable)); -EXTERN void Tk_DeleteErrorHandler _ANSI_ARGS_(( - Tk_ErrorHandler handler)); -EXTERN void Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData)); -EXTERN void Tk_DeleteGenericHandler _ANSI_ARGS_(( - Tk_GenericProc *proc, ClientData clientData)); -EXTERN void Tk_DeleteImage _ANSI_ARGS_((Tcl_Interp *interp, - char *name)); -EXTERN void Tk_DeleteSelHandler _ANSI_ARGS_((Tk_Window tkwin, - Atom selection, Atom target)); -EXTERN void Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN char * Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN int Tk_DistanceToTextLayout _ANSI_ARGS_(( - Tk_TextLayout layout, int x, int y)); -EXTERN void Tk_Draw3DPolygon _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, - XPoint *pointPtr, int numPoints, int borderWidth, - int leftRelief)); -EXTERN void Tk_Draw3DRectangle _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int borderWidth, - int relief)); -EXTERN void Tk_DrawChars _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - CONST char *source, int numChars, int x, - int y)); -EXTERN void Tk_DrawFocusHighlight _ANSI_ARGS_((Tk_Window tkwin, - GC gc, int width, Drawable drawable)); -EXTERN void Tk_DrawTextLayout _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, Tk_TextLayout layout, - int x, int y, int firstChar, int lastChar)); -EXTERN void Tk_Fill3DPolygon _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, - XPoint *pointPtr, int numPoints, int borderWidth, - int leftRelief)); -EXTERN void Tk_Fill3DRectangle _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int borderWidth, - int relief)); -EXTERN Tk_PhotoHandle Tk_FindPhoto _ANSI_ARGS_((Tcl_Interp *interp, - char *imageName)); -EXTERN Font Tk_FontId _ANSI_ARGS_((Tk_Font font)); -EXTERN void Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border)); -EXTERN void Tk_FreeBitmap _ANSI_ARGS_((Display *display, - Pixmap bitmap)); -EXTERN void Tk_FreeColor _ANSI_ARGS_((XColor *colorPtr)); -EXTERN void Tk_FreeColormap _ANSI_ARGS_((Display *display, - Colormap colormap)); -EXTERN void Tk_FreeCursor _ANSI_ARGS_((Display *display, - Tk_Cursor cursor)); -EXTERN void Tk_FreeFont _ANSI_ARGS_((Tk_Font)); -EXTERN void Tk_FreeGC _ANSI_ARGS_((Display *display, GC gc)); -EXTERN void Tk_FreeImage _ANSI_ARGS_((Tk_Image image)); -EXTERN void Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec *specs, - char *widgRec, Display *display, int needFlags)); -EXTERN void Tk_FreePixmap _ANSI_ARGS_((Display *display, - Pixmap pixmap)); -EXTERN void Tk_FreeTextLayout _ANSI_ARGS_(( - Tk_TextLayout textLayout)); -EXTERN void Tk_FreeXId _ANSI_ARGS_((Display *display, XID xid)); -EXTERN GC Tk_GCForColor _ANSI_ARGS_((XColor *colorPtr, - Drawable drawable)); -EXTERN void Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin, - int reqWidth, int reqHeight)); -EXTERN Tk_3DBorder Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid colorName)); -EXTERN void Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp *interp, - Tk_BindingTable bindingTable, ClientData object)); -EXTERN int Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp *interp, - char *string, Tk_Anchor *anchorPtr)); -EXTERN char * Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin, - Atom atom)); -EXTERN char * Tk_GetBinding _ANSI_ARGS_((Tcl_Interp *interp, - Tk_BindingTable bindingTable, ClientData object, - char *eventString)); -EXTERN Pixmap Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid string)); -EXTERN Pixmap Tk_GetBitmapFromData _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *source, - int width, int height)); -EXTERN int Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp *interp, - char *string, int *capPtr)); -EXTERN XColor * Tk_GetColor _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid name)); -EXTERN XColor * Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin, - XColor *colorPtr)); -EXTERN Colormap Tk_GetColormap _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *string)); -EXTERN Tk_Cursor Tk_GetCursor _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid string)); -EXTERN Tk_Cursor Tk_GetCursorFromData _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *source, char *mask, - int width, int height, int xHot, int yHot, - Tk_Uid fg, Tk_Uid bg)); -EXTERN Tk_Font Tk_GetFont _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, CONST char *string)); -EXTERN Tk_Font Tk_GetFontFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr)); -EXTERN void Tk_GetFontMetrics _ANSI_ARGS_((Tk_Font font, - Tk_FontMetrics *fmPtr)); -EXTERN GC Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin, - unsigned long valueMask, XGCValues *valuePtr)); -EXTERN Tk_Image Tk_GetImage _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *name, - Tk_ImageChangedProc *changeProc, - ClientData clientData)); -EXTERN ClientData Tk_GetImageMasterData _ANSI_ARGS_ ((Tcl_Interp *interp, - char *name, Tk_ImageType **typePtrPtr)); -EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void)); -EXTERN int Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp *interp, - char *string, int *joinPtr)); -EXTERN int Tk_GetJustify _ANSI_ARGS_((Tcl_Interp *interp, - char *string, Tk_Justify *justifyPtr)); -EXTERN int Tk_GetNumMainWindows _ANSI_ARGS_((void)); -EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, char *name, - char *className)); -EXTERN int Tk_GetPixels _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *string, int *intPtr)); -EXTERN Pixmap Tk_GetPixmap _ANSI_ARGS_((Display *display, Drawable d, - int width, int height, int depth)); -EXTERN int Tk_GetRelief _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int *reliefPtr)); -EXTERN void Tk_GetRootCoords _ANSI_ARGS_ ((Tk_Window tkwin, - int *xPtr, int *yPtr)); -EXTERN int Tk_GetScrollInfo _ANSI_ARGS_((Tcl_Interp *interp, - int argc, char **argv, double *dblPtr, - int *intPtr)); -EXTERN int Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *string, double *doublePtr)); -EXTERN int Tk_GetSelection _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Atom selection, Atom target, - Tk_GetSelProc *proc, ClientData clientData)); -EXTERN Tk_Uid Tk_GetUid _ANSI_ARGS_((CONST char *string)); -EXTERN Visual * Tk_GetVisual _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *string, int *depthPtr, - Colormap *colormapPtr)); -EXTERN void Tk_GetVRootGeometry _ANSI_ARGS_((Tk_Window tkwin, - int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr)); -EXTERN int Tk_Grab _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, int grabGlobal)); -EXTERN void Tk_HandleEvent _ANSI_ARGS_((XEvent *eventPtr)); -EXTERN Tk_Window Tk_IdToWindow _ANSI_ARGS_((Display *display, - Window window)); -EXTERN void Tk_ImageChanged _ANSI_ARGS_(( - Tk_ImageMaster master, int x, int y, - int width, int height, int imageWidth, - int imageHeight)); -EXTERN int Tk_Init _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN Atom Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin, - char *name)); -EXTERN int Tk_IntersectTextLayout _ANSI_ARGS_(( - Tk_TextLayout layout, int x, int y, int width, - int height)); EXTERN void Tk_Main _ANSI_ARGS_((int argc, char **argv, Tcl_AppInitProc *appInitProc)); -EXTERN void Tk_MainLoop _ANSI_ARGS_((void)); -EXTERN void Tk_MaintainGeometry _ANSI_ARGS_((Tk_Window slave, - Tk_Window master, int x, int y, int width, - int height)); -EXTERN Tk_Window Tk_MainWindow _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN void Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin, - Tk_GeomMgr *mgrPtr, ClientData clientData)); -EXTERN void Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN int Tk_MeasureChars _ANSI_ARGS_((Tk_Font tkfont, - CONST char *source, int maxChars, int maxPixels, - int flags, int *lengthPtr)); -EXTERN void Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int width, int height)); -EXTERN void Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x, - int y)); -EXTERN void Tk_MoveToplevelWindow _ANSI_ARGS_((Tk_Window tkwin, - int x, int y)); -EXTERN char * Tk_NameOf3DBorder _ANSI_ARGS_((Tk_3DBorder border)); -EXTERN char * Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor)); -EXTERN char * Tk_NameOfBitmap _ANSI_ARGS_((Display *display, - Pixmap bitmap)); -EXTERN char * Tk_NameOfCapStyle _ANSI_ARGS_((int cap)); -EXTERN char * Tk_NameOfColor _ANSI_ARGS_((XColor *colorPtr)); -EXTERN char * Tk_NameOfCursor _ANSI_ARGS_((Display *display, - Tk_Cursor cursor)); -EXTERN char * Tk_NameOfFont _ANSI_ARGS_((Tk_Font font)); -EXTERN char * Tk_NameOfImage _ANSI_ARGS_(( - Tk_ImageMaster imageMaster)); -EXTERN char * Tk_NameOfJoinStyle _ANSI_ARGS_((int join)); -EXTERN char * Tk_NameOfJustify _ANSI_ARGS_((Tk_Justify justify)); -EXTERN char * Tk_NameOfRelief _ANSI_ARGS_((int relief)); -EXTERN Tk_Window Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp *interp, - char *pathName, Tk_Window tkwin)); -EXTERN void Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin, - Atom selection, Tk_LostSelProc *proc, - ClientData clientData)); -EXTERN int Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, int *argcPtr, char **argv, - Tk_ArgvInfo *argTable, int flags)); -EXTERN void Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height)); -EXTERN void Tk_PhotoPutZoomedBlock _ANSI_ARGS_(( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY)); -EXTERN int Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr)); -EXTERN void Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle)); -EXTERN void Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height )); -EXTERN void Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle, - int *widthPtr, int *heightPtr)); -EXTERN void Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height)); -EXTERN int Tk_PointToChar _ANSI_ARGS_((Tk_TextLayout layout, - int x, int y)); -EXTERN int Tk_PostscriptFontName _ANSI_ARGS_((Tk_Font tkfont, - Tcl_DString *dsPtr)); -EXTERN void Tk_PreserveColormap _ANSI_ARGS_((Display *display, - Colormap colormap)); -EXTERN void Tk_QueueWindowEvent _ANSI_ARGS_((XEvent *eventPtr, - Tcl_QueuePosition position)); -EXTERN void Tk_RedrawImage _ANSI_ARGS_((Tk_Image image, int imageX, - int imageY, int width, int height, - Drawable drawable, int drawableX, int drawableY)); -EXTERN void Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin, - int width, int height)); -EXTERN int Tk_RestackWindow _ANSI_ARGS_((Tk_Window tkwin, - int aboveBelow, Tk_Window other)); -EXTERN Tk_RestrictProc *Tk_RestrictEvents _ANSI_ARGS_((Tk_RestrictProc *proc, - ClientData arg, ClientData *prevArgPtr)); -EXTERN int Tk_SafeInit _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN char * Tk_SetAppName _ANSI_ARGS_((Tk_Window tkwin, - char *name)); -EXTERN void Tk_SetBackgroundFromBorder _ANSI_ARGS_(( - Tk_Window tkwin, Tk_3DBorder border)); -EXTERN void Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin, - char *className)); -EXTERN void Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin, - int reqWidth, int reqHeight, int gridWidth, - int gridHeight)); -EXTERN void Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin, - int width)); -EXTERN void Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin, - unsigned long pixel)); -EXTERN void Tk_SetWindowBackgroundPixmap _ANSI_ARGS_(( - Tk_Window tkwin, Pixmap pixmap)); -EXTERN void Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin, - unsigned long pixel)); -EXTERN void Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin, - int width)); -EXTERN void Tk_SetWindowBorderPixmap _ANSI_ARGS_((Tk_Window tkwin, - Pixmap pixmap)); -EXTERN void Tk_SetWindowColormap _ANSI_ARGS_((Tk_Window tkwin, - Colormap colormap)); -EXTERN int Tk_SetWindowVisual _ANSI_ARGS_((Tk_Window tkwin, - Visual *visual, int depth, - Colormap colormap)); -EXTERN void Tk_SizeOfBitmap _ANSI_ARGS_((Display *display, - Pixmap bitmap, int *widthPtr, - int *heightPtr)); -EXTERN void Tk_SizeOfImage _ANSI_ARGS_((Tk_Image image, - int *widthPtr, int *heightPtr)); -EXTERN int Tk_StrictMotif _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void Tk_TextLayoutToPostscript _ANSI_ARGS_(( - Tcl_Interp *interp, Tk_TextLayout layout)); -EXTERN int Tk_TextWidth _ANSI_ARGS_((Tk_Font font, - CONST char *string, int numChars)); -EXTERN void Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window)); -EXTERN void Tk_UnderlineChars _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - CONST char *source, int x, int y, int firstChar, - int lastChar)); -EXTERN void Tk_UnderlineTextLayout _ANSI_ARGS_(( - Display *display, Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int underline)); -EXTERN void Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void Tk_UnmaintainGeometry _ANSI_ARGS_((Tk_Window slave, - Tk_Window master)); -EXTERN void Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void Tk_UnsetGrid _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int state)); +EXTERN void Tk_MainEx _ANSI_ARGS_((int argc, char **argv, + Tcl_AppInitProc *appInitProc, Tcl_Interp *interp)); /* - * Tcl commands exported by Tk: + * Stubs initialization function. This function should be invoked before + * any other Tk functions in a stubs-aware extension. Tk_InitStubs is + * implemented in the stub library, not the main Tk library. In directly + * linked code, this function turns into a call to Tcl_PkgRequire(). */ -EXTERN int Tk_BellObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_BindCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_BindtagsCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ButtonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_CheckbuttonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ChooseColorCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_EntryCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_EventCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_FrameCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_FocusCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GetOpenFileCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_GetSaveFileCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_GrabCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_GridCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ImageCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_LabelCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ListboxCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_LowerCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_MenuCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_MenubuttonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_MessageBoxCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_MessageCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_OptionCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_PackCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_RadiobuttonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ScaleCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_SendCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_TextCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_TkObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_ToplevelCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_UpdateCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_WmCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); +EXTERN char * Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, + char *version, int exact)); + +#ifndef USE_TK_STUBS +#define Tk_InitStubs(interp, version, exact) \ + Tcl_PkgRequire(interp, "Tk", version, exact) +#endif + +#include "tkDecls.h" #endif /* RESOURCE_INCLUDED */ diff --git a/generic/tkBind.c b/generic/tkBind.c index 8166b18..72bcd2e 100644 --- a/generic/tkBind.c +++ b/generic/tkBind.c @@ -11,12 +11,16 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkBind.c,v 1.4 1998/10/10 00:30:36 rjohnson Exp $ + * RCS: @(#) $Id: tkBind.c,v 1.5 1999/03/10 07:04:38 stanton Exp $ */ #include "tkPort.h" #include "tkInt.h" +#ifdef __WIN32__ +#include "tkWinInt.h" +#endif + /* * File structure: * diff --git a/generic/tkCmds.c b/generic/tkCmds.c index e16b490..19d05ca 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -11,13 +11,21 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCmds.c,v 1.4 1998/09/30 19:01:19 rjohnson Exp $ + * RCS: @(#) $Id: tkCmds.c,v 1.5 1999/03/10 07:04:39 stanton Exp $ */ #include "tkPort.h" #include "tkInt.h" #include +#if defined(__WIN32__) +#include "tkWinInt.h" +#elif defined(MAC_TCL) +#include "tkMacInt.h" +#else +#include "tkUnixInt.h" +#endif + /* * Forward declarations for procedures defined later in this file: */ diff --git a/generic/tkConsole.c b/generic/tkConsole.c index 0ff1479..810847e 100644 --- a/generic/tkConsole.c +++ b/generic/tkConsole.c @@ -10,10 +10,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkConsole.c,v 1.3 1999/02/04 20:51:36 stanton Exp $ + * RCS: @(#) $Id: tkConsole.c,v 1.4 1999/03/10 07:04:39 stanton Exp $ */ #include "tk.h" +#include "tkInt.h" #include /* @@ -36,6 +37,7 @@ static Tcl_Interp *gStdoutInterp = NULL; */ void TkConsoleCreate _ANSI_ARGS_((void)); +void TkConsoleCreate_ _ANSI_ARGS_((void)); int TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp)); void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, int devId, char *buffer, long size)); @@ -79,7 +81,7 @@ static Tcl_ChannelType consoleChannelType = { /* *---------------------------------------------------------------------- * - * TkConsoleCreate -- + * TkConsoleCreate, TkConsoleCreate_ -- * * Create the console channels and install them as the standard * channels. All I/O will be discarded until TkConsoleInit is @@ -98,6 +100,17 @@ static Tcl_ChannelType consoleChannelType = { void TkConsoleCreate() { + /* + * This function is being disabled so we don't end up calling it + * twice. Once from WinMain() and once from Tk_Main(). The real + * function is now TkConsoleCreate_ and is only called from Tk_Main. + * All of is an ugly hack. + */ +} + +void +TkConsoleCreate_() +{ Tcl_Channel consoleChannel; consoleChannel = Tcl_CreateChannel(&consoleChannelType, "console0", @@ -155,6 +168,7 @@ TkConsoleInit(interp) #endif consoleInterp = Tcl_CreateInterp(); + if (consoleInterp == NULL) { goto error; } diff --git a/generic/tkDecls.h b/generic/tkDecls.h new file mode 100644 index 0000000..ba3512c --- /dev/null +++ b/generic/tkDecls.h @@ -0,0 +1,1595 @@ +/* + * tkDecls.h -- + * + * Declarations of functions in the platform independent public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tkDecls.h,v 1.2 1999/03/10 07:04:39 stanton Exp $ + */ + +#ifndef _TKDECLS +#define _TKDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tk.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +/* 0 */ +EXTERN void Tk_MainLoop _ANSI_ARGS_((void)); +/* 1 */ +EXTERN XColor * Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border)); +/* 2 */ +EXTERN GC Tk_3DBorderGC _ANSI_ARGS_((Tk_Window tkwin, + Tk_3DBorder border, int which)); +/* 3 */ +EXTERN void Tk_3DHorizontalBevel _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftIn, + int rightIn, int topBevel, int relief)); +/* 4 */ +EXTERN void Tk_3DVerticalBevel _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftBevel, + int relief)); +/* 5 */ +EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, + char * name, char * value, int priority)); +/* 6 */ +EXTERN void Tk_BindEvent _ANSI_ARGS_(( + Tk_BindingTable bindingTable, + XEvent * eventPtr, Tk_Window tkwin, + int numObjects, ClientData * objectPtr)); +/* 7 */ +EXTERN void Tk_CanvasDrawableCoords _ANSI_ARGS_(( + Tk_Canvas canvas, double x, double y, + short * drawableXPtr, short * drawableYPtr)); +/* 8 */ +EXTERN void Tk_CanvasEventuallyRedraw _ANSI_ARGS_(( + Tk_Canvas canvas, int x1, int y1, int x2, + int y2)); +/* 9 */ +EXTERN int Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Canvas canvas, char * string, + double * doublePtr)); +/* 10 */ +EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo _ANSI_ARGS_(( + Tk_Canvas canvas)); +/* 11 */ +EXTERN int Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Canvas canvas, Pixmap bitmap, int x, + int y, int width, int height)); +/* 12 */ +EXTERN int Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Canvas canvas, XColor * colorPtr)); +/* 13 */ +EXTERN int Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Canvas canvas, Tk_Font font)); +/* 14 */ +EXTERN void Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Canvas canvas, double * coordPtr, + int numPoints)); +/* 15 */ +EXTERN int Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Canvas canvas, Pixmap bitmap)); +/* 16 */ +EXTERN double Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y)); +/* 17 */ +EXTERN void Tk_CanvasSetStippleOrigin _ANSI_ARGS_(( + Tk_Canvas canvas, GC gc)); +/* 18 */ +EXTERN int Tk_CanvasTagsParseProc _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + Tk_Window tkwin, char * value, + char * widgRec, int offset)); +/* 19 */ +EXTERN char * Tk_CanvasTagsPrintProc _ANSI_ARGS_(( + ClientData clientData, Tk_Window tkwin, + char * widgRec, int offset, + Tcl_FreeProc ** freeProcPtr)); +/* 20 */ +EXTERN Tk_Window Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas)); +/* 21 */ +EXTERN void Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas, + double x, double y, short * screenXPtr, + short * screenYPtr)); +/* 22 */ +EXTERN void Tk_ChangeWindowAttributes _ANSI_ARGS_(( + Tk_Window tkwin, unsigned long valueMask, + XSetWindowAttributes * attsPtr)); +/* 23 */ +EXTERN int Tk_CharBbox _ANSI_ARGS_((Tk_TextLayout layout, + int index, int * xPtr, int * yPtr, + int * widthPtr, int * heightPtr)); +/* 24 */ +EXTERN void Tk_ClearSelection _ANSI_ARGS_((Tk_Window tkwin, + Atom selection)); +/* 25 */ +EXTERN int Tk_ClipboardAppend _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Atom target, Atom format, + char* buffer)); +/* 26 */ +EXTERN int Tk_ClipboardClear _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin)); +/* 27 */ +EXTERN int Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_ConfigSpec * specs, + char * widgRec, char * argvName, int flags)); +/* 28 */ +EXTERN int Tk_ConfigureValue _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_ConfigSpec * specs, + char * widgRec, char * argvName, int flags)); +/* 29 */ +EXTERN int Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_ConfigSpec * specs, + int argc, char ** argv, char * widgRec, + int flags)); +/* 30 */ +EXTERN void Tk_ConfigureWindow _ANSI_ARGS_((Tk_Window tkwin, + unsigned int valueMask, + XWindowChanges * valuePtr)); +/* 31 */ +EXTERN Tk_TextLayout Tk_ComputeTextLayout _ANSI_ARGS_((Tk_Font font, + CONST char * string, int numChars, + int wrapLength, Tk_Justify justify, + int flags, int * widthPtr, int * heightPtr)); +/* 32 */ +EXTERN Tk_Window Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY, + Tk_Window tkwin)); +/* 33 */ +EXTERN unsigned long Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp * interp, + Tk_BindingTable bindingTable, + ClientData object, char * eventString, + char * command, int append)); +/* 34 */ +EXTERN Tk_BindingTable Tk_CreateBindingTable _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 35 */ +EXTERN Tk_ErrorHandler Tk_CreateErrorHandler _ANSI_ARGS_((Display * display, + int errNum, int request, int minorCode, + Tk_ErrorProc * errorProc, + ClientData clientData)); +/* 36 */ +EXTERN void Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token, + unsigned long mask, Tk_EventProc * proc, + ClientData clientData)); +/* 37 */ +EXTERN void Tk_CreateGenericHandler _ANSI_ARGS_(( + Tk_GenericProc * proc, ClientData clientData)); +/* 38 */ +EXTERN void Tk_CreateImageType _ANSI_ARGS_(( + Tk_ImageType * typePtr)); +/* 39 */ +EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType * typePtr)); +/* 40 */ +EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_(( + Tk_PhotoImageFormat * formatPtr)); +/* 41 */ +EXTERN void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin, + Atom selection, Atom target, + Tk_SelectionProc * proc, + ClientData clientData, Atom format)); +/* 42 */ +EXTERN Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window parent, char * name, + char * screenName)); +/* 43 */ +EXTERN Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Window tkwin, + char * pathName, char * screenName)); +/* 44 */ +EXTERN int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Uid name, char * source, int width, + int height)); +/* 45 */ +EXTERN void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window, + Tk_Cursor cursor)); +/* 46 */ +EXTERN void Tk_DeleteAllBindings _ANSI_ARGS_(( + Tk_BindingTable bindingTable, + ClientData object)); +/* 47 */ +EXTERN int Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp * interp, + Tk_BindingTable bindingTable, + ClientData object, char * eventString)); +/* 48 */ +EXTERN void Tk_DeleteBindingTable _ANSI_ARGS_(( + Tk_BindingTable bindingTable)); +/* 49 */ +EXTERN void Tk_DeleteErrorHandler _ANSI_ARGS_(( + Tk_ErrorHandler handler)); +/* 50 */ +EXTERN void Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token, + unsigned long mask, Tk_EventProc * proc, + ClientData clientData)); +/* 51 */ +EXTERN void Tk_DeleteGenericHandler _ANSI_ARGS_(( + Tk_GenericProc * proc, ClientData clientData)); +/* 52 */ +EXTERN void Tk_DeleteImage _ANSI_ARGS_((Tcl_Interp * interp, + char * name)); +/* 53 */ +EXTERN void Tk_DeleteSelHandler _ANSI_ARGS_((Tk_Window tkwin, + Atom selection, Atom target)); +/* 54 */ +EXTERN void Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin)); +/* 55 */ +EXTERN char * Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin)); +/* 56 */ +EXTERN int Tk_DistanceToTextLayout _ANSI_ARGS_(( + Tk_TextLayout layout, int x, int y)); +/* 57 */ +EXTERN void Tk_Draw3DPolygon _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, + XPoint * pointPtr, int numPoints, + int borderWidth, int leftRelief)); +/* 58 */ +EXTERN void Tk_Draw3DRectangle _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief)); +/* 59 */ +EXTERN void Tk_DrawChars _ANSI_ARGS_((Display * display, + Drawable drawable, GC gc, Tk_Font tkfont, + CONST char * source, int numChars, int x, + int y)); +/* 60 */ +EXTERN void Tk_DrawFocusHighlight _ANSI_ARGS_((Tk_Window tkwin, + GC gc, int width, Drawable drawable)); +/* 61 */ +EXTERN void Tk_DrawTextLayout _ANSI_ARGS_((Display * display, + Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int firstChar, int lastChar)); +/* 62 */ +EXTERN void Tk_Fill3DPolygon _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, + XPoint * pointPtr, int numPoints, + int borderWidth, int leftRelief)); +/* 63 */ +EXTERN void Tk_Fill3DRectangle _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief)); +/* 64 */ +EXTERN Tk_PhotoHandle Tk_FindPhoto _ANSI_ARGS_((Tcl_Interp * interp, + char * imageName)); +/* 65 */ +EXTERN Font Tk_FontId _ANSI_ARGS_((Tk_Font font)); +/* 66 */ +EXTERN void Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border)); +/* 67 */ +EXTERN void Tk_FreeBitmap _ANSI_ARGS_((Display * display, + Pixmap bitmap)); +/* 68 */ +EXTERN void Tk_FreeColor _ANSI_ARGS_((XColor * colorPtr)); +/* 69 */ +EXTERN void Tk_FreeColormap _ANSI_ARGS_((Display * display, + Colormap colormap)); +/* 70 */ +EXTERN void Tk_FreeCursor _ANSI_ARGS_((Display * display, + Tk_Cursor cursor)); +/* 71 */ +EXTERN void Tk_FreeFont _ANSI_ARGS_((Tk_Font f)); +/* 72 */ +EXTERN void Tk_FreeGC _ANSI_ARGS_((Display * display, GC gc)); +/* 73 */ +EXTERN void Tk_FreeImage _ANSI_ARGS_((Tk_Image image)); +/* 74 */ +EXTERN void Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec * specs, + char * widgRec, Display * display, + int needFlags)); +/* 75 */ +EXTERN void Tk_FreePixmap _ANSI_ARGS_((Display * display, + Pixmap pixmap)); +/* 76 */ +EXTERN void Tk_FreeTextLayout _ANSI_ARGS_(( + Tk_TextLayout textLayout)); +/* 77 */ +EXTERN void Tk_FreeXId _ANSI_ARGS_((Display * display, XID xid)); +/* 78 */ +EXTERN GC Tk_GCForColor _ANSI_ARGS_((XColor * colorPtr, + Drawable drawable)); +/* 79 */ +EXTERN void Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin, + int reqWidth, int reqHeight)); +/* 80 */ +EXTERN Tk_3DBorder Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_Uid colorName)); +/* 81 */ +EXTERN void Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp * interp, + Tk_BindingTable bindingTable, + ClientData object)); +/* 82 */ +EXTERN int Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp * interp, + char * string, Tk_Anchor * anchorPtr)); +/* 83 */ +EXTERN char * Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin, + Atom atom)); +/* 84 */ +EXTERN char * Tk_GetBinding _ANSI_ARGS_((Tcl_Interp * interp, + Tk_BindingTable bindingTable, + ClientData object, char * eventString)); +/* 85 */ +EXTERN Pixmap Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_Uid string)); +/* 86 */ +EXTERN Pixmap Tk_GetBitmapFromData _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Window tkwin, + char * source, int width, int height)); +/* 87 */ +EXTERN int Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * capPtr)); +/* 88 */ +EXTERN XColor * Tk_GetColor _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_Uid name)); +/* 89 */ +EXTERN XColor * Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin, + XColor * colorPtr)); +/* 90 */ +EXTERN Colormap Tk_GetColormap _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * string)); +/* 91 */ +EXTERN Tk_Cursor Tk_GetCursor _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_Uid string)); +/* 92 */ +EXTERN Tk_Cursor Tk_GetCursorFromData _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Window tkwin, + char * source, char * mask, int width, + int height, int xHot, int yHot, Tk_Uid fg, + Tk_Uid bg)); +/* 93 */ +EXTERN Tk_Font Tk_GetFont _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, CONST char * string)); +/* 94 */ +EXTERN Tk_Font Tk_GetFontFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tcl_Obj * objPtr)); +/* 95 */ +EXTERN void Tk_GetFontMetrics _ANSI_ARGS_((Tk_Font font, + Tk_FontMetrics * fmPtr)); +/* 96 */ +EXTERN GC Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin, + unsigned long valueMask, + XGCValues * valuePtr)); +/* 97 */ +EXTERN Tk_Image Tk_GetImage _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * name, + Tk_ImageChangedProc * changeProc, + ClientData clientData)); +/* 98 */ +EXTERN ClientData Tk_GetImageMasterData _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tk_ImageType ** typePtrPtr)); +/* 99 */ +EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void)); +/* 100 */ +EXTERN int Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * joinPtr)); +/* 101 */ +EXTERN int Tk_GetJustify _ANSI_ARGS_((Tcl_Interp * interp, + char * string, Tk_Justify * justifyPtr)); +/* 102 */ +EXTERN int Tk_GetNumMainWindows _ANSI_ARGS_((void)); +/* 103 */ +EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, + char * name, char * className)); +/* 104 */ +EXTERN int Tk_GetPixels _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * string, int * intPtr)); +/* 105 */ +EXTERN Pixmap Tk_GetPixmap _ANSI_ARGS_((Display * display, + Drawable d, int width, int height, int depth)); +/* 106 */ +EXTERN int Tk_GetRelief _ANSI_ARGS_((Tcl_Interp * interp, + char * name, int * reliefPtr)); +/* 107 */ +EXTERN void Tk_GetRootCoords _ANSI_ARGS_((Tk_Window tkwin, + int * xPtr, int * yPtr)); +/* 108 */ +EXTERN int Tk_GetScrollInfo _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, double * dblPtr, + int * intPtr)); +/* 109 */ +EXTERN int Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * string, + double * doublePtr)); +/* 110 */ +EXTERN int Tk_GetSelection _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Atom selection, Atom target, + Tk_GetSelProc * proc, ClientData clientData)); +/* 111 */ +EXTERN Tk_Uid Tk_GetUid _ANSI_ARGS_((CONST char * string)); +/* 112 */ +EXTERN Visual * Tk_GetVisual _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * string, + int * depthPtr, Colormap * colormapPtr)); +/* 113 */ +EXTERN void Tk_GetVRootGeometry _ANSI_ARGS_((Tk_Window tkwin, + int * xPtr, int * yPtr, int * widthPtr, + int * heightPtr)); +/* 114 */ +EXTERN int Tk_Grab _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, int grabGlobal)); +/* 115 */ +EXTERN void Tk_HandleEvent _ANSI_ARGS_((XEvent * eventPtr)); +/* 116 */ +EXTERN Tk_Window Tk_IdToWindow _ANSI_ARGS_((Display * display, + Window window)); +/* 117 */ +EXTERN void Tk_ImageChanged _ANSI_ARGS_((Tk_ImageMaster master, + int x, int y, int width, int height, + int imageWidth, int imageHeight)); +/* 118 */ +EXTERN int Tk_Init _ANSI_ARGS_((Tcl_Interp * interp)); +/* 119 */ +EXTERN Atom Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin, + char * name)); +/* 120 */ +EXTERN int Tk_IntersectTextLayout _ANSI_ARGS_(( + Tk_TextLayout layout, int x, int y, + int width, int height)); +/* 121 */ +EXTERN void Tk_MaintainGeometry _ANSI_ARGS_((Tk_Window slave, + Tk_Window master, int x, int y, int width, + int height)); +/* 122 */ +EXTERN Tk_Window Tk_MainWindow _ANSI_ARGS_((Tcl_Interp * interp)); +/* 123 */ +EXTERN void Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin)); +/* 124 */ +EXTERN void Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin, + Tk_GeomMgr * mgrPtr, ClientData clientData)); +/* 125 */ +EXTERN void Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin)); +/* 126 */ +EXTERN int Tk_MeasureChars _ANSI_ARGS_((Tk_Font tkfont, + CONST char * source, int maxChars, + int maxPixels, int flags, int * lengthPtr)); +/* 127 */ +EXTERN void Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin, + int x, int y, int width, int height)); +/* 128 */ +EXTERN void Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x, + int y)); +/* 129 */ +EXTERN void Tk_MoveToplevelWindow _ANSI_ARGS_((Tk_Window tkwin, + int x, int y)); +/* 130 */ +EXTERN char * Tk_NameOf3DBorder _ANSI_ARGS_((Tk_3DBorder border)); +/* 131 */ +EXTERN char * Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor)); +/* 132 */ +EXTERN char * Tk_NameOfBitmap _ANSI_ARGS_((Display * display, + Pixmap bitmap)); +/* 133 */ +EXTERN char * Tk_NameOfCapStyle _ANSI_ARGS_((int cap)); +/* 134 */ +EXTERN char * Tk_NameOfColor _ANSI_ARGS_((XColor * colorPtr)); +/* 135 */ +EXTERN char * Tk_NameOfCursor _ANSI_ARGS_((Display * display, + Tk_Cursor cursor)); +/* 136 */ +EXTERN char * Tk_NameOfFont _ANSI_ARGS_((Tk_Font font)); +/* 137 */ +EXTERN char * Tk_NameOfImage _ANSI_ARGS_(( + Tk_ImageMaster imageMaster)); +/* 138 */ +EXTERN char * Tk_NameOfJoinStyle _ANSI_ARGS_((int join)); +/* 139 */ +EXTERN char * Tk_NameOfJustify _ANSI_ARGS_((Tk_Justify justify)); +/* 140 */ +EXTERN char * Tk_NameOfRelief _ANSI_ARGS_((int relief)); +/* 141 */ +EXTERN Tk_Window Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp * interp, + char * pathName, Tk_Window tkwin)); +/* 142 */ +EXTERN void Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin, + Atom selection, Tk_LostSelProc * proc, + ClientData clientData)); +/* 143 */ +EXTERN int Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, int * argcPtr, char ** argv, + Tk_ArgvInfo * argTable, int flags)); +/* 144 */ +EXTERN void Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle, + Tk_PhotoImageBlock * blockPtr, int x, int y, + int width, int height)); +/* 145 */ +EXTERN void Tk_PhotoPutZoomedBlock _ANSI_ARGS_(( + Tk_PhotoHandle handle, + Tk_PhotoImageBlock * blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY)); +/* 146 */ +EXTERN int Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle, + Tk_PhotoImageBlock * blockPtr)); +/* 147 */ +EXTERN void Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle)); +/* 148 */ +EXTERN void Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle, + int width, int height)); +/* 149 */ +EXTERN void Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle, + int * widthPtr, int * heightPtr)); +/* 150 */ +EXTERN void Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle, + int width, int height)); +/* 151 */ +EXTERN int Tk_PointToChar _ANSI_ARGS_((Tk_TextLayout layout, + int x, int y)); +/* 152 */ +EXTERN int Tk_PostscriptFontName _ANSI_ARGS_((Tk_Font tkfont, + Tcl_DString * dsPtr)); +/* 153 */ +EXTERN void Tk_PreserveColormap _ANSI_ARGS_((Display * display, + Colormap colormap)); +/* 154 */ +EXTERN void Tk_QueueWindowEvent _ANSI_ARGS_((XEvent * eventPtr, + Tcl_QueuePosition position)); +/* 155 */ +EXTERN void Tk_RedrawImage _ANSI_ARGS_((Tk_Image image, + int imageX, int imageY, int width, + int height, Drawable drawable, int drawableX, + int drawableY)); +/* 156 */ +EXTERN void Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin, + int width, int height)); +/* 157 */ +EXTERN int Tk_RestackWindow _ANSI_ARGS_((Tk_Window tkwin, + int aboveBelow, Tk_Window other)); +/* 158 */ +EXTERN Tk_RestrictProc * Tk_RestrictEvents _ANSI_ARGS_(( + Tk_RestrictProc * proc, ClientData arg, + ClientData * prevArgPtr)); +/* 159 */ +EXTERN int Tk_SafeInit _ANSI_ARGS_((Tcl_Interp * interp)); +/* 160 */ +EXTERN char * Tk_SetAppName _ANSI_ARGS_((Tk_Window tkwin, + char * name)); +/* 161 */ +EXTERN void Tk_SetBackgroundFromBorder _ANSI_ARGS_(( + Tk_Window tkwin, Tk_3DBorder border)); +/* 162 */ +EXTERN void Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin, + char * className)); +/* 163 */ +EXTERN void Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin, + int reqWidth, int reqHeight, int gridWidth, + int gridHeight)); +/* 164 */ +EXTERN void Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin, + int width)); +/* 165 */ +EXTERN void Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin, + unsigned long pixel)); +/* 166 */ +EXTERN void Tk_SetWindowBackgroundPixmap _ANSI_ARGS_(( + Tk_Window tkwin, Pixmap pixmap)); +/* 167 */ +EXTERN void Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin, + unsigned long pixel)); +/* 168 */ +EXTERN void Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin, + int width)); +/* 169 */ +EXTERN void Tk_SetWindowBorderPixmap _ANSI_ARGS_(( + Tk_Window tkwin, Pixmap pixmap)); +/* 170 */ +EXTERN void Tk_SetWindowColormap _ANSI_ARGS_((Tk_Window tkwin, + Colormap colormap)); +/* 171 */ +EXTERN int Tk_SetWindowVisual _ANSI_ARGS_((Tk_Window tkwin, + Visual * visual, int depth, + Colormap colormap)); +/* 172 */ +EXTERN void Tk_SizeOfBitmap _ANSI_ARGS_((Display * display, + Pixmap bitmap, int * widthPtr, + int * heightPtr)); +/* 173 */ +EXTERN void Tk_SizeOfImage _ANSI_ARGS_((Tk_Image image, + int * widthPtr, int * heightPtr)); +/* 174 */ +EXTERN int Tk_StrictMotif _ANSI_ARGS_((Tk_Window tkwin)); +/* 175 */ +EXTERN void Tk_TextLayoutToPostscript _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_TextLayout layout)); +/* 176 */ +EXTERN int Tk_TextWidth _ANSI_ARGS_((Tk_Font font, + CONST char * string, int numChars)); +/* 177 */ +EXTERN void Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window)); +/* 178 */ +EXTERN void Tk_UnderlineChars _ANSI_ARGS_((Display * display, + Drawable drawable, GC gc, Tk_Font tkfont, + CONST char * source, int x, int y, + int firstChar, int lastChar)); +/* 179 */ +EXTERN void Tk_UnderlineTextLayout _ANSI_ARGS_(( + Display * display, Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int underline)); +/* 180 */ +EXTERN void Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin)); +/* 181 */ +EXTERN void Tk_UnmaintainGeometry _ANSI_ARGS_((Tk_Window slave, + Tk_Window master)); +/* 182 */ +EXTERN void Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin)); +/* 183 */ +EXTERN void Tk_UnsetGrid _ANSI_ARGS_((Tk_Window tkwin)); +/* 184 */ +EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin, int x, + int y, int state)); + +typedef struct TkStubHooks { + struct TkPlatStubs *tkPlatStubs; + struct TkIntStubs *tkIntStubs; + struct TkIntPlatStubs *tkIntPlatStubs; + struct TkIntXlibStubs *tkIntXlibStubs; +} TkStubHooks; + +typedef struct TkStubs { + int magic; + struct TkStubHooks *hooks; + + void (*tk_MainLoop) _ANSI_ARGS_((void)); /* 0 */ + XColor * (*tk_3DBorderColor) _ANSI_ARGS_((Tk_3DBorder border)); /* 1 */ + GC (*tk_3DBorderGC) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border, int which)); /* 2 */ + void (*tk_3DHorizontalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief)); /* 3 */ + void (*tk_3DVerticalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief)); /* 4 */ + void (*tk_AddOption) _ANSI_ARGS_((Tk_Window tkwin, char * name, char * value, int priority)); /* 5 */ + void (*tk_BindEvent) _ANSI_ARGS_((Tk_BindingTable bindingTable, XEvent * eventPtr, Tk_Window tkwin, int numObjects, ClientData * objectPtr)); /* 6 */ + void (*tk_CanvasDrawableCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short * drawableXPtr, short * drawableYPtr)); /* 7 */ + void (*tk_CanvasEventuallyRedraw) _ANSI_ARGS_((Tk_Canvas canvas, int x1, int y1, int x2, int y2)); /* 8 */ + int (*tk_CanvasGetCoord) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, char * string, double * doublePtr)); /* 9 */ + Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) _ANSI_ARGS_((Tk_Canvas canvas)); /* 10 */ + int (*tk_CanvasPsBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height)); /* 11 */ + int (*tk_CanvasPsColor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, XColor * colorPtr)); /* 12 */ + int (*tk_CanvasPsFont) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Tk_Font font)); /* 13 */ + void (*tk_CanvasPsPath) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, double * coordPtr, int numPoints)); /* 14 */ + int (*tk_CanvasPsStipple) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap)); /* 15 */ + double (*tk_CanvasPsY) _ANSI_ARGS_((Tk_Canvas canvas, double y)); /* 16 */ + void (*tk_CanvasSetStippleOrigin) _ANSI_ARGS_((Tk_Canvas canvas, GC gc)); /* 17 */ + int (*tk_CanvasTagsParseProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, Tk_Window tkwin, char * value, char * widgRec, int offset)); /* 18 */ + char * (*tk_CanvasTagsPrintProc) _ANSI_ARGS_((ClientData clientData, Tk_Window tkwin, char * widgRec, int offset, Tcl_FreeProc ** freeProcPtr)); /* 19 */ + Tk_Window (*tk_CanvasTkwin) _ANSI_ARGS_((Tk_Canvas canvas)); /* 20 */ + void (*tk_CanvasWindowCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short * screenXPtr, short * screenYPtr)); /* 21 */ + void (*tk_ChangeWindowAttributes) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes * attsPtr)); /* 22 */ + int (*tk_CharBbox) _ANSI_ARGS_((Tk_TextLayout layout, int index, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr)); /* 23 */ + void (*tk_ClearSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection)); /* 24 */ + int (*tk_ClipboardAppend) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Atom target, Atom format, char* buffer)); /* 25 */ + int (*tk_ClipboardClear) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 26 */ + int (*tk_ConfigureInfo) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, char * argvName, int flags)); /* 27 */ + int (*tk_ConfigureValue) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, char * argvName, int flags)); /* 28 */ + int (*tk_ConfigureWidget) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, int argc, char ** argv, char * widgRec, int flags)); /* 29 */ + void (*tk_ConfigureWindow) _ANSI_ARGS_((Tk_Window tkwin, unsigned int valueMask, XWindowChanges * valuePtr)); /* 30 */ + Tk_TextLayout (*tk_ComputeTextLayout) _ANSI_ARGS_((Tk_Font font, CONST char * string, int numChars, int wrapLength, Tk_Justify justify, int flags, int * widthPtr, int * heightPtr)); /* 31 */ + Tk_Window (*tk_CoordsToWindow) _ANSI_ARGS_((int rootX, int rootY, Tk_Window tkwin)); /* 32 */ + unsigned long (*tk_CreateBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString, char * command, int append)); /* 33 */ + Tk_BindingTable (*tk_CreateBindingTable) _ANSI_ARGS_((Tcl_Interp * interp)); /* 34 */ + Tk_ErrorHandler (*tk_CreateErrorHandler) _ANSI_ARGS_((Display * display, int errNum, int request, int minorCode, Tk_ErrorProc * errorProc, ClientData clientData)); /* 35 */ + void (*tk_CreateEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData)); /* 36 */ + void (*tk_CreateGenericHandler) _ANSI_ARGS_((Tk_GenericProc * proc, ClientData clientData)); /* 37 */ + void (*tk_CreateImageType) _ANSI_ARGS_((Tk_ImageType * typePtr)); /* 38 */ + void (*tk_CreateItemType) _ANSI_ARGS_((Tk_ItemType * typePtr)); /* 39 */ + void (*tk_CreatePhotoImageFormat) _ANSI_ARGS_((Tk_PhotoImageFormat * formatPtr)); /* 40 */ + void (*tk_CreateSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc * proc, ClientData clientData, Atom format)); /* 41 */ + Tk_Window (*tk_CreateWindow) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window parent, char * name, char * screenName)); /* 42 */ + Tk_Window (*tk_CreateWindowFromPath) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * pathName, char * screenName)); /* 43 */ + int (*tk_DefineBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Uid name, char * source, int width, int height)); /* 44 */ + void (*tk_DefineCursor) _ANSI_ARGS_((Tk_Window window, Tk_Cursor cursor)); /* 45 */ + void (*tk_DeleteAllBindings) _ANSI_ARGS_((Tk_BindingTable bindingTable, ClientData object)); /* 46 */ + int (*tk_DeleteBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString)); /* 47 */ + void (*tk_DeleteBindingTable) _ANSI_ARGS_((Tk_BindingTable bindingTable)); /* 48 */ + void (*tk_DeleteErrorHandler) _ANSI_ARGS_((Tk_ErrorHandler handler)); /* 49 */ + void (*tk_DeleteEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData)); /* 50 */ + void (*tk_DeleteGenericHandler) _ANSI_ARGS_((Tk_GenericProc * proc, ClientData clientData)); /* 51 */ + void (*tk_DeleteImage) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 52 */ + void (*tk_DeleteSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target)); /* 53 */ + void (*tk_DestroyWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 54 */ + char * (*tk_DisplayName) _ANSI_ARGS_((Tk_Window tkwin)); /* 55 */ + int (*tk_DistanceToTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 56 */ + void (*tk_Draw3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 57 */ + void (*tk_Draw3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 58 */ + void (*tk_DrawChars) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int numChars, int x, int y)); /* 59 */ + void (*tk_DrawFocusHighlight) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int width, Drawable drawable)); /* 60 */ + void (*tk_DrawTextLayout) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar)); /* 61 */ + void (*tk_Fill3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 62 */ + void (*tk_Fill3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 63 */ + Tk_PhotoHandle (*tk_FindPhoto) _ANSI_ARGS_((Tcl_Interp * interp, char * imageName)); /* 64 */ + Font (*tk_FontId) _ANSI_ARGS_((Tk_Font font)); /* 65 */ + void (*tk_Free3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 66 */ + void (*tk_FreeBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap)); /* 67 */ + void (*tk_FreeColor) _ANSI_ARGS_((XColor * colorPtr)); /* 68 */ + void (*tk_FreeColormap) _ANSI_ARGS_((Display * display, Colormap colormap)); /* 69 */ + void (*tk_FreeCursor) _ANSI_ARGS_((Display * display, Tk_Cursor cursor)); /* 70 */ + void (*tk_FreeFont) _ANSI_ARGS_((Tk_Font f)); /* 71 */ + void (*tk_FreeGC) _ANSI_ARGS_((Display * display, GC gc)); /* 72 */ + void (*tk_FreeImage) _ANSI_ARGS_((Tk_Image image)); /* 73 */ + void (*tk_FreeOptions) _ANSI_ARGS_((Tk_ConfigSpec * specs, char * widgRec, Display * display, int needFlags)); /* 74 */ + void (*tk_FreePixmap) _ANSI_ARGS_((Display * display, Pixmap pixmap)); /* 75 */ + void (*tk_FreeTextLayout) _ANSI_ARGS_((Tk_TextLayout textLayout)); /* 76 */ + void (*tk_FreeXId) _ANSI_ARGS_((Display * display, XID xid)); /* 77 */ + GC (*tk_GCForColor) _ANSI_ARGS_((XColor * colorPtr, Drawable drawable)); /* 78 */ + void (*tk_GeometryRequest) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight)); /* 79 */ + Tk_3DBorder (*tk_Get3DBorder) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid colorName)); /* 80 */ + void (*tk_GetAllBindings) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object)); /* 81 */ + int (*tk_GetAnchor) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tk_Anchor * anchorPtr)); /* 82 */ + char * (*tk_GetAtomName) _ANSI_ARGS_((Tk_Window tkwin, Atom atom)); /* 83 */ + char * (*tk_GetBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString)); /* 84 */ + Pixmap (*tk_GetBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid string)); /* 85 */ + Pixmap (*tk_GetBitmapFromData) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * source, int width, int height)); /* 86 */ + int (*tk_GetCapStyle) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * capPtr)); /* 87 */ + XColor * (*tk_GetColor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid name)); /* 88 */ + XColor * (*tk_GetColorByValue) _ANSI_ARGS_((Tk_Window tkwin, XColor * colorPtr)); /* 89 */ + Colormap (*tk_GetColormap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string)); /* 90 */ + Tk_Cursor (*tk_GetCursor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid string)); /* 91 */ + Tk_Cursor (*tk_GetCursorFromData) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * source, char * mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg)); /* 92 */ + Tk_Font (*tk_GetFont) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * string)); /* 93 */ + Tk_Font (*tk_GetFontFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 94 */ + void (*tk_GetFontMetrics) _ANSI_ARGS_((Tk_Font font, Tk_FontMetrics * fmPtr)); /* 95 */ + GC (*tk_GetGC) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XGCValues * valuePtr)); /* 96 */ + Tk_Image (*tk_GetImage) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * name, Tk_ImageChangedProc * changeProc, ClientData clientData)); /* 97 */ + ClientData (*tk_GetImageMasterData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tk_ImageType ** typePtrPtr)); /* 98 */ + Tk_ItemType * (*tk_GetItemTypes) _ANSI_ARGS_((void)); /* 99 */ + int (*tk_GetJoinStyle) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * joinPtr)); /* 100 */ + int (*tk_GetJustify) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tk_Justify * justifyPtr)); /* 101 */ + int (*tk_GetNumMainWindows) _ANSI_ARGS_((void)); /* 102 */ + Tk_Uid (*tk_GetOption) _ANSI_ARGS_((Tk_Window tkwin, char * name, char * className)); /* 103 */ + int (*tk_GetPixels) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string, int * intPtr)); /* 104 */ + Pixmap (*tk_GetPixmap) _ANSI_ARGS_((Display * display, Drawable d, int width, int height, int depth)); /* 105 */ + int (*tk_GetRelief) _ANSI_ARGS_((Tcl_Interp * interp, char * name, int * reliefPtr)); /* 106 */ + void (*tk_GetRootCoords) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr)); /* 107 */ + int (*tk_GetScrollInfo) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, double * dblPtr, int * intPtr)); /* 108 */ + int (*tk_GetScreenMM) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string, double * doublePtr)); /* 109 */ + int (*tk_GetSelection) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc * proc, ClientData clientData)); /* 110 */ + Tk_Uid (*tk_GetUid) _ANSI_ARGS_((CONST char * string)); /* 111 */ + Visual * (*tk_GetVisual) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string, int * depthPtr, Colormap * colormapPtr)); /* 112 */ + void (*tk_GetVRootGeometry) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr)); /* 113 */ + int (*tk_Grab) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, int grabGlobal)); /* 114 */ + void (*tk_HandleEvent) _ANSI_ARGS_((XEvent * eventPtr)); /* 115 */ + Tk_Window (*tk_IdToWindow) _ANSI_ARGS_((Display * display, Window window)); /* 116 */ + void (*tk_ImageChanged) _ANSI_ARGS_((Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight)); /* 117 */ + int (*tk_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 118 */ + Atom (*tk_InternAtom) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 119 */ + int (*tk_IntersectTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y, int width, int height)); /* 120 */ + void (*tk_MaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master, int x, int y, int width, int height)); /* 121 */ + Tk_Window (*tk_MainWindow) _ANSI_ARGS_((Tcl_Interp * interp)); /* 122 */ + void (*tk_MakeWindowExist) _ANSI_ARGS_((Tk_Window tkwin)); /* 123 */ + void (*tk_ManageGeometry) _ANSI_ARGS_((Tk_Window tkwin, Tk_GeomMgr * mgrPtr, ClientData clientData)); /* 124 */ + void (*tk_MapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 125 */ + int (*tk_MeasureChars) _ANSI_ARGS_((Tk_Font tkfont, CONST char * source, int maxChars, int maxPixels, int flags, int * lengthPtr)); /* 126 */ + void (*tk_MoveResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height)); /* 127 */ + void (*tk_MoveWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 128 */ + void (*tk_MoveToplevelWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 129 */ + char * (*tk_NameOf3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 130 */ + char * (*tk_NameOfAnchor) _ANSI_ARGS_((Tk_Anchor anchor)); /* 131 */ + char * (*tk_NameOfBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap)); /* 132 */ + char * (*tk_NameOfCapStyle) _ANSI_ARGS_((int cap)); /* 133 */ + char * (*tk_NameOfColor) _ANSI_ARGS_((XColor * colorPtr)); /* 134 */ + char * (*tk_NameOfCursor) _ANSI_ARGS_((Display * display, Tk_Cursor cursor)); /* 135 */ + char * (*tk_NameOfFont) _ANSI_ARGS_((Tk_Font font)); /* 136 */ + char * (*tk_NameOfImage) _ANSI_ARGS_((Tk_ImageMaster imageMaster)); /* 137 */ + char * (*tk_NameOfJoinStyle) _ANSI_ARGS_((int join)); /* 138 */ + char * (*tk_NameOfJustify) _ANSI_ARGS_((Tk_Justify justify)); /* 139 */ + char * (*tk_NameOfRelief) _ANSI_ARGS_((int relief)); /* 140 */ + Tk_Window (*tk_NameToWindow) _ANSI_ARGS_((Tcl_Interp * interp, char * pathName, Tk_Window tkwin)); /* 141 */ + void (*tk_OwnSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Tk_LostSelProc * proc, ClientData clientData)); /* 142 */ + int (*tk_ParseArgv) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, int * argcPtr, char ** argv, Tk_ArgvInfo * argTable, int flags)); /* 143 */ + void (*tk_PhotoPutBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height)); /* 144 */ + void (*tk_PhotoPutZoomedBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY)); /* 145 */ + int (*tk_PhotoGetImage) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr)); /* 146 */ + void (*tk_PhotoBlank) _ANSI_ARGS_((Tk_PhotoHandle handle)); /* 147 */ + void (*tk_PhotoExpand) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 148 */ + void (*tk_PhotoGetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int * widthPtr, int * heightPtr)); /* 149 */ + void (*tk_PhotoSetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 150 */ + int (*tk_PointToChar) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 151 */ + int (*tk_PostscriptFontName) _ANSI_ARGS_((Tk_Font tkfont, Tcl_DString * dsPtr)); /* 152 */ + void (*tk_PreserveColormap) _ANSI_ARGS_((Display * display, Colormap colormap)); /* 153 */ + void (*tk_QueueWindowEvent) _ANSI_ARGS_((XEvent * eventPtr, Tcl_QueuePosition position)); /* 154 */ + void (*tk_RedrawImage) _ANSI_ARGS_((Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY)); /* 155 */ + void (*tk_ResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int width, int height)); /* 156 */ + int (*tk_RestackWindow) _ANSI_ARGS_((Tk_Window tkwin, int aboveBelow, Tk_Window other)); /* 157 */ + Tk_RestrictProc * (*tk_RestrictEvents) _ANSI_ARGS_((Tk_RestrictProc * proc, ClientData arg, ClientData * prevArgPtr)); /* 158 */ + int (*tk_SafeInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 159 */ + char * (*tk_SetAppName) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 160 */ + void (*tk_SetBackgroundFromBorder) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border)); /* 161 */ + void (*tk_SetClass) _ANSI_ARGS_((Tk_Window tkwin, char * className)); /* 162 */ + void (*tk_SetGrid) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight)); /* 163 */ + void (*tk_SetInternalBorder) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 164 */ + void (*tk_SetWindowBackground) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 165 */ + void (*tk_SetWindowBackgroundPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 166 */ + void (*tk_SetWindowBorder) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 167 */ + void (*tk_SetWindowBorderWidth) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 168 */ + void (*tk_SetWindowBorderPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 169 */ + void (*tk_SetWindowColormap) _ANSI_ARGS_((Tk_Window tkwin, Colormap colormap)); /* 170 */ + int (*tk_SetWindowVisual) _ANSI_ARGS_((Tk_Window tkwin, Visual * visual, int depth, Colormap colormap)); /* 171 */ + void (*tk_SizeOfBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap, int * widthPtr, int * heightPtr)); /* 172 */ + void (*tk_SizeOfImage) _ANSI_ARGS_((Tk_Image image, int * widthPtr, int * heightPtr)); /* 173 */ + int (*tk_StrictMotif) _ANSI_ARGS_((Tk_Window tkwin)); /* 174 */ + void (*tk_TextLayoutToPostscript) _ANSI_ARGS_((Tcl_Interp * interp, Tk_TextLayout layout)); /* 175 */ + int (*tk_TextWidth) _ANSI_ARGS_((Tk_Font font, CONST char * string, int numChars)); /* 176 */ + void (*tk_UndefineCursor) _ANSI_ARGS_((Tk_Window window)); /* 177 */ + void (*tk_UnderlineChars) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int x, int y, int firstChar, int lastChar)); /* 178 */ + void (*tk_UnderlineTextLayout) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline)); /* 179 */ + void (*tk_Ungrab) _ANSI_ARGS_((Tk_Window tkwin)); /* 180 */ + void (*tk_UnmaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master)); /* 181 */ + void (*tk_UnmapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 182 */ + void (*tk_UnsetGrid) _ANSI_ARGS_((Tk_Window tkwin)); /* 183 */ + void (*tk_UpdatePointer) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int state)); /* 184 */ +} TkStubs; + +extern TkStubs *tkStubsPtr; + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef Tk_MainLoop +#define Tk_MainLoop() \ + (tkStubsPtr->tk_MainLoop)() /* 0 */ +#endif +#ifndef Tk_3DBorderColor +#define Tk_3DBorderColor(border) \ + (tkStubsPtr->tk_3DBorderColor)(border) /* 1 */ +#endif +#ifndef Tk_3DBorderGC +#define Tk_3DBorderGC(tkwin, border, which) \ + (tkStubsPtr->tk_3DBorderGC)(tkwin, border, which) /* 2 */ +#endif +#ifndef Tk_3DHorizontalBevel +#define Tk_3DHorizontalBevel(tkwin, drawable, border, x, y, width, height, leftIn, rightIn, topBevel, relief) \ + (tkStubsPtr->tk_3DHorizontalBevel)(tkwin, drawable, border, x, y, width, height, leftIn, rightIn, topBevel, relief) /* 3 */ +#endif +#ifndef Tk_3DVerticalBevel +#define Tk_3DVerticalBevel(tkwin, drawable, border, x, y, width, height, leftBevel, relief) \ + (tkStubsPtr->tk_3DVerticalBevel)(tkwin, drawable, border, x, y, width, height, leftBevel, relief) /* 4 */ +#endif +#ifndef Tk_AddOption +#define Tk_AddOption(tkwin, name, value, priority) \ + (tkStubsPtr->tk_AddOption)(tkwin, name, value, priority) /* 5 */ +#endif +#ifndef Tk_BindEvent +#define Tk_BindEvent(bindingTable, eventPtr, tkwin, numObjects, objectPtr) \ + (tkStubsPtr->tk_BindEvent)(bindingTable, eventPtr, tkwin, numObjects, objectPtr) /* 6 */ +#endif +#ifndef Tk_CanvasDrawableCoords +#define Tk_CanvasDrawableCoords(canvas, x, y, drawableXPtr, drawableYPtr) \ + (tkStubsPtr->tk_CanvasDrawableCoords)(canvas, x, y, drawableXPtr, drawableYPtr) /* 7 */ +#endif +#ifndef Tk_CanvasEventuallyRedraw +#define Tk_CanvasEventuallyRedraw(canvas, x1, y1, x2, y2) \ + (tkStubsPtr->tk_CanvasEventuallyRedraw)(canvas, x1, y1, x2, y2) /* 8 */ +#endif +#ifndef Tk_CanvasGetCoord +#define Tk_CanvasGetCoord(interp, canvas, string, doublePtr) \ + (tkStubsPtr->tk_CanvasGetCoord)(interp, canvas, string, doublePtr) /* 9 */ +#endif +#ifndef Tk_CanvasGetTextInfo +#define Tk_CanvasGetTextInfo(canvas) \ + (tkStubsPtr->tk_CanvasGetTextInfo)(canvas) /* 10 */ +#endif +#ifndef Tk_CanvasPsBitmap +#define Tk_CanvasPsBitmap(interp, canvas, bitmap, x, y, width, height) \ + (tkStubsPtr->tk_CanvasPsBitmap)(interp, canvas, bitmap, x, y, width, height) /* 11 */ +#endif +#ifndef Tk_CanvasPsColor +#define Tk_CanvasPsColor(interp, canvas, colorPtr) \ + (tkStubsPtr->tk_CanvasPsColor)(interp, canvas, colorPtr) /* 12 */ +#endif +#ifndef Tk_CanvasPsFont +#define Tk_CanvasPsFont(interp, canvas, font) \ + (tkStubsPtr->tk_CanvasPsFont)(interp, canvas, font) /* 13 */ +#endif +#ifndef Tk_CanvasPsPath +#define Tk_CanvasPsPath(interp, canvas, coordPtr, numPoints) \ + (tkStubsPtr->tk_CanvasPsPath)(interp, canvas, coordPtr, numPoints) /* 14 */ +#endif +#ifndef Tk_CanvasPsStipple +#define Tk_CanvasPsStipple(interp, canvas, bitmap) \ + (tkStubsPtr->tk_CanvasPsStipple)(interp, canvas, bitmap) /* 15 */ +#endif +#ifndef Tk_CanvasPsY +#define Tk_CanvasPsY(canvas, y) \ + (tkStubsPtr->tk_CanvasPsY)(canvas, y) /* 16 */ +#endif +#ifndef Tk_CanvasSetStippleOrigin +#define Tk_CanvasSetStippleOrigin(canvas, gc) \ + (tkStubsPtr->tk_CanvasSetStippleOrigin)(canvas, gc) /* 17 */ +#endif +#ifndef Tk_CanvasTagsParseProc +#define Tk_CanvasTagsParseProc(clientData, interp, tkwin, value, widgRec, offset) \ + (tkStubsPtr->tk_CanvasTagsParseProc)(clientData, interp, tkwin, value, widgRec, offset) /* 18 */ +#endif +#ifndef Tk_CanvasTagsPrintProc +#define Tk_CanvasTagsPrintProc(clientData, tkwin, widgRec, offset, freeProcPtr) \ + (tkStubsPtr->tk_CanvasTagsPrintProc)(clientData, tkwin, widgRec, offset, freeProcPtr) /* 19 */ +#endif +#ifndef Tk_CanvasTkwin +#define Tk_CanvasTkwin(canvas) \ + (tkStubsPtr->tk_CanvasTkwin)(canvas) /* 20 */ +#endif +#ifndef Tk_CanvasWindowCoords +#define Tk_CanvasWindowCoords(canvas, x, y, screenXPtr, screenYPtr) \ + (tkStubsPtr->tk_CanvasWindowCoords)(canvas, x, y, screenXPtr, screenYPtr) /* 21 */ +#endif +#ifndef Tk_ChangeWindowAttributes +#define Tk_ChangeWindowAttributes(tkwin, valueMask, attsPtr) \ + (tkStubsPtr->tk_ChangeWindowAttributes)(tkwin, valueMask, attsPtr) /* 22 */ +#endif +#ifndef Tk_CharBbox +#define Tk_CharBbox(layout, index, xPtr, yPtr, widthPtr, heightPtr) \ + (tkStubsPtr->tk_CharBbox)(layout, index, xPtr, yPtr, widthPtr, heightPtr) /* 23 */ +#endif +#ifndef Tk_ClearSelection +#define Tk_ClearSelection(tkwin, selection) \ + (tkStubsPtr->tk_ClearSelection)(tkwin, selection) /* 24 */ +#endif +#ifndef Tk_ClipboardAppend +#define Tk_ClipboardAppend(interp, tkwin, target, format, buffer) \ + (tkStubsPtr->tk_ClipboardAppend)(interp, tkwin, target, format, buffer) /* 25 */ +#endif +#ifndef Tk_ClipboardClear +#define Tk_ClipboardClear(interp, tkwin) \ + (tkStubsPtr->tk_ClipboardClear)(interp, tkwin) /* 26 */ +#endif +#ifndef Tk_ConfigureInfo +#define Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags) \ + (tkStubsPtr->tk_ConfigureInfo)(interp, tkwin, specs, widgRec, argvName, flags) /* 27 */ +#endif +#ifndef Tk_ConfigureValue +#define Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags) \ + (tkStubsPtr->tk_ConfigureValue)(interp, tkwin, specs, widgRec, argvName, flags) /* 28 */ +#endif +#ifndef Tk_ConfigureWidget +#define Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags) \ + (tkStubsPtr->tk_ConfigureWidget)(interp, tkwin, specs, argc, argv, widgRec, flags) /* 29 */ +#endif +#ifndef Tk_ConfigureWindow +#define Tk_ConfigureWindow(tkwin, valueMask, valuePtr) \ + (tkStubsPtr->tk_ConfigureWindow)(tkwin, valueMask, valuePtr) /* 30 */ +#endif +#ifndef Tk_ComputeTextLayout +#define Tk_ComputeTextLayout(font, string, numChars, wrapLength, justify, flags, widthPtr, heightPtr) \ + (tkStubsPtr->tk_ComputeTextLayout)(font, string, numChars, wrapLength, justify, flags, widthPtr, heightPtr) /* 31 */ +#endif +#ifndef Tk_CoordsToWindow +#define Tk_CoordsToWindow(rootX, rootY, tkwin) \ + (tkStubsPtr->tk_CoordsToWindow)(rootX, rootY, tkwin) /* 32 */ +#endif +#ifndef Tk_CreateBinding +#define Tk_CreateBinding(interp, bindingTable, object, eventString, command, append) \ + (tkStubsPtr->tk_CreateBinding)(interp, bindingTable, object, eventString, command, append) /* 33 */ +#endif +#ifndef Tk_CreateBindingTable +#define Tk_CreateBindingTable(interp) \ + (tkStubsPtr->tk_CreateBindingTable)(interp) /* 34 */ +#endif +#ifndef Tk_CreateErrorHandler +#define Tk_CreateErrorHandler(display, errNum, request, minorCode, errorProc, clientData) \ + (tkStubsPtr->tk_CreateErrorHandler)(display, errNum, request, minorCode, errorProc, clientData) /* 35 */ +#endif +#ifndef Tk_CreateEventHandler +#define Tk_CreateEventHandler(token, mask, proc, clientData) \ + (tkStubsPtr->tk_CreateEventHandler)(token, mask, proc, clientData) /* 36 */ +#endif +#ifndef Tk_CreateGenericHandler +#define Tk_CreateGenericHandler(proc, clientData) \ + (tkStubsPtr->tk_CreateGenericHandler)(proc, clientData) /* 37 */ +#endif +#ifndef Tk_CreateImageType +#define Tk_CreateImageType(typePtr) \ + (tkStubsPtr->tk_CreateImageType)(typePtr) /* 38 */ +#endif +#ifndef Tk_CreateItemType +#define Tk_CreateItemType(typePtr) \ + (tkStubsPtr->tk_CreateItemType)(typePtr) /* 39 */ +#endif +#ifndef Tk_CreatePhotoImageFormat +#define Tk_CreatePhotoImageFormat(formatPtr) \ + (tkStubsPtr->tk_CreatePhotoImageFormat)(formatPtr) /* 40 */ +#endif +#ifndef Tk_CreateSelHandler +#define Tk_CreateSelHandler(tkwin, selection, target, proc, clientData, format) \ + (tkStubsPtr->tk_CreateSelHandler)(tkwin, selection, target, proc, clientData, format) /* 41 */ +#endif +#ifndef Tk_CreateWindow +#define Tk_CreateWindow(interp, parent, name, screenName) \ + (tkStubsPtr->tk_CreateWindow)(interp, parent, name, screenName) /* 42 */ +#endif +#ifndef Tk_CreateWindowFromPath +#define Tk_CreateWindowFromPath(interp, tkwin, pathName, screenName) \ + (tkStubsPtr->tk_CreateWindowFromPath)(interp, tkwin, pathName, screenName) /* 43 */ +#endif +#ifndef Tk_DefineBitmap +#define Tk_DefineBitmap(interp, name, source, width, height) \ + (tkStubsPtr->tk_DefineBitmap)(interp, name, source, width, height) /* 44 */ +#endif +#ifndef Tk_DefineCursor +#define Tk_DefineCursor(window, cursor) \ + (tkStubsPtr->tk_DefineCursor)(window, cursor) /* 45 */ +#endif +#ifndef Tk_DeleteAllBindings +#define Tk_DeleteAllBindings(bindingTable, object) \ + (tkStubsPtr->tk_DeleteAllBindings)(bindingTable, object) /* 46 */ +#endif +#ifndef Tk_DeleteBinding +#define Tk_DeleteBinding(interp, bindingTable, object, eventString) \ + (tkStubsPtr->tk_DeleteBinding)(interp, bindingTable, object, eventString) /* 47 */ +#endif +#ifndef Tk_DeleteBindingTable +#define Tk_DeleteBindingTable(bindingTable) \ + (tkStubsPtr->tk_DeleteBindingTable)(bindingTable) /* 48 */ +#endif +#ifndef Tk_DeleteErrorHandler +#define Tk_DeleteErrorHandler(handler) \ + (tkStubsPtr->tk_DeleteErrorHandler)(handler) /* 49 */ +#endif +#ifndef Tk_DeleteEventHandler +#define Tk_DeleteEventHandler(token, mask, proc, clientData) \ + (tkStubsPtr->tk_DeleteEventHandler)(token, mask, proc, clientData) /* 50 */ +#endif +#ifndef Tk_DeleteGenericHandler +#define Tk_DeleteGenericHandler(proc, clientData) \ + (tkStubsPtr->tk_DeleteGenericHandler)(proc, clientData) /* 51 */ +#endif +#ifndef Tk_DeleteImage +#define Tk_DeleteImage(interp, name) \ + (tkStubsPtr->tk_DeleteImage)(interp, name) /* 52 */ +#endif +#ifndef Tk_DeleteSelHandler +#define Tk_DeleteSelHandler(tkwin, selection, target) \ + (tkStubsPtr->tk_DeleteSelHandler)(tkwin, selection, target) /* 53 */ +#endif +#ifndef Tk_DestroyWindow +#define Tk_DestroyWindow(tkwin) \ + (tkStubsPtr->tk_DestroyWindow)(tkwin) /* 54 */ +#endif +#ifndef Tk_DisplayName +#define Tk_DisplayName(tkwin) \ + (tkStubsPtr->tk_DisplayName)(tkwin) /* 55 */ +#endif +#ifndef Tk_DistanceToTextLayout +#define Tk_DistanceToTextLayout(layout, x, y) \ + (tkStubsPtr->tk_DistanceToTextLayout)(layout, x, y) /* 56 */ +#endif +#ifndef Tk_Draw3DPolygon +#define Tk_Draw3DPolygon(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) \ + (tkStubsPtr->tk_Draw3DPolygon)(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) /* 57 */ +#endif +#ifndef Tk_Draw3DRectangle +#define Tk_Draw3DRectangle(tkwin, drawable, border, x, y, width, height, borderWidth, relief) \ + (tkStubsPtr->tk_Draw3DRectangle)(tkwin, drawable, border, x, y, width, height, borderWidth, relief) /* 58 */ +#endif +#ifndef Tk_DrawChars +#define Tk_DrawChars(display, drawable, gc, tkfont, source, numChars, x, y) \ + (tkStubsPtr->tk_DrawChars)(display, drawable, gc, tkfont, source, numChars, x, y) /* 59 */ +#endif +#ifndef Tk_DrawFocusHighlight +#define Tk_DrawFocusHighlight(tkwin, gc, width, drawable) \ + (tkStubsPtr->tk_DrawFocusHighlight)(tkwin, gc, width, drawable) /* 60 */ +#endif +#ifndef Tk_DrawTextLayout +#define Tk_DrawTextLayout(display, drawable, gc, layout, x, y, firstChar, lastChar) \ + (tkStubsPtr->tk_DrawTextLayout)(display, drawable, gc, layout, x, y, firstChar, lastChar) /* 61 */ +#endif +#ifndef Tk_Fill3DPolygon +#define Tk_Fill3DPolygon(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) \ + (tkStubsPtr->tk_Fill3DPolygon)(tkwin, drawable, border, pointPtr, numPoints, borderWidth, leftRelief) /* 62 */ +#endif +#ifndef Tk_Fill3DRectangle +#define Tk_Fill3DRectangle(tkwin, drawable, border, x, y, width, height, borderWidth, relief) \ + (tkStubsPtr->tk_Fill3DRectangle)(tkwin, drawable, border, x, y, width, height, borderWidth, relief) /* 63 */ +#endif +#ifndef Tk_FindPhoto +#define Tk_FindPhoto(interp, imageName) \ + (tkStubsPtr->tk_FindPhoto)(interp, imageName) /* 64 */ +#endif +#ifndef Tk_FontId +#define Tk_FontId(font) \ + (tkStubsPtr->tk_FontId)(font) /* 65 */ +#endif +#ifndef Tk_Free3DBorder +#define Tk_Free3DBorder(border) \ + (tkStubsPtr->tk_Free3DBorder)(border) /* 66 */ +#endif +#ifndef Tk_FreeBitmap +#define Tk_FreeBitmap(display, bitmap) \ + (tkStubsPtr->tk_FreeBitmap)(display, bitmap) /* 67 */ +#endif +#ifndef Tk_FreeColor +#define Tk_FreeColor(colorPtr) \ + (tkStubsPtr->tk_FreeColor)(colorPtr) /* 68 */ +#endif +#ifndef Tk_FreeColormap +#define Tk_FreeColormap(display, colormap) \ + (tkStubsPtr->tk_FreeColormap)(display, colormap) /* 69 */ +#endif +#ifndef Tk_FreeCursor +#define Tk_FreeCursor(display, cursor) \ + (tkStubsPtr->tk_FreeCursor)(display, cursor) /* 70 */ +#endif +#ifndef Tk_FreeFont +#define Tk_FreeFont(f) \ + (tkStubsPtr->tk_FreeFont)(f) /* 71 */ +#endif +#ifndef Tk_FreeGC +#define Tk_FreeGC(display, gc) \ + (tkStubsPtr->tk_FreeGC)(display, gc) /* 72 */ +#endif +#ifndef Tk_FreeImage +#define Tk_FreeImage(image) \ + (tkStubsPtr->tk_FreeImage)(image) /* 73 */ +#endif +#ifndef Tk_FreeOptions +#define Tk_FreeOptions(specs, widgRec, display, needFlags) \ + (tkStubsPtr->tk_FreeOptions)(specs, widgRec, display, needFlags) /* 74 */ +#endif +#ifndef Tk_FreePixmap +#define Tk_FreePixmap(display, pixmap) \ + (tkStubsPtr->tk_FreePixmap)(display, pixmap) /* 75 */ +#endif +#ifndef Tk_FreeTextLayout +#define Tk_FreeTextLayout(textLayout) \ + (tkStubsPtr->tk_FreeTextLayout)(textLayout) /* 76 */ +#endif +#ifndef Tk_FreeXId +#define Tk_FreeXId(display, xid) \ + (tkStubsPtr->tk_FreeXId)(display, xid) /* 77 */ +#endif +#ifndef Tk_GCForColor +#define Tk_GCForColor(colorPtr, drawable) \ + (tkStubsPtr->tk_GCForColor)(colorPtr, drawable) /* 78 */ +#endif +#ifndef Tk_GeometryRequest +#define Tk_GeometryRequest(tkwin, reqWidth, reqHeight) \ + (tkStubsPtr->tk_GeometryRequest)(tkwin, reqWidth, reqHeight) /* 79 */ +#endif +#ifndef Tk_Get3DBorder +#define Tk_Get3DBorder(interp, tkwin, colorName) \ + (tkStubsPtr->tk_Get3DBorder)(interp, tkwin, colorName) /* 80 */ +#endif +#ifndef Tk_GetAllBindings +#define Tk_GetAllBindings(interp, bindingTable, object) \ + (tkStubsPtr->tk_GetAllBindings)(interp, bindingTable, object) /* 81 */ +#endif +#ifndef Tk_GetAnchor +#define Tk_GetAnchor(interp, string, anchorPtr) \ + (tkStubsPtr->tk_GetAnchor)(interp, string, anchorPtr) /* 82 */ +#endif +#ifndef Tk_GetAtomName +#define Tk_GetAtomName(tkwin, atom) \ + (tkStubsPtr->tk_GetAtomName)(tkwin, atom) /* 83 */ +#endif +#ifndef Tk_GetBinding +#define Tk_GetBinding(interp, bindingTable, object, eventString) \ + (tkStubsPtr->tk_GetBinding)(interp, bindingTable, object, eventString) /* 84 */ +#endif +#ifndef Tk_GetBitmap +#define Tk_GetBitmap(interp, tkwin, string) \ + (tkStubsPtr->tk_GetBitmap)(interp, tkwin, string) /* 85 */ +#endif +#ifndef Tk_GetBitmapFromData +#define Tk_GetBitmapFromData(interp, tkwin, source, width, height) \ + (tkStubsPtr->tk_GetBitmapFromData)(interp, tkwin, source, width, height) /* 86 */ +#endif +#ifndef Tk_GetCapStyle +#define Tk_GetCapStyle(interp, string, capPtr) \ + (tkStubsPtr->tk_GetCapStyle)(interp, string, capPtr) /* 87 */ +#endif +#ifndef Tk_GetColor +#define Tk_GetColor(interp, tkwin, name) \ + (tkStubsPtr->tk_GetColor)(interp, tkwin, name) /* 88 */ +#endif +#ifndef Tk_GetColorByValue +#define Tk_GetColorByValue(tkwin, colorPtr) \ + (tkStubsPtr->tk_GetColorByValue)(tkwin, colorPtr) /* 89 */ +#endif +#ifndef Tk_GetColormap +#define Tk_GetColormap(interp, tkwin, string) \ + (tkStubsPtr->tk_GetColormap)(interp, tkwin, string) /* 90 */ +#endif +#ifndef Tk_GetCursor +#define Tk_GetCursor(interp, tkwin, string) \ + (tkStubsPtr->tk_GetCursor)(interp, tkwin, string) /* 91 */ +#endif +#ifndef Tk_GetCursorFromData +#define Tk_GetCursorFromData(interp, tkwin, source, mask, width, height, xHot, yHot, fg, bg) \ + (tkStubsPtr->tk_GetCursorFromData)(interp, tkwin, source, mask, width, height, xHot, yHot, fg, bg) /* 92 */ +#endif +#ifndef Tk_GetFont +#define Tk_GetFont(interp, tkwin, string) \ + (tkStubsPtr->tk_GetFont)(interp, tkwin, string) /* 93 */ +#endif +#ifndef Tk_GetFontFromObj +#define Tk_GetFontFromObj(interp, tkwin, objPtr) \ + (tkStubsPtr->tk_GetFontFromObj)(interp, tkwin, objPtr) /* 94 */ +#endif +#ifndef Tk_GetFontMetrics +#define Tk_GetFontMetrics(font, fmPtr) \ + (tkStubsPtr->tk_GetFontMetrics)(font, fmPtr) /* 95 */ +#endif +#ifndef Tk_GetGC +#define Tk_GetGC(tkwin, valueMask, valuePtr) \ + (tkStubsPtr->tk_GetGC)(tkwin, valueMask, valuePtr) /* 96 */ +#endif +#ifndef Tk_GetImage +#define Tk_GetImage(interp, tkwin, name, changeProc, clientData) \ + (tkStubsPtr->tk_GetImage)(interp, tkwin, name, changeProc, clientData) /* 97 */ +#endif +#ifndef Tk_GetImageMasterData +#define Tk_GetImageMasterData(interp, name, typePtrPtr) \ + (tkStubsPtr->tk_GetImageMasterData)(interp, name, typePtrPtr) /* 98 */ +#endif +#ifndef Tk_GetItemTypes +#define Tk_GetItemTypes() \ + (tkStubsPtr->tk_GetItemTypes)() /* 99 */ +#endif +#ifndef Tk_GetJoinStyle +#define Tk_GetJoinStyle(interp, string, joinPtr) \ + (tkStubsPtr->tk_GetJoinStyle)(interp, string, joinPtr) /* 100 */ +#endif +#ifndef Tk_GetJustify +#define Tk_GetJustify(interp, string, justifyPtr) \ + (tkStubsPtr->tk_GetJustify)(interp, string, justifyPtr) /* 101 */ +#endif +#ifndef Tk_GetNumMainWindows +#define Tk_GetNumMainWindows() \ + (tkStubsPtr->tk_GetNumMainWindows)() /* 102 */ +#endif +#ifndef Tk_GetOption +#define Tk_GetOption(tkwin, name, className) \ + (tkStubsPtr->tk_GetOption)(tkwin, name, className) /* 103 */ +#endif +#ifndef Tk_GetPixels +#define Tk_GetPixels(interp, tkwin, string, intPtr) \ + (tkStubsPtr->tk_GetPixels)(interp, tkwin, string, intPtr) /* 104 */ +#endif +#ifndef Tk_GetPixmap +#define Tk_GetPixmap(display, d, width, height, depth) \ + (tkStubsPtr->tk_GetPixmap)(display, d, width, height, depth) /* 105 */ +#endif +#ifndef Tk_GetRelief +#define Tk_GetRelief(interp, name, reliefPtr) \ + (tkStubsPtr->tk_GetRelief)(interp, name, reliefPtr) /* 106 */ +#endif +#ifndef Tk_GetRootCoords +#define Tk_GetRootCoords(tkwin, xPtr, yPtr) \ + (tkStubsPtr->tk_GetRootCoords)(tkwin, xPtr, yPtr) /* 107 */ +#endif +#ifndef Tk_GetScrollInfo +#define Tk_GetScrollInfo(interp, argc, argv, dblPtr, intPtr) \ + (tkStubsPtr->tk_GetScrollInfo)(interp, argc, argv, dblPtr, intPtr) /* 108 */ +#endif +#ifndef Tk_GetScreenMM +#define Tk_GetScreenMM(interp, tkwin, string, doublePtr) \ + (tkStubsPtr->tk_GetScreenMM)(interp, tkwin, string, doublePtr) /* 109 */ +#endif +#ifndef Tk_GetSelection +#define Tk_GetSelection(interp, tkwin, selection, target, proc, clientData) \ + (tkStubsPtr->tk_GetSelection)(interp, tkwin, selection, target, proc, clientData) /* 110 */ +#endif +#ifndef Tk_GetUid +#define Tk_GetUid(string) \ + (tkStubsPtr->tk_GetUid)(string) /* 111 */ +#endif +#ifndef Tk_GetVisual +#define Tk_GetVisual(interp, tkwin, string, depthPtr, colormapPtr) \ + (tkStubsPtr->tk_GetVisual)(interp, tkwin, string, depthPtr, colormapPtr) /* 112 */ +#endif +#ifndef Tk_GetVRootGeometry +#define Tk_GetVRootGeometry(tkwin, xPtr, yPtr, widthPtr, heightPtr) \ + (tkStubsPtr->tk_GetVRootGeometry)(tkwin, xPtr, yPtr, widthPtr, heightPtr) /* 113 */ +#endif +#ifndef Tk_Grab +#define Tk_Grab(interp, tkwin, grabGlobal) \ + (tkStubsPtr->tk_Grab)(interp, tkwin, grabGlobal) /* 114 */ +#endif +#ifndef Tk_HandleEvent +#define Tk_HandleEvent(eventPtr) \ + (tkStubsPtr->tk_HandleEvent)(eventPtr) /* 115 */ +#endif +#ifndef Tk_IdToWindow +#define Tk_IdToWindow(display, window) \ + (tkStubsPtr->tk_IdToWindow)(display, window) /* 116 */ +#endif +#ifndef Tk_ImageChanged +#define Tk_ImageChanged(master, x, y, width, height, imageWidth, imageHeight) \ + (tkStubsPtr->tk_ImageChanged)(master, x, y, width, height, imageWidth, imageHeight) /* 117 */ +#endif +#ifndef Tk_Init +#define Tk_Init(interp) \ + (tkStubsPtr->tk_Init)(interp) /* 118 */ +#endif +#ifndef Tk_InternAtom +#define Tk_InternAtom(tkwin, name) \ + (tkStubsPtr->tk_InternAtom)(tkwin, name) /* 119 */ +#endif +#ifndef Tk_IntersectTextLayout +#define Tk_IntersectTextLayout(layout, x, y, width, height) \ + (tkStubsPtr->tk_IntersectTextLayout)(layout, x, y, width, height) /* 120 */ +#endif +#ifndef Tk_MaintainGeometry +#define Tk_MaintainGeometry(slave, master, x, y, width, height) \ + (tkStubsPtr->tk_MaintainGeometry)(slave, master, x, y, width, height) /* 121 */ +#endif +#ifndef Tk_MainWindow +#define Tk_MainWindow(interp) \ + (tkStubsPtr->tk_MainWindow)(interp) /* 122 */ +#endif +#ifndef Tk_MakeWindowExist +#define Tk_MakeWindowExist(tkwin) \ + (tkStubsPtr->tk_MakeWindowExist)(tkwin) /* 123 */ +#endif +#ifndef Tk_ManageGeometry +#define Tk_ManageGeometry(tkwin, mgrPtr, clientData) \ + (tkStubsPtr->tk_ManageGeometry)(tkwin, mgrPtr, clientData) /* 124 */ +#endif +#ifndef Tk_MapWindow +#define Tk_MapWindow(tkwin) \ + (tkStubsPtr->tk_MapWindow)(tkwin) /* 125 */ +#endif +#ifndef Tk_MeasureChars +#define Tk_MeasureChars(tkfont, source, maxChars, maxPixels, flags, lengthPtr) \ + (tkStubsPtr->tk_MeasureChars)(tkfont, source, maxChars, maxPixels, flags, lengthPtr) /* 126 */ +#endif +#ifndef Tk_MoveResizeWindow +#define Tk_MoveResizeWindow(tkwin, x, y, width, height) \ + (tkStubsPtr->tk_MoveResizeWindow)(tkwin, x, y, width, height) /* 127 */ +#endif +#ifndef Tk_MoveWindow +#define Tk_MoveWindow(tkwin, x, y) \ + (tkStubsPtr->tk_MoveWindow)(tkwin, x, y) /* 128 */ +#endif +#ifndef Tk_MoveToplevelWindow +#define Tk_MoveToplevelWindow(tkwin, x, y) \ + (tkStubsPtr->tk_MoveToplevelWindow)(tkwin, x, y) /* 129 */ +#endif +#ifndef Tk_NameOf3DBorder +#define Tk_NameOf3DBorder(border) \ + (tkStubsPtr->tk_NameOf3DBorder)(border) /* 130 */ +#endif +#ifndef Tk_NameOfAnchor +#define Tk_NameOfAnchor(anchor) \ + (tkStubsPtr->tk_NameOfAnchor)(anchor) /* 131 */ +#endif +#ifndef Tk_NameOfBitmap +#define Tk_NameOfBitmap(display, bitmap) \ + (tkStubsPtr->tk_NameOfBitmap)(display, bitmap) /* 132 */ +#endif +#ifndef Tk_NameOfCapStyle +#define Tk_NameOfCapStyle(cap) \ + (tkStubsPtr->tk_NameOfCapStyle)(cap) /* 133 */ +#endif +#ifndef Tk_NameOfColor +#define Tk_NameOfColor(colorPtr) \ + (tkStubsPtr->tk_NameOfColor)(colorPtr) /* 134 */ +#endif +#ifndef Tk_NameOfCursor +#define Tk_NameOfCursor(display, cursor) \ + (tkStubsPtr->tk_NameOfCursor)(display, cursor) /* 135 */ +#endif +#ifndef Tk_NameOfFont +#define Tk_NameOfFont(font) \ + (tkStubsPtr->tk_NameOfFont)(font) /* 136 */ +#endif +#ifndef Tk_NameOfImage +#define Tk_NameOfImage(imageMaster) \ + (tkStubsPtr->tk_NameOfImage)(imageMaster) /* 137 */ +#endif +#ifndef Tk_NameOfJoinStyle +#define Tk_NameOfJoinStyle(join) \ + (tkStubsPtr->tk_NameOfJoinStyle)(join) /* 138 */ +#endif +#ifndef Tk_NameOfJustify +#define Tk_NameOfJustify(justify) \ + (tkStubsPtr->tk_NameOfJustify)(justify) /* 139 */ +#endif +#ifndef Tk_NameOfRelief +#define Tk_NameOfRelief(relief) \ + (tkStubsPtr->tk_NameOfRelief)(relief) /* 140 */ +#endif +#ifndef Tk_NameToWindow +#define Tk_NameToWindow(interp, pathName, tkwin) \ + (tkStubsPtr->tk_NameToWindow)(interp, pathName, tkwin) /* 141 */ +#endif +#ifndef Tk_OwnSelection +#define Tk_OwnSelection(tkwin, selection, proc, clientData) \ + (tkStubsPtr->tk_OwnSelection)(tkwin, selection, proc, clientData) /* 142 */ +#endif +#ifndef Tk_ParseArgv +#define Tk_ParseArgv(interp, tkwin, argcPtr, argv, argTable, flags) \ + (tkStubsPtr->tk_ParseArgv)(interp, tkwin, argcPtr, argv, argTable, flags) /* 143 */ +#endif +#ifndef Tk_PhotoPutBlock +#define Tk_PhotoPutBlock(handle, blockPtr, x, y, width, height) \ + (tkStubsPtr->tk_PhotoPutBlock)(handle, blockPtr, x, y, width, height) /* 144 */ +#endif +#ifndef Tk_PhotoPutZoomedBlock +#define Tk_PhotoPutZoomedBlock(handle, blockPtr, x, y, width, height, zoomX, zoomY, subsampleX, subsampleY) \ + (tkStubsPtr->tk_PhotoPutZoomedBlock)(handle, blockPtr, x, y, width, height, zoomX, zoomY, subsampleX, subsampleY) /* 145 */ +#endif +#ifndef Tk_PhotoGetImage +#define Tk_PhotoGetImage(handle, blockPtr) \ + (tkStubsPtr->tk_PhotoGetImage)(handle, blockPtr) /* 146 */ +#endif +#ifndef Tk_PhotoBlank +#define Tk_PhotoBlank(handle) \ + (tkStubsPtr->tk_PhotoBlank)(handle) /* 147 */ +#endif +#ifndef Tk_PhotoExpand +#define Tk_PhotoExpand(handle, width, height) \ + (tkStubsPtr->tk_PhotoExpand)(handle, width, height) /* 148 */ +#endif +#ifndef Tk_PhotoGetSize +#define Tk_PhotoGetSize(handle, widthPtr, heightPtr) \ + (tkStubsPtr->tk_PhotoGetSize)(handle, widthPtr, heightPtr) /* 149 */ +#endif +#ifndef Tk_PhotoSetSize +#define Tk_PhotoSetSize(handle, width, height) \ + (tkStubsPtr->tk_PhotoSetSize)(handle, width, height) /* 150 */ +#endif +#ifndef Tk_PointToChar +#define Tk_PointToChar(layout, x, y) \ + (tkStubsPtr->tk_PointToChar)(layout, x, y) /* 151 */ +#endif +#ifndef Tk_PostscriptFontName +#define Tk_PostscriptFontName(tkfont, dsPtr) \ + (tkStubsPtr->tk_PostscriptFontName)(tkfont, dsPtr) /* 152 */ +#endif +#ifndef Tk_PreserveColormap +#define Tk_PreserveColormap(display, colormap) \ + (tkStubsPtr->tk_PreserveColormap)(display, colormap) /* 153 */ +#endif +#ifndef Tk_QueueWindowEvent +#define Tk_QueueWindowEvent(eventPtr, position) \ + (tkStubsPtr->tk_QueueWindowEvent)(eventPtr, position) /* 154 */ +#endif +#ifndef Tk_RedrawImage +#define Tk_RedrawImage(image, imageX, imageY, width, height, drawable, drawableX, drawableY) \ + (tkStubsPtr->tk_RedrawImage)(image, imageX, imageY, width, height, drawable, drawableX, drawableY) /* 155 */ +#endif +#ifndef Tk_ResizeWindow +#define Tk_ResizeWindow(tkwin, width, height) \ + (tkStubsPtr->tk_ResizeWindow)(tkwin, width, height) /* 156 */ +#endif +#ifndef Tk_RestackWindow +#define Tk_RestackWindow(tkwin, aboveBelow, other) \ + (tkStubsPtr->tk_RestackWindow)(tkwin, aboveBelow, other) /* 157 */ +#endif +#ifndef Tk_RestrictEvents +#define Tk_RestrictEvents(proc, arg, prevArgPtr) \ + (tkStubsPtr->tk_RestrictEvents)(proc, arg, prevArgPtr) /* 158 */ +#endif +#ifndef Tk_SafeInit +#define Tk_SafeInit(interp) \ + (tkStubsPtr->tk_SafeInit)(interp) /* 159 */ +#endif +#ifndef Tk_SetAppName +#define Tk_SetAppName(tkwin, name) \ + (tkStubsPtr->tk_SetAppName)(tkwin, name) /* 160 */ +#endif +#ifndef Tk_SetBackgroundFromBorder +#define Tk_SetBackgroundFromBorder(tkwin, border) \ + (tkStubsPtr->tk_SetBackgroundFromBorder)(tkwin, border) /* 161 */ +#endif +#ifndef Tk_SetClass +#define Tk_SetClass(tkwin, className) \ + (tkStubsPtr->tk_SetClass)(tkwin, className) /* 162 */ +#endif +#ifndef Tk_SetGrid +#define Tk_SetGrid(tkwin, reqWidth, reqHeight, gridWidth, gridHeight) \ + (tkStubsPtr->tk_SetGrid)(tkwin, reqWidth, reqHeight, gridWidth, gridHeight) /* 163 */ +#endif +#ifndef Tk_SetInternalBorder +#define Tk_SetInternalBorder(tkwin, width) \ + (tkStubsPtr->tk_SetInternalBorder)(tkwin, width) /* 164 */ +#endif +#ifndef Tk_SetWindowBackground +#define Tk_SetWindowBackground(tkwin, pixel) \ + (tkStubsPtr->tk_SetWindowBackground)(tkwin, pixel) /* 165 */ +#endif +#ifndef Tk_SetWindowBackgroundPixmap +#define Tk_SetWindowBackgroundPixmap(tkwin, pixmap) \ + (tkStubsPtr->tk_SetWindowBackgroundPixmap)(tkwin, pixmap) /* 166 */ +#endif +#ifndef Tk_SetWindowBorder +#define Tk_SetWindowBorder(tkwin, pixel) \ + (tkStubsPtr->tk_SetWindowBorder)(tkwin, pixel) /* 167 */ +#endif +#ifndef Tk_SetWindowBorderWidth +#define Tk_SetWindowBorderWidth(tkwin, width) \ + (tkStubsPtr->tk_SetWindowBorderWidth)(tkwin, width) /* 168 */ +#endif +#ifndef Tk_SetWindowBorderPixmap +#define Tk_SetWindowBorderPixmap(tkwin, pixmap) \ + (tkStubsPtr->tk_SetWindowBorderPixmap)(tkwin, pixmap) /* 169 */ +#endif +#ifndef Tk_SetWindowColormap +#define Tk_SetWindowColormap(tkwin, colormap) \ + (tkStubsPtr->tk_SetWindowColormap)(tkwin, colormap) /* 170 */ +#endif +#ifndef Tk_SetWindowVisual +#define Tk_SetWindowVisual(tkwin, visual, depth, colormap) \ + (tkStubsPtr->tk_SetWindowVisual)(tkwin, visual, depth, colormap) /* 171 */ +#endif +#ifndef Tk_SizeOfBitmap +#define Tk_SizeOfBitmap(display, bitmap, widthPtr, heightPtr) \ + (tkStubsPtr->tk_SizeOfBitmap)(display, bitmap, widthPtr, heightPtr) /* 172 */ +#endif +#ifndef Tk_SizeOfImage +#define Tk_SizeOfImage(image, widthPtr, heightPtr) \ + (tkStubsPtr->tk_SizeOfImage)(image, widthPtr, heightPtr) /* 173 */ +#endif +#ifndef Tk_StrictMotif +#define Tk_StrictMotif(tkwin) \ + (tkStubsPtr->tk_StrictMotif)(tkwin) /* 174 */ +#endif +#ifndef Tk_TextLayoutToPostscript +#define Tk_TextLayoutToPostscript(interp, layout) \ + (tkStubsPtr->tk_TextLayoutToPostscript)(interp, layout) /* 175 */ +#endif +#ifndef Tk_TextWidth +#define Tk_TextWidth(font, string, numChars) \ + (tkStubsPtr->tk_TextWidth)(font, string, numChars) /* 176 */ +#endif +#ifndef Tk_UndefineCursor +#define Tk_UndefineCursor(window) \ + (tkStubsPtr->tk_UndefineCursor)(window) /* 177 */ +#endif +#ifndef Tk_UnderlineChars +#define Tk_UnderlineChars(display, drawable, gc, tkfont, source, x, y, firstChar, lastChar) \ + (tkStubsPtr->tk_UnderlineChars)(display, drawable, gc, tkfont, source, x, y, firstChar, lastChar) /* 178 */ +#endif +#ifndef Tk_UnderlineTextLayout +#define Tk_UnderlineTextLayout(display, drawable, gc, layout, x, y, underline) \ + (tkStubsPtr->tk_UnderlineTextLayout)(display, drawable, gc, layout, x, y, underline) /* 179 */ +#endif +#ifndef Tk_Ungrab +#define Tk_Ungrab(tkwin) \ + (tkStubsPtr->tk_Ungrab)(tkwin) /* 180 */ +#endif +#ifndef Tk_UnmaintainGeometry +#define Tk_UnmaintainGeometry(slave, master) \ + (tkStubsPtr->tk_UnmaintainGeometry)(slave, master) /* 181 */ +#endif +#ifndef Tk_UnmapWindow +#define Tk_UnmapWindow(tkwin) \ + (tkStubsPtr->tk_UnmapWindow)(tkwin) /* 182 */ +#endif +#ifndef Tk_UnsetGrid +#define Tk_UnsetGrid(tkwin) \ + (tkStubsPtr->tk_UnsetGrid)(tkwin) /* 183 */ +#endif +#ifndef Tk_UpdatePointer +#define Tk_UpdatePointer(tkwin, x, y, state) \ + (tkStubsPtr->tk_UpdatePointer)(tkwin, x, y, state) /* 184 */ +#endif + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKDECLS */ + diff --git a/generic/tkGrab.c b/generic/tkGrab.c index bbb4f65..b013a63 100644 --- a/generic/tkGrab.c +++ b/generic/tkGrab.c @@ -9,12 +9,16 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkGrab.c,v 1.2 1998/09/14 18:23:11 stanton Exp $ + * RCS: @(#) $Id: tkGrab.c,v 1.3 1999/03/10 07:04:39 stanton Exp $ */ #include "tkPort.h" #include "tkInt.h" +#if !defined(__WIN32__) && !defined(MAC_TCL) +#include "tkUnixInt.h" +#endif + /* * The grab state machine has four states: ungrabbed, button pressed, * grabbed, and button pressed while grabbed. In addition, there are diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c index 6ae07f6..285f1df 100644 --- a/generic/tkImgPhoto.c +++ b/generic/tkImgPhoto.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkImgPhoto.c,v 1.4 1999/02/04 21:43:14 stanton Exp $ + * RCS: @(#) $Id: tkImgPhoto.c,v 1.5 1999/03/10 07:04:39 stanton Exp $ */ #include "tkInt.h" @@ -19,6 +19,10 @@ #include "tclMath.h" #include +#ifdef __WIN32__ +#include "tkWinInt.h" +#endif + /* * Declaration for internal Xlib function used here: */ @@ -121,6 +125,9 @@ typedef struct ColorTable { * MAP_COLORS: 1 means pixel values should be mapped * through pixelMap. */ +#ifdef COLOR_WINDOW +#undef COLOR_WINDOW +#endif #define BLACK_AND_WHITE 1 #define COLOR_WINDOW 2 diff --git a/generic/tkInt.decls b/generic/tkInt.decls new file mode 100644 index 0000000..b3b50a4 --- /dev/null +++ b/generic/tkInt.decls @@ -0,0 +1,1577 @@ +# tkInt.decls -- +# +# This file contains the declarations for all unsupported +# functions that are exported by the Tk library. This file +# is used to generate the tkIntDecls.h, tkIntPlatDecls.h, +# tkIntStub.c, and tkPlatStub.c files. +# +# Copyright (c) 1998-1999 by Scriptics Corporation. +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# RCS: @(#) $Id: tkInt.decls,v 1.2 1999/03/10 07:04:40 stanton Exp $ + +library tk + +# Define the unsupported generic interfaces. + +interface tkInt + +# Declare each of the functions in the unsupported internal Tcl +# interface. These interfaces are allowed to changed between versions. +# Use at your own risk. Note that the position of functions should not +# be changed between versions to avoid gratuitous incompatibilities. + +declare 0 generic { + TkWindow * TkAllocWindow (TkDisplay *dispPtr, int screenNum, \ + TkWindow *parentPtr) +} + +declare 1 generic { + void TkBezierPoints (double control[], int numSteps, double *coordPtr) +} + +declare 2 generic { + void TkBezierScreenPoints (Tk_Canvas canvas, double control[], \ + int numSteps, XPoint *xPointPtr) +} + +declare 3 generic { + void TkBindDeadWindow (TkWindow *winPtr) +} + +declare 4 generic { + void TkBindEventProc (TkWindow *winPtr, XEvent *eventPtr) +} + +declare 5 generic { + void TkBindFree (TkMainInfo *mainPtr) +} + +declare 6 generic { + void TkBindInit (TkMainInfo *mainPtr) +} + +declare 7 generic { + void TkChangeEventWindow (XEvent *eventPtr, TkWindow *winPtr) +} + +declare 8 generic { + int TkClipInit (Tcl_Interp *interp, TkDisplay *dispPtr) +} + +declare 9 generic { + void TkComputeAnchor (Tk_Anchor anchor, Tk_Window tkwin, \ + int padX, int padY, int innerWidth, int innerHeight, \ + int *xPtr, int *yPtr) +} + +declare 10 generic { + int TkCopyAndGlobalEval (Tcl_Interp *interp, char *script) +} + +declare 11 generic { + unsigned long TkCreateBindingProcedure (Tcl_Interp *interp, \ + Tk_BindingTable bindingTable, \ + ClientData object, char *eventString, \ + TkBindEvalProc *evalProc, TkBindFreeProc *freeProc, \ + ClientData clientData) +} + +declare 12 generic { + TkCursor * TkCreateCursorFromData (Tk_Window tkwin, \ + char *source, char *mask, int width, int height, \ + int xHot, int yHot, XColor fg, XColor bg) +} + +declare 13 generic { + int TkCreateFrame (ClientData clientData, \ + Tcl_Interp *interp, int argc, char **argv, \ + int toplevel, char *appName) +} + +declare 14 generic { + Tk_Window TkCreateMainWindow (Tcl_Interp *interp, \ + char *screenName, char *baseName) +} + +declare 15 generic { + Time TkCurrentTime (TkDisplay *dispPtr) +} + +declare 16 generic { + void TkDeleteAllImages (TkMainInfo *mainPtr) +} + +declare 17 generic { + void TkDoConfigureNotify (TkWindow *winPtr) +} + +declare 18 generic { + void TkDrawInsetFocusHighlight (Tk_Window tkwin, GC gc, int width, \ + Drawable drawable, int padding) +} + +declare 19 generic { + void TkEventDeadWindow (TkWindow *winPtr) +} + +declare 20 generic { + void TkFillPolygon (Tk_Canvas canvas, \ + double *coordPtr, int numPoints, Display *display, \ + Drawable drawable, GC gc, GC outlineGC) +} + +declare 21 generic { + int TkFindStateNum (Tcl_Interp *interp, \ + CONST char *option, CONST TkStateMap *mapPtr, \ + CONST char *strKey) +} + +declare 22 generic { + char * TkFindStateString (CONST TkStateMap *mapPtr, int numKey) +} + +declare 23 generic { + void TkFocusDeadWindow (TkWindow *winPtr) +} + +declare 24 generic { + int TkFocusFilterEvent (TkWindow *winPtr, XEvent *eventPtr) +} + +declare 25 generic { + TkWindow * TkFocusKeyEvent (TkWindow *winPtr, XEvent *eventPtr) +} + +declare 26 generic { + void TkFontPkgInit (TkMainInfo *mainPtr) +} + +declare 27 generic { + void TkFontPkgFree (TkMainInfo *mainPtr) +} + +declare 28 generic { + void TkFreeBindingTags (TkWindow *winPtr) +} + +declare 29 generic { + void TkFreeCursor (TkCursor *cursorPtr) +} + +declare 30 generic { + char * TkGetBitmapData (Tcl_Interp *interp, \ + char *string, char *fileName, int *widthPtr, \ + int *heightPtr, int *hotXPtr, int *hotYPtr) +} + +declare 31 generic { + void TkGetButtPoints (double p1[], double p2[], \ + double width, int project, double m1[], double m2[]) +} + +declare 32 generic { + TkCursor * TkGetCursorByName (Tcl_Interp *interp, \ + Tk_Window tkwin, Tk_Uid string) +} + +declare 33 generic { + char * TkGetDefaultScreenName (Tcl_Interp *interp, char *screenName) +} + +declare 34 generic { + TkDisplay * TkGetDisplay (Display *display) +} + +declare 35 generic { + int TkGetDisplayOf (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \ + Tk_Window *tkwinPtr) +} + +declare 36 generic { + TkWindow * TkGetFocusWin (TkWindow *winPtr) +} + +declare 37 generic { + int TkGetInterpNames (Tcl_Interp *interp, Tk_Window tkwin) +} + +declare 38 generic { + int TkGetMiterPoints (double p1[], double p2[], double p3[], \ + double width, double m1[],double m2[]) +} + +declare 39 generic { + void TkGetPointerCoords (Tk_Window tkwin, int *xPtr, int *yPtr) +} + +declare 40 generic { + void TkGetServerInfo (Tcl_Interp *interp, Tk_Window tkwin) +} + +declare 41 generic { + void TkGrabDeadWindow (TkWindow *winPtr) +} + +declare 42 generic { + int TkGrabState (TkWindow *winPtr) +} + +declare 43 generic { + void TkIncludePoint (Tk_Item *itemPtr, double *pointPtr) +} + +declare 44 generic { + void TkInOutEvents (XEvent *eventPtr, TkWindow *sourcePtr, \ + TkWindow *destPtr, int leaveType, int enterType, \ + Tcl_QueuePosition position) +} + +declare 45 generic { + void TkInstallFrameMenu (Tk_Window tkwin) +} + +declare 46 generic { + char * TkKeysymToString (KeySym keysym) +} + +declare 47 generic { + int TkLineToArea (TkDouble2 end1Ptr, TkDouble2 end2Ptr, TkDouble4 rectPtr) +} + +declare 48 generic { + double TkLineToPoint (double end1Ptr[], \ + TkDouble2 end2Ptr, TkDouble2 pointPtr) +} + +declare 49 generic { + int TkMakeBezierCurve (Tk_Canvas canvas, \ + double *pointPtr, int numPoints, int numSteps, \ + XPoint xPoints[], double dblPoints[]) +} + +declare 50 generic { + void TkMakeBezierPostscript (Tcl_Interp *interp, \ + Tk_Canvas canvas, double *pointPtr, int numPoints) +} + +declare 51 generic { + void TkOptionClassChanged (TkWindow *winPtr) +} + +declare 52 generic { + void TkOptionDeadWindow (TkWindow *winPtr) +} + +declare 53 generic { + int TkOvalToArea (double *ovalPtr, double *rectPtr) +} + +declare 54 generic { + double TkOvalToPoint (TkDouble4 ovalPtr, \ + double width, int filled, TkDouble2 pointPtr) +} + +declare 55 generic { + int TkpChangeFocus (TkWindow *winPtr, int force) +} + +declare 56 generic { + void TkpCloseDisplay (TkDisplay *dispPtr) +} + +declare 57 generic { + void TkpClaimFocus (TkWindow *topLevelPtr, int force) +} + +declare 58 generic { + void TkpDisplayWarning (char *msg, char *title) +} + +declare 59 generic { + void TkpGetAppName (Tcl_Interp *interp, Tcl_DString *name) +} + +declare 60 generic { + TkWindow * TkpGetOtherWindow (TkWindow *winPtr) +} + +declare 61 generic { + TkWindow * TkpGetWrapperWindow (TkWindow *winPtr) +} + +declare 62 generic { + int TkpInit (Tcl_Interp *interp) +} + +declare 63 generic { + void TkpInitializeMenuBindings (Tcl_Interp *interp, \ + Tk_BindingTable bindingTable) +} + +declare 64 generic { + void TkpMakeContainer (Tk_Window tkwin) +} + +declare 65 generic { + void TkpMakeMenuWindow (Tk_Window tkwin, int transient) +} + +declare 66 generic { + Window TkpMakeWindow (TkWindow *winPtr, Window parent) +} + +declare 67 generic { + void TkpMenuNotifyToplevelCreate (Tcl_Interp *interp1, char *menuName) +} + +declare 68 generic { + TkDisplay * TkpOpenDisplay (char *display_name) +} + +declare 69 generic { + int TkPointerEvent (XEvent *eventPtr, TkWindow *winPtr) +} + +declare 70 generic { + int TkPolygonToArea (double *polyPtr, int numPoints, double *rectPtr) +} + +declare 71 generic { + double TkPolygonToPoint (double *polyPtr, int numPoints, double *pointPtr) +} + +declare 72 generic { + int TkPositionInTree (TkWindow *winPtr, TkWindow *treePtr) +} + +declare 73 generic { + void TkpRedirectKeyEvent (TkWindow *winPtr, XEvent *eventPtr) +} + +declare 74 generic { + void TkpSetMainMenubar (Tcl_Interp *interp, \ + Tk_Window tkwin, char *menuName) +} + +declare 75 generic { + int TkpUseWindow (Tcl_Interp *interp, Tk_Window tkwin, char *string) +} + +declare 76 generic { + int TkpWindowWasRecentlyDeleted (Window win, TkDisplay *dispPtr) +} + +declare 77 generic { + void TkQueueEventForAllChildren (TkWindow *winPtr, XEvent *eventPtr) +} + +declare 78 generic { + int TkReadBitmapFile (Display* display, Drawable d, CONST char* filename, \ + unsigned int* width_return, unsigned int* height_return, \ + Pixmap* bitmap_return, int* x_hot_return, int* y_hot_return) +} + +declare 79 generic { + int TkScrollWindow (Tk_Window tkwin, GC gc, \ + int x, int y, int width, int height, int dx, \ + int dy, TkRegion damageRgn) +} + +declare 80 generic { + void TkSelDeadWindow (TkWindow *winPtr) +} + +declare 81 generic { + void TkSelEventProc (Tk_Window tkwin, XEvent *eventPtr) +} + +declare 82 generic { + void TkSelInit (Tk_Window tkwin) +} + +declare 83 generic { + void TkSelPropProc (XEvent *eventPtr) +} + +declare 84 generic { + void TkSetClassProcs (Tk_Window tkwin, \ + TkClassProcs *procs, ClientData instanceData) +} + +declare 85 generic { + void TkSetWindowMenuBar (Tcl_Interp *interp, \ + Tk_Window tkwin, char *oldMenuName, char *menuName) +} + +declare 86 generic { + KeySym TkStringToKeysym (char *name) +} + +declare 87 generic { + int TkThickPolyLineToArea (double *coordPtr, \ + int numPoints, double width, int capStyle, \ + int joinStyle, double *rectPtr) +} + +declare 88 generic { + void TkWmAddToColormapWindows (TkWindow *winPtr) +} + +declare 89 generic { + void TkWmDeadWindow (TkWindow *winPtr) +} + +declare 90 generic { + TkWindow * TkWmFocusToplevel (TkWindow *winPtr) +} + +declare 91 generic { + void TkWmMapWindow (TkWindow *winPtr) +} + +declare 92 generic { + void TkWmNewWindow (TkWindow *winPtr) +} + +declare 93 generic { + void TkWmProtocolEventProc (TkWindow *winPtr, XEvent *evenvPtr) +} + +declare 94 generic { + void TkWmRemoveFromColormapWindows (TkWindow *winPtr) +} + +declare 95 generic { + void TkWmRestackToplevel (TkWindow *winPtr, int aboveBelow, \ + TkWindow *otherPtr) +} + +declare 96 generic { + void TkWmSetClass (TkWindow *winPtr) +} + +declare 97 generic { + void TkWmUnmapWindow (TkWindow *winPtr) +} + + +############################################################################## + +# Define the platform specific internal Tcl interface. These functions are +# only available on the designated platform. + +interface tkIntPlat + +######################### +# Unix specific functions + +declare 0 unix { + void TkCreateXEventSource (void) +} + +declare 1 unix { + void TkFreeWindowId (TkDisplay *dispPtr, Window w) +} + +declare 2 unix { + void TkInitXId (TkDisplay *dispPtr) +} + +declare 3 unix { + int TkpCmapStressed (Tk_Window tkwin, Colormap colormap)} + + +declare 4 unix { + void TkpSync (Display *display) +} + +declare 5 unix { + Window TkUnixContainerId (TkWindow *winPtr) +} + +declare 6 unix { + int TkUnixDoOneXEvent (Tcl_Time *timePtr) +} + +declare 7 unix { + void TkUnixSetMenubar (Tk_Window tkwin, Tk_Window menubar) +} + + + +############################ +# Windows specific functions + +declare 0 win { + char * TkAlignImageData (XImage *image, int alignment, int bitOrder) +} + +declare 1 win { + void TkClipBox (TkRegion rgn, XRectangle* rect_return) +} + +declare 2 win { + TkRegion TkCreateRegion (void) +} + +declare 3 win { + void TkDestroyRegion (TkRegion rgn) +} + +declare 4 win { + void TkGenerateActivateEvents (TkWindow *winPtr, int active) +} + +declare 5 win { + void TkIntersectRegion (TkRegion sra, TkRegion srcb, TkRegion dr_return) +} + +declare 6 win { + unsigned long TkpGetMS (void) +} + +declare 7 win { + void TkPointerDeadWindow (TkWindow *winPtr) +} + +declare 8 win { + void TkpPrintWindowId (char *buf, Window window) +} + +declare 9 win { + int TkpScanWindowId (Tcl_Interp *interp, char *string, int *idPtr) +} + +declare 10 win { + void TkpSetCapture (TkWindow *winPtr) +} + +declare 11 win { + void TkpSetCursor (TkpCursor cursor) +} + +declare 12 win { + void TkpWmSetState (TkWindow *winPtr, int state) +} + +declare 13 win { + int TkRectInRegion (TkRegion rgn, int x, int y, unsigned int width, \ + unsigned int height) +} + +declare 14 win { + void TkSetPixmapColormap (Pixmap pixmap, Colormap colormap) +} + +declare 15 win { + void TkSetRegion (Display* display, GC gc, TkRegion rgn) +} + +declare 16 win { + void TkUnionRectWithRegion (XRectangle* rect, \ + TkRegion src, TkRegion dr_return) +} + +declare 17 win { + void TkWinCancelMouseTimer (void) +} + +declare 18 win { + void TkWinClipboardRender (TkDisplay *dispPtr, UINT format) +} + +declare 19 win { + LRESULT TkWinEmbeddedEventProc (HWND hwnd, UINT message, \ + WPARAM wParam, LPARAM lParam) +} + +declare 20 win { + void TkWinFillRect (HDC dc, int x, int y, int width, int height, \ + int pixel) +} + +declare 21 win { + COLORREF TkWinGetBorderPixels (Tk_Window tkwin, Tk_3DBorder border, \ + int which) +} + +declare 22 win { + HDC TkWinGetDrawableDC (Display *display, Drawable d, TkWinDCState* state) +} + +declare 23 win { + int TkWinGetModifierState (void) +} + +declare 24 win { + HPALETTE TkWinGetSystemPalette (void) +} + +declare 25 win { + HWND TkWinGetWrapperWindow (Tk_Window tkwin) +} + +declare 26 win { + int TkWinHandleMenuEvent (HWND *phwnd, \ + UINT *pMessage, WPARAM *pwParam, LPARAM *plParam, \ + LRESULT *plResult) +} + +declare 27 win { + int TkWinIndexOfColor (XColor *colorPtr) +} + +declare 28 win { + void TkWinReleaseDrawableDC (Drawable d, HDC hdc, TkWinDCState* state) +} + +declare 29 win { + LRESULT TkWinResendEvent (WNDPROC wndproc, HWND hwnd, XEvent *eventPtr) +} + +declare 30 win { + HPALETTE TkWinSelectPalette (HDC dc, Colormap colormap) +} + +declare 31 win { + void TkWinSetMenu (Tk_Window tkwin, HMENU hMenu) +} + +declare 32 win { + void TkWinSetWindowPos (HWND hwnd, HWND siblingHwnd, int pos) +} + +declare 33 win { + void TkWinWmCleanup (HINSTANCE hInstance) +} + +declare 34 win { + void TkWinXCleanup (HINSTANCE hInstance) +} + +declare 35 win { + void TkWinXInit (HINSTANCE hInstance) +} + + +######################## +# Mac specific functions + +declare 0 mac { + void TkClipBox (TkRegion rgn, XRectangle* rect_return) +} + +declare 1 mac { + TkRegion TkCreateRegion (void) +} + +declare 2 mac { + void TkDestroyRegion (TkRegion rgn) +} + +declare 3 mac { + void TkGenerateActivateEvents (TkWindow *winPtr, int active) +} + +declare 4 mac { + void TkIntersectRegion (TkRegion sra, TkRegion srcb, TkRegion dr_return) +} + +declare 5 mac { + Pixmap TkpCreateNativeBitmap (Display *display, char * source) +} + +declare 6 mac { + void TkpDefineNativeBitmaps (void) +} + +declare 7 mac { + unsigned long TkpGetMS (void) +} + +declare 8 mac { + Pixmap TkpGetNativeAppBitmap (Display *display, \ + char *name, int *width, int *height) +} + +declare 9 mac { + void TkPointerDeadWindow (TkWindow *winPtr) +} + +declare 10 mac { + void TkpSetCapture (TkWindow *winPtr) +} + +declare 11 mac { + void TkpSetCursor (TkpCursor cursor) +} + +declare 12 mac { + void TkpWmSetState (TkWindow *winPtr, int state) +} + +declare 13 mac { + int TkRectInRegion (TkRegion rgn, int x, int y, unsigned int width, \ + unsigned int height) +} + +declare 14 mac { + void TkSetRegion (Display* display, GC gc, TkRegion rgn) +} + +declare 15 mac { + void TkUnionRectWithRegion (XRectangle* rect, \ + TkRegion src, TkRegion dr_return) +} + +declare 16 mac { + int HandleWMEvent (EventRecord *theEvent) +} + +declare 17 mac { + void TkAboutDlg (void) +} + +declare 18 mac { + void TkCreateMacEventSource (void) +} + +declare 19 mac { + void TkFontList (Tcl_Interp *interp, Display *display) +} + +declare 20 mac { + Window TkGetTransientMaster (TkWindow *winPtr) +} + +declare 21 mac { + int TkGenerateButtonEvent (int x, int y, \ + Window window, unsigned int state) +} + +declare 22 mac { + int TkGetCharPositions (XFontStruct *font_struct, char *string, \ + int count, short *buffer) +} + +declare 23 mac { + void TkGenWMDestroyEvent (Tk_Window tkwin) +} + +declare 24 mac { + void TkGenWMConfigureEvent (Tk_Window tkwin, int x, int y, \ + int width, int height, int flags) +} + +declare 25 mac { + unsigned int TkMacButtonKeyState (void) +} + +declare 26 mac { + void TkMacClearMenubarActive (void) +} + +declare 27 mac { + int TkMacConvertEvent (EventRecord *eventPtr) +} + +declare 28 mac { + int TkMacDispatchMenuEvent (int menuID, int index) +} + +declare 29 mac { + void TkMacInstallCursor (int resizeOverride) +} + +declare 30 mac { + int TkMacConvertTkEvent (EventRecord *eventPtr, Window window) +} + +declare 31 mac { + void TkMacHandleTearoffMenu (void) +} + +declare 32 mac { + void tkMacInstallMWConsole (Tcl_Interp *interp) +} + +declare 33 mac { + void TkMacInvalClipRgns (TkWindow *winPtr) +} + +declare 34 mac { + void TkMacDoHLEvent (EventRecord *theEvent) +} + +declare 35 mac { + void TkMacFontInfo (Font fontId, short *family, \ + short *style, short *size) +} + +declare 36 mac { + Time TkMacGenerateTime (void) +} + +declare 37 mac { + GWorldPtr TkMacGetDrawablePort (Drawable drawable) +} + +declare 38 mac { + TkWindow * TkMacGetScrollbarGrowWindow (TkWindow *winPtr) +} + +declare 39 mac { + Window TkMacGetXWindow (WindowRef macWinPtr) +} + +declare 40 mac { + int TkMacGrowToplevel (WindowRef whichWindow, Point start) +} + +declare 41 mac { + void TkMacHandleMenuSelect (long mResult, int optionKeyPressed) +} + +declare 42 mac { + int TkMacHaveAppearance (void) +} + +declare 43 mac { + void TkMacInitAppleEvents (Tcl_Interp *interp) +} + +declare 44 mac { + void TkMacInitMenus (Tcl_Interp *interp) +} + +declare 45 mac { + void TkMacInvalidateWindow (MacDrawable *macWin, int flag) +} + +declare 46 mac { + int TkMacIsCharacterMissing (Tk_Font tkfont, unsigned int searchChar) +} + +declare 47 mac { + void TkMacMakeRealWindowExist (TkWindow *winPtr) +} + +declare 48 mac { + BitMapPtr TkMacMakeStippleMap(Drawable d1, Drawable d2) +} + +declare 49 mac { + void TkMacMenuClick (void) +} + +declare 50 mac { + void TkMacRegisterOffScreenWindow (Window window, GWorldPtr portPtr) +} + +declare 51 mac { + int TkMacResizable (TkWindow *winPtr) +} + +declare 52 mac { + void TkMacSetEmbedRgn (TkWindow *winPtr, RgnHandle rgn) +} + +declare 53 mac { + void TkMacSetHelpMenuItemCount (void) +} + +declare 54 mac { + void TkMacSetScrollbarGrow (TkWindow *winPtr, int flag) +} + +declare 55 mac { + void TkMacSetUpClippingRgn (Drawable drawable) +} + +declare 56 mac { + void TkMacSetUpGraphicsPort (GC gc) +} + +declare 57 mac { + void TkMacUpdateClipRgn (TkWindow *winPtr) +} + +declare 58 mac { + void TkMacUnregisterMacWindow (GWorldPtr portPtr) +} + +declare 59 mac { + int TkMacUseMenuID (short macID) +} + +declare 60 mac { + RgnHandle TkMacVisableClipRgn (TkWindow *winPtr) +} + +declare 61 mac { + void TkMacWinBounds (TkWindow *winPtr, Rect *geometry) +} + +declare 62 mac { + void TkMacWindowOffset (WindowRef wRef, int *xOffset, int *yOffset) +} + +declare 63 mac { + void TkResumeClipboard (void) +} + +declare 64 mac { + int TkSetMacColor (unsigned long pixel, RGBColor *macColor) +} + +declare 65 mac { + void TkSetWMName (TkWindow *winPtr, Tk_Uid titleUid) +} + +declare 66 mac { + void TkSuspendClipboard (void) +} + +declare 67 mac { + int TkWMGrowToplevel (WindowRef whichWindow, Point start) +} + +declare 68 mac { + int TkMacZoomToplevel (WindowPtr whichWindow, Point where, short zoomPart) +} + +declare 69 mac { + Tk_Window Tk_TopCoordsToWindow (Tk_Window tkwin, \ + int rootX, int rootY, int *newX, int *newY) +} + +declare 70 mac { + MacDrawable * TkMacContainerId (TkWindow *winPtr) +} + +declare 71 mac { + MacDrawable * TkMacGetHostToplevel (TkWindow *winPtr) +} + + +############################################################################## + +# Define the platform specific internal Xlib interfaces. These functions are +# only available on the designated platform. + +interface tkIntXlib + +# X functions for Windows + +declare 0 win { + XModifierKeymap* XGetModifierMapping (Display* d) +} + +declare 1 win { + XImage * XCreateImage (Display* d, Visual* v, unsigned int ui1, int i1, \ + int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, \ + int i4) + +} + +declare 2 win { + XImage *XGetImage (Display* d, Drawable dr, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, unsigned long ul, int i3) +} + +declare 3 win { + char *XGetAtomName (Display* d,Atom a) + +} + +declare 4 win { + char *XKeysymToString (KeySym k) +} + +declare 5 win { + Colormap XCreateColormap (Display* d, Window w, Visual* v, int i) + +} + +declare 6 win { + Cursor XCreatePixmapCursor (Display* d, Pixmap p1, Pixmap p2, \ + XColor* x1, XColor* x2, \ + unsigned int ui1, unsigned int ui2) +} + +declare 7 win { + Cursor XCreateGlyphCursor (Display* d, Font f1, Font f2, \ + unsigned int ui1, unsigned int ui2, XColor* x1, XColor* x2) +} + +declare 8 win { + GContext XGContextFromGC (GC g) +} + +declare 9 win { + XHostAddress *XListHosts (Display* d, int* i, Bool* b) +} + +# second parameter was of type KeyCode +declare 10 win { + KeySym XKeycodeToKeysym (Display* d, unsigned int k, int i) +} + +declare 11 win { + KeySym XStringToKeysym (_Xconst char* c) +} + +declare 12 win { + Window XRootWindow (Display* d, int i) +} + +declare 13 win { + XErrorHandler XSetErrorHandler (XErrorHandler x) +} + +declare 14 win { + Status XIconifyWindow (Display* d, Window w, int i) +} + +declare 15 win { + Status XWithdrawWindow (Display* d, Window w, int i) +} + +declare 16 win { + Status XGetWMColormapWindows (Display* d, Window w, Window** wpp, int* ip) +} + +declare 17 win { + Status XAllocColor (Display* d, Colormap c, XColor* xp) +} + +declare 18 win { + void XBell (Display* d, int i) +} + +declare 19 win { + void XChangeProperty (Display* d, Window w, Atom a1, Atom a2, int i1, \ + int i2, _Xconst unsigned char* c, int i3) +} + +declare 20 win { + void XChangeWindowAttributes (Display* d, Window w, unsigned long ul, \ + XSetWindowAttributes* x) +} + +declare 21 win { + void XClearWindow (Display* d, Window w) +} + +declare 22 win { + void XConfigureWindow (Display* d, Window w, unsigned int i, \ + XWindowChanges* x) +} + +declare 23 win { + void XCopyArea (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \ + int i2, unsigned int ui1, \ + unsigned int ui2, int i3, int i4) +} + +declare 24 win { + void XCopyPlane (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \ + int i2, unsigned int ui1, \ + unsigned int ui2, int i3, int i4, unsigned long ul) +} + +declare 25 win { + void XDefineCursor (Display* d, Window w, Cursor c) +} + +declare 26 win { + void XDeleteProperty (Display* d, Window w, Atom a) +} + +declare 27 win { + void XDestroyWindow (Display* d, Window w) +} + +declare 28 win { + void XDrawArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 29 win { + void XDrawLines (Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2) +} + +declare 30 win { + void XDrawRectangle (Display* d, Drawable dr, GC g, int i1, int i2,\ + unsigned int ui1, unsigned int ui2) +} + +declare 31 win { + void XFillArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 32 win { + void XFillPolygon (Display* d, Drawable dr, GC g, XPoint* x, \ + int i1, int i2, int i3) +} + +declare 33 win { + void XFillRectangles (Display* d, Drawable dr, GC g, XRectangle* x, int i) +} + +declare 34 win { + void XForceScreenSaver (Display* d, int i) +} + +declare 35 win { + void XFreeColormap (Display* d, Colormap c) +} + +declare 36 win { + void XFreeColors (Display* d, Colormap c, \ + unsigned long* ulp, int i, unsigned long ul) +} + +declare 37 win { + void XFreeCursor (Display* d, Cursor c) +} + +declare 38 win { + void XFreeModifiermap (XModifierKeymap* x) +} + +declare 39 win { + Status XGetGeometry (Display* d, Drawable dr, Window* w, int* i1, \ + int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, \ + unsigned int* ui4) +} + +declare 40 win { + void XGetInputFocus (Display* d, Window* w, int* i) +} + +declare 41 win { + int XGetWindowProperty (Display* d, Window w, Atom a1, long l1, long l2, \ + Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, \ + unsigned long* ulp2, unsigned char** cpp) +} + +declare 42 win { + Status XGetWindowAttributes (Display* d, Window w, XWindowAttributes* x) +} + +declare 43 win { + int XGrabKeyboard (Display* d, Window w, Bool b, int i1, int i2, Time t) +} + +declare 44 win { + int XGrabPointer (Display* d, Window w1, Bool b, unsigned int ui, \ + int i1, int i2, Window w2, Cursor c, Time t) +} + +declare 45 win { + KeyCode XKeysymToKeycode (Display* d, KeySym k) +} + +declare 46 win { + Status XLookupColor (Display* d, Colormap c1, _Xconst char* c2, \ + XColor* x1, XColor* x2) +} + +declare 47 win { + void XMapWindow (Display* d, Window w) +} + +declare 48 win { + void XMoveResizeWindow (Display* d, Window w, int i1, int i2, \ + unsigned int ui1, unsigned int ui2) +} + +declare 49 win { + void XMoveWindow (Display* d, Window w, int i1, int i2) +} + +declare 50 win { + void XNextEvent (Display* d, XEvent* x) +} + +declare 51 win { + void XPutBackEvent (Display* d, XEvent* x) +} + +declare 52 win { + void XQueryColors (Display* d, Colormap c, XColor* x, int i) +} + +declare 53 win { + Bool XQueryPointer (Display* d, Window w1, Window* w2, Window* w3, \ + int* i1, int* i2, int* i3, int* i4, unsigned int* ui) +} + +declare 54 win { + Status XQueryTree (Display* d, Window w1, Window* w2, Window* w3, \ + Window** w4, unsigned int* ui) +} + +declare 55 win { + void XRaiseWindow (Display* d, Window w) +} + +declare 56 win { + void XRefreshKeyboardMapping (XMappingEvent* x) +} + +declare 57 win { + void XResizeWindow (Display* d, Window w, unsigned int ui1, \ + unsigned int ui2) +} + +declare 58 win { + void XSelectInput (Display* d, Window w, long l) +} + +declare 59 win { + Status XSendEvent (Display* d, Window w, Bool b, long l, XEvent* x) +} + +declare 60 win { + void XSetCommand (Display* d, Window w, char** c, int i) +} + +declare 61 win { + void XSetIconName (Display* d, Window w, _Xconst char* c) +} + +declare 62 win { + void XSetInputFocus (Display* d, Window w, int i, Time t) +} + +declare 63 win { + void XSetSelectionOwner (Display* d, Atom a, Window w, Time t) +} + +declare 64 win { + void XSetWindowBackground (Display* d, Window w, unsigned long ul) +} + +declare 65 win { + void XSetWindowBackgroundPixmap (Display* d, Window w, Pixmap p) +} + +declare 66 win { + void XSetWindowBorder (Display* d, Window w, unsigned long ul) +} + +declare 67 win { + void XSetWindowBorderPixmap (Display* d, Window w, Pixmap p) +} + +declare 68 win { + void XSetWindowBorderWidth (Display* d, Window w, unsigned int ui) +} + +declare 69 win { + void XSetWindowColormap (Display* d, Window w, Colormap c) +} + +declare 70 win { + Bool XTranslateCoordinates (Display* d, Window w1, Window w2, int i1,\ + int i2, int* i3, int* i4, Window* w3) +} + +declare 71 win { + void XUngrabKeyboard (Display* d, Time t) +} + +declare 72 win { + void XUngrabPointer (Display* d, Time t) +} + +declare 73 win { + void XUnmapWindow (Display* d, Window w) +} + +declare 74 win { + void XWindowEvent (Display* d, Window w, long l, XEvent* x) +} + +declare 75 win { + void XDestroyIC (XIC x) +} + +declare 76 win { + Bool XFilterEvent (XEvent* x, Window w) +} + +declare 77 win { + int XmbLookupString (XIC xi, XKeyPressedEvent* xk, \ + char* c, int i, KeySym* k, Status* s) +} + +declare 78 win { + void TkPutImage (unsigned long *colors, \ + int ncolors, Display* display, Drawable d, \ + GC gc, XImage* image, int src_x, int src_y, \ + int dest_x, int dest_y, unsigned int width, \ + unsigned int height) +} + +# X functions for Mac + +declare 0 mac { + XModifierKeymap* XGetModifierMapping (Display* d) +} + +declare 1 mac { + XImage * XCreateImage (Display* d, Visual* v, unsigned int ui1, int i1, \ + int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, \ + int i4) + +} + +declare 2 mac { + XImage *XGetImage (Display* d, Drawable dr, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, unsigned long ul, int i3) +} + +declare 3 mac { + char *XGetAtomName (Display* d,Atom a) + +} + +declare 4 mac { + char *XKeysymToString (KeySym k) +} + +declare 5 mac { + Colormap XCreateColormap (Display* d, Window w, Visual* v, int i) + +} + +declare 6 mac { + GContext XGContextFromGC (GC g) +} + +declare 7 mac { + KeySym XKeycodeToKeysym (Display* d, KeyCode k, int i) +} + +declare 8 mac { + KeySym XStringToKeysym (_Xconst char* c) +} + +declare 9 mac { + Window XRootWindow (Display* d, int i) +} + +declare 10 mac { + XErrorHandler XSetErrorHandler (XErrorHandler x) +} + +declare 11 mac { + Status XAllocColor (Display* d, Colormap c, XColor* xp) +} + +declare 12 mac { + void XBell (Display* d, int i) +} + +declare 13 mac { + void XChangeProperty (Display* d, Window w, Atom a, Atom a, int i1, \ + int i2, _Xconst unsigned char* c, int i3) +} + +declare 14 mac { + void XChangeWindowAttributes (Display* d, Window w, unsigned long ul, \ + XSetWindowAttributes* x) +} + +declare 15 mac { + void XConfigureWindow (Display* d, Window w, unsigned int i, \ + XWindowChanges* x) +} + +declare 16 mac { + void XCopyArea (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \ + int i2, unsigned int ui1, \ + unsigned int ui2, int i3, int i4) +} + +declare 17 mac { + void XCopyPlane (Display* d, Drawable dr1, Drawable dr2, GC g, int i1, \ + int i2, unsigned int ui1, \ + unsigned int ui2, int i3, int i4, unsigned long ul) +} + +declare 18 mac { + void XDefineCursor (Display* d, Window w, Cursor c) +} + +declare 19 mac { + void XDestroyWindow (Display* d, Window w) +} + +declare 20 mac { + void XDrawArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 21 mac { + void XDrawLines (Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2) +} + +declare 22 mac { + void XDrawRectangle (Display* d, Drawable dr, GC g, int i1, int i2,\ + unsigned int ui1, unsigned int ui2) +} + +declare 23 mac { + void XFillArc (Display* d, Drawable dr, GC g, int i1, int i2, \ + unsigned int ui1, unsigned int ui2, int i3, int i4) +} + +declare 24 mac { + void XFillPolygon (Display* d, Drawable dr, GC g, XPoint* x, \ + int i1, int i2, int i3) +} + +declare 25 mac { + void XFillRectangles (Display* d, Drawable dr, GC g, XRectangle* x, int i) +} + +declare 26 mac { + void XFreeColormap (Display* d, Colormap c) +} + +declare 27 mac { + void XFreeColors (Display* d, Colormap c, \ + unsigned long* ulp, int i, unsigned long ul) +} + +declare 28 mac { + void XFreeModifiermap (XModifierKeymap* x) +} + +declare 29 mac { + Status XGetGeometry (Display* d, Drawable dr, Window* w, int* i1, \ + int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, \ + unsigned int* ui4) +} + +declare 30 mac { + int XGetWindowProperty (Display* d, Window w, Atom a1, long l1, long l2, \ + Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, \ + unsigned long* ulp2, unsigned char** cpp) +} + +declare 31 mac { + int XGrabKeyboard (Display* d, Window w, Bool b, int i1, int i2, Time t) +} + +declare 32 mac { + int XGrabPointer (Display* d, Window w1, Bool b, unsigned int ui, \ + int i1, int i2, Window w2, Cursor c, Time t) +} + +declare 33 mac { + KeyCode XKeysymToKeycode (Display* d, KeySym k) +} + +declare 34 mac { + void XMapWindow (Display* d, Window w) +} + +declare 35 mac { + void XMoveResizeWindow (Display* d, Window w, int i1, int i2, \ + unsigned int ui1, unsigned int ui2) +} + +declare 36 mac { + void XMoveWindow (Display* d, Window w, int i1, int i2) +} + +declare 37 mac { + Bool XQueryPointer (Display* d, Window w1, Window* w2, Window* w3, \ + int* i1, int* i2, int* i3, int* i4, unsigned int* ui) +} + +declare 38 mac { + void XRaiseWindow (Display* d, Window w) +} + +declare 39 mac { + void XRefreshKeyboardMapping (XMappingEvent* x) +} + +declare 40 mac { + void XResizeWindow (Display* d, Window w, unsigned int ui1, \ + unsigned int ui2) +} + +declare 41 mac { + void XSelectInput (Display* d, Window w, long l) +} + +declare 42 mac { + Status XSendEvent (Display* d, Window w, Bool b, long l, XEvent* x) +} + +declare 43 mac { + void XSetIconName (Display* d, Window w, _Xconst char* c) +} + +declare 44 mac { + void XSetInputFocus (Display* d, Window w, int i, Time t) +} + +declare 45 mac { + void XSetSelectionOwner (Display* d, Atom a, Window w, Time t) +} + +declare 46 mac { + void XSetWindowBackground (Display* d, Window w, unsigned long ul) +} + +declare 47 mac { + void XSetWindowBackgroundPixmap (Display* d, Window w, Pixmap p) +} + +declare 48 mac { + void XSetWindowBorder (Display* d, Window w, unsigned long ul) +} + +declare 49 mac { + void XSetWindowBorderPixmap (Display* d, Window w, Pixmap p) +} + +declare 50 mac { + void XSetWindowBorderWidth (Display* d, Window w, unsigned int ui) +} + +declare 51 mac { + void XSetWindowColormap (Display* d, Window w, Colormap c) +} + +declare 52 mac { + void XUngrabKeyboard (Display* d, Time t) +} + +declare 53 mac { + void XUngrabPointer (Display* d, Time t) +} + +declare 54 mac { + void XUnmapWindow (Display* d, Window w) +} + +declare 55 mac { + void TkPutImage (unsigned long *colors, \ + int ncolors, Display* display, Drawable d, \ + GC gc, XImage* image, int src_x, int src_y, \ + int dest_x, int dest_y, unsigned int width, \ + unsigned int height) +} + diff --git a/generic/tkInt.h b/generic/tkInt.h index fd26ad9..c9706e9 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: $Id: tkInt.h,v 1.8 1998/09/30 19:01:20 rjohnson Exp $ + * RCS: $Id: tkInt.h,v 1.9 1999/03/10 07:04:40 stanton Exp $ */ #ifndef _TKINT @@ -27,11 +27,6 @@ #include #endif -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - /* * Opaque type declarations: */ @@ -45,6 +40,13 @@ typedef struct TkStressedCmap TkStressedCmap; typedef struct TkBindInfo_ *TkBindInfo; /* + * Array type definitions + */ + +typedef double TkDouble2[2]; +typedef double TkDouble4[4]; + +/* * Procedure types. */ @@ -702,279 +704,114 @@ extern Tk_ImageType tkPhotoImageType; extern Tcl_HashTable tkPredefBitmapTable; extern int tkSendSerial; +#include "tkIntDecls.h" + +#ifdef BUILD_tk +# undef TCL_STORAGE_CLASS +# define TCL_STORAGE_CLASS DLLEXPORT +#endif + +int TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp)); +void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, + int devId, char *buffer, long size)); + /* - * Internal procedures shared among Tk modules but not exported - * to the outside world: + * For backwards compatibility, need the tkIntPlatDecls.h here for + * windows & mac X wrappers. */ -EXTERN char * TkAlignImageData _ANSI_ARGS_((XImage *image, - int alignment, int bitOrder)); -EXTERN TkWindow * TkAllocWindow _ANSI_ARGS_((TkDisplay *dispPtr, - int screenNum, TkWindow *parentPtr)); -EXTERN void TkBezierPoints _ANSI_ARGS_((double control[], - int numSteps, double *coordPtr)); -EXTERN void TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas, - double control[], int numSteps, - XPoint *xPointPtr)); -EXTERN void TkBindDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkBindEventProc _ANSI_ARGS_((TkWindow *winPtr, - XEvent *eventPtr)); -EXTERN void TkBindFree _ANSI_ARGS_((TkMainInfo *mainPtr)); -EXTERN void TkBindInit _ANSI_ARGS_((TkMainInfo *mainPtr)); -EXTERN void TkChangeEventWindow _ANSI_ARGS_((XEvent *eventPtr, - TkWindow *winPtr)); -#ifndef TkClipBox -EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn, - XRectangle* rect_return)); -#endif -EXTERN int TkClipInit _ANSI_ARGS_((Tcl_Interp *interp, - TkDisplay *dispPtr)); -EXTERN void TkComputeAnchor _ANSI_ARGS_((Tk_Anchor anchor, - Tk_Window tkwin, int padX, int padY, - int innerWidth, int innerHeight, int *xPtr, - int *yPtr)); -EXTERN int TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp *interp, - char *script)); -EXTERN unsigned long TkCreateBindingProcedure _ANSI_ARGS_(( - Tcl_Interp *interp, Tk_BindingTable bindingTable, - ClientData object, char *eventString, - TkBindEvalProc *evalProc, TkBindFreeProc *freeProc, - ClientData clientData)); -EXTERN TkCursor * TkCreateCursorFromData _ANSI_ARGS_((Tk_Window tkwin, - char *source, char *mask, int width, int height, - int xHot, int yHot, XColor fg, XColor bg)); -EXTERN int TkCreateFrame _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv, - int toplevel, char *appName)); -EXTERN Tk_Window TkCreateMainWindow _ANSI_ARGS_((Tcl_Interp *interp, - char *screenName, char *baseName)); -#ifndef TkCreateRegion -EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void)); -#endif -EXTERN Time TkCurrentTime _ANSI_ARGS_((TkDisplay *dispPtr)); -EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData, +EXTERN int Tk_BellObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_BindCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); -EXTERN void TkDeleteAllImages _ANSI_ARGS_((TkMainInfo *mainPtr)); -#ifndef TkDestroyRegion -EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn)); -#endif -EXTERN void TkDoConfigureNotify _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkDrawInsetFocusHighlight _ANSI_ARGS_(( - Tk_Window tkwin, GC gc, int width, - Drawable drawable, int padding)); -EXTERN void TkEventDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas, - double *coordPtr, int numPoints, Display *display, - Drawable drawable, GC gc, GC outlineGC)); -EXTERN int TkFindStateNum _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *option, CONST TkStateMap *mapPtr, - CONST char *strKey)); -EXTERN char * TkFindStateString _ANSI_ARGS_(( - CONST TkStateMap *mapPtr, int numKey)); -EXTERN void TkFocusDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkFocusFilterEvent _ANSI_ARGS_((TkWindow *winPtr, - XEvent *eventPtr)); -EXTERN TkWindow * TkFocusKeyEvent _ANSI_ARGS_((TkWindow *winPtr, - XEvent *eventPtr)); -EXTERN void TkFontPkgInit _ANSI_ARGS_((TkMainInfo *mainPtr)); -EXTERN void TkFontPkgFree _ANSI_ARGS_((TkMainInfo *mainPtr)); -EXTERN void TkFreeBindingTags _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkFreeCursor _ANSI_ARGS_((TkCursor *cursorPtr)); -EXTERN void TkFreeWindowId _ANSI_ARGS_((TkDisplay *dispPtr, - Window w)); -EXTERN void TkGenerateActivateEvents _ANSI_ARGS_(( - TkWindow *winPtr, int active)); -EXTERN char * TkGetBitmapData _ANSI_ARGS_((Tcl_Interp *interp, - char *string, char *fileName, int *widthPtr, - int *heightPtr, int *hotXPtr, int *hotYPtr)); -EXTERN void TkGetButtPoints _ANSI_ARGS_((double p1[], double p2[], - double width, int project, double m1[], - double m2[])); -EXTERN TkCursor * TkGetCursorByName _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid string)); -EXTERN char * TkGetDefaultScreenName _ANSI_ARGS_((Tcl_Interp *interp, - char *screenName)); -EXTERN TkDisplay * TkGetDisplay _ANSI_ARGS_((Display *display)); -EXTERN int TkGetDisplayOf _ANSI_ARGS_((Tcl_Interp *interp, - int objc, Tcl_Obj *CONST objv[], - Tk_Window *tkwinPtr)); -EXTERN TkWindow * TkGetFocusWin _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkGetInterpNames _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin)); -EXTERN int TkGetMiterPoints _ANSI_ARGS_((double p1[], double p2[], - double p3[], double width, double m1[], - double m2[])); -EXTERN void TkGetPointerCoords _ANSI_ARGS_((Tk_Window tkwin, - int *xPtr, int *yPtr)); -EXTERN int TkGetProlog _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN void TkGetServerInfo _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin)); -EXTERN void TkGrabDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkGrabState _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkIncludePoint _ANSI_ARGS_((Tk_Item *itemPtr, - double *pointPtr)); -EXTERN void TkInitXId _ANSI_ARGS_((TkDisplay *dispPtr)); -EXTERN void TkInOutEvents _ANSI_ARGS_((XEvent *eventPtr, - TkWindow *sourcePtr, TkWindow *destPtr, - int leaveType, int enterType, - Tcl_QueuePosition position)); -EXTERN void TkInstallFrameMenu _ANSI_ARGS_((Tk_Window tkwin)); -#ifndef TkIntersectRegion -EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra, - TkRegion srcb, TkRegion dr_return)); -#endif -EXTERN char * TkKeysymToString _ANSI_ARGS_((KeySym keysym)); -EXTERN int TkLineToArea _ANSI_ARGS_((double end1Ptr[2], - double end2Ptr[2], double rectPtr[4])); -EXTERN double TkLineToPoint _ANSI_ARGS_((double end1Ptr[2], - double end2Ptr[2], double pointPtr[2])); -EXTERN int TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas, - double *pointPtr, int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[])); -EXTERN void TkMakeBezierPostscript _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints)); -EXTERN void TkOptionClassChanged _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkOptionDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkOvalToArea _ANSI_ARGS_((double *ovalPtr, - double *rectPtr)); -EXTERN double TkOvalToPoint _ANSI_ARGS_((double ovalPtr[4], - double width, int filled, double pointPtr[2])); -EXTERN int TkpChangeFocus _ANSI_ARGS_((TkWindow *winPtr, - int force)); -EXTERN void TkpCloseDisplay _ANSI_ARGS_((TkDisplay *dispPtr)); -EXTERN void TkpClaimFocus _ANSI_ARGS_((TkWindow *topLevelPtr, - int force)); -#ifndef TkpCmapStressed -EXTERN int TkpCmapStressed _ANSI_ARGS_((Tk_Window tkwin, - Colormap colormap)); -#endif -#ifndef TkpCreateNativeBitmap -EXTERN Pixmap TkpCreateNativeBitmap _ANSI_ARGS_((Display *display, - char * source)); -#endif -#ifndef TkpDefineNativeBitmaps -EXTERN void TkpDefineNativeBitmaps _ANSI_ARGS_((void)); -#endif -EXTERN void TkpDisplayWarning _ANSI_ARGS_((char *msg, - char *title)); -EXTERN void TkpGetAppName _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_DString *name)); -EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void)); -#ifndef TkpGetNativeAppBitmap -EXTERN Pixmap TkpGetNativeAppBitmap _ANSI_ARGS_((Display *display, - char *name, int *width, int *height)); -#endif -EXTERN TkWindow * TkpGetOtherWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN TkWindow * TkpGetWrapperWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkpInit _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN void TkpInitializeMenuBindings _ANSI_ARGS_(( - Tcl_Interp *interp, Tk_BindingTable bindingTable)); -EXTERN void TkpMakeContainer _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void TkpMakeMenuWindow _ANSI_ARGS_((Tk_Window tkwin, - int transient)); -EXTERN Window TkpMakeWindow _ANSI_ARGS_((TkWindow *winPtr, - Window parent)); -EXTERN void TkpMenuNotifyToplevelCreate _ANSI_ARGS_(( - Tcl_Interp *, char *menuName)); -EXTERN TkDisplay * TkpOpenDisplay _ANSI_ARGS_((char *display_name)); -EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN int TkPointerEvent _ANSI_ARGS_((XEvent *eventPtr, - TkWindow *winPtr)); -EXTERN int TkPolygonToArea _ANSI_ARGS_((double *polyPtr, - int numPoints, double *rectPtr)); -EXTERN double TkPolygonToPoint _ANSI_ARGS_((double *polyPtr, - int numPoints, double *pointPtr)); -EXTERN int TkPositionInTree _ANSI_ARGS_((TkWindow *winPtr, - TkWindow *treePtr)); -#ifndef TkpPrintWindowId -EXTERN void TkpPrintWindowId _ANSI_ARGS_((char *buf, - Window window)); -#endif -EXTERN void TkpRedirectKeyEvent _ANSI_ARGS_((TkWindow *winPtr, - XEvent *eventPtr)); -#ifndef TkpScanWindowId -EXTERN int TkpScanWindowId _ANSI_ARGS_((Tcl_Interp *interp, - char *string, int *idPtr)); -#endif -EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor)); -EXTERN void TkpSetMainMenubar _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *menuName)); -#ifndef TkpSync -EXTERN void TkpSync _ANSI_ARGS_((Display *display)); -#endif -EXTERN int TkpTestembedCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); -EXTERN int TkpUseWindow _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *string)); -#ifndef TkPutImage -EXTERN void TkPutImage _ANSI_ARGS_((unsigned long *colors, - int ncolors, Display* display, Drawable d, - GC gc, XImage* image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height)); -#endif -EXTERN int TkpWindowWasRecentlyDeleted _ANSI_ARGS_((Window win, - TkDisplay *dispPtr)); -EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow *winPtr, - int state)); -EXTERN void TkQueueEventForAllChildren _ANSI_ARGS_(( - TkWindow *winPtr, XEvent *eventPtr)); -EXTERN int TkReadBitmapFile _ANSI_ARGS_((Display* display, - Drawable d, CONST char* filename, - unsigned int* width_return, - unsigned int* height_return, - Pixmap* bitmap_return, - int* x_hot_return, int* y_hot_return)); -#ifndef TkRectInRegion -EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, - int x, int y, unsigned int width, - unsigned int height)); -#endif -EXTERN int TkScrollWindow _ANSI_ARGS_((Tk_Window tkwin, GC gc, - int x, int y, int width, int height, int dx, - int dy, TkRegion damageRgn)); -EXTERN void TkSelDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); -EXTERN void TkSelInit _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void TkSelPropProc _ANSI_ARGS_((XEvent *eventPtr)); -EXTERN void TkSetClassProcs _ANSI_ARGS_((Tk_Window tkwin, - TkClassProcs *procs, ClientData instanceData)); -#ifndef TkSetPixmapColormap -EXTERN void TkSetPixmapColormap _ANSI_ARGS_((Pixmap pixmap, - Colormap colormap)); -#endif -#ifndef TkSetRegion -EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc, - TkRegion rgn)); -#endif -EXTERN void TkSetWindowMenuBar _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char *oldMenuName, - char *menuName)); -EXTERN KeySym TkStringToKeysym _ANSI_ARGS_((char *name)); -EXTERN int TkThickPolyLineToArea _ANSI_ARGS_((double *coordPtr, - int numPoints, double width, int capStyle, - int joinStyle, double *rectPtr)); -#ifndef TkUnionRectWithRegion -EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect, - TkRegion src, TkRegion dr_return)); -#endif -EXTERN void TkWmAddToColormapWindows _ANSI_ARGS_(( - TkWindow *winPtr)); -EXTERN void TkWmDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN TkWindow * TkWmFocusToplevel _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkWmMapWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkWmNewWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkWmProtocolEventProc _ANSI_ARGS_((TkWindow *winPtr, - XEvent *evenvPtr)); -EXTERN void TkWmRemoveFromColormapWindows _ANSI_ARGS_(( - TkWindow *winPtr)); -EXTERN void TkWmRestackToplevel _ANSI_ARGS_((TkWindow *winPtr, - int aboveBelow, TkWindow *otherPtr)); -EXTERN void TkWmSetClass _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void TkWmUnmapWindow _ANSI_ARGS_((TkWindow *winPtr)); +EXTERN int Tk_BindtagsCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ButtonCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_CheckbuttonCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ChooseColorCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_EntryCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_EventCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_FrameCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_FocusCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_GetOpenFileCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_GetSaveFileCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_GrabCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_GridCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ImageCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_LabelCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ListboxCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_LowerCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_MenuCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_MenubuttonCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_MessageBoxCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_MessageCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_OptionCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_PackCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_RadiobuttonCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ScaleCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_SendCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_TextCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_TkObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_ToplevelCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_UpdateCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +EXTERN int Tk_WmCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int TkpTestembedCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); /* * Unsupported commands. diff --git a/generic/tkIntDecls.h b/generic/tkIntDecls.h new file mode 100644 index 0000000..fb929eb --- /dev/null +++ b/generic/tkIntDecls.h @@ -0,0 +1,844 @@ +/* + * tkIntDecls.h -- + * + * This file contains the declarations for all unsupported + * functions that are exported by the Tk library. These + * interfaces are not guaranteed to remain the same between + * versions. Use at your own risk. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tkIntDecls.h,v 1.2 1999/03/10 07:04:40 stanton Exp $ + */ + +#ifndef _TKINTDECLS +#define _TKINTDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tkInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +/* 0 */ +EXTERN TkWindow * TkAllocWindow _ANSI_ARGS_((TkDisplay * dispPtr, + int screenNum, TkWindow * parentPtr)); +/* 1 */ +EXTERN void TkBezierPoints _ANSI_ARGS_((double control[], + int numSteps, double * coordPtr)); +/* 2 */ +EXTERN void TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas, + double control[], int numSteps, + XPoint * xPointPtr)); +/* 3 */ +EXTERN void TkBindDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 4 */ +EXTERN void TkBindEventProc _ANSI_ARGS_((TkWindow * winPtr, + XEvent * eventPtr)); +/* 5 */ +EXTERN void TkBindFree _ANSI_ARGS_((TkMainInfo * mainPtr)); +/* 6 */ +EXTERN void TkBindInit _ANSI_ARGS_((TkMainInfo * mainPtr)); +/* 7 */ +EXTERN void TkChangeEventWindow _ANSI_ARGS_((XEvent * eventPtr, + TkWindow * winPtr)); +/* 8 */ +EXTERN int TkClipInit _ANSI_ARGS_((Tcl_Interp * interp, + TkDisplay * dispPtr)); +/* 9 */ +EXTERN void TkComputeAnchor _ANSI_ARGS_((Tk_Anchor anchor, + Tk_Window tkwin, int padX, int padY, + int innerWidth, int innerHeight, int * xPtr, + int * yPtr)); +/* 10 */ +EXTERN int TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp * interp, + char * script)); +/* 11 */ +EXTERN unsigned long TkCreateBindingProcedure _ANSI_ARGS_(( + Tcl_Interp * interp, + Tk_BindingTable bindingTable, + ClientData object, char * eventString, + TkBindEvalProc * evalProc, + TkBindFreeProc * freeProc, + ClientData clientData)); +/* 12 */ +EXTERN TkCursor * TkCreateCursorFromData _ANSI_ARGS_((Tk_Window tkwin, + char * source, char * mask, int width, + int height, int xHot, int yHot, XColor fg, + XColor bg)); +/* 13 */ +EXTERN int TkCreateFrame _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int argc, char ** argv, + int toplevel, char * appName)); +/* 14 */ +EXTERN Tk_Window TkCreateMainWindow _ANSI_ARGS_((Tcl_Interp * interp, + char * screenName, char * baseName)); +/* 15 */ +EXTERN Time TkCurrentTime _ANSI_ARGS_((TkDisplay * dispPtr)); +/* 16 */ +EXTERN void TkDeleteAllImages _ANSI_ARGS_((TkMainInfo * mainPtr)); +/* 17 */ +EXTERN void TkDoConfigureNotify _ANSI_ARGS_((TkWindow * winPtr)); +/* 18 */ +EXTERN void TkDrawInsetFocusHighlight _ANSI_ARGS_(( + Tk_Window tkwin, GC gc, int width, + Drawable drawable, int padding)); +/* 19 */ +EXTERN void TkEventDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 20 */ +EXTERN void TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas, + double * coordPtr, int numPoints, + Display * display, Drawable drawable, GC gc, + GC outlineGC)); +/* 21 */ +EXTERN int TkFindStateNum _ANSI_ARGS_((Tcl_Interp * interp, + CONST char * option, + CONST TkStateMap * mapPtr, + CONST char * strKey)); +/* 22 */ +EXTERN char * TkFindStateString _ANSI_ARGS_(( + CONST TkStateMap * mapPtr, int numKey)); +/* 23 */ +EXTERN void TkFocusDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 24 */ +EXTERN int TkFocusFilterEvent _ANSI_ARGS_((TkWindow * winPtr, + XEvent * eventPtr)); +/* 25 */ +EXTERN TkWindow * TkFocusKeyEvent _ANSI_ARGS_((TkWindow * winPtr, + XEvent * eventPtr)); +/* 26 */ +EXTERN void TkFontPkgInit _ANSI_ARGS_((TkMainInfo * mainPtr)); +/* 27 */ +EXTERN void TkFontPkgFree _ANSI_ARGS_((TkMainInfo * mainPtr)); +/* 28 */ +EXTERN void TkFreeBindingTags _ANSI_ARGS_((TkWindow * winPtr)); +/* 29 */ +EXTERN void TkFreeCursor _ANSI_ARGS_((TkCursor * cursorPtr)); +/* 30 */ +EXTERN char * TkGetBitmapData _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * fileName, + int * widthPtr, int * heightPtr, + int * hotXPtr, int * hotYPtr)); +/* 31 */ +EXTERN void TkGetButtPoints _ANSI_ARGS_((double p1[], + double p2[], double width, int project, + double m1[], double m2[])); +/* 32 */ +EXTERN TkCursor * TkGetCursorByName _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, Tk_Uid string)); +/* 33 */ +EXTERN char * TkGetDefaultScreenName _ANSI_ARGS_(( + Tcl_Interp * interp, char * screenName)); +/* 34 */ +EXTERN TkDisplay * TkGetDisplay _ANSI_ARGS_((Display * display)); +/* 35 */ +EXTERN int TkGetDisplayOf _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], + Tk_Window * tkwinPtr)); +/* 36 */ +EXTERN TkWindow * TkGetFocusWin _ANSI_ARGS_((TkWindow * winPtr)); +/* 37 */ +EXTERN int TkGetInterpNames _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin)); +/* 38 */ +EXTERN int TkGetMiterPoints _ANSI_ARGS_((double p1[], + double p2[], double p3[], double width, + double m1[], double m2[])); +/* 39 */ +EXTERN void TkGetPointerCoords _ANSI_ARGS_((Tk_Window tkwin, + int * xPtr, int * yPtr)); +/* 40 */ +EXTERN void TkGetServerInfo _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin)); +/* 41 */ +EXTERN void TkGrabDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 42 */ +EXTERN int TkGrabState _ANSI_ARGS_((TkWindow * winPtr)); +/* 43 */ +EXTERN void TkIncludePoint _ANSI_ARGS_((Tk_Item * itemPtr, + double * pointPtr)); +/* 44 */ +EXTERN void TkInOutEvents _ANSI_ARGS_((XEvent * eventPtr, + TkWindow * sourcePtr, TkWindow * destPtr, + int leaveType, int enterType, + Tcl_QueuePosition position)); +/* 45 */ +EXTERN void TkInstallFrameMenu _ANSI_ARGS_((Tk_Window tkwin)); +/* 46 */ +EXTERN char * TkKeysymToString _ANSI_ARGS_((KeySym keysym)); +/* 47 */ +EXTERN int TkLineToArea _ANSI_ARGS_((TkDouble2 end1Ptr, + TkDouble2 end2Ptr, TkDouble4 rectPtr)); +/* 48 */ +EXTERN double TkLineToPoint _ANSI_ARGS_((double end1Ptr[], + TkDouble2 end2Ptr, TkDouble2 pointPtr)); +/* 49 */ +EXTERN int TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas, + double * pointPtr, int numPoints, + int numSteps, XPoint xPoints[], + double dblPoints[])); +/* 50 */ +EXTERN void TkMakeBezierPostscript _ANSI_ARGS_(( + Tcl_Interp * interp, Tk_Canvas canvas, + double * pointPtr, int numPoints)); +/* 51 */ +EXTERN void TkOptionClassChanged _ANSI_ARGS_((TkWindow * winPtr)); +/* 52 */ +EXTERN void TkOptionDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 53 */ +EXTERN int TkOvalToArea _ANSI_ARGS_((double * ovalPtr, + double * rectPtr)); +/* 54 */ +EXTERN double TkOvalToPoint _ANSI_ARGS_((TkDouble4 ovalPtr, + double width, int filled, TkDouble2 pointPtr)); +/* 55 */ +EXTERN int TkpChangeFocus _ANSI_ARGS_((TkWindow * winPtr, + int force)); +/* 56 */ +EXTERN void TkpCloseDisplay _ANSI_ARGS_((TkDisplay * dispPtr)); +/* 57 */ +EXTERN void TkpClaimFocus _ANSI_ARGS_((TkWindow * topLevelPtr, + int force)); +/* 58 */ +EXTERN void TkpDisplayWarning _ANSI_ARGS_((char * msg, + char * title)); +/* 59 */ +EXTERN void TkpGetAppName _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_DString * name)); +/* 60 */ +EXTERN TkWindow * TkpGetOtherWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 61 */ +EXTERN TkWindow * TkpGetWrapperWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 62 */ +EXTERN int TkpInit _ANSI_ARGS_((Tcl_Interp * interp)); +/* 63 */ +EXTERN void TkpInitializeMenuBindings _ANSI_ARGS_(( + Tcl_Interp * interp, + Tk_BindingTable bindingTable)); +/* 64 */ +EXTERN void TkpMakeContainer _ANSI_ARGS_((Tk_Window tkwin)); +/* 65 */ +EXTERN void TkpMakeMenuWindow _ANSI_ARGS_((Tk_Window tkwin, + int transient)); +/* 66 */ +EXTERN Window TkpMakeWindow _ANSI_ARGS_((TkWindow * winPtr, + Window parent)); +/* 67 */ +EXTERN void TkpMenuNotifyToplevelCreate _ANSI_ARGS_(( + Tcl_Interp * interp1, char * menuName)); +/* 68 */ +EXTERN TkDisplay * TkpOpenDisplay _ANSI_ARGS_((char * display_name)); +/* 69 */ +EXTERN int TkPointerEvent _ANSI_ARGS_((XEvent * eventPtr, + TkWindow * winPtr)); +/* 70 */ +EXTERN int TkPolygonToArea _ANSI_ARGS_((double * polyPtr, + int numPoints, double * rectPtr)); +/* 71 */ +EXTERN double TkPolygonToPoint _ANSI_ARGS_((double * polyPtr, + int numPoints, double * pointPtr)); +/* 72 */ +EXTERN int TkPositionInTree _ANSI_ARGS_((TkWindow * winPtr, + TkWindow * treePtr)); +/* 73 */ +EXTERN void TkpRedirectKeyEvent _ANSI_ARGS_((TkWindow * winPtr, + XEvent * eventPtr)); +/* 74 */ +EXTERN void TkpSetMainMenubar _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * menuName)); +/* 75 */ +EXTERN int TkpUseWindow _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * string)); +/* 76 */ +EXTERN int TkpWindowWasRecentlyDeleted _ANSI_ARGS_((Window win, + TkDisplay * dispPtr)); +/* 77 */ +EXTERN void TkQueueEventForAllChildren _ANSI_ARGS_(( + TkWindow * winPtr, XEvent * eventPtr)); +/* 78 */ +EXTERN int TkReadBitmapFile _ANSI_ARGS_((Display* display, + Drawable d, CONST char* filename, + unsigned int* width_return, + unsigned int* height_return, + Pixmap* bitmap_return, int* x_hot_return, + int* y_hot_return)); +/* 79 */ +EXTERN int TkScrollWindow _ANSI_ARGS_((Tk_Window tkwin, GC gc, + int x, int y, int width, int height, int dx, + int dy, TkRegion damageRgn)); +/* 80 */ +EXTERN void TkSelDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 81 */ +EXTERN void TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin, + XEvent * eventPtr)); +/* 82 */ +EXTERN void TkSelInit _ANSI_ARGS_((Tk_Window tkwin)); +/* 83 */ +EXTERN void TkSelPropProc _ANSI_ARGS_((XEvent * eventPtr)); +/* 84 */ +EXTERN void TkSetClassProcs _ANSI_ARGS_((Tk_Window tkwin, + TkClassProcs * procs, + ClientData instanceData)); +/* 85 */ +EXTERN void TkSetWindowMenuBar _ANSI_ARGS_((Tcl_Interp * interp, + Tk_Window tkwin, char * oldMenuName, + char * menuName)); +/* 86 */ +EXTERN KeySym TkStringToKeysym _ANSI_ARGS_((char * name)); +/* 87 */ +EXTERN int TkThickPolyLineToArea _ANSI_ARGS_((double * coordPtr, + int numPoints, double width, int capStyle, + int joinStyle, double * rectPtr)); +/* 88 */ +EXTERN void TkWmAddToColormapWindows _ANSI_ARGS_(( + TkWindow * winPtr)); +/* 89 */ +EXTERN void TkWmDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 90 */ +EXTERN TkWindow * TkWmFocusToplevel _ANSI_ARGS_((TkWindow * winPtr)); +/* 91 */ +EXTERN void TkWmMapWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 92 */ +EXTERN void TkWmNewWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 93 */ +EXTERN void TkWmProtocolEventProc _ANSI_ARGS_((TkWindow * winPtr, + XEvent * evenvPtr)); +/* 94 */ +EXTERN void TkWmRemoveFromColormapWindows _ANSI_ARGS_(( + TkWindow * winPtr)); +/* 95 */ +EXTERN void TkWmRestackToplevel _ANSI_ARGS_((TkWindow * winPtr, + int aboveBelow, TkWindow * otherPtr)); +/* 96 */ +EXTERN void TkWmSetClass _ANSI_ARGS_((TkWindow * winPtr)); +/* 97 */ +EXTERN void TkWmUnmapWindow _ANSI_ARGS_((TkWindow * winPtr)); + +typedef struct TkIntStubs { + int magic; + struct TkIntStubHooks *hooks; + + TkWindow * (*tkAllocWindow) _ANSI_ARGS_((TkDisplay * dispPtr, int screenNum, TkWindow * parentPtr)); /* 0 */ + void (*tkBezierPoints) _ANSI_ARGS_((double control[], int numSteps, double * coordPtr)); /* 1 */ + void (*tkBezierScreenPoints) _ANSI_ARGS_((Tk_Canvas canvas, double control[], int numSteps, XPoint * xPointPtr)); /* 2 */ + void (*tkBindDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 3 */ + void (*tkBindEventProc) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 4 */ + void (*tkBindFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 5 */ + void (*tkBindInit) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 6 */ + void (*tkChangeEventWindow) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * winPtr)); /* 7 */ + int (*tkClipInit) _ANSI_ARGS_((Tcl_Interp * interp, TkDisplay * dispPtr)); /* 8 */ + void (*tkComputeAnchor) _ANSI_ARGS_((Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY, int innerWidth, int innerHeight, int * xPtr, int * yPtr)); /* 9 */ + int (*tkCopyAndGlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * script)); /* 10 */ + unsigned long (*tkCreateBindingProcedure) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, char * eventString, TkBindEvalProc * evalProc, TkBindFreeProc * freeProc, ClientData clientData)); /* 11 */ + TkCursor * (*tkCreateCursorFromData) _ANSI_ARGS_((Tk_Window tkwin, char * source, char * mask, int width, int height, int xHot, int yHot, XColor fg, XColor bg)); /* 12 */ + int (*tkCreateFrame) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv, int toplevel, char * appName)); /* 13 */ + Tk_Window (*tkCreateMainWindow) _ANSI_ARGS_((Tcl_Interp * interp, char * screenName, char * baseName)); /* 14 */ + Time (*tkCurrentTime) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 15 */ + void (*tkDeleteAllImages) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 16 */ + void (*tkDoConfigureNotify) _ANSI_ARGS_((TkWindow * winPtr)); /* 17 */ + void (*tkDrawInsetFocusHighlight) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int width, Drawable drawable, int padding)); /* 18 */ + void (*tkEventDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 19 */ + void (*tkFillPolygon) _ANSI_ARGS_((Tk_Canvas canvas, double * coordPtr, int numPoints, Display * display, Drawable drawable, GC gc, GC outlineGC)); /* 20 */ + int (*tkFindStateNum) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * option, CONST TkStateMap * mapPtr, CONST char * strKey)); /* 21 */ + char * (*tkFindStateString) _ANSI_ARGS_((CONST TkStateMap * mapPtr, int numKey)); /* 22 */ + void (*tkFocusDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 23 */ + int (*tkFocusFilterEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 24 */ + TkWindow * (*tkFocusKeyEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 25 */ + void (*tkFontPkgInit) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 26 */ + void (*tkFontPkgFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 27 */ + void (*tkFreeBindingTags) _ANSI_ARGS_((TkWindow * winPtr)); /* 28 */ + void (*tkFreeCursor) _ANSI_ARGS_((TkCursor * cursorPtr)); /* 29 */ + char * (*tkGetBitmapData) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * fileName, int * widthPtr, int * heightPtr, int * hotXPtr, int * hotYPtr)); /* 30 */ + void (*tkGetButtPoints) _ANSI_ARGS_((double p1[], double p2[], double width, int project, double m1[], double m2[])); /* 31 */ + TkCursor * (*tkGetCursorByName) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid string)); /* 32 */ + char * (*tkGetDefaultScreenName) _ANSI_ARGS_((Tcl_Interp * interp, char * screenName)); /* 33 */ + TkDisplay * (*tkGetDisplay) _ANSI_ARGS_((Display * display)); /* 34 */ + int (*tkGetDisplayOf) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], Tk_Window * tkwinPtr)); /* 35 */ + TkWindow * (*tkGetFocusWin) _ANSI_ARGS_((TkWindow * winPtr)); /* 36 */ + int (*tkGetInterpNames) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 37 */ + int (*tkGetMiterPoints) _ANSI_ARGS_((double p1[], double p2[], double p3[], double width, double m1[], double m2[])); /* 38 */ + void (*tkGetPointerCoords) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr)); /* 39 */ + void (*tkGetServerInfo) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 40 */ + void (*tkGrabDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 41 */ + int (*tkGrabState) _ANSI_ARGS_((TkWindow * winPtr)); /* 42 */ + void (*tkIncludePoint) _ANSI_ARGS_((Tk_Item * itemPtr, double * pointPtr)); /* 43 */ + void (*tkInOutEvents) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * sourcePtr, TkWindow * destPtr, int leaveType, int enterType, Tcl_QueuePosition position)); /* 44 */ + void (*tkInstallFrameMenu) _ANSI_ARGS_((Tk_Window tkwin)); /* 45 */ + char * (*tkKeysymToString) _ANSI_ARGS_((KeySym keysym)); /* 46 */ + int (*tkLineToArea) _ANSI_ARGS_((TkDouble2 end1Ptr, TkDouble2 end2Ptr, TkDouble4 rectPtr)); /* 47 */ + double (*tkLineToPoint) _ANSI_ARGS_((double end1Ptr[], TkDouble2 end2Ptr, TkDouble2 pointPtr)); /* 48 */ + int (*tkMakeBezierCurve) _ANSI_ARGS_((Tk_Canvas canvas, double * pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[])); /* 49 */ + void (*tkMakeBezierPostscript) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, double * pointPtr, int numPoints)); /* 50 */ + void (*tkOptionClassChanged) _ANSI_ARGS_((TkWindow * winPtr)); /* 51 */ + void (*tkOptionDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 52 */ + int (*tkOvalToArea) _ANSI_ARGS_((double * ovalPtr, double * rectPtr)); /* 53 */ + double (*tkOvalToPoint) _ANSI_ARGS_((TkDouble4 ovalPtr, double width, int filled, TkDouble2 pointPtr)); /* 54 */ + int (*tkpChangeFocus) _ANSI_ARGS_((TkWindow * winPtr, int force)); /* 55 */ + void (*tkpCloseDisplay) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 56 */ + void (*tkpClaimFocus) _ANSI_ARGS_((TkWindow * topLevelPtr, int force)); /* 57 */ + void (*tkpDisplayWarning) _ANSI_ARGS_((char * msg, char * title)); /* 58 */ + void (*tkpGetAppName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * name)); /* 59 */ + TkWindow * (*tkpGetOtherWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 60 */ + TkWindow * (*tkpGetWrapperWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 61 */ + int (*tkpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 62 */ + void (*tkpInitializeMenuBindings) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable)); /* 63 */ + void (*tkpMakeContainer) _ANSI_ARGS_((Tk_Window tkwin)); /* 64 */ + void (*tkpMakeMenuWindow) _ANSI_ARGS_((Tk_Window tkwin, int transient)); /* 65 */ + Window (*tkpMakeWindow) _ANSI_ARGS_((TkWindow * winPtr, Window parent)); /* 66 */ + void (*tkpMenuNotifyToplevelCreate) _ANSI_ARGS_((Tcl_Interp * interp1, char * menuName)); /* 67 */ + TkDisplay * (*tkpOpenDisplay) _ANSI_ARGS_((char * display_name)); /* 68 */ + int (*tkPointerEvent) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * winPtr)); /* 69 */ + int (*tkPolygonToArea) _ANSI_ARGS_((double * polyPtr, int numPoints, double * rectPtr)); /* 70 */ + double (*tkPolygonToPoint) _ANSI_ARGS_((double * polyPtr, int numPoints, double * pointPtr)); /* 71 */ + int (*tkPositionInTree) _ANSI_ARGS_((TkWindow * winPtr, TkWindow * treePtr)); /* 72 */ + void (*tkpRedirectKeyEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 73 */ + void (*tkpSetMainMenubar) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * menuName)); /* 74 */ + int (*tkpUseWindow) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * string)); /* 75 */ + int (*tkpWindowWasRecentlyDeleted) _ANSI_ARGS_((Window win, TkDisplay * dispPtr)); /* 76 */ + void (*tkQueueEventForAllChildren) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 77 */ + int (*tkReadBitmapFile) _ANSI_ARGS_((Display* display, Drawable d, CONST char* filename, unsigned int* width_return, unsigned int* height_return, Pixmap* bitmap_return, int* x_hot_return, int* y_hot_return)); /* 78 */ + int (*tkScrollWindow) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int x, int y, int width, int height, int dx, int dy, TkRegion damageRgn)); /* 79 */ + void (*tkSelDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 80 */ + void (*tkSelEventProc) _ANSI_ARGS_((Tk_Window tkwin, XEvent * eventPtr)); /* 81 */ + void (*tkSelInit) _ANSI_ARGS_((Tk_Window tkwin)); /* 82 */ + void (*tkSelPropProc) _ANSI_ARGS_((XEvent * eventPtr)); /* 83 */ + void (*tkSetClassProcs) _ANSI_ARGS_((Tk_Window tkwin, TkClassProcs * procs, ClientData instanceData)); /* 84 */ + void (*tkSetWindowMenuBar) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * oldMenuName, char * menuName)); /* 85 */ + KeySym (*tkStringToKeysym) _ANSI_ARGS_((char * name)); /* 86 */ + int (*tkThickPolyLineToArea) _ANSI_ARGS_((double * coordPtr, int numPoints, double width, int capStyle, int joinStyle, double * rectPtr)); /* 87 */ + void (*tkWmAddToColormapWindows) _ANSI_ARGS_((TkWindow * winPtr)); /* 88 */ + void (*tkWmDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 89 */ + TkWindow * (*tkWmFocusToplevel) _ANSI_ARGS_((TkWindow * winPtr)); /* 90 */ + void (*tkWmMapWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 91 */ + void (*tkWmNewWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 92 */ + void (*tkWmProtocolEventProc) _ANSI_ARGS_((TkWindow * winPtr, XEvent * evenvPtr)); /* 93 */ + void (*tkWmRemoveFromColormapWindows) _ANSI_ARGS_((TkWindow * winPtr)); /* 94 */ + void (*tkWmRestackToplevel) _ANSI_ARGS_((TkWindow * winPtr, int aboveBelow, TkWindow * otherPtr)); /* 95 */ + void (*tkWmSetClass) _ANSI_ARGS_((TkWindow * winPtr)); /* 96 */ + void (*tkWmUnmapWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 97 */ +} TkIntStubs; + +extern TkIntStubs *tkIntStubsPtr; + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef TkAllocWindow +#define TkAllocWindow(dispPtr, screenNum, parentPtr) \ + (tkIntStubsPtr->tkAllocWindow)(dispPtr, screenNum, parentPtr) /* 0 */ +#endif +#ifndef TkBezierPoints +#define TkBezierPoints(control, numSteps, coordPtr) \ + (tkIntStubsPtr->tkBezierPoints)(control, numSteps, coordPtr) /* 1 */ +#endif +#ifndef TkBezierScreenPoints +#define TkBezierScreenPoints(canvas, control, numSteps, xPointPtr) \ + (tkIntStubsPtr->tkBezierScreenPoints)(canvas, control, numSteps, xPointPtr) /* 2 */ +#endif +#ifndef TkBindDeadWindow +#define TkBindDeadWindow(winPtr) \ + (tkIntStubsPtr->tkBindDeadWindow)(winPtr) /* 3 */ +#endif +#ifndef TkBindEventProc +#define TkBindEventProc(winPtr, eventPtr) \ + (tkIntStubsPtr->tkBindEventProc)(winPtr, eventPtr) /* 4 */ +#endif +#ifndef TkBindFree +#define TkBindFree(mainPtr) \ + (tkIntStubsPtr->tkBindFree)(mainPtr) /* 5 */ +#endif +#ifndef TkBindInit +#define TkBindInit(mainPtr) \ + (tkIntStubsPtr->tkBindInit)(mainPtr) /* 6 */ +#endif +#ifndef TkChangeEventWindow +#define TkChangeEventWindow(eventPtr, winPtr) \ + (tkIntStubsPtr->tkChangeEventWindow)(eventPtr, winPtr) /* 7 */ +#endif +#ifndef TkClipInit +#define TkClipInit(interp, dispPtr) \ + (tkIntStubsPtr->tkClipInit)(interp, dispPtr) /* 8 */ +#endif +#ifndef TkComputeAnchor +#define TkComputeAnchor(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr) \ + (tkIntStubsPtr->tkComputeAnchor)(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr) /* 9 */ +#endif +#ifndef TkCopyAndGlobalEval +#define TkCopyAndGlobalEval(interp, script) \ + (tkIntStubsPtr->tkCopyAndGlobalEval)(interp, script) /* 10 */ +#endif +#ifndef TkCreateBindingProcedure +#define TkCreateBindingProcedure(interp, bindingTable, object, eventString, evalProc, freeProc, clientData) \ + (tkIntStubsPtr->tkCreateBindingProcedure)(interp, bindingTable, object, eventString, evalProc, freeProc, clientData) /* 11 */ +#endif +#ifndef TkCreateCursorFromData +#define TkCreateCursorFromData(tkwin, source, mask, width, height, xHot, yHot, fg, bg) \ + (tkIntStubsPtr->tkCreateCursorFromData)(tkwin, source, mask, width, height, xHot, yHot, fg, bg) /* 12 */ +#endif +#ifndef TkCreateFrame +#define TkCreateFrame(clientData, interp, argc, argv, toplevel, appName) \ + (tkIntStubsPtr->tkCreateFrame)(clientData, interp, argc, argv, toplevel, appName) /* 13 */ +#endif +#ifndef TkCreateMainWindow +#define TkCreateMainWindow(interp, screenName, baseName) \ + (tkIntStubsPtr->tkCreateMainWindow)(interp, screenName, baseName) /* 14 */ +#endif +#ifndef TkCurrentTime +#define TkCurrentTime(dispPtr) \ + (tkIntStubsPtr->tkCurrentTime)(dispPtr) /* 15 */ +#endif +#ifndef TkDeleteAllImages +#define TkDeleteAllImages(mainPtr) \ + (tkIntStubsPtr->tkDeleteAllImages)(mainPtr) /* 16 */ +#endif +#ifndef TkDoConfigureNotify +#define TkDoConfigureNotify(winPtr) \ + (tkIntStubsPtr->tkDoConfigureNotify)(winPtr) /* 17 */ +#endif +#ifndef TkDrawInsetFocusHighlight +#define TkDrawInsetFocusHighlight(tkwin, gc, width, drawable, padding) \ + (tkIntStubsPtr->tkDrawInsetFocusHighlight)(tkwin, gc, width, drawable, padding) /* 18 */ +#endif +#ifndef TkEventDeadWindow +#define TkEventDeadWindow(winPtr) \ + (tkIntStubsPtr->tkEventDeadWindow)(winPtr) /* 19 */ +#endif +#ifndef TkFillPolygon +#define TkFillPolygon(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC) \ + (tkIntStubsPtr->tkFillPolygon)(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC) /* 20 */ +#endif +#ifndef TkFindStateNum +#define TkFindStateNum(interp, option, mapPtr, strKey) \ + (tkIntStubsPtr->tkFindStateNum)(interp, option, mapPtr, strKey) /* 21 */ +#endif +#ifndef TkFindStateString +#define TkFindStateString(mapPtr, numKey) \ + (tkIntStubsPtr->tkFindStateString)(mapPtr, numKey) /* 22 */ +#endif +#ifndef TkFocusDeadWindow +#define TkFocusDeadWindow(winPtr) \ + (tkIntStubsPtr->tkFocusDeadWindow)(winPtr) /* 23 */ +#endif +#ifndef TkFocusFilterEvent +#define TkFocusFilterEvent(winPtr, eventPtr) \ + (tkIntStubsPtr->tkFocusFilterEvent)(winPtr, eventPtr) /* 24 */ +#endif +#ifndef TkFocusKeyEvent +#define TkFocusKeyEvent(winPtr, eventPtr) \ + (tkIntStubsPtr->tkFocusKeyEvent)(winPtr, eventPtr) /* 25 */ +#endif +#ifndef TkFontPkgInit +#define TkFontPkgInit(mainPtr) \ + (tkIntStubsPtr->tkFontPkgInit)(mainPtr) /* 26 */ +#endif +#ifndef TkFontPkgFree +#define TkFontPkgFree(mainPtr) \ + (tkIntStubsPtr->tkFontPkgFree)(mainPtr) /* 27 */ +#endif +#ifndef TkFreeBindingTags +#define TkFreeBindingTags(winPtr) \ + (tkIntStubsPtr->tkFreeBindingTags)(winPtr) /* 28 */ +#endif +#ifndef TkFreeCursor +#define TkFreeCursor(cursorPtr) \ + (tkIntStubsPtr->tkFreeCursor)(cursorPtr) /* 29 */ +#endif +#ifndef TkGetBitmapData +#define TkGetBitmapData(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr) \ + (tkIntStubsPtr->tkGetBitmapData)(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr) /* 30 */ +#endif +#ifndef TkGetButtPoints +#define TkGetButtPoints(p1, p2, width, project, m1, m2) \ + (tkIntStubsPtr->tkGetButtPoints)(p1, p2, width, project, m1, m2) /* 31 */ +#endif +#ifndef TkGetCursorByName +#define TkGetCursorByName(interp, tkwin, string) \ + (tkIntStubsPtr->tkGetCursorByName)(interp, tkwin, string) /* 32 */ +#endif +#ifndef TkGetDefaultScreenName +#define TkGetDefaultScreenName(interp, screenName) \ + (tkIntStubsPtr->tkGetDefaultScreenName)(interp, screenName) /* 33 */ +#endif +#ifndef TkGetDisplay +#define TkGetDisplay(display) \ + (tkIntStubsPtr->tkGetDisplay)(display) /* 34 */ +#endif +#ifndef TkGetDisplayOf +#define TkGetDisplayOf(interp, objc, objv, tkwinPtr) \ + (tkIntStubsPtr->tkGetDisplayOf)(interp, objc, objv, tkwinPtr) /* 35 */ +#endif +#ifndef TkGetFocusWin +#define TkGetFocusWin(winPtr) \ + (tkIntStubsPtr->tkGetFocusWin)(winPtr) /* 36 */ +#endif +#ifndef TkGetInterpNames +#define TkGetInterpNames(interp, tkwin) \ + (tkIntStubsPtr->tkGetInterpNames)(interp, tkwin) /* 37 */ +#endif +#ifndef TkGetMiterPoints +#define TkGetMiterPoints(p1, p2, p3, width, m1, m2) \ + (tkIntStubsPtr->tkGetMiterPoints)(p1, p2, p3, width, m1, m2) /* 38 */ +#endif +#ifndef TkGetPointerCoords +#define TkGetPointerCoords(tkwin, xPtr, yPtr) \ + (tkIntStubsPtr->tkGetPointerCoords)(tkwin, xPtr, yPtr) /* 39 */ +#endif +#ifndef TkGetServerInfo +#define TkGetServerInfo(interp, tkwin) \ + (tkIntStubsPtr->tkGetServerInfo)(interp, tkwin) /* 40 */ +#endif +#ifndef TkGrabDeadWindow +#define TkGrabDeadWindow(winPtr) \ + (tkIntStubsPtr->tkGrabDeadWindow)(winPtr) /* 41 */ +#endif +#ifndef TkGrabState +#define TkGrabState(winPtr) \ + (tkIntStubsPtr->tkGrabState)(winPtr) /* 42 */ +#endif +#ifndef TkIncludePoint +#define TkIncludePoint(itemPtr, pointPtr) \ + (tkIntStubsPtr->tkIncludePoint)(itemPtr, pointPtr) /* 43 */ +#endif +#ifndef TkInOutEvents +#define TkInOutEvents(eventPtr, sourcePtr, destPtr, leaveType, enterType, position) \ + (tkIntStubsPtr->tkInOutEvents)(eventPtr, sourcePtr, destPtr, leaveType, enterType, position) /* 44 */ +#endif +#ifndef TkInstallFrameMenu +#define TkInstallFrameMenu(tkwin) \ + (tkIntStubsPtr->tkInstallFrameMenu)(tkwin) /* 45 */ +#endif +#ifndef TkKeysymToString +#define TkKeysymToString(keysym) \ + (tkIntStubsPtr->tkKeysymToString)(keysym) /* 46 */ +#endif +#ifndef TkLineToArea +#define TkLineToArea(end1Ptr, end2Ptr, rectPtr) \ + (tkIntStubsPtr->tkLineToArea)(end1Ptr, end2Ptr, rectPtr) /* 47 */ +#endif +#ifndef TkLineToPoint +#define TkLineToPoint(end1Ptr, end2Ptr, pointPtr) \ + (tkIntStubsPtr->tkLineToPoint)(end1Ptr, end2Ptr, pointPtr) /* 48 */ +#endif +#ifndef TkMakeBezierCurve +#define TkMakeBezierCurve(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints) \ + (tkIntStubsPtr->tkMakeBezierCurve)(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints) /* 49 */ +#endif +#ifndef TkMakeBezierPostscript +#define TkMakeBezierPostscript(interp, canvas, pointPtr, numPoints) \ + (tkIntStubsPtr->tkMakeBezierPostscript)(interp, canvas, pointPtr, numPoints) /* 50 */ +#endif +#ifndef TkOptionClassChanged +#define TkOptionClassChanged(winPtr) \ + (tkIntStubsPtr->tkOptionClassChanged)(winPtr) /* 51 */ +#endif +#ifndef TkOptionDeadWindow +#define TkOptionDeadWindow(winPtr) \ + (tkIntStubsPtr->tkOptionDeadWindow)(winPtr) /* 52 */ +#endif +#ifndef TkOvalToArea +#define TkOvalToArea(ovalPtr, rectPtr) \ + (tkIntStubsPtr->tkOvalToArea)(ovalPtr, rectPtr) /* 53 */ +#endif +#ifndef TkOvalToPoint +#define TkOvalToPoint(ovalPtr, width, filled, pointPtr) \ + (tkIntStubsPtr->tkOvalToPoint)(ovalPtr, width, filled, pointPtr) /* 54 */ +#endif +#ifndef TkpChangeFocus +#define TkpChangeFocus(winPtr, force) \ + (tkIntStubsPtr->tkpChangeFocus)(winPtr, force) /* 55 */ +#endif +#ifndef TkpCloseDisplay +#define TkpCloseDisplay(dispPtr) \ + (tkIntStubsPtr->tkpCloseDisplay)(dispPtr) /* 56 */ +#endif +#ifndef TkpClaimFocus +#define TkpClaimFocus(topLevelPtr, force) \ + (tkIntStubsPtr->tkpClaimFocus)(topLevelPtr, force) /* 57 */ +#endif +#ifndef TkpDisplayWarning +#define TkpDisplayWarning(msg, title) \ + (tkIntStubsPtr->tkpDisplayWarning)(msg, title) /* 58 */ +#endif +#ifndef TkpGetAppName +#define TkpGetAppName(interp, name) \ + (tkIntStubsPtr->tkpGetAppName)(interp, name) /* 59 */ +#endif +#ifndef TkpGetOtherWindow +#define TkpGetOtherWindow(winPtr) \ + (tkIntStubsPtr->tkpGetOtherWindow)(winPtr) /* 60 */ +#endif +#ifndef TkpGetWrapperWindow +#define TkpGetWrapperWindow(winPtr) \ + (tkIntStubsPtr->tkpGetWrapperWindow)(winPtr) /* 61 */ +#endif +#ifndef TkpInit +#define TkpInit(interp) \ + (tkIntStubsPtr->tkpInit)(interp) /* 62 */ +#endif +#ifndef TkpInitializeMenuBindings +#define TkpInitializeMenuBindings(interp, bindingTable) \ + (tkIntStubsPtr->tkpInitializeMenuBindings)(interp, bindingTable) /* 63 */ +#endif +#ifndef TkpMakeContainer +#define TkpMakeContainer(tkwin) \ + (tkIntStubsPtr->tkpMakeContainer)(tkwin) /* 64 */ +#endif +#ifndef TkpMakeMenuWindow +#define TkpMakeMenuWindow(tkwin, transient) \ + (tkIntStubsPtr->tkpMakeMenuWindow)(tkwin, transient) /* 65 */ +#endif +#ifndef TkpMakeWindow +#define TkpMakeWindow(winPtr, parent) \ + (tkIntStubsPtr->tkpMakeWindow)(winPtr, parent) /* 66 */ +#endif +#ifndef TkpMenuNotifyToplevelCreate +#define TkpMenuNotifyToplevelCreate(interp1, menuName) \ + (tkIntStubsPtr->tkpMenuNotifyToplevelCreate)(interp1, menuName) /* 67 */ +#endif +#ifndef TkpOpenDisplay +#define TkpOpenDisplay(display_name) \ + (tkIntStubsPtr->tkpOpenDisplay)(display_name) /* 68 */ +#endif +#ifndef TkPointerEvent +#define TkPointerEvent(eventPtr, winPtr) \ + (tkIntStubsPtr->tkPointerEvent)(eventPtr, winPtr) /* 69 */ +#endif +#ifndef TkPolygonToArea +#define TkPolygonToArea(polyPtr, numPoints, rectPtr) \ + (tkIntStubsPtr->tkPolygonToArea)(polyPtr, numPoints, rectPtr) /* 70 */ +#endif +#ifndef TkPolygonToPoint +#define TkPolygonToPoint(polyPtr, numPoints, pointPtr) \ + (tkIntStubsPtr->tkPolygonToPoint)(polyPtr, numPoints, pointPtr) /* 71 */ +#endif +#ifndef TkPositionInTree +#define TkPositionInTree(winPtr, treePtr) \ + (tkIntStubsPtr->tkPositionInTree)(winPtr, treePtr) /* 72 */ +#endif +#ifndef TkpRedirectKeyEvent +#define TkpRedirectKeyEvent(winPtr, eventPtr) \ + (tkIntStubsPtr->tkpRedirectKeyEvent)(winPtr, eventPtr) /* 73 */ +#endif +#ifndef TkpSetMainMenubar +#define TkpSetMainMenubar(interp, tkwin, menuName) \ + (tkIntStubsPtr->tkpSetMainMenubar)(interp, tkwin, menuName) /* 74 */ +#endif +#ifndef TkpUseWindow +#define TkpUseWindow(interp, tkwin, string) \ + (tkIntStubsPtr->tkpUseWindow)(interp, tkwin, string) /* 75 */ +#endif +#ifndef TkpWindowWasRecentlyDeleted +#define TkpWindowWasRecentlyDeleted(win, dispPtr) \ + (tkIntStubsPtr->tkpWindowWasRecentlyDeleted)(win, dispPtr) /* 76 */ +#endif +#ifndef TkQueueEventForAllChildren +#define TkQueueEventForAllChildren(winPtr, eventPtr) \ + (tkIntStubsPtr->tkQueueEventForAllChildren)(winPtr, eventPtr) /* 77 */ +#endif +#ifndef TkReadBitmapFile +#define TkReadBitmapFile(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return) \ + (tkIntStubsPtr->tkReadBitmapFile)(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return) /* 78 */ +#endif +#ifndef TkScrollWindow +#define TkScrollWindow(tkwin, gc, x, y, width, height, dx, dy, damageRgn) \ + (tkIntStubsPtr->tkScrollWindow)(tkwin, gc, x, y, width, height, dx, dy, damageRgn) /* 79 */ +#endif +#ifndef TkSelDeadWindow +#define TkSelDeadWindow(winPtr) \ + (tkIntStubsPtr->tkSelDeadWindow)(winPtr) /* 80 */ +#endif +#ifndef TkSelEventProc +#define TkSelEventProc(tkwin, eventPtr) \ + (tkIntStubsPtr->tkSelEventProc)(tkwin, eventPtr) /* 81 */ +#endif +#ifndef TkSelInit +#define TkSelInit(tkwin) \ + (tkIntStubsPtr->tkSelInit)(tkwin) /* 82 */ +#endif +#ifndef TkSelPropProc +#define TkSelPropProc(eventPtr) \ + (tkIntStubsPtr->tkSelPropProc)(eventPtr) /* 83 */ +#endif +#ifndef TkSetClassProcs +#define TkSetClassProcs(tkwin, procs, instanceData) \ + (tkIntStubsPtr->tkSetClassProcs)(tkwin, procs, instanceData) /* 84 */ +#endif +#ifndef TkSetWindowMenuBar +#define TkSetWindowMenuBar(interp, tkwin, oldMenuName, menuName) \ + (tkIntStubsPtr->tkSetWindowMenuBar)(interp, tkwin, oldMenuName, menuName) /* 85 */ +#endif +#ifndef TkStringToKeysym +#define TkStringToKeysym(name) \ + (tkIntStubsPtr->tkStringToKeysym)(name) /* 86 */ +#endif +#ifndef TkThickPolyLineToArea +#define TkThickPolyLineToArea(coordPtr, numPoints, width, capStyle, joinStyle, rectPtr) \ + (tkIntStubsPtr->tkThickPolyLineToArea)(coordPtr, numPoints, width, capStyle, joinStyle, rectPtr) /* 87 */ +#endif +#ifndef TkWmAddToColormapWindows +#define TkWmAddToColormapWindows(winPtr) \ + (tkIntStubsPtr->tkWmAddToColormapWindows)(winPtr) /* 88 */ +#endif +#ifndef TkWmDeadWindow +#define TkWmDeadWindow(winPtr) \ + (tkIntStubsPtr->tkWmDeadWindow)(winPtr) /* 89 */ +#endif +#ifndef TkWmFocusToplevel +#define TkWmFocusToplevel(winPtr) \ + (tkIntStubsPtr->tkWmFocusToplevel)(winPtr) /* 90 */ +#endif +#ifndef TkWmMapWindow +#define TkWmMapWindow(winPtr) \ + (tkIntStubsPtr->tkWmMapWindow)(winPtr) /* 91 */ +#endif +#ifndef TkWmNewWindow +#define TkWmNewWindow(winPtr) \ + (tkIntStubsPtr->tkWmNewWindow)(winPtr) /* 92 */ +#endif +#ifndef TkWmProtocolEventProc +#define TkWmProtocolEventProc(winPtr, evenvPtr) \ + (tkIntStubsPtr->tkWmProtocolEventProc)(winPtr, evenvPtr) /* 93 */ +#endif +#ifndef TkWmRemoveFromColormapWindows +#define TkWmRemoveFromColormapWindows(winPtr) \ + (tkIntStubsPtr->tkWmRemoveFromColormapWindows)(winPtr) /* 94 */ +#endif +#ifndef TkWmRestackToplevel +#define TkWmRestackToplevel(winPtr, aboveBelow, otherPtr) \ + (tkIntStubsPtr->tkWmRestackToplevel)(winPtr, aboveBelow, otherPtr) /* 95 */ +#endif +#ifndef TkWmSetClass +#define TkWmSetClass(winPtr) \ + (tkIntStubsPtr->tkWmSetClass)(winPtr) /* 96 */ +#endif +#ifndef TkWmUnmapWindow +#define TkWmUnmapWindow(winPtr) \ + (tkIntStubsPtr->tkWmUnmapWindow)(winPtr) /* 97 */ +#endif + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKINTDECLS */ + diff --git a/generic/tkIntPlatDecls.h b/generic/tkIntPlatDecls.h new file mode 100644 index 0000000..a36f7d3 --- /dev/null +++ b/generic/tkIntPlatDecls.h @@ -0,0 +1,955 @@ +/* + * tkIntPlatDecls.h -- + * + * This file contains the declarations for all platform dependent + * unsupported functions that are exported by the Tk library. These + * interfaces are not guaranteed to remain the same between + * versions. Use at your own risk. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tkIntPlatDecls.h,v 1.2 1999/03/10 07:04:40 stanton Exp $ + */ + +#ifndef _TKINTPLATDECLS +#define _TKINTPLATDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tkInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* 0 */ +EXTERN void TkCreateXEventSource _ANSI_ARGS_((void)); +/* 1 */ +EXTERN void TkFreeWindowId _ANSI_ARGS_((TkDisplay * dispPtr, + Window w)); +/* 2 */ +EXTERN void TkInitXId _ANSI_ARGS_((TkDisplay * dispPtr)); +/* 3 */ +EXTERN int TkpCmapStressed _ANSI_ARGS_((Tk_Window tkwin, + Colormap colormap)); +/* 4 */ +EXTERN void TkpSync _ANSI_ARGS_((Display * display)); +/* 5 */ +EXTERN Window TkUnixContainerId _ANSI_ARGS_((TkWindow * winPtr)); +/* 6 */ +EXTERN int TkUnixDoOneXEvent _ANSI_ARGS_((Tcl_Time * timePtr)); +/* 7 */ +EXTERN void TkUnixSetMenubar _ANSI_ARGS_((Tk_Window tkwin, + Tk_Window menubar)); +#endif /* UNIX */ +#ifdef __WIN32__ +/* 0 */ +EXTERN char * TkAlignImageData _ANSI_ARGS_((XImage * image, + int alignment, int bitOrder)); +/* 1 */ +EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn, + XRectangle* rect_return)); +/* 2 */ +EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void)); +/* 3 */ +EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn)); +/* 4 */ +EXTERN void TkGenerateActivateEvents _ANSI_ARGS_(( + TkWindow * winPtr, int active)); +/* 5 */ +EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra, + TkRegion srcb, TkRegion dr_return)); +/* 6 */ +EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void)); +/* 7 */ +EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 8 */ +EXTERN void TkpPrintWindowId _ANSI_ARGS_((char * buf, + Window window)); +/* 9 */ +EXTERN int TkpScanWindowId _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * idPtr)); +/* 10 */ +EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow * winPtr)); +/* 11 */ +EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor)); +/* 12 */ +EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr, + int state)); +/* 13 */ +EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, int x, + int y, unsigned int width, + unsigned int height)); +/* 14 */ +EXTERN void TkSetPixmapColormap _ANSI_ARGS_((Pixmap pixmap, + Colormap colormap)); +/* 15 */ +EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc, + TkRegion rgn)); +/* 16 */ +EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect, + TkRegion src, TkRegion dr_return)); +/* 17 */ +EXTERN void TkWinCancelMouseTimer _ANSI_ARGS_((void)); +/* 18 */ +EXTERN void TkWinClipboardRender _ANSI_ARGS_(( + TkDisplay * dispPtr, UINT format)); +/* 19 */ +EXTERN LRESULT TkWinEmbeddedEventProc _ANSI_ARGS_((HWND hwnd, + UINT message, WPARAM wParam, LPARAM lParam)); +/* 20 */ +EXTERN void TkWinFillRect _ANSI_ARGS_((HDC dc, int x, int y, + int width, int height, int pixel)); +/* 21 */ +EXTERN COLORREF TkWinGetBorderPixels _ANSI_ARGS_((Tk_Window tkwin, + Tk_3DBorder border, int which)); +/* 22 */ +EXTERN HDC TkWinGetDrawableDC _ANSI_ARGS_((Display * display, + Drawable d, TkWinDCState* state)); +/* 23 */ +EXTERN int TkWinGetModifierState _ANSI_ARGS_((void)); +/* 24 */ +EXTERN HPALETTE TkWinGetSystemPalette _ANSI_ARGS_((void)); +/* 25 */ +EXTERN HWND TkWinGetWrapperWindow _ANSI_ARGS_((Tk_Window tkwin)); +/* 26 */ +EXTERN int TkWinHandleMenuEvent _ANSI_ARGS_((HWND * phwnd, + UINT * pMessage, WPARAM * pwParam, + LPARAM * plParam, LRESULT * plResult)); +/* 27 */ +EXTERN int TkWinIndexOfColor _ANSI_ARGS_((XColor * colorPtr)); +/* 28 */ +EXTERN void TkWinReleaseDrawableDC _ANSI_ARGS_((Drawable d, + HDC hdc, TkWinDCState* state)); +/* 29 */ +EXTERN LRESULT TkWinResendEvent _ANSI_ARGS_((WNDPROC wndproc, + HWND hwnd, XEvent * eventPtr)); +/* 30 */ +EXTERN HPALETTE TkWinSelectPalette _ANSI_ARGS_((HDC dc, + Colormap colormap)); +/* 31 */ +EXTERN void TkWinSetMenu _ANSI_ARGS_((Tk_Window tkwin, + HMENU hMenu)); +/* 32 */ +EXTERN void TkWinSetWindowPos _ANSI_ARGS_((HWND hwnd, + HWND siblingHwnd, int pos)); +/* 33 */ +EXTERN void TkWinWmCleanup _ANSI_ARGS_((HINSTANCE hInstance)); +/* 34 */ +EXTERN void TkWinXCleanup _ANSI_ARGS_((HINSTANCE hInstance)); +/* 35 */ +EXTERN void TkWinXInit _ANSI_ARGS_((HINSTANCE hInstance)); +#endif /* __WIN32__ */ +#ifdef MAC_TCL +/* 0 */ +EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn, + XRectangle* rect_return)); +/* 1 */ +EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void)); +/* 2 */ +EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn)); +/* 3 */ +EXTERN void TkGenerateActivateEvents _ANSI_ARGS_(( + TkWindow * winPtr, int active)); +/* 4 */ +EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra, + TkRegion srcb, TkRegion dr_return)); +/* 5 */ +EXTERN Pixmap TkpCreateNativeBitmap _ANSI_ARGS_((Display * display, + char * source)); +/* 6 */ +EXTERN void TkpDefineNativeBitmaps _ANSI_ARGS_((void)); +/* 7 */ +EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void)); +/* 8 */ +EXTERN Pixmap TkpGetNativeAppBitmap _ANSI_ARGS_((Display * display, + char * name, int * width, int * height)); +/* 9 */ +EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); +/* 10 */ +EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow * winPtr)); +/* 11 */ +EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor)); +/* 12 */ +EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr, + int state)); +/* 13 */ +EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, int x, + int y, unsigned int width, + unsigned int height)); +/* 14 */ +EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc, + TkRegion rgn)); +/* 15 */ +EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect, + TkRegion src, TkRegion dr_return)); +/* 16 */ +EXTERN int HandleWMEvent _ANSI_ARGS_((EventRecord * theEvent)); +/* 17 */ +EXTERN void TkAboutDlg _ANSI_ARGS_((void)); +/* 18 */ +EXTERN void TkCreateMacEventSource _ANSI_ARGS_((void)); +/* 19 */ +EXTERN void TkFontList _ANSI_ARGS_((Tcl_Interp * interp, + Display * display)); +/* 20 */ +EXTERN Window TkGetTransientMaster _ANSI_ARGS_((TkWindow * winPtr)); +/* 21 */ +EXTERN int TkGenerateButtonEvent _ANSI_ARGS_((int x, int y, + Window window, unsigned int state)); +/* 22 */ +EXTERN int TkGetCharPositions _ANSI_ARGS_(( + XFontStruct * font_struct, char * string, + int count, short * buffer)); +/* 23 */ +EXTERN void TkGenWMDestroyEvent _ANSI_ARGS_((Tk_Window tkwin)); +/* 24 */ +EXTERN void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin, + int x, int y, int width, int height, + int flags)); +/* 25 */ +EXTERN unsigned int TkMacButtonKeyState _ANSI_ARGS_((void)); +/* 26 */ +EXTERN void TkMacClearMenubarActive _ANSI_ARGS_((void)); +/* 27 */ +EXTERN int TkMacConvertEvent _ANSI_ARGS_(( + EventRecord * eventPtr)); +/* 28 */ +EXTERN int TkMacDispatchMenuEvent _ANSI_ARGS_((int menuID, + int index)); +/* 29 */ +EXTERN void TkMacInstallCursor _ANSI_ARGS_((int resizeOverride)); +/* 30 */ +EXTERN int TkMacConvertTkEvent _ANSI_ARGS_(( + EventRecord * eventPtr, Window window)); +/* 31 */ +EXTERN void TkMacHandleTearoffMenu _ANSI_ARGS_((void)); +/* 32 */ +EXTERN void tkMacInstallMWConsole _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 33 */ +EXTERN void TkMacInvalClipRgns _ANSI_ARGS_((TkWindow * winPtr)); +/* 34 */ +EXTERN void TkMacDoHLEvent _ANSI_ARGS_((EventRecord * theEvent)); +/* 35 */ +EXTERN void TkMacFontInfo _ANSI_ARGS_((Font fontId, + short * family, short * style, short * size)); +/* 36 */ +EXTERN Time TkMacGenerateTime _ANSI_ARGS_((void)); +/* 37 */ +EXTERN GWorldPtr TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable)); +/* 38 */ +EXTERN TkWindow * TkMacGetScrollbarGrowWindow _ANSI_ARGS_(( + TkWindow * winPtr)); +/* 39 */ +EXTERN Window TkMacGetXWindow _ANSI_ARGS_((WindowRef macWinPtr)); +/* 40 */ +EXTERN int TkMacGrowToplevel _ANSI_ARGS_((WindowRef whichWindow, + Point start)); +/* 41 */ +EXTERN void TkMacHandleMenuSelect _ANSI_ARGS_((long mResult, + int optionKeyPressed)); +/* 42 */ +EXTERN int TkMacHaveAppearance _ANSI_ARGS_((void)); +/* 43 */ +EXTERN void TkMacInitAppleEvents _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 44 */ +EXTERN void TkMacInitMenus _ANSI_ARGS_((Tcl_Interp * interp)); +/* 45 */ +EXTERN void TkMacInvalidateWindow _ANSI_ARGS_(( + MacDrawable * macWin, int flag)); +/* 46 */ +EXTERN int TkMacIsCharacterMissing _ANSI_ARGS_((Tk_Font tkfont, + unsigned int searchChar)); +/* 47 */ +EXTERN void TkMacMakeRealWindowExist _ANSI_ARGS_(( + TkWindow * winPtr)); +/* 48 */ +EXTERN BitMapPtr TkMacMakeStippleMap _ANSI_ARGS_((Drawable d1, + Drawable d2)); +/* 49 */ +EXTERN void TkMacMenuClick _ANSI_ARGS_((void)); +/* 50 */ +EXTERN void TkMacRegisterOffScreenWindow _ANSI_ARGS_(( + Window window, GWorldPtr portPtr)); +/* 51 */ +EXTERN int TkMacResizable _ANSI_ARGS_((TkWindow * winPtr)); +/* 52 */ +EXTERN void TkMacSetEmbedRgn _ANSI_ARGS_((TkWindow * winPtr, + RgnHandle rgn)); +/* 53 */ +EXTERN void TkMacSetHelpMenuItemCount _ANSI_ARGS_((void)); +/* 54 */ +EXTERN void TkMacSetScrollbarGrow _ANSI_ARGS_((TkWindow * winPtr, + int flag)); +/* 55 */ +EXTERN void TkMacSetUpClippingRgn _ANSI_ARGS_((Drawable drawable)); +/* 56 */ +EXTERN void TkMacSetUpGraphicsPort _ANSI_ARGS_((GC gc)); +/* 57 */ +EXTERN void TkMacUpdateClipRgn _ANSI_ARGS_((TkWindow * winPtr)); +/* 58 */ +EXTERN void TkMacUnregisterMacWindow _ANSI_ARGS_(( + GWorldPtr portPtr)); +/* 59 */ +EXTERN int TkMacUseMenuID _ANSI_ARGS_((short macID)); +/* 60 */ +EXTERN RgnHandle TkMacVisableClipRgn _ANSI_ARGS_((TkWindow * winPtr)); +/* 61 */ +EXTERN void TkMacWinBounds _ANSI_ARGS_((TkWindow * winPtr, + Rect * geometry)); +/* 62 */ +EXTERN void TkMacWindowOffset _ANSI_ARGS_((WindowRef wRef, + int * xOffset, int * yOffset)); +/* 63 */ +EXTERN void TkResumeClipboard _ANSI_ARGS_((void)); +/* 64 */ +EXTERN int TkSetMacColor _ANSI_ARGS_((unsigned long pixel, + RGBColor * macColor)); +/* 65 */ +EXTERN void TkSetWMName _ANSI_ARGS_((TkWindow * winPtr, + Tk_Uid titleUid)); +/* 66 */ +EXTERN void TkSuspendClipboard _ANSI_ARGS_((void)); +/* 67 */ +EXTERN int TkWMGrowToplevel _ANSI_ARGS_((WindowRef whichWindow, + Point start)); +/* 68 */ +EXTERN int TkMacZoomToplevel _ANSI_ARGS_((WindowPtr whichWindow, + Point where, short zoomPart)); +/* 69 */ +EXTERN Tk_Window Tk_TopCoordsToWindow _ANSI_ARGS_((Tk_Window tkwin, + int rootX, int rootY, int * newX, int * newY)); +/* 70 */ +EXTERN MacDrawable * TkMacContainerId _ANSI_ARGS_((TkWindow * winPtr)); +/* 71 */ +EXTERN MacDrawable * TkMacGetHostToplevel _ANSI_ARGS_((TkWindow * winPtr)); +#endif /* MAC_TCL */ + +typedef struct TkIntPlatStubs { + int magic; + struct TkIntPlatStubHooks *hooks; + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + void (*tkCreateXEventSource) _ANSI_ARGS_((void)); /* 0 */ + void (*tkFreeWindowId) _ANSI_ARGS_((TkDisplay * dispPtr, Window w)); /* 1 */ + void (*tkInitXId) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 2 */ + int (*tkpCmapStressed) _ANSI_ARGS_((Tk_Window tkwin, Colormap colormap)); /* 3 */ + void (*tkpSync) _ANSI_ARGS_((Display * display)); /* 4 */ + Window (*tkUnixContainerId) _ANSI_ARGS_((TkWindow * winPtr)); /* 5 */ + int (*tkUnixDoOneXEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 6 */ + void (*tkUnixSetMenubar) _ANSI_ARGS_((Tk_Window tkwin, Tk_Window menubar)); /* 7 */ +#endif /* UNIX */ +#ifdef __WIN32__ + char * (*tkAlignImageData) _ANSI_ARGS_((XImage * image, int alignment, int bitOrder)); /* 0 */ + void (*tkClipBox) _ANSI_ARGS_((TkRegion rgn, XRectangle* rect_return)); /* 1 */ + TkRegion (*tkCreateRegion) _ANSI_ARGS_((void)); /* 2 */ + void (*tkDestroyRegion) _ANSI_ARGS_((TkRegion rgn)); /* 3 */ + void (*tkGenerateActivateEvents) _ANSI_ARGS_((TkWindow * winPtr, int active)); /* 4 */ + void (*tkIntersectRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 5 */ + unsigned long (*tkpGetMS) _ANSI_ARGS_((void)); /* 6 */ + void (*tkPointerDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 7 */ + void (*tkpPrintWindowId) _ANSI_ARGS_((char * buf, Window window)); /* 8 */ + int (*tkpScanWindowId) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * idPtr)); /* 9 */ + void (*tkpSetCapture) _ANSI_ARGS_((TkWindow * winPtr)); /* 10 */ + void (*tkpSetCursor) _ANSI_ARGS_((TkpCursor cursor)); /* 11 */ + void (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 12 */ + int (*tkRectInRegion) _ANSI_ARGS_((TkRegion rgn, int x, int y, unsigned int width, unsigned int height)); /* 13 */ + void (*tkSetPixmapColormap) _ANSI_ARGS_((Pixmap pixmap, Colormap colormap)); /* 14 */ + void (*tkSetRegion) _ANSI_ARGS_((Display* display, GC gc, TkRegion rgn)); /* 15 */ + void (*tkUnionRectWithRegion) _ANSI_ARGS_((XRectangle* rect, TkRegion src, TkRegion dr_return)); /* 16 */ + void (*tkWinCancelMouseTimer) _ANSI_ARGS_((void)); /* 17 */ + void (*tkWinClipboardRender) _ANSI_ARGS_((TkDisplay * dispPtr, UINT format)); /* 18 */ + LRESULT (*tkWinEmbeddedEventProc) _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)); /* 19 */ + void (*tkWinFillRect) _ANSI_ARGS_((HDC dc, int x, int y, int width, int height, int pixel)); /* 20 */ + COLORREF (*tkWinGetBorderPixels) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border, int which)); /* 21 */ + HDC (*tkWinGetDrawableDC) _ANSI_ARGS_((Display * display, Drawable d, TkWinDCState* state)); /* 22 */ + int (*tkWinGetModifierState) _ANSI_ARGS_((void)); /* 23 */ + HPALETTE (*tkWinGetSystemPalette) _ANSI_ARGS_((void)); /* 24 */ + HWND (*tkWinGetWrapperWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 25 */ + int (*tkWinHandleMenuEvent) _ANSI_ARGS_((HWND * phwnd, UINT * pMessage, WPARAM * pwParam, LPARAM * plParam, LRESULT * plResult)); /* 26 */ + int (*tkWinIndexOfColor) _ANSI_ARGS_((XColor * colorPtr)); /* 27 */ + void (*tkWinReleaseDrawableDC) _ANSI_ARGS_((Drawable d, HDC hdc, TkWinDCState* state)); /* 28 */ + LRESULT (*tkWinResendEvent) _ANSI_ARGS_((WNDPROC wndproc, HWND hwnd, XEvent * eventPtr)); /* 29 */ + HPALETTE (*tkWinSelectPalette) _ANSI_ARGS_((HDC dc, Colormap colormap)); /* 30 */ + void (*tkWinSetMenu) _ANSI_ARGS_((Tk_Window tkwin, HMENU hMenu)); /* 31 */ + void (*tkWinSetWindowPos) _ANSI_ARGS_((HWND hwnd, HWND siblingHwnd, int pos)); /* 32 */ + void (*tkWinWmCleanup) _ANSI_ARGS_((HINSTANCE hInstance)); /* 33 */ + void (*tkWinXCleanup) _ANSI_ARGS_((HINSTANCE hInstance)); /* 34 */ + void (*tkWinXInit) _ANSI_ARGS_((HINSTANCE hInstance)); /* 35 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + void (*tkClipBox) _ANSI_ARGS_((TkRegion rgn, XRectangle* rect_return)); /* 0 */ + TkRegion (*tkCreateRegion) _ANSI_ARGS_((void)); /* 1 */ + void (*tkDestroyRegion) _ANSI_ARGS_((TkRegion rgn)); /* 2 */ + void (*tkGenerateActivateEvents) _ANSI_ARGS_((TkWindow * winPtr, int active)); /* 3 */ + void (*tkIntersectRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 4 */ + Pixmap (*tkpCreateNativeBitmap) _ANSI_ARGS_((Display * display, char * source)); /* 5 */ + void (*tkpDefineNativeBitmaps) _ANSI_ARGS_((void)); /* 6 */ + unsigned long (*tkpGetMS) _ANSI_ARGS_((void)); /* 7 */ + Pixmap (*tkpGetNativeAppBitmap) _ANSI_ARGS_((Display * display, char * name, int * width, int * height)); /* 8 */ + void (*tkPointerDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 9 */ + void (*tkpSetCapture) _ANSI_ARGS_((TkWindow * winPtr)); /* 10 */ + void (*tkpSetCursor) _ANSI_ARGS_((TkpCursor cursor)); /* 11 */ + void (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 12 */ + int (*tkRectInRegion) _ANSI_ARGS_((TkRegion rgn, int x, int y, unsigned int width, unsigned int height)); /* 13 */ + void (*tkSetRegion) _ANSI_ARGS_((Display* display, GC gc, TkRegion rgn)); /* 14 */ + void (*tkUnionRectWithRegion) _ANSI_ARGS_((XRectangle* rect, TkRegion src, TkRegion dr_return)); /* 15 */ + int (*handleWMEvent) _ANSI_ARGS_((EventRecord * theEvent)); /* 16 */ + void (*tkAboutDlg) _ANSI_ARGS_((void)); /* 17 */ + void (*tkCreateMacEventSource) _ANSI_ARGS_((void)); /* 18 */ + void (*tkFontList) _ANSI_ARGS_((Tcl_Interp * interp, Display * display)); /* 19 */ + Window (*tkGetTransientMaster) _ANSI_ARGS_((TkWindow * winPtr)); /* 20 */ + int (*tkGenerateButtonEvent) _ANSI_ARGS_((int x, int y, Window window, unsigned int state)); /* 21 */ + int (*tkGetCharPositions) _ANSI_ARGS_((XFontStruct * font_struct, char * string, int count, short * buffer)); /* 22 */ + void (*tkGenWMDestroyEvent) _ANSI_ARGS_((Tk_Window tkwin)); /* 23 */ + void (*tkGenWMConfigureEvent) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height, int flags)); /* 24 */ + unsigned int (*tkMacButtonKeyState) _ANSI_ARGS_((void)); /* 25 */ + void (*tkMacClearMenubarActive) _ANSI_ARGS_((void)); /* 26 */ + int (*tkMacConvertEvent) _ANSI_ARGS_((EventRecord * eventPtr)); /* 27 */ + int (*tkMacDispatchMenuEvent) _ANSI_ARGS_((int menuID, int index)); /* 28 */ + void (*tkMacInstallCursor) _ANSI_ARGS_((int resizeOverride)); /* 29 */ + int (*tkMacConvertTkEvent) _ANSI_ARGS_((EventRecord * eventPtr, Window window)); /* 30 */ + void (*tkMacHandleTearoffMenu) _ANSI_ARGS_((void)); /* 31 */ + void (*tkMacInstallMWConsole) _ANSI_ARGS_((Tcl_Interp * interp)); /* 32 */ + void (*tkMacInvalClipRgns) _ANSI_ARGS_((TkWindow * winPtr)); /* 33 */ + void (*tkMacDoHLEvent) _ANSI_ARGS_((EventRecord * theEvent)); /* 34 */ + void (*tkMacFontInfo) _ANSI_ARGS_((Font fontId, short * family, short * style, short * size)); /* 35 */ + Time (*tkMacGenerateTime) _ANSI_ARGS_((void)); /* 36 */ + GWorldPtr (*tkMacGetDrawablePort) _ANSI_ARGS_((Drawable drawable)); /* 37 */ + TkWindow * (*tkMacGetScrollbarGrowWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 38 */ + Window (*tkMacGetXWindow) _ANSI_ARGS_((WindowRef macWinPtr)); /* 39 */ + int (*tkMacGrowToplevel) _ANSI_ARGS_((WindowRef whichWindow, Point start)); /* 40 */ + void (*tkMacHandleMenuSelect) _ANSI_ARGS_((long mResult, int optionKeyPressed)); /* 41 */ + int (*tkMacHaveAppearance) _ANSI_ARGS_((void)); /* 42 */ + void (*tkMacInitAppleEvents) _ANSI_ARGS_((Tcl_Interp * interp)); /* 43 */ + void (*tkMacInitMenus) _ANSI_ARGS_((Tcl_Interp * interp)); /* 44 */ + void (*tkMacInvalidateWindow) _ANSI_ARGS_((MacDrawable * macWin, int flag)); /* 45 */ + int (*tkMacIsCharacterMissing) _ANSI_ARGS_((Tk_Font tkfont, unsigned int searchChar)); /* 46 */ + void (*tkMacMakeRealWindowExist) _ANSI_ARGS_((TkWindow * winPtr)); /* 47 */ + BitMapPtr (*tkMacMakeStippleMap) _ANSI_ARGS_((Drawable d1, Drawable d2)); /* 48 */ + void (*tkMacMenuClick) _ANSI_ARGS_((void)); /* 49 */ + void (*tkMacRegisterOffScreenWindow) _ANSI_ARGS_((Window window, GWorldPtr portPtr)); /* 50 */ + int (*tkMacResizable) _ANSI_ARGS_((TkWindow * winPtr)); /* 51 */ + void (*tkMacSetEmbedRgn) _ANSI_ARGS_((TkWindow * winPtr, RgnHandle rgn)); /* 52 */ + void (*tkMacSetHelpMenuItemCount) _ANSI_ARGS_((void)); /* 53 */ + void (*tkMacSetScrollbarGrow) _ANSI_ARGS_((TkWindow * winPtr, int flag)); /* 54 */ + void (*tkMacSetUpClippingRgn) _ANSI_ARGS_((Drawable drawable)); /* 55 */ + void (*tkMacSetUpGraphicsPort) _ANSI_ARGS_((GC gc)); /* 56 */ + void (*tkMacUpdateClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 57 */ + void (*tkMacUnregisterMacWindow) _ANSI_ARGS_((GWorldPtr portPtr)); /* 58 */ + int (*tkMacUseMenuID) _ANSI_ARGS_((short macID)); /* 59 */ + RgnHandle (*tkMacVisableClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 60 */ + void (*tkMacWinBounds) _ANSI_ARGS_((TkWindow * winPtr, Rect * geometry)); /* 61 */ + void (*tkMacWindowOffset) _ANSI_ARGS_((WindowRef wRef, int * xOffset, int * yOffset)); /* 62 */ + void (*tkResumeClipboard) _ANSI_ARGS_((void)); /* 63 */ + int (*tkSetMacColor) _ANSI_ARGS_((unsigned long pixel, RGBColor * macColor)); /* 64 */ + void (*tkSetWMName) _ANSI_ARGS_((TkWindow * winPtr, Tk_Uid titleUid)); /* 65 */ + void (*tkSuspendClipboard) _ANSI_ARGS_((void)); /* 66 */ + int (*tkWMGrowToplevel) _ANSI_ARGS_((WindowRef whichWindow, Point start)); /* 67 */ + int (*tkMacZoomToplevel) _ANSI_ARGS_((WindowPtr whichWindow, Point where, short zoomPart)); /* 68 */ + Tk_Window (*tk_TopCoordsToWindow) _ANSI_ARGS_((Tk_Window tkwin, int rootX, int rootY, int * newX, int * newY)); /* 69 */ + MacDrawable * (*tkMacContainerId) _ANSI_ARGS_((TkWindow * winPtr)); /* 70 */ + MacDrawable * (*tkMacGetHostToplevel) _ANSI_ARGS_((TkWindow * winPtr)); /* 71 */ +#endif /* MAC_TCL */ +} TkIntPlatStubs; + +extern TkIntPlatStubs *tkIntPlatStubsPtr; + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +#ifndef TkCreateXEventSource +#define TkCreateXEventSource() \ + (tkIntPlatStubsPtr->tkCreateXEventSource)() /* 0 */ +#endif +#ifndef TkFreeWindowId +#define TkFreeWindowId(dispPtr, w) \ + (tkIntPlatStubsPtr->tkFreeWindowId)(dispPtr, w) /* 1 */ +#endif +#ifndef TkInitXId +#define TkInitXId(dispPtr) \ + (tkIntPlatStubsPtr->tkInitXId)(dispPtr) /* 2 */ +#endif +#ifndef TkpCmapStressed +#define TkpCmapStressed(tkwin, colormap) \ + (tkIntPlatStubsPtr->tkpCmapStressed)(tkwin, colormap) /* 3 */ +#endif +#ifndef TkpSync +#define TkpSync(display) \ + (tkIntPlatStubsPtr->tkpSync)(display) /* 4 */ +#endif +#ifndef TkUnixContainerId +#define TkUnixContainerId(winPtr) \ + (tkIntPlatStubsPtr->tkUnixContainerId)(winPtr) /* 5 */ +#endif +#ifndef TkUnixDoOneXEvent +#define TkUnixDoOneXEvent(timePtr) \ + (tkIntPlatStubsPtr->tkUnixDoOneXEvent)(timePtr) /* 6 */ +#endif +#ifndef TkUnixSetMenubar +#define TkUnixSetMenubar(tkwin, menubar) \ + (tkIntPlatStubsPtr->tkUnixSetMenubar)(tkwin, menubar) /* 7 */ +#endif +#endif /* UNIX */ +#ifdef __WIN32__ +#ifndef TkAlignImageData +#define TkAlignImageData(image, alignment, bitOrder) \ + (tkIntPlatStubsPtr->tkAlignImageData)(image, alignment, bitOrder) /* 0 */ +#endif +#ifndef TkClipBox +#define TkClipBox(rgn, rect_return) \ + (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return) /* 1 */ +#endif +#ifndef TkCreateRegion +#define TkCreateRegion() \ + (tkIntPlatStubsPtr->tkCreateRegion)() /* 2 */ +#endif +#ifndef TkDestroyRegion +#define TkDestroyRegion(rgn) \ + (tkIntPlatStubsPtr->tkDestroyRegion)(rgn) /* 3 */ +#endif +#ifndef TkGenerateActivateEvents +#define TkGenerateActivateEvents(winPtr, active) \ + (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active) /* 4 */ +#endif +#ifndef TkIntersectRegion +#define TkIntersectRegion(sra, srcb, dr_return) \ + (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return) /* 5 */ +#endif +#ifndef TkpGetMS +#define TkpGetMS() \ + (tkIntPlatStubsPtr->tkpGetMS)() /* 6 */ +#endif +#ifndef TkPointerDeadWindow +#define TkPointerDeadWindow(winPtr) \ + (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr) /* 7 */ +#endif +#ifndef TkpPrintWindowId +#define TkpPrintWindowId(buf, window) \ + (tkIntPlatStubsPtr->tkpPrintWindowId)(buf, window) /* 8 */ +#endif +#ifndef TkpScanWindowId +#define TkpScanWindowId(interp, string, idPtr) \ + (tkIntPlatStubsPtr->tkpScanWindowId)(interp, string, idPtr) /* 9 */ +#endif +#ifndef TkpSetCapture +#define TkpSetCapture(winPtr) \ + (tkIntPlatStubsPtr->tkpSetCapture)(winPtr) /* 10 */ +#endif +#ifndef TkpSetCursor +#define TkpSetCursor(cursor) \ + (tkIntPlatStubsPtr->tkpSetCursor)(cursor) /* 11 */ +#endif +#ifndef TkpWmSetState +#define TkpWmSetState(winPtr, state) \ + (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state) /* 12 */ +#endif +#ifndef TkRectInRegion +#define TkRectInRegion(rgn, x, y, width, height) \ + (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height) /* 13 */ +#endif +#ifndef TkSetPixmapColormap +#define TkSetPixmapColormap(pixmap, colormap) \ + (tkIntPlatStubsPtr->tkSetPixmapColormap)(pixmap, colormap) /* 14 */ +#endif +#ifndef TkSetRegion +#define TkSetRegion(display, gc, rgn) \ + (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn) /* 15 */ +#endif +#ifndef TkUnionRectWithRegion +#define TkUnionRectWithRegion(rect, src, dr_return) \ + (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return) /* 16 */ +#endif +#ifndef TkWinCancelMouseTimer +#define TkWinCancelMouseTimer() \ + (tkIntPlatStubsPtr->tkWinCancelMouseTimer)() /* 17 */ +#endif +#ifndef TkWinClipboardRender +#define TkWinClipboardRender(dispPtr, format) \ + (tkIntPlatStubsPtr->tkWinClipboardRender)(dispPtr, format) /* 18 */ +#endif +#ifndef TkWinEmbeddedEventProc +#define TkWinEmbeddedEventProc(hwnd, message, wParam, lParam) \ + (tkIntPlatStubsPtr->tkWinEmbeddedEventProc)(hwnd, message, wParam, lParam) /* 19 */ +#endif +#ifndef TkWinFillRect +#define TkWinFillRect(dc, x, y, width, height, pixel) \ + (tkIntPlatStubsPtr->tkWinFillRect)(dc, x, y, width, height, pixel) /* 20 */ +#endif +#ifndef TkWinGetBorderPixels +#define TkWinGetBorderPixels(tkwin, border, which) \ + (tkIntPlatStubsPtr->tkWinGetBorderPixels)(tkwin, border, which) /* 21 */ +#endif +#ifndef TkWinGetDrawableDC +#define TkWinGetDrawableDC(display, d, state) \ + (tkIntPlatStubsPtr->tkWinGetDrawableDC)(display, d, state) /* 22 */ +#endif +#ifndef TkWinGetModifierState +#define TkWinGetModifierState() \ + (tkIntPlatStubsPtr->tkWinGetModifierState)() /* 23 */ +#endif +#ifndef TkWinGetSystemPalette +#define TkWinGetSystemPalette() \ + (tkIntPlatStubsPtr->tkWinGetSystemPalette)() /* 24 */ +#endif +#ifndef TkWinGetWrapperWindow +#define TkWinGetWrapperWindow(tkwin) \ + (tkIntPlatStubsPtr->tkWinGetWrapperWindow)(tkwin) /* 25 */ +#endif +#ifndef TkWinHandleMenuEvent +#define TkWinHandleMenuEvent(phwnd, pMessage, pwParam, plParam, plResult) \ + (tkIntPlatStubsPtr->tkWinHandleMenuEvent)(phwnd, pMessage, pwParam, plParam, plResult) /* 26 */ +#endif +#ifndef TkWinIndexOfColor +#define TkWinIndexOfColor(colorPtr) \ + (tkIntPlatStubsPtr->tkWinIndexOfColor)(colorPtr) /* 27 */ +#endif +#ifndef TkWinReleaseDrawableDC +#define TkWinReleaseDrawableDC(d, hdc, state) \ + (tkIntPlatStubsPtr->tkWinReleaseDrawableDC)(d, hdc, state) /* 28 */ +#endif +#ifndef TkWinResendEvent +#define TkWinResendEvent(wndproc, hwnd, eventPtr) \ + (tkIntPlatStubsPtr->tkWinResendEvent)(wndproc, hwnd, eventPtr) /* 29 */ +#endif +#ifndef TkWinSelectPalette +#define TkWinSelectPalette(dc, colormap) \ + (tkIntPlatStubsPtr->tkWinSelectPalette)(dc, colormap) /* 30 */ +#endif +#ifndef TkWinSetMenu +#define TkWinSetMenu(tkwin, hMenu) \ + (tkIntPlatStubsPtr->tkWinSetMenu)(tkwin, hMenu) /* 31 */ +#endif +#ifndef TkWinSetWindowPos +#define TkWinSetWindowPos(hwnd, siblingHwnd, pos) \ + (tkIntPlatStubsPtr->tkWinSetWindowPos)(hwnd, siblingHwnd, pos) /* 32 */ +#endif +#ifndef TkWinWmCleanup +#define TkWinWmCleanup(hInstance) \ + (tkIntPlatStubsPtr->tkWinWmCleanup)(hInstance) /* 33 */ +#endif +#ifndef TkWinXCleanup +#define TkWinXCleanup(hInstance) \ + (tkIntPlatStubsPtr->tkWinXCleanup)(hInstance) /* 34 */ +#endif +#ifndef TkWinXInit +#define TkWinXInit(hInstance) \ + (tkIntPlatStubsPtr->tkWinXInit)(hInstance) /* 35 */ +#endif +#endif /* __WIN32__ */ +#ifdef MAC_TCL +#ifndef TkClipBox +#define TkClipBox(rgn, rect_return) \ + (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return) /* 0 */ +#endif +#ifndef TkCreateRegion +#define TkCreateRegion() \ + (tkIntPlatStubsPtr->tkCreateRegion)() /* 1 */ +#endif +#ifndef TkDestroyRegion +#define TkDestroyRegion(rgn) \ + (tkIntPlatStubsPtr->tkDestroyRegion)(rgn) /* 2 */ +#endif +#ifndef TkGenerateActivateEvents +#define TkGenerateActivateEvents(winPtr, active) \ + (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active) /* 3 */ +#endif +#ifndef TkIntersectRegion +#define TkIntersectRegion(sra, srcb, dr_return) \ + (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return) /* 4 */ +#endif +#ifndef TkpCreateNativeBitmap +#define TkpCreateNativeBitmap(display, source) \ + (tkIntPlatStubsPtr->tkpCreateNativeBitmap)(display, source) /* 5 */ +#endif +#ifndef TkpDefineNativeBitmaps +#define TkpDefineNativeBitmaps() \ + (tkIntPlatStubsPtr->tkpDefineNativeBitmaps)() /* 6 */ +#endif +#ifndef TkpGetMS +#define TkpGetMS() \ + (tkIntPlatStubsPtr->tkpGetMS)() /* 7 */ +#endif +#ifndef TkpGetNativeAppBitmap +#define TkpGetNativeAppBitmap(display, name, width, height) \ + (tkIntPlatStubsPtr->tkpGetNativeAppBitmap)(display, name, width, height) /* 8 */ +#endif +#ifndef TkPointerDeadWindow +#define TkPointerDeadWindow(winPtr) \ + (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr) /* 9 */ +#endif +#ifndef TkpSetCapture +#define TkpSetCapture(winPtr) \ + (tkIntPlatStubsPtr->tkpSetCapture)(winPtr) /* 10 */ +#endif +#ifndef TkpSetCursor +#define TkpSetCursor(cursor) \ + (tkIntPlatStubsPtr->tkpSetCursor)(cursor) /* 11 */ +#endif +#ifndef TkpWmSetState +#define TkpWmSetState(winPtr, state) \ + (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state) /* 12 */ +#endif +#ifndef TkRectInRegion +#define TkRectInRegion(rgn, x, y, width, height) \ + (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height) /* 13 */ +#endif +#ifndef TkSetRegion +#define TkSetRegion(display, gc, rgn) \ + (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn) /* 14 */ +#endif +#ifndef TkUnionRectWithRegion +#define TkUnionRectWithRegion(rect, src, dr_return) \ + (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return) /* 15 */ +#endif +#ifndef HandleWMEvent +#define HandleWMEvent(theEvent) \ + (tkIntPlatStubsPtr->handleWMEvent)(theEvent) /* 16 */ +#endif +#ifndef TkAboutDlg +#define TkAboutDlg() \ + (tkIntPlatStubsPtr->tkAboutDlg)() /* 17 */ +#endif +#ifndef TkCreateMacEventSource +#define TkCreateMacEventSource() \ + (tkIntPlatStubsPtr->tkCreateMacEventSource)() /* 18 */ +#endif +#ifndef TkFontList +#define TkFontList(interp, display) \ + (tkIntPlatStubsPtr->tkFontList)(interp, display) /* 19 */ +#endif +#ifndef TkGetTransientMaster +#define TkGetTransientMaster(winPtr) \ + (tkIntPlatStubsPtr->tkGetTransientMaster)(winPtr) /* 20 */ +#endif +#ifndef TkGenerateButtonEvent +#define TkGenerateButtonEvent(x, y, window, state) \ + (tkIntPlatStubsPtr->tkGenerateButtonEvent)(x, y, window, state) /* 21 */ +#endif +#ifndef TkGetCharPositions +#define TkGetCharPositions(font_struct, string, count, buffer) \ + (tkIntPlatStubsPtr->tkGetCharPositions)(font_struct, string, count, buffer) /* 22 */ +#endif +#ifndef TkGenWMDestroyEvent +#define TkGenWMDestroyEvent(tkwin) \ + (tkIntPlatStubsPtr->tkGenWMDestroyEvent)(tkwin) /* 23 */ +#endif +#ifndef TkGenWMConfigureEvent +#define TkGenWMConfigureEvent(tkwin, x, y, width, height, flags) \ + (tkIntPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags) /* 24 */ +#endif +#ifndef TkMacButtonKeyState +#define TkMacButtonKeyState() \ + (tkIntPlatStubsPtr->tkMacButtonKeyState)() /* 25 */ +#endif +#ifndef TkMacClearMenubarActive +#define TkMacClearMenubarActive() \ + (tkIntPlatStubsPtr->tkMacClearMenubarActive)() /* 26 */ +#endif +#ifndef TkMacConvertEvent +#define TkMacConvertEvent(eventPtr) \ + (tkIntPlatStubsPtr->tkMacConvertEvent)(eventPtr) /* 27 */ +#endif +#ifndef TkMacDispatchMenuEvent +#define TkMacDispatchMenuEvent(menuID, index) \ + (tkIntPlatStubsPtr->tkMacDispatchMenuEvent)(menuID, index) /* 28 */ +#endif +#ifndef TkMacInstallCursor +#define TkMacInstallCursor(resizeOverride) \ + (tkIntPlatStubsPtr->tkMacInstallCursor)(resizeOverride) /* 29 */ +#endif +#ifndef TkMacConvertTkEvent +#define TkMacConvertTkEvent(eventPtr, window) \ + (tkIntPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window) /* 30 */ +#endif +#ifndef TkMacHandleTearoffMenu +#define TkMacHandleTearoffMenu() \ + (tkIntPlatStubsPtr->tkMacHandleTearoffMenu)() /* 31 */ +#endif +#ifndef tkMacInstallMWConsole +#define tkMacInstallMWConsole(interp) \ + (tkIntPlatStubsPtr->tkMacInstallMWConsole)(interp) /* 32 */ +#endif +#ifndef TkMacInvalClipRgns +#define TkMacInvalClipRgns(winPtr) \ + (tkIntPlatStubsPtr->tkMacInvalClipRgns)(winPtr) /* 33 */ +#endif +#ifndef TkMacDoHLEvent +#define TkMacDoHLEvent(theEvent) \ + (tkIntPlatStubsPtr->tkMacDoHLEvent)(theEvent) /* 34 */ +#endif +#ifndef TkMacFontInfo +#define TkMacFontInfo(fontId, family, style, size) \ + (tkIntPlatStubsPtr->tkMacFontInfo)(fontId, family, style, size) /* 35 */ +#endif +#ifndef TkMacGenerateTime +#define TkMacGenerateTime() \ + (tkIntPlatStubsPtr->tkMacGenerateTime)() /* 36 */ +#endif +#ifndef TkMacGetDrawablePort +#define TkMacGetDrawablePort(drawable) \ + (tkIntPlatStubsPtr->tkMacGetDrawablePort)(drawable) /* 37 */ +#endif +#ifndef TkMacGetScrollbarGrowWindow +#define TkMacGetScrollbarGrowWindow(winPtr) \ + (tkIntPlatStubsPtr->tkMacGetScrollbarGrowWindow)(winPtr) /* 38 */ +#endif +#ifndef TkMacGetXWindow +#define TkMacGetXWindow(macWinPtr) \ + (tkIntPlatStubsPtr->tkMacGetXWindow)(macWinPtr) /* 39 */ +#endif +#ifndef TkMacGrowToplevel +#define TkMacGrowToplevel(whichWindow, start) \ + (tkIntPlatStubsPtr->tkMacGrowToplevel)(whichWindow, start) /* 40 */ +#endif +#ifndef TkMacHandleMenuSelect +#define TkMacHandleMenuSelect(mResult, optionKeyPressed) \ + (tkIntPlatStubsPtr->tkMacHandleMenuSelect)(mResult, optionKeyPressed) /* 41 */ +#endif +#ifndef TkMacHaveAppearance +#define TkMacHaveAppearance() \ + (tkIntPlatStubsPtr->tkMacHaveAppearance)() /* 42 */ +#endif +#ifndef TkMacInitAppleEvents +#define TkMacInitAppleEvents(interp) \ + (tkIntPlatStubsPtr->tkMacInitAppleEvents)(interp) /* 43 */ +#endif +#ifndef TkMacInitMenus +#define TkMacInitMenus(interp) \ + (tkIntPlatStubsPtr->tkMacInitMenus)(interp) /* 44 */ +#endif +#ifndef TkMacInvalidateWindow +#define TkMacInvalidateWindow(macWin, flag) \ + (tkIntPlatStubsPtr->tkMacInvalidateWindow)(macWin, flag) /* 45 */ +#endif +#ifndef TkMacIsCharacterMissing +#define TkMacIsCharacterMissing(tkfont, searchChar) \ + (tkIntPlatStubsPtr->tkMacIsCharacterMissing)(tkfont, searchChar) /* 46 */ +#endif +#ifndef TkMacMakeRealWindowExist +#define TkMacMakeRealWindowExist(winPtr) \ + (tkIntPlatStubsPtr->tkMacMakeRealWindowExist)(winPtr) /* 47 */ +#endif +#ifndef TkMacMakeStippleMap +#define TkMacMakeStippleMap(d1, d2) \ + (tkIntPlatStubsPtr->tkMacMakeStippleMap)(d1, d2) /* 48 */ +#endif +#ifndef TkMacMenuClick +#define TkMacMenuClick() \ + (tkIntPlatStubsPtr->tkMacMenuClick)() /* 49 */ +#endif +#ifndef TkMacRegisterOffScreenWindow +#define TkMacRegisterOffScreenWindow(window, portPtr) \ + (tkIntPlatStubsPtr->tkMacRegisterOffScreenWindow)(window, portPtr) /* 50 */ +#endif +#ifndef TkMacResizable +#define TkMacResizable(winPtr) \ + (tkIntPlatStubsPtr->tkMacResizable)(winPtr) /* 51 */ +#endif +#ifndef TkMacSetEmbedRgn +#define TkMacSetEmbedRgn(winPtr, rgn) \ + (tkIntPlatStubsPtr->tkMacSetEmbedRgn)(winPtr, rgn) /* 52 */ +#endif +#ifndef TkMacSetHelpMenuItemCount +#define TkMacSetHelpMenuItemCount() \ + (tkIntPlatStubsPtr->tkMacSetHelpMenuItemCount)() /* 53 */ +#endif +#ifndef TkMacSetScrollbarGrow +#define TkMacSetScrollbarGrow(winPtr, flag) \ + (tkIntPlatStubsPtr->tkMacSetScrollbarGrow)(winPtr, flag) /* 54 */ +#endif +#ifndef TkMacSetUpClippingRgn +#define TkMacSetUpClippingRgn(drawable) \ + (tkIntPlatStubsPtr->tkMacSetUpClippingRgn)(drawable) /* 55 */ +#endif +#ifndef TkMacSetUpGraphicsPort +#define TkMacSetUpGraphicsPort(gc) \ + (tkIntPlatStubsPtr->tkMacSetUpGraphicsPort)(gc) /* 56 */ +#endif +#ifndef TkMacUpdateClipRgn +#define TkMacUpdateClipRgn(winPtr) \ + (tkIntPlatStubsPtr->tkMacUpdateClipRgn)(winPtr) /* 57 */ +#endif +#ifndef TkMacUnregisterMacWindow +#define TkMacUnregisterMacWindow(portPtr) \ + (tkIntPlatStubsPtr->tkMacUnregisterMacWindow)(portPtr) /* 58 */ +#endif +#ifndef TkMacUseMenuID +#define TkMacUseMenuID(macID) \ + (tkIntPlatStubsPtr->tkMacUseMenuID)(macID) /* 59 */ +#endif +#ifndef TkMacVisableClipRgn +#define TkMacVisableClipRgn(winPtr) \ + (tkIntPlatStubsPtr->tkMacVisableClipRgn)(winPtr) /* 60 */ +#endif +#ifndef TkMacWinBounds +#define TkMacWinBounds(winPtr, geometry) \ + (tkIntPlatStubsPtr->tkMacWinBounds)(winPtr, geometry) /* 61 */ +#endif +#ifndef TkMacWindowOffset +#define TkMacWindowOffset(wRef, xOffset, yOffset) \ + (tkIntPlatStubsPtr->tkMacWindowOffset)(wRef, xOffset, yOffset) /* 62 */ +#endif +#ifndef TkResumeClipboard +#define TkResumeClipboard() \ + (tkIntPlatStubsPtr->tkResumeClipboard)() /* 63 */ +#endif +#ifndef TkSetMacColor +#define TkSetMacColor(pixel, macColor) \ + (tkIntPlatStubsPtr->tkSetMacColor)(pixel, macColor) /* 64 */ +#endif +#ifndef TkSetWMName +#define TkSetWMName(winPtr, titleUid) \ + (tkIntPlatStubsPtr->tkSetWMName)(winPtr, titleUid) /* 65 */ +#endif +#ifndef TkSuspendClipboard +#define TkSuspendClipboard() \ + (tkIntPlatStubsPtr->tkSuspendClipboard)() /* 66 */ +#endif +#ifndef TkWMGrowToplevel +#define TkWMGrowToplevel(whichWindow, start) \ + (tkIntPlatStubsPtr->tkWMGrowToplevel)(whichWindow, start) /* 67 */ +#endif +#ifndef TkMacZoomToplevel +#define TkMacZoomToplevel(whichWindow, where, zoomPart) \ + (tkIntPlatStubsPtr->tkMacZoomToplevel)(whichWindow, where, zoomPart) /* 68 */ +#endif +#ifndef Tk_TopCoordsToWindow +#define Tk_TopCoordsToWindow(tkwin, rootX, rootY, newX, newY) \ + (tkIntPlatStubsPtr->tk_TopCoordsToWindow)(tkwin, rootX, rootY, newX, newY) /* 69 */ +#endif +#ifndef TkMacContainerId +#define TkMacContainerId(winPtr) \ + (tkIntPlatStubsPtr->tkMacContainerId)(winPtr) /* 70 */ +#endif +#ifndef TkMacGetHostToplevel +#define TkMacGetHostToplevel(winPtr) \ + (tkIntPlatStubsPtr->tkMacGetHostToplevel)(winPtr) /* 71 */ +#endif +#endif /* MAC_TCL */ + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKINTPLATDECLS */ diff --git a/generic/tkIntPlatStubs.c b/generic/tkIntPlatStubs.c new file mode 100644 index 0000000..6650915 --- /dev/null +++ b/generic/tkIntPlatStubs.c @@ -0,0 +1,1050 @@ +/* + * tkIntPlatStubs.c -- + * + * This file contains the wrapper functions for the platform dependent + * unsupported Tk API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tkIntPlatStubs.c,v 1.2 1999/03/10 07:04:41 stanton Exp $ + */ + +#include "tkInt.h" +#include "tkPort.h" + +#ifdef __WIN32__ +#include "tkWinInt.h" +#endif + +#include "tkIntPlatDecls.h" + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tkInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported stub functions: + */ + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 0 */ +void +TkCreateXEventSource() +{ + (tkIntPlatStubsPtr->tkCreateXEventSource)(); +} + +/* Slot 1 */ +void +TkFreeWindowId(dispPtr, w) + TkDisplay * dispPtr; + Window w; +{ + (tkIntPlatStubsPtr->tkFreeWindowId)(dispPtr, w); +} + +/* Slot 2 */ +void +TkInitXId(dispPtr) + TkDisplay * dispPtr; +{ + (tkIntPlatStubsPtr->tkInitXId)(dispPtr); +} + +/* Slot 3 */ +int +TkpCmapStressed(tkwin, colormap) + Tk_Window tkwin; + Colormap colormap; +{ + return (tkIntPlatStubsPtr->tkpCmapStressed)(tkwin, colormap); +} + +/* Slot 4 */ +void +TkpSync(display) + Display * display; +{ + (tkIntPlatStubsPtr->tkpSync)(display); +} + +/* Slot 5 */ +Window +TkUnixContainerId(winPtr) + TkWindow * winPtr; +{ + return (tkIntPlatStubsPtr->tkUnixContainerId)(winPtr); +} + +/* Slot 6 */ +int +TkUnixDoOneXEvent(timePtr) + Tcl_Time * timePtr; +{ + return (tkIntPlatStubsPtr->tkUnixDoOneXEvent)(timePtr); +} + +/* Slot 7 */ +void +TkUnixSetMenubar(tkwin, menubar) + Tk_Window tkwin; + Tk_Window menubar; +{ + (tkIntPlatStubsPtr->tkUnixSetMenubar)(tkwin, menubar); +} + +#endif /* UNIX */ +#ifdef __WIN32__ +/* Slot 0 */ +char * +TkAlignImageData(image, alignment, bitOrder) + XImage * image; + int alignment; + int bitOrder; +{ + return (tkIntPlatStubsPtr->tkAlignImageData)(image, alignment, bitOrder); +} + +/* Slot 1 */ +void +TkClipBox(rgn, rect_return) + TkRegion rgn; + XRectangle* rect_return; +{ + (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return); +} + +/* Slot 2 */ +TkRegion +TkCreateRegion() +{ + return (tkIntPlatStubsPtr->tkCreateRegion)(); +} + +/* Slot 3 */ +void +TkDestroyRegion(rgn) + TkRegion rgn; +{ + (tkIntPlatStubsPtr->tkDestroyRegion)(rgn); +} + +/* Slot 4 */ +void +TkGenerateActivateEvents(winPtr, active) + TkWindow * winPtr; + int active; +{ + (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active); +} + +/* Slot 5 */ +void +TkIntersectRegion(sra, srcb, dr_return) + TkRegion sra; + TkRegion srcb; + TkRegion dr_return; +{ + (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return); +} + +/* Slot 6 */ +unsigned long +TkpGetMS() +{ + return (tkIntPlatStubsPtr->tkpGetMS)(); +} + +/* Slot 7 */ +void +TkPointerDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr); +} + +/* Slot 8 */ +void +TkpPrintWindowId(buf, window) + char * buf; + Window window; +{ + (tkIntPlatStubsPtr->tkpPrintWindowId)(buf, window); +} + +/* Slot 9 */ +int +TkpScanWindowId(interp, string, idPtr) + Tcl_Interp * interp; + char * string; + int * idPtr; +{ + return (tkIntPlatStubsPtr->tkpScanWindowId)(interp, string, idPtr); +} + +/* Slot 10 */ +void +TkpSetCapture(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkpSetCapture)(winPtr); +} + +/* Slot 11 */ +void +TkpSetCursor(cursor) + TkpCursor cursor; +{ + (tkIntPlatStubsPtr->tkpSetCursor)(cursor); +} + +/* Slot 12 */ +void +TkpWmSetState(winPtr, state) + TkWindow * winPtr; + int state; +{ + (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state); +} + +/* Slot 13 */ +int +TkRectInRegion(rgn, x, y, width, height) + TkRegion rgn; + int x; + int y; + unsigned int width; + unsigned int height; +{ + return (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height); +} + +/* Slot 14 */ +void +TkSetPixmapColormap(pixmap, colormap) + Pixmap pixmap; + Colormap colormap; +{ + (tkIntPlatStubsPtr->tkSetPixmapColormap)(pixmap, colormap); +} + +/* Slot 15 */ +void +TkSetRegion(display, gc, rgn) + Display* display; + GC gc; + TkRegion rgn; +{ + (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn); +} + +/* Slot 16 */ +void +TkUnionRectWithRegion(rect, src, dr_return) + XRectangle* rect; + TkRegion src; + TkRegion dr_return; +{ + (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return); +} + +/* Slot 17 */ +void +TkWinCancelMouseTimer() +{ + (tkIntPlatStubsPtr->tkWinCancelMouseTimer)(); +} + +/* Slot 18 */ +void +TkWinClipboardRender(dispPtr, format) + TkDisplay * dispPtr; + UINT format; +{ + (tkIntPlatStubsPtr->tkWinClipboardRender)(dispPtr, format); +} + +/* Slot 19 */ +LRESULT +TkWinEmbeddedEventProc(hwnd, message, wParam, lParam) + HWND hwnd; + UINT message; + WPARAM wParam; + LPARAM lParam; +{ + return (tkIntPlatStubsPtr->tkWinEmbeddedEventProc)(hwnd, message, wParam, lParam); +} + +/* Slot 20 */ +void +TkWinFillRect(dc, x, y, width, height, pixel) + HDC dc; + int x; + int y; + int width; + int height; + int pixel; +{ + (tkIntPlatStubsPtr->tkWinFillRect)(dc, x, y, width, height, pixel); +} + +/* Slot 21 */ +COLORREF +TkWinGetBorderPixels(tkwin, border, which) + Tk_Window tkwin; + Tk_3DBorder border; + int which; +{ + return (tkIntPlatStubsPtr->tkWinGetBorderPixels)(tkwin, border, which); +} + +/* Slot 22 */ +HDC +TkWinGetDrawableDC(display, d, state) + Display * display; + Drawable d; + TkWinDCState* state; +{ + return (tkIntPlatStubsPtr->tkWinGetDrawableDC)(display, d, state); +} + +/* Slot 23 */ +int +TkWinGetModifierState() +{ + return (tkIntPlatStubsPtr->tkWinGetModifierState)(); +} + +/* Slot 24 */ +HPALETTE +TkWinGetSystemPalette() +{ + return (tkIntPlatStubsPtr->tkWinGetSystemPalette)(); +} + +/* Slot 25 */ +HWND +TkWinGetWrapperWindow(tkwin) + Tk_Window tkwin; +{ + return (tkIntPlatStubsPtr->tkWinGetWrapperWindow)(tkwin); +} + +/* Slot 26 */ +int +TkWinHandleMenuEvent(phwnd, pMessage, pwParam, plParam, plResult) + HWND * phwnd; + UINT * pMessage; + WPARAM * pwParam; + LPARAM * plParam; + LRESULT * plResult; +{ + return (tkIntPlatStubsPtr->tkWinHandleMenuEvent)(phwnd, pMessage, pwParam, plParam, plResult); +} + +/* Slot 27 */ +int +TkWinIndexOfColor(colorPtr) + XColor * colorPtr; +{ + return (tkIntPlatStubsPtr->tkWinIndexOfColor)(colorPtr); +} + +/* Slot 28 */ +void +TkWinReleaseDrawableDC(d, hdc, state) + Drawable d; + HDC hdc; + TkWinDCState* state; +{ + (tkIntPlatStubsPtr->tkWinReleaseDrawableDC)(d, hdc, state); +} + +/* Slot 29 */ +LRESULT +TkWinResendEvent(wndproc, hwnd, eventPtr) + WNDPROC wndproc; + HWND hwnd; + XEvent * eventPtr; +{ + return (tkIntPlatStubsPtr->tkWinResendEvent)(wndproc, hwnd, eventPtr); +} + +/* Slot 30 */ +HPALETTE +TkWinSelectPalette(dc, colormap) + HDC dc; + Colormap colormap; +{ + return (tkIntPlatStubsPtr->tkWinSelectPalette)(dc, colormap); +} + +/* Slot 31 */ +void +TkWinSetMenu(tkwin, hMenu) + Tk_Window tkwin; + HMENU hMenu; +{ + (tkIntPlatStubsPtr->tkWinSetMenu)(tkwin, hMenu); +} + +/* Slot 32 */ +void +TkWinSetWindowPos(hwnd, siblingHwnd, pos) + HWND hwnd; + HWND siblingHwnd; + int pos; +{ + (tkIntPlatStubsPtr->tkWinSetWindowPos)(hwnd, siblingHwnd, pos); +} + +/* Slot 33 */ +void +TkWinWmCleanup(hInstance) + HINSTANCE hInstance; +{ + (tkIntPlatStubsPtr->tkWinWmCleanup)(hInstance); +} + +/* Slot 34 */ +void +TkWinXCleanup(hInstance) + HINSTANCE hInstance; +{ + (tkIntPlatStubsPtr->tkWinXCleanup)(hInstance); +} + +/* Slot 35 */ +void +TkWinXInit(hInstance) + HINSTANCE hInstance; +{ + (tkIntPlatStubsPtr->tkWinXInit)(hInstance); +} + +#endif /* __WIN32__ */ +#ifdef MAC_TCL +/* Slot 0 */ +void +TkClipBox(rgn, rect_return) + TkRegion rgn; + XRectangle* rect_return; +{ + (tkIntPlatStubsPtr->tkClipBox)(rgn, rect_return); +} + +/* Slot 1 */ +TkRegion +TkCreateRegion() +{ + return (tkIntPlatStubsPtr->tkCreateRegion)(); +} + +/* Slot 2 */ +void +TkDestroyRegion(rgn) + TkRegion rgn; +{ + (tkIntPlatStubsPtr->tkDestroyRegion)(rgn); +} + +/* Slot 3 */ +void +TkGenerateActivateEvents(winPtr, active) + TkWindow * winPtr; + int active; +{ + (tkIntPlatStubsPtr->tkGenerateActivateEvents)(winPtr, active); +} + +/* Slot 4 */ +void +TkIntersectRegion(sra, srcb, dr_return) + TkRegion sra; + TkRegion srcb; + TkRegion dr_return; +{ + (tkIntPlatStubsPtr->tkIntersectRegion)(sra, srcb, dr_return); +} + +/* Slot 5 */ +Pixmap +TkpCreateNativeBitmap(display, source) + Display * display; + char * source; +{ + return (tkIntPlatStubsPtr->tkpCreateNativeBitmap)(display, source); +} + +/* Slot 6 */ +void +TkpDefineNativeBitmaps() +{ + (tkIntPlatStubsPtr->tkpDefineNativeBitmaps)(); +} + +/* Slot 7 */ +unsigned long +TkpGetMS() +{ + return (tkIntPlatStubsPtr->tkpGetMS)(); +} + +/* Slot 8 */ +Pixmap +TkpGetNativeAppBitmap(display, name, width, height) + Display * display; + char * name; + int * width; + int * height; +{ + return (tkIntPlatStubsPtr->tkpGetNativeAppBitmap)(display, name, width, height); +} + +/* Slot 9 */ +void +TkPointerDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkPointerDeadWindow)(winPtr); +} + +/* Slot 10 */ +void +TkpSetCapture(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkpSetCapture)(winPtr); +} + +/* Slot 11 */ +void +TkpSetCursor(cursor) + TkpCursor cursor; +{ + (tkIntPlatStubsPtr->tkpSetCursor)(cursor); +} + +/* Slot 12 */ +void +TkpWmSetState(winPtr, state) + TkWindow * winPtr; + int state; +{ + (tkIntPlatStubsPtr->tkpWmSetState)(winPtr, state); +} + +/* Slot 13 */ +int +TkRectInRegion(rgn, x, y, width, height) + TkRegion rgn; + int x; + int y; + unsigned int width; + unsigned int height; +{ + return (tkIntPlatStubsPtr->tkRectInRegion)(rgn, x, y, width, height); +} + +/* Slot 14 */ +void +TkSetRegion(display, gc, rgn) + Display* display; + GC gc; + TkRegion rgn; +{ + (tkIntPlatStubsPtr->tkSetRegion)(display, gc, rgn); +} + +/* Slot 15 */ +void +TkUnionRectWithRegion(rect, src, dr_return) + XRectangle* rect; + TkRegion src; + TkRegion dr_return; +{ + (tkIntPlatStubsPtr->tkUnionRectWithRegion)(rect, src, dr_return); +} + +/* Slot 16 */ +int +HandleWMEvent(theEvent) + EventRecord * theEvent; +{ + return (tkIntPlatStubsPtr->handleWMEvent)(theEvent); +} + +/* Slot 17 */ +void +TkAboutDlg() +{ + (tkIntPlatStubsPtr->tkAboutDlg)(); +} + +/* Slot 18 */ +void +TkCreateMacEventSource() +{ + (tkIntPlatStubsPtr->tkCreateMacEventSource)(); +} + +/* Slot 19 */ +void +TkFontList(interp, display) + Tcl_Interp * interp; + Display * display; +{ + (tkIntPlatStubsPtr->tkFontList)(interp, display); +} + +/* Slot 20 */ +Window +TkGetTransientMaster(winPtr) + TkWindow * winPtr; +{ + return (tkIntPlatStubsPtr->tkGetTransientMaster)(winPtr); +} + +/* Slot 21 */ +int +TkGenerateButtonEvent(x, y, window, state) + int x; + int y; + Window window; + unsigned int state; +{ + return (tkIntPlatStubsPtr->tkGenerateButtonEvent)(x, y, window, state); +} + +/* Slot 22 */ +int +TkGetCharPositions(font_struct, string, count, buffer) + XFontStruct * font_struct; + char * string; + int count; + short * buffer; +{ + return (tkIntPlatStubsPtr->tkGetCharPositions)(font_struct, string, count, buffer); +} + +/* Slot 23 */ +void +TkGenWMDestroyEvent(tkwin) + Tk_Window tkwin; +{ + (tkIntPlatStubsPtr->tkGenWMDestroyEvent)(tkwin); +} + +/* Slot 24 */ +void +TkGenWMConfigureEvent(tkwin, x, y, width, height, flags) + Tk_Window tkwin; + int x; + int y; + int width; + int height; + int flags; +{ + (tkIntPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags); +} + +/* Slot 25 */ +unsigned int +TkMacButtonKeyState() +{ + return (tkIntPlatStubsPtr->tkMacButtonKeyState)(); +} + +/* Slot 26 */ +void +TkMacClearMenubarActive() +{ + (tkIntPlatStubsPtr->tkMacClearMenubarActive)(); +} + +/* Slot 27 */ +int +TkMacConvertEvent(eventPtr) + EventRecord * eventPtr; +{ + return (tkIntPlatStubsPtr->tkMacConvertEvent)(eventPtr); +} + +/* Slot 28 */ +int +TkMacDispatchMenuEvent(menuID, index) + int menuID; + int index; +{ + return (tkIntPlatStubsPtr->tkMacDispatchMenuEvent)(menuID, index); +} + +/* Slot 29 */ +void +TkMacInstallCursor(resizeOverride) + int resizeOverride; +{ + (tkIntPlatStubsPtr->tkMacInstallCursor)(resizeOverride); +} + +/* Slot 30 */ +int +TkMacConvertTkEvent(eventPtr, window) + EventRecord * eventPtr; + Window window; +{ + return (tkIntPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window); +} + +/* Slot 31 */ +void +TkMacHandleTearoffMenu() +{ + (tkIntPlatStubsPtr->tkMacHandleTearoffMenu)(); +} + +/* Slot 32 */ +void +tkMacInstallMWConsole(interp) + Tcl_Interp * interp; +{ + (tkIntPlatStubsPtr->tkMacInstallMWConsole)(interp); +} + +/* Slot 33 */ +void +TkMacInvalClipRgns(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkMacInvalClipRgns)(winPtr); +} + +/* Slot 34 */ +void +TkMacDoHLEvent(theEvent) + EventRecord * theEvent; +{ + (tkIntPlatStubsPtr->tkMacDoHLEvent)(theEvent); +} + +/* Slot 35 */ +void +TkMacFontInfo(fontId, family, style, size) + Font fontId; + short * family; + short * style; + short * size; +{ + (tkIntPlatStubsPtr->tkMacFontInfo)(fontId, family, style, size); +} + +/* Slot 36 */ +Time +TkMacGenerateTime() +{ + return (tkIntPlatStubsPtr->tkMacGenerateTime)(); +} + +/* Slot 37 */ +GWorldPtr +TkMacGetDrawablePort(drawable) + Drawable drawable; +{ + return (tkIntPlatStubsPtr->tkMacGetDrawablePort)(drawable); +} + +/* Slot 38 */ +TkWindow * +TkMacGetScrollbarGrowWindow(winPtr) + TkWindow * winPtr; +{ + return (tkIntPlatStubsPtr->tkMacGetScrollbarGrowWindow)(winPtr); +} + +/* Slot 39 */ +Window +TkMacGetXWindow(macWinPtr) + WindowRef macWinPtr; +{ + return (tkIntPlatStubsPtr->tkMacGetXWindow)(macWinPtr); +} + +/* Slot 40 */ +int +TkMacGrowToplevel(whichWindow, start) + WindowRef whichWindow; + Point start; +{ + return (tkIntPlatStubsPtr->tkMacGrowToplevel)(whichWindow, start); +} + +/* Slot 41 */ +void +TkMacHandleMenuSelect(mResult, optionKeyPressed) + long mResult; + int optionKeyPressed; +{ + (tkIntPlatStubsPtr->tkMacHandleMenuSelect)(mResult, optionKeyPressed); +} + +/* Slot 42 */ +int +TkMacHaveAppearance() +{ + return (tkIntPlatStubsPtr->tkMacHaveAppearance)(); +} + +/* Slot 43 */ +void +TkMacInitAppleEvents(interp) + Tcl_Interp * interp; +{ + (tkIntPlatStubsPtr->tkMacInitAppleEvents)(interp); +} + +/* Slot 44 */ +void +TkMacInitMenus(interp) + Tcl_Interp * interp; +{ + (tkIntPlatStubsPtr->tkMacInitMenus)(interp); +} + +/* Slot 45 */ +void +TkMacInvalidateWindow(macWin, flag) + MacDrawable * macWin; + int flag; +{ + (tkIntPlatStubsPtr->tkMacInvalidateWindow)(macWin, flag); +} + +/* Slot 46 */ +int +TkMacIsCharacterMissing(tkfont, searchChar) + Tk_Font tkfont; + unsigned int searchChar; +{ + return (tkIntPlatStubsPtr->tkMacIsCharacterMissing)(tkfont, searchChar); +} + +/* Slot 47 */ +void +TkMacMakeRealWindowExist(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkMacMakeRealWindowExist)(winPtr); +} + +/* Slot 48 */ +BitMapPtr +TkMacMakeStippleMap(d1, d2) + Drawable d1; + Drawable d2; +{ + return (tkIntPlatStubsPtr->tkMacMakeStippleMap)(d1, d2); +} + +/* Slot 49 */ +void +TkMacMenuClick() +{ + (tkIntPlatStubsPtr->tkMacMenuClick)(); +} + +/* Slot 50 */ +void +TkMacRegisterOffScreenWindow(window, portPtr) + Window window; + GWorldPtr portPtr; +{ + (tkIntPlatStubsPtr->tkMacRegisterOffScreenWindow)(window, portPtr); +} + +/* Slot 51 */ +int +TkMacResizable(winPtr) + TkWindow * winPtr; +{ + return (tkIntPlatStubsPtr->tkMacResizable)(winPtr); +} + +/* Slot 52 */ +void +TkMacSetEmbedRgn(winPtr, rgn) + TkWindow * winPtr; + RgnHandle rgn; +{ + (tkIntPlatStubsPtr->tkMacSetEmbedRgn)(winPtr, rgn); +} + +/* Slot 53 */ +void +TkMacSetHelpMenuItemCount() +{ + (tkIntPlatStubsPtr->tkMacSetHelpMenuItemCount)(); +} + +/* Slot 54 */ +void +TkMacSetScrollbarGrow(winPtr, flag) + TkWindow * winPtr; + int flag; +{ + (tkIntPlatStubsPtr->tkMacSetScrollbarGrow)(winPtr, flag); +} + +/* Slot 55 */ +void +TkMacSetUpClippingRgn(drawable) + Drawable drawable; +{ + (tkIntPlatStubsPtr->tkMacSetUpClippingRgn)(drawable); +} + +/* Slot 56 */ +void +TkMacSetUpGraphicsPort(gc) + GC gc; +{ + (tkIntPlatStubsPtr->tkMacSetUpGraphicsPort)(gc); +} + +/* Slot 57 */ +void +TkMacUpdateClipRgn(winPtr) + TkWindow * winPtr; +{ + (tkIntPlatStubsPtr->tkMacUpdateClipRgn)(winPtr); +} + +/* Slot 58 */ +void +TkMacUnregisterMacWindow(portPtr) + GWorldPtr portPtr; +{ + (tkIntPlatStubsPtr->tkMacUnregisterMacWindow)(portPtr); +} + +/* Slot 59 */ +int +TkMacUseMenuID(macID) + short macID; +{ + return (tkIntPlatStubsPtr->tkMacUseMenuID)(macID); +} + +/* Slot 60 */ +RgnHandle +TkMacVisableClipRgn(winPtr) + TkWindow * winPtr; +{ + return (tkIntPlatStubsPtr->tkMacVisableClipRgn)(winPtr); +} + +/* Slot 61 */ +void +TkMacWinBounds(winPtr, geometry) + TkWindow * winPtr; + Rect * geometry; +{ + (tkIntPlatStubsPtr->tkMacWinBounds)(winPtr, geometry); +} + +/* Slot 62 */ +void +TkMacWindowOffset(wRef, xOffset, yOffset) + WindowRef wRef; + int * xOffset; + int * yOffset; +{ + (tkIntPlatStubsPtr->tkMacWindowOffset)(wRef, xOffset, yOffset); +} + +/* Slot 63 */ +void +TkResumeClipboard() +{ + (tkIntPlatStubsPtr->tkResumeClipboard)(); +} + +/* Slot 64 */ +int +TkSetMacColor(pixel, macColor) + unsigned long pixel; + RGBColor * macColor; +{ + return (tkIntPlatStubsPtr->tkSetMacColor)(pixel, macColor); +} + +/* Slot 65 */ +void +TkSetWMName(winPtr, titleUid) + TkWindow * winPtr; + Tk_Uid titleUid; +{ + (tkIntPlatStubsPtr->tkSetWMName)(winPtr, titleUid); +} + +/* Slot 66 */ +void +TkSuspendClipboard() +{ + (tkIntPlatStubsPtr->tkSuspendClipboard)(); +} + +/* Slot 67 */ +int +TkWMGrowToplevel(whichWindow, start) + WindowRef whichWindow; + Point start; +{ + return (tkIntPlatStubsPtr->tkWMGrowToplevel)(whichWindow, start); +} + +/* Slot 68 */ +int +TkMacZoomToplevel(whichWindow, where, zoomPart) + WindowPtr whichWindow; + Point where; + short zoomPart; +{ + return (tkIntPlatStubsPtr->tkMacZoomToplevel)(whichWindow, where, zoomPart); +} + +/* Slot 69 */ +Tk_Window +Tk_TopCoordsToWindow(tkwin, rootX, rootY, newX, newY) + Tk_Window tkwin; + int rootX; + int rootY; + int * newX; + int * newY; +{ + return (tkIntPlatStubsPtr->tk_TopCoordsToWindow)(tkwin, rootX, rootY, newX, newY); +} + +/* Slot 70 */ +MacDrawable * +TkMacContainerId(winPtr) + TkWindow * winPtr; +{ + return (tkIntPlatStubsPtr->tkMacContainerId)(winPtr); +} + +/* Slot 71 */ +MacDrawable * +TkMacGetHostToplevel(winPtr) + TkWindow * winPtr; +{ + return (tkIntPlatStubsPtr->tkMacGetHostToplevel)(winPtr); +} + +#endif /* MAC_TCL */ + +/* !END!: Do not edit above this line. */ diff --git a/generic/tkIntStubs.c b/generic/tkIntStubs.c new file mode 100644 index 0000000..1c33059 --- /dev/null +++ b/generic/tkIntStubs.c @@ -0,0 +1,965 @@ +/* + * tkIntStubs.c -- + * + * This file contains the wrapper functions for the platform independent + * unsupported Tk API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tkIntStubs.c,v 1.2 1999/03/10 07:04:41 stanton Exp $ + */ + +#include "tkInt.h" + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tkInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported stub functions: + */ + +/* Slot 0 */ +TkWindow * +TkAllocWindow(dispPtr, screenNum, parentPtr) + TkDisplay * dispPtr; + int screenNum; + TkWindow * parentPtr; +{ + return (tkIntStubsPtr->tkAllocWindow)(dispPtr, screenNum, parentPtr); +} + +/* Slot 1 */ +void +TkBezierPoints(control, numSteps, coordPtr) + double control[]; + int numSteps; + double * coordPtr; +{ + (tkIntStubsPtr->tkBezierPoints)(control, numSteps, coordPtr); +} + +/* Slot 2 */ +void +TkBezierScreenPoints(canvas, control, numSteps, xPointPtr) + Tk_Canvas canvas; + double control[]; + int numSteps; + XPoint * xPointPtr; +{ + (tkIntStubsPtr->tkBezierScreenPoints)(canvas, control, numSteps, xPointPtr); +} + +/* Slot 3 */ +void +TkBindDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkBindDeadWindow)(winPtr); +} + +/* Slot 4 */ +void +TkBindEventProc(winPtr, eventPtr) + TkWindow * winPtr; + XEvent * eventPtr; +{ + (tkIntStubsPtr->tkBindEventProc)(winPtr, eventPtr); +} + +/* Slot 5 */ +void +TkBindFree(mainPtr) + TkMainInfo * mainPtr; +{ + (tkIntStubsPtr->tkBindFree)(mainPtr); +} + +/* Slot 6 */ +void +TkBindInit(mainPtr) + TkMainInfo * mainPtr; +{ + (tkIntStubsPtr->tkBindInit)(mainPtr); +} + +/* Slot 7 */ +void +TkChangeEventWindow(eventPtr, winPtr) + XEvent * eventPtr; + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkChangeEventWindow)(eventPtr, winPtr); +} + +/* Slot 8 */ +int +TkClipInit(interp, dispPtr) + Tcl_Interp * interp; + TkDisplay * dispPtr; +{ + return (tkIntStubsPtr->tkClipInit)(interp, dispPtr); +} + +/* Slot 9 */ +void +TkComputeAnchor(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr) + Tk_Anchor anchor; + Tk_Window tkwin; + int padX; + int padY; + int innerWidth; + int innerHeight; + int * xPtr; + int * yPtr; +{ + (tkIntStubsPtr->tkComputeAnchor)(anchor, tkwin, padX, padY, innerWidth, innerHeight, xPtr, yPtr); +} + +/* Slot 10 */ +int +TkCopyAndGlobalEval(interp, script) + Tcl_Interp * interp; + char * script; +{ + return (tkIntStubsPtr->tkCopyAndGlobalEval)(interp, script); +} + +/* Slot 11 */ +unsigned long +TkCreateBindingProcedure(interp, bindingTable, object, eventString, evalProc, freeProc, clientData) + Tcl_Interp * interp; + Tk_BindingTable bindingTable; + ClientData object; + char * eventString; + TkBindEvalProc * evalProc; + TkBindFreeProc * freeProc; + ClientData clientData; +{ + return (tkIntStubsPtr->tkCreateBindingProcedure)(interp, bindingTable, object, eventString, evalProc, freeProc, clientData); +} + +/* Slot 12 */ +TkCursor * +TkCreateCursorFromData(tkwin, source, mask, width, height, xHot, yHot, fg, bg) + Tk_Window tkwin; + char * source; + char * mask; + int width; + int height; + int xHot; + int yHot; + XColor fg; + XColor bg; +{ + return (tkIntStubsPtr->tkCreateCursorFromData)(tkwin, source, mask, width, height, xHot, yHot, fg, bg); +} + +/* Slot 13 */ +int +TkCreateFrame(clientData, interp, argc, argv, toplevel, appName) + ClientData clientData; + Tcl_Interp * interp; + int argc; + char ** argv; + int toplevel; + char * appName; +{ + return (tkIntStubsPtr->tkCreateFrame)(clientData, interp, argc, argv, toplevel, appName); +} + +/* Slot 14 */ +Tk_Window +TkCreateMainWindow(interp, screenName, baseName) + Tcl_Interp * interp; + char * screenName; + char * baseName; +{ + return (tkIntStubsPtr->tkCreateMainWindow)(interp, screenName, baseName); +} + +/* Slot 15 */ +Time +TkCurrentTime(dispPtr) + TkDisplay * dispPtr; +{ + return (tkIntStubsPtr->tkCurrentTime)(dispPtr); +} + +/* Slot 16 */ +void +TkDeleteAllImages(mainPtr) + TkMainInfo * mainPtr; +{ + (tkIntStubsPtr->tkDeleteAllImages)(mainPtr); +} + +/* Slot 17 */ +void +TkDoConfigureNotify(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkDoConfigureNotify)(winPtr); +} + +/* Slot 18 */ +void +TkDrawInsetFocusHighlight(tkwin, gc, width, drawable, padding) + Tk_Window tkwin; + GC gc; + int width; + Drawable drawable; + int padding; +{ + (tkIntStubsPtr->tkDrawInsetFocusHighlight)(tkwin, gc, width, drawable, padding); +} + +/* Slot 19 */ +void +TkEventDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkEventDeadWindow)(winPtr); +} + +/* Slot 20 */ +void +TkFillPolygon(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC) + Tk_Canvas canvas; + double * coordPtr; + int numPoints; + Display * display; + Drawable drawable; + GC gc; + GC outlineGC; +{ + (tkIntStubsPtr->tkFillPolygon)(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC); +} + +/* Slot 21 */ +int +TkFindStateNum(interp, option, mapPtr, strKey) + Tcl_Interp * interp; + CONST char * option; + CONST TkStateMap * mapPtr; + CONST char * strKey; +{ + return (tkIntStubsPtr->tkFindStateNum)(interp, option, mapPtr, strKey); +} + +/* Slot 22 */ +char * +TkFindStateString(mapPtr, numKey) + CONST TkStateMap * mapPtr; + int numKey; +{ + return (tkIntStubsPtr->tkFindStateString)(mapPtr, numKey); +} + +/* Slot 23 */ +void +TkFocusDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkFocusDeadWindow)(winPtr); +} + +/* Slot 24 */ +int +TkFocusFilterEvent(winPtr, eventPtr) + TkWindow * winPtr; + XEvent * eventPtr; +{ + return (tkIntStubsPtr->tkFocusFilterEvent)(winPtr, eventPtr); +} + +/* Slot 25 */ +TkWindow * +TkFocusKeyEvent(winPtr, eventPtr) + TkWindow * winPtr; + XEvent * eventPtr; +{ + return (tkIntStubsPtr->tkFocusKeyEvent)(winPtr, eventPtr); +} + +/* Slot 26 */ +void +TkFontPkgInit(mainPtr) + TkMainInfo * mainPtr; +{ + (tkIntStubsPtr->tkFontPkgInit)(mainPtr); +} + +/* Slot 27 */ +void +TkFontPkgFree(mainPtr) + TkMainInfo * mainPtr; +{ + (tkIntStubsPtr->tkFontPkgFree)(mainPtr); +} + +/* Slot 28 */ +void +TkFreeBindingTags(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkFreeBindingTags)(winPtr); +} + +/* Slot 29 */ +void +TkFreeCursor(cursorPtr) + TkCursor * cursorPtr; +{ + (tkIntStubsPtr->tkFreeCursor)(cursorPtr); +} + +/* Slot 30 */ +char * +TkGetBitmapData(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr) + Tcl_Interp * interp; + char * string; + char * fileName; + int * widthPtr; + int * heightPtr; + int * hotXPtr; + int * hotYPtr; +{ + return (tkIntStubsPtr->tkGetBitmapData)(interp, string, fileName, widthPtr, heightPtr, hotXPtr, hotYPtr); +} + +/* Slot 31 */ +void +TkGetButtPoints(p1, p2, width, project, m1, m2) + double p1[]; + double p2[]; + double width; + int project; + double m1[]; + double m2[]; +{ + (tkIntStubsPtr->tkGetButtPoints)(p1, p2, width, project, m1, m2); +} + +/* Slot 32 */ +TkCursor * +TkGetCursorByName(interp, tkwin, string) + Tcl_Interp * interp; + Tk_Window tkwin; + Tk_Uid string; +{ + return (tkIntStubsPtr->tkGetCursorByName)(interp, tkwin, string); +} + +/* Slot 33 */ +char * +TkGetDefaultScreenName(interp, screenName) + Tcl_Interp * interp; + char * screenName; +{ + return (tkIntStubsPtr->tkGetDefaultScreenName)(interp, screenName); +} + +/* Slot 34 */ +TkDisplay * +TkGetDisplay(display) + Display * display; +{ + return (tkIntStubsPtr->tkGetDisplay)(display); +} + +/* Slot 35 */ +int +TkGetDisplayOf(interp, objc, objv, tkwinPtr) + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; + Tk_Window * tkwinPtr; +{ + return (tkIntStubsPtr->tkGetDisplayOf)(interp, objc, objv, tkwinPtr); +} + +/* Slot 36 */ +TkWindow * +TkGetFocusWin(winPtr) + TkWindow * winPtr; +{ + return (tkIntStubsPtr->tkGetFocusWin)(winPtr); +} + +/* Slot 37 */ +int +TkGetInterpNames(interp, tkwin) + Tcl_Interp * interp; + Tk_Window tkwin; +{ + return (tkIntStubsPtr->tkGetInterpNames)(interp, tkwin); +} + +/* Slot 38 */ +int +TkGetMiterPoints(p1, p2, p3, width, m1, m2) + double p1[]; + double p2[]; + double p3[]; + double width; + double m1[]; + double m2[]; +{ + return (tkIntStubsPtr->tkGetMiterPoints)(p1, p2, p3, width, m1, m2); +} + +/* Slot 39 */ +void +TkGetPointerCoords(tkwin, xPtr, yPtr) + Tk_Window tkwin; + int * xPtr; + int * yPtr; +{ + (tkIntStubsPtr->tkGetPointerCoords)(tkwin, xPtr, yPtr); +} + +/* Slot 40 */ +void +TkGetServerInfo(interp, tkwin) + Tcl_Interp * interp; + Tk_Window tkwin; +{ + (tkIntStubsPtr->tkGetServerInfo)(interp, tkwin); +} + +/* Slot 41 */ +void +TkGrabDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkGrabDeadWindow)(winPtr); +} + +/* Slot 42 */ +int +TkGrabState(winPtr) + TkWindow * winPtr; +{ + return (tkIntStubsPtr->tkGrabState)(winPtr); +} + +/* Slot 43 */ +void +TkIncludePoint(itemPtr, pointPtr) + Tk_Item * itemPtr; + double * pointPtr; +{ + (tkIntStubsPtr->tkIncludePoint)(itemPtr, pointPtr); +} + +/* Slot 44 */ +void +TkInOutEvents(eventPtr, sourcePtr, destPtr, leaveType, enterType, position) + XEvent * eventPtr; + TkWindow * sourcePtr; + TkWindow * destPtr; + int leaveType; + int enterType; + Tcl_QueuePosition position; +{ + (tkIntStubsPtr->tkInOutEvents)(eventPtr, sourcePtr, destPtr, leaveType, enterType, position); +} + +/* Slot 45 */ +void +TkInstallFrameMenu(tkwin) + Tk_Window tkwin; +{ + (tkIntStubsPtr->tkInstallFrameMenu)(tkwin); +} + +/* Slot 46 */ +char * +TkKeysymToString(keysym) + KeySym keysym; +{ + return (tkIntStubsPtr->tkKeysymToString)(keysym); +} + +/* Slot 47 */ +int +TkLineToArea(end1Ptr, end2Ptr, rectPtr) + TkDouble2 end1Ptr; + TkDouble2 end2Ptr; + TkDouble4 rectPtr; +{ + return (tkIntStubsPtr->tkLineToArea)(end1Ptr, end2Ptr, rectPtr); +} + +/* Slot 48 */ +double +TkLineToPoint(end1Ptr, end2Ptr, pointPtr) + double end1Ptr[]; + TkDouble2 end2Ptr; + TkDouble2 pointPtr; +{ + return (tkIntStubsPtr->tkLineToPoint)(end1Ptr, end2Ptr, pointPtr); +} + +/* Slot 49 */ +int +TkMakeBezierCurve(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints) + Tk_Canvas canvas; + double * pointPtr; + int numPoints; + int numSteps; + XPoint xPoints[]; + double dblPoints[]; +{ + return (tkIntStubsPtr->tkMakeBezierCurve)(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints); +} + +/* Slot 50 */ +void +TkMakeBezierPostscript(interp, canvas, pointPtr, numPoints) + Tcl_Interp * interp; + Tk_Canvas canvas; + double * pointPtr; + int numPoints; +{ + (tkIntStubsPtr->tkMakeBezierPostscript)(interp, canvas, pointPtr, numPoints); +} + +/* Slot 51 */ +void +TkOptionClassChanged(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkOptionClassChanged)(winPtr); +} + +/* Slot 52 */ +void +TkOptionDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkOptionDeadWindow)(winPtr); +} + +/* Slot 53 */ +int +TkOvalToArea(ovalPtr, rectPtr) + double * ovalPtr; + double * rectPtr; +{ + return (tkIntStubsPtr->tkOvalToArea)(ovalPtr, rectPtr); +} + +/* Slot 54 */ +double +TkOvalToPoint(ovalPtr, width, filled, pointPtr) + TkDouble4 ovalPtr; + double width; + int filled; + TkDouble2 pointPtr; +{ + return (tkIntStubsPtr->tkOvalToPoint)(ovalPtr, width, filled, pointPtr); +} + +/* Slot 55 */ +int +TkpChangeFocus(winPtr, force) + TkWindow * winPtr; + int force; +{ + return (tkIntStubsPtr->tkpChangeFocus)(winPtr, force); +} + +/* Slot 56 */ +void +TkpCloseDisplay(dispPtr) + TkDisplay * dispPtr; +{ + (tkIntStubsPtr->tkpCloseDisplay)(dispPtr); +} + +/* Slot 57 */ +void +TkpClaimFocus(topLevelPtr, force) + TkWindow * topLevelPtr; + int force; +{ + (tkIntStubsPtr->tkpClaimFocus)(topLevelPtr, force); +} + +/* Slot 58 */ +void +TkpDisplayWarning(msg, title) + char * msg; + char * title; +{ + (tkIntStubsPtr->tkpDisplayWarning)(msg, title); +} + +/* Slot 59 */ +void +TkpGetAppName(interp, name) + Tcl_Interp * interp; + Tcl_DString * name; +{ + (tkIntStubsPtr->tkpGetAppName)(interp, name); +} + +/* Slot 60 */ +TkWindow * +TkpGetOtherWindow(winPtr) + TkWindow * winPtr; +{ + return (tkIntStubsPtr->tkpGetOtherWindow)(winPtr); +} + +/* Slot 61 */ +TkWindow * +TkpGetWrapperWindow(winPtr) + TkWindow * winPtr; +{ + return (tkIntStubsPtr->tkpGetWrapperWindow)(winPtr); +} + +/* Slot 62 */ +int +TkpInit(interp) + Tcl_Interp * interp; +{ + return (tkIntStubsPtr->tkpInit)(interp); +} + +/* Slot 63 */ +void +TkpInitializeMenuBindings(interp, bindingTable) + Tcl_Interp * interp; + Tk_BindingTable bindingTable; +{ + (tkIntStubsPtr->tkpInitializeMenuBindings)(interp, bindingTable); +} + +/* Slot 64 */ +void +TkpMakeContainer(tkwin) + Tk_Window tkwin; +{ + (tkIntStubsPtr->tkpMakeContainer)(tkwin); +} + +/* Slot 65 */ +void +TkpMakeMenuWindow(tkwin, transient) + Tk_Window tkwin; + int transient; +{ + (tkIntStubsPtr->tkpMakeMenuWindow)(tkwin, transient); +} + +/* Slot 66 */ +Window +TkpMakeWindow(winPtr, parent) + TkWindow * winPtr; + Window parent; +{ + return (tkIntStubsPtr->tkpMakeWindow)(winPtr, parent); +} + +/* Slot 67 */ +void +TkpMenuNotifyToplevelCreate(interp1, menuName) + Tcl_Interp * interp1; + char * menuName; +{ + (tkIntStubsPtr->tkpMenuNotifyToplevelCreate)(interp1, menuName); +} + +/* Slot 68 */ +TkDisplay * +TkpOpenDisplay(display_name) + char * display_name; +{ + return (tkIntStubsPtr->tkpOpenDisplay)(display_name); +} + +/* Slot 69 */ +int +TkPointerEvent(eventPtr, winPtr) + XEvent * eventPtr; + TkWindow * winPtr; +{ + return (tkIntStubsPtr->tkPointerEvent)(eventPtr, winPtr); +} + +/* Slot 70 */ +int +TkPolygonToArea(polyPtr, numPoints, rectPtr) + double * polyPtr; + int numPoints; + double * rectPtr; +{ + return (tkIntStubsPtr->tkPolygonToArea)(polyPtr, numPoints, rectPtr); +} + +/* Slot 71 */ +double +TkPolygonToPoint(polyPtr, numPoints, pointPtr) + double * polyPtr; + int numPoints; + double * pointPtr; +{ + return (tkIntStubsPtr->tkPolygonToPoint)(polyPtr, numPoints, pointPtr); +} + +/* Slot 72 */ +int +TkPositionInTree(winPtr, treePtr) + TkWindow * winPtr; + TkWindow * treePtr; +{ + return (tkIntStubsPtr->tkPositionInTree)(winPtr, treePtr); +} + +/* Slot 73 */ +void +TkpRedirectKeyEvent(winPtr, eventPtr) + TkWindow * winPtr; + XEvent * eventPtr; +{ + (tkIntStubsPtr->tkpRedirectKeyEvent)(winPtr, eventPtr); +} + +/* Slot 74 */ +void +TkpSetMainMenubar(interp, tkwin, menuName) + Tcl_Interp * interp; + Tk_Window tkwin; + char * menuName; +{ + (tkIntStubsPtr->tkpSetMainMenubar)(interp, tkwin, menuName); +} + +/* Slot 75 */ +int +TkpUseWindow(interp, tkwin, string) + Tcl_Interp * interp; + Tk_Window tkwin; + char * string; +{ + return (tkIntStubsPtr->tkpUseWindow)(interp, tkwin, string); +} + +/* Slot 76 */ +int +TkpWindowWasRecentlyDeleted(win, dispPtr) + Window win; + TkDisplay * dispPtr; +{ + return (tkIntStubsPtr->tkpWindowWasRecentlyDeleted)(win, dispPtr); +} + +/* Slot 77 */ +void +TkQueueEventForAllChildren(winPtr, eventPtr) + TkWindow * winPtr; + XEvent * eventPtr; +{ + (tkIntStubsPtr->tkQueueEventForAllChildren)(winPtr, eventPtr); +} + +/* Slot 78 */ +int +TkReadBitmapFile(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return) + Display* display; + Drawable d; + CONST char* filename; + unsigned int* width_return; + unsigned int* height_return; + Pixmap* bitmap_return; + int* x_hot_return; + int* y_hot_return; +{ + return (tkIntStubsPtr->tkReadBitmapFile)(display, d, filename, width_return, height_return, bitmap_return, x_hot_return, y_hot_return); +} + +/* Slot 79 */ +int +TkScrollWindow(tkwin, gc, x, y, width, height, dx, dy, damageRgn) + Tk_Window tkwin; + GC gc; + int x; + int y; + int width; + int height; + int dx; + int dy; + TkRegion damageRgn; +{ + return (tkIntStubsPtr->tkScrollWindow)(tkwin, gc, x, y, width, height, dx, dy, damageRgn); +} + +/* Slot 80 */ +void +TkSelDeadWindow(winPtr) + TkWindow * winPtr; +{ + (tkIntStubsPtr->tkSelDeadWindow)(winPtr); +} + +/* Slot 81 */ +void +TkSelEventProc(tkwin, eventPtr) + Tk_Window tkwin; + XEvent * eventPtr; +{ + (tkIntStubsPtr->tkSelEventProc)(tkwin, eventPtr); +} + +/* Slot 82 */ +void +TkSelInit(tkwin) + Tk_Window tkwin; +{ + (tkIntStubsPtr->tkSelInit)(tkwin); +} + +/* Slot 83 */ +void +TkSelPropProc(eventPtr) + XEvent * eventPtr; +{ + (tkIntStubsPtr->tkSelPropProc)(eventPtr); +} + +/* Slot 84 */ +void +TkSetClassProcs(tkwin, procs, instanceData) + Tk_Window tkwin; + TkClassProcs * procs; + ClientData instanceData; +{ + (tkIntStubsPtr->tkSetClassProcs)(tkwin, procs, instanceData); +} + +/* Slot 85 */ +void +TkSetWindowMenuBar(interp, tkwin, oldMenuName, menuName)