add set value by event capability to textArea
commitd6a1c772e4963bf2eb44a0ed5e006a910dce6b0f
authorAli Abrar <aliabrar@gmail.com>
dateSun 8 Mar 2015, 20:14 (12 years ago)
parentf992dc4
src/Reflex/Dom/Widget/Input.hs+1
@@ -124,6 +124,7 @@ textArea initial eSet attrs = do
124124 unsubscribeOnfocus <- liftIO $ elementOnfocus e $ liftIO $ do
125125 postGui $ runWithActions [eChangeFocusTrigger :=> True]
126126 return $ liftIO $ unsubscribeOnblur >> unsubscribeOnfocus
127+ performEvent_ $ fmap (liftIO . htmlTextAreaElementSetValue e) eSet
127128 f <- holdDyn False eChangeFocus
128129 ev <- wrapDomEvent e elementOninput $ liftIO $ htmlTextAreaElementGetValue e
129130 v <- holdDyn "" ev