ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement
       (js_start, js_stop, js_setBehavior, js_getBehavior, js_setBgColor, js_getBgColor, js_setDirection, js_getDirection, js_setHeight, js_getHeight, js_setHspace, js_getHspace, js_setLoop, js_getLoop, js_setScrollAmount, js_getScrollAmount, js_setScrollDelay, js_getScrollDelay, js_setTrueSpeed, js_getTrueSpeed, js_setVspace, js_getVspace, js_setWidth, js_getWidth, start, stop, setBehavior, getBehavior, setBgColor, getBgColor, setDirection, getDirection, setHeight, getHeight, setHspace, getHspace, setLoop, getLoop, setScrollAmount, getScrollAmount, setScrollDelay, getScrollDelay, setTrueSpeed, getTrueSpeed, setVspace, getVspace, setWidth, getWidth, HTMLMarqueeElement(..), gTypeHTMLMarqueeElement)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1) => { return $1[\"start\"](); })"
        js_start :: HTMLMarqueeElement -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-start HTMLMarqueeElement.start specification>
start :: (MonadDOM m) => HTMLMarqueeElement -> m ()
start self = liftDOM (void ((js_start (self))))

foreign import javascript safe "(($1) => { return $1[\"stop\"](); })"
        js_stop :: HTMLMarqueeElement -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-stop HTMLMarqueeElement.stop specification>
stop :: (MonadDOM m) => HTMLMarqueeElement -> m ()
stop self = liftDOM (void ((js_stop (self))))

foreign import javascript safe "(($1, $2) => { $1[\"behavior\"] = $2; })"
        js_setBehavior :: HTMLMarqueeElement -> JSString -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-behavior HTMLMarqueeElement.behavior specification>
setBehavior :: (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setBehavior self val = liftDOM (void ((js_setBehavior (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"behavior\"]; })"
        js_getBehavior :: HTMLMarqueeElement -> IO JSString
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-behavior HTMLMarqueeElement.behavior specification>
getBehavior :: (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getBehavior self = liftDOM ((fromJSString <$> (js_getBehavior (self))))

foreign import javascript safe "(($1, $2) => { $1[\"bgColor\"] = $2; })"
        js_setBgColor :: HTMLMarqueeElement -> JSString -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-bgcolor HTMLMarqueeElement.bgColor specification>
setBgColor :: (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setBgColor self val = liftDOM (void ((js_setBgColor (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"bgColor\"]; })"
        js_getBgColor :: HTMLMarqueeElement -> IO JSString
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-bgcolor HTMLMarqueeElement.bgColor specification>
getBgColor :: (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getBgColor self = liftDOM ((fromJSString <$> (js_getBgColor (self))))

foreign import javascript safe "(($1, $2) => { $1[\"direction\"] = $2; })"
        js_setDirection :: HTMLMarqueeElement -> JSString -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-direction HTMLMarqueeElement.direction specification>
setDirection :: (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setDirection self val = liftDOM (void ((js_setDirection (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })"
        js_getDirection :: HTMLMarqueeElement -> IO JSString
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-direction HTMLMarqueeElement.direction specification>
getDirection :: (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getDirection self = liftDOM ((fromJSString <$> (js_getDirection (self))))

foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"
        js_setHeight :: HTMLMarqueeElement -> JSString -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-height HTMLMarqueeElement.height specification>
setHeight :: (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setHeight self val = liftDOM (void ((js_setHeight (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"
        js_getHeight :: HTMLMarqueeElement -> IO JSString
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-height HTMLMarqueeElement.height specification>
getHeight :: (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getHeight self = liftDOM ((fromJSString <$> (js_getHeight (self))))

foreign import javascript safe "(($1, $2) => { $1[\"hspace\"] = $2; })"
        js_setHspace :: HTMLMarqueeElement -> Word -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-hspace HTMLMarqueeElement.hspace specification>
setHspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setHspace self val = liftDOM (void ((js_setHspace (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"hspace\"]; })"
        js_getHspace :: HTMLMarqueeElement -> IO Word
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-hspace HTMLMarqueeElement.hspace specification>
getHspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getHspace self = liftDOM ((js_getHspace (self)))

foreign import javascript safe "(($1, $2) => { $1[\"loop\"] = $2; })"
        js_setLoop :: HTMLMarqueeElement -> Int -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-loop HTMLMarqueeElement.loop specification>
setLoop :: (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()
setLoop self val = liftDOM (void ((js_setLoop (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"loop\"]; })"
        js_getLoop :: HTMLMarqueeElement -> IO Int
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-loop HTMLMarqueeElement.loop specification>
getLoop :: (MonadDOM m) => HTMLMarqueeElement -> m Int
getLoop self = liftDOM ((js_getLoop (self)))

foreign import javascript safe "(($1, $2) => { $1[\"scrollAmount\"] = $2; })"
        js_setScrollAmount :: HTMLMarqueeElement -> Word -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-scrollamount HTMLMarqueeElement.scrollAmount specification>
setScrollAmount :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setScrollAmount self val = liftDOM (void ((js_setScrollAmount (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"scrollAmount\"]; })"
        js_getScrollAmount :: HTMLMarqueeElement -> IO Word
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-scrollamount HTMLMarqueeElement.scrollAmount specification>
getScrollAmount :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getScrollAmount self = liftDOM ((js_getScrollAmount (self)))

foreign import javascript safe "(($1, $2) => { $1[\"scrollDelay\"] = $2; })"
        js_setScrollDelay :: HTMLMarqueeElement -> Word -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-scrolldelay HTMLMarqueeElement.scrollDelay specification>
setScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setScrollDelay self val = liftDOM (void ((js_setScrollDelay (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"scrollDelay\"]; })"
        js_getScrollDelay :: HTMLMarqueeElement -> IO Word
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-scrolldelay HTMLMarqueeElement.scrollDelay specification>
getScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getScrollDelay self = liftDOM ((js_getScrollDelay (self)))

foreign import javascript safe "(($1, $2) => { $1[\"trueSpeed\"] = $2; })"
        js_setTrueSpeed :: HTMLMarqueeElement -> Bool -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-truespeed HTMLMarqueeElement.trueSpeed specification>
setTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> Bool -> m ()
setTrueSpeed self val = liftDOM (void ((js_setTrueSpeed (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"trueSpeed\"]; })"
        js_getTrueSpeed :: HTMLMarqueeElement -> IO Bool
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-truespeed HTMLMarqueeElement.trueSpeed specification>
getTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> m Bool
getTrueSpeed self = liftDOM ((js_getTrueSpeed (self)))

foreign import javascript safe "(($1, $2) => { $1[\"vspace\"] = $2; })"
        js_setVspace :: HTMLMarqueeElement -> Word -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-vspace HTMLMarqueeElement.vspace specification>
setVspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setVspace self val = liftDOM (void ((js_setVspace (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"vspace\"]; })"
        js_getVspace :: HTMLMarqueeElement -> IO Word
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-vspace HTMLMarqueeElement.vspace specification>
getVspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getVspace self = liftDOM ((js_getVspace (self)))

foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"
        js_setWidth :: HTMLMarqueeElement -> JSString -> IO ()
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-width HTMLMarqueeElement.width specification>
setWidth :: (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setWidth self val = liftDOM (void ((js_setWidth (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"
        js_getWidth :: HTMLMarqueeElement -> IO JSString
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-width HTMLMarqueeElement.width specification>
getWidth :: (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getWidth self = liftDOM ((fromJSString <$> (js_getWidth (self))))