# 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 © 1998-1999 Scriptics Corporation.

# Copyright © 2007 Daniel A. Steffen <das@users.sourceforge.net>

#

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

library tk



##############################################################################

# Define the unsupported generic interfaces.

interface tkInt

scspec EXTERN

# 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 {

TkWindow *TkAllocWindow(TkDisplay *dispPtr, int screenNum,

TkWindow *parentPtr)

}

declare 1 {

void TkBezierPoints(double control[], int numSteps, double *coordPtr)

}

declare 2 {

void TkBezierScreenPoints(Tk_Canvas canvas, double control[],

int numSteps, XPoint *xPointPtr)

}

#

# Slot 3 unused (WAS: TkBindDeadWindow)

#

declare 4 {

void TkBindEventProc(TkWindow *winPtr, XEvent *eventPtr)

}

declare 5 {

void TkBindFree(TkMainInfo *mainPtr)

}

declare 6 {

void TkBindInit(TkMainInfo *mainPtr)

}

declare 7 {

void TkChangeEventWindow(XEvent *eventPtr, TkWindow *winPtr)

}

declare 8 {

int TkClipInit(Tcl_Interp *interp, TkDisplay *dispPtr)

}

declare 9 {

void TkComputeAnchor(Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY,

int innerWidth, int innerHeight, int *xPtr, int *yPtr)

}

#

# Slot 10 unused (WAS: TkCopyAndGlobalEval)

# Slot 11 unused (WAS: TkCreateBindingProcedure)

#

declare 12 {

TkCursor *TkCreateCursorFromData(Tk_Window tkwin,

const char *source, const char *mask, int width, int height,

int xHot, int yHot, XColor fg, XColor bg)

}

declare 13 {

int TkCreateFrame(void *clientData, Tcl_Interp *interp,

Tcl_Size objc, Tcl_Obj *const objv[], int type, const char *appName)

}

declare 14 {

Tk_Window TkCreateMainWindow(Tcl_Interp *interp,

const char *screenName, const char *baseName)

}

declare 15 {

Time TkCurrentTime(TkDisplay *dispPtr)

}

declare 16 {

void TkDeleteAllImages(TkMainInfo *mainPtr)

}

declare 17 {

void TkDoConfigureNotify(TkWindow *winPtr)

}

declare 18 {

void TkDrawInsetFocusHighlight(Tk_Window tkwin, GC gc, int width,

Drawable drawable, int padding)

}

declare 19 {

void TkEventDeadWindow(TkWindow *winPtr)

}

declare 20 {

void TkFillPolygon(Tk_Canvas canvas, double *coordPtr, int numPoints,

Display *display, Drawable drawable, GC gc, GC outlineGC)

}

declare 21 {

int TkFindStateNum(Tcl_Interp *interp, const char *option,

const TkStateMap *mapPtr, const char *strKey)

}

declare 22 {

const char *TkFindStateString(const TkStateMap *mapPtr, int numKey)

}

declare 23 {

void TkFocusDeadWindow(TkWindow *winPtr)

}

declare 24 {

int TkFocusFilterEvent(TkWindow *winPtr, XEvent *eventPtr)

}

declare 25 {

TkWindow *TkFocusKeyEvent(TkWindow *winPtr, XEvent *eventPtr)

}

declare 26 {

void TkFontPkgInit(TkMainInfo *mainPtr)

}

declare 27 {

void TkFontPkgFree(TkMainInfo *mainPtr)

}

declare 28 {

void TkFreeBindingTags(TkWindow *winPtr)

}

# Name change only, TkFreeCursor in Tcl 8.0.x now TkpFreeCursor

declare 29 {

void TkpFreeCursor(TkCursor *cursorPtr)

}

declare 30 {

char *TkGetBitmapData(Tcl_Interp *interp, const char *string,

const char *fileName, int *widthPtr, int *heightPtr,

int *hotXPtr, int *hotYPtr)

}

declare 31 {

void TkGetButtPoints(double p1[], double p2[],

double width, int project, double m1[], double m2[])

}

