{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGSVGElement
(suspendRedraw, suspendRedraw_, unsuspendRedraw,
unsuspendRedrawAll, forceRedraw, pauseAnimations,
unpauseAnimations, animationsPaused, animationsPaused_,
getCurrentTime, getCurrentTime_, setCurrentTime,
getIntersectionList, getIntersectionList_, getEnclosureList,
getEnclosureList_, checkIntersection, checkIntersection_,
checkEnclosure, checkEnclosure_, deselectAll, createSVGNumber,
createSVGNumber_, createSVGLength, createSVGLength_,
createSVGAngle, createSVGAngle_, createSVGPoint, createSVGPoint_,
createSVGMatrix, createSVGMatrix_, createSVGRect, createSVGRect_,
createSVGTransform, createSVGTransform_,
createSVGTransformFromMatrix, createSVGTransformFromMatrix_,
getElementById, getElementById_, getX, getY, getWidth, getHeight,
setContentScriptType, getContentScriptType, setContentStyleType,
getContentStyleType, getViewport, getPixelUnitToMillimeterX,
getPixelUnitToMillimeterY, getScreenPixelToMillimeterX,
getScreenPixelToMillimeterY, getUseCurrentView, getCurrentView,
setCurrentScale, getCurrentScale, getCurrentTranslate,
SVGSVGElement(..), gTypeSVGSVGElement)
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
suspendRedraw ::
(MonadDOM m) => SVGSVGElement -> Maybe Word -> m Word
suspendRedraw :: SVGSVGElement -> Maybe Word -> m Word
suspendRedraw SVGSVGElement
self Maybe Word
maxWaitMilliseconds
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
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
<$>
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"suspendRedraw" [Maybe Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Word
maxWaitMilliseconds]) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
suspendRedraw_ ::
(MonadDOM m) => SVGSVGElement -> Maybe Word -> m ()
suspendRedraw_ :: SVGSVGElement -> Maybe Word -> m ()
suspendRedraw_ SVGSVGElement
self Maybe Word
maxWaitMilliseconds
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"suspendRedraw" [Maybe Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Word
maxWaitMilliseconds]))
unsuspendRedraw ::
(MonadDOM m) => SVGSVGElement -> Maybe Word -> m ()
unsuspendRedraw :: SVGSVGElement -> Maybe Word -> m ()
unsuspendRedraw SVGSVGElement
self Maybe Word
suspendHandleId
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"unsuspendRedraw" [Maybe Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Word
suspendHandleId]))
unsuspendRedrawAll :: (MonadDOM m) => SVGSVGElement -> m ()
unsuspendRedrawAll :: SVGSVGElement -> m ()
unsuspendRedrawAll SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"unsuspendRedrawAll" ()))
forceRedraw :: (MonadDOM m) => SVGSVGElement -> m ()
forceRedraw :: SVGSVGElement -> m ()
forceRedraw SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"forceRedraw" ()))
pauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()
pauseAnimations :: SVGSVGElement -> m ()
pauseAnimations SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"pauseAnimations" ()))
unpauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()
unpauseAnimations :: SVGSVGElement -> m ()
unpauseAnimations SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"unpauseAnimations" ()))
animationsPaused :: (MonadDOM m) => SVGSVGElement -> m Bool
animationsPaused :: SVGSVGElement -> m Bool
animationsPaused SVGSVGElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"animationsPaused" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
animationsPaused_ :: (MonadDOM m) => SVGSVGElement -> m ()
animationsPaused_ :: SVGSVGElement -> m ()
animationsPaused_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"animationsPaused" ()))
getCurrentTime :: (MonadDOM m) => SVGSVGElement -> m Float
getCurrentTime :: SVGSVGElement -> m Float
getCurrentTime SVGSVGElement
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getCurrentTime" ()) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getCurrentTime_ :: (MonadDOM m) => SVGSVGElement -> m ()
getCurrentTime_ :: SVGSVGElement -> m ()
getCurrentTime_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getCurrentTime" ()))
setCurrentTime ::
(MonadDOM m) => SVGSVGElement -> Maybe Float -> m ()
setCurrentTime :: SVGSVGElement -> Maybe Float -> m ()
setCurrentTime SVGSVGElement
self Maybe Float
seconds
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setCurrentTime" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
seconds]))
getIntersectionList ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement -> SVGRect -> Maybe referenceElement -> m NodeList
getIntersectionList :: SVGSVGElement -> SVGRect -> Maybe referenceElement -> m NodeList
getIntersectionList SVGSVGElement
self SVGRect
rect Maybe referenceElement
referenceElement
= DOM NodeList -> m NodeList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getIntersectionList"
[SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect, Maybe referenceElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe referenceElement
referenceElement])
JSM JSVal -> (JSVal -> DOM NodeList) -> DOM NodeList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM NodeList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getIntersectionList_ ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement -> SVGRect -> Maybe referenceElement -> m ()
getIntersectionList_ :: SVGSVGElement -> SVGRect -> Maybe referenceElement -> m ()
getIntersectionList_ SVGSVGElement
self SVGRect
rect Maybe referenceElement
referenceElement
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getIntersectionList"
[SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect, Maybe referenceElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe referenceElement
referenceElement]))
getEnclosureList ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement -> SVGRect -> Maybe referenceElement -> m NodeList
getEnclosureList :: SVGSVGElement -> SVGRect -> Maybe referenceElement -> m NodeList
getEnclosureList SVGSVGElement
self SVGRect
rect Maybe referenceElement
referenceElement
= DOM NodeList -> m NodeList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getEnclosureList"
[SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect, Maybe referenceElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe referenceElement
referenceElement])
JSM JSVal -> (JSVal -> DOM NodeList) -> DOM NodeList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM NodeList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getEnclosureList_ ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement -> SVGRect -> Maybe referenceElement -> m ()
getEnclosureList_ :: SVGSVGElement -> SVGRect -> Maybe referenceElement -> m ()
getEnclosureList_ SVGSVGElement
self SVGRect
rect Maybe referenceElement
referenceElement
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getEnclosureList"
[SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect, Maybe referenceElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe referenceElement
referenceElement]))
checkIntersection ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> SVGRect -> m Bool
checkIntersection :: SVGSVGElement -> Maybe element -> SVGRect -> m Bool
checkIntersection SVGSVGElement
self Maybe element
element SVGRect
rect
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"checkIntersection" [Maybe element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe element
element, SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect])
JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
checkIntersection_ ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> SVGRect -> m ()
checkIntersection_ :: SVGSVGElement -> Maybe element -> SVGRect -> m ()
checkIntersection_ SVGSVGElement
self Maybe element
element SVGRect
rect
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"checkIntersection" [Maybe element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe element
element, SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect]))
checkEnclosure ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> SVGRect -> m Bool
checkEnclosure :: SVGSVGElement -> Maybe element -> SVGRect -> m Bool
checkEnclosure SVGSVGElement
self Maybe element
element SVGRect
rect
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"checkEnclosure" [Maybe element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe element
element, SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect]) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
checkEnclosure_ ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> SVGRect -> m ()
checkEnclosure_ :: SVGSVGElement -> Maybe element -> SVGRect -> m ()
checkEnclosure_ SVGSVGElement
self Maybe element
element SVGRect
rect
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"checkEnclosure" [Maybe element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe element
element, SVGRect -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGRect
rect]))
deselectAll :: (MonadDOM m) => SVGSVGElement -> m ()
deselectAll :: SVGSVGElement -> m ()
deselectAll SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"deselectAll" ()))
createSVGNumber :: (MonadDOM m) => SVGSVGElement -> m SVGNumber
createSVGNumber :: SVGSVGElement -> m SVGNumber
createSVGNumber SVGSVGElement
self
= DOM SVGNumber -> m SVGNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGNumber" ()) JSM JSVal -> (JSVal -> DOM SVGNumber) -> DOM SVGNumber
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGNumber_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGNumber_ :: SVGSVGElement -> m ()
createSVGNumber_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGNumber" ()))
createSVGLength :: (MonadDOM m) => SVGSVGElement -> m SVGLength
createSVGLength :: SVGSVGElement -> m SVGLength
createSVGLength SVGSVGElement
self
= DOM SVGLength -> m SVGLength
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGLength" ()) JSM JSVal -> (JSVal -> DOM SVGLength) -> DOM SVGLength
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGLength
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGLength_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGLength_ :: SVGSVGElement -> m ()
createSVGLength_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGLength" ()))
createSVGAngle :: (MonadDOM m) => SVGSVGElement -> m SVGAngle
createSVGAngle :: SVGSVGElement -> m SVGAngle
createSVGAngle SVGSVGElement
self
= DOM SVGAngle -> m SVGAngle
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGAngle" ()) JSM JSVal -> (JSVal -> DOM SVGAngle) -> DOM SVGAngle
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAngle
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGAngle_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGAngle_ :: SVGSVGElement -> m ()
createSVGAngle_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGAngle" ()))
createSVGPoint :: (MonadDOM m) => SVGSVGElement -> m SVGPoint
createSVGPoint :: SVGSVGElement -> m SVGPoint
createSVGPoint SVGSVGElement
self
= DOM SVGPoint -> m SVGPoint
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPoint" ()) JSM JSVal -> (JSVal -> DOM SVGPoint) -> DOM SVGPoint
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPoint
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPoint_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGPoint_ :: SVGSVGElement -> m ()
createSVGPoint_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPoint" ()))
createSVGMatrix :: (MonadDOM m) => SVGSVGElement -> m SVGMatrix
createSVGMatrix :: SVGSVGElement -> m SVGMatrix
createSVGMatrix SVGSVGElement
self
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGMatrix" ()) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGMatrix_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGMatrix_ :: SVGSVGElement -> m ()
createSVGMatrix_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGMatrix" ()))
createSVGRect :: (MonadDOM m) => SVGSVGElement -> m SVGRect
createSVGRect :: SVGSVGElement -> m SVGRect
createSVGRect SVGSVGElement
self
= DOM SVGRect -> m SVGRect
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGRect" ()) JSM JSVal -> (JSVal -> DOM SVGRect) -> DOM SVGRect
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGRect
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGRect_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGRect_ :: SVGSVGElement -> m ()
createSVGRect_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGRect" ()))
createSVGTransform ::
(MonadDOM m) => SVGSVGElement -> m SVGTransform
createSVGTransform :: SVGSVGElement -> m SVGTransform
createSVGTransform SVGSVGElement
self
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGTransform" ()) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGTransform_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGTransform_ :: SVGSVGElement -> m ()
createSVGTransform_ SVGSVGElement
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 (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGTransform" ()))
createSVGTransformFromMatrix ::
(MonadDOM m) => SVGSVGElement -> SVGMatrix -> m SVGTransform
createSVGTransformFromMatrix :: SVGSVGElement -> SVGMatrix -> m SVGTransform
createSVGTransformFromMatrix SVGSVGElement
self SVGMatrix
matrix
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGTransformFromMatrix" [SVGMatrix -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGMatrix
matrix]) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGTransformFromMatrix_ ::
(MonadDOM m) => SVGSVGElement -> SVGMatrix -> m ()
createSVGTransformFromMatrix_ :: SVGSVGElement -> SVGMatrix -> m ()
createSVGTransformFromMatrix_ SVGSVGElement
self SVGMatrix
matrix
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGTransformFromMatrix" [SVGMatrix -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGMatrix
matrix]))
getElementById ::
(MonadDOM m, ToJSString elementId) =>
SVGSVGElement -> elementId -> m Element
getElementById :: SVGSVGElement -> elementId -> m Element
getElementById SVGSVGElement
self elementId
elementId
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getElementById" [elementId -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal elementId
elementId]) JSM JSVal -> (JSVal -> DOM Element) -> DOM Element
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM Element
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getElementById_ ::
(MonadDOM m, ToJSString elementId) =>
SVGSVGElement -> elementId -> m ()
getElementById_ :: SVGSVGElement -> elementId -> m ()
getElementById_ SVGSVGElement
self elementId
elementId
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getElementById" [elementId -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal elementId
elementId]))
getX :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getX :: SVGSVGElement -> m SVGAnimatedLength
getX SVGSVGElement
self = DOM SVGAnimatedLength -> m SVGAnimatedLength
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"x") JSM JSVal
-> (JSVal -> DOM SVGAnimatedLength) -> DOM SVGAnimatedLength
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedLength
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getY :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getY :: SVGSVGElement -> m SVGAnimatedLength
getY SVGSVGElement
self = DOM SVGAnimatedLength -> m SVGAnimatedLength
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"y") JSM JSVal
-> (JSVal -> DOM SVGAnimatedLength) -> DOM SVGAnimatedLength
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedLength
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWidth :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getWidth :: SVGSVGElement -> m SVGAnimatedLength
getWidth SVGSVGElement
self
= DOM SVGAnimatedLength -> m SVGAnimatedLength
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"width") JSM JSVal
-> (JSVal -> DOM SVGAnimatedLength) -> DOM SVGAnimatedLength
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedLength
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getHeight :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getHeight :: SVGSVGElement -> m SVGAnimatedLength
getHeight SVGSVGElement
self
= DOM SVGAnimatedLength -> m SVGAnimatedLength
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"height") JSM JSVal
-> (JSVal -> DOM SVGAnimatedLength) -> DOM SVGAnimatedLength
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedLength
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setContentScriptType ::
(MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()
setContentScriptType :: SVGSVGElement -> val -> m ()
setContentScriptType SVGSVGElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGSVGElement
self SVGSVGElement -> Getting (DOM ()) SVGSVGElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> 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 [Char]
"contentScriptType" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getContentScriptType ::
(MonadDOM m, FromJSString result) => SVGSVGElement -> m result
getContentScriptType :: SVGSVGElement -> m result
getContentScriptType SVGSVGElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"contentScriptType") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setContentStyleType ::
(MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()
setContentStyleType :: SVGSVGElement -> val -> m ()
setContentStyleType SVGSVGElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGSVGElement
self SVGSVGElement -> Getting (DOM ()) SVGSVGElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> 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 [Char]
"contentStyleType" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getContentStyleType ::
(MonadDOM m, FromJSString result) => SVGSVGElement -> m result
getContentStyleType :: SVGSVGElement -> m result
getContentStyleType SVGSVGElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"contentStyleType") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getViewport :: (MonadDOM m) => SVGSVGElement -> m SVGRect
getViewport :: SVGSVGElement -> m SVGRect
getViewport SVGSVGElement
self
= DOM SVGRect -> m SVGRect
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"viewport") JSM JSVal -> (JSVal -> DOM SVGRect) -> DOM SVGRect
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGRect
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getPixelUnitToMillimeterX ::
(MonadDOM m) => SVGSVGElement -> m Float
getPixelUnitToMillimeterX :: SVGSVGElement -> m Float
getPixelUnitToMillimeterX SVGSVGElement
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pixelUnitToMillimeterX") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getPixelUnitToMillimeterY ::
(MonadDOM m) => SVGSVGElement -> m Float
getPixelUnitToMillimeterY :: SVGSVGElement -> m Float
getPixelUnitToMillimeterY SVGSVGElement
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pixelUnitToMillimeterY") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getScreenPixelToMillimeterX ::
(MonadDOM m) => SVGSVGElement -> m Float
getScreenPixelToMillimeterX :: SVGSVGElement -> m Float
getScreenPixelToMillimeterX SVGSVGElement
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"screenPixelToMillimeterX") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getScreenPixelToMillimeterY ::
(MonadDOM m) => SVGSVGElement -> m Float
getScreenPixelToMillimeterY :: SVGSVGElement -> m Float
getScreenPixelToMillimeterY SVGSVGElement
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"screenPixelToMillimeterY") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getUseCurrentView :: (MonadDOM m) => SVGSVGElement -> m Bool
getUseCurrentView :: SVGSVGElement -> m Bool
getUseCurrentView SVGSVGElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"useCurrentView") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getCurrentView :: (MonadDOM m) => SVGSVGElement -> m SVGViewSpec
getCurrentView :: SVGSVGElement -> m SVGViewSpec
getCurrentView SVGSVGElement
self
= DOM SVGViewSpec -> m SVGViewSpec
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"currentView") JSM JSVal -> (JSVal -> DOM SVGViewSpec) -> DOM SVGViewSpec
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGViewSpec
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setCurrentScale :: (MonadDOM m) => SVGSVGElement -> Float -> m ()
setCurrentScale :: SVGSVGElement -> Float -> m ()
setCurrentScale SVGSVGElement
self Float
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGSVGElement
self SVGSVGElement -> Getting (DOM ()) SVGSVGElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> 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 [Char]
"currentScale" (Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
val))
getCurrentScale :: (MonadDOM m) => SVGSVGElement -> m Float
getCurrentScale :: SVGSVGElement -> m Float
getCurrentScale SVGSVGElement
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"currentScale") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getCurrentTranslate :: (MonadDOM m) => SVGSVGElement -> m SVGPoint
getCurrentTranslate :: SVGSVGElement -> m SVGPoint
getCurrentTranslate SVGSVGElement
self
= DOM SVGPoint -> m SVGPoint
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGSVGElement
self SVGSVGElement
-> Getting (JSM JSVal) SVGSVGElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGSVGElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"currentTranslate") JSM JSVal -> (JSVal -> DOM SVGPoint) -> DOM SVGPoint
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPoint
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)