diff options
| -rw-r--r-- | src/MTools/Comp/MMultiSelection.pm | 54 |
1 files changed, 41 insertions, 13 deletions
diff --git a/src/MTools/Comp/MMultiSelection.pm b/src/MTools/Comp/MMultiSelection.pm index df72cad..d79f64b 100644 --- a/src/MTools/Comp/MMultiSelection.pm +++ b/src/MTools/Comp/MMultiSelection.pm @@ -105,9 +105,13 @@ sub new { $self -> recordProperty ('delay', 0); $self -> recordProperty ('inertie', 0.6); + $self -> recordProperty ('-visible', 1); $self -> recordEvent ('PRESSED'); $self -> recordEvent ('MOVED'); $self -> recordEvent ('RELEASED'); + $self -> recordEvent ('PRESSED_OFF'); + $self -> recordEvent ('MOVED_OFF'); + $self -> recordEvent ('RELEASED_OFF'); $self -> recordEvent ('FLECHEPRESSED'); $self -> recordEvent ('FLECHEMOVED'); $self -> recordEvent ('FLECHERELEASED'); @@ -306,16 +310,32 @@ sub __clear { sub __pressed { my ($self, $x, $y, $t) = @_; - $self -> __clear (); - push (@{$self -> {__points}}, [$x, $y]); - $self -> notify ('DESELECT_ALL'); - $self -> notify ('PRESSED', $x, $y, $t); + if ($self -> mget ('-visible')) + { + $self -> __clear (); + push (@{$self -> {__points}}, [$x, $y]); + $self -> notify ('DESELECT_ALL'); + $self -> notify ('PRESSED', $x, $y, $t); + } + else + { + $self -> notify ('PRESSED_OFF', $x, $y, $t); + } } sub __released { my ($self, $x, $y, $t) = @_; - my $pt = $self -> {__points}[@{$self -> {__points}} - 2]; - $self -> notify ('RELEASED', $x - $pt -> [0], $y - $pt -> [1], $t); + if ($self -> mget ('-visible')) + { + my $pt = $self -> {__points}[@{$self -> {__points}} - 2]; + $self -> notify ('RELEASED', $x - $pt -> [0], $y - $pt -> [1], $t); + } + else + { + $self -> __clear (); + $self -> notify ('RELEASED_OFF', $x, $y, $t); + } + } sub __fin_moved { @@ -328,13 +348,21 @@ sub __fin_moved { sub __moved { my ($self, $x, $y, $t) = @_; - push (@{$self -> {__points}}, [$x, $y]); - my @pts = @{$self -> {__points}}; - $zinc -> coords ($self -> {__curve}, 0, \@pts); - $zinc -> coords ($self -> {__curve_bck}, 0, \@pts); - my $pt = $self -> {__points}[@{$self -> {__points}} - 2]; - $self -> notify ('MOVED', $x - $pt -> [0], $y - $pt -> [1], $t); - $self -> __update_all (); + if ($self -> mget ('-visible')) + { + push (@{$self -> {__points}}, [$x, $y]); + my @pts = @{$self -> {__points}}; + $zinc -> coords ($self -> {__curve}, 0, \@pts); + $zinc -> coords ($self -> {__curve_bck}, 0, \@pts); + my $pt = $self -> {__points}[@{$self -> {__points}} - 2]; + $self -> notify ('MOVED', $x - $pt -> [0], $y - $pt -> [1], $t); + $self -> __update_all (); + } + else + { + $self -> __clear (); + $self -> notify ('MOVED_OFF', $x, $y, $t); + } } sub translate { |