{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement (js_checkValidity, checkValidity, checkValidity_, js_reportValidity, reportValidity, reportValidity_, js_setCustomValidity, setCustomValidity, js_getSVGDocument, getSVGDocument, getSVGDocument_, js_getForm, getForm, js_setCode, setCode, js_getCode, getCode, js_setAlign, setAlign, js_getAlign, getAlign, js_setArchive, setArchive, js_getArchive, getArchive, js_setBorder, setBorder, js_getBorder, getBorder, js_setCodeBase, setCodeBase, js_getCodeBase, getCodeBase, js_setCodeType, setCodeType, js_getCodeType, getCodeType, js_setData, setData, js_getData, getData, js_setDeclare, setDeclare, js_getDeclare, getDeclare, js_setHeight, setHeight, js_getHeight, getHeight, js_setHspace, setHspace, js_getHspace, getHspace, js_setName, setName, js_getName, getName, js_setStandby, setStandby, js_getStandby, getStandby, js_setType, setType, js_getType, getType, js_setUseMap, setUseMap, js_getUseMap, getUseMap, js_setVspace, setVspace, js_getVspace, getVspace, js_setWidth, setWidth, js_getWidth, getWidth, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, js_getContentDocument, getContentDocument, HTMLObjectElement(..), gTypeHTMLObjectElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: HTMLObjectElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLObjectElement -> m Bool checkValidity self = liftIO (js_checkValidity self) -- | checkValidity_ :: (MonadIO m) => HTMLObjectElement -> m () checkValidity_ self = liftIO (void (js_checkValidity self)) foreign import javascript unsafe "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity :: HTMLObjectElement -> IO Bool -- | reportValidity :: (MonadIO m) => HTMLObjectElement -> m Bool reportValidity self = liftIO (js_reportValidity self) -- | reportValidity_ :: (MonadIO m) => HTMLObjectElement -> m () reportValidity_ self = liftIO (void (js_reportValidity self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: HTMLObjectElement -> JSString -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLObjectElement -> error -> m () setCustomValidity self error = liftIO (js_setCustomValidity self (toJSString error)) foreign import javascript unsafe "$1[\"getSVGDocument\"]()" js_getSVGDocument :: HTMLObjectElement -> IO Document -- | getSVGDocument :: (MonadIO m) => HTMLObjectElement -> m Document getSVGDocument self = liftIO (js_getSVGDocument self) -- | getSVGDocument_ :: (MonadIO m) => HTMLObjectElement -> m () getSVGDocument_ self = liftIO (void (js_getSVGDocument self)) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: HTMLObjectElement -> IO HTMLFormElement -- | getForm :: (MonadIO m) => HTMLObjectElement -> m HTMLFormElement getForm self = liftIO (js_getForm self) foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode :: HTMLObjectElement -> JSString -> IO () -- | setCode :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setCode self val = liftIO (js_setCode self (toJSString val)) foreign import javascript unsafe "$1[\"code\"]" js_getCode :: HTMLObjectElement -> IO JSString -- | getCode :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getCode self = liftIO (fromJSString <$> (js_getCode self)) foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLObjectElement -> JSString -> IO () -- | setAlign :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setAlign self val = liftIO (js_setAlign self (toJSString val)) foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: HTMLObjectElement -> IO JSString -- | getAlign :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getAlign self = liftIO (fromJSString <$> (js_getAlign self)) foreign import javascript unsafe "$1[\"archive\"] = $2;" js_setArchive :: HTMLObjectElement -> JSString -> IO () -- | setArchive :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setArchive self val = liftIO (js_setArchive self (toJSString val)) foreign import javascript unsafe "$1[\"archive\"]" js_getArchive :: HTMLObjectElement -> IO JSString -- | getArchive :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getArchive self = liftIO (fromJSString <$> (js_getArchive self)) foreign import javascript unsafe "$1[\"border\"] = $2;" js_setBorder :: HTMLObjectElement -> JSString -> IO () -- | setBorder :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setBorder self val = liftIO (js_setBorder self (toJSString val)) foreign import javascript unsafe "$1[\"border\"]" js_getBorder :: HTMLObjectElement -> IO JSString -- | getBorder :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getBorder self = liftIO (fromJSString <$> (js_getBorder self)) foreign import javascript unsafe "$1[\"codeBase\"] = $2;" js_setCodeBase :: HTMLObjectElement -> JSString -> IO () -- | setCodeBase :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setCodeBase self val = liftIO (js_setCodeBase self (toJSString val)) foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase :: HTMLObjectElement -> IO JSString -- | getCodeBase :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getCodeBase self = liftIO (fromJSString <$> (js_getCodeBase self)) foreign import javascript unsafe "$1[\"codeType\"] = $2;" js_setCodeType :: HTMLObjectElement -> JSString -> IO () -- | setCodeType :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setCodeType self val = liftIO (js_setCodeType self (toJSString val)) foreign import javascript unsafe "$1[\"codeType\"]" js_getCodeType :: HTMLObjectElement -> IO JSString -- | getCodeType :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getCodeType self = liftIO (fromJSString <$> (js_getCodeType self)) foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData :: HTMLObjectElement -> JSString -> IO () -- | setData :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setData self val = liftIO (js_setData self (toJSString val)) foreign import javascript unsafe "$1[\"data\"]" js_getData :: HTMLObjectElement -> IO JSString -- | getData :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getData self = liftIO (fromJSString <$> (js_getData self)) foreign import javascript unsafe "$1[\"declare\"] = $2;" js_setDeclare :: HTMLObjectElement -> Bool -> IO () -- | setDeclare :: (MonadIO m) => HTMLObjectElement -> Bool -> m () setDeclare self val = liftIO (js_setDeclare self val) foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)" js_getDeclare :: HTMLObjectElement -> IO Bool -- | getDeclare :: (MonadIO m) => HTMLObjectElement -> m Bool getDeclare self = liftIO (js_getDeclare self) foreign import javascript unsafe "$1[\"height\"] = $2;" js_setHeight :: HTMLObjectElement -> JSString -> IO () -- | setHeight :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setHeight self val = liftIO (js_setHeight self (toJSString val)) foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: HTMLObjectElement -> IO JSString -- | getHeight :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getHeight self = liftIO (fromJSString <$> (js_getHeight self)) foreign import javascript unsafe "$1[\"hspace\"] = $2;" js_setHspace :: HTMLObjectElement -> Word -> IO () -- | setHspace :: (MonadIO m) => HTMLObjectElement -> Word -> m () setHspace self val = liftIO (js_setHspace self val) foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace :: HTMLObjectElement -> IO Word -- | getHspace :: (MonadIO m) => HTMLObjectElement -> m Word getHspace self = liftIO (js_getHspace self) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLObjectElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setName self val = liftIO (js_setName self (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: HTMLObjectElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"standby\"] = $2;" js_setStandby :: HTMLObjectElement -> JSString -> IO () -- | setStandby :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setStandby self val = liftIO (js_setStandby self (toJSString val)) foreign import javascript unsafe "$1[\"standby\"]" js_getStandby :: HTMLObjectElement -> IO JSString -- | getStandby :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getStandby self = liftIO (fromJSString <$> (js_getStandby self)) foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: HTMLObjectElement -> JSString -> IO () -- | setType :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setType self val = liftIO (js_setType self (toJSString val)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: HTMLObjectElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getType self = liftIO (fromJSString <$> (js_getType self)) foreign import javascript unsafe "$1[\"useMap\"] = $2;" js_setUseMap :: HTMLObjectElement -> JSString -> IO () -- | setUseMap :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setUseMap self val = liftIO (js_setUseMap self (toJSString val)) foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap :: HTMLObjectElement -> IO JSString -- | getUseMap :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getUseMap self = liftIO (fromJSString <$> (js_getUseMap self)) foreign import javascript unsafe "$1[\"vspace\"] = $2;" js_setVspace :: HTMLObjectElement -> Word -> IO () -- | setVspace :: (MonadIO m) => HTMLObjectElement -> Word -> m () setVspace self val = liftIO (js_setVspace self val) foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace :: HTMLObjectElement -> IO Word -- | getVspace :: (MonadIO m) => HTMLObjectElement -> m Word getVspace self = liftIO (js_getVspace self) foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth :: HTMLObjectElement -> JSString -> IO () -- | setWidth :: (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setWidth self val = liftIO (js_setWidth self (toJSString val)) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: HTMLObjectElement -> IO JSString -- | getWidth :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getWidth self = liftIO (fromJSString <$> (js_getWidth self)) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: HTMLObjectElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLObjectElement -> m Bool getWillValidate self = liftIO (js_getWillValidate self) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: HTMLObjectElement -> IO ValidityState -- | getValidity :: (MonadIO m) => HTMLObjectElement -> m ValidityState getValidity self = liftIO (js_getValidity self) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: HTMLObjectElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage self)) foreign import javascript unsafe "$1[\"contentDocument\"]" js_getContentDocument :: HTMLObjectElement -> IO Document -- | getContentDocument :: (MonadIO m) => HTMLObjectElement -> m Document getContentDocument self = liftIO (js_getContentDocument self)