From b8f54421e18968143014d031d71f4d371caa4fe8 Mon Sep 17 00:00:00 2001 From: ribet Date: Mon, 14 May 2007 15:27:25 +0000 Subject: Déplacement et renommage de MTools::GUI::MAntiRecouvrementGroup en MTools::Comp::MAntiRecouvrementItem. Le nom et l'emplacement de ce fichier étaient impropres. Cela va casser un peu de code utilisateur (changement de nom). --- exemples/StripAntiRecouvre.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'exemples/StripAntiRecouvre.pm') diff --git a/exemples/StripAntiRecouvre.pm b/exemples/StripAntiRecouvre.pm index 5c1bf0a..f30d430 100644 --- a/exemples/StripAntiRecouvre.pm +++ b/exemples/StripAntiRecouvre.pm @@ -29,17 +29,17 @@ use MTools; use MTools::GUI::MGroup; use MTools::Comp::MMover; use MTools::Comp::MInertie; -use MTools::GUI::MAntiRecouvrementGroup; +use MTools::Comp::MAntiRecouvrementItem; use Data::Dumper; BEGIN { - @ISA = qw /MTools::GUI::MAntiRecouvrementGroup/; + @ISA = qw /MTools::Comp::MAntiRecouvrementItem/; } sub new { my ($class, $parent, $frame, %options) = @_; - my $self = new MTools::GUI::MAntiRecouvrementGroup ($parent, height => 91, width => 351, xmin => 0, ymin => 0, xmax=>800, ymax => 600); + my $self = new MTools::Comp::MAntiRecouvrementItem ($parent, height => 91, width => 351, xmin => 0, ymin => 0, xmax=>800, ymax => 600); bless $self, $class; $self -> recordProperty('callsign', $options{callsign}); -- cgit v1.1