diff options
author | treectrl <treectrl> | 2002-12-29 02:45:04 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2002-12-29 02:45:04 (GMT) |
commit | 7e2e94d7a5d406eddda32b2c89d91ffedd0c6088 (patch) | |
tree | 26fa5a16f79aa6468cf980570a423cd453dfa3ff /generic/qebind.c | |
parent | 32492bfa784837e0da5d0a0b4bc4d08774277413 (diff) | |
download | tktreectrl-7e2e94d7a5d406eddda32b2c89d91ffedd0c6088.zip tktreectrl-7e2e94d7a5d406eddda32b2c89d91ffedd0c6088.tar.gz tktreectrl-7e2e94d7a5d406eddda32b2c89d91ffedd0c6088.tar.bz2 |
Fix calls to Tcl_WrongNumArgs.
Diffstat (limited to 'generic/qebind.c')
-rw-r--r-- | generic/qebind.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/qebind.c b/generic/qebind.c index 29b2be8..548b4b6 100644 --- a/generic/qebind.c +++ b/generic/qebind.c @@ -1367,7 +1367,7 @@ int QE_BindCmd(QE_BindingTable bindingTable, int objOffset, int objc, if ((objc - objOffset < 1) || (objc - objOffset > 4)) { - Tcl_WrongNumArgs(bindPtr->interp, objOffset, objv, + Tcl_WrongNumArgs(bindPtr->interp, objOffset + 1, objv, "?object? ?pattern? ?script?"); return TCL_ERROR; } @@ -1494,7 +1494,8 @@ QE_GenerateCmd(QE_BindingTable bindingTable, int objOffset, int objc, if (objc - objOffset < 2) { - Tcl_WrongNumArgs(bindPtr->interp, objOffset, objv, "pattern ?field value ...?"); + Tcl_WrongNumArgs(bindPtr->interp, objOffset + 1, objv, + "pattern ?field value ...?"); return TCL_ERROR; } @@ -1589,7 +1590,8 @@ QE_ConfigureCmd(QE_BindingTable bindingTable, int objOffset, int objc, if (objc - objOffset < 3) { - Tcl_WrongNumArgs(interp, objOffset, objv, "window pattern ?option? ?value? ?option value ...?"); + Tcl_WrongNumArgs(interp, objOffset + 1, objv, + "window pattern ?option? ?value? ?option value ...?"); return TCL_ERROR; } |