{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGGraphicsElement (getBBox, getBBox_, getCTM, getCTM_, getScreenCTM, getScreenCTM_, getTransformToElement, getTransformToElement_, getTransform, getNearestViewportElement, getFarthestViewportElement, SVGGraphicsElement(..), gTypeSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement) 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 Data.Traversable (mapM) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) 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, unsafeEventNameAsync) import JSDOM.Enums -- | getBBox :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGRect getBBox self = liftDOM (((toSVGGraphicsElement self) ^. jsf "getBBox" ()) >>= fromJSValUnchecked) -- | getBBox_ :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m () getBBox_ self = liftDOM (void ((toSVGGraphicsElement self) ^. jsf "getBBox" ())) -- | getCTM :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGMatrix getCTM self = liftDOM (((toSVGGraphicsElement self) ^. jsf "getCTM" ()) >>= fromJSValUnchecked) -- | getCTM_ :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m () getCTM_ self = liftDOM (void ((toSVGGraphicsElement self) ^. jsf "getCTM" ())) -- | getScreenCTM :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGMatrix getScreenCTM self = liftDOM (((toSVGGraphicsElement self) ^. jsf "getScreenCTM" ()) >>= fromJSValUnchecked) -- | getScreenCTM_ :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m () getScreenCTM_ self = liftDOM (void ((toSVGGraphicsElement self) ^. jsf "getScreenCTM" ())) -- | getTransformToElement :: (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) => self -> Maybe element -> m SVGMatrix getTransformToElement self element = liftDOM (((toSVGGraphicsElement self) ^. jsf "getTransformToElement" [toJSVal element]) >>= fromJSValUnchecked) -- | getTransformToElement_ :: (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) => self -> Maybe element -> m () getTransformToElement_ self element = liftDOM (void ((toSVGGraphicsElement self) ^. jsf "getTransformToElement" [toJSVal element])) -- | getTransform :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGAnimatedTransformList getTransform self = liftDOM (((toSVGGraphicsElement self) ^. js "transform") >>= fromJSValUnchecked) -- | getNearestViewportElement :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGElement getNearestViewportElement self = liftDOM (((toSVGGraphicsElement self) ^. js "nearestViewportElement") >>= fromJSValUnchecked) -- | getFarthestViewportElement :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGElement getFarthestViewportElement self = liftDOM (((toSVGGraphicsElement self) ^. js "farthestViewportElement") >>= fromJSValUnchecked)