diff options
Diffstat (limited to 'exemples/StripAntiRecouvre.pm')
| -rw-r--r-- | exemples/StripAntiRecouvre.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/exemples/StripAntiRecouvre.pm b/exemples/StripAntiRecouvre.pm index 4e2c001..5c1bf0a 100644 --- a/exemples/StripAntiRecouvre.pm +++ b/exemples/StripAntiRecouvre.pm @@ -26,7 +26,7 @@ use MTools; use vars qw /@ISA/; use MTools; -use MTools::MGroup; +use MTools::GUI::MGroup; use MTools::Comp::MMover; use MTools::Comp::MInertie; use MTools::GUI::MAntiRecouvrementGroup; @@ -45,11 +45,11 @@ sub new { $self -> recordProperty('callsign', $options{callsign}); $self -> recordProperty('color', 'grey'); - my $gp1 = new MTools::MGroup ($self); - my $gp2 = new MTools::MGroup ($self); - my $gp3 = new MTools::MGroup ($self); - my $gp4 = new MTools::MGroup ($self); - my $gp5 = new MTools::MGroup ($self); + my $gp1 = new MTools::GUI::MGroup ($self); + my $gp2 = new MTools::GUI::MGroup ($self); + my $gp3 = new MTools::GUI::MGroup ($self); + my $gp4 = new MTools::GUI::MGroup ($self); + my $gp5 = new MTools::GUI::MGroup ($self); $self -> {cadre} = minstanciate ("strip_approche_arrival.svg#cadre_strip", $gp1); plink([$self, 'color'], [mfind($self->{cadre},'cadre'),'-fillcolor']); $self -> {infosavion} = minstanciate ("strip_approche_arrival.svg#infosavion", $gp2); |