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/GUI/MCircle.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/MTools/GUI/MCircle.pm')

diff --git a/src/MTools/GUI/MCircle.pm b/src/MTools/GUI/MCircle.pm
index 35463ef..2fc5aa1 100644
--- a/src/MTools/GUI/MCircle.pm
+++ b/src/MTools/GUI/MCircle.pm
@@ -26,7 +26,6 @@ package MTools::GUI::MCircle;
 use strict;
 
 use MTools;
-use MTools::MObjet;
 use vars qw / @ISA /;
 
 BEGIN 
@@ -36,7 +35,7 @@ BEGIN
 
 sub new {
 	my ($class, $parent, $x, $y, $r, %options) = @_;
-	my $self = {};
+	my $self = new MTools::MObjet ();
 	bless $self, $class;
 	$self -> {instance} = $zinc -> add('arc', 
 		ref ($parent) eq '' ? $parent : $parent -> {instance}, 
-- 
cgit v1.1