diff options
| -rw-r--r-- | Perl/Zinc/Trace.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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; } } |