{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGGraphicsElement (getBBox, getCTM, getScreenCTM, getTransformToElement, getTransform, getNearestViewportElement, getFarthestViewportElement, SVGGraphicsElement, castToSVGGraphicsElement, gTypeSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement) 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 Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | getBBox :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m (Maybe SVGRect) getBBox self = liftDOM (((toSVGGraphicsElement self) ^. js "getBBox") >>= fromJSVal) -- | getCTM :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m (Maybe SVGMatrix) getCTM self = liftDOM (((toSVGGraphicsElement self) ^. js "getCTM") >>= fromJSVal) -- | getScreenCTM :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m (Maybe SVGMatrix) getScreenCTM self = liftDOM (((toSVGGraphicsElement self) ^. js "getScreenCTM") >>= fromJSVal) -- | getTransformToElement :: (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) => self -> Maybe element -> m (Maybe SVGMatrix) getTransformToElement self element = liftDOM (((toSVGGraphicsElement self) ^. jsf "getTransformToElement" [toJSVal element]) >>= fromJSVal) -- | getTransform :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m (Maybe SVGAnimatedTransformList) getTransform self = liftDOM (((toSVGGraphicsElement self) ^. js "transform") >>= fromJSVal) -- | getNearestViewportElement :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m (Maybe SVGElement) getNearestViewportElement self = liftDOM (((toSVGGraphicsElement self) ^. js "nearestViewportElement") >>= fromJSVal) -- | getFarthestViewportElement :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m (Maybe SVGElement) getFarthestViewportElement self = liftDOM (((toSVGGraphicsElement self) ^. js "farthestViewportElement") >>= fromJSVal)