aboutsummaryrefslogtreecommitdiff
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tkZinc.c3
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);