module JSDOM.Generated.HTMLObjectElement
(checkValidity, checkValidity_, setCustomValidity, getSVGDocument,
getSVGDocument_, getSVGDocumentUnsafe, getSVGDocumentUnchecked,
getForm, getFormUnsafe, getFormUnchecked, setCode, getCode,
setAlign, getAlign, setArchive, getArchive, setBorder, getBorder,
setCodeBase, getCodeBase, setCodeType, getCodeType, setData,
getData, setDeclare, getDeclare, setHeight, getHeight, setHspace,
getHspace, setName, getName, setStandby, getStandby, setType,
getType, setUseMap, getUseMap, setVspace, getVspace, setWidth,
getWidth, getWillValidate, getValidity, getValidityUnsafe,
getValidityUnchecked, getValidationMessage, getContentDocument,
getContentDocumentUnsafe, getContentDocumentUnchecked,
HTMLObjectElement(..), gTypeHTMLObjectElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
checkValidity :: (MonadDOM m) => HTMLObjectElement -> m Bool
checkValidity self
= liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool)
checkValidity_ :: (MonadDOM m) => HTMLObjectElement -> m ()
checkValidity_ self
= liftDOM (void (self ^. jsf "checkValidity" ()))
setCustomValidity ::
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> Maybe error -> m ()
setCustomValidity self error
= liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))
getSVGDocument ::
(MonadDOM m) => HTMLObjectElement -> m (Maybe SVGDocument)
getSVGDocument self
= liftDOM ((self ^. jsf "getSVGDocument" ()) >>= fromJSVal)
getSVGDocument_ :: (MonadDOM m) => HTMLObjectElement -> m ()
getSVGDocument_ self
= liftDOM (void (self ^. jsf "getSVGDocument" ()))
getSVGDocumentUnsafe ::
(MonadDOM m, HasCallStack) => HTMLObjectElement -> m SVGDocument
getSVGDocumentUnsafe self
= liftDOM
(((self ^. jsf "getSVGDocument" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getSVGDocumentUnchecked ::
(MonadDOM m) => HTMLObjectElement -> m SVGDocument
getSVGDocumentUnchecked self
= liftDOM
((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked)
getForm ::
(MonadDOM m) => HTMLObjectElement -> m (Maybe HTMLFormElement)
getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)
getFormUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLObjectElement -> m HTMLFormElement
getFormUnsafe self
= liftDOM
(((self ^. js "form") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getFormUnchecked ::
(MonadDOM m) => HTMLObjectElement -> m HTMLFormElement
getFormUnchecked self
= liftDOM ((self ^. js "form") >>= fromJSValUnchecked)
setCode ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCode self val = liftDOM (self ^. jss "code" (toJSVal val))
getCode ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCode self = liftDOM ((self ^. js "code") >>= fromJSValUnchecked)
setAlign ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))
getAlign ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getAlign self
= liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
setArchive ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setArchive self val = liftDOM (self ^. jss "archive" (toJSVal val))
getArchive ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getArchive self
= liftDOM ((self ^. js "archive") >>= fromJSValUnchecked)
setBorder ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))
getBorder ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getBorder self
= liftDOM ((self ^. js "border") >>= fromJSValUnchecked)
setCodeBase ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCodeBase self val
= liftDOM (self ^. jss "codeBase" (toJSVal val))
getCodeBase ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCodeBase self
= liftDOM ((self ^. js "codeBase") >>= fromJSValUnchecked)
setCodeType ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCodeType self val
= liftDOM (self ^. jss "codeType" (toJSVal val))
getCodeType ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCodeType self
= liftDOM ((self ^. js "codeType") >>= fromJSValUnchecked)
setData ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setData self val = liftDOM (self ^. jss "data" (toJSVal val))
getData ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getData self = liftDOM ((self ^. js "data") >>= fromJSValUnchecked)
setDeclare :: (MonadDOM m) => HTMLObjectElement -> Bool -> m ()
setDeclare self val = liftDOM (self ^. jss "declare" (toJSVal val))
getDeclare :: (MonadDOM m) => HTMLObjectElement -> m Bool
getDeclare self = liftDOM ((self ^. js "declare") >>= valToBool)
setHeight ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))
getHeight ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getHeight self
= liftDOM ((self ^. js "height") >>= fromJSValUnchecked)
setHspace :: (MonadDOM m) => HTMLObjectElement -> Int -> m ()
setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))
getHspace :: (MonadDOM m) => HTMLObjectElement -> m Int
getHspace self
= liftDOM (round <$> ((self ^. js "hspace") >>= valToNumber))
setName ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setName self val = liftDOM (self ^. jss "name" (toJSVal val))
getName ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
setStandby ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setStandby self val = liftDOM (self ^. jss "standby" (toJSVal val))
getStandby ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getStandby self
= liftDOM ((self ^. js "standby") >>= fromJSValUnchecked)
setType ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setType self val = liftDOM (self ^. jss "type" (toJSVal val))
getType ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
setUseMap ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setUseMap self val = liftDOM (self ^. jss "useMap" (toJSVal val))
getUseMap ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getUseMap self
= liftDOM ((self ^. js "useMap") >>= fromJSValUnchecked)
setVspace :: (MonadDOM m) => HTMLObjectElement -> Int -> m ()
setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))
getVspace :: (MonadDOM m) => HTMLObjectElement -> m Int
getVspace self
= liftDOM (round <$> ((self ^. js "vspace") >>= valToNumber))
setWidth ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))
getWidth ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getWidth self
= liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
getWillValidate :: (MonadDOM m) => HTMLObjectElement -> m Bool
getWillValidate self
= liftDOM ((self ^. js "willValidate") >>= valToBool)
getValidity ::
(MonadDOM m) => HTMLObjectElement -> m (Maybe ValidityState)
getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)
getValidityUnsafe ::
(MonadDOM m, HasCallStack) => HTMLObjectElement -> m ValidityState
getValidityUnsafe self
= liftDOM
(((self ^. js "validity") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getValidityUnchecked ::
(MonadDOM m) => HTMLObjectElement -> m ValidityState
getValidityUnchecked self
= liftDOM ((self ^. js "validity") >>= fromJSValUnchecked)
getValidationMessage ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getValidationMessage self
= liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)
getContentDocument ::
(MonadDOM m) => HTMLObjectElement -> m (Maybe Document)
getContentDocument self
= liftDOM ((self ^. js "contentDocument") >>= fromJSVal)
getContentDocumentUnsafe ::
(MonadDOM m, HasCallStack) => HTMLObjectElement -> m Document
getContentDocumentUnsafe self
= liftDOM
(((self ^. js "contentDocument") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getContentDocumentUnchecked ::
(MonadDOM m) => HTMLObjectElement -> m Document
getContentDocumentUnchecked self
= liftDOM ((self ^. js "contentDocument") >>= fromJSValUnchecked)