From 026e394a8e78c52c9c3319408f1b1b66e88a745b Mon Sep 17 00:00:00 2001
From: saal
Date: Mon, 4 Jun 2007 13:10:07 +0000
Subject: utilisation du constructeur de MObjet + suppression du use
 MTools::MObjet

---
 src/MTools/Comp/MFocuser.pm | 3 +--
 src/MTools/Comp/MMover.pm   | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/MTools/Comp')

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);
-- 
cgit v1.1