diff options
Diffstat (limited to 'exemples')
| -rw-r--r-- | exemples/StripAntiRecouvre.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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}); |