{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEMorphologyElement (setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN, pattern SVG_MORPHOLOGY_OPERATOR_ERODE, pattern SVG_MORPHOLOGY_OPERATOR_DILATE, getIn1, getOperator, getRadiusX, getRadiusY, SVGFEMorphologyElement(..), gTypeSVGFEMorphologyElement) 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 Data.Traversable (mapM) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) 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, unsafeEventNameAsync) import JSDOM.Enums -- | setRadius :: (MonadDOM m) => SVGFEMorphologyElement -> Maybe Float -> Maybe 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 SVGAnimatedString getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) -- | getOperator :: (MonadDOM m) => SVGFEMorphologyElement -> m SVGAnimatedEnumeration getOperator self = liftDOM ((self ^. js "operator") >>= fromJSValUnchecked) -- | getRadiusX :: (MonadDOM m) => SVGFEMorphologyElement -> m SVGAnimatedNumber getRadiusX self = liftDOM ((self ^. js "radiusX") >>= fromJSValUnchecked) -- | getRadiusY :: (MonadDOM m) => SVGFEMorphologyElement -> m SVGAnimatedNumber getRadiusY self = liftDOM ((self ^. js "radiusY") >>= fromJSValUnchecked)