That worked great.  Thank you very much.

Len.



                                                                                
                                   
                      "Laurent ROCHER"                                          
                                   
                      <[EMAIL PROTECTED]        To:       
perl-win32-gui-users@lists.sourceforge.net                
                      ernet.fr>                cc:       [EMAIL PROTECTED]      
                         
                                               Subject:  Re: 
[perl-win32-gui-users] How to Flash a Window?         
                      11/17/2003 11:53                                          
                                   
                      AM                                                        
                                   
                      Please respond to                                         
                                   
                      "Laurent ROCHER"                                          
                                   
                                                                                
                                   
                                                                                
                                   




Hi,

Try with Window handle :
    my $ret = $flash -> Call($mainwindow->{-handle}, 1);

Laurent.

> 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.









Reply via email to