{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
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 ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
start :: (MonadDOM m) => HTMLMarqueeElement -> m ()
start :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m ()
start HTMLMarqueeElement
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"start" ()))
stop :: (MonadDOM m) => HTMLMarqueeElement -> m ()
stop :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m ()
stop HTMLMarqueeElement
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"stop" ()))
setBehavior ::
(MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setBehavior :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLMarqueeElement -> val -> m ()
setBehavior HTMLMarqueeElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"behavior" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBehavior ::
(MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getBehavior :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLMarqueeElement -> m result
getBehavior HTMLMarqueeElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"behavior") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setBgColor ::
(MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setBgColor :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLMarqueeElement -> val -> m ()
setBgColor HTMLMarqueeElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"bgColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBgColor ::
(MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getBgColor :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLMarqueeElement -> m result
getBgColor HTMLMarqueeElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"bgColor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setDirection ::
(MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setDirection :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLMarqueeElement -> val -> m ()
setDirection HTMLMarqueeElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"direction" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getDirection ::
(MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getDirection :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLMarqueeElement -> m result
getDirection HTMLMarqueeElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"direction") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHeight ::
(MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setHeight :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLMarqueeElement -> val -> m ()
setHeight HTMLMarqueeElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"height" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHeight ::
(MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getHeight :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLMarqueeElement -> m result
getHeight HTMLMarqueeElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"height") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setHspace :: forall (m :: * -> *).
MonadDOM m =>
HTMLMarqueeElement -> Word -> m ()
setHspace HTMLMarqueeElement
self Word
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"hspace" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getHspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getHspace :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m Word
getHspace HTMLMarqueeElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hspace") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setLoop :: (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()
setLoop :: forall (m :: * -> *).
MonadDOM m =>
HTMLMarqueeElement -> Int -> m ()
setLoop HTMLMarqueeElement
self Int
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"loop" (Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
val))
getLoop :: (MonadDOM m) => HTMLMarqueeElement -> m Int
getLoop :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m Int
getLoop HTMLMarqueeElement
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"loop") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setScrollAmount ::
(MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setScrollAmount :: forall (m :: * -> *).
MonadDOM m =>
HTMLMarqueeElement -> Word -> m ()
setScrollAmount HTMLMarqueeElement
self Word
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"scrollAmount" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getScrollAmount :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getScrollAmount :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m Word
getScrollAmount HTMLMarqueeElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"scrollAmount") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setScrollDelay ::
(MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setScrollDelay :: forall (m :: * -> *).
MonadDOM m =>
HTMLMarqueeElement -> Word -> m ()
setScrollDelay HTMLMarqueeElement
self Word
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"scrollDelay" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getScrollDelay :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m Word
getScrollDelay HTMLMarqueeElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"scrollDelay") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> Bool -> m ()
setTrueSpeed :: forall (m :: * -> *).
MonadDOM m =>
HTMLMarqueeElement -> Bool -> m ()
setTrueSpeed HTMLMarqueeElement
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"trueSpeed" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> m Bool
getTrueSpeed :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m Bool
getTrueSpeed HTMLMarqueeElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"trueSpeed") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setVspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()
setVspace :: forall (m :: * -> *).
MonadDOM m =>
HTMLMarqueeElement -> Word -> m ()
setVspace HTMLMarqueeElement
self Word
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"vspace" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getVspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word
getVspace :: forall (m :: * -> *). MonadDOM m => HTMLMarqueeElement -> m Word
getVspace HTMLMarqueeElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"vspace") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setWidth ::
(MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()
setWidth :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLMarqueeElement -> val -> m ()
setWidth HTMLMarqueeElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (DOM ()) HTMLMarqueeElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"width" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getWidth ::
(MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result
getWidth :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLMarqueeElement -> m result
getWidth HTMLMarqueeElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLMarqueeElement
self HTMLMarqueeElement
-> Getting (JSM JSVal) HTMLMarqueeElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMarqueeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"width") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)