From d32da67436600f3ec40e4fb233167fda4aa3d5fb Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 28 Jan 2002 14:13:21 +0000
Subject: Corrig� les fonctions tsave et trestore qui ne pouvaient utiliser
 correctement la table de hash des transfos car elle n'�tait pas correctement
 initialis�e. tsave par ailleur comportait un bug dans le cas de l'utilisation
 de l'argument optionnel.

---
 generic/tkZinc.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'generic/tkZinc.c')

diff --git a/generic/tkZinc.c b/generic/tkZinc.c
index c33b63b..b754a7b 100644
--- a/generic/tkZinc.c
+++ b/generic/tkZinc.c
@@ -452,7 +452,7 @@ ZincObjCmd(ClientData		client_data,	/* Main window associated with
   wi->id_table = (Tcl_HashTable *) ZnMalloc(sizeof(Tcl_HashTable));
   Tcl_InitHashTable(wi->id_table, TCL_ONE_WORD_KEYS);
   wi->t_table = (Tcl_HashTable *) ZnMalloc(sizeof(Tcl_HashTable));
-  Tcl_InitHashTable(wi->t_table, TCL_ONE_WORD_KEYS);
+  Tcl_InitHashTable(wi->t_table, TCL_STRING_KEYS);
 
   wi->obj_id = 1;
   wi->num_items = 0;
@@ -4037,6 +4037,7 @@ WidgetObjCmd(ClientData		client_data,	/* Information about the widget. */
 	if (Tcl_GetBooleanFromObj(interp, args[4], &invert) != ZN_OK) {
 	  goto error;
 	}
+	argc--;
       }
       t = item->transfo;
       entry = Tcl_CreateHashEntry(wi->t_table, Tcl_GetString(args[argc-1]), &new);
-- 
cgit v1.1