[perl-win32-gui-users] How to Flash a Window?

[leonard . jacobsen]

Does anyone know how I could go about making my main window flash when a
certain event has occured?

I've tried something like the following code, but can't seem to get it to
work.

$mainwindow = Win32::GUI::Window -> new (
      -name => "Mainwindow",
      -text => "Main Window",
      -width      => 100,
      -height     => 100,
);

.....

my $flash = new Win32::API('user32','FlashWindow',['N','N'],'N');
my $ret = $flash -> Call($mainwindow, 1);

Thanks.

Len.