#############################################################################
## Name:        lib/Wx/Timer.pm
## Purpose:     Wx::Timer and Wx::TimerRunner
## Author:      Mattia Barbon
## Modified by:
## Created:     14/02/2001
## RCS-ID:      $Id: Timer.pm 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright:   (c) 2001-2002 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

package Wx::Timer;

use strict;

sub new {
  my $class = shift;

  @_ == 0                              && return Wx::Timer::newDefault( $class, );
  Wx::_match( @_, $Wx::_wehd_n, 1, 1 ) && return Wx::Timer::newEH( $class, @_ );
  Wx::_croak Wx::_ovl_error;
}

package Wx::TimerRunner;

use strict;

sub new {
  my $class = shift;
  my $this = { TIMER => shift };

  if( @_ > 0 ) { $this->{TIMER}->Start( @_ ) }

  bless $this, $class;

  $this;
}

sub DESTROY {
  my $this = shift;

  $this->{TIMER}->Stop if $this->{TIMER}->IsRunning;
}

sub Start {
  my( $this, $milliseconds, $oneshot ) = @_;

  $this->{TIMER}->Start( $milliseconds, $oneshot );
}

1;

# Local variables: #
# mode: cperl #
# End: #