@@ -623,7 +623,7 @@ getKeyEvent = do
623623getMouseEventCoords :: EventM e MouseEvent (Int, Int)
624624getMouseEventCoords = do
625625 e <- event
626− bisequence (getX e, getY e)
626+ bisequence (getClientX e, getClientY e)
627627
628628defaultDomEventHandler :: IsElement e => e -> EventName en -> EventM e (EventType en) (Maybe (EventResult en))
629629defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of