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/Lien.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/Lien.pm')
| -rw-r--r-- | exemples/Lien.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/exemples/Lien.pm b/exemples/Lien.pm index d8665bc..b9a6502 100644 --- a/exemples/Lien.pm +++ b/exemples/Lien.pm @@ -18,7 +18,7 @@ package Lien; use strict; use MTools; -use MTools::MGroup; +use MTools::GUI::MGroup; use MTools::GUI::MCurve; use vars qw /@ISA/; @@ -26,12 +26,12 @@ use vars qw /@ISA/; BEGIN { - @ISA = qw /MTools::MGroup/; + @ISA = qw /MTools::GUI::MGroup/; } sub new { my ($class, $parent, $comete_1, $comete_2, %options) = @_; - my $self = new MTools::MGroup ($parent); + my $self = new MTools::GUI::MGroup ($parent); bless $self, $class; $self -> recordProperty ('comete_1', $comete_1); |