From 8b34baa437e87479674b6ae723ea33b7423bb374 Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 15 Sep 2003 16:17:06 +0000
Subject: perl modules ZincTrace ZincTraceErrors and ZincDebug have been
 renamed Tk::Zinc::Trace Tk::Zinc::TraceErrors and Tk::Zinc::debug and moved
 accordingly

---
 Perl/demos/Tk/demos/zinc_lib/tiger.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 5e0ef15..6a54a23 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tiger.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tiger.pl
@@ -8,7 +8,7 @@ use vars qw( $VERSION );
 ($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
 
 use Tk::Zinc;
-use ZincDebug;
+use Tk::Zinc::Debug;
 
 my $mw = MainWindow->new();
 $mw->title('tiger generated form svg');
@@ -22,14 +22,14 @@ my $zinc = $mw->Zinc(-width => $WIDTH, -height => $HEIGHT,
 		     -reshape => 1,
 		     -fullreshape => 1,
 		      )->pack;
-&ZincDebug::finditems($zinc);
-&ZincDebug::tree($zinc, -optionsToDisplay => '-tags', -optionsFormat => 'row');
+&Tk::Zinc::Debug::finditems($zinc);
+&Tk::Zinc::Debug::tree($zinc, -optionsToDisplay => '-tags', -optionsFormat => 'row');
 my $top_group = $zinc->add('group', 1);
 
 $text = "
 Drag-Button 1 for moving the tiger,
 Drag-Button 2 for zooming the tiger,
-esc for getting help on ZincDebug functions.
+esc for getting help on Tk::Zinc::Debug functions.
 ";
 
 my $clip= $zinc->add('curve',1,
-- 
cgit v1.1