diff options
Diffstat (limited to 'src/MTools/GUI/MAntiRecouvrementGroup.pm')
| -rw-r--r-- | src/MTools/GUI/MAntiRecouvrementGroup.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/MTools/GUI/MAntiRecouvrementGroup.pm b/src/MTools/GUI/MAntiRecouvrementGroup.pm index 4e8dbc7..cc0924e 100644 --- a/src/MTools/GUI/MAntiRecouvrementGroup.pm +++ b/src/MTools/GUI/MAntiRecouvrementGroup.pm @@ -44,12 +44,12 @@ use MTools; use vars qw /@ISA/; -use MTools::MGroup; +use MTools::GUI::MGroup; require Exporter; BEGIN { - @ISA = qw /MTools::MGroup Exporter/; + @ISA = qw /MTools::GUI::MGroup Exporter/; @EXPORT = qw / translate scale rotate /; } @@ -58,7 +58,7 @@ use Tk; sub new { my ($class, $parent, %options) = @_; - my $self = new MTools::MGroup ($parent); + my $self = new MTools::GUI::MGroup ($parent); bless $self, $class; $self -> recordEvent ('TRANSLATED'); |