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: perl-win32-gui-users-admin@lists.sourceforge.net [mailto:perl-win32-gui-users-admin@lists.sourceforge.net] On Behalf Of Plum, Jason
Sent: Wednesday, December 28, 2005 5:12 PM
To: perl-win32-gui-users@lists.sourceforge.net
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.