{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEGaussianBlurElement (setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, getIn1, getIn1Unsafe, getIn1Unchecked, getStdDeviationX, getStdDeviationXUnsafe, getStdDeviationXUnchecked, getStdDeviationY, getStdDeviationYUnsafe, getStdDeviationYUnchecked, getEdgeMode, getEdgeModeUnsafe, getEdgeModeUnchecked, SVGFEGaussianBlurElement(..), gTypeSVGFEGaussianBlurElement) 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 -- | setStdDeviation :: (MonadDOM m) => SVGFEGaussianBlurElement -> Float -> Float -> m () setStdDeviation self stdDeviationX stdDeviationY = liftDOM (void (self ^. jsf "setStdDeviation" [toJSVal stdDeviationX, toJSVal stdDeviationY])) pattern SVG_EDGEMODE_UNKNOWN = 0 pattern SVG_EDGEMODE_DUPLICATE = 1 pattern SVG_EDGEMODE_WRAP = 2 pattern SVG_EDGEMODE_NONE = 3 -- | getIn1 :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) -- | getIn1Unsafe :: (MonadDOM m, HasCallStack) => SVGFEGaussianBlurElement -> m SVGAnimatedString getIn1Unsafe self = liftDOM (((self ^. js "in1") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getIn1Unchecked :: (MonadDOM m) => SVGFEGaussianBlurElement -> m SVGAnimatedString getIn1Unchecked self = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) -- | getStdDeviationX :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationX self = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal) -- | getStdDeviationXUnsafe :: (MonadDOM m, HasCallStack) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber getStdDeviationXUnsafe self = liftDOM (((self ^. js "stdDeviationX") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getStdDeviationXUnchecked :: (MonadDOM m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber getStdDeviationXUnchecked self = liftDOM ((self ^. js "stdDeviationX") >>= fromJSValUnchecked) -- | getStdDeviationY :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal) -- | getStdDeviationYUnsafe :: (MonadDOM m, HasCallStack) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber getStdDeviationYUnsafe self = liftDOM (((self ^. js "stdDeviationY") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getStdDeviationYUnchecked :: (MonadDOM m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber getStdDeviationYUnchecked self = liftDOM ((self ^. js "stdDeviationY") >>= fromJSValUnchecked) -- | getEdgeMode :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal) -- | getEdgeModeUnsafe :: (MonadDOM m, HasCallStack) => SVGFEGaussianBlurElement -> m SVGAnimatedEnumeration getEdgeModeUnsafe self = liftDOM (((self ^. js "edgeMode") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getEdgeModeUnchecked :: (MonadDOM m) => SVGFEGaussianBlurElement -> m SVGAnimatedEnumeration getEdgeModeUnchecked self = liftDOM ((self ^. js "edgeMode") >>= fromJSValUnchecked)