Import Tk 8.6.11

This commit is contained in:
Steve Dower
2021-03-30 00:54:10 +01:00
parent 42c69189d9
commit 070b8750b0
403 changed files with 21608 additions and 16269 deletions

View File

@@ -24,6 +24,7 @@
#if defined(MAC_OSX_TK)
/* we could have used _TKMACINT */
#include "tkMacOSXInt.h"
#include "tkMacOSXPrivate.h"
#endif
/* TODO: These ought to come in some other way */
@@ -45,6 +46,39 @@ MODULE_SCOPE const TkStubs tkStubs;
#undef XGrabServer
#undef XFree
#undef XFlush
#define TkUnusedStubEntry 0
#define TkpCmapStressed_ TkpCmapStressed
#define TkpSync_ TkpSync
#define TkUnixContainerId_ TkUnixContainerId
#define TkUnixDoOneXEvent_ TkUnixDoOneXEvent
#define TkUnixSetMenubar_ TkUnixSetMenubar
#define TkWmCleanup_ TkWmCleanup
#define TkSendCleanup_ TkSendCleanup
#define TkpTestsendCmd_ TkpTestsendCmd
#define TkGenWMConfigureEvent_ TkGenWMConfigureEvent
#define TkGenerateActivateEvents_ TkGenerateActivateEvents
#if !defined(MAC_OSX_TK) && defined(MAC_OSX_TCL)
# undef TkpWillDrawWidget
# undef TkpRedrawWidget
static int
doNothing(void)
{
/* dummy implementation, no need to do anything */
return 0;
}
# define TkpWillDrawWidget ((int (*)(Tk_Window))(void *)doNothing)
# define TkpRedrawWidget ((void (*)(Tk_Window))(void *)doNothing)
#endif
#if defined(MAC_OSX_TK)
# define Tk_MacOSXGetNSWindowForDrawable TkMacOSXDrawable
# define Tk_MacOSXGetCGContextForDrawable GetCGContextForDrawable
static void *GetCGContextForDrawable(Drawable d) {
return TkMacOSXGetCGContextForDrawable(d);
}
#endif
#ifdef _WIN32
@@ -183,7 +217,6 @@ int TkSubtractRegion (TkRegion a, TkRegion b, TkRegion c)
# define Tk_PointerEvent 0
# define Tk_TranslateWinEvent 0
# define TkAlignImageData 0
# define TkGenerateActivateEvents 0
# define TkpGetMS 0
# define TkpGetCapture 0
# define TkPointerDeadWindow 0
@@ -244,6 +277,14 @@ int TkSubtractRegion (TkRegion a, TkRegion b, TkRegion c)
* below should be made in the generic/tk.decls script.
*/
#ifdef __GNUC__
/*
* The rest of this file shouldn't warn about deprecated functions; they're
* there because we intend them to be so and know that this file is OK to
* touch those fields.
*/
#pragma GCC diagnostic ignored "-Wdeprecated-declarations"
#endif
/* !BEGIN!: Do not edit below this line. */
static const TkIntStubs tkIntStubs = {
@@ -461,6 +502,24 @@ static const TkIntStubs tkIntStubs = {
TkUnderlineAngledTextLayout, /* 182 */
TkIntersectAngledTextLayout, /* 183 */
TkDrawAngledChars, /* 184 */
#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
0, /* 185 */
#endif /* UNIX */
#if defined(_WIN32) /* WIN */
0, /* 185 */
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
TkpRedrawWidget, /* 185 */
#endif /* MACOSX */
#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
0, /* 186 */
#endif /* UNIX */
#if defined(_WIN32) /* WIN */
0, /* 186 */
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
TkpWillDrawWidget, /* 186 */
#endif /* MACOSX */
};
static const TkIntPlatStubs tkIntPlatStubs = {
@@ -519,7 +578,7 @@ static const TkIntPlatStubs tkIntPlatStubs = {
#ifdef MAC_OSX_TK /* AQUA */
TkGenerateActivateEvents, /* 0 */
0, /* 1 */
0, /* 2 */
TkGenerateActivateEvents_, /* 2 */
TkPointerDeadWindow, /* 3 */
TkpSetCapture, /* 4 */
TkpSetCursor, /* 5 */
@@ -543,14 +602,14 @@ static const TkIntPlatStubs tkIntPlatStubs = {
TkMacOSXMakeRealWindowExist, /* 23 */
TkMacOSXMakeStippleMap, /* 24 */
TkMacOSXMenuClick, /* 25 */
TkMacOSXRegisterOffScreenWindow, /* 26 */
0, /* 26 */
TkMacOSXResizable, /* 27 */
TkMacOSXSetHelpMenuItemCount, /* 28 */
TkMacOSXSetScrollbarGrow, /* 29 */
TkMacOSXSetUpClippingRgn, /* 30 */
TkMacOSXSetUpGraphicsPort, /* 31 */
TkMacOSXUpdateClipRgn, /* 32 */
TkMacOSXUnregisterMacWindow, /* 33 */
0, /* 33 */
TkMacOSXUseMenuID, /* 34 */
TkMacOSXVisableClipRgn, /* 35 */
TkMacOSXWinBounds, /* 36 */
@@ -577,7 +636,7 @@ static const TkIntPlatStubs tkIntPlatStubs = {
#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */
TkCreateXEventSource, /* 0 */
0, /* 1 */
0, /* 2 */
TkGenerateActivateEvents, /* 2 */
TkpCmapStressed, /* 3 */
TkpSync, /* 4 */
TkUnixContainerId, /* 5 */
@@ -589,6 +648,38 @@ static const TkIntPlatStubs tkIntPlatStubs = {
0, /* 11 */
TkpWmSetState, /* 12 */
TkpTestsendCmd, /* 13 */
0, /* 14 */
0, /* 15 */
0, /* 16 */
0, /* 17 */
0, /* 18 */
0, /* 19 */
0, /* 20 */
0, /* 21 */
0, /* 22 */
0, /* 23 */
0, /* 24 */
0, /* 25 */
0, /* 26 */
0, /* 27 */
0, /* 28 */
0, /* 29 */
0, /* 30 */
0, /* 31 */
0, /* 32 */
0, /* 33 */
0, /* 34 */
0, /* 35 */
0, /* 36 */
0, /* 37 */
TkpCmapStressed_, /* 38 */
TkpSync_, /* 39 */
TkUnixContainerId_, /* 40 */
TkUnixDoOneXEvent_, /* 41 */
TkUnixSetMenubar_, /* 42 */
TkWmCleanup_, /* 43 */
TkSendCleanup_, /* 44 */
TkpTestsendCmd_, /* 45 */
#endif /* X11 */
};
@@ -734,6 +825,27 @@ static const TkIntXlibStubs tkIntXlibStubs = {
XDrawPoints, /* 135 */
XReparentWindow, /* 136 */
XPutImage, /* 137 */
0, /* 138 */
0, /* 139 */
0, /* 140 */
0, /* 141 */
0, /* 142 */
0, /* 143 */
0, /* 144 */
0, /* 145 */
0, /* 146 */
0, /* 147 */
0, /* 148 */
0, /* 149 */
0, /* 150 */
0, /* 151 */
0, /* 152 */
0, /* 153 */
0, /* 154 */
0, /* 155 */
0, /* 156 */
0, /* 157 */
TkUnusedStubEntry, /* 158 */
#endif /* WIN */
#ifdef MAC_OSX_TK /* AQUA */
XSetDashes, /* 0 */
@@ -842,7 +954,7 @@ static const TkIntXlibStubs tkIntXlibStubs = {
0, /* 103 */
0, /* 104 */
0, /* 105 */
0, /* 106 */
XSetClipRectangles, /* 106 */
XFlush, /* 107 */
XGrabServer, /* 108 */
XUngrabServer, /* 109 */
@@ -856,7 +968,7 @@ static const TkIntXlibStubs tkIntXlibStubs = {
0, /* 117 */
0, /* 118 */
0, /* 119 */
0, /* 120 */
XOffsetRegion, /* 120 */
0, /* 121 */
0, /* 122 */
0, /* 123 */
@@ -865,7 +977,7 @@ static const TkIntXlibStubs tkIntXlibStubs = {
0, /* 126 */
0, /* 127 */
0, /* 128 */
0, /* 129 */
XLowerWindow, /* 129 */
0, /* 130 */
0, /* 131 */
0, /* 132 */
@@ -874,6 +986,27 @@ static const TkIntXlibStubs tkIntXlibStubs = {
0, /* 135 */
0, /* 136 */
XPutImage, /* 137 */
0, /* 138 */
0, /* 139 */
0, /* 140 */
0, /* 141 */
0, /* 142 */
0, /* 143 */
XDestroyIC, /* 144 */
XCreatePixmapCursor, /* 145 */
XCreateGlyphCursor, /* 146 */
0, /* 147 */
0, /* 148 */
0, /* 149 */
0, /* 150 */
0, /* 151 */
0, /* 152 */
0, /* 153 */
0, /* 154 */
0, /* 155 */
0, /* 156 */
XkbKeycodeToKeysym, /* 157 */
TkUnusedStubEntry, /* 158 */
#endif /* AQUA */
};
@@ -900,6 +1033,12 @@ static const TkPlatStubs tkPlatStubs = {
TkMacOSXGetRootControl, /* 8 */
Tk_MacOSXSetupTkNotifier, /* 9 */
Tk_MacOSXIsAppInFront, /* 10 */
Tk_MacOSXGetTkWindow, /* 11 */
Tk_MacOSXGetCGContextForDrawable, /* 12 */
Tk_MacOSXGetNSWindowForDrawable, /* 13 */
0, /* 14 */
0, /* 15 */
TkGenWMConfigureEvent_, /* 16 */
#endif /* AQUA */
};
@@ -1187,6 +1326,13 @@ const TkStubs tkStubs = {
Tk_Interp, /* 271 */
Tk_CreateOldImageType, /* 272 */
Tk_CreateOldPhotoImageFormat, /* 273 */
0, /* 274 */
0, /* 275 */
0, /* 276 */
0, /* 277 */
0, /* 278 */
0, /* 279 */
TkUnusedStubEntry, /* 280 */
};
/* !END!: Do not edit above this line. */