diff options
Diffstat (limited to 'generic/tkZinc.c')
-rw-r--r-- | generic/tkZinc.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tkZinc.c b/generic/tkZinc.c index 6dcff2d..4fdac88 100644 --- a/generic/tkZinc.c +++ b/generic/tkZinc.c @@ -4868,8 +4868,9 @@ WidgetObjCmd(ClientData client_data, /* Information about the widget. */ */ case ZN_W_POSTSCRIPT: { - Tcl_AppendResult(interp, "Command not yet implemented", NULL); - goto error; + if (ZnPostScriptCmd(wi, argc, args) != TCL_OK) { + goto error; + } } break; /* @@ -6461,7 +6462,7 @@ DoEvent(ZnWInfo *wi, num_tags = 0; its = items; bind_part = (bind_part && - (wi->current_part != ZN_NO_PART) && + (part != ZN_NO_PART) && item->class->IsSensitive(item, part) && (wi->current_item->class->num_parts || wi->current_item->class->GetFieldSet)); @@ -6502,6 +6503,7 @@ DoEvent(ZnWInfo *wi, BIND_ITEM(event->type != LeaveNotify); if (bind_part) { + printf("bind_part: %d %d\n", wi->current_part, part); /* * Add here a binding for each tag suffixed by :part */ @@ -6511,14 +6513,14 @@ DoEvent(ZnWInfo *wi, worksize = len + 10; workspace = ZnRealloc(workspace, len); } - sprintf(workspace, "%s:%d", (char *) tag_list[i], wi->current_part); + sprintf(workspace, "%s:%d", (char *) tag_list[i], part); its[ptr] = (ClientData) Tk_GetUid(workspace); ptr++; } /* * Add here a binding for id:part */ - its[ptr] = EncodeItemPart(item, wi->current_part); + its[ptr] = EncodeItemPart(item, part); ptr++; } |