@@ -35,6 +35,7 @@ data El t
3535 = El { _el_element :: HTMLElement
3636 , _el_clicked :: Event t ()
3737 , _el_keypress :: Event t Int
38+ , _el_scrolled :: Event t Int
3839 }
3940
4041class Attributes m a where
@@ -250,7 +251,8 @@ wrapElement :: (Functor (Event t), MonadIO m, MonadSample t m, MonadReflexCreate
250251wrapElement e = do
251252 clicked <- wrapDomEvent e elementOnclick (return ())
252253 keypress <- wrapDomEvent e elementOnkeypress $ liftIO . uiEventGetKeyCode =<< event
253− return $ El e clicked keypress
254+ scrolled <- wrapDomEvent e elementOnscroll $ liftIO $ elementGetScrollTop e
255+ return $ El e clicked keypress scrolled
254256
255257elDynAttr' elementTag attrs child = do
256258 (e, result) <- buildElement elementTag attrs child