{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGSVGElement (js_suspendRedraw, suspendRedraw, js_unsuspendRedraw, unsuspendRedraw, js_unsuspendRedrawAll, unsuspendRedrawAll, js_forceRedraw, forceRedraw, js_pauseAnimations, pauseAnimations, js_unpauseAnimations, unpauseAnimations, js_animationsPaused, animationsPaused, js_getCurrentTime, getCurrentTime, js_setCurrentTime, setCurrentTime, js_getIntersectionList, getIntersectionList, js_getEnclosureList, getEnclosureList, js_checkIntersection, checkIntersection, js_checkEnclosure, checkEnclosure, js_deselectAll, deselectAll, js_createSVGNumber, createSVGNumber, js_createSVGLength, createSVGLength, js_createSVGAngle, createSVGAngle, js_createSVGPoint, createSVGPoint, js_createSVGMatrix, createSVGMatrix, js_createSVGRect, createSVGRect, js_createSVGTransform, createSVGTransform, js_createSVGTransformFromMatrix, createSVGTransformFromMatrix, js_getElementById, getElementById, js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, getHeight, js_setContentScriptType, setContentScriptType, js_getContentScriptType, getContentScriptType, js_setContentStyleType, setContentStyleType, js_getContentStyleType, getContentStyleType, js_getViewport, getViewport, js_getPixelUnitToMillimeterX, getPixelUnitToMillimeterX, js_getPixelUnitToMillimeterY, getPixelUnitToMillimeterY, js_getScreenPixelToMillimeterX, getScreenPixelToMillimeterX, js_getScreenPixelToMillimeterY, getScreenPixelToMillimeterY, js_getUseCurrentView, getUseCurrentView, js_getCurrentView, getCurrentView, js_setCurrentScale, setCurrentScale, js_getCurrentScale, getCurrentScale, js_getCurrentTranslate, getCurrentTranslate, SVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"suspendRedraw\"]($2)" js_suspendRedraw :: JSRef SVGSVGElement -> Word -> IO Word -- | suspendRedraw :: (MonadIO m) => SVGSVGElement -> Word -> m Word suspendRedraw self maxWaitMilliseconds = liftIO (js_suspendRedraw (unSVGSVGElement self) maxWaitMilliseconds) foreign import javascript unsafe "$1[\"unsuspendRedraw\"]($2)" js_unsuspendRedraw :: JSRef SVGSVGElement -> Word -> IO () -- | unsuspendRedraw :: (MonadIO m) => SVGSVGElement -> Word -> m () unsuspendRedraw self suspendHandleId = liftIO (js_unsuspendRedraw (unSVGSVGElement self) suspendHandleId) foreign import javascript unsafe "$1[\"unsuspendRedrawAll\"]()" js_unsuspendRedrawAll :: JSRef SVGSVGElement -> IO () -- | unsuspendRedrawAll :: (MonadIO m) => SVGSVGElement -> m () unsuspendRedrawAll self = liftIO (js_unsuspendRedrawAll (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"forceRedraw\"]()" js_forceRedraw :: JSRef SVGSVGElement -> IO () -- | forceRedraw :: (MonadIO m) => SVGSVGElement -> m () forceRedraw self = liftIO (js_forceRedraw (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"pauseAnimations\"]()" js_pauseAnimations :: JSRef SVGSVGElement -> IO () -- | pauseAnimations :: (MonadIO m) => SVGSVGElement -> m () pauseAnimations self = liftIO (js_pauseAnimations (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"unpauseAnimations\"]()" js_unpauseAnimations :: JSRef SVGSVGElement -> IO () -- | unpauseAnimations :: (MonadIO m) => SVGSVGElement -> m () unpauseAnimations self = liftIO (js_unpauseAnimations (unSVGSVGElement self)) foreign import javascript unsafe "($1[\"animationsPaused\"]() ? 1 : 0)" js_animationsPaused :: JSRef SVGSVGElement -> IO Bool -- | animationsPaused :: (MonadIO m) => SVGSVGElement -> m Bool animationsPaused self = liftIO (js_animationsPaused (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"getCurrentTime\"]()" js_getCurrentTime :: JSRef SVGSVGElement -> IO Float -- | getCurrentTime :: (MonadIO m) => SVGSVGElement -> m Float getCurrentTime self = liftIO (js_getCurrentTime (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"setCurrentTime\"]($2)" js_setCurrentTime :: JSRef SVGSVGElement -> Float -> IO () -- | setCurrentTime :: (MonadIO m) => SVGSVGElement -> Float -> m () setCurrentTime self seconds = liftIO (js_setCurrentTime (unSVGSVGElement self) seconds) foreign import javascript unsafe "$1[\"getIntersectionList\"]($2,\n$3)" js_getIntersectionList :: JSRef SVGSVGElement -> JSRef SVGRect -> JSRef SVGElement -> IO (JSRef NodeList) -- | getIntersectionList :: (MonadIO m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList) getIntersectionList self rect referenceElement = liftIO ((js_getIntersectionList (unSVGSVGElement self) (maybe jsNull pToJSRef rect) (maybe jsNull (unSVGElement . toSVGElement) referenceElement)) >>= fromJSRef) foreign import javascript unsafe "$1[\"getEnclosureList\"]($2, $3)" js_getEnclosureList :: JSRef SVGSVGElement -> JSRef SVGRect -> JSRef SVGElement -> IO (JSRef NodeList) -- | getEnclosureList :: (MonadIO m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList) getEnclosureList self rect referenceElement = liftIO ((js_getEnclosureList (unSVGSVGElement self) (maybe jsNull pToJSRef rect) (maybe jsNull (unSVGElement . toSVGElement) referenceElement)) >>= fromJSRef) foreign import javascript unsafe "($1[\"checkIntersection\"]($2,\n$3) ? 1 : 0)" js_checkIntersection :: JSRef SVGSVGElement -> JSRef SVGElement -> JSRef SVGRect -> IO Bool -- | checkIntersection :: (MonadIO m, IsSVGElement element) => SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool checkIntersection self element rect = liftIO (js_checkIntersection (unSVGSVGElement self) (maybe jsNull (unSVGElement . toSVGElement) element) (maybe jsNull pToJSRef rect)) foreign import javascript unsafe "($1[\"checkEnclosure\"]($2,\n$3) ? 1 : 0)" js_checkEnclosure :: JSRef SVGSVGElement -> JSRef SVGElement -> JSRef SVGRect -> IO Bool -- | checkEnclosure :: (MonadIO m, IsSVGElement element) => SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool checkEnclosure self element rect = liftIO (js_checkEnclosure (unSVGSVGElement self) (maybe jsNull (unSVGElement . toSVGElement) element) (maybe jsNull pToJSRef rect)) foreign import javascript unsafe "$1[\"deselectAll\"]()" js_deselectAll :: JSRef SVGSVGElement -> IO () -- | deselectAll :: (MonadIO m) => SVGSVGElement -> m () deselectAll self = liftIO (js_deselectAll (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"createSVGNumber\"]()" js_createSVGNumber :: JSRef SVGSVGElement -> IO (JSRef SVGNumber) -- | createSVGNumber :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGNumber) createSVGNumber self = liftIO ((js_createSVGNumber (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createSVGLength\"]()" js_createSVGLength :: JSRef SVGSVGElement -> IO (JSRef SVGLength) -- | createSVGLength :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGLength) createSVGLength self = liftIO ((js_createSVGLength (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createSVGAngle\"]()" js_createSVGAngle :: JSRef SVGSVGElement -> IO (JSRef SVGAngle) -- | createSVGAngle :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAngle) createSVGAngle self = liftIO ((js_createSVGAngle (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createSVGPoint\"]()" js_createSVGPoint :: JSRef SVGSVGElement -> IO (JSRef SVGPoint) -- | createSVGPoint :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGPoint) createSVGPoint self = liftIO ((js_createSVGPoint (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createSVGMatrix\"]()" js_createSVGMatrix :: JSRef SVGSVGElement -> IO (JSRef SVGMatrix) -- | createSVGMatrix :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGMatrix) createSVGMatrix self = liftIO ((js_createSVGMatrix (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createSVGRect\"]()" js_createSVGRect :: JSRef SVGSVGElement -> IO (JSRef SVGRect) -- | createSVGRect :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGRect) createSVGRect self = liftIO ((js_createSVGRect (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createSVGTransform\"]()" js_createSVGTransform :: JSRef SVGSVGElement -> IO (JSRef SVGTransform) -- | createSVGTransform :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGTransform) createSVGTransform self = liftIO ((js_createSVGTransform (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createSVGTransformFromMatrix\"]($2)" js_createSVGTransformFromMatrix :: JSRef SVGSVGElement -> JSRef SVGMatrix -> IO (JSRef SVGTransform) -- | createSVGTransformFromMatrix :: (MonadIO m) => SVGSVGElement -> Maybe SVGMatrix -> m (Maybe SVGTransform) createSVGTransformFromMatrix self matrix = liftIO ((js_createSVGTransformFromMatrix (unSVGSVGElement self) (maybe jsNull pToJSRef matrix)) >>= fromJSRef) foreign import javascript unsafe "$1[\"getElementById\"]($2)" js_getElementById :: JSRef SVGSVGElement -> JSString -> IO (JSRef Element) -- | getElementById :: (MonadIO m, ToJSString elementId) => SVGSVGElement -> elementId -> m (Maybe Element) getElementById self elementId = liftIO ((js_getElementById (unSVGSVGElement self) (toJSString elementId)) >>= fromJSRef) foreign import javascript unsafe "$1[\"x\"]" js_getX :: JSRef SVGSVGElement -> IO (JSRef SVGAnimatedLength) -- | getX :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getX self = liftIO ((js_getX (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"y\"]" js_getY :: JSRef SVGSVGElement -> IO (JSRef SVGAnimatedLength) -- | getY :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getY self = liftIO ((js_getY (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: JSRef SVGSVGElement -> IO (JSRef SVGAnimatedLength) -- | getWidth :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO ((js_getWidth (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: JSRef SVGSVGElement -> IO (JSRef SVGAnimatedLength) -- | getHeight :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO ((js_getHeight (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"contentScriptType\"] = $2;" js_setContentScriptType :: JSRef SVGSVGElement -> JSString -> IO () -- | setContentScriptType :: (MonadIO m, ToJSString val) => SVGSVGElement -> val -> m () setContentScriptType self val = liftIO (js_setContentScriptType (unSVGSVGElement self) (toJSString val)) foreign import javascript unsafe "$1[\"contentScriptType\"]" js_getContentScriptType :: JSRef SVGSVGElement -> IO JSString -- | getContentScriptType :: (MonadIO m, FromJSString result) => SVGSVGElement -> m result getContentScriptType self = liftIO (fromJSString <$> (js_getContentScriptType (unSVGSVGElement self))) foreign import javascript unsafe "$1[\"contentStyleType\"] = $2;" js_setContentStyleType :: JSRef SVGSVGElement -> JSString -> IO () -- | setContentStyleType :: (MonadIO m, ToJSString val) => SVGSVGElement -> val -> m () setContentStyleType self val = liftIO (js_setContentStyleType (unSVGSVGElement self) (toJSString val)) foreign import javascript unsafe "$1[\"contentStyleType\"]" js_getContentStyleType :: JSRef SVGSVGElement -> IO JSString -- | getContentStyleType :: (MonadIO m, FromJSString result) => SVGSVGElement -> m result getContentStyleType self = liftIO (fromJSString <$> (js_getContentStyleType (unSVGSVGElement self))) foreign import javascript unsafe "$1[\"viewport\"]" js_getViewport :: JSRef SVGSVGElement -> IO (JSRef SVGRect) -- | getViewport :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGRect) getViewport self = liftIO ((js_getViewport (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"pixelUnitToMillimeterX\"]" js_getPixelUnitToMillimeterX :: JSRef SVGSVGElement -> IO Float -- | getPixelUnitToMillimeterX :: (MonadIO m) => SVGSVGElement -> m Float getPixelUnitToMillimeterX self = liftIO (js_getPixelUnitToMillimeterX (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"pixelUnitToMillimeterY\"]" js_getPixelUnitToMillimeterY :: JSRef SVGSVGElement -> IO Float -- | getPixelUnitToMillimeterY :: (MonadIO m) => SVGSVGElement -> m Float getPixelUnitToMillimeterY self = liftIO (js_getPixelUnitToMillimeterY (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"screenPixelToMillimeterX\"]" js_getScreenPixelToMillimeterX :: JSRef SVGSVGElement -> IO Float -- | getScreenPixelToMillimeterX :: (MonadIO m) => SVGSVGElement -> m Float getScreenPixelToMillimeterX self = liftIO (js_getScreenPixelToMillimeterX (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"screenPixelToMillimeterY\"]" js_getScreenPixelToMillimeterY :: JSRef SVGSVGElement -> IO Float -- | getScreenPixelToMillimeterY :: (MonadIO m) => SVGSVGElement -> m Float getScreenPixelToMillimeterY self = liftIO (js_getScreenPixelToMillimeterY (unSVGSVGElement self)) foreign import javascript unsafe "($1[\"useCurrentView\"] ? 1 : 0)" js_getUseCurrentView :: JSRef SVGSVGElement -> IO Bool -- | getUseCurrentView :: (MonadIO m) => SVGSVGElement -> m Bool getUseCurrentView self = liftIO (js_getUseCurrentView (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"currentView\"]" js_getCurrentView :: JSRef SVGSVGElement -> IO (JSRef SVGViewSpec) -- | getCurrentView :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGViewSpec) getCurrentView self = liftIO ((js_getCurrentView (unSVGSVGElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"currentScale\"] = $2;" js_setCurrentScale :: JSRef SVGSVGElement -> Float -> IO () -- | setCurrentScale :: (MonadIO m) => SVGSVGElement -> Float -> m () setCurrentScale self val = liftIO (js_setCurrentScale (unSVGSVGElement self) val) foreign import javascript unsafe "$1[\"currentScale\"]" js_getCurrentScale :: JSRef SVGSVGElement -> IO Float -- | getCurrentScale :: (MonadIO m) => SVGSVGElement -> m Float getCurrentScale self = liftIO (js_getCurrentScale (unSVGSVGElement self)) foreign import javascript unsafe "$1[\"currentTranslate\"]" js_getCurrentTranslate :: JSRef SVGSVGElement -> IO (JSRef SVGPoint) -- | getCurrentTranslate :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGPoint) getCurrentTranslate self = liftIO ((js_getCurrentTranslate (unSVGSVGElement self)) >>= fromJSRef)