{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGGradientElement (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD, pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT, getGradientUnits, getGradientTransform, getSpreadMethod, SVGGradientElement, castToSVGGradientElement, gTypeSVGGradientElement, IsSVGGradientElement, toSVGGradientElement) 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 pattern SVG_SPREADMETHOD_UNKNOWN = 0 pattern SVG_SPREADMETHOD_PAD = 1 pattern SVG_SPREADMETHOD_REFLECT = 2 pattern SVG_SPREADMETHOD_REPEAT = 3 -- | getGradientUnits :: (MonadDOM m, IsSVGGradientElement self) => self -> m (Maybe SVGAnimatedEnumeration) getGradientUnits self = liftDOM (((toSVGGradientElement self) ^. js "gradientUnits") >>= fromJSVal) -- | getGradientTransform :: (MonadDOM m, IsSVGGradientElement self) => self -> m (Maybe SVGAnimatedTransformList) getGradientTransform self = liftDOM (((toSVGGradientElement self) ^. js "gradientTransform") >>= fromJSVal) -- | getSpreadMethod :: (MonadDOM m, IsSVGGradientElement self) => self -> m (Maybe SVGAnimatedEnumeration) getSpreadMethod self = liftDOM (((toSVGGradientElement self) ^. js "spreadMethod") >>= fromJSVal)