diff options
author | didier | 2007-11-09 14:28:40 +0000 |
---|---|---|
committer | didier | 2007-11-09 14:28:40 +0000 |
commit | f922efaa04b8e2ed1eb162bab3422015c1b5bfc9 (patch) | |
tree | 24865a5ef7105b2ad9de75c35fcd19985e263201 /src/MTools/Comp/MMultiSelection.pm | |
parent | d587ffb205c30c978c3f44429266025728616178 (diff) | |
download | mtc-f922efaa04b8e2ed1eb162bab3422015c1b5bfc9.zip mtc-f922efaa04b8e2ed1eb162bab3422015c1b5bfc9.tar.gz mtc-f922efaa04b8e2ed1eb162bab3422015c1b5bfc9.tar.bz2 mtc-f922efaa04b8e2ed1eb162bab3422015c1b5bfc9.tar.xz |
Robustesse pour MMultiSelection MAntiRecouvrement
Ajout d'une fonctionnalite utile pour la reco d'ecriture dans MWritable
Ajout de la possibilite de passer en parametre une fonction "translate" particuliere dans le MMover
Diffstat (limited to 'src/MTools/Comp/MMultiSelection.pm')
-rw-r--r-- | src/MTools/Comp/MMultiSelection.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/MTools/Comp/MMultiSelection.pm b/src/MTools/Comp/MMultiSelection.pm index 0697a73..14c0c26 100644 --- a/src/MTools/Comp/MMultiSelection.pm +++ b/src/MTools/Comp/MMultiSelection.pm @@ -253,6 +253,7 @@ sub addObject { sub removeObject { my ($self, $target, $plan) = @_; if (!defined $plan) {$plan = 0;} + return if (!defined $self -> {__objects} [$plan]); for (my $i = @{$self -> {__objects} [$plan]} - 1; $i >= 0; $i --) { if (@{$self -> {__objects} [$plan]} [$i] eq $target) |