declare 32 {

TkCursor *TkGetCursorByName(Tcl_Interp *interp,

Tk_Window tkwin, const char *string)

}

declare 33 {

const char *TkGetDefaultScreenName(Tcl_Interp *interp,

const char *screenName)

}

declare 34 {

TkDisplay *TkGetDisplay(Display *display)

}

declare 35 {

Tcl_Size TkGetDisplayOf(Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[],

Tk_Window *tkwinPtr)

}

declare 36 {

TkWindow *TkGetFocusWin(TkWindow *winPtr)

}

declare 37 {

int TkGetInterpNames(Tcl_Interp *interp, Tk_Window tkwin)

}

declare 38 {

int TkGetMiterPoints(double p1[], double p2[], double p3[],

double width, double m1[], double m2[])

}

declare 39 {

void TkGetPointerCoords(Tk_Window tkwin, int *xPtr, int *yPtr)

}

declare 40 {

void TkGetServerInfo(Tcl_Interp *interp, Tk_Window tkwin)

}

declare 41 {

void TkGrabDeadWindow(TkWindow *winPtr)

}

declare 42 {

int TkGrabState(TkWindow *winPtr)

}

declare 43 {

void TkIncludePoint(Tk_Item *itemPtr, double *pointPtr)

}

declare 44 {

void TkInOutEvents(XEvent *eventPtr, TkWindow *sourcePtr,

TkWindow *destPtr, int leaveType, int enterType,

Tcl_QueuePosition position)

}

declare 45 {

void TkInstallFrameMenu(Tk_Window tkwin)

}

declare 46 {

const char *TkKeysymToString(KeySym keysym)

}

declare 47 {

int TkLineToArea(double end1Ptr[], double end2Ptr[], double rectPtr[])

}

declare 48 {

double TkLineToPoint(double end1Ptr[], double end2Ptr[], double pointPtr[])

}

declare 49 {

int TkMakeBezierCurve(Tk_Canvas canvas, double *pointPtr, int numPoints,

int numSteps, XPoint xPoints[], double dblPoints[])

}

declare 50 {

void TkMakeBezierPostscript(Tcl_Interp *interp,

Tk_Canvas canvas, double *pointPtr, int numPoints)

}

declare 51 {

void TkOptionClassChanged(TkWindow *winPtr)

}

declare 52 {

void TkOptionDeadWindow(TkWindow *winPtr)

}

declare 53 {

int TkOvalToArea(double *ovalPtr, double *rectPtr)

}

declare 54 {

double TkOvalToPoint(double ovalPtr[],

double width, int filled, double pointPtr[])

}

declare 55 {

int TkpChangeFocus(TkWindow *winPtr, int force)

}

declare 56 {

void TkpCloseDisplay(TkDisplay *dispPtr)

}

declare 57 {

void TkpClaimFocus(TkWindow *topLevelPtr, int force)

}

declare 58 {

void TkpDisplayWarning(const char *msg, const char *title)

}

declare 59 {

void TkpGetAppName(Tcl_Interp *interp, Tcl_DString *name)

}

declare 61 {

TkWindow *TkpGetWrapperWindow(TkWindow *winPtr)

}

declare 62 {

int TkpInit(Tcl_Interp *interp)

}

declare 63 {

void TkpInitializeMenuBindings(Tcl_Interp *interp,

Tk_BindingTable bindingTable)

}

declare 65 {

void TkpMakeMenuWindow(Tk_Window tkwin, int transient)

}

declare 67 {

void TkpMenuNotifyToplevelCreate(Tcl_Interp *interp, const char *menuName)

}

declare 68 {

TkDisplay *TkpOpenDisplay(const char *display_name)

}

declare 69 {

int TkPointerEvent(XEvent *eventPtr, TkWindow *winPtr)

}

declare 70 {

int TkPolygonToArea(double *polyPtr, int numPoints, double *rectPtr)

}

declare 71 {

double TkPolygonToPoint(double *polyPtr, int numPoints, double *pointPtr)

}

