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

4
oa/magicInit.h
View File

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