diff options
| author | mertz | 2003-01-17 13:15:53 +0000 |
|---|---|---|
| committer | mertz | 2003-01-17 13:15:53 +0000 |
| commit | e1bc5abf47ae6dbfab63b75f1a806436f75d176d (patch) | |
| tree | 332bd2aef6e4dd3dcdf88693e882705bbf724608 /Perl/demos/Tk | |
| parent | c63ea7790c6249071098fcf8a7b77ce2666caac4 (diff) | |
| download | tkzinc-e1bc5abf47ae6dbfab63b75f1a806436f75d176d.zip tkzinc-e1bc5abf47ae6dbfab63b75f1a806436f75d176d.tar.gz tkzinc-e1bc5abf47ae6dbfab63b75f1a806436f75d176d.tar.bz2 tkzinc-e1bc5abf47ae6dbfab63b75f1a806436f75d176d.tar.xz | |
coorection de commentaire + suppression d'un print inutile
Diffstat (limited to 'Perl/demos/Tk')
| -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]); } |