From e792dce2ad8ab9d70fd20a8f4ec45148b9d6e45d Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 17 Mar 2003 17:35:04 +0000
Subject: zinc is updated after every method call. This is costly but allows a
 very efficient debug and trace This should be parametrized!

---
 Perl/Zinc/Trace.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Perl/Zinc/Trace.pm b/Perl/Zinc/Trace.pm
index 9748c0b..c78b9fc 100644
--- a/Perl/Zinc/Trace.pm
+++ b/Perl/Zinc/Trace.pm
@@ -57,11 +57,13 @@ sub Tk::Methods {
 					  my @res = $obj->WidgetMethod($name,@_);
 					  print "  RETURNS ";
 					  &printList (@res); print "\n";
+					  $obj->update;
 					  return @res;
 				      } else {
 					  my $res = $obj->WidgetMethod($name,@_);
 					  print "  RETURNS ";
 					  &printItem ($res); print "\n";
+					  $obj->update;
 					  return $res;
 				      }
 				  }
-- 
cgit v1.1