Select Code to Download

$wg{Layout_Canvas}->bind($last_tag_global, '<1>', sub {&mobileStart();
+});
$wg{Layout_Canvas}->bind($last_tag_global, '<B1-Motion>', sub {&mobile
+Move();});
$wg{Layout_Canvas}->bind($last_tag_global, '<ButtonRelease-1>', sub {&
+mobileStop();});

sub mobileStart {
      my $ev = $wg{Layout_Canvas}->XEvent;
...
      print "MOVING->  $dx_cursor  $dy_cursor\n";
}
sub mobileStop{&mobileMove;}