diff options
Diffstat (limited to 'src/MTools/Comp')
| -rw-r--r-- | src/MTools/Comp/MFocuser.pm | 3 | ||||
| -rw-r--r-- | src/MTools/Comp/MMover.pm | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/src/MTools/Comp/MFocuser.pm b/src/MTools/Comp/MFocuser.pm index cb821ae..7d984da 100644 --- a/src/MTools/Comp/MFocuser.pm +++ b/src/MTools/Comp/MFocuser.pm @@ -26,7 +26,6 @@ package MTools::Comp::MFocuser; use strict; use MTools; -use MTools::MObjet; use vars qw /@ISA/; @@ -39,7 +38,7 @@ use Tk; sub new { my ($class, @targets) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; $self -> recordEvent ('GET_FOCUS'); 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); |