Mise au propre du comportement flicker.

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;