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

git.iko.soy/reflex-dom

Make Dblclick event return mouse coordinates

commit5f626cd8f4687e05785e216a6f2b1d005a7cf10f authorRyan Trinkle <ryan.trinkle@gmail.com> dateWed 26 Oct 2016, 15:13 (10 years ago) parent89ebec2

2 files changed+3−3

unifiedsplit

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

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

108108

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

110110 EventResultType 'ClickTag = ()

111− EventResultType 'DblclickTag = ()

111+ EventResultType 'DblclickTag = (Int, Int)

112112 EventResultType 'KeypressTag = Int

113113 EventResultType 'KeydownTag = Int

114114 EventResultType 'KeyupTag = Int

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

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

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

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

553553 Click -> return ()

554− Dblclick -> return ()

554+ Dblclick -> getMouseEventCoords

555555 Keypress -> getKeyEvent

556556 Scroll -> getScrollTop e

557557 Keydown -> getKeyEvent

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

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

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

603603 Click -> return ()

604− Dblclick -> return ()

604+ Dblclick -> getMouseEventCoords

605605 Keypress -> getKeyEvent

606606 Scroll -> Window.getScrollY w

607607 Keydown -> getKeyEvent