module HJScript.Objects.XMLHttpRequest
(
XMLHttpRequest(..),
statusReq,
onReadyStateChange,
responseXML,
responseText,
readyState,
openReq,
sendReq,
setRequestHeader
) where
import HJScript.Lang
import HJScript.DOM.Document (Document)
data XMLHttpRequest = XMLHttpRequest deriving Show
instance IsClass XMLHttpRequest
instance HasConstructor XMLHttpRequest () ()
statusReq :: JObject XMLHttpRequest -> JInt
statusReq = deref "status"
onReadyStateChange :: JObject XMLHttpRequest -> Var (() -> ())
onReadyStateChange = derefVar "onreadystatechange"
responseXML :: JObject XMLHttpRequest -> JObject Document
responseXML = deref "responseXML"
responseText :: JObject XMLHttpRequest -> JString
responseText = deref "responseText"
readyState :: JObject XMLHttpRequest -> JInt
readyState = deref "readyState"
openReq :: JString -> JString -> JBool -> JObject XMLHttpRequest -> HJScript ()
openReq a1 a2 a3 = callVoidMethod "open" (a1, a2, a3)
sendReq :: JString -> JObject XMLHttpRequest -> HJScript ()
sendReq = callVoidMethod "send"
setRequestHeader :: JString -> JString -> JObject XMLHttpRequest -> HJScript ()
setRequestHeader = curry $ callVoidMethod "setRequestHeader"