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)"
<[email protected]>
Sent: Thursday, January 29, 2004 12:23 AM
Subject: [perl-win32-gui-users] Timer use with NEM
