Re[2]: [SPAM] - [perl-win32-gui-users] timer do not work - Email found in subject

[Сергей Черниенко]

Hello Steve,

Wednesday, August 03, 2005, 6:36:10 PM, You wrote:

LS> Change
LS> my $mw = Win32::GUI ...
LS> To
LS> our $mw = Win32::GUI ...

LS> This will allow the timer subroutine to see the $mw object.

    No luck. $mw visible all the time as before. And could You explain
    why such change would help?

LS> use strict;
LS> use Win32::GUI;


LS> my $mw = Win32::GUI::Window->new(-size => [400, 400],
-pos =>> [200, 200],
-title =>> "FormsTest",
-onTerminate =>> sub{return-1;},
LS> );

$mw->>AddTimer("CheckDir", 2000);

$mw->>Show;
LS> Win32::GUI::Dialog;

LS> sub CheckDir_Timer {
$mw->>Hide() if $mw->IsVisible();
$mw->>Show() unless $mw->IsVisible();
LS> return 1;
LS> }

LS> Thanks.



-- 
С уважением,
 Сергей                            mailto:[EMAIL PROTECTED]