Select Code to Download

  my ($xlock,$ylock);      # These keep track of the first coordinate 
+clicked on
  $PLOT->CanvasBind("<ButtonPress-1>", 
...
                        plot($plot_f_ref,\$canv,$data_ref);
                        }, Ev('x'), Ev('y')]);

  $PLOT->CanvasBind("<ButtonPress-3>", 
                   [sub {
...
                          $MOVING_IN_PROGRESS=0;
                        }                                             
                   }, Ev('x'), Ev('y')]);

  $PLOT->CanvasBind("<Double-Button-3>",
                   [sub {
...
                        }, Ev('x'), Ev('y')]);