diff options
| author | saal | 2007-06-04 13:10:07 +0000 |
|---|---|---|
| committer | saal | 2007-06-04 13:10:07 +0000 |
| commit | 026e394a8e78c52c9c3319408f1b1b66e88a745b (patch) | |
| tree | 164dc38b7a10d061f95bc96c31667dc400b98c14 /src/MTools/Comp/MMover.pm | |
| parent | 1a38bcb3e8464d440f42341d3e67c2691ac44421 (diff) | |
| download | mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.zip mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.gz mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.bz2 mtc-026e394a8e78c52c9c3319408f1b1b66e88a745b.tar.xz | |
utilisation du constructeur de MObjet + suppression du use MTools::MObjet
Diffstat (limited to 'src/MTools/Comp/MMover.pm')
| -rw-r--r-- | src/MTools/Comp/MMover.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/MTools/Comp/MMover.pm b/src/MTools/Comp/MMover.pm index 2d767ff..0d2628c 100644 --- a/src/MTools/Comp/MMover.pm +++ b/src/MTools/Comp/MMover.pm @@ -31,7 +31,6 @@ package MTools::Comp::MMover; use strict; use MTools; -use MTools::MObjet; use vars qw /@ISA/; @@ -44,7 +43,7 @@ use Tk; sub new { my ($class, $src, $targets, $button, %options) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; $self -> recordProperty ('x_min', -10000); |