Re: [perl-win32-gui-users] Timer use with NEM

[Jez White]

Hi,

I've altered your code slightly - and it works for me. There is a an
NEM -onTimer event which is placed on the window. It handles all timers for
that window -  the name of the timer is passed to the handling sub.

Does that make any sense?

Cheers,

jez.

############################################
#!perl -w

use Win32::GUI;
use strict;
my ($Sb);

my $winHeight = 100;
my $main = Win32::GUI::Window->new(
-name => 'Main',
-width => 300,
-height => $winHeight,
-text => "  Main Form",
          -minsize => [300,$winHeight],
          -maxsize => [300,$winHeight],
-onTimer => \&T1_Timer,
          );

addActionButtons();
addStatusBar();

$main->AddTimer("T1",3000);
$main->Show();
Win32::GUI::Dialog();

sub addActionButtons
{

my $butTop = ($winHeight - 90);
my $Button_Run = $main-> AddButton(
-name => "Button_Run",
-text => "Run",
    -events => {Click => \&Button_Run_Click },
-default => 1,
-size => [100,40],
-left => 20,
-top => $butTop,
    );
}
sub addStatusBar
{
  $Sb = $main->AddStatusBar();
}
sub Button_Run_Click
{
  $Sb->Text("Run Button Clicked");
}
sub T1_Timer
{
  my ($window,$timername)[EMAIL PROTECTED];
  $Sb->Text("Timer went Off $timername");
}
sub Main_Terminate
{
  -1;
}

#####################################################3



----- Original Message ----- 
From: "Ross Clunie" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED] Sourceforge. Net (E-mail)"
<perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, January 29, 2004 12:23 AM
Subject: [perl-win32-gui-users] Timer use with NEM