diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-12 21:20:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-12 21:20:21 (GMT) |
| commit | 1a1118fa21d731504dac09ed2e6d6238601f5c84 (patch) | |
| tree | 582b351a98fe27e820ca3d6d0281519c1a11dbcf /generic/tkOption.c | |
| parent | d72c843661bf5789ff40389b8b71707d92437397 (diff) | |
| download | tk-1a1118fa21d731504dac09ed2e6d6238601f5c84.zip tk-1a1118fa21d731504dac09ed2e6d6238601f5c84.tar.gz tk-1a1118fa21d731504dac09ed2e6d6238601f5c84.tar.bz2 | |
More -1 -> TCL_INDEX_NONE. More TCL_UNUSED(
Diffstat (limited to 'generic/tkOption.c')
| -rw-r--r-- | generic/tkOption.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tkOption.c b/generic/tkOption.c index ca940db..b1a8d07 100644 --- a/generic/tkOption.c +++ b/generic/tkOption.c @@ -219,7 +219,7 @@ static void ExtendStacks(ElArray *arrayPtr, int leaf); static int GetDefaultOptions(Tcl_Interp *interp, TkWindow *winPtr); static ElArray * NewArray(int numEls); -static void OptionThreadExitProc(ClientData clientData); +static void OptionThreadExitProc(void *clientData); static void OptionInit(TkMainInfo *mainPtr); static int ParsePriority(Tcl_Interp *interp, const char *string); static int ReadOptionFile(Tcl_Interp *interp, Tk_Window tkwin, @@ -610,7 +610,7 @@ Tk_GetOption( int Tk_OptionObjCmd( - ClientData clientData, /* Main window associated with interpreter. */ + void *clientData, /* Main window associated with interpreter. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of Tcl_Obj arguments. */ Tcl_Obj *const objv[]) /* Tcl_Obj arguments. */ @@ -690,7 +690,7 @@ Tk_OptionObjCmd( value = Tk_GetOption(window, Tcl_GetString(objv[3]), Tcl_GetString(objv[4])); if (value != NULL) { - Tcl_SetObjResult(interp, Tcl_NewStringObj(value, -1)); + Tcl_SetObjResult(interp, Tcl_NewStringObj(value, TCL_INDEX_NONE)); } break; } @@ -1095,7 +1095,7 @@ ReadOptionFile( if (Tcl_IsSafe(interp)) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "can't read options from a file in a safe interpreter", -1)); + "can't read options from a file in a safe interpreter", TCL_INDEX_NONE)); Tcl_SetErrorCode(interp, "TK", "SAFE", "OPTION_FILE", NULL); return TCL_ERROR; } @@ -1115,7 +1115,7 @@ ReadOptionFile( buffer = Tcl_NewObj(); Tcl_IncrRefCount(buffer); Tcl_SetChannelOption(NULL, chan, "-encoding", "utf-8"); - bufferSize = Tcl_ReadChars(chan, buffer, -1, 0); + bufferSize = Tcl_ReadChars(chan, buffer, TCL_INDEX_NONE, 0); if (bufferSize == TCL_IO_FAILURE) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "error reading file \"%s\": %s", |