diff options
| -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); |