Hi,
So I've got this code, and it doesn't bring the window to the top. I
can see that each time I click on the notify icon that the code gets
executed, both because the print statement fires, and the window
redraws. But the window stays behind other windows, in spite of the
BringWindowToTop call. It does that with or without the Hide/Show
sequence, and with or with a Disable/Enable sequence wrapped around the
BringWindowToTop. ActivePerl 5.6.1 build 626, Win32::GUI 0.0.558. What
trick am I missing?
I'm quite willing to throw all this away, and use whatever works... this
is just what sounded like should work from the documentation.
I should note that $mw is using the "parent window" trick to avoid being
on the task bar. I further note that sufficient Alt-Tab keystrokes do
eventually raise the window to the top.
sub notify_icon_Click
{ if ( $mw -> IsVisible ())
{ print "Bring Main to Top\n";
$mw -> Hide ();
$mw -> BringWindowToTop ();
$mw -> Show ();
}
}
--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.
