Здравствуйте Jeremy,
Thursday, August 04, 2005, 3:38:52 PM, Вы написали:
>>In this script timer not works. I know because event handler was never
>>executed (no output to console). But when I remove onTerminate
>>parameter when creating main window and use old event model
>>(mw_Terminate sub) then timer starts to work! Isn't it the bug?
JW> No - I dont think so - try this:
Yes, it works. But what if I need 2 timers? And does it mean that OEM
and NEM can not be mixed?
JW> use strict;
JW> use Win32::GUI;
JW> my $mw = Win32::GUI::Window->new(-name => 'mw',
-size => [400, 400],
-pos => [200, 200],
-title => "FormsTest",
-onTerminate => sub{return -1;},
-onTimer => \&T1_Timer,
JW> );
JW> my $t1 = Win32::GUI::Timer->new($mw, 'T1', 2000);
$mw->>Show;
JW> Win32::GUI::Dialog;
JW> sub T1_Timer {
JW> local $| = 1;
JW> print "Handler starts";
my $flag = $mw->>IsVisible();
JW> if ($flag) {
$mw->>Hide();
JW> }
JW> else {
$mw->>Show();
JW> }
JW> print "Handler ends";
JW> return 1;
JW> }
--
С уважением,
Сергей mailto:[EMAIL PROTECTED]
