5f626cd · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Make Dblclick event return mouse coordinates

5f626cdRyan Trinkle10 years ago

src/Reflex/Dom/Builder/Class/Events.hs+1−1

@@ -108,7 +108,7 @@ newtype EventResult en = EventResult { unEventResult :: EventResultType en }

108

109type family EventResultType (en :: EventTag) :: * where

110 EventResultType 'ClickTag = ()

111− EventResultType 'DblclickTag = ()

111+ EventResultType 'DblclickTag = (Int, Int)

112 EventResultType 'KeypressTag = Int

113 EventResultType 'KeydownTag = Int

114 EventResultType 'KeyupTag = Int

src/Reflex/Dom/Builder/Immediate.hs+2−2

@@ -551,7 +551,7 @@ type family EventType en where

551defaultDomEventHandler :: IsElement e => e -> EventName en -> EventM e (EventType en) (Maybe (EventResult en))

552defaultDomEventHandler e evt = fmap (Just . EventResult) $ case evt of

553 Click -> return ()

554− Dblclick -> return ()

554+ Dblclick -> getMouseEventCoords

555 Keypress -> getKeyEvent

556 Scroll -> getScrollTop e

557 Keydown -> getKeyEvent

@@ -601,7 +601,7 @@ defaultDomEventHandler e evt = fmap (Just . EventResult) $ case evt of

601defaultDomWindowEventHandler :: DOM.Window -> EventName en -> EventM DOM.Window (EventType en) (Maybe (EventResult en))

602defaultDomWindowEventHandler w evt = fmap (Just . EventResult) $ case evt of

603 Click -> return ()

604− Dblclick -> return ()

604+ Dblclick -> getMouseEventCoords

605 Keypress -> getKeyEvent

606 Scroll -> Window.getScrollY w

607 Keydown -> getKeyEvent