{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGGradientElement (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD, pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT, getGradientUnits, getGradientUnitsUnsafe, getGradientUnitsUnchecked, getGradientTransform, getGradientTransformUnsafe, getGradientTransformUnchecked, getSpreadMethod, getSpreadMethodUnsafe, getSpreadMethodUnchecked, SVGGradientElement(..), gTypeSVGGradientElement, IsSVGGradientElement, toSVGGradientElement) 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 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 JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.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) -- | getGradientUnitsUnsafe :: (MonadDOM m, IsSVGGradientElement self, HasCallStack) => self -> m SVGAnimatedEnumeration getGradientUnitsUnsafe self = liftDOM ((((toSVGGradientElement self) ^. js "gradientUnits") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getGradientUnitsUnchecked :: (MonadDOM m, IsSVGGradientElement self) => self -> m SVGAnimatedEnumeration getGradientUnitsUnchecked self = liftDOM (((toSVGGradientElement self) ^. js "gradientUnits") >>= fromJSValUnchecked) -- | getGradientTransform :: (MonadDOM m, IsSVGGradientElement self) => self -> m (Maybe SVGAnimatedTransformList) getGradientTransform self = liftDOM (((toSVGGradientElement self) ^. js "gradientTransform") >>= fromJSVal) -- | getGradientTransformUnsafe :: (MonadDOM m, IsSVGGradientElement self, HasCallStack) => self -> m SVGAnimatedTransformList getGradientTransformUnsafe self = liftDOM ((((toSVGGradientElement self) ^. js "gradientTransform") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getGradientTransformUnchecked :: (MonadDOM m, IsSVGGradientElement self) => self -> m SVGAnimatedTransformList getGradientTransformUnchecked self = liftDOM (((toSVGGradientElement self) ^. js "gradientTransform") >>= fromJSValUnchecked) -- | getSpreadMethod :: (MonadDOM m, IsSVGGradientElement self) => self -> m (Maybe SVGAnimatedEnumeration) getSpreadMethod self = liftDOM (((toSVGGradientElement self) ^. js "spreadMethod") >>= fromJSVal) -- | getSpreadMethodUnsafe :: (MonadDOM m, IsSVGGradientElement self, HasCallStack) => self -> m SVGAnimatedEnumeration getSpreadMethodUnsafe self = liftDOM ((((toSVGGradientElement self) ^. js "spreadMethod") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getSpreadMethodUnchecked :: (MonadDOM m, IsSVGGradientElement self) => self -> m SVGAnimatedEnumeration getSpreadMethodUnchecked self = liftDOM (((toSVGGradientElement self) ^. js "spreadMethod") >>= fromJSValUnchecked)