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)))