module JSDOM.Generated.SVGSVGElement
(suspendRedraw, suspendRedraw_, unsuspendRedraw,
unsuspendRedrawAll, forceRedraw, pauseAnimations,
unpauseAnimations, animationsPaused, animationsPaused_,
getCurrentTime, getCurrentTime_, setCurrentTime,
getIntersectionList, getIntersectionList_,
getIntersectionListUnchecked, getEnclosureList, getEnclosureList_,
getEnclosureListUnchecked, checkIntersection, checkIntersection_,
checkEnclosure, checkEnclosure_, deselectAll, createSVGNumber,
createSVGNumber_, createSVGNumberUnchecked, createSVGLength,
createSVGLength_, createSVGLengthUnchecked, createSVGAngle,
createSVGAngle_, createSVGAngleUnchecked, createSVGPoint,
createSVGPoint_, createSVGPointUnchecked, createSVGMatrix,
createSVGMatrix_, createSVGMatrixUnchecked, createSVGRect,
createSVGRect_, createSVGRectUnchecked, createSVGTransform,
createSVGTransform_, createSVGTransformUnchecked,
createSVGTransformFromMatrix, createSVGTransformFromMatrix_,
createSVGTransformFromMatrixUnchecked, getElementById,
getElementById_, getElementByIdUnchecked, getX, getXUnchecked,
getY, getYUnchecked, getWidth, getWidthUnchecked, getHeight,
getHeightUnchecked, setContentScriptType, getContentScriptType,
setContentStyleType, getContentStyleType, getViewport,
getViewportUnchecked, getPixelUnitToMillimeterX,
getPixelUnitToMillimeterY, getScreenPixelToMillimeterX,
getScreenPixelToMillimeterY, getUseCurrentView, getCurrentView,
getCurrentViewUnchecked, setCurrentScale, getCurrentScale,
getCurrentTranslate, getCurrentTranslateUnchecked, SVGSVGElement,
castToSVGSVGElement, gTypeSVGSVGElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
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]))
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]))
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" ()))
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" ()))
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" ()))
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" ()))
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" ()))
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" ()))
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" ()))
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]))
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]))
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)
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)
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)
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)
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)
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)
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)
getCurrentTranslateUnchecked ::
(MonadDOM m) => SVGSVGElement -> m SVGPoint
getCurrentTranslateUnchecked self
= liftDOM ((self ^. js "currentTranslate") >>= fromJSValUnchecked)