module GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement
(js_start, start, js_stop, stop, js_setBehavior, setBehavior,
js_getBehavior, getBehavior, js_setBgColor, setBgColor,
js_getBgColor, getBgColor, js_setDirection, setDirection,
js_getDirection, getDirection, js_setHeight, setHeight,
js_getHeight, getHeight, js_setHspace, setHspace, js_getHspace,
getHspace, js_setLoop, setLoop, js_getLoop, getLoop,
js_setScrollAmount, setScrollAmount, js_getScrollAmount,
getScrollAmount, js_setScrollDelay, setScrollDelay,
js_getScrollDelay, getScrollDelay, js_setTrueSpeed, setTrueSpeed,
js_getTrueSpeed, getTrueSpeed, js_setVspace, setVspace,
js_getVspace, getVspace, js_setWidth, setWidth, js_getWidth,
getWidth, HTMLMarqueeElement(..), gTypeHTMLMarqueeElement)
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)
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 GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "$1[\"start\"]()" js_start ::
HTMLMarqueeElement -> IO ()
start :: (MonadIO m) => HTMLMarqueeElement -> m ()
start self = liftIO (js_start (self))
foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::
HTMLMarqueeElement -> IO ()
stop :: (MonadIO m) => HTMLMarqueeElement -> m ()
stop self = liftIO (js_stop (self))
foreign import javascript unsafe "$1[\"behavior\"] = $2;"
js_setBehavior :: HTMLMarqueeElement -> JSString -> IO ()
setBehavior ::
(MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setBehavior self val
= liftIO (js_setBehavior (self) (toJSString val))
foreign import javascript unsafe "$1[\"behavior\"]" js_getBehavior
:: HTMLMarqueeElement -> IO JSString
getBehavior ::
(MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result
getBehavior self
= liftIO (fromJSString <$> (js_getBehavior (self)))
foreign import javascript unsafe "$1[\"bgColor\"] = $2;"
js_setBgColor :: HTMLMarqueeElement -> JSString -> IO ()
setBgColor ::
(MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setBgColor self val
= liftIO (js_setBgColor (self) (toJSString val))
foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::
HTMLMarqueeElement -> IO JSString
getBgColor ::
(MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result
getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self)))
foreign import javascript unsafe "$1[\"direction\"] = $2;"
js_setDirection :: HTMLMarqueeElement -> JSString -> IO ()
setDirection ::
(MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setDirection self val
= liftIO (js_setDirection (self) (toJSString val))
foreign import javascript unsafe "$1[\"direction\"]"
js_getDirection :: HTMLMarqueeElement -> IO JSString
getDirection ::
(MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result
getDirection self
= liftIO (fromJSString <$> (js_getDirection (self)))
foreign import javascript unsafe "$1[\"height\"] = $2;"
js_setHeight :: HTMLMarqueeElement -> JSString -> IO ()
setHeight ::
(MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setHeight self val = liftIO (js_setHeight (self) (toJSString val))
foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::
HTMLMarqueeElement -> IO JSString
getHeight ::
(MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result
getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))
foreign import javascript unsafe "$1[\"hspace\"] = $2;"
js_setHspace :: HTMLMarqueeElement -> Word -> IO ()
setHspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m ()
setHspace self val = liftIO (js_setHspace (self) val)
foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::
HTMLMarqueeElement -> IO Word
getHspace :: (MonadIO m) => HTMLMarqueeElement -> m Word
getHspace self = liftIO (js_getHspace (self))
foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::
HTMLMarqueeElement -> Int -> IO ()
setLoop :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()
setLoop self val = liftIO (js_setLoop (self) val)
foreign import javascript unsafe "$1[\"loop\"]" js_getLoop ::
HTMLMarqueeElement -> IO Int
getLoop :: (MonadIO m) => HTMLMarqueeElement -> m Int
getLoop self = liftIO (js_getLoop (self))
foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"
js_setScrollAmount :: HTMLMarqueeElement -> Int -> IO ()
setScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()
setScrollAmount self val = liftIO (js_setScrollAmount (self) val)
foreign import javascript unsafe "$1[\"scrollAmount\"]"
js_getScrollAmount :: HTMLMarqueeElement -> IO Int
getScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> m Int
getScrollAmount self = liftIO (js_getScrollAmount (self))
foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"
js_setScrollDelay :: HTMLMarqueeElement -> Int -> IO ()
setScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()
setScrollDelay self val = liftIO (js_setScrollDelay (self) val)
foreign import javascript unsafe "$1[\"scrollDelay\"]"
js_getScrollDelay :: HTMLMarqueeElement -> IO Int
getScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> m Int
getScrollDelay self = liftIO (js_getScrollDelay (self))
foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"
js_setTrueSpeed :: HTMLMarqueeElement -> Bool -> IO ()
setTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> Bool -> m ()
setTrueSpeed self val = liftIO (js_setTrueSpeed (self) val)
foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"
js_getTrueSpeed :: HTMLMarqueeElement -> IO Bool
getTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> m Bool
getTrueSpeed self = liftIO (js_getTrueSpeed (self))
foreign import javascript unsafe "$1[\"vspace\"] = $2;"
js_setVspace :: HTMLMarqueeElement -> Word -> IO ()
setVspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m ()
setVspace self val = liftIO (js_setVspace (self) val)
foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::
HTMLMarqueeElement -> IO Word
getVspace :: (MonadIO m) => HTMLMarqueeElement -> m Word
getVspace self = liftIO (js_getVspace (self))
foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth
:: HTMLMarqueeElement -> JSString -> IO ()
setWidth ::
(MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setWidth self val = liftIO (js_setWidth (self) (toJSString val))
foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::
HTMLMarqueeElement -> IO JSString
getWidth ::
(MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result
getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))