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/MMover.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/MMover.pm')
-rw-r--r-- | src/MTools/Comp/MMover.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/MTools/Comp/MMover.pm b/src/MTools/Comp/MMover.pm index 0d2628c..6097bd9 100644 --- a/src/MTools/Comp/MMover.pm +++ b/src/MTools/Comp/MMover.pm @@ -55,6 +55,7 @@ sub new { $self -> recordProperty ('y', 0); $self -> recordProperty ('targets', $targets); $self -> recordProperty ('allower', undef); + $self -> recordProperty ('translate', 'translate'); $self -> mconfigure (%options); @@ -79,17 +80,18 @@ sub setPos { my $dy = $y - $self -> mget ('y'); my $tgs = $self -> mget ('targets'); my @targets; + my $translate_cbk = $self -> mget ('translate'); if (ref ($tgs) eq 'ARRAY') { @targets = @{$tgs}; for (my $i = 0; $i < @targets; $i++) { - $targets [$i] -> translate ($dx, $dy); + $targets [$i] -> $translate_cbk ($dx, $dy); } } else { - $tgs -> translate ($dx, $dy); + $tgs -> $translate_cbk ($dx, $dy); } $self -> mconfigure ('x', $x); $self -> mconfigure ('y', $y); |