diff options
author | lecoanet | 2002-01-28 14:13:21 +0000 |
---|---|---|
committer | lecoanet | 2002-01-28 14:13:21 +0000 |
commit | d32da67436600f3ec40e4fb233167fda4aa3d5fb (patch) | |
tree | ba357a6c06d0ea359150387480a9ad86c312c2fa | |
parent | 98d11bb9ab79d03c8e3035da26596eb61302880c (diff) | |
download | tkzinc-d32da67436600f3ec40e4fb233167fda4aa3d5fb.zip tkzinc-d32da67436600f3ec40e4fb233167fda4aa3d5fb.tar.gz tkzinc-d32da67436600f3ec40e4fb233167fda4aa3d5fb.tar.bz2 tkzinc-d32da67436600f3ec40e4fb233167fda4aa3d5fb.tar.xz |
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.
-rw-r--r-- | generic/tkZinc.c | 3 |
1 files changed, 2 insertions, 1 deletions
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); |