OpenEuphoria

Re: wxEuphoria: wxEVT_MOUSEWHEEL Stuff

• Posted by cklester <cklester at yahoo.com> Dec 05, 2005
• 551 views

cklester wrote:
> 
> I'm capturing the mousewheel movement, but can't figure out if the wheel is
> going + or -. The control is a wxListCtrl. Interestingly... the event is
> triggered with a CTRL+Scroll instead of a regular scroll. That's nice, but
> is it intended? :)
> 
> Anyway, here's what it looks like... What need I do differently?!
> 
> procedure adjust(atom this, atom event_type, atom id, atom event)
> atom item
> --  ?call_member(wxMouseEvent_GetWheelDelta,alist,{})
> --  ?call_member(wxMouseEvent_GetWheelRotation,alist,{})
>     ?call_cdecl(wxMouseEvent_GetWheelRotation,{})
>     ?call_cdecl(wxMouseEvent_GetWheelDelta,{})
> --  ?call_member(wxMouseEvent_GetWheelRotation,frame_Main,{})
> end procedure
> set_event_handler( {frame_Main,alist}, -1,
>   wxEVT_MOUSEWHEEL,routine_id( "adjust" ))

Found out by studying mouse_event_position() that I need to use

    call_member_s( wxMouseEvent_GetWheelRotation, event, {})

which is new to me! :)

-=ck
"Programming in a state of Euphoria."
http://www.cklester.com/euphoria/