From e1bc5abf47ae6dbfab63b75f1a806436f75d176d Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 17 Jan 2003 13:15:53 +0000
Subject: coorection de commentaire + suppression d'un print inutile

---
 Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 3 +--
 1 file changed, 1 insertion(+), 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]);
 }
-- 
cgit v1.1