module GHCJS.DOM.JSFFI.Generated.SVGElement
(js_getPresentationAttribute, getPresentationAttribute,
getPresentationAttribute_, getPresentationAttributeUnsafe,
getPresentationAttributeUnchecked, js_setXmlbase, setXmlbase,
js_getXmlbase, getXmlbase, getXmlbaseUnsafe, getXmlbaseUnchecked,
js_getOwnerSVGElement, getOwnerSVGElement,
getOwnerSVGElementUnsafe, getOwnerSVGElementUnchecked,
js_getViewportElement, getViewportElement,
getViewportElementUnsafe, getViewportElementUnchecked,
js_setXmllang, setXmllang, js_getXmllang, getXmllang,
js_setXmlspace, setXmlspace, js_getXmlspace, getXmlspace,
js_getClassName, getClassName, getClassNameUnsafe,
getClassNameUnchecked, js_getStyle, getStyle, getStyleUnsafe,
getStyleUnchecked, js_setTabIndex, setTabIndex, js_getTabIndex,
getTabIndex, SVGElement(..), gTypeSVGElement, IsSVGElement,
toSVGElement)
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)
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 GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe
"$1[\"getPresentationAttribute\"]($2)" js_getPresentationAttribute
:: SVGElement -> JSString -> IO (Nullable CSSValue)
getPresentationAttribute ::
(MonadIO m, IsSVGElement self, ToJSString name) =>
self -> name -> m (Maybe CSSValue)
getPresentationAttribute self name
= liftIO
(nullableToMaybe <$>
(js_getPresentationAttribute (toSVGElement self)
(toJSString name)))
getPresentationAttribute_ ::
(MonadIO m, IsSVGElement self, ToJSString name) =>
self -> name -> m ()
getPresentationAttribute_ self name
= liftIO
(void
(js_getPresentationAttribute (toSVGElement self)
(toJSString name)))
getPresentationAttributeUnsafe ::
(MonadIO m, IsSVGElement self, ToJSString name, HasCallStack) =>
self -> name -> m CSSValue
getPresentationAttributeUnsafe self name
= liftIO
((nullableToMaybe <$>
(js_getPresentationAttribute (toSVGElement self)
(toJSString name)))
>>= maybe (Prelude.error "Nothing to return") return)
getPresentationAttributeUnchecked ::
(MonadIO m, IsSVGElement self, ToJSString name) =>
self -> name -> m CSSValue
getPresentationAttributeUnchecked self name
= liftIO
(fromJust . nullableToMaybe <$>
(js_getPresentationAttribute (toSVGElement self)
(toJSString name)))
foreign import javascript unsafe "$1[\"xmlbase\"] = $2;"
js_setXmlbase :: SVGElement -> Nullable JSString -> IO ()
setXmlbase ::
(MonadIO m, IsSVGElement self, ToJSString val) =>
self -> Maybe val -> m ()
setXmlbase self val
= liftIO (js_setXmlbase (toSVGElement self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"xmlbase\"]" js_getXmlbase ::
SVGElement -> IO (Nullable JSString)
getXmlbase ::
(MonadIO m, IsSVGElement self, FromJSString result) =>
self -> m (Maybe result)
getXmlbase self
= liftIO
(fromMaybeJSString <$> (js_getXmlbase (toSVGElement self)))
getXmlbaseUnsafe ::
(MonadIO m, IsSVGElement self, HasCallStack,
FromJSString result) =>
self -> m result
getXmlbaseUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getXmlbase (toSVGElement self))) >>=
maybe (Prelude.error "Nothing to return") return)
getXmlbaseUnchecked ::
(MonadIO m, IsSVGElement self, FromJSString result) =>
self -> m result
getXmlbaseUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getXmlbase (toSVGElement self)))
foreign import javascript unsafe "$1[\"ownerSVGElement\"]"
js_getOwnerSVGElement :: SVGElement -> IO (Nullable SVGSVGElement)
getOwnerSVGElement ::
(MonadIO m, IsSVGElement self) => self -> m (Maybe SVGSVGElement)
getOwnerSVGElement self
= liftIO
(nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))
getOwnerSVGElementUnsafe ::
(MonadIO m, IsSVGElement self, HasCallStack) =>
self -> m SVGSVGElement
getOwnerSVGElementUnsafe self
= liftIO
((nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getOwnerSVGElementUnchecked ::
(MonadIO m, IsSVGElement self) => self -> m SVGSVGElement
getOwnerSVGElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getOwnerSVGElement (toSVGElement self)))
foreign import javascript unsafe "$1[\"viewportElement\"]"
js_getViewportElement :: SVGElement -> IO (Nullable SVGElement)
getViewportElement ::
(MonadIO m, IsSVGElement self) => self -> m (Maybe SVGElement)
getViewportElement self
= liftIO
(nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))
getViewportElementUnsafe ::
(MonadIO m, IsSVGElement self, HasCallStack) =>
self -> m SVGElement
getViewportElementUnsafe self
= liftIO
((nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getViewportElementUnchecked ::
(MonadIO m, IsSVGElement self) => self -> m SVGElement
getViewportElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getViewportElement (toSVGElement self)))
foreign import javascript unsafe "$1[\"xmllang\"] = $2;"
js_setXmllang :: SVGElement -> JSString -> IO ()
setXmllang ::
(MonadIO m, IsSVGElement self, ToJSString val) =>
self -> val -> m ()
setXmllang self val
= liftIO (js_setXmllang (toSVGElement self) (toJSString val))
foreign import javascript unsafe "$1[\"xmllang\"]" js_getXmllang ::
SVGElement -> IO JSString
getXmllang ::
(MonadIO m, IsSVGElement self, FromJSString result) =>
self -> m result
getXmllang self
= liftIO (fromJSString <$> (js_getXmllang (toSVGElement self)))
foreign import javascript unsafe "$1[\"xmlspace\"] = $2;"
js_setXmlspace :: SVGElement -> JSString -> IO ()
setXmlspace ::
(MonadIO m, IsSVGElement self, ToJSString val) =>
self -> val -> m ()
setXmlspace self val
= liftIO (js_setXmlspace (toSVGElement self) (toJSString val))
foreign import javascript unsafe "$1[\"xmlspace\"]" js_getXmlspace
:: SVGElement -> IO JSString
getXmlspace ::
(MonadIO m, IsSVGElement self, FromJSString result) =>
self -> m result
getXmlspace self
= liftIO (fromJSString <$> (js_getXmlspace (toSVGElement self)))
foreign import javascript unsafe "$1[\"className\"]"
js_getClassName :: SVGElement -> IO (Nullable SVGAnimatedString)
getClassName ::
(MonadIO m, IsSVGElement self) =>
self -> m (Maybe SVGAnimatedString)
getClassName self
= liftIO
(nullableToMaybe <$> (js_getClassName (toSVGElement self)))
getClassNameUnsafe ::
(MonadIO m, IsSVGElement self, HasCallStack) =>
self -> m SVGAnimatedString
getClassNameUnsafe self
= liftIO
((nullableToMaybe <$> (js_getClassName (toSVGElement self))) >>=
maybe (Prelude.error "Nothing to return") return)
getClassNameUnchecked ::
(MonadIO m, IsSVGElement self) => self -> m SVGAnimatedString
getClassNameUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getClassName (toSVGElement self)))
foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::
SVGElement -> IO (Nullable CSSStyleDeclaration)
getStyle ::
(MonadIO m, IsSVGElement self) =>
self -> m (Maybe CSSStyleDeclaration)
getStyle self
= liftIO (nullableToMaybe <$> (js_getStyle (toSVGElement self)))
getStyleUnsafe ::
(MonadIO m, IsSVGElement self, HasCallStack) =>
self -> m CSSStyleDeclaration
getStyleUnsafe self
= liftIO
((nullableToMaybe <$> (js_getStyle (toSVGElement self))) >>=
maybe (Prelude.error "Nothing to return") return)
getStyleUnchecked ::
(MonadIO m, IsSVGElement self) => self -> m CSSStyleDeclaration
getStyleUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getStyle (toSVGElement self)))
foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"
js_setTabIndex :: SVGElement -> Int -> IO ()
setTabIndex ::
(MonadIO m, IsSVGElement self) => self -> Int -> m ()
setTabIndex self val
= liftIO (js_setTabIndex (toSVGElement self) val)
foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex
:: SVGElement -> IO Int
getTabIndex :: (MonadIO m, IsSVGElement self) => self -> m Int
getTabIndex self = liftIO (js_getTabIndex (toSVGElement self))