f4dbdd7 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Add Mousewheel and Wheel events

f4dbdd7Ryan Trinkle11 years ago

src/Reflex/Dom/Widget/Basic.hs+4

compare with develop

unifiedsplit

@@ -589,6 +589,8 @@ type family EventResultType (en :: EventTag) :: * where

589 EventResultType 'TouchmoveTag = ()

590 EventResultType 'TouchendTag = ()

591 EventResultType 'TouchcancelTag = ()

592+ EventResultType 'MousewheelTag = ()

593+ EventResultType 'WheelTag = ()

592

594

593wrapDomEventsMaybe :: (Functor (Event t), IsElement e, MonadIO m, MonadSample t m, MonadReflexCreateTrigger t m, Reflex t, HasPostGui t h m) => e -> (forall en. EventName en -> EventM e (EventType en) (Maybe (f en))) -> m (EventSelector t (WrapArg f EventName))

595wrapDomEventsMaybe :: (Functor (Event t), IsElement e, MonadIO m, MonadSample t m, MonadReflexCreateTrigger t m, Reflex t, HasPostGui t h m) => e -> (forall en. EventName en -> EventM e (EventType en) (Maybe (f en))) -> m (EventSelector t (WrapArg f EventName))

594wrapDomEventsMaybe element handlers = do

596wrapDomEventsMaybe element handlers = do

@@ -662,6 +664,8 @@ defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of

662 Touchmove -> return ()

664 Touchmove -> return ()

663 Touchend -> return ()

665 Touchend -> return ()

664 Touchcancel -> return ()

666 Touchcancel -> return ()

667+ Mousewheel -> return ()

668+ Wheel -> return ()

665

669

666wrapElement :: forall t h m. (Functor (Event t), MonadIO m, MonadSample t m, MonadReflexCreateTrigger t m, Reflex t, HasPostGui t h m) => (forall en. Element -> EventName en -> EventM Element (EventType en) (Maybe (EventResult en))) -> Element -> m (El t)

670wrapElement :: forall t h m. (Functor (Event t), MonadIO m, MonadSample t m, MonadReflexCreateTrigger t m, Reflex t, HasPostGui t h m) => (forall en. Element -> EventName en -> EventM Element (EventType en) (Maybe (EventResult en))) -> Element -> m (El t)

667wrapElement eh e = do

671wrapElement eh e = do