declare 72 {

int TkPositionInTree(TkWindow *winPtr, TkWindow *treePtr)

}

declare 73 {

void TkpRedirectKeyEvent(TkWindow *winPtr, XEvent *eventPtr)

}

declare 77 {

void TkQueueEventForAllChildren(TkWindow *winPtr, XEvent *eventPtr)

}

declare 78 {

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 {

int TkScrollWindow(Tk_Window tkwin, GC gc, int x, int y,

int width, int height, int dx, int dy, Region damageRgn)

}

declare 80 {

void TkSelDeadWindow(TkWindow *winPtr)

}

declare 81 {

void TkSelEventProc(Tk_Window tkwin, XEvent *eventPtr)

}

declare 82 {

void TkSelInit(Tk_Window tkwin)

}

declare 83 {

void TkSelPropProc(XEvent *eventPtr)

}

declare 86 {

KeySym TkStringToKeysym(const char *name)

}

declare 87 {

int TkThickPolyLineToArea(double *coordPtr, int numPoints,

double width, int capStyle, int joinStyle, double *rectPtr)

}

declare 88 {

void TkWmAddToColormapWindows(TkWindow *winPtr)

}

declare 89 {

void TkWmDeadWindow(TkWindow *winPtr)

}

declare 90 {

TkWindow *TkWmFocusToplevel(TkWindow *winPtr)

}

declare 91 {

void TkWmMapWindow(TkWindow *winPtr)

}

declare 92 {

void TkWmNewWindow(TkWindow *winPtr)

}

declare 93 {

void TkWmProtocolEventProc(TkWindow *winPtr, XEvent *evenvPtr)

}

declare 94 {

void TkWmRemoveFromColormapWindows(TkWindow *winPtr)

}

declare 95 {

void TkWmRestackToplevel(TkWindow *winPtr, int aboveBelow,

TkWindow *otherPtr)

}

declare 96 {

void TkWmSetClass(TkWindow *winPtr)

}

declare 97 {

void TkWmUnmapWindow(TkWindow *winPtr)

}

# new for 8.1

declare 98 {

Tcl_Obj *TkDebugBitmap(Tk_Window tkwin, const char *name)

}

declare 99 {

Tcl_Obj *TkDebugBorder(Tk_Window tkwin, const char *name)

}

declare 100 {

Tcl_Obj *TkDebugCursor(Tk_Window tkwin, const char *name)

}

declare 101 {

Tcl_Obj *TkDebugColor(Tk_Window tkwin, const char *name)

}

declare 102 {

Tcl_Obj *TkDebugConfig(Tcl_Interp *interp, Tk_OptionTable table)

}

declare 103 {

Tcl_Obj *TkDebugFont(Tk_Window tkwin, const char *name)

}

declare 104 {

int TkFindStateNumObj(Tcl_Interp *interp, Tcl_Obj *optionPtr,

const TkStateMap *mapPtr, Tcl_Obj *keyPtr)

}

declare 105 {

Tcl_HashTable *TkGetBitmapPredefTable(void)

}

declare 106 {

TkDisplay *TkGetDisplayList(void)

}

declare 107 {

TkMainInfo *TkGetMainInfoList(void)

}

declare 108 {

int TkGetWindowFromObj(Tcl_Interp *interp, Tk_Window tkwin,

Tcl_Obj *objPtr, Tk_Window *windowPtr)

}

declare 109 {

const char *TkpGetString(TkWindow *winPtr, XEvent *eventPtr, Tcl_DString *dsPtr)

}

declare 110 {

void TkpGetSubFonts(Tcl_Interp *interp, Tk_Font tkfont)

}

declare 112 {

void TkpMenuThreadInit(void)

}

declare 113 {

int XClipBox(Region rgn, XRectangle *rect_return)

}

declare 114 {

Region XCreateRegion(void)

}

declare 115 {

int XDestroyRegion(Region rgn)

}

declare 116 {

int XIntersectRegion(Region sra, Region srcb, Region dr_return)

}

declare 117 {

int XRectInRegion(Region rgn, int x, int y, unsigned int width,

unsigned int height)

}

declare 118 {

int XSetRegion(Display *display, GC gc, Region rgn)

}

declare 119 {

int XUnionRectWithRegion(XRectangle *rect,

Region src, Region dr_return)

}

declare 121 {

Pixmap TkpCreateNativeBitmap(Display *display, const void *source)

}

declare 122 {

void TkpDefineNativeBitmaps(void)

}

declare 124 {

Pixmap TkpGetNativeAppBitmap(Display *display,

const char *name, int *width, int *height)

}

declare 136 {

void TkSetFocusWin(TkWindow *winPtr, int force)

}

declare 137 {

void TkpSetKeycodeAndState(Tk_Window tkwin, KeySym keySym,

XEvent *eventPtr)

}

declare 138 {

KeySym TkpGetKeySym(TkDisplay *dispPtr, XEvent *eventPtr)

}

declare 139 {

void TkpInitKeymapInfo(TkDisplay *dispPtr)

}

declare 140 {

Region TkPhotoGetValidRegion(Tk_PhotoHandle handle)

}

declare 141 {

TkWindow **TkWmStackorderToplevel(TkWindow *parentPtr)

}

declare 142 {

void TkFocusFree(TkMainInfo *mainPtr)

}

declare 143 {

void TkClipCleanup(TkDisplay *dispPtr)

}

declare 144 {

void TkGCCleanup(TkDisplay *dispPtr)

}

declare 145 {

int XSubtractRegion(Region sra, Region srcb, Region dr_return)

}

declare 146 {

void TkStylePkgInit(TkMainInfo *mainPtr)

}

declare 147 {

void TkStylePkgFree(TkMainInfo *mainPtr)

}

declare 148 {

Tk_Window TkToplevelWindowForCommand(Tcl_Interp *interp,

const char *cmdName)

}

declare 149 {

const Tk_OptionSpec *TkGetOptionSpec(const char *name,

Tk_OptionTable optionTable)

}

# TIP#168

declare 150 {

int TkMakeRawCurve(Tk_Canvas canvas, double *pointPtr, int numPoints,

int numSteps, XPoint xPoints[], double dblPoints[])

}

declare 151 {

void TkMakeRawCurvePostscript(Tcl_Interp *interp,

Tk_Canvas canvas, double *pointPtr, int numPoints)

}

declare 152 {

void TkpDrawFrame(Tk_Window tkwin, Tk_3DBorder border,

int highlightWidth, int borderWidth, int relief)

}

declare 153 {

void TkCreateThreadExitHandler(Tcl_ExitProc *proc, void *clientData)

}

declare 154 {

void TkDeleteThreadExitHandler(Tcl_ExitProc *proc, void *clientData)

}

# entries needed only by tktest:

declare 156 {

int TkpTestembedCmd(void *clientData, Tcl_Interp *interp, Tcl_Size objc,

Tcl_Obj *const objv[])

}

declare 157 {

int TkpTesttextCmd(void *dummy, Tcl_Interp *interp, Tcl_Size objc,

Tcl_Obj *const objv[])

}

declare 158 {

int TkSelGetSelection(Tcl_Interp *interp, Tk_Window tkwin,

Atom selection, Atom target, Tk_GetSelProc *proc,

void *clientData)

}

declare 159 {

int TkTextGetIndex(Tcl_Interp *interp, struct TkText *textPtr,

const char *string, struct TkTextIndex *indexPtr)

}

declare 160 {

int TkTextIndexBackBytes(const struct TkText *textPtr,

const struct TkTextIndex *srcPtr, Tcl_Size count,

struct TkTextIndex *dstPtr)

}

declare 161 {

int TkTextIndexForwBytes(const struct TkText *textPtr,

const struct TkTextIndex *srcPtr, Tcl_Size count,

struct TkTextIndex *dstPtr)

}

declare 162 {

struct TkTextIndex *TkTextMakeByteIndex(TkTextBTree tree,

const struct TkText *textPtr, int lineIndex,

Tcl_Size byteIndex, struct TkTextIndex *indexPtr)

}

declare 163 {

Tcl_Size TkTextPrintIndex(const struct TkText *textPtr,

const struct TkTextIndex *indexPtr, char *string)

}

declare 164 {

struct TkTextSegment *TkTextSetMark(struct TkText *textPtr,

const char *name, struct TkTextIndex *indexPtr)

}

declare 165 {

int TkTextXviewCmd(struct TkText *textPtr, Tcl_Interp *interp,

Tcl_Size objc, Tcl_Obj *const objv[])

}

declare 166 {

void TkTextChanged(struct TkSharedText *sharedTextPtr,

struct TkText *textPtr, const struct TkTextIndex *index1Ptr,

const struct TkTextIndex *index2Ptr)

}

declare 167 {

int TkBTreeNumLines(TkTextBTree tree,

const struct TkText *textPtr)

}

declare 168 {

void TkTextInsertDisplayProc(struct TkText *textPtr,

struct TkTextDispChunk *chunkPtr, int x, int y,

int height, int baseline, Display *display,

Drawable dst, int screenY)

}

# Next group of functions exposed due to [Bug 2768945].

declare 169 {

int TkStateParseProc(void *clientData, Tcl_Interp *interp,

Tk_Window tkwin, const char *value, char *widgRec, Tcl_Size offset)

}

declare 170 {

const char *TkStatePrintProc(void *clientData, Tk_Window tkwin,

char *widgRec, Tcl_Size offset, Tcl_FreeProc **freeProcPtr)

}

declare 171 {

int TkCanvasDashParseProc(void *clientData, Tcl_Interp *interp,

Tk_Window tkwin, const char *value, char *widgRec, Tcl_Size offset)

}

declare 172 {

const char *TkCanvasDashPrintProc(void *clientData, Tk_Window tkwin,

char *widgRec, Tcl_Size offset, Tcl_FreeProc **freeProcPtr)

}

declare 173 {

int TkOffsetParseProc(void *clientData, Tcl_Interp *interp,

Tk_Window tkwin, const char *value, char *widgRec, Tcl_Size offset)

}

declare 174 {

const char *TkOffsetPrintProc(void *clientData, Tk_Window tkwin,

char *widgRec, Tcl_Size offset, Tcl_FreeProc **freeProcPtr)

}

declare 175 {

int TkPixelParseProc(void *clientData, Tcl_Interp *interp,

Tk_Window tkwin, const char *value, char *widgRec, Tcl_Size offset)

}

declare 176 {

const char *TkPixelPrintProc(void *clientData, Tk_Window tkwin,

char *widgRec, Tcl_Size offset, Tcl_FreeProc **freeProcPtr)

}

declare 177 {

int TkOrientParseProc(void *clientData, Tcl_Interp *interp,

Tk_Window tkwin, const char *value, char *widgRec, Tcl_Size offset)

}

declare 178 {

const char *TkOrientPrintProc(void *clientData, Tk_Window tkwin,

char *widgRec, Tcl_Size offset, Tcl_FreeProc **freeProcPtr)

}

declare 179 {

int TkSmoothParseProc(void *clientData, Tcl_Interp *interp,

Tk_Window tkwin, const char *value, char *widgRec, Tcl_Size offset)

}

declare 180 {

const char *TkSmoothPrintProc(void *clientData, Tk_Window tkwin,

char *widgRec, Tcl_Size offset, Tcl_FreeProc **freeProcPtr)

}

# Angled text API, exposed for Emiliano Gavilán's RBC work.

declare 181 {

void TkDrawAngledTextLayout(Display *display, Drawable drawable, GC gc,

Tk_TextLayout layout, int x, int y, double angle, Tcl_Size firstChar,

Tcl_Size lastChar)

}

declare 182 {

void TkUnderlineAngledTextLayout(Display *display, Drawable drawable,

GC gc, Tk_TextLayout layout, int x, int y, double angle,

int underline)

}

declare 183 {

int TkIntersectAngledTextLayout(Tk_TextLayout layout, int x, int y,

int width, int height, double angle)

}

declare 184 {

void TkDrawAngledChars(Display *display,Drawable drawable, GC gc,

Tk_Font tkfont, const char *source, Tcl_Size numBytes, double x,

double y, double angle)

}

# Support for aqua's inability to draw outside [NSView drawRect:]

declare 185 {

void TkpRedrawWidget(Tk_Window tkwin)

}

declare 186 {

int TkpWillDrawWidget(Tk_Window tkwin)

}

# Debugging / testing functions for photo images

declare 187 {

int TkDebugPhotoStringMatchDef(Tcl_Interp *inter, Tcl_Obj *data,

Tcl_Obj *formatString, int *widthPtr, int *heightPtr)

}



##############################################################################

# Define the platform specific internal Tcl interface. These functions are

# only available on the designated platform.

interface tkIntPlat

################################

# Unix specific functions

declare 0 x11 {

void TkCreateXEventSource(void)

}

declare 2 x11 {

void TkGenerateActivateEvents(TkWindow *winPtr, int active)

}

declare 6 x11 {

int TkpScanWindowId(Tcl_Interp *interp, const char *string, Window *idPtr)

}

declare 9 x11 {

int TkpWmSetState(TkWindow *winPtr, int state)

}

# only needed by tktest:

declare 38 x11 {

int TkpCmapStressed(Tk_Window tkwin, Colormap colormap)

}

declare 39 x11 {

void TkpSync(Display *display)

}

declare 40 x11 {

Window TkUnixContainerId(TkWindow *winPtr)

}

declare 41 x11 {

int TkUnixDoOneXEvent(Tcl_Time *timePtr)

}

declare 42 x11 {

void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar)

}

