diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-03 12:58:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-03 12:58:16 (GMT) |
| commit | c594f7549d926ba7d3ad0f7ee0ad3638719870dd (patch) | |
| tree | bcd38dec13f43f75cfe3b20dcfc22a8c27b50be3 /win/tkWinTest.c | |
| parent | 1e1f629ce1661dec695273cc771f3273bcd1cf22 (diff) | |
| download | tk-c594f7549d926ba7d3ad0f7ee0ad3638719870dd.zip tk-c594f7549d926ba7d3ad0f7ee0ad3638719870dd.tar.gz tk-c594f7549d926ba7d3ad0f7ee0ad3638719870dd.tar.bz2 | |
More usage for Tcl_Size (internal TkEnsemble)
Diffstat (limited to 'win/tkWinTest.c')
| -rw-r--r-- | win/tkWinTest.c | 29 |
1 files changed, 11 insertions, 18 deletions
diff --git a/win/tkWinTest.c b/win/tkWinTest.c index 24d5cb1..4ecd114 100644 --- a/win/tkWinTest.c +++ b/win/tkWinTest.c @@ -24,19 +24,19 @@ HWND tkWinCurrentDialog; * Forward declarations of functions defined later in this file: */ -static int TestclipboardObjCmd(ClientData clientData, +static int TestclipboardObjCmd(void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -static int TestwineventObjCmd(ClientData clientData, +static int TestwineventObjCmd(void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -static int TestfindwindowObjCmd(ClientData clientData, +static int TestfindwindowObjCmd(void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -static int TestgetwindowinfoObjCmd(ClientData clientData, +static int TestgetwindowinfoObjCmd(void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -static int TestwinlocaleObjCmd(ClientData clientData, +static int TestwinlocaleObjCmd(void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); static Tk_GetSelProc SetSelectionResult; @@ -227,19 +227,17 @@ AppendSystemError( static int SetSelectionResult( - ClientData dummy, + TCL_UNUSED(void *), Tcl_Interp *interp, const char *selection) { - (void)dummy; - Tcl_AppendResult(interp, selection, NULL); return TCL_OK; } static int TestclipboardObjCmd( - ClientData clientData, /* Main window for application. */ + void *clientData, /* Main window for application. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument values. */ @@ -273,7 +271,7 @@ TestclipboardObjCmd( static int TestwineventObjCmd( - ClientData dummy, /* Main window for application. */ + TCL_UNUSED(void *), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument strings. */ @@ -306,7 +304,6 @@ TestwineventObjCmd( {WM_COMMAND, "WM_COMMAND"}, {-1, NULL} }; - (void)dummy; if ((objc == 3) && (strcmp(Tcl_GetString(objv[1]), "debug") == 0)) { int b; @@ -442,7 +439,7 @@ TestwineventObjCmd( static int TestfindwindowObjCmd( - ClientData dummy, /* Main window for application. */ + TCL_UNUSED(void *), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument values. */ @@ -452,7 +449,6 @@ TestfindwindowObjCmd( HWND hwnd = NULL; int r = TCL_OK; DWORD myPid; - (void)dummy; Tcl_DStringInit(&classString); Tcl_DStringInit(&titleString); @@ -515,7 +511,7 @@ EnumChildrenProc( static int TestgetwindowinfoObjCmd( - ClientData dummy, + TCL_UNUSED(void *), Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) @@ -526,7 +522,6 @@ TestgetwindowinfoObjCmd( WCHAR buf[512]; int cch, cchBuf = 256; Tcl_DString ds; - (void)dummy; if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "hwnd"); @@ -573,13 +568,11 @@ TestgetwindowinfoObjCmd( static int TestwinlocaleObjCmd( - ClientData dummy, /* Main window for application. */ + TCL_UNUSED(void *), /* Main window for application. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument values. */ { - (void)dummy; - if (objc != 1) { Tcl_WrongNumArgs(interp, 1, objv, NULL); return TCL_ERROR; |