diff options
Diffstat (limited to 'src/MTools')
| -rw-r--r-- | src/MTools/Comp/MFlicker.pm | 9 |
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; |