{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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, getRefXUnsafe, getRefXUnchecked, js_getRefY, getRefY, getRefYUnsafe, getRefYUnchecked, js_getMarkerUnits, getMarkerUnits, getMarkerUnitsUnsafe, getMarkerUnitsUnchecked, js_getMarkerWidth, getMarkerWidth, getMarkerWidthUnsafe, getMarkerWidthUnchecked, js_getMarkerHeight, getMarkerHeight, getMarkerHeightUnsafe, getMarkerHeightUnchecked, js_getOrientType, getOrientType, getOrientTypeUnsafe, getOrientTypeUnchecked, js_getOrientAngle, getOrientAngle, getOrientAngleUnsafe, getOrientAngleUnchecked, SVGMarkerElement(..), gTypeSVGMarkerElement) 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) 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 GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"setOrientToAuto\"]()" js_setOrientToAuto :: SVGMarkerElement -> IO () -- | setOrientToAuto :: (MonadIO m) => SVGMarkerElement -> m () setOrientToAuto self = liftIO (js_setOrientToAuto (self)) foreign import javascript unsafe "$1[\"setOrientToAngle\"]($2)" js_setOrientToAngle :: SVGMarkerElement -> Nullable SVGAngle -> IO () -- | setOrientToAngle :: (MonadIO m) => SVGMarkerElement -> Maybe SVGAngle -> m () setOrientToAngle self angle = liftIO (js_setOrientToAngle (self) (maybeToNullable 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 :: SVGMarkerElement -> IO (Nullable SVGAnimatedLength) -- | getRefX :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefX self = liftIO (nullableToMaybe <$> (js_getRefX (self))) -- | getRefXUnsafe :: (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedLength getRefXUnsafe self = liftIO ((nullableToMaybe <$> (js_getRefX (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRefXUnchecked :: (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getRefXUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRefX (self))) foreign import javascript unsafe "$1[\"refY\"]" js_getRefY :: SVGMarkerElement -> IO (Nullable SVGAnimatedLength) -- | getRefY :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefY self = liftIO (nullableToMaybe <$> (js_getRefY (self))) -- | getRefYUnsafe :: (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedLength getRefYUnsafe self = liftIO ((nullableToMaybe <$> (js_getRefY (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRefYUnchecked :: (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getRefYUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRefY (self))) foreign import javascript unsafe "$1[\"markerUnits\"]" js_getMarkerUnits :: SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration) -- | getMarkerUnits :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getMarkerUnits self = liftIO (nullableToMaybe <$> (js_getMarkerUnits (self))) -- | getMarkerUnitsUnsafe :: (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedEnumeration getMarkerUnitsUnsafe self = liftIO ((nullableToMaybe <$> (js_getMarkerUnits (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getMarkerUnitsUnchecked :: (MonadIO m) => SVGMarkerElement -> m SVGAnimatedEnumeration getMarkerUnitsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getMarkerUnits (self))) foreign import javascript unsafe "$1[\"markerWidth\"]" js_getMarkerWidth :: SVGMarkerElement -> IO (Nullable SVGAnimatedLength) -- | getMarkerWidth :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerWidth self = liftIO (nullableToMaybe <$> (js_getMarkerWidth (self))) -- | getMarkerWidthUnsafe :: (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedLength getMarkerWidthUnsafe self = liftIO ((nullableToMaybe <$> (js_getMarkerWidth (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getMarkerWidthUnchecked :: (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getMarkerWidthUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getMarkerWidth (self))) foreign import javascript unsafe "$1[\"markerHeight\"]" js_getMarkerHeight :: SVGMarkerElement -> IO (Nullable SVGAnimatedLength) -- | getMarkerHeight :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerHeight self = liftIO (nullableToMaybe <$> (js_getMarkerHeight (self))) -- | getMarkerHeightUnsafe :: (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedLength getMarkerHeightUnsafe self = liftIO ((nullableToMaybe <$> (js_getMarkerHeight (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getMarkerHeightUnchecked :: (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getMarkerHeightUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getMarkerHeight (self))) foreign import javascript unsafe "$1[\"orientType\"]" js_getOrientType :: SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration) -- | getOrientType :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getOrientType self = liftIO (nullableToMaybe <$> (js_getOrientType (self))) -- | getOrientTypeUnsafe :: (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedEnumeration getOrientTypeUnsafe self = liftIO ((nullableToMaybe <$> (js_getOrientType (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getOrientTypeUnchecked :: (MonadIO m) => SVGMarkerElement -> m SVGAnimatedEnumeration getOrientTypeUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getOrientType (self))) foreign import javascript unsafe "$1[\"orientAngle\"]" js_getOrientAngle :: SVGMarkerElement -> IO (Nullable SVGAnimatedAngle) -- | getOrientAngle :: (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle) getOrientAngle self = liftIO (nullableToMaybe <$> (js_getOrientAngle (self))) -- | getOrientAngleUnsafe :: (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedAngle getOrientAngleUnsafe self = liftIO ((nullableToMaybe <$> (js_getOrientAngle (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getOrientAngleUnchecked :: (MonadIO m) => SVGMarkerElement -> m SVGAnimatedAngle getOrientAngleUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getOrientAngle (self)))