{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLBodyElement (js_setALink, setALink, js_getALink, getALink, js_setBackground, setBackground, js_getBackground, getBackground, js_setBgColor, setBgColor, js_getBgColor, getBgColor, js_setLink, setLink, js_getLink, getLink, js_setText, setText, js_getText, getText, js_setVLink, setVLink, js_getVLink, getVLink, beforeUnload, hashChange, message, offline, online, popState, resize, storage, unload, orientationChange, blur, error, focus, load, HTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink :: JSRef HTMLBodyElement -> JSString -> IO () -- | setALink :: (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setALink self val = liftIO (js_setALink (unHTMLBodyElement self) (toJSString val)) foreign import javascript unsafe "$1[\"aLink\"]" js_getALink :: JSRef HTMLBodyElement -> IO JSString -- | getALink :: (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getALink self = liftIO (fromJSString <$> (js_getALink (unHTMLBodyElement self))) foreign import javascript unsafe "$1[\"background\"] = $2;" js_setBackground :: JSRef HTMLBodyElement -> JSString -> IO () -- | setBackground :: (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setBackground self val = liftIO (js_setBackground (unHTMLBodyElement self) (toJSString val)) foreign import javascript unsafe "$1[\"background\"]" js_getBackground :: JSRef HTMLBodyElement -> IO JSString -- | getBackground :: (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getBackground self = liftIO (fromJSString <$> (js_getBackground (unHTMLBodyElement self))) foreign import javascript unsafe "$1[\"bgColor\"] = $2;" js_setBgColor :: JSRef HTMLBodyElement -> JSString -> IO () -- | setBgColor :: (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setBgColor self val = liftIO (js_setBgColor (unHTMLBodyElement self) (toJSString val)) foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: JSRef HTMLBodyElement -> IO JSString -- | getBgColor :: (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getBgColor self = liftIO (fromJSString <$> (js_getBgColor (unHTMLBodyElement self))) foreign import javascript unsafe "$1[\"link\"] = $2;" js_setLink :: JSRef HTMLBodyElement -> JSString -> IO () -- | setLink :: (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setLink self val = liftIO (js_setLink (unHTMLBodyElement self) (toJSString val)) foreign import javascript unsafe "$1[\"link\"]" js_getLink :: JSRef HTMLBodyElement -> IO JSString -- | getLink :: (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getLink self = liftIO (fromJSString <$> (js_getLink (unHTMLBodyElement self))) foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: JSRef HTMLBodyElement -> JSString -> IO () -- | setText :: (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setText self val = liftIO (js_setText (unHTMLBodyElement self) (toJSString val)) foreign import javascript unsafe "$1[\"text\"]" js_getText :: JSRef HTMLBodyElement -> IO JSString -- | getText :: (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getText self = liftIO (fromJSString <$> (js_getText (unHTMLBodyElement self))) foreign import javascript unsafe "$1[\"vLink\"] = $2;" js_setVLink :: JSRef HTMLBodyElement -> JSString -> IO () -- | setVLink :: (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setVLink self val = liftIO (js_setVLink (unHTMLBodyElement self) (toJSString val)) foreign import javascript unsafe "$1[\"vLink\"]" js_getVLink :: JSRef HTMLBodyElement -> IO JSString -- | getVLink :: (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getVLink self = liftIO (fromJSString <$> (js_getVLink (unHTMLBodyElement self))) -- | beforeUnload :: EventName HTMLBodyElement BeforeUnloadEvent beforeUnload = unsafeEventName (toJSString "beforeunload") -- | hashChange :: EventName HTMLBodyElement HashChangeEvent hashChange = unsafeEventName (toJSString "hashchange") -- | message :: EventName HTMLBodyElement MessageEvent message = unsafeEventName (toJSString "message") -- | offline :: EventName HTMLBodyElement Event offline = unsafeEventName (toJSString "offline") -- | online :: EventName HTMLBodyElement Event online = unsafeEventName (toJSString "online") -- | popState :: EventName HTMLBodyElement PopStateEvent popState = unsafeEventName (toJSString "popstate") -- | resize :: EventName HTMLBodyElement UIEvent resize = unsafeEventName (toJSString "resize") -- | storage :: EventName HTMLBodyElement StorageEvent storage = unsafeEventName (toJSString "storage") -- | unload :: EventName HTMLBodyElement UIEvent unload = unsafeEventName (toJSString "unload") -- | orientationChange :: EventName HTMLBodyElement Event orientationChange = unsafeEventName (toJSString "orientationchange") -- | blur :: EventName HTMLBodyElement FocusEvent blur = unsafeEventName (toJSString "blur") -- | error :: EventName HTMLBodyElement UIEvent error = unsafeEventName (toJSString "error") -- | focus :: EventName HTMLBodyElement FocusEvent focus = unsafeEventName (toJSString "focus") -- | load :: EventName HTMLBodyElement UIEvent load = unsafeEventName (toJSString "load")