From d0abbef391942ce67ca6dfb430e8bdb0ebdda841 Mon Sep 17 00:00:00 2001
From: ribet
Date: Thu, 5 Feb 2009 09:20:23 +0000
Subject: Mise au propre du comportement flicker.

---
 src/MTools/Comp/MFlicker.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/MTools/Comp/MFlicker.pm')

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;
-- 
cgit v1.1