From 58ecd1da253b3b9f8cb68907107478d143f96854 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 13 Feb 2004 10:29:40 +0000
Subject: Fixed an error in DoEvent related to which part should be considered
 for focusable items. Introduce the postscript command (not functional yet!)

---
 generic/tkZinc.c | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'generic/tkZinc.c')

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++;
   }
   
-- 
cgit v1.1