From: nishi <nishi@d27a3e52-49c5-7645-884c-6793ebffc270>
Date: Thu, 8 Feb 2024 23:17:55 +0000 (+0000)
Subject: fixed tcl bindings
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=9a375a65b8f75ae87d3c582e9ef64628e09b47ad;p=libw3.git

fixed tcl bindings

git-svn-id: file:///raid/svn-main/nishi-libw3/trunk@189 d27a3e52-49c5-7645-884c-6793ebffc270
---

diff --git a/Library/Tcl.c b/Library/Tcl.c
index 7ebc6a1..12c6002 100644
--- a/Library/Tcl.c
+++ b/Library/Tcl.c
@@ -395,7 +395,7 @@ int Tcl_W3Cmd(ClientData dummy, Tcl_Interp* interp, int objc, Tcl_Obj* CONST obj
 			Tcl_SetObjResult(interp, Tcl_NewStringObj(errmsg, strlen(errmsg)));
 			return TCL_ERROR;
 		}
-		W3_Do_Debug(atoi(Tcl_GetString(argv[2]));
+		W3_Do_Debug(atoi(Tcl_GetString(objv[2])));
 		Tcl_SetObjResult(interp, Tcl_NewIntObj(0));
 		return TCL_OK;
 	} else {
diff --git a/W3Version.h.p b/W3Version.h.p
index 5bfe6ec..78196b6 100644
--- a/W3Version.h.p
+++ b/W3Version.h.p
@@ -6,7 +6,7 @@
 extern "C" {
 #endif
 
-#define LIBW3_VERSION "2.4A" \
+#define LIBW3_VERSION "2.4B" \
 SUFFIX
 
 #ifdef __cplusplus