aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl3
1 files changed, 1 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
index 0403ff8..a6dc96e 100644
--- a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
@@ -15,7 +15,7 @@ my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true
$text->pack(qw/-expand yes -fill both/);
$text->insert('0.0',
- 'This demo must used openGL for rescaling/rotating the icon
+ 'This demo needs openGL for rescaling/rotating the icon
You can transform this earth gif image with your mouse:
Drag-Button 1 for zooming the earth,
Drag-Button 2 for rotating the earth,
@@ -73,7 +73,6 @@ sub press {
my $ev = $zinc->XEvent();
$cur_x = $ev->x;
$cur_y = $ev->y;
- print "$cur_x $cur_y\n";
$cur_angle = atan2($cur_y, $cur_x);
$zinc->Tk::bind('<Motion>', [$action]);
}