view release on metacpan or  search on metacpan

bin/ManCen  view on Meta::CPAN

      $self-> {xorData} = [ $x, $y, $x, $y];
      $w-> IV_xorrect( $self);
      $self-> clear_event;
      $w-> sb_text( "Select points to remove");
      return;
   }

   if ( $btn == mb::Right && !$self->{transaction} && defined $w-> rpt_is( $self-> screen2point( $x, $y))) {
      $w-> {lastPopupPoint} = [$self-> screen2point( $x, $y)];
      $w-> iv_cancelmode( $self);
      $self-> PointPopup-> popup( $self-> pointerPos);
      $self-> clear_event;
      return;
   }   
               

   $w-> SUPER::IV_MouseDown( $self, $btn, $mod, $x, $y);
   return unless $self-> eventFlag;


   if ( $btn == mb::Left && !$self->{transaction}) {

bin/PrAverB  view on Meta::CPAN

sub on_mousedown
{
   my ( $me, $w, $self, $btn, $mod, $x, $y, $ax, $ay) = @_;
   my @r = $me-> get_screen_bounds;

   if ( $x >= $r[0] && $x < $r[2] && $y >= $r[1] && $y < $r[3]) {
      $me-> {lastStateSelected} = $me-> selected;
      $me-> select;
      if ( $btn == mb::Right) {
         $w-> FigurePopup-> popup( $w-> pointerPos);
         $w-> iv_cancelmode( $self);
         return 1;
      }

      return 0 if  $btn != mb::Left;

      $self-> {savePointer} = $self-> pointer;
      my $part = $me-> xy2part( $x, $y);
      if ( $part eq q(client)) {
         $me-> open_transaction( tran::move, $x, $y, $ax, $ay);