OK!
Problem sorted out, notes following...
TrackMouse does not make the events fire continuously until UnTrackMouse
is called, but rather has them fire once, then needs to be called AGAIN
after each event firing to make it function properly!
SO:
$w->Hook(WM_MOUSEHOVER, \&mouseHover);
$w->Hook(WM_MOUSELEAVE, \&mouseLeave);
$w->TrackMouse(100,WM_MOUSEHOVER);
Sub mouseHover{
#blah blah
$w->TrackMouse(100,WM_MOUSELEAVE);
Return 1;
}
Sub mouseLeave {
#essentially the reverse of mouseHover
}
Jason P.
Ps- sry about the formatting, stupid Outlook @ work...
________________________________
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Plum, Jason
Sent: Wednesday, December 28, 2005 5:12 PM
To: [email protected]
Subject: [perl-win32-gui-users] TrackMouse and MouseX methodology: addt
As an addition to what I just sent (my apologies, im way out of it
today), plz note that for some reason:
$win->TrackMouse();
$win->Hook(WM_MOUSEHOVER,\&abMouseHooks);
$win->Hook(WM_MOUSELEAVE,\&abMouseHooks);
Ends up firing the subroutine once at initialization, and then never
again.
Jason P.
