diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-24 15:58:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-24 15:58:14 (GMT) |
| commit | ed5dd16c2ee4779451651a8edade91ecca229538 (patch) | |
| tree | 0e741b18c7772ea2b0697532929f42140056ee0b /generic | |
| parent | 196c6c9af3eb4b96a9b0b94f7e41963167b534b8 (diff) | |
| download | tk-ed5dd16c2ee4779451651a8edade91ecca229538.zip tk-ed5dd16c2ee4779451651a8edade91ecca229538.tar.gz tk-ed5dd16c2ee4779451651a8edade91ecca229538.tar.bz2 | |
Consistant Tcl_WrongNumArg() arguments when the command contains ?-option value ...? arguments
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkBusy.c | 2 | ||||
| -rw-r--r-- | generic/tkListbox.c | 2 | ||||
| -rw-r--r-- | generic/tkPanedWindow.c | 2 | ||||
| -rw-r--r-- | generic/tkTextTag.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkBusy.c b/generic/tkBusy.c index de09d1c..f639b59 100644 --- a/generic/tkBusy.c +++ b/generic/tkBusy.c @@ -865,7 +865,7 @@ Tk_BusyObjCmd( case BUSY_CONFIGURE: if (objc < 3) { - Tcl_WrongNumArgs(interp, 2, objv, "window ?-option? ?value ...?"); + Tcl_WrongNumArgs(interp, 2, objv, "window ?-option value ...?"); return TCL_ERROR; } busyPtr = GetBusy(interp, busyTablePtr, objv[2]); diff --git a/generic/tkListbox.c b/generic/tkListbox.c index a9eee94..6a90b3c 100644 --- a/generic/tkListbox.c +++ b/generic/tkListbox.c @@ -906,7 +906,7 @@ ListboxWidgetObjCmd( if (objc < 3) { Tcl_WrongNumArgs(interp, 2, objv, - "index ?-option? ?value? ?-option value ...?"); + "index ?-option value ...?"); result = TCL_ERROR; break; } diff --git a/generic/tkPanedWindow.c b/generic/tkPanedWindow.c index 285e907..05ddcca 100644 --- a/generic/tkPanedWindow.c +++ b/generic/tkPanedWindow.c @@ -690,7 +690,7 @@ PanedWindowWidgetObjCmd( case PW_PANECONFIGURE: if (objc < 3) { Tcl_WrongNumArgs(interp, 2, objv, - "pane ?-option? ?value -option value ...?"); + "pane ?-option value ...?"); result = TCL_ERROR; break; } diff --git a/generic/tkTextTag.c b/generic/tkTextTag.c index 4918a9f..2050cc8 100644 --- a/generic/tkTextTag.c +++ b/generic/tkTextTag.c @@ -357,7 +357,7 @@ TkTextTagCmd( if (objc < 4) { Tcl_WrongNumArgs(interp, 3, objv, - "tagName ?-option? ?value? ?-option value ...?"); + "tagName ?-option value ...?"); return TCL_ERROR; } tagPtr = TkTextCreateTag(textPtr, Tcl_GetString(objv[3]), &newTag); |