declare 43 x11 {

void TkWmCleanup(TkDisplay *dispPtr)

}

declare 44 x11 {

void TkSendCleanup(TkDisplay *dispPtr)

}

# only needed by tktest:

declare 45 x11 {

int TkpTestsendCmd(void *clientData, Tcl_Interp *interp, Tcl_Size objc,

Tcl_Obj *const objv[])

}

################################

# Windows specific functions

declare 0 win {

void TkCreateXEventSource(void)

}

declare 2 win {

void TkGenerateActivateEvents(TkWindow *winPtr, int active)

}

declare 3 win {

unsigned long TkpGetMS(void)

}

declare 4 win {

void TkPointerDeadWindow(TkWindow *winPtr)

}

declare 5 win {

void TkpPrintWindowId(char *buf, Window window)

}

declare 6 win {

int TkpScanWindowId(Tcl_Interp *interp, const char *string, Window *idPtr)

}

declare 7 win {

void TkpSetCapture(TkWindow *winPtr)

}

declare 8 win {

void TkpSetCursor(TkpCursor cursor)

}

declare 9 win {

int TkpWmSetState(TkWindow *winPtr, int state)

}

declare 10 win {

void TkSetPixmapColormap(Pixmap pixmap, Colormap colormap)

}

declare 11 win {

void TkWinCancelMouseTimer(void)

}

