diff options
author | ribet | 2007-05-14 14:32:34 +0000 |
---|---|---|
committer | ribet | 2007-05-14 14:32:34 +0000 |
commit | 95ba2d44fffe340619c5fdf5624790ac64442d80 (patch) | |
tree | a4c8ccc86d2b4bd3547ee2d54c4a8aac93e56cff /exemples/Rattrapage.pm | |
parent | 76aecbe5cbeea78733e0dc0b2595bf3443ec9d56 (diff) | |
download | mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.zip mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.tar.gz mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.tar.bz2 mtc-95ba2d44fffe340619c5fdf5624790ac64442d80.tar.xz |
Déplacement de MGroup. Ce déplacement casse du code côté utilisateurs, mais le fichier est enfin à sa place.
Diffstat (limited to 'exemples/Rattrapage.pm')
-rw-r--r-- | exemples/Rattrapage.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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); |