luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

TCL9: plugin createProc() function signature change ImgLayerCreate() 

Tk_ImageType.createProc() uses new Tcl_Size type now.
This commit is contained in:
Darryl L. Miles 2024-10-21 09:10:46 +01:00 committed by Tim Edwards
parent db7a1fe20a
commit 17fe81107a
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
graphics/grTkCommon.c
View File

@ -745,10 +745,17 @@ typedef struct LayerInstance {
* The type record for bitmap images:
*/
#if TCL_MAJOR_VERSION < 9
static int ImgLayerCreate (Tcl_Interp *interp,
const char *name, int argc, Tcl_Obj *const objv[],
const Tk_ImageType *typePtr, Tk_ImageMaster master,
ClientData *clientDataPtr);
#else
static int ImgLayerCreate (Tcl_Interp *interp,
const char *name, Tcl_Size argc, Tcl_Obj *const objv[],
const Tk_ImageType *typePtr, Tk_ImageMaster master,
ClientData *clientDataPtr);
#endif
static ClientData ImgLayerGet (Tk_Window tkwin,
ClientData clientData);
static void ImgLayerDisplay (ClientData clientData,
@ -827,7 +834,11 @@ ImgLayerCreate(interp, name, argc, argv, typePtr, master, clientDataPtr)
Tcl_Interp *interp; /* Interpreter for application containing
* image. */
const char *name; /* Name to use for image. */
#if TCL_MAJOR_VERSION < 9
int argc; /* Number of arguments. */
#else
Tcl_Size argc; /* Number of arguments. */
#endif
Tcl_Obj *const argv[]; /* Argument objects for options (doesn't
* include image name or type). */
const Tk_ImageType *typePtr;/* Pointer to our type record (not used). */