diff options
Diffstat (limited to 'exemples/Strip.pm')
-rw-r--r-- | exemples/Strip.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/exemples/Strip.pm b/exemples/Strip.pm index 2997e25..59d800f 100644 --- a/exemples/Strip.pm +++ b/exemples/Strip.pm @@ -20,7 +20,7 @@ use strict; use vars qw /@ISA/; use MTools; -use MTools::MGroup; +use MTools::GUI::MGroup; use MTools::Widget::MToggleBouton; use MTools::Comp::MMover; use MTools::Comp::MReconizer; @@ -28,12 +28,12 @@ use MTools::Comp::MInertie; BEGIN { - @ISA = qw /MTools::MGroup/; + @ISA = qw /MTools::GUI::MGroup/; } sub new { my ($class, $parent, %options) = @_; - my $self = new MTools::MGroup ($parent); + my $self = new MTools::GUI::MGroup ($parent); bless $self, $class; $self -> recordEvent ('SET_FOCUS'); @@ -41,10 +41,10 @@ sub new { $self -> recordProperty ('x', 0); $self -> recordProperty ('y', 0); - 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 $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); # Instanciation d'un petit bouton rouge qui aura pour objectif # de fixer ou non le strip (desactiver le comportement de mover) |