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

TCL9: _ANSI_ARGS_ compatibility macro removal

This commit is contained in:
Darryl L. Miles 2024-10-21 09:00:21 +01:00 committed by Tim Edwards
parent 93c16c8431
commit 60463e31be
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
graphics/grTkCommon.c
View File

@ -745,19 +745,19 @@ typedef struct LayerInstance {
* The type record for bitmap images: * The type record for bitmap images:
*/ */
static int ImgLayerCreate _ANSI_ARGS_((Tcl_Interp *interp, static int ImgLayerCreate (Tcl_Interp *interp,
CONST84 char *name, int argc, Tcl_Obj *const objv[], const char *name, int argc, Tcl_Obj *const objv[],
CONST84 Tk_ImageType *typePtr, Tk_ImageMaster master, const Tk_ImageType *typePtr, Tk_ImageMaster master,
ClientData *clientDataPtr)); ClientData *clientDataPtr);
static ClientData ImgLayerGet _ANSI_ARGS_((Tk_Window tkwin, static ClientData ImgLayerGet (Tk_Window tkwin,
ClientData clientData)); ClientData clientData);
static void ImgLayerDisplay _ANSI_ARGS_((ClientData clientData, static void ImgLayerDisplay (ClientData clientData,
Display *display, Drawable drawable, Display *display, Drawable drawable,
int imageX, int imageY, int width, int height, int imageX, int imageY, int width, int height,
int drawableX, int drawableY)); int drawableX, int drawableY);
static void ImgLayerFree _ANSI_ARGS_((ClientData clientData, static void ImgLayerFree (ClientData clientData,
Display *display)); Display *display);
static void ImgLayerDelete _ANSI_ARGS_((ClientData clientData)); static void ImgLayerDelete (ClientData clientData);
Tk_ImageType tkLayerImageType = { Tk_ImageType tkLayerImageType = {
"layer", /* name */ "layer", /* name */
@ -794,15 +794,15 @@ static Tk_ConfigSpec configSpecs[] = {
* Prototypes for procedures used only locally in this file: * Prototypes for procedures used only locally in this file:
*/ */
static int ImgLayerCmd _ANSI_ARGS_((ClientData clientData, static int ImgLayerCmd (ClientData clientData,
Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])); Tcl_Interp *interp, int argc, Tcl_Obj *const objv[]);
static void ImgLayerCmdDeletedProc _ANSI_ARGS_(( static void ImgLayerCmdDeletedProc (
ClientData clientData)); ClientData clientData);
static void ImgLayerConfigureInstance _ANSI_ARGS_(( static void ImgLayerConfigureInstance (
LayerInstance *instancePtr)); LayerInstance *instancePtr);
static int ImgLayerConfigureMaster _ANSI_ARGS_(( static int ImgLayerConfigureMaster (
LayerMaster *masterPtr, int argc, Tcl_Obj *CONST objv[], LayerMaster *masterPtr, int argc, Tcl_Obj *const objv[],
int flags)); int flags);
/* /*
*---------------------------------------------------------------------- *----------------------------------------------------------------------

4
oa/magicInit.h
View File

@ -27,8 +27,8 @@ extern FILE *REX_debug_file;
#define USE_TCL_STUBS 1 #define USE_TCL_STUBS 1
#define TCL_ARGS _ANSI_ARGS_((ClientData clientData, \ #define TCL_ARGS (ClientData clientData, \
Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)) Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)
#define TCLENTRY() {REX_interp = interp;} #define TCLENTRY() {REX_interp = interp;}