{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGMarkerElement (js_setOrientToAuto, setOrientToAuto, js_setOrientToAngle, setOrientToAngle, pattern SVG_MARKERUNITS_UNKNOWN, pattern SVG_MARKERUNITS_USERSPACEONUSE, pattern SVG_MARKERUNITS_STROKEWIDTH, pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO, pattern SVG_MARKER_ORIENT_ANGLE, js_getRefX, getRefX, js_getRefY, getRefY, js_getMarkerUnits, getMarkerUnits, js_getMarkerWidth, getMarkerWidth, js_getMarkerHeight, getMarkerHeight, js_getOrientType, getOrientType, js_getOrientAngle, getOrientAngle, SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"setOrientToAuto\"]()" js_setOrientToAuto :: JSRef SVGMarkerElement -> IO () -- | setOrientToAuto :: (MonadIO m) => SVGMarkerElement -> m () setOrientToAuto self = liftIO (js_setOrientToAuto (unSVGMarkerElement self)) foreign import javascript unsafe "$1[\"setOrientToAngle\"]($2)" js_setOrientToAngle :: JSRef SVGMarkerElement -> JSRef SVGAngle -> IO () -- | setOrientToAngle :: (MonadIO m) => SVGMarkerElement -> Maybe SVGAngle -> m () setOrientToAngle self angle = liftIO (js_setOrientToAngle (unSVGMarkerElement self) (maybe jsNull pToJSRef angle)) pattern SVG_MARKERUNITS_UNKNOWN = 0 pattern SVG_MARKERUNITS_USERSPACEONUSE = 1 pattern SVG_MARKERUNITS_STROKEWIDTH = 2 pattern SVG_MARKER_ORIENT_UNKNOWN = 0 pattern SVG_MARKER_ORIENT_AUTO = 1 pattern SVG_MARKER_ORIENT_ANGLE = 2 foreign import javascript unsafe "$1[\"refX\"]" js_getRefX :: JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength) -- | getRefX :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefX self = liftIO ((js_getRefX (unSVGMarkerElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"refY\"]" js_getRefY :: JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength) -- | getRefY :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefY self = liftIO ((js_getRefY (unSVGMarkerElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"markerUnits\"]" js_getMarkerUnits :: JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedEnumeration) -- | getMarkerUnits :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getMarkerUnits self = liftIO ((js_getMarkerUnits (unSVGMarkerElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"markerWidth\"]" js_getMarkerWidth :: JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength) -- | getMarkerWidth :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerWidth self = liftIO ((js_getMarkerWidth (unSVGMarkerElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"markerHeight\"]" js_getMarkerHeight :: JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength) -- | getMarkerHeight :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerHeight self = liftIO ((js_getMarkerHeight (unSVGMarkerElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"orientType\"]" js_getOrientType :: JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedEnumeration) -- | getOrientType :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getOrientType self = liftIO ((js_getOrientType (unSVGMarkerElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"orientAngle\"]" js_getOrientAngle :: JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedAngle) -- | getOrientAngle :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle) getOrientAngle self = liftIO ((js_getOrientAngle (unSVGMarkerElement self)) >>= fromJSRef)