{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, js_setR1, setR1, js_getR1, getR1, js_setR2, setR2, js_getR2, getR2, js_setAngle, setAngle, js_getAngle, getAngle, js_setLargeArcFlag, setLargeArcFlag, js_getLargeArcFlag, getLargeArcFlag, js_setSweepFlag, setSweepFlag, js_getSweepFlag, getSweepFlag, SVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel) 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[\"x\"] = $2;" js_setX :: JSRef SVGPathSegArcRel -> Float -> IO () -- | setX :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () setX self val = liftIO (js_setX (unSVGPathSegArcRel self) val) foreign import javascript unsafe "$1[\"x\"]" js_getX :: JSRef SVGPathSegArcRel -> IO Float -- | getX :: (MonadIO m) => SVGPathSegArcRel -> m Float getX self = liftIO (js_getX (unSVGPathSegArcRel self)) foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: JSRef SVGPathSegArcRel -> Float -> IO () -- | setY :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () setY self val = liftIO (js_setY (unSVGPathSegArcRel self) val) foreign import javascript unsafe "$1[\"y\"]" js_getY :: JSRef SVGPathSegArcRel -> IO Float -- | getY :: (MonadIO m) => SVGPathSegArcRel -> m Float getY self = liftIO (js_getY (unSVGPathSegArcRel self)) foreign import javascript unsafe "$1[\"r1\"] = $2;" js_setR1 :: JSRef SVGPathSegArcRel -> Float -> IO () -- | setR1 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () setR1 self val = liftIO (js_setR1 (unSVGPathSegArcRel self) val) foreign import javascript unsafe "$1[\"r1\"]" js_getR1 :: JSRef SVGPathSegArcRel -> IO Float -- | getR1 :: (MonadIO m) => SVGPathSegArcRel -> m Float getR1 self = liftIO (js_getR1 (unSVGPathSegArcRel self)) foreign import javascript unsafe "$1[\"r2\"] = $2;" js_setR2 :: JSRef SVGPathSegArcRel -> Float -> IO () -- | setR2 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () setR2 self val = liftIO (js_setR2 (unSVGPathSegArcRel self) val) foreign import javascript unsafe "$1[\"r2\"]" js_getR2 :: JSRef SVGPathSegArcRel -> IO Float -- | getR2 :: (MonadIO m) => SVGPathSegArcRel -> m Float getR2 self = liftIO (js_getR2 (unSVGPathSegArcRel self)) foreign import javascript unsafe "$1[\"angle\"] = $2;" js_setAngle :: JSRef SVGPathSegArcRel -> Float -> IO () -- | setAngle :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () setAngle self val = liftIO (js_setAngle (unSVGPathSegArcRel self) val) foreign import javascript unsafe "$1[\"angle\"]" js_getAngle :: JSRef SVGPathSegArcRel -> IO Float -- | getAngle :: (MonadIO m) => SVGPathSegArcRel -> m Float getAngle self = liftIO (js_getAngle (unSVGPathSegArcRel self)) foreign import javascript unsafe "$1[\"largeArcFlag\"] = $2;" js_setLargeArcFlag :: JSRef SVGPathSegArcRel -> Bool -> IO () -- | setLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m () setLargeArcFlag self val = liftIO (js_setLargeArcFlag (unSVGPathSegArcRel self) val) foreign import javascript unsafe "($1[\"largeArcFlag\"] ? 1 : 0)" js_getLargeArcFlag :: JSRef SVGPathSegArcRel -> IO Bool -- | getLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool getLargeArcFlag self = liftIO (js_getLargeArcFlag (unSVGPathSegArcRel self)) foreign import javascript unsafe "$1[\"sweepFlag\"] = $2;" js_setSweepFlag :: JSRef SVGPathSegArcRel -> Bool -> IO () -- | setSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m () setSweepFlag self val = liftIO (js_setSweepFlag (unSVGPathSegArcRel self) val) foreign import javascript unsafe "($1[\"sweepFlag\"] ? 1 : 0)" js_getSweepFlag :: JSRef SVGPathSegArcRel -> IO Bool -- | getSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool getSweepFlag self = liftIO (js_getSweepFlag (unSVGPathSegArcRel self))