diff options
Diffstat (limited to 'Perl/demos')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 3 |
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]); } |