{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGFEGaussianBlurElement (setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, getIn1, getStdDeviationX, getStdDeviationY, getEdgeMode, SVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement) 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 -- | 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) -- | getStdDeviationX :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationX self = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal) -- | getStdDeviationY :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal) -- | getEdgeMode :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal)