diff options
author | mertz | 2003-09-15 16:17:06 +0000 |
---|---|---|
committer | mertz | 2003-09-15 16:17:06 +0000 |
commit | 8b34baa437e87479674b6ae723ea33b7423bb374 (patch) | |
tree | 49354bcfe24daf3ceef869ea65adc29795e49128 /Perl/demos/Tk | |
parent | 82bbdccfb51dbabc48ffde029058bd9aa68c24c8 (diff) | |
download | tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.zip tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.tar.gz tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.tar.bz2 tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.tar.xz |
perl modules ZincTrace ZincTraceErrors and ZincDebug have been renamed
Tk::Zinc::Trace Tk::Zinc::TraceErrors and Tk::Zinc::debug and moved
accordingly
Diffstat (limited to 'Perl/demos/Tk')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tiger.pl | 8 |
1 files changed, 4 insertions, 4 deletions
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, |