module JSDOM.Generated.HTMLObjectElement
(checkValidity, setCustomValidity, 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,
castToHTMLObjectElement, gTypeHTMLObjectElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
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 ^. js "checkValidity") >>= valToBool)
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 ^. js "getSVGDocument") >>= fromJSVal)
getForm ::
(MonadDOM m) => HTMLObjectElement -> m (Maybe HTMLFormElement)
getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)
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)
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)