summaryrefslogtreecommitdiffstats
path: root/generic/tk.decls
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tk.decls')
-rw-r--r--generic/tk.decls672
1 files changed, 336 insertions, 336 deletions
diff --git a/generic/tk.decls b/generic/tk.decls
index 9037e75..65715c4 100644
--- a/generic/tk.decls
+++ b/generic/tk.decls
@@ -25,886 +25,882 @@ hooks {tkPlat tkInt tkIntPlat tkIntXlib}
# the an index should never be reused for a different function in order
# to preserve backwards compatibility.
-declare 0 generic {
+declare 0 {
void Tk_MainLoop(void)
}
-declare 1 generic {
+declare 1 {
XColor *Tk_3DBorderColor(Tk_3DBorder border)
}
-declare 2 generic {
+declare 2 {
GC Tk_3DBorderGC(Tk_Window tkwin, Tk_3DBorder border,
int which)
}
-declare 3 generic {
+declare 3 {
void Tk_3DHorizontalBevel(Tk_Window tkwin,
Drawable drawable, Tk_3DBorder border, int x,
int y, int width, int height, int leftIn,
int rightIn, int topBevel, int relief)
}
-declare 4 generic {
+declare 4 {
void Tk_3DVerticalBevel(Tk_Window tkwin,
Drawable drawable, Tk_3DBorder border, int x,
int y, int width, int height, int leftBevel,
int relief)
}
-declare 5 generic {
- void Tk_AddOption(Tk_Window tkwin, CONST char *name,
- CONST char *value, int priority)
+declare 5 {
+ void Tk_AddOption(Tk_Window tkwin, const char *name,
+ const char *value, int priority)
}
-declare 6 generic {
+declare 6 {
void Tk_BindEvent(Tk_BindingTable bindingTable,
XEvent *eventPtr, Tk_Window tkwin, int numObjects,
ClientData *objectPtr)
}
-declare 7 generic {
+declare 7 {
void Tk_CanvasDrawableCoords(Tk_Canvas canvas,
double x, double y, short *drawableXPtr,
short *drawableYPtr)
}
-declare 8 generic {
+declare 8 {
void Tk_CanvasEventuallyRedraw(Tk_Canvas canvas, int x1, int y1,
int x2, int y2)
}
-declare 9 generic {
+declare 9 {
int Tk_CanvasGetCoord(Tcl_Interp *interp,
- Tk_Canvas canvas, CONST char *str, double *doublePtr)
+ Tk_Canvas canvas, const char *str, double *doublePtr)
}
-declare 10 generic {
+declare 10 {
Tk_CanvasTextInfo *Tk_CanvasGetTextInfo(Tk_Canvas canvas)
}
-declare 11 generic {
+declare 11 {
int Tk_CanvasPsBitmap(Tcl_Interp *interp,
Tk_Canvas canvas, Pixmap bitmap, int x, int y,
int width, int height)
}
-declare 12 generic {
+declare 12 {
int Tk_CanvasPsColor(Tcl_Interp *interp,
Tk_Canvas canvas, XColor *colorPtr)
}
-declare 13 generic {
+declare 13 {
int Tk_CanvasPsFont(Tcl_Interp *interp,
Tk_Canvas canvas, Tk_Font font)
}
-declare 14 generic {
+declare 14 {
void Tk_CanvasPsPath(Tcl_Interp *interp,
Tk_Canvas canvas, double *coordPtr, int numPoints)
}
-declare 15 generic {
+declare 15 {
int Tk_CanvasPsStipple(Tcl_Interp *interp,
Tk_Canvas canvas, Pixmap bitmap)
}
-declare 16 generic {
+declare 16 {
double Tk_CanvasPsY(Tk_Canvas canvas, double y)
}
-declare 17 generic {
+declare 17 {
void Tk_CanvasSetStippleOrigin(Tk_Canvas canvas, GC gc)
}
-declare 18 generic {
+declare 18 {
int Tk_CanvasTagsParseProc(ClientData clientData, Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *value, char *widgRec, int offset)
+ Tk_Window tkwin, const char *value, char *widgRec, int offset)
}
-declare 19 generic {
+declare 19 {
char *Tk_CanvasTagsPrintProc(ClientData clientData, Tk_Window tkwin,
char *widgRec, int offset, Tcl_FreeProc **freeProcPtr)
}
-declare 20 generic {
+declare 20 {
Tk_Window Tk_CanvasTkwin(Tk_Canvas canvas)
}
-declare 21 generic {
+declare 21 {
void Tk_CanvasWindowCoords(Tk_Canvas canvas, double x, double y,
short *screenXPtr, short *screenYPtr)
}
-declare 22 generic {
+declare 22 {
void Tk_ChangeWindowAttributes(Tk_Window tkwin, unsigned long valueMask,
XSetWindowAttributes *attsPtr)
}
-declare 23 generic {
+declare 23 {
int Tk_CharBbox(Tk_TextLayout layout, int index, int *xPtr,
int *yPtr, int *widthPtr, int *heightPtr)
}
-declare 24 generic {
+declare 24 {
void Tk_ClearSelection(Tk_Window tkwin, Atom selection)
}
-declare 25 generic {
+declare 25 {
int Tk_ClipboardAppend(Tcl_Interp *interp, Tk_Window tkwin,
Atom target, Atom format, char *buffer)
}
-declare 26 generic {
+declare 26 {
int Tk_ClipboardClear(Tcl_Interp *interp, Tk_Window tkwin)
}
-declare 27 generic {
+declare 27 {
int Tk_ConfigureInfo(Tcl_Interp *interp,
Tk_Window tkwin, Tk_ConfigSpec *specs,
- char *widgRec, CONST char *argvName, int flags)
+ char *widgRec, const char *argvName, int flags)
}
-declare 28 generic {
+declare 28 {
int Tk_ConfigureValue(Tcl_Interp *interp,
Tk_Window tkwin, Tk_ConfigSpec *specs,
- char *widgRec, CONST char *argvName, int flags)
+ char *widgRec, const char *argvName, int flags)
}
-declare 29 generic {
+declare 29 {
int Tk_ConfigureWidget(Tcl_Interp *interp,
Tk_Window tkwin, Tk_ConfigSpec *specs,
int argc, CONST84 char **argv, char *widgRec,
int flags)
}
-declare 30 generic {
+declare 30 {
void Tk_ConfigureWindow(Tk_Window tkwin,
unsigned int valueMask, XWindowChanges *valuePtr)
}
-declare 31 generic {
+declare 31 {
Tk_TextLayout Tk_ComputeTextLayout(Tk_Font font,
- CONST char *str, int numChars, int wrapLength,
+ const char *str, int numChars, int wrapLength,
Tk_Justify justify, int flags, int *widthPtr,
int *heightPtr)
}
-declare 32 generic {
+declare 32 {
Tk_Window Tk_CoordsToWindow(int rootX, int rootY, Tk_Window tkwin)
}
-declare 33 generic {
+declare 33 {
unsigned long Tk_CreateBinding(Tcl_Interp *interp,
Tk_BindingTable bindingTable, ClientData object,
- CONST char *eventStr, CONST char *command, int append)
+ const char *eventStr, const char *command, int append)
}
-declare 34 generic {
+declare 34 {
Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp)
}
-declare 35 generic {
+declare 35 {
Tk_ErrorHandler Tk_CreateErrorHandler(Display *display,
int errNum, int request, int minorCode,
Tk_ErrorProc *errorProc, ClientData clientData)
}
-declare 36 generic {
+declare 36 {
void Tk_CreateEventHandler(Tk_Window token,
unsigned long mask, Tk_EventProc *proc,
ClientData clientData)
}
-declare 37 generic {
+declare 37 {
void Tk_CreateGenericHandler(Tk_GenericProc *proc, ClientData clientData)
}
-declare 38 generic {
+declare 38 {
void Tk_CreateImageType(Tk_ImageType *typePtr)
}
-declare 39 generic {
+declare 39 {
void Tk_CreateItemType(Tk_ItemType *typePtr)
}
-declare 40 generic {
+declare 40 {
void Tk_CreatePhotoImageFormat(Tk_PhotoImageFormat *formatPtr)
}
-declare 41 generic {
+declare 41 {
void Tk_CreateSelHandler(Tk_Window tkwin,
Atom selection, Atom target,
Tk_SelectionProc *proc, ClientData clientData,
Atom format)
}
-declare 42 generic {
+declare 42 {
Tk_Window Tk_CreateWindow(Tcl_Interp *interp,
- Tk_Window parent, CONST char *name, CONST char *screenName)
+ Tk_Window parent, const char *name, const char *screenName)
}
-declare 43 generic {
+declare 43 {
Tk_Window Tk_CreateWindowFromPath(Tcl_Interp *interp, Tk_Window tkwin,
- CONST char *pathName, CONST char *screenName)
+ const char *pathName, const char *screenName)
}
-declare 44 generic {
- int Tk_DefineBitmap(Tcl_Interp *interp, CONST char *name,
- CONST char *source, int width, int height)
+declare 44 {
+ int Tk_DefineBitmap(Tcl_Interp *interp, const char *name,
+ const char *source, int width, int height)
}
-declare 45 generic {
+declare 45 {
void Tk_DefineCursor(Tk_Window window, Tk_Cursor cursor)
}
-declare 46 generic {
+declare 46 {
void Tk_DeleteAllBindings(Tk_BindingTable bindingTable, ClientData object)
}
-declare 47 generic {
+declare 47 {
int Tk_DeleteBinding(Tcl_Interp *interp,
Tk_BindingTable bindingTable, ClientData object,
- CONST char *eventStr)
+ const char *eventStr)
}
-declare 48 generic {
+declare 48 {
void Tk_DeleteBindingTable(Tk_BindingTable bindingTable)
}
-declare 49 generic {
+declare 49 {
void Tk_DeleteErrorHandler(Tk_ErrorHandler handler)
}
-declare 50 generic {
+declare 50 {
void Tk_DeleteEventHandler(Tk_Window token,
unsigned long mask, Tk_EventProc *proc,
ClientData clientData)
}
-declare 51 generic {
+declare 51 {
void Tk_DeleteGenericHandler(Tk_GenericProc *proc, ClientData clientData)
}
-declare 52 generic {
- void Tk_DeleteImage(Tcl_Interp *interp, CONST char *name)
+declare 52 {
+ void Tk_DeleteImage(Tcl_Interp *interp, const char *name)
}
-declare 53 generic {
+declare 53 {
void Tk_DeleteSelHandler(Tk_Window tkwin, Atom selection, Atom target)
}
-declare 54 generic {
+declare 54 {
void Tk_DestroyWindow(Tk_Window tkwin)
}
-declare 55 generic {
+declare 55 {
CONST84_RETURN char *Tk_DisplayName(Tk_Window tkwin)
}
-declare 56 generic {
+declare 56 {
int Tk_DistanceToTextLayout(Tk_TextLayout layout, int x, int y)
}
-declare 57 generic {
+declare 57 {
void Tk_Draw3DPolygon(Tk_Window tkwin,
Drawable drawable, Tk_3DBorder border,
XPoint *pointPtr, int numPoints, int borderWidth,
int leftRelief)
}
-declare 58 generic {
+declare 58 {
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 {
+declare 59 {
void Tk_DrawChars(Display *display, Drawable drawable, GC gc,
- Tk_Font tkfont, CONST char *source, int numBytes, int x, int y)
+ Tk_Font tkfont, const char *source, int numBytes, int x, int y)
}
-declare 60 generic {
+declare 60 {
void Tk_DrawFocusHighlight(Tk_Window tkwin, GC gc, int width,
Drawable drawable)
}
-declare 61 generic {
+declare 61 {
void Tk_DrawTextLayout(Display *display,
Drawable drawable, GC gc, Tk_TextLayout layout,
int x, int y, int firstChar, int lastChar)
}
-declare 62 generic {
+declare 62 {
void Tk_Fill3DPolygon(Tk_Window tkwin,
Drawable drawable, Tk_3DBorder border,
XPoint *pointPtr, int numPoints, int borderWidth,
int leftRelief)
}
-declare 63 generic {
+declare 63 {
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, CONST char *imageName)
+declare 64 {
+ Tk_PhotoHandle Tk_FindPhoto(Tcl_Interp *interp, const char *imageName)
}
-declare 65 generic {
+declare 65 {
Font Tk_FontId(Tk_Font font)
}
-declare 66 generic {
+declare 66 {
void Tk_Free3DBorder(Tk_3DBorder border)
}
-declare 67 generic {
+declare 67 {
void Tk_FreeBitmap(Display *display, Pixmap bitmap)
}
-declare 68 generic {
+declare 68 {
void Tk_FreeColor(XColor *colorPtr)
}
-declare 69 generic {
+declare 69 {
void Tk_FreeColormap(Display *display, Colormap colormap)
}
-declare 70 generic {
+declare 70 {
void Tk_FreeCursor(Display *display, Tk_Cursor cursor)
}
-declare 71 generic {
+declare 71 {
void Tk_FreeFont(Tk_Font f)
}
-declare 72 generic {
+declare 72 {
void Tk_FreeGC(Display *display, GC gc)
}
-declare 73 generic {
+declare 73 {
void Tk_FreeImage(Tk_Image image)
}
-declare 74 generic {
+declare 74 {
void Tk_FreeOptions(Tk_ConfigSpec *specs,
char *widgRec, Display *display, int needFlags)
}
-declare 75 generic {
+declare 75 {
void Tk_FreePixmap(Display *display, Pixmap pixmap)
}
-declare 76 generic {
+declare 76 {
void Tk_FreeTextLayout(Tk_TextLayout textLayout)
}
-declare 77 generic {
+declare 77 {
void Tk_FreeXId(Display *display, XID xid)
}
-declare 78 generic {
+declare 78 {
GC Tk_GCForColor(XColor *colorPtr, Drawable drawable)
}
-declare 79 generic {
+declare 79 {
void Tk_GeometryRequest(Tk_Window tkwin, int reqWidth, int reqHeight)
}
-declare 80 generic {
+declare 80 {
Tk_3DBorder Tk_Get3DBorder(Tcl_Interp *interp, Tk_Window tkwin,
Tk_Uid colorName)
}
-declare 81 generic {
+declare 81 {
void Tk_GetAllBindings(Tcl_Interp *interp,
Tk_BindingTable bindingTable, ClientData object)
}
-declare 82 generic {
+declare 82 {
int Tk_GetAnchor(Tcl_Interp *interp,
- CONST char *str, Tk_Anchor *anchorPtr)
+ const char *str, Tk_Anchor *anchorPtr)
}
-declare 83 generic {
+declare 83 {
CONST84_RETURN char *Tk_GetAtomName(Tk_Window tkwin, Atom atom)
}
-declare 84 generic {
+declare 84 {
CONST84_RETURN char *Tk_GetBinding(Tcl_Interp *interp,
Tk_BindingTable bindingTable, ClientData object,
- CONST char *eventStr)
+ const char *eventStr)
}
-declare 85 generic {
- Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, CONST char *str)
+declare 85 {
+ Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, const char *str)
}
-declare 86 generic {
+declare 86 {
Pixmap Tk_GetBitmapFromData(Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *source, int width, int height)
+ Tk_Window tkwin, const char *source, int width, int height)
}
-declare 87 generic {
- int Tk_GetCapStyle(Tcl_Interp *interp, CONST char *str, int *capPtr)
+declare 87 {
+ int Tk_GetCapStyle(Tcl_Interp *interp, const char *str, int *capPtr)
}
-declare 88 generic {
+declare 88 {
XColor *Tk_GetColor(Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name)
}
-declare 89 generic {
+declare 89 {
XColor *Tk_GetColorByValue(Tk_Window tkwin, XColor *colorPtr)
}
-declare 90 generic {
+declare 90 {
Colormap Tk_GetColormap(Tcl_Interp *interp, Tk_Window tkwin,
- CONST char *str)
+ const char *str)
}
-declare 91 generic {
+declare 91 {
Tk_Cursor Tk_GetCursor(Tcl_Interp *interp, Tk_Window tkwin,
Tk_Uid str)
}
-declare 92 generic {
+declare 92 {
Tk_Cursor Tk_GetCursorFromData(Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *source, CONST char *mask,
+ Tk_Window tkwin, const char *source, const char *mask,
int width, int height, int xHot, int yHot,
Tk_Uid fg, Tk_Uid bg)
}
-declare 93 generic {
+declare 93 {
Tk_Font Tk_GetFont(Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *str)
+ Tk_Window tkwin, const char *str)
}
-declare 94 generic {
+declare 94 {
Tk_Font Tk_GetFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 95 generic {
+declare 95 {
void Tk_GetFontMetrics(Tk_Font font, Tk_FontMetrics *fmPtr)
}
-declare 96 generic {
+declare 96 {
GC Tk_GetGC(Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr)
}
-declare 97 generic {
- Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, CONST char *name,
+declare 97 {
+ Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, const char *name,
Tk_ImageChangedProc *changeProc, ClientData clientData)
}
-declare 98 generic {
+declare 98 {
ClientData Tk_GetImageMasterData(Tcl_Interp *interp,
- CONST char *name, Tk_ImageType **typePtrPtr)
+ const char *name, Tk_ImageType **typePtrPtr)
}
-declare 99 generic {
+declare 99 {
Tk_ItemType *Tk_GetItemTypes(void)
}
-declare 100 generic {
- int Tk_GetJoinStyle(Tcl_Interp *interp, CONST char *str, int *joinPtr)
+declare 100 {
+ int Tk_GetJoinStyle(Tcl_Interp *interp, const char *str, int *joinPtr)
}
-declare 101 generic {
+declare 101 {
int Tk_GetJustify(Tcl_Interp *interp,
- CONST char *str, Tk_Justify *justifyPtr)
+ const char *str, Tk_Justify *justifyPtr)
}
-declare 102 generic {
+declare 102 {
int Tk_GetNumMainWindows(void)
}
-declare 103 generic {
- Tk_Uid Tk_GetOption(Tk_Window tkwin, CONST char *name,
- CONST char *className)
+declare 103 {
+ Tk_Uid Tk_GetOption(Tk_Window tkwin, const char *name,
+ const char *className)
}
-declare 104 generic {
+declare 104 {
int Tk_GetPixels(Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *str, int *intPtr)
+ Tk_Window tkwin, const char *str, int *intPtr)
}
-declare 105 generic {
+declare 105 {
Pixmap Tk_GetPixmap(Display *display, Drawable d,
int width, int height, int depth)
}
-declare 106 generic {
- int Tk_GetRelief(Tcl_Interp *interp, CONST char *name, int *reliefPtr)
+declare 106 {
+ int Tk_GetRelief(Tcl_Interp *interp, const char *name, int *reliefPtr)
}
-declare 107 generic {
+declare 107 {
void Tk_GetRootCoords(Tk_Window tkwin, int *xPtr, int *yPtr)
}
-declare 108 generic {
+declare 108 {
int Tk_GetScrollInfo(Tcl_Interp *interp,
int argc, CONST84 char **argv, double *dblPtr, int *intPtr)
}
-declare 109 generic {
+declare 109 {
int Tk_GetScreenMM(Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *str, double *doublePtr)
+ Tk_Window tkwin, const char *str, double *doublePtr)
}
-declare 110 generic {
+declare 110 {
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 *str)
+declare 111 {
+ Tk_Uid Tk_GetUid(const char *str)
}
-declare 112 generic {
+declare 112 {
Visual *Tk_GetVisual(Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *str, int *depthPtr,
+ Tk_Window tkwin, const char *str, int *depthPtr,
Colormap *colormapPtr)
}
-declare 113 generic {
+declare 113 {
void Tk_GetVRootGeometry(Tk_Window tkwin,
int *xPtr, int *yPtr, int *widthPtr, int *heightPtr)
}
-declare 114 generic {
+declare 114 {
int Tk_Grab(Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal)
}
-declare 115 generic {
+declare 115 {
void Tk_HandleEvent(XEvent *eventPtr)
}
-declare 116 generic {
+declare 116 {
Tk_Window Tk_IdToWindow(Display *display, Window window)
}
-declare 117 generic {
+declare 117 {
void Tk_ImageChanged(Tk_ImageMaster master, int x, int y,
int width, int height, int imageWidth, int imageHeight)
}
-declare 118 generic {
+declare 118 {
int Tk_Init(Tcl_Interp *interp)
}
-declare 119 generic {
- Atom Tk_InternAtom(Tk_Window tkwin, CONST char *name)
+declare 119 {
+ Atom Tk_InternAtom(Tk_Window tkwin, const char *name)
}
-declare 120 generic {
+declare 120 {
int Tk_IntersectTextLayout(Tk_TextLayout layout, int x, int y,
int width, int height)
}
-declare 121 generic {
+declare 121 {
void Tk_MaintainGeometry(Tk_Window slave,
Tk_Window master, int x, int y, int width, int height)
}
-declare 122 generic {
+declare 122 {
Tk_Window Tk_MainWindow(Tcl_Interp *interp)
}
-declare 123 generic {
+declare 123 {
void Tk_MakeWindowExist(Tk_Window tkwin)
}
-declare 124 generic {
+declare 124 {
void Tk_ManageGeometry(Tk_Window tkwin,
- CONST Tk_GeomMgr *mgrPtr, ClientData clientData)
+ const Tk_GeomMgr *mgrPtr, ClientData clientData)
}
-declare 125 generic {
+declare 125 {
void Tk_MapWindow(Tk_Window tkwin)
}
-declare 126 generic {
+declare 126 {
int Tk_MeasureChars(Tk_Font tkfont,
- CONST char *source, int numBytes, int maxPixels,
+ const char *source, int numBytes, int maxPixels,
int flags, int *lengthPtr)
}
-declare 127 generic {
+declare 127 {
void Tk_MoveResizeWindow(Tk_Window tkwin,
int x, int y, int width, int height)
}
-declare 128 generic {
+declare 128 {
void Tk_MoveWindow(Tk_Window tkwin, int x, int y)
}
-declare 129 generic {
+declare 129 {
void Tk_MoveToplevelWindow(Tk_Window tkwin, int x, int y)
}
-declare 130 generic {
+declare 130 {
CONST84_RETURN char *Tk_NameOf3DBorder(Tk_3DBorder border)
}
-declare 131 generic {
+declare 131 {
CONST84_RETURN char *Tk_NameOfAnchor(Tk_Anchor anchor)
}
-declare 132 generic {
+declare 132 {
CONST84_RETURN char *Tk_NameOfBitmap(Display *display, Pixmap bitmap)
}
-declare 133 generic {
+declare 133 {
CONST84_RETURN char *Tk_NameOfCapStyle(int cap)
}
-declare 134 generic {
+declare 134 {
CONST84_RETURN char *Tk_NameOfColor(XColor *colorPtr)
}
-declare 135 generic {
+declare 135 {
CONST84_RETURN char *Tk_NameOfCursor(Display *display, Tk_Cursor cursor)
}
-declare 136 generic {
+declare 136 {
CONST84_RETURN char *Tk_NameOfFont(Tk_Font font)
}
-declare 137 generic {
+declare 137 {
CONST84_RETURN char *Tk_NameOfImage(Tk_ImageMaster imageMaster)
}
-declare 138 generic {
+declare 138 {
CONST84_RETURN char *Tk_NameOfJoinStyle(int join)
}
-declare 139 generic {
+declare 139 {
CONST84_RETURN char *Tk_NameOfJustify(Tk_Justify justify)
}
-declare 140 generic {
+declare 140 {
CONST84_RETURN char *Tk_NameOfRelief(int relief)
}
-declare 141 generic {
+declare 141 {
Tk_Window Tk_NameToWindow(Tcl_Interp *interp,
- CONST char *pathName, Tk_Window tkwin)
+ const char *pathName, Tk_Window tkwin)
}
-declare 142 generic {
+declare 142 {
void Tk_OwnSelection(Tk_Window tkwin,
Atom selection, Tk_LostSelProc *proc,
ClientData clientData)
}
-declare 143 generic {
+declare 143 {
int Tk_ParseArgv(Tcl_Interp *interp,
Tk_Window tkwin, int *argcPtr, CONST84 char **argv,
Tk_ArgvInfo *argTable, int flags)
}
-declare 144 generic {
+declare 144 {
void Tk_PhotoPutBlock_NoComposite(Tk_PhotoHandle handle,
Tk_PhotoImageBlock *blockPtr, int x, int y,
int width, int height)
}
-declare 145 generic {
+declare 145 {
void Tk_PhotoPutZoomedBlock_NoComposite(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 {
+declare 146 {
int Tk_PhotoGetImage(Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr)
}
-declare 147 generic {
+declare 147 {
void Tk_PhotoBlank(Tk_PhotoHandle handle)
}
-declare 148 generic {
+declare 148 {
void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, int width, int height )
}
-declare 149 generic {
+declare 149 {
void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, int *heightPtr)
}
-declare 150 generic {
+declare 150 {
void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, int width, int height)
}
-declare 151 generic {
+declare 151 {
int Tk_PointToChar(Tk_TextLayout layout, int x, int y)
}
-declare 152 generic {
+declare 152 {
int Tk_PostscriptFontName(Tk_Font tkfont, Tcl_DString *dsPtr)
}
-declare 153 generic {
+declare 153 {
void Tk_PreserveColormap(Display *display, Colormap colormap)
}
-declare 154 generic {
+declare 154 {
void Tk_QueueWindowEvent(XEvent *eventPtr, Tcl_QueuePosition position)
}
-declare 155 generic {
+declare 155 {
void Tk_RedrawImage(Tk_Image image, int imageX,
int imageY, int width, int height,
Drawable drawable, int drawableX, int drawableY)
}
-declare 156 generic {
+declare 156 {
void Tk_ResizeWindow(Tk_Window tkwin, int width, int height)
}
-declare 157 generic {
+declare 157 {
int Tk_RestackWindow(Tk_Window tkwin, int aboveBelow, Tk_Window other)
}
-declare 158 generic {
+declare 158 {
Tk_RestrictProc *Tk_RestrictEvents(Tk_RestrictProc *proc,
ClientData arg, ClientData *prevArgPtr)
}
-declare 159 generic {
+declare 159 {
int Tk_SafeInit(Tcl_Interp *interp)
}
-declare 160 generic {
- CONST char *Tk_SetAppName(Tk_Window tkwin, CONST char *name)
+declare 160 {
+ const char *Tk_SetAppName(Tk_Window tkwin, const char *name)
}
-declare 161 generic {
+declare 161 {
void Tk_SetBackgroundFromBorder(Tk_Window tkwin, Tk_3DBorder border)
}
-declare 162 generic {
- void Tk_SetClass(Tk_Window tkwin, CONST char *className)
+declare 162 {
+ void Tk_SetClass(Tk_Window tkwin, const char *className)
}
-declare 163 generic {
+declare 163 {
void Tk_SetGrid(Tk_Window tkwin, int reqWidth, int reqHeight,
int gridWidth, int gridHeight)
}
-declare 164 generic {
+declare 164 {
void Tk_SetInternalBorder(Tk_Window tkwin, int width)
}
-declare 165 generic {
+declare 165 {
void Tk_SetWindowBackground(Tk_Window tkwin, unsigned long pixel)
}
-declare 166 generic {
+declare 166 {
void Tk_SetWindowBackgroundPixmap(Tk_Window tkwin, Pixmap pixmap)
}
-declare 167 generic {
+declare 167 {
void Tk_SetWindowBorder(Tk_Window tkwin, unsigned long pixel)
}
-declare 168 generic {
+declare 168 {
void Tk_SetWindowBorderWidth(Tk_Window tkwin, int width)
}
-declare 169 generic {
+declare 169 {
void Tk_SetWindowBorderPixmap(Tk_Window tkwin, Pixmap pixmap)
}
-declare 170 generic {
+declare 170 {
void Tk_SetWindowColormap(Tk_Window tkwin, Colormap colormap)
}
-declare 171 generic {
+declare 171 {
int Tk_SetWindowVisual(Tk_Window tkwin, Visual *visual, int depth,
Colormap colormap)
}
-declare 172 generic {
+declare 172 {
void Tk_SizeOfBitmap(Display *display, Pixmap bitmap, int *widthPtr,
int *heightPtr)
}
-declare 173 generic {
+declare 173 {
void Tk_SizeOfImage(Tk_Image image, int *widthPtr, int *heightPtr)
}
-declare 174 generic {
+declare 174 {
int Tk_StrictMotif(Tk_Window tkwin)
}
-declare 175 generic {
+declare 175 {
void Tk_TextLayoutToPostscript(Tcl_Interp *interp, Tk_TextLayout layout)
}
-declare 176 generic {
- int Tk_TextWidth(Tk_Font font, CONST char *str, int numBytes)
+declare 176 {
+ int Tk_TextWidth(Tk_Font font, const char *str, int numBytes)
}
-declare 177 generic {
+declare 177 {
void Tk_UndefineCursor(Tk_Window window)
}
-declare 178 generic {
+declare 178 {
void Tk_UnderlineChars(Display *display,
Drawable drawable, GC gc, Tk_Font tkfont,
- CONST char *source, int x, int y, int firstByte,
+ const char *source, int x, int y, int firstByte,
int lastByte)
}
-declare 179 generic {
+declare 179 {
void Tk_UnderlineTextLayout(Display *display, Drawable drawable, GC gc,
Tk_TextLayout layout, int x, int y,
int underline)
}
-declare 180 generic {
+declare 180 {
void Tk_Ungrab(Tk_Window tkwin)
}
-declare 181 generic {
+declare 181 {
void Tk_UnmaintainGeometry(Tk_Window slave, Tk_Window master)
}
-declare 182 generic {
+declare 182 {
void Tk_UnmapWindow(Tk_Window tkwin)
}
-declare 183 generic {
+declare 183 {
void Tk_UnsetGrid(Tk_Window tkwin)
}
-declare 184 generic {
+declare 184 {
void Tk_UpdatePointer(Tk_Window tkwin, int x, int y, int state)
}
# new functions for 8.1
-declare 185 generic {
+declare 185 {
Pixmap Tk_AllocBitmapFromObj(Tcl_Interp *interp, Tk_Window tkwin,
Tcl_Obj *objPtr)
}
-declare 186 generic {
+declare 186 {
Tk_3DBorder Tk_Alloc3DBorderFromObj(Tcl_Interp *interp, Tk_Window tkwin,
Tcl_Obj *objPtr)
}
-declare 187 generic {
+declare 187 {
XColor *Tk_AllocColorFromObj(Tcl_Interp *interp, Tk_Window tkwin,
Tcl_Obj *objPtr)
}
-declare 188 generic {
+declare 188 {
Tk_Cursor Tk_AllocCursorFromObj(Tcl_Interp *interp, Tk_Window tkwin,
Tcl_Obj *objPtr)
}
-declare 189 generic {
+declare 189 {
Tk_Font Tk_AllocFontFromObj(Tcl_Interp *interp, Tk_Window tkwin,
Tcl_Obj *objPtr)
}
-declare 190 generic {
+declare 190 {
Tk_OptionTable Tk_CreateOptionTable(Tcl_Interp *interp,
- CONST Tk_OptionSpec *templatePtr)
+ const Tk_OptionSpec *templatePtr)
}
-declare 191 generic {
+declare 191 {
void Tk_DeleteOptionTable(Tk_OptionTable optionTable)
}
-declare 192 generic {
+declare 192 {
void Tk_Free3DBorderFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 193 generic {
+declare 193 {
void Tk_FreeBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 194 generic {
+declare 194 {
void Tk_FreeColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 195 generic {
+declare 195 {
void Tk_FreeConfigOptions(char *recordPtr, Tk_OptionTable optionToken,
Tk_Window tkwin)
-
}
-declare 196 generic {
+declare 196 {
void Tk_FreeSavedOptions(Tk_SavedOptions *savePtr)
}
-declare 197 generic {
+declare 197 {
void Tk_FreeCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 198 generic {
+declare 198 {
void Tk_FreeFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 199 generic {
+declare 199 {
Tk_3DBorder Tk_Get3DBorderFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 200 generic {
+declare 200 {
int Tk_GetAnchorFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
Tk_Anchor *anchorPtr)
}
-declare 201 generic {
+declare 201 {
Pixmap Tk_GetBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 202 generic {
+declare 202 {
XColor *Tk_GetColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 203 generic {
+declare 203 {
Tk_Cursor Tk_GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr)
}
-declare 204 generic {
+declare 204 {
Tcl_Obj *Tk_GetOptionInfo(Tcl_Interp *interp,
char *recordPtr, Tk_OptionTable optionTable,
Tcl_Obj *namePtr, Tk_Window tkwin)
}
-declare 205 generic {
+declare 205 {
Tcl_Obj *Tk_GetOptionValue(Tcl_Interp *interp, char *recordPtr,
Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin)
}
-declare 206 generic {
+declare 206 {
int Tk_GetJustifyFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, Tk_Justify *justifyPtr)
}
-declare 207 generic {
+declare 207 {
int Tk_GetMMFromObj(Tcl_Interp *interp,
Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr)
}
-declare 208 generic {
+declare 208 {
int Tk_GetPixelsFromObj(Tcl_Interp *interp,
Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr)
}
-declare 209 generic {
+declare 209 {
int Tk_GetReliefFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, int *resultPtr)
}
-declare 210 generic {
+declare 210 {
int Tk_GetScrollInfoObj(Tcl_Interp *interp,
- int objc, Tcl_Obj *CONST objv[], double *dblPtr, int *intPtr)
+ int objc, Tcl_Obj *const objv[], double *dblPtr, int *intPtr)
}
-declare 211 generic {
+declare 211 {
int Tk_InitOptions(Tcl_Interp *interp, char *recordPtr,
Tk_OptionTable optionToken, Tk_Window tkwin)
}
-declare 212 generic {
+declare 212 {
void Tk_MainEx(int argc, char **argv, Tcl_AppInitProc *appInitProc,
Tcl_Interp *interp)
}
-declare 213 generic {
+declare 213 {
void Tk_RestoreSavedOptions(Tk_SavedOptions *savePtr)
}
-declare 214 generic {
+declare 214 {
int Tk_SetOptions(Tcl_Interp *interp, char *recordPtr,
Tk_OptionTable optionTable, int objc,
- Tcl_Obj *CONST objv[], Tk_Window tkwin,
+ Tcl_Obj *const objv[], Tk_Window tkwin,
Tk_SavedOptions *savePtr, int *maskPtr)
}
-declare 215 generic {
+declare 215 {
void Tk_InitConsoleChannels(Tcl_Interp *interp)
}
-declare 216 generic {
+declare 216 {
int Tk_CreateConsoleWindow(Tcl_Interp *interp)
}
-declare 217 generic {
+declare 217 {
void Tk_CreateSmoothMethod(Tcl_Interp *interp, Tk_SmoothMethod *method)
}
-
-#declare 218 generic {
-# void Tk_CreateCanvasVisitor(Tcl_Interp *interp, VOID *typePtr)
+#declare 218 {
+# void Tk_CreateCanvasVisitor(Tcl_Interp *interp, void *typePtr)
#}
-
-#declare 219 generic {
-# VOID *Tk_GetCanvasVisitor(Tcl_Interp *interp, CONST char *name)
+#declare 219 {
+# void *Tk_GetCanvasVisitor(Tcl_Interp *interp, const char *name)
#}
-
-declare 220 generic {
- int Tk_GetDash(Tcl_Interp *interp, CONST char *value, Tk_Dash *dash)
+declare 220 {
+ int Tk_GetDash(Tcl_Interp *interp, const char *value, Tk_Dash *dash)
}
-declare 221 generic {
+declare 221 {
void Tk_CreateOutline(Tk_Outline *outline)
}
-declare 222 generic {
+declare 222 {
void Tk_DeleteOutline(Display *display, Tk_Outline *outline)
}
-declare 223 generic {
+declare 223 {
int Tk_ConfigOutlineGC(XGCValues *gcValues, Tk_Canvas canvas,
Tk_Item *item, Tk_Outline *outline)
}
-declare 224 generic {
+declare 224 {
int Tk_ChangeOutlineGC(Tk_Canvas canvas, Tk_Item *item,
Tk_Outline *outline)
}
-declare 225 generic {
+declare 225 {
int Tk_ResetOutlineGC(Tk_Canvas canvas, Tk_Item *item,
Tk_Outline *outline)
}
-declare 226 generic {
+declare 226 {
int Tk_CanvasPsOutline(Tk_Canvas canvas, Tk_Item *item,
Tk_Outline *outline)
}
-declare 227 generic {
+declare 227 {
void Tk_SetTSOrigin(Tk_Window tkwin, GC gc, int x, int y)
}
-declare 228 generic {
+declare 228 {
int Tk_CanvasGetCoordFromObj(Tcl_Interp *interp, Tk_Canvas canvas,
Tcl_Obj *obj, double *doublePtr)
}
-declare 229 generic {
+declare 229 {
void Tk_CanvasSetOffset(Tk_Canvas canvas, GC gc, Tk_TSOffset *offset)
}
-declare 230 generic {
+declare 230 {
void Tk_DitherPhoto(Tk_PhotoHandle handle, int x, int y, int width,
int height)
}
-declare 231 generic {
+declare 231 {
int Tk_PostscriptBitmap(Tcl_Interp *interp, Tk_Window tkwin,
Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX,
int startY, int width, int height)
}
-declare 232 generic {
+declare 232 {
int Tk_PostscriptColor(Tcl_Interp *interp, Tk_PostscriptInfo psInfo,
XColor *colorPtr)
}
-declare 233 generic {
+declare 233 {
int Tk_PostscriptFont(Tcl_Interp *interp, Tk_PostscriptInfo psInfo,
Tk_Font font)
}
-declare 234 generic {
+declare 234 {
int Tk_PostscriptImage(Tk_Image image, Tcl_Interp *interp,
Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y,
int width, int height, int prepass)
}
-declare 235 generic {
+declare 235 {
void Tk_PostscriptPath(Tcl_Interp *interp, Tk_PostscriptInfo psInfo,
double *coordPtr, int numPoints)
}
-declare 236 generic {
+declare 236 {
int Tk_PostscriptStipple(Tcl_Interp *interp, Tk_Window tkwin,
Tk_PostscriptInfo psInfo, Pixmap bitmap)
}
-declare 237 generic {
+declare 237 {
double Tk_PostscriptY(double y, Tk_PostscriptInfo psInfo)
}
-declare 238 generic {
+declare 238 {
int Tk_PostscriptPhoto(Tcl_Interp *interp,
Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo,
int width, int height)
@@ -912,146 +908,146 @@ declare 238 generic {
# New in 8.4a1
#
-declare 239 generic {
+declare 239 {
void Tk_CreateClientMessageHandler(Tk_ClientMessageProc *proc)
}
-declare 240 generic {
+declare 240 {
void Tk_DeleteClientMessageHandler(Tk_ClientMessageProc *proc)
}
# New in 8.4a2
#
-declare 241 generic {
+declare 241 {
Tk_Window Tk_CreateAnonymousWindow(Tcl_Interp *interp,
- Tk_Window parent, CONST char *screenName)
+ Tk_Window parent, const char *screenName)
}
-declare 242 generic {
+declare 242 {
void Tk_SetClassProcs(Tk_Window tkwin,
Tk_ClassProcs *procs, ClientData instanceData)
}
# New in 8.4a4
#
-declare 243 generic {
+declare 243 {
void Tk_SetInternalBorderEx(Tk_Window tkwin, int left, int right,
int top, int bottom)
}
-declare 244 generic {
+declare 244 {
void Tk_SetMinimumRequestSize(Tk_Window tkwin,
int minWidth, int minHeight)
}
# New in 8.4a5
#
-declare 245 generic {
+declare 245 {
void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, int height)
}
-declare 246 generic {
+declare 246 {
void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle,
Tk_PhotoImageBlock *blockPtr, int x, int y,
int width, int height, int compRule)
}
-declare 247 generic {
+declare 247 {
void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle,
Tk_PhotoImageBlock *blockPtr, int x, int y,
int width, int height, int zoomX, int zoomY,
int subsampleX, int subsampleY, int compRule)
}
-declare 248 generic {
+declare 248 {
int Tk_CollapseMotionEvents(Display *display, int collapse)
}
# Style engine
-declare 249 generic {
- Tk_StyleEngine Tk_RegisterStyleEngine(CONST char *name,
+declare 249 {
+ Tk_StyleEngine Tk_RegisterStyleEngine(const char *name,
Tk_StyleEngine parent)
}
-declare 250 generic {
- Tk_StyleEngine Tk_GetStyleEngine(CONST char *name)
+declare 250 {
+ Tk_StyleEngine Tk_GetStyleEngine(const char *name)
}
-declare 251 generic {
+declare 251 {
int Tk_RegisterStyledElement(Tk_StyleEngine engine,
Tk_ElementSpec *templatePtr)
}
-declare 252 generic {
- int Tk_GetElementId(CONST char *name)
+declare 252 {
+ int Tk_GetElementId(const char *name)
}
-declare 253 generic {
- Tk_Style Tk_CreateStyle(CONST char *name, Tk_StyleEngine engine,
+declare 253 {
+ Tk_Style Tk_CreateStyle(const char *name, Tk_StyleEngine engine,
ClientData clientData)
}
-declare 254 generic {
- Tk_Style Tk_GetStyle(Tcl_Interp *interp, CONST char *name)
+declare 254 {
+ Tk_Style Tk_GetStyle(Tcl_Interp *interp, const char *name)
}
-declare 255 generic {
+declare 255 {
void Tk_FreeStyle(Tk_Style style)
}
-declare 256 generic {
- CONST char *Tk_NameOfStyle(Tk_Style style)
+declare 256 {
+ const char *Tk_NameOfStyle(Tk_Style style)
}
-declare 257 generic {
+declare 257 {
Tk_Style Tk_AllocStyleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
}
-declare 258 generic {
+declare 258 {
Tk_Style Tk_GetStyleFromObj(Tcl_Obj *objPtr)
}
-declare 259 generic {
+declare 259 {
void Tk_FreeStyleFromObj(Tcl_Obj *objPtr)
}
-declare 260 generic {
+declare 260 {
Tk_StyledElement Tk_GetStyledElement(Tk_Style style, int elementId,
Tk_OptionTable optionTable)
}
-declare 261 generic {
+declare 261 {
void Tk_GetElementSize(Tk_Style style, Tk_StyledElement element,
char *recordPtr, Tk_Window tkwin, int width, int height,
int inner, int *widthPtr, int *heightPtr)
}
-declare 262 generic {
+declare 262 {
void Tk_GetElementBox(Tk_Style style, Tk_StyledElement element,
char *recordPtr, Tk_Window tkwin, int x, int y, int width,
int height, int inner, int *xPtr, int *yPtr, int *widthPtr,
int *heightPtr)
}
-declare 263 generic {
+declare 263 {
int Tk_GetElementBorderWidth(Tk_Style style, Tk_StyledElement element,
char *recordPtr, Tk_Window tkwin)
}
-declare 264 generic {
+declare 264 {
void Tk_DrawElement(Tk_Style style, Tk_StyledElement element,
char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y,
int width, int height, int state)
}
# TIP#116
-declare 265 generic {
+declare 265 {
int Tk_PhotoExpand(Tcl_Interp *interp, Tk_PhotoHandle handle,
int width, int height)
}
-declare 266 generic {
+declare 266 {
int Tk_PhotoPutBlock(Tcl_Interp *interp, Tk_PhotoHandle handle,
Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height,
int compRule)
}
-declare 267 generic {
+declare 267 {
int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, Tk_PhotoHandle handle,
Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height,
int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule)
}
-declare 268 generic {
+declare 268 {
int Tk_PhotoSetSize(Tcl_Interp *interp, Tk_PhotoHandle handle,
int width, int height)
}
# TIP#245
-declare 269 generic {
+declare 269 {
long Tk_GetUserInactiveTime(Display *dpy)
}
-declare 270 generic {
+declare 270 {
void Tk_ResetUserInactiveTime(Display *dpy)
}
# TIP #264
-declare 271 generic {
+declare 271 {
Tcl_Interp *Tk_Interp(Tk_Window tkwin)
}
@@ -1065,10 +1061,10 @@ declare 271 generic {
# It will *not* be [load]able into interps with Tk 8.4 (or Tk 8.2!).
# Developers who need to produce a file [load]able into legacy interps must
# build against legacy sources.
-declare 272 generic {
+declare 272 {
void Tk_CreateOldImageType(Tk_ImageType *typePtr)
}
-declare 273 generic {
+declare 273 {
void Tk_CreateOldPhotoImageFormat(Tk_PhotoImageFormat *formatPtr)
}
@@ -1152,11 +1148,11 @@ declare 10 aqua {
# Public functions that are not accessible via the stubs table.
export {
- CONST char *Tk_InitStubs(Tcl_Interp *interp, CONST char *version,
+ const char *Tk_InitStubs(Tcl_Interp *interp, const char *version,
int exact)
}
export {
- CONST char *Tk_PkgInitStubsCheck(Tcl_Interp *interp, CONST char *version,
+ const char *Tk_PkgInitStubsCheck(Tcl_Interp *interp, const char *version,
int exact)
}
@@ -1177,3 +1173,7 @@ export {
export {
TkIntXlibStubs *tkIntXlibStubsPtr (fool checkstubs)
}
+
+# Local Variables:
+# mode: tcl
+# End: