{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLObjectElement
(checkValidity, checkValidity_, reportValidity, reportValidity_,
setCustomValidity, getSVGDocument, getSVGDocument_, getForm,
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,
getValidationMessage, getContentDocument, 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 Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
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, unsafeEventNameAsync)
import JSDOM.Enums
checkValidity :: (MonadDOM m) => HTMLObjectElement -> m Bool
checkValidity :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Bool
checkValidity HTMLObjectElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"checkValidity" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
checkValidity_ :: (MonadDOM m) => HTMLObjectElement -> m ()
checkValidity_ :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m ()
checkValidity_ HTMLObjectElement
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"checkValidity" ()))
reportValidity :: (MonadDOM m) => HTMLObjectElement -> m Bool
reportValidity :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Bool
reportValidity HTMLObjectElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"reportValidity" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
reportValidity_ :: (MonadDOM m) => HTMLObjectElement -> m ()
reportValidity_ :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m ()
reportValidity_ HTMLObjectElement
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"reportValidity" ()))
setCustomValidity ::
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setCustomValidity :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setCustomValidity HTMLObjectElement
self error
error
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"setCustomValidity" [error -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal error
error]))
getSVGDocument :: (MonadDOM m) => HTMLObjectElement -> m Document
getSVGDocument :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Document
getSVGDocument HTMLObjectElement
self
= DOM Document -> m Document
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getSVGDocument" ()) JSM JSVal -> (JSVal -> DOM Document) -> DOM Document
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Document
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSVGDocument_ :: (MonadDOM m) => HTMLObjectElement -> m ()
getSVGDocument_ :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m ()
getSVGDocument_ HTMLObjectElement
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getSVGDocument" ()))
getForm :: (MonadDOM m) => HTMLObjectElement -> m HTMLFormElement
getForm :: forall (m :: * -> *).
MonadDOM m =>
HTMLObjectElement -> m HTMLFormElement
getForm HTMLObjectElement
self = DOM HTMLFormElement -> m HTMLFormElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"form") JSM JSVal -> (JSVal -> DOM HTMLFormElement) -> DOM HTMLFormElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLFormElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setCode ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCode :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setCode HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"code" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCode ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCode :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getCode HTMLObjectElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"code") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAlign ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setAlign :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setAlign HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"align" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAlign ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getAlign :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getAlign HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"align") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setArchive ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setArchive :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setArchive HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"archive" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getArchive ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getArchive :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getArchive HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"archive") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setBorder ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setBorder :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setBorder HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"border" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBorder ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getBorder :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getBorder HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"border") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setCodeBase ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCodeBase :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setCodeBase HTMLObjectElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"codeBase" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCodeBase ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCodeBase :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getCodeBase HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"codeBase") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setCodeType ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setCodeType :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setCodeType HTMLObjectElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"codeType" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCodeType ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getCodeType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getCodeType HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"codeType") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setData ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setData :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setData HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"data" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getData ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getData :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getData HTMLObjectElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"data") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setDeclare :: (MonadDOM m) => HTMLObjectElement -> Bool -> m ()
setDeclare :: forall (m :: * -> *).
MonadDOM m =>
HTMLObjectElement -> Bool -> m ()
setDeclare HTMLObjectElement
self Bool
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"declare" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getDeclare :: (MonadDOM m) => HTMLObjectElement -> m Bool
getDeclare :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Bool
getDeclare HTMLObjectElement
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"declare") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setHeight ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setHeight :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setHeight HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"height" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHeight ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getHeight :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getHeight HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"height") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHspace :: (MonadDOM m) => HTMLObjectElement -> Word -> m ()
setHspace :: forall (m :: * -> *).
MonadDOM m =>
HTMLObjectElement -> Word -> m ()
setHspace HTMLObjectElement
self Word
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"hspace" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getHspace :: (MonadDOM m) => HTMLObjectElement -> m Word
getHspace :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Word
getHspace HTMLObjectElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hspace") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setName ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setName :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setName HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"name" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getName ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getName :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getName HTMLObjectElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"name") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setStandby ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setStandby :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setStandby HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"standby" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getStandby ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getStandby :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getStandby HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"standby") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setType ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setType :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setType HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"type" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getType ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getType HTMLObjectElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"type") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setUseMap ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setUseMap :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setUseMap HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"useMap" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getUseMap ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getUseMap :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getUseMap HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"useMap") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setVspace :: (MonadDOM m) => HTMLObjectElement -> Word -> m ()
setVspace :: forall (m :: * -> *).
MonadDOM m =>
HTMLObjectElement -> Word -> m ()
setVspace HTMLObjectElement
self Word
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"vspace" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getVspace :: (MonadDOM m) => HTMLObjectElement -> m Word
getVspace :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Word
getVspace HTMLObjectElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"vspace") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setWidth ::
(MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()
setWidth :: forall (m :: * -> *) error.
(MonadDOM m, ToJSString error) =>
HTMLObjectElement -> error -> m ()
setWidth HTMLObjectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLObjectElement
self HTMLObjectElement
-> Getting (DOM ()) HTMLObjectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"width" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getWidth ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getWidth :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getWidth HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"width") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWillValidate :: (MonadDOM m) => HTMLObjectElement -> m Bool
getWillValidate :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Bool
getWillValidate HTMLObjectElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"willValidate") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getValidity :: (MonadDOM m) => HTMLObjectElement -> m ValidityState
getValidity :: forall (m :: * -> *).
MonadDOM m =>
HTMLObjectElement -> m ValidityState
getValidity HTMLObjectElement
self
= DOM ValidityState -> m ValidityState
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"validity") JSM JSVal -> (JSVal -> DOM ValidityState) -> DOM ValidityState
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM ValidityState
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getValidationMessage ::
(MonadDOM m, FromJSString result) => HTMLObjectElement -> m result
getValidationMessage :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLObjectElement -> m result
getValidationMessage HTMLObjectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"validationMessage") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getContentDocument ::
(MonadDOM m) => HTMLObjectElement -> m Document
getContentDocument :: forall (m :: * -> *). MonadDOM m => HTMLObjectElement -> m Document
getContentDocument HTMLObjectElement
self
= DOM Document -> m Document
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLObjectElement
self HTMLObjectElement
-> Getting (JSM JSVal) HTMLObjectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLObjectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"contentDocument") JSM JSVal -> (JSVal -> DOM Document) -> DOM Document
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Document
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)