@@ -124,6 +124,7 @@ textArea initial eSet attrs = do
124 unsubscribeOnfocus <- liftIO $ elementOnfocus e $ liftIO $ do
124 unsubscribeOnfocus <- liftIO $ elementOnfocus e $ liftIO $ do
125 postGui $ runWithActions [eChangeFocusTrigger :=> True]
125 postGui $ runWithActions [eChangeFocusTrigger :=> True]
126 return $ liftIO $ unsubscribeOnblur >> unsubscribeOnfocus
126 return $ liftIO $ unsubscribeOnblur >> unsubscribeOnfocus
127+ performEvent_ $ fmap (liftIO . htmlTextAreaElementSetValue e) eSet
127 f <- holdDyn False eChangeFocus
128 f <- holdDyn False eChangeFocus
128 ev <- wrapDomEvent e elementOninput $ liftIO $ htmlTextAreaElementGetValue e
129 ev <- wrapDomEvent e elementOninput $ liftIO $ htmlTextAreaElementGetValue e
129 v <- holdDyn "" ev
130 v <- holdDyn "" ev