diff options
| author | mertz | 2003-03-17 17:35:04 +0000 |
|---|---|---|
| committer | mertz | 2003-03-17 17:35:04 +0000 |
| commit | e792dce2ad8ab9d70fd20a8f4ec45148b9d6e45d (patch) | |
| tree | 32b41e1bc4e282e76deb591ca0cb36acbcc8d14b /Perl | |
| parent | 11c1114f7913cabe633c2ce2a8e3039421e16b27 (diff) | |
| download | tkzinc-e792dce2ad8ab9d70fd20a8f4ec45148b9d6e45d.zip tkzinc-e792dce2ad8ab9d70fd20a8f4ec45148b9d6e45d.tar.gz tkzinc-e792dce2ad8ab9d70fd20a8f4ec45148b9d6e45d.tar.bz2 tkzinc-e792dce2ad8ab9d70fd20a8f4ec45148b9d6e45d.tar.xz | |
zinc is updated after every method call.
This is costly but allows a very efficient debug and trace
This should be parametrized!
Diffstat (limited to 'Perl')
| -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; } } |