Not sure of the exact syntax but it would be something like:

if ($Window->GetFocus())
{
        &do_something;
}



> -----Original Message-----
> From: Jonathan Southwick [mailto:jsouthwi@allegheny.edu]
> Sent: Wednesday, November 13, 2002 11:45
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] need subroutine to run when
> Window gets
> focus
>
>
>
> Is there any way to get a routine to run when a window is
> brought to the
> top or receives focus?  That seems to be the only way I can
> get a DC object
> to refresh after it is covered by another window.
>
> Jonathan
>
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by: Are you worried about
> your web server security? Click here for a FREE Thawte
> Apache SSL Guide and answer your Apache SSL security
> needs: http://www.gothawte.com/rd523.html
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>