jsaddle-dom-0.10.0.0: src/JSDOM/Generated/HTMLObjectElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.HTMLObjectElement
       (checkValidity, checkValidity_, getSVGDocument, getSVGDocument_, getSVGDocumentUnsafe, getSVGDocumentUnchecked, reportValidity, reportValidity_, setCustomValidity, setData, getData, setType, getType, setName, getName, getForm, getFormUnsafe, getFormUnchecked, setWidth, getWidth, setHeight, getHeight, getContentDocument, getContentDocumentUnsafe, getContentDocumentUnchecked, getContentWindow, getContentWindowUnsafe, getContentWindowUnchecked, getWillValidate, getValidity, getValidationMessage, setAlign, getAlign, setArchive, getArchive, setCode, getCode, setDeclare, getDeclare, setHspace, getHspace, setStandby, getStandby, setVspace, getVspace, setCodeBase, getCodeBase, setCodeType, getCodeType, setUseMap, getUseMap, setBorder, getBorder, HTMLObjectElement(..), gTypeHTMLObjectElement)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/checkValidity MDN HTMLObjectElement.checkValidity documentation>
checkValidity :: (MonadDOM m) => HTMLObjectElement -> m Bool
checkValidity self = liftDOM (((self ^. jsf "checkValidity" ()) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/checkValidity MDN HTMLObjectElement.checkValidity documentation>
checkValidity_ :: (MonadDOM m) => HTMLObjectElement -> m ()
checkValidity_ self = liftDOM (void (self ^. jsf "checkValidity" ()))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/getSVGDocument MDN HTMLObjectElement.getSVGDocument documentation>
getSVGDocument :: (MonadDOM m) => HTMLObjectElement -> m (Maybe Document)
getSVGDocument self = liftDOM (((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/getSVGDocument MDN HTMLObjectElement.getSVGDocument documentation>
getSVGDocument_ :: (MonadDOM m) => HTMLObjectElement -> m ()
getSVGDocument_ self = liftDOM (void (self ^. jsf "getSVGDocument" ()))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/getSVGDocument MDN HTMLObjectElement.getSVGDocument documentation>
getSVGDocumentUnsafe :: (MonadDOM m, HasCallStack) => HTMLObjectElement -> m Document
getSVGDocumentUnsafe self = liftDOM ((((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/getSVGDocument MDN HTMLObjectElement.getSVGDocument documentation>
getSVGDocumentUnchecked :: (MonadDOM m) => HTMLObjectElement -> m Document
getSVGDocumentUnchecked self = liftDOM (((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/reportValidity MDN HTMLObjectElement.reportValidity documentation>
reportValidity :: (MonadDOM m) => HTMLObjectElement -> m Bool
reportValidity self = liftDOM (((self ^. jsf "reportValidity" ()) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/reportValidity MDN HTMLObjectElement.reportValidity documentation>
reportValidity_ :: (MonadDOM m) => HTMLObjectElement -> m ()
reportValidity_ self = liftDOM (void (self ^. jsf "reportValidity" ()))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/setCustomValidity MDN HTMLObjectElement.setCustomValidity documentation>
setCustomValidity :: (MonadDOM m, ToJSString error) => HTMLObjectElement -> error -> m ()
setCustomValidity self error = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/data MDN HTMLObjectElement.data documentation>
setData :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setData self val = liftDOM (void (self ^. jss "data" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/data MDN HTMLObjectElement.data documentation>
getData :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getData self = liftDOM (((self ^. js "data") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/type MDN HTMLObjectElement.type documentation>
setType :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setType self val = liftDOM (void (self ^. jss "type" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/type MDN HTMLObjectElement.type documentation>
getType :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getType self = liftDOM (((self ^. js "type") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/name MDN HTMLObjectElement.name documentation>
setName :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setName self val = liftDOM (void (self ^. jss "name" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/name MDN HTMLObjectElement.name documentation>
getName :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getName self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/form MDN HTMLObjectElement.form documentation>
getForm :: (MonadDOM m) => HTMLObjectElement -> m (Maybe HTMLFormElement)
getForm self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/form MDN HTMLObjectElement.form documentation>
getFormUnsafe :: (MonadDOM m, HasCallStack) => HTMLObjectElement -> m HTMLFormElement
getFormUnsafe self = liftDOM ((((self ^. js "form") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/form MDN HTMLObjectElement.form documentation>
getFormUnchecked :: (MonadDOM m) => HTMLObjectElement -> m HTMLFormElement
getFormUnchecked self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/width MDN HTMLObjectElement.width documentation>
setWidth :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setWidth self val = liftDOM (void (self ^. jss "width" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/width MDN HTMLObjectElement.width documentation>
getWidth :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getWidth self = liftDOM (((self ^. js "width") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/height MDN HTMLObjectElement.height documentation>
setHeight :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setHeight self val = liftDOM (void (self ^. jss "height" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/height MDN HTMLObjectElement.height documentation>
getHeight :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getHeight self = liftDOM (((self ^. js "height") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/contentDocument MDN HTMLObjectElement.contentDocument documentation>
getContentDocument :: (MonadDOM m) => HTMLObjectElement -> m (Maybe Document)
getContentDocument self = liftDOM (((self ^. js "contentDocument") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/contentDocument MDN HTMLObjectElement.contentDocument documentation>
getContentDocumentUnsafe :: (MonadDOM m, HasCallStack) => HTMLObjectElement -> m Document
getContentDocumentUnsafe self = liftDOM ((((self ^. js "contentDocument") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/contentDocument MDN HTMLObjectElement.contentDocument documentation>
getContentDocumentUnchecked :: (MonadDOM m) => HTMLObjectElement -> m Document
getContentDocumentUnchecked self = liftDOM (((self ^. js "contentDocument") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/contentWindow MDN HTMLObjectElement.contentWindow documentation>
getContentWindow :: (MonadDOM m) => HTMLObjectElement -> m (Maybe Window)
getContentWindow self = liftDOM (((self ^. js "contentWindow") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/contentWindow MDN HTMLObjectElement.contentWindow documentation>
getContentWindowUnsafe :: (MonadDOM m, HasCallStack) => HTMLObjectElement -> m Window
getContentWindowUnsafe self = liftDOM ((((self ^. js "contentWindow") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/contentWindow MDN HTMLObjectElement.contentWindow documentation>
getContentWindowUnchecked :: (MonadDOM m) => HTMLObjectElement -> m Window
getContentWindowUnchecked self = liftDOM (((self ^. js "contentWindow") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/willValidate MDN HTMLObjectElement.willValidate documentation>
getWillValidate :: (MonadDOM m) => HTMLObjectElement -> m Bool
getWillValidate self = liftDOM (((self ^. js "willValidate") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/validity MDN HTMLObjectElement.validity documentation>
getValidity :: (MonadDOM m) => HTMLObjectElement -> m ValidityState
getValidity self = liftDOM (((self ^. js "validity") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/validationMessage MDN HTMLObjectElement.validationMessage documentation>
getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getValidationMessage self = liftDOM (((self ^. js "validationMessage") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-align HTMLObjectElement.align specification>
setAlign :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setAlign self val = liftDOM (void (self ^. jss "align" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-align HTMLObjectElement.align specification>
getAlign :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getAlign self = liftDOM (((self ^. js "align") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-archive HTMLObjectElement.archive specification>
setArchive :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setArchive self val = liftDOM (void (self ^. jss "archive" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-archive HTMLObjectElement.archive specification>
getArchive :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getArchive self = liftDOM (((self ^. js "archive") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-code HTMLObjectElement.code specification>
setCode :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCode self val = liftDOM (void (self ^. jss "code" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-code HTMLObjectElement.code specification>
getCode :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCode self = liftDOM (((self ^. js "code") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-declare HTMLObjectElement.declare specification>
setDeclare :: (MonadDOM m) => HTMLObjectElement -> Bool -> m ()
setDeclare self val = liftDOM (void (self ^. jss "declare" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-declare HTMLObjectElement.declare specification>
getDeclare :: (MonadDOM m) => HTMLObjectElement -> m Bool
getDeclare self = liftDOM (((self ^. js "declare") >>= valToBool))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-hspace HTMLObjectElement.hspace specification>
setHspace :: (MonadDOM m) => HTMLObjectElement -> Word -> m ()
setHspace self val = liftDOM (void (self ^. jss "hspace" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-hspace HTMLObjectElement.hspace specification>
getHspace :: (MonadDOM m) => HTMLObjectElement -> m Word
getHspace self = liftDOM ((P.round <$> ((self ^. js "hspace") >>= valToNumber)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-standby HTMLObjectElement.standby specification>
setStandby :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setStandby self val = liftDOM (void (self ^. jss "standby" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-standby HTMLObjectElement.standby specification>
getStandby :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getStandby self = liftDOM (((self ^. js "standby") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-vspace HTMLObjectElement.vspace specification>
setVspace :: (MonadDOM m) => HTMLObjectElement -> Word -> m ()
setVspace self val = liftDOM (void (self ^. jss "vspace" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-vspace HTMLObjectElement.vspace specification>
getVspace :: (MonadDOM m) => HTMLObjectElement -> m Word
getVspace self = liftDOM ((P.round <$> ((self ^. js "vspace") >>= valToNumber)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-codebase HTMLObjectElement.codeBase specification>
setCodeBase :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCodeBase self val = liftDOM (void (self ^. jss "codeBase" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-codebase HTMLObjectElement.codeBase specification>
getCodeBase :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCodeBase self = liftDOM (((self ^. js "codeBase") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-codetype HTMLObjectElement.codeType specification>
setCodeType :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCodeType self val = liftDOM (void (self ^. jss "codeType" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-codetype HTMLObjectElement.codeType specification>
getCodeType :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCodeType self = liftDOM (((self ^. js "codeType") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/useMap MDN HTMLObjectElement.useMap documentation>
setUseMap :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setUseMap self val = liftDOM (void (self ^. jss "useMap" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLObjectElement/useMap MDN HTMLObjectElement.useMap documentation>
getUseMap :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getUseMap self = liftDOM (((self ^. js "useMap") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-border HTMLObjectElement.border specification>
setBorder :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setBorder self val = liftDOM (void (self ^. jss "border" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-object-border HTMLObjectElement.border specification>
getBorder :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getBorder self = liftDOM (((self ^. js "border") >>= fromJSValUnchecked))