{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGFEMorphologyElement (setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN, pattern SVG_MORPHOLOGY_OPERATOR_ERODE, pattern SVG_MORPHOLOGY_OPERATOR_DILATE, getIn1, getOperator, getRadiusX, getRadiusY, SVGFEMorphologyElement, castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement) 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 -- | setRadius :: (MonadDOM m) => SVGFEMorphologyElement -> Float -> Float -> m () setRadius self radiusX radiusY = liftDOM (void (self ^. jsf "setRadius" [toJSVal radiusX, toJSVal radiusY])) pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN = 0 pattern SVG_MORPHOLOGY_OPERATOR_ERODE = 1 pattern SVG_MORPHOLOGY_OPERATOR_DILATE = 2 -- | getIn1 :: (MonadDOM m) => SVGFEMorphologyElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) -- | getOperator :: (MonadDOM m) => SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration) getOperator self = liftDOM ((self ^. js "operator") >>= fromJSVal) -- | getRadiusX :: (MonadDOM m) => SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusX self = liftDOM ((self ^. js "radiusX") >>= fromJSVal) -- | getRadiusY :: (MonadDOM m) => SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusY self = liftDOM ((self ^. js "radiusY") >>= fromJSVal)