HTMLMarqueeElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.HTMLMarqueeElement
       (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 Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-start HTMLMarqueeElement.start specification>
start :: (MonadDOM m) => HTMLMarqueeElement -> m ()
start self = liftDOM (void (self ^. jsf "start" ()))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-stop HTMLMarqueeElement.stop specification>
stop :: (MonadDOM m) => HTMLMarqueeElement -> m ()
stop self = liftDOM (void (self ^. jsf "stop" ()))

-- | <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 (self ^. jss "behavior" (toJSVal val)))

-- | <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 (((self ^. js "behavior") >>= fromJSValUnchecked))

-- | <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 (self ^. jss "bgColor" (toJSVal val)))

-- | <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 (((self ^. js "bgColor") >>= fromJSValUnchecked))

-- | <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 (self ^. jss "direction" (toJSVal val)))

-- | <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 (((self ^. js "direction") >>= fromJSValUnchecked))

-- | <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 (self ^. jss "height" (toJSVal val)))

-- | <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 (((self ^. js "height") >>= fromJSValUnchecked))

-- | <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 (self ^. jss "hspace" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-hspace HTMLMarqueeElement.hspace specification>
getHspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getHspace self = liftDOM ((P.round <$> ((self ^. js "hspace") >>= valToNumber)))

-- | <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 (self ^. jss "loop" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-loop HTMLMarqueeElement.loop specification>
getLoop :: (MonadDOM m) => HTMLMarqueeElement -> m Int
getLoop self = liftDOM ((P.round <$> ((self ^. js "loop") >>= valToNumber)))

-- | <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 (self ^. jss "scrollAmount" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-scrollamount HTMLMarqueeElement.scrollAmount specification>
getScrollAmount :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getScrollAmount self = liftDOM ((P.round <$> ((self ^. js "scrollAmount") >>= valToNumber)))

-- | <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 (self ^. jss "scrollDelay" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-scrolldelay HTMLMarqueeElement.scrollDelay specification>
getScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getScrollDelay self = liftDOM ((P.round <$> ((self ^. js "scrollDelay") >>= valToNumber)))

-- | <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 (self ^. jss "trueSpeed" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-truespeed HTMLMarqueeElement.trueSpeed specification>
getTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> m Bool
getTrueSpeed self = liftDOM (((self ^. js "trueSpeed") >>= valToBool))

-- | <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 (self ^. jss "vspace" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-marquee-vspace HTMLMarqueeElement.vspace specification>
getVspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getVspace self = liftDOM ((P.round <$> ((self ^. js "vspace") >>= valToNumber)))

-- | <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 (self ^. jss "width" (toJSVal val)))

-- | <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 (((self ^. js "width") >>= fromJSValUnchecked))