Permalink
Browse files

* Binding for |unbind|

  • Loading branch information...
1 parent b61a5c3 commit 38904ce73e83c5aa090e09ee7ca16402a22eefc2 @spockz spockz committed Jan 19, 2012
Showing with 12 additions and 0 deletions.
  1. +12 −0 uhc-jscript/src/Language/UHC/JScript/JQuery/JQuery.hs
@@ -88,6 +88,12 @@ foreign import jscript "%1.val()"
valJSString :: JQuery -> IO JSString
+setValString :: JQuery -> String -> IO ()
+setValString jq = _setValString jq . toJS
+
+foreign import jscript "%1.val(%2)"
+ _setValString :: JQuery -> JSString -> IO ()
+
-------------------------------------------------------------------------------
-- Manipulation
@@ -206,6 +212,12 @@ bind jq event eh = do handler <- mkJEventHandler eh
foreign import jscript "%1.bind(%*)"
_bind :: JQuery -> JSString -> JEventHandler -> IO ()
+
+unbind :: JQuery -> JEventType -> IO ()
+unbind jq = _unbind jq . toJS
+
+foreign import jscript "%1.unbind(%*)"
+ _unbind :: JQuery -> JSString -> IO ()
blur :: JQuery -> JEventHandler -> IO ()

0 comments on commit 38904ce

Please sign in to comment.