{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimationElement (js_getStartTime, getStartTime, getStartTime_, js_getCurrentTime, getCurrentTime, getCurrentTime_, js_getSimpleDuration, getSimpleDuration, getSimpleDuration_, js_beginElement, beginElement, js_beginElementAt, beginElementAt, js_endElement, endElement, js_endElementAt, endElementAt, js_getTargetElement, getTargetElement, SVGAnimationElement(..), gTypeSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement) 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, jsUndefined) 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 Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"getStartTime\"]()" js_getStartTime :: SVGAnimationElement -> IO Float -- | getStartTime :: (MonadIO m, IsSVGAnimationElement self) => self -> m Float getStartTime self = liftIO (js_getStartTime (toSVGAnimationElement self)) -- | getStartTime_ :: (MonadIO m, IsSVGAnimationElement self) => self -> m () getStartTime_ self = liftIO (void (js_getStartTime (toSVGAnimationElement self))) foreign import javascript unsafe "$1[\"getCurrentTime\"]()" js_getCurrentTime :: SVGAnimationElement -> IO Float -- | getCurrentTime :: (MonadIO m, IsSVGAnimationElement self) => self -> m Float getCurrentTime self = liftIO (js_getCurrentTime (toSVGAnimationElement self)) -- | getCurrentTime_ :: (MonadIO m, IsSVGAnimationElement self) => self -> m () getCurrentTime_ self = liftIO (void (js_getCurrentTime (toSVGAnimationElement self))) foreign import javascript unsafe "$1[\"getSimpleDuration\"]()" js_getSimpleDuration :: SVGAnimationElement -> IO Float -- | getSimpleDuration :: (MonadIO m, IsSVGAnimationElement self) => self -> m Float getSimpleDuration self = liftIO (js_getSimpleDuration (toSVGAnimationElement self)) -- | getSimpleDuration_ :: (MonadIO m, IsSVGAnimationElement self) => self -> m () getSimpleDuration_ self = liftIO (void (js_getSimpleDuration (toSVGAnimationElement self))) foreign import javascript unsafe "$1[\"beginElement\"]()" js_beginElement :: SVGAnimationElement -> IO () -- | beginElement :: (MonadIO m, IsSVGAnimationElement self) => self -> m () beginElement self = liftIO (js_beginElement (toSVGAnimationElement self)) foreign import javascript unsafe "$1[\"beginElementAt\"]($2)" js_beginElementAt :: SVGAnimationElement -> Optional Float -> IO () -- | beginElementAt :: (MonadIO m, IsSVGAnimationElement self) => self -> Maybe Float -> m () beginElementAt self offset = liftIO (js_beginElementAt (toSVGAnimationElement self) (maybeToOptional offset)) foreign import javascript unsafe "$1[\"endElement\"]()" js_endElement :: SVGAnimationElement -> IO () -- | endElement :: (MonadIO m, IsSVGAnimationElement self) => self -> m () endElement self = liftIO (js_endElement (toSVGAnimationElement self)) foreign import javascript unsafe "$1[\"endElementAt\"]($2)" js_endElementAt :: SVGAnimationElement -> Optional Float -> IO () -- | endElementAt :: (MonadIO m, IsSVGAnimationElement self) => self -> Maybe Float -> m () endElementAt self offset = liftIO (js_endElementAt (toSVGAnimationElement self) (maybeToOptional offset)) foreign import javascript unsafe "$1[\"targetElement\"]" js_getTargetElement :: SVGAnimationElement -> IO SVGElement -- | getTargetElement :: (MonadIO m, IsSVGAnimationElement self) => self -> m SVGElement getTargetElement self = liftIO (js_getTargetElement (toSVGAnimationElement self))