From 7e2e94d7a5d406eddda32b2c89d91ffedd0c6088 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sun, 29 Dec 2002 02:45:04 +0000
Subject: Fix calls to Tcl_WrongNumArgs.

---
 generic/qebind.c | 8 +++++---
 1 file 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;
     }
 
-- 
cgit v0.12