diff options
Diffstat (limited to 'src/MTools/Widget/MBouton.pm')
| -rw-r--r-- | src/MTools/Widget/MBouton.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/MTools/Widget/MBouton.pm b/src/MTools/Widget/MBouton.pm index 73c0fc0..fbb1bbe 100644 --- a/src/MTools/Widget/MBouton.pm +++ b/src/MTools/Widget/MBouton.pm @@ -18,7 +18,7 @@ package MTools::Widget::MBouton; use strict; use MTools; -use MTools::MGroup; +use MTools::GUI::MGroup; use MTools::MSwitch; use MTools::MState; use MTools::MTimer; @@ -27,12 +27,12 @@ use vars qw /@ISA/; BEGIN { - @ISA = qw /MTools::MGroup/; + @ISA = qw /MTools::GUI::MGroup/; } sub new { my ($class, %options) = @_; - my $self = new MTools::MGroup ($options {parent}); + my $self = new MTools::GUI::MGroup ($options {parent}); bless $self, $class; @@ -66,7 +66,7 @@ sub new { plink ([$self, 'text'], [$txt, '-text']); } - $self -> {gp_over} = new MTools::MGroup ($self); + $self -> {gp_over} = new MTools::GUI::MGroup ($self); push (@gon, $self -> {gp_over}); push (@goff, $self -> {gp_over}); push (@gover, $self -> {gp_over}); |