From 3c92a86e944da06f834c2c14dba9bc8ad7121533 Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 10 Mar 2004 21:30:42 +0000
Subject: replacing deprecated use of Tk::Zinc::Debug by uptodate-one

---
 Perl/demos/Tk/demos/zinc_lib/tiger.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Perl/demos')

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 = "
-- 
cgit v1.1