diff options
Diffstat (limited to 'Perl/demos')
-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, |