diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-25 20:00:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-25 20:00:11 (GMT) |
| commit | fef719c8b25c20a5813df46568b14d73f4670dbf (patch) | |
| tree | 4f9b05dd3d78e81c6bcb2d0f64e6ccad05411a94 /generic/tkStubInit.c | |
| parent | 238a90e4af0d54a079f512e7162a8bdc60ebc5db (diff) | |
| download | tk-fef719c8b25c20a5813df46568b14d73f4670dbf.zip tk-fef719c8b25c20a5813df46568b14d73f4670dbf.tar.gz tk-fef719c8b25c20a5813df46568b14d73f4670dbf.tar.bz2 | |
Make MacOSX aqua and X11 share the same X11 stub table.
Diffstat (limited to 'generic/tkStubInit.c')
| -rw-r--r-- | generic/tkStubInit.c | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/generic/tkStubInit.c b/generic/tkStubInit.c index 30ba0de..43bf2e0 100644 --- a/generic/tkStubInit.c +++ b/generic/tkStubInit.c @@ -42,6 +42,7 @@ MODULE_SCOPE const TkStubs tkStubs; #undef Tk_FreeStyleFromObj #undef Tk_GetStyleFromObj #undef TkWinGetPlatformId +#undef TkPutImage #if defined(TK_NO_DEPRECATED) || TCL_MAJOR_VERSION > 8 #define Tk_MainEx 0 @@ -264,6 +265,27 @@ void TkSubtractRegion (TkRegion a, TkRegion b, TkRegion c) # endif #endif /* !_WIN32 */ +#if defined(MAC_OSX_TCL) + +int +TkPutImage( + unsigned long *colors, /* Array of pixel values used by this image. + * May be NULL. */ + int ncolors, /* Number of colors used, or 0. */ + Display *display, + Drawable d, /* Destination drawable. */ + GC gc, + XImage *image, /* Source image. */ + int src_x, int src_y, /* Offset of subimage. */ + int dest_x, int dest_y, /* Position of subimage origin in drawable. */ + unsigned int width, unsigned int height) + /* Dimensions of subimage. */ +{ + return XPutImage(display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height); +} +#endif /* MAC_OSX_TCL */ + + /* * WARNING: The contents of this file is automatically generated by the * tools/genStubs.tcl script. Any modifications to the function declarations @@ -776,7 +798,7 @@ static const TkIntXlibStubs tkIntXlibStubs = { XGetICValues, /* 142 */ XSetICFocus, /* 143 */ #endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ +#ifdef MAC_OSX_TCL /* MACOSX */ XSetDashes, /* 0 */ XGetModifierMapping, /* 1 */ XCreateImage, /* 2 */ @@ -924,7 +946,7 @@ static const TkIntXlibStubs tkIntXlibStubs = { XDestroyIC, /* 144 */ XCreatePixmapCursor, /* 145 */ XCreateGlyphCursor, /* 146 */ -#endif /* AQUA */ +#endif /* MACOSX */ }; static const TkPlatStubs tkPlatStubs = { |