Help for this page

Select Code to Download


  1. or download this
    $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();});
    
  2. or download this
    sub mobileStart {
          my $ev = $wg{Layout_Canvas}->XEvent;
    ...
          print "MOVING->  $dx_cursor  $dy_cursor\n";
    }
    sub mobileStop{&mobileMove;}