{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimationElement (getStartTime, getStartTime_, getCurrentTime, getCurrentTime_, getSimpleDuration, getSimpleDuration_, beginElement, beginElementAt, endElement, endElementAt, getTargetElement, getTargetElementUnsafe, getTargetElementUnchecked, SVGAnimationElement(..), gTypeSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) 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 JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums -- | getStartTime :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float getStartTime self = liftDOM (realToFrac <$> (((toSVGAnimationElement self) ^. jsf "getStartTime" ()) >>= valToNumber)) -- | getStartTime_ :: (MonadDOM m, IsSVGAnimationElement self) => self -> m () getStartTime_ self = liftDOM (void ((toSVGAnimationElement self) ^. jsf "getStartTime" ())) -- | getCurrentTime :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float getCurrentTime self = liftDOM (realToFrac <$> (((toSVGAnimationElement self) ^. jsf "getCurrentTime" ()) >>= valToNumber)) -- | getCurrentTime_ :: (MonadDOM m, IsSVGAnimationElement self) => self -> m () getCurrentTime_ self = liftDOM (void ((toSVGAnimationElement self) ^. jsf "getCurrentTime" ())) -- | getSimpleDuration :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float getSimpleDuration self = liftDOM (realToFrac <$> (((toSVGAnimationElement self) ^. jsf "getSimpleDuration" ()) >>= valToNumber)) -- | getSimpleDuration_ :: (MonadDOM m, IsSVGAnimationElement self) => self -> m () getSimpleDuration_ self = liftDOM (void ((toSVGAnimationElement self) ^. jsf "getSimpleDuration" ())) -- | beginElement :: (MonadDOM m, IsSVGAnimationElement self) => self -> m () beginElement self = liftDOM (void ((toSVGAnimationElement self) ^. jsf "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) ^. jsf "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) -- | getTargetElementUnsafe :: (MonadDOM m, IsSVGAnimationElement self, HasCallStack) => self -> m SVGElement getTargetElementUnsafe self = liftDOM ((((toSVGAnimationElement self) ^. js "targetElement") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getTargetElementUnchecked :: (MonadDOM m, IsSVGAnimationElement self) => self -> m SVGElement getTargetElementUnchecked self = liftDOM (((toSVGAnimationElement self) ^. js "targetElement") >>= fromJSValUnchecked)