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)