declare 12 win {

void TkWinClipboardRender(TkDisplay *dispPtr, UINT format)

}

declare 13 win {

LRESULT TkWinEmbeddedEventProc(HWND hwnd, UINT message,

WPARAM wParam, LPARAM lParam)

}

declare 14 win {

void TkWinFillRect(HDC dc, int x, int y, int width, int height, int pixel)

}

declare 15 win {

COLORREF TkWinGetBorderPixels(Tk_Window tkwin, Tk_3DBorder border,

int which)

}

declare 16 win {

HDC TkWinGetDrawableDC(Display *display, Drawable d, TkWinDCState *state)

}

declare 17 win {

int TkWinGetModifierState(void)

}

declare 18 win {

HPALETTE TkWinGetSystemPalette(void)

}

declare 19 win {

HWND TkWinGetWrapperWindow(Tk_Window tkwin)

}

declare 20 win {

int TkWinHandleMenuEvent(HWND *phwnd, UINT *pMessage, WPARAM *pwParam,

LPARAM *plParam, LRESULT *plResult)

}

declare 21 win {

int TkWinIndexOfColor(XColor *colorPtr)

}

declare 22 win {

void TkWinReleaseDrawableDC(Drawable d, HDC hdc, TkWinDCState *state)

}

declare 23 win {

LRESULT TkWinResendEvent(WNDPROC wndproc, HWND hwnd, XEvent *eventPtr)

}

