From 95ba2d44fffe340619c5fdf5624790ac64442d80 Mon Sep 17 00:00:00 2001
From: ribet
Date: Mon, 14 May 2007 14:32:34 +0000
Subject: Déplacement de MGroup. Ce déplacement casse du code côté
 utilisateurs, mais le fichier est enfin à sa place.

---
 src/MTools/Comp/MMultiSelection.pm | 4 ++--
 src/MTools/Comp/MReconizer.pm      | 2 +-
 src/MTools/Comp/MWritable.pm       | 8 ++++----
 3 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/MTools/Comp')

diff --git a/src/MTools/Comp/MMultiSelection.pm b/src/MTools/Comp/MMultiSelection.pm
index f124720..9a7260b 100644
--- a/src/MTools/Comp/MMultiSelection.pm
+++ b/src/MTools/Comp/MMultiSelection.pm
@@ -87,7 +87,7 @@ use MTools::MObjet;
 use Math::Trig;
 use MTools::Anim::MOpacity;
 use MTools::Comp::MInertie;
-use MTools::MGroup;
+use MTools::GUI::MGroup;
 
 use vars qw /@ISA/;
 
@@ -143,7 +143,7 @@ sub new {
 	$self -> {__owns_data} = ();
 	$self -> {__source} = minstance ($src);
 	
-	$self -> {__gp_anime} = my $group = new MTools::MGroup ($dessin);
+	$self -> {__gp_anime} = my $group = new MTools::GUI::MGroup ($dessin);
 	
 	push (@{$self -> {__owns_data}}, minstance ($src));
 	push (@{$self -> {__owns_data}}, minstance ($group));
diff --git a/src/MTools/Comp/MReconizer.pm b/src/MTools/Comp/MReconizer.pm
index 9605eb9..8792295 100644
--- a/src/MTools/Comp/MReconizer.pm
+++ b/src/MTools/Comp/MReconizer.pm
@@ -74,7 +74,7 @@ sub new {
 	});
 	$self -> {__dessin} = undef;
 	
-	$self -> {__dessin} = my $dessin = new MTools::MGroup (1);
+	$self -> {__dessin} = my $dessin = new MTools::GUI::MGroup (1);
 	$self -> {__fleche} = $zinc -> add ('curve', minstance($dessin), [[0,0],[0,0]],
 		-linecolor => 'blue',
 		-linewidth => 2,
diff --git a/src/MTools/Comp/MWritable.pm b/src/MTools/Comp/MWritable.pm
index 8a2a2d5..e611972 100644
--- a/src/MTools/Comp/MWritable.pm
+++ b/src/MTools/Comp/MWritable.pm
@@ -49,14 +49,14 @@ use vars qw /@ISA/;
 
 BEGIN 
 {
-	@ISA = qw /MTools::MGroup/;
+	@ISA = qw /MTools::GUI::MGroup/;
 }
 
 use Tk;
 
 sub new {
 	my ($class, $parent, $src, $button, %options) = @_;
-	my $self = new MTools::MGroup ($parent);
+	my $self = new MTools::GUI::MGroup ($parent);
 	bless $self, $class;
 	if (defined $options {clip})
 	{
@@ -83,7 +83,7 @@ sub new {
 	$self -> {__curves} = ();
 	$self -> {__points} = ();
 	$self -> {__current_curves} = ();
-	$self -> {__tmp_curves} = new MTools::MGroup ($self);
+	$self -> {__tmp_curves} = new MTools::GUI::MGroup ($self);
 	return $self;
 }
 
@@ -133,7 +133,7 @@ sub endWrite {
 		);
 		$self -> {__points} = ();
 		$self -> {__tmp_curves} -> mdelete ();
-		$self -> {__tmp_curves} = new MTools::MGroup ($self);
+		$self -> {__tmp_curves} = new MTools::GUI::MGroup ($self);
 	}
 	$self -> {__old_coords} = ();
 }
-- 
cgit v1.1