diff options
author | mertz | 2004-03-10 21:30:42 +0000 |
---|---|---|
committer | mertz | 2004-03-10 21:30:42 +0000 |
commit | 3c92a86e944da06f834c2c14dba9bc8ad7121533 (patch) | |
tree | 17e330d02c15010b02d11e6eab34db2dbd1b9c91 /Perl/demos | |
parent | fc4345ba13802bed473f9aaeb6bf5358061689d8 (diff) | |
download | tkzinc-3c92a86e944da06f834c2c14dba9bc8ad7121533.zip tkzinc-3c92a86e944da06f834c2c14dba9bc8ad7121533.tar.gz tkzinc-3c92a86e944da06f834c2c14dba9bc8ad7121533.tar.bz2 tkzinc-3c92a86e944da06f834c2c14dba9bc8ad7121533.tar.xz |
replacing deprecated use of Tk::Zinc::Debug by uptodate-one
Diffstat (limited to 'Perl/demos')
-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 = " |