declare 24 win {

HPALETTE TkWinSelectPalette(HDC dc, Colormap colormap)

}

declare 25 win {

void TkWinSetMenu(Tk_Window tkwin, HMENU hMenu)

}

declare 26 win {

void TkWinSetWindowPos(HWND hwnd, HWND siblingHwnd, int pos)

}

declare 27 win {

void TkWinWmCleanup(HINSTANCE hInstance)

}

declare 28 win {

void TkWinXCleanup(void *clientData)

}

declare 29 win {

void TkWinXInit(HINSTANCE hInstance)

}

# new for 8.1

declare 30 win {

void TkWinSetForegroundWindow(TkWindow *winPtr)

}

declare 31 win {

void TkWinDialogDebug(int debug)

}

declare 32 win {

Tcl_Obj *TkWinGetMenuSystemDefault(Tk_Window tkwin,

const char *dbName, const char *className)

}

declare 33 win {

char *TkAlignImageData(XImage *image, int alignment, int bitOrder)

}

# new for 8.4.1

declare 34 win {

void TkWinSetHINSTANCE(HINSTANCE hInstance)

}

declare 35 win {

int TkWinGetPlatformTheme(void)

}

# Exported through stub table since Tk 8.4.20/8.5.9

declare 36 win {

LRESULT __stdcall TkWinChildProc(HWND hwnd,

UINT message, WPARAM wParam, LPARAM lParam)

}

