aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/tiger.pl3
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 = "