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

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

diff --git a/src/MTools/GUI/MGroup.pm b/src/MTools/GUI/MGroup.pm
index ca48fe1..ef5468f 100644
--- a/src/MTools/GUI/MGroup.pm
+++ b/src/MTools/GUI/MGroup.pm
@@ -21,7 +21,6 @@ package MTools::GUI::MGroup;
 use strict;
 
 use MTools;
-use MTools::MObjet;
 use vars qw / @ISA /;
 
 BEGIN 
@@ -31,7 +30,7 @@ BEGIN
 
 sub new {
 	my ($class, $parent, %options) = @_;
-	my $self = {};
+	my $self = new MTools::MObjet ();
 	bless $self, $class;
 	$parent = ref($parent) eq ''?$parent:$parent -> {instance};
 	$self -> {instance} = $zinc -> add ('group', $parent, -priority => 10, %options);
-- 
cgit v1.1