5 files changed, 4 insertions, 9 deletions
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}, 
diff --git a/src/MTools/GUI/MClip.pm b/src/MTools/GUI/MClip.pm
index 248e395..b34a537 100644
--- a/src/MTools/GUI/MClip.pm
+++ b/src/MTools/GUI/MClip.pm
@@ -26,7 +26,6 @@ package MTools::GUI::MClip;
 use strict;
 
 use MTools;
-use MTools::MObjet;
 use vars qw / @ISA /;
 
 BEGIN 
@@ -36,7 +35,7 @@ BEGIN
 
 sub new {
 	my ($class, $clipped, $path, $debug) = @_;
-	my $self = {};
+	my $self = new MTools::MObjet ();
 	bless $self, $class;
 
 	if (!defined $debug) {$debug = 0}
diff --git a/src/MTools/GUI/MCurve.pm b/src/MTools/GUI/MCurve.pm
index 3458e49..e96ec6e 100644
--- a/src/MTools/GUI/MCurve.pm
+++ b/src/MTools/GUI/MCurve.pm
@@ -26,7 +26,6 @@ package MTools::GUI::MCurve;
 use strict;
 
 use MTools;
-use MTools::MObjet;
 use vars qw / @ISA /;
 
 BEGIN 
@@ -36,7 +35,7 @@ BEGIN
 
 sub new {
 	my ($class, $parent, $coords, %options) = @_;
-	my $self = {};
+	my $self = new MTools::MObjet ();
 	bless $self, $class;
 	$self -> {instance} = $zinc -> add('curve', 
 		ref ($parent) eq '' ? $parent : $parent -> {instance}, 
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);
diff --git a/src/MTools/GUI/MRect.pm b/src/MTools/GUI/MRect.pm
index e28b044..2a11402 100644
--- a/src/MTools/GUI/MRect.pm
+++ b/src/MTools/GUI/MRect.pm
@@ -27,7 +27,6 @@ package MTools::GUI::MRect;
 use strict;
 
 use MTools;
-use MTools::MObjet;
 use vars qw / @ISA /;
 
 BEGIN