{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAngle (js_newValueSpecifiedUnits, newValueSpecifiedUnits, js_convertToSpecifiedUnits, convertToSpecifiedUnits, pattern SVG_ANGLETYPE_UNKNOWN, pattern SVG_ANGLETYPE_UNSPECIFIED, pattern SVG_ANGLETYPE_DEG, pattern SVG_ANGLETYPE_RAD, pattern SVG_ANGLETYPE_GRAD, js_getUnitType, getUnitType, js_setValue, setValue, js_getValue, getValue, js_setValueInSpecifiedUnits, setValueInSpecifiedUnits, js_getValueInSpecifiedUnits, getValueInSpecifiedUnits, js_setValueAsString, setValueAsString, js_getValueAsString, getValueAsString, SVGAngle, castToSVGAngle, gTypeSVGAngle) 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[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits :: JSRef SVGAngle -> Word -> Float -> IO () -- | newValueSpecifiedUnits :: (MonadIO m) => SVGAngle -> Word -> Float -> m () newValueSpecifiedUnits self unitType valueInSpecifiedUnits = liftIO (js_newValueSpecifiedUnits (unSVGAngle self) unitType valueInSpecifiedUnits) foreign import javascript unsafe "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits :: JSRef SVGAngle -> Word -> IO () -- | convertToSpecifiedUnits :: (MonadIO m) => SVGAngle -> Word -> m () convertToSpecifiedUnits self unitType = liftIO (js_convertToSpecifiedUnits (unSVGAngle self) unitType) pattern SVG_ANGLETYPE_UNKNOWN = 0 pattern SVG_ANGLETYPE_UNSPECIFIED = 1 pattern SVG_ANGLETYPE_DEG = 2 pattern SVG_ANGLETYPE_RAD = 3 pattern SVG_ANGLETYPE_GRAD = 4 foreign import javascript unsafe "$1[\"unitType\"]" js_getUnitType :: JSRef SVGAngle -> IO Word -- | getUnitType :: (MonadIO m) => SVGAngle -> m Word getUnitType self = liftIO (js_getUnitType (unSVGAngle self)) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: JSRef SVGAngle -> Float -> IO () -- | setValue :: (MonadIO m) => SVGAngle -> Float -> m () setValue self val = liftIO (js_setValue (unSVGAngle self) val) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: JSRef SVGAngle -> IO Float -- | getValue :: (MonadIO m) => SVGAngle -> m Float getValue self = liftIO (js_getValue (unSVGAngle self)) foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits :: JSRef SVGAngle -> Float -> IO () -- | setValueInSpecifiedUnits :: (MonadIO m) => SVGAngle -> Float -> m () setValueInSpecifiedUnits self val = liftIO (js_setValueInSpecifiedUnits (unSVGAngle self) val) foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]" js_getValueInSpecifiedUnits :: JSRef SVGAngle -> IO Float -- | getValueInSpecifiedUnits :: (MonadIO m) => SVGAngle -> m Float getValueInSpecifiedUnits self = liftIO (js_getValueInSpecifiedUnits (unSVGAngle self)) foreign import javascript unsafe "$1[\"valueAsString\"] = $2;" js_setValueAsString :: JSRef SVGAngle -> JSRef (Maybe JSString) -> IO () -- | setValueAsString :: (MonadIO m, ToJSString val) => SVGAngle -> Maybe val -> m () setValueAsString self val = liftIO (js_setValueAsString (unSVGAngle self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"valueAsString\"]" js_getValueAsString :: JSRef SVGAngle -> IO (JSRef (Maybe JSString)) -- | getValueAsString :: (MonadIO m, FromJSString result) => SVGAngle -> m (Maybe result) getValueAsString self = liftIO (fromMaybeJSString <$> (js_getValueAsString (unSVGAngle self)))