{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement (js_setRadius, setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN, pattern SVG_MORPHOLOGY_OPERATOR_ERODE, pattern SVG_MORPHOLOGY_OPERATOR_DILATE, js_getIn1, getIn1, js_getOperator, getOperator, js_getRadiusX, getRadiusX, js_getRadiusY, getRadiusY, SVGFEMorphologyElement(..), gTypeSVGFEMorphologyElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"setRadius\"]($2, $3)" js_setRadius :: SVGFEMorphologyElement -> Optional Float -> Optional Float -> IO () -- | setRadius :: (MonadIO m) => SVGFEMorphologyElement -> Maybe Float -> Maybe Float -> m () setRadius self radiusX radiusY = liftIO (js_setRadius self (maybeToOptional radiusX) (maybeToOptional radiusY)) pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN = 0 pattern SVG_MORPHOLOGY_OPERATOR_ERODE = 1 pattern SVG_MORPHOLOGY_OPERATOR_DILATE = 2 foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: SVGFEMorphologyElement -> IO SVGAnimatedString -- | getIn1 :: (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedString getIn1 self = liftIO (js_getIn1 self) foreign import javascript unsafe "$1[\"operator\"]" js_getOperator :: SVGFEMorphologyElement -> IO SVGAnimatedEnumeration -- | getOperator :: (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedEnumeration getOperator self = liftIO (js_getOperator self) foreign import javascript unsafe "$1[\"radiusX\"]" js_getRadiusX :: SVGFEMorphologyElement -> IO SVGAnimatedNumber -- | getRadiusX :: (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedNumber getRadiusX self = liftIO (js_getRadiusX self) foreign import javascript unsafe "$1[\"radiusY\"]" js_getRadiusY :: SVGFEMorphologyElement -> IO SVGAnimatedNumber -- | getRadiusY :: (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedNumber getRadiusY self = liftIO (js_getRadiusY self)