From 026e394a8e78c52c9c3319408f1b1b66e88a745b Mon Sep 17 00:00:00 2001 From: saal Date: Mon, 4 Jun 2007 13:10:07 +0000 Subject: utilisation du constructeur de MObjet + suppression du use MTools::MObjet --- src/MTools/MTimer.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/MTools/MTimer.pm') diff --git a/src/MTools/MTimer.pm b/src/MTools/MTimer.pm index 68d1a00..9377706 100644 --- a/src/MTools/MTimer.pm +++ b/src/MTools/MTimer.pm @@ -39,7 +39,6 @@ package MTools::MTimer; use strict; use MTools; -use MTools::MObjet; use vars qw /@ISA/; @@ -53,7 +52,7 @@ use Tk; sub new { my ($class, $timeout, $repeat, $callback, %options) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; $repeat = 0 if !defined $repeat; -- cgit v1.1