aboutsummaryrefslogtreecommitdiff
path: root/src/MTools/Comp/MFlicker.pm
diff options
context:
space:
mode:
Diffstat (limited to 'src/MTools/Comp/MFlicker.pm')
-rw-r--r--src/MTools/Comp/MFlicker.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/MTools/Comp/MFlicker.pm b/src/MTools/Comp/MFlicker.pm
index fd622c8..d4ea0bd 100644
--- a/src/MTools/Comp/MFlicker.pm
+++ b/src/MTools/Comp/MFlicker.pm
@@ -31,19 +31,18 @@ use strict;
use MTools;
use MTools::MObjet;
use MTools::MTimer;
+use Tk;
use vars qw /@ISA/;
BEGIN
{
- @ISA = qw /MTools::MSwitch/;
+ @ISA = qw /MTools::MObjet/;
}
-use Tk;
-
sub new {
my ($class, $target, $periode) = @_;
- my $self = new MTools::MObjet ();
+ my $self = new MTools::MObjet();
$self -> {__target} = $target;
$self -> {__target} -> mconfigure (-visible => 0);
bless $self, $class;
@@ -73,7 +72,7 @@ sub show {
sub hide {
my ($self) = @_;
$self -> {__timer} -> stop ();
- $self -> mconfigure ('state' => 'unvisible');
+ $self -> {__target} -> mconfigure (-visible => 0);
}
1;