[perl-win32-gui-users] timer do not work

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

Здравствуйте, perl-win32-gui-users,
  I wrote simple script with timer. It's supposed that timer
  hides/shows main window but window is always visible. What's the
  matter?

use strict;
use Win32::GUI;


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

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

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

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

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