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