module JSDOM.Generated.SVGSVGElement
(suspendRedraw, suspendRedraw_, unsuspendRedraw,
unsuspendRedrawAll, forceRedraw, pauseAnimations,
unpauseAnimations, animationsPaused, animationsPaused_,
getCurrentTime, getCurrentTime_, setCurrentTime,
getIntersectionList, getIntersectionList_,
getIntersectionListUnsafe, getIntersectionListUnchecked,
getEnclosureList, getEnclosureList_, getEnclosureListUnsafe,
getEnclosureListUnchecked, checkIntersection, checkIntersection_,
checkEnclosure, checkEnclosure_, deselectAll, createSVGNumber,
createSVGNumber_, createSVGNumberUnsafe, createSVGNumberUnchecked,
createSVGLength, createSVGLength_, createSVGLengthUnsafe,
createSVGLengthUnchecked, createSVGAngle, createSVGAngle_,
createSVGAngleUnsafe, createSVGAngleUnchecked, createSVGPoint,
createSVGPoint_, createSVGPointUnsafe, createSVGPointUnchecked,
createSVGMatrix, createSVGMatrix_, createSVGMatrixUnsafe,
createSVGMatrixUnchecked, createSVGRect, createSVGRect_,
createSVGRectUnsafe, createSVGRectUnchecked, createSVGTransform,
createSVGTransform_, createSVGTransformUnsafe,
createSVGTransformUnchecked, createSVGTransformFromMatrix,
createSVGTransformFromMatrix_, createSVGTransformFromMatrixUnsafe,
createSVGTransformFromMatrixUnchecked, getElementById,
getElementById_, getElementByIdUnsafe, getElementByIdUnchecked,
getX, getXUnsafe, getXUnchecked, getY, getYUnsafe, getYUnchecked,
getWidth, getWidthUnsafe, getWidthUnchecked, getHeight,
getHeightUnsafe, getHeightUnchecked, setContentScriptType,
getContentScriptType, setContentStyleType, getContentStyleType,
getViewport, getViewportUnsafe, getViewportUnchecked,
getPixelUnitToMillimeterX, getPixelUnitToMillimeterY,
getScreenPixelToMillimeterX, getScreenPixelToMillimeterY,
getUseCurrentView, getCurrentView, getCurrentViewUnsafe,
getCurrentViewUnchecked, setCurrentScale, getCurrentScale,
getCurrentTranslate, getCurrentTranslateUnsafe,
getCurrentTranslateUnchecked, 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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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)
import JSDOM.Enums
suspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m Word
suspendRedraw self maxWaitMilliseconds
= liftDOM
(round <$>
((self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]) >>=
valToNumber))
suspendRedraw_ :: (MonadDOM m) => SVGSVGElement -> Word -> m ()
suspendRedraw_ self maxWaitMilliseconds
= liftDOM
(void (self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]))
unsuspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m ()
unsuspendRedraw self suspendHandleId
= liftDOM
(void (self ^. jsf "unsuspendRedraw" [toJSVal suspendHandleId]))
unsuspendRedrawAll :: (MonadDOM m) => SVGSVGElement -> m ()
unsuspendRedrawAll self
= liftDOM (void (self ^. jsf "unsuspendRedrawAll" ()))
forceRedraw :: (MonadDOM m) => SVGSVGElement -> m ()
forceRedraw self = liftDOM (void (self ^. jsf "forceRedraw" ()))
pauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()
pauseAnimations self
= liftDOM (void (self ^. jsf "pauseAnimations" ()))
unpauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()
unpauseAnimations self
= liftDOM (void (self ^. jsf "unpauseAnimations" ()))
animationsPaused :: (MonadDOM m) => SVGSVGElement -> m Bool
animationsPaused self
= liftDOM ((self ^. jsf "animationsPaused" ()) >>= valToBool)
animationsPaused_ :: (MonadDOM m) => SVGSVGElement -> m ()
animationsPaused_ self
= liftDOM (void (self ^. jsf "animationsPaused" ()))
getCurrentTime :: (MonadDOM m) => SVGSVGElement -> m Float
getCurrentTime self
= liftDOM
(realToFrac <$>
((self ^. jsf "getCurrentTime" ()) >>= valToNumber))
getCurrentTime_ :: (MonadDOM m) => SVGSVGElement -> m ()
getCurrentTime_ self
= liftDOM (void (self ^. jsf "getCurrentTime" ()))
setCurrentTime :: (MonadDOM m) => SVGSVGElement -> Float -> m ()
setCurrentTime self seconds
= liftDOM (void (self ^. jsf "setCurrentTime" [toJSVal seconds]))
getIntersectionList ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement ->
Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList)
getIntersectionList self rect referenceElement
= liftDOM
((self ^. jsf "getIntersectionList"
[toJSVal rect, toJSVal referenceElement])
>>= fromJSVal)
getIntersectionList_ ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m ()
getIntersectionList_ self rect referenceElement
= liftDOM
(void
(self ^. jsf "getIntersectionList"
[toJSVal rect, toJSVal referenceElement]))
getIntersectionListUnsafe ::
(MonadDOM m, IsSVGElement referenceElement, HasCallStack) =>
SVGSVGElement ->
Maybe SVGRect -> Maybe referenceElement -> m NodeList
getIntersectionListUnsafe self rect referenceElement
= liftDOM
(((self ^. jsf "getIntersectionList"
[toJSVal rect, toJSVal referenceElement])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getIntersectionListUnchecked ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement ->
Maybe SVGRect -> Maybe referenceElement -> m NodeList
getIntersectionListUnchecked self rect referenceElement
= liftDOM
((self ^. jsf "getIntersectionList"
[toJSVal rect, toJSVal referenceElement])
>>= fromJSValUnchecked)
getEnclosureList ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement ->
Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList)
getEnclosureList self rect referenceElement
= liftDOM
((self ^. jsf "getEnclosureList"
[toJSVal rect, toJSVal referenceElement])
>>= fromJSVal)
getEnclosureList_ ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m ()
getEnclosureList_ self rect referenceElement
= liftDOM
(void
(self ^. jsf "getEnclosureList"
[toJSVal rect, toJSVal referenceElement]))
getEnclosureListUnsafe ::
(MonadDOM m, IsSVGElement referenceElement, HasCallStack) =>
SVGSVGElement ->
Maybe SVGRect -> Maybe referenceElement -> m NodeList
getEnclosureListUnsafe self rect referenceElement
= liftDOM
(((self ^. jsf "getEnclosureList"
[toJSVal rect, toJSVal referenceElement])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getEnclosureListUnchecked ::
(MonadDOM m, IsSVGElement referenceElement) =>
SVGSVGElement ->
Maybe SVGRect -> Maybe referenceElement -> m NodeList
getEnclosureListUnchecked self rect referenceElement
= liftDOM
((self ^. jsf "getEnclosureList"
[toJSVal rect, toJSVal referenceElement])
>>= fromJSValUnchecked)
checkIntersection ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool
checkIntersection self element rect
= liftDOM
((self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect])
>>= valToBool)
checkIntersection_ ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> Maybe SVGRect -> m ()
checkIntersection_ self element rect
= liftDOM
(void
(self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect]))
checkEnclosure ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool
checkEnclosure self element rect
= liftDOM
((self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]) >>=
valToBool)
checkEnclosure_ ::
(MonadDOM m, IsSVGElement element) =>
SVGSVGElement -> Maybe element -> Maybe SVGRect -> m ()
checkEnclosure_ self element rect
= liftDOM
(void
(self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]))
deselectAll :: (MonadDOM m) => SVGSVGElement -> m ()
deselectAll self = liftDOM (void (self ^. jsf "deselectAll" ()))
createSVGNumber ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGNumber)
createSVGNumber self
= liftDOM ((self ^. jsf "createSVGNumber" ()) >>= fromJSVal)
createSVGNumber_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGNumber_ self
= liftDOM (void (self ^. jsf "createSVGNumber" ()))
createSVGNumberUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGNumber
createSVGNumberUnsafe self
= liftDOM
(((self ^. jsf "createSVGNumber" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createSVGNumberUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGNumber
createSVGNumberUnchecked self
= liftDOM
((self ^. jsf "createSVGNumber" ()) >>= fromJSValUnchecked)
createSVGLength ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGLength)
createSVGLength self
= liftDOM ((self ^. jsf "createSVGLength" ()) >>= fromJSVal)
createSVGLength_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGLength_ self
= liftDOM (void (self ^. jsf "createSVGLength" ()))
createSVGLengthUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGLength
createSVGLengthUnsafe self
= liftDOM
(((self ^. jsf "createSVGLength" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createSVGLengthUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGLength
createSVGLengthUnchecked self
= liftDOM
((self ^. jsf "createSVGLength" ()) >>= fromJSValUnchecked)
createSVGAngle ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGAngle)
createSVGAngle self
= liftDOM ((self ^. jsf "createSVGAngle" ()) >>= fromJSVal)
createSVGAngle_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGAngle_ self
= liftDOM (void (self ^. jsf "createSVGAngle" ()))
createSVGAngleUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAngle
createSVGAngleUnsafe self
= liftDOM
(((self ^. jsf "createSVGAngle" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createSVGAngleUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGAngle
createSVGAngleUnchecked self
= liftDOM
((self ^. jsf "createSVGAngle" ()) >>= fromJSValUnchecked)
createSVGPoint ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint)
createSVGPoint self
= liftDOM ((self ^. jsf "createSVGPoint" ()) >>= fromJSVal)
createSVGPoint_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGPoint_ self
= liftDOM (void (self ^. jsf "createSVGPoint" ()))
createSVGPointUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGPoint
createSVGPointUnsafe self
= liftDOM
(((self ^. jsf "createSVGPoint" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createSVGPointUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGPoint
createSVGPointUnchecked self
= liftDOM
((self ^. jsf "createSVGPoint" ()) >>= fromJSValUnchecked)
createSVGMatrix ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGMatrix)
createSVGMatrix self
= liftDOM ((self ^. jsf "createSVGMatrix" ()) >>= fromJSVal)
createSVGMatrix_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGMatrix_ self
= liftDOM (void (self ^. jsf "createSVGMatrix" ()))
createSVGMatrixUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGMatrix
createSVGMatrixUnsafe self
= liftDOM
(((self ^. jsf "createSVGMatrix" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createSVGMatrixUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGMatrix
createSVGMatrixUnchecked self
= liftDOM
((self ^. jsf "createSVGMatrix" ()) >>= fromJSValUnchecked)
createSVGRect :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect)
createSVGRect self
= liftDOM ((self ^. jsf "createSVGRect" ()) >>= fromJSVal)
createSVGRect_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGRect_ self
= liftDOM (void (self ^. jsf "createSVGRect" ()))
createSVGRectUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGRect
createSVGRectUnsafe self
= liftDOM
(((self ^. jsf "createSVGRect" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createSVGRectUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGRect
createSVGRectUnchecked self
= liftDOM ((self ^. jsf "createSVGRect" ()) >>= fromJSValUnchecked)
createSVGTransform ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGTransform)
createSVGTransform self
= liftDOM ((self ^. jsf "createSVGTransform" ()) >>= fromJSVal)
createSVGTransform_ :: (MonadDOM m) => SVGSVGElement -> m ()
createSVGTransform_ self
= liftDOM (void (self ^. jsf "createSVGTransform" ()))
createSVGTransformUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGTransform
createSVGTransformUnsafe self
= liftDOM
(((self ^. jsf "createSVGTransform" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createSVGTransformUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGTransform
createSVGTransformUnchecked self
= liftDOM
((self ^. jsf "createSVGTransform" ()) >>= fromJSValUnchecked)
createSVGTransformFromMatrix ::
(MonadDOM m) =>
SVGSVGElement -> Maybe SVGMatrix -> m (Maybe SVGTransform)
createSVGTransformFromMatrix self matrix
= liftDOM
((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=
fromJSVal)
createSVGTransformFromMatrix_ ::
(MonadDOM m) => SVGSVGElement -> Maybe SVGMatrix -> m ()
createSVGTransformFromMatrix_ self matrix
= liftDOM
(void
(self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]))
createSVGTransformFromMatrixUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform
createSVGTransformFromMatrixUnsafe self matrix
= liftDOM
(((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createSVGTransformFromMatrixUnchecked ::
(MonadDOM m) =>
SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform
createSVGTransformFromMatrixUnchecked self matrix
= liftDOM
((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=
fromJSValUnchecked)
getElementById ::
(MonadDOM m, ToJSString elementId) =>
SVGSVGElement -> elementId -> m (Maybe Element)
getElementById self elementId
= liftDOM
((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSVal)
getElementById_ ::
(MonadDOM m, ToJSString elementId) =>
SVGSVGElement -> elementId -> m ()
getElementById_ self elementId
= liftDOM (void (self ^. jsf "getElementById" [toJSVal elementId]))
getElementByIdUnsafe ::
(MonadDOM m, ToJSString elementId, HasCallStack) =>
SVGSVGElement -> elementId -> m Element
getElementByIdUnsafe self elementId
= liftDOM
(((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getElementByIdUnchecked ::
(MonadDOM m, ToJSString elementId) =>
SVGSVGElement -> elementId -> m Element
getElementByIdUnchecked self elementId
= liftDOM
((self ^. jsf "getElementById" [toJSVal elementId]) >>=
fromJSValUnchecked)
getX ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)
getX self = liftDOM ((self ^. js "x") >>= fromJSVal)
getXUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength
getXUnsafe self
= liftDOM
(((self ^. js "x") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getXUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getXUnchecked self
= liftDOM ((self ^. js "x") >>= fromJSValUnchecked)
getY ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)
getY self = liftDOM ((self ^. js "y") >>= fromJSVal)
getYUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength
getYUnsafe self
= liftDOM
(((self ^. js "y") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getYUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getYUnchecked self
= liftDOM ((self ^. js "y") >>= fromJSValUnchecked)
getWidth ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)
getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)
getWidthUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength
getWidthUnsafe self
= liftDOM
(((self ^. js "width") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWidthUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getWidthUnchecked self
= liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
getHeight ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)
getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
getHeightUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength
getHeightUnsafe self
= liftDOM
(((self ^. js "height") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getHeightUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getHeightUnchecked self
= liftDOM ((self ^. js "height") >>= fromJSValUnchecked)
setContentScriptType ::
(MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()
setContentScriptType self val
= liftDOM (self ^. jss "contentScriptType" (toJSVal val))
getContentScriptType ::
(MonadDOM m, FromJSString result) => SVGSVGElement -> m result
getContentScriptType self
= liftDOM ((self ^. js "contentScriptType") >>= fromJSValUnchecked)
setContentStyleType ::
(MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()
setContentStyleType self val
= liftDOM (self ^. jss "contentStyleType" (toJSVal val))
getContentStyleType ::
(MonadDOM m, FromJSString result) => SVGSVGElement -> m result
getContentStyleType self
= liftDOM ((self ^. js "contentStyleType") >>= fromJSValUnchecked)
getViewport :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect)
getViewport self = liftDOM ((self ^. js "viewport") >>= fromJSVal)
getViewportUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGRect
getViewportUnsafe self
= liftDOM
(((self ^. js "viewport") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getViewportUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGRect
getViewportUnchecked self
= liftDOM ((self ^. js "viewport") >>= fromJSValUnchecked)
getPixelUnitToMillimeterX ::
(MonadDOM m) => SVGSVGElement -> m Float
getPixelUnitToMillimeterX self
= liftDOM
(realToFrac <$>
((self ^. js "pixelUnitToMillimeterX") >>= valToNumber))
getPixelUnitToMillimeterY ::
(MonadDOM m) => SVGSVGElement -> m Float
getPixelUnitToMillimeterY self
= liftDOM
(realToFrac <$>
((self ^. js "pixelUnitToMillimeterY") >>= valToNumber))
getScreenPixelToMillimeterX ::
(MonadDOM m) => SVGSVGElement -> m Float
getScreenPixelToMillimeterX self
= liftDOM
(realToFrac <$>
((self ^. js "screenPixelToMillimeterX") >>= valToNumber))
getScreenPixelToMillimeterY ::
(MonadDOM m) => SVGSVGElement -> m Float
getScreenPixelToMillimeterY self
= liftDOM
(realToFrac <$>
((self ^. js "screenPixelToMillimeterY") >>= valToNumber))
getUseCurrentView :: (MonadDOM m) => SVGSVGElement -> m Bool
getUseCurrentView self
= liftDOM ((self ^. js "useCurrentView") >>= valToBool)
getCurrentView ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGViewSpec)
getCurrentView self
= liftDOM ((self ^. js "currentView") >>= fromJSVal)
getCurrentViewUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGViewSpec
getCurrentViewUnsafe self
= liftDOM
(((self ^. js "currentView") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getCurrentViewUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGViewSpec
getCurrentViewUnchecked self
= liftDOM ((self ^. js "currentView") >>= fromJSValUnchecked)
setCurrentScale :: (MonadDOM m) => SVGSVGElement -> Float -> m ()
setCurrentScale self val
= liftDOM (self ^. jss "currentScale" (toJSVal val))
getCurrentScale :: (MonadDOM m) => SVGSVGElement -> m Float
getCurrentScale self
= liftDOM
(realToFrac <$> ((self ^. js "currentScale") >>= valToNumber))
getCurrentTranslate ::
(MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint)
getCurrentTranslate self
= liftDOM ((self ^. js "currentTranslate") >>= fromJSVal)
getCurrentTranslateUnsafe ::
(MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGPoint
getCurrentTranslateUnsafe self
= liftDOM
(((self ^. js "currentTranslate") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getCurrentTranslateUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGPoint
getCurrentTranslateUnchecked self
= liftDOM ((self ^. js "currentTranslate") >>= fromJSValUnchecked)