diff options
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tiger.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/tiger.pl b/Perl/demos/Tk/demos/zinc_lib/tiger.pl index 6a54a23..b86a804 100644 --- a/Perl/demos/Tk/demos/zinc_lib/tiger.pl +++ b/Perl/demos/Tk/demos/zinc_lib/tiger.pl @@ -22,8 +22,7 @@ my $zinc = $mw->Zinc(-width => $WIDTH, -height => $HEIGHT, -reshape => 1, -fullreshape => 1, )->pack; -&Tk::Zinc::Debug::finditems($zinc); -&Tk::Zinc::Debug::tree($zinc, -optionsToDisplay => '-tags', -optionsFormat => 'row'); +&Tk::Zinc::Debug::init($zinc, -optionsToDisplay => '-tags', -optionsFormat => 'row'); my $top_group = $zinc->add('group', 1); $text = " |