summaryrefslogtreecommitdiffstats
path: root/generic/tkSelect.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-07-23 23:24:21 (GMT)
committernijtmans <nijtmans>2008-07-23 23:24:21 (GMT)
commit535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6 (patch)
tree44da117febb11bc69d260540340f018933aa8b45 /generic/tkSelect.c
parent8daba6660a12dce054485bf87cef227741ac76a0 (diff)
downloadtk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.zip
tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.gz
tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.bz2
fix [2021443] inconsistant "wrong # args" messages (for Tk)
Diffstat (limited to 'generic/tkSelect.c')
-rw-r--r--generic/tkSelect.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tkSelect.c b/generic/tkSelect.c
index e02478f..7c42e60 100644
--- a/generic/tkSelect.c
+++ b/generic/tkSelect.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkSelect.c,v 1.21 2008/04/27 22:38:58 dkf Exp $
+ * RCS: @(#) $Id: tkSelect.c,v 1.22 2008/07/23 23:24:21 nijtmans Exp $
*/
#include "tkInt.h"
@@ -687,7 +687,7 @@ Tk_SelectionObjCmd(
};
if (objc < 2) {
- Tcl_WrongNumArgs(interp, 1, objv, "option ?arg arg ...?");
+ Tcl_WrongNumArgs(interp, 1, objv, "option ?arg ...?");
return TCL_ERROR;
}
@@ -733,7 +733,7 @@ Tk_SelectionObjCmd(
if (count == 1) {
path = Tcl_GetString(objs[0]);
} else if (count > 1) {
- Tcl_WrongNumArgs(interp, 2, objv, "?options?");
+ Tcl_WrongNumArgs(interp, 2, objv, "?-option value ...?");
return TCL_ERROR;
}
if (path != NULL) {
@@ -805,7 +805,7 @@ Tk_SelectionObjCmd(
selection = XA_PRIMARY;
}
if (count > 1) {
- Tcl_WrongNumArgs(interp, 2, objv, "?options?");
+ Tcl_WrongNumArgs(interp, 2, objv, "?-option value ...?");
return TCL_ERROR;
} else if (count == 1) {
target = Tk_InternAtom(tkwin, Tcl_GetString(objs[0]));
@@ -871,7 +871,7 @@ Tk_SelectionObjCmd(
}
if ((count < 2) || (count > 4)) {
- Tcl_WrongNumArgs(interp, 2, objv, "?options? window command");
+ Tcl_WrongNumArgs(interp, 2, objv, "?-option value ...? window command");
return TCL_ERROR;
}
tkwin = Tk_NameToWindow(interp, Tcl_GetString(objs[0]), tkwin);
@@ -957,7 +957,7 @@ Tk_SelectionObjCmd(
}
if (count > 2) {
- Tcl_WrongNumArgs(interp, 2, objv, "?options? ?window?");
+ Tcl_WrongNumArgs(interp, 2, objv, "?-option value ...? ?window?");
return TCL_ERROR;
}
if (selName != NULL) {