OpenEuphoria

wxEuphoria: wxEVT_MOUSEWHEEL Stuff

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

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" ))

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