declare 38 win {

int TkpCmapStressed(Tk_Window tkwin, Colormap colormap)

}

declare 39 win {

void TkpSync(Display *display)

}

declare 40 win {

Window TkUnixContainerId(TkWindow *winPtr)

}

declare 41 win {

int TkUnixDoOneXEvent(Tcl_Time *timePtr)

}

declare 42 win {

void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar)

}

declare 43 win {

void TkWmCleanup(TkDisplay *dispPtr)

}

declare 44 win {

void TkSendCleanup(TkDisplay *dispPtr)

}

# only needed by tktest:

declare 45 win {

int TkpTestsendCmd(void *clientData, Tcl_Interp *interp, Tcl_Size objc,

Tcl_Obj *const objv[])

}

declare 47 win {

Tk_Window TkpGetCapture(void)

}

################################

# Aqua specific functions

declare 1 aqua {

void TkAboutDlg(void)

}

declare 2 aqua {

void TkGenerateActivateEvents(TkWindow *winPtr, int active)

}

declare 3 aqua {

unsigned long TkpGetMS(void)

}

declare 4 aqua {

void TkPointerDeadWindow(TkWindow *winPtr)

}

declare 5 aqua {

void TkpSetCursor(TkpCursor cursor)

}

declare 6 aqua {

int TkpScanWindowId(Tcl_Interp *interp, const char *string, Window *idPtr)

}

declare 7 aqua {

int TkpWmSetState(TkWindow *winPtr, int state)

}

#

# Slot 8 unused (WAS: TkMacOSXButtonKeyState)

#

declare 9 aqua {

void TkMacOSXClearMenubarActive(void)

}

declare 10 aqua {

int TkMacOSXDispatchMenuEvent(int menuID, int index)

}

declare 11 aqua {

void TkpSetCapture(TkWindow *winPtr)

}

declare 12 aqua {

void TkMacOSXHandleTearoffMenu(void)

}

declare 14 aqua {

int TkMacOSXDoHLEvent(void *theEvent)

}

declare 16 aqua {

Window TkMacOSXGetXWindow(void *macWinPtr)

}

declare 17 aqua {

int TkMacOSXGrowToplevel(void *whichWindow, XPoint start)

}

declare 18 aqua {

void TkMacOSXHandleMenuSelect(short theMenu, unsigned short theItem,

int optionKeyPressed)

}

declare 21 aqua {

void TkMacOSXInvalidateWindow(MacDrawable *macWin, int flag)

}

declare 23 aqua {

void TkMacOSXMakeRealWindowExist(TkWindow *winPtr)

}

declare 24 aqua {

void *TkMacOSXMakeStippleMap(Drawable d1, Drawable d2)

}

declare 25 aqua {

void TkMacOSXMenuClick(void)

}

declare 27 aqua {

int TkMacOSXResizable(TkWindow *winPtr)

}

declare 28 aqua {

void TkMacOSXSetHelpMenuItemCount(void)

}

declare 29 aqua {

void TkMacOSXSetScrollbarGrow(TkWindow *winPtr, int flag)

}

declare 31 aqua {

void TkMacOSXSetUpGraphicsPort(GC gc, void *destPort)

}

declare 32 aqua {

void TkMacOSXUpdateClipRgn(TkWindow *winPtr)

}

declare 34 aqua {

int TkMacOSXUseMenuID(short macID)

}

declare 35 aqua {

Region TkMacOSXVisableClipRgn(TkWindow *winPtr)

}

declare 36 aqua {

void TkMacOSXWinBounds(TkWindow *winPtr, void *geometry)

}

declare 37 aqua {

void TkMacOSXWindowOffset(void *wRef, int *xOffset, int *yOffset)

}

declare 38 aqua {

int TkSetMacColor(unsigned long pixel, void *macColor)

}

declare 39 aqua {

void TkSetWMName(TkWindow *winPtr, const char *title)

}

declare 41 aqua {

int TkMacOSXZoomToplevel(void *whichWindow, short zoomPart)

}

declare 42 aqua {

Tk_Window Tk_TopCoordsToWindow(Tk_Window tkwin, int rootX, int rootY,

int *newX, int *newY)

}

declare 43 aqua {

MacDrawable *TkMacOSXContainerId(TkWindow *winPtr)

}

declare 44 aqua {

MacDrawable *TkMacOSXGetHostToplevel(TkWindow *winPtr)

}

declare 45 aqua {

void TkMacOSXPreprocessMenu(void)

}

declare 46 aqua {

int TkpIsWindowFloating(void *window)

}

declare 47 aqua {

Tk_Window TkpGetCapture(void)

}

declare 49 aqua {

Tk_Window TkMacOSXGetContainer(TkWindow *winPtr)

}

#

# Slot 50 unused (WAS: TkGenerateButtonEvent)

#

declare 51 aqua {

void TkGenWMDestroyEvent(Tk_Window tkwin)

}

#

# Slot 52 unused (WAS: TkMacOSXSetDrawingEnabled)

#

# Made public as Tk_MacOSXGetNSWindowForDrawable

#declare 54 aqua {

# void *TkMacOSXDrawable(Drawable drawable)

#}



##############################################################################

# 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 {

int XSetDashes(Display *display, GC gc, int dash_offset,

const char *dash_list, int n)

}

declare 1 win {

XModifierKeymap *XGetModifierMapping(Display *d)

}

declare 2 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 3 win {

XImage *XGetImage(Display *d, Drawable dr, int i1, int i2,

unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)

}

declare 4 win {

char *XGetAtomName(Display *d, Atom a)

}

declare 5 win {

char *XKeysymToString(KeySym k)

}

declare 6 win {

Colormap XCreateColormap(Display *d, Window w, Visual *v, int i)

}

declare 7 win {

Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2,

XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2)

}

declare 8 win {

Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2,

unsigned int ui1, unsigned int ui2, XColor const *x1,