{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGAnimationElement (getStartTime, getCurrentTime, getSimpleDuration, beginElement, beginElementAt, endElement, endElementAt, getTargetElement, SVGAnimationElement, castToSVGAnimationElement, gTypeSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | getStartTime :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float getStartTime self = liftDOM (realToFrac <$> (((toSVGAnimationElement self) ^. js "getStartTime") >>= valToNumber)) -- | getCurrentTime :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float getCurrentTime self = liftDOM (realToFrac <$> (((toSVGAnimationElement self) ^. js "getCurrentTime") >>= valToNumber)) -- | getSimpleDuration :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float getSimpleDuration self = liftDOM (realToFrac <$> (((toSVGAnimationElement self) ^. js "getSimpleDuration") >>= valToNumber)) -- | beginElement :: (MonadDOM m, IsSVGAnimationElement self) => self -> m () beginElement self = liftDOM (void ((toSVGAnimationElement self) ^. js "beginElement")) -- | beginElementAt :: (MonadDOM m, IsSVGAnimationElement self) => self -> Float -> m () beginElementAt self offset = liftDOM (void ((toSVGAnimationElement self) ^. jsf "beginElementAt" [toJSVal offset])) -- | endElement :: (MonadDOM m, IsSVGAnimationElement self) => self -> m () endElement self = liftDOM (void ((toSVGAnimationElement self) ^. js "endElement")) -- | endElementAt :: (MonadDOM m, IsSVGAnimationElement self) => self -> Float -> m () endElementAt self offset = liftDOM (void ((toSVGAnimationElement self) ^. jsf "endElementAt" [toJSVal offset])) -- | getTargetElement :: (MonadDOM m, IsSVGAnimationElement self) => self -> m (Maybe SVGElement) getTargetElement self = liftDOM (((toSVGAnimationElement self) ^. js "targetElement") >>= fromJSVal)