module JSDOM.Generated.SVGDocument
(createEvent, createEvent_, createEventUnsafe,
createEventUnchecked, getRootElement, getRootElementUnsafe,
getRootElementUnchecked, SVGDocument(..), gTypeSVGDocument)
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
createEvent ::
(MonadDOM m, ToJSString eventType) =>
SVGDocument -> eventType -> m (Maybe Event)
createEvent self eventType
= liftDOM
((self ^. jsf "createEvent" [toJSVal eventType]) >>= fromJSVal)
createEvent_ ::
(MonadDOM m, ToJSString eventType) =>
SVGDocument -> eventType -> m ()
createEvent_ self eventType
= liftDOM (void (self ^. jsf "createEvent" [toJSVal eventType]))
createEventUnsafe ::
(MonadDOM m, ToJSString eventType, HasCallStack) =>
SVGDocument -> eventType -> m Event
createEventUnsafe self eventType
= liftDOM
(((self ^. jsf "createEvent" [toJSVal eventType]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createEventUnchecked ::
(MonadDOM m, ToJSString eventType) =>
SVGDocument -> eventType -> m Event
createEventUnchecked self eventType
= liftDOM
((self ^. jsf "createEvent" [toJSVal eventType]) >>=
fromJSValUnchecked)
getRootElement ::
(MonadDOM m) => SVGDocument -> m (Maybe SVGSVGElement)
getRootElement self
= liftDOM ((self ^. js "rootElement") >>= fromJSVal)
getRootElementUnsafe ::
(MonadDOM m, HasCallStack) => SVGDocument -> m SVGSVGElement
getRootElementUnsafe self
= liftDOM
(((self ^. js "rootElement") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRootElementUnchecked ::
(MonadDOM m) => SVGDocument -> m SVGSVGElement
getRootElementUnchecked self
= liftDOM ((self ^. js "rootElement") >>= fromJSValUnchecked)