{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGElement (js_getPresentationAttribute, getPresentationAttribute, getPresentationAttribute_, getPresentationAttributeUnchecked, js_setXmlbase, setXmlbase, js_getXmlbase, getXmlbase, getXmlbaseUnchecked, js_getOwnerSVGElement, getOwnerSVGElement, getOwnerSVGElementUnchecked, js_getViewportElement, getViewportElement, getViewportElementUnchecked, js_setXmllang, setXmllang, js_getXmllang, getXmllang, js_setXmlspace, setXmlspace, js_getXmlspace, getXmlspace, js_getClassName, getClassName, getClassNameUnchecked, js_getStyle, getStyle, getStyleUnchecked, js_setTabIndex, setTabIndex, js_getTabIndex, getTabIndex, SVGElement, castToSVGElement, gTypeSVGElement, IsSVGElement, toSVGElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) 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))) -- | 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))) -- | 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))) -- | 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))) -- | 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))) -- | 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))) -- | 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))