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.

---
 exemples/Rattrapage.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'exemples/Rattrapage.pm')

diff --git a/exemples/Rattrapage.pm b/exemples/Rattrapage.pm
index c6ec0bc..848b6dd 100644
--- a/exemples/Rattrapage.pm
+++ b/exemples/Rattrapage.pm
@@ -20,7 +20,7 @@ use strict;
 use vars qw /@ISA/;
 
 use MTools;
-use MTools::MGroup;
+use MTools::GUI::MGroup;
 use MTools::Widget::MToggleBouton;
 use MTools::Widget::MBouton;
 use Lien;
@@ -29,13 +29,13 @@ use Tk;
 
 BEGIN 
 {
-	@ISA = qw /MTools::MGroup/;
+	@ISA = qw /MTools::GUI::MGroup/;
 }
 
 sub new {
 	my ($class, $parent, $comete1, $comete2, $manager, %options) = @_;
 	my $lien = new Lien ($parent, $comete1, $comete2);
-	my $self = new MTools::MGroup ($parent);
+	my $self = new MTools::GUI::MGroup ($parent);
 	bless $self, $class;
 	
 	$self -> {__lien} = $lien;
@@ -125,7 +125,7 @@ sub new {
  		e_release => 'DELETE'
  	);
  	
- 	my $gp_mask = new MTools::MGroup ($self);
+ 	my $gp_mask = new MTools::GUI::MGroup ($self);
  	$self -> {__down} = minstanciate ('rattrapage.svg#mask_seuil_down', $gp_mask);
  	$self -> {__down} -> mconfigure (-visible => 0);
  	$self -> {__up} = minstanciate ('rattrapage.svg#mask_seuil', $gp_mask);
-- 
cgit v1.1