[Plplot-cvs] plplot/examples/perl x20.pl,1.5,1.6

[Rafael L. <rla...@us...>]

Update of /cvsroot/plplot/plplot/examples/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13979

Modified Files:
	x20.pl 
Log Message:
Removed all the xwin glitches in the x20.pl example.  It behaves now exactly
like its C counterpart (x20c.c).


Index: x20.pl
===================================================================
RCS file: /cvsroot/plplot/plplot/examples/perl/x20.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- x20.pl	18 May 2004 07:42:24 -0000	1.5
+++ x20.pl	18 May 2004 09:36:11 -0000	1.6
@@ -127,7 +127,7 @@
 
   plenv (1, $width, 1, $height, 1, -1);
 
-  pllab ((not $nointeractive
+  pllab (((not $nointeractive)
           ? "Set and drag Button 1 to (re)set selection, Button 2 to finish."
           : ""), " ", "Lena...");
 
@@ -225,7 +225,7 @@
         $sy->index (4) .= $yyi;
       }
 
-      if ($gin{state} && 0x100) {
+      if ($gin{state} & 0x100) {
         $xxe = $gin{wX};
         $yye = $gin{wY};