{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegList (js_clear, clear, js_initialize, initialize, initialize_, initializeUnchecked, js_getItem, getItem, getItem_, getItemUnchecked, js_insertItemBefore, insertItemBefore, insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem, replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem, removeItem, removeItem_, removeItemUnchecked, js_appendItem, appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems, getNumberOfItems, SVGPathSegList, castToSVGPathSegList, gTypeSVGPathSegList) 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[\"clear\"]()" js_clear :: SVGPathSegList -> IO () -- | clear :: (MonadIO m) => SVGPathSegList -> m () clear self = liftIO (js_clear (self)) foreign import javascript unsafe "$1[\"initialize\"]($2)" js_initialize :: SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg) -- | initialize :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) initialize self newItem = liftIO (nullableToMaybe <$> (js_initialize (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | initialize_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m () initialize_ self newItem = liftIO (void (js_initialize (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | initializeUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m SVGPathSeg initializeUnchecked self newItem = liftIO (fromJust . nullableToMaybe <$> (js_initialize (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg) -- | getItem :: (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) getItem self index = liftIO (nullableToMaybe <$> (js_getItem (self) index)) -- | getItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m () getItem_ self index = liftIO (void (js_getItem (self) index)) -- | getItemUnchecked :: (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg getItemUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js_getItem (self) index)) foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" js_insertItemBefore :: SVGPathSegList -> Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg) -- | insertItemBefore :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) insertItemBefore self newItem index = liftIO (nullableToMaybe <$> (js_insertItemBefore (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | insertItemBefore_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m () insertItemBefore_ self newItem index = liftIO (void (js_insertItemBefore (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | insertItemBeforeUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg insertItemBeforeUnchecked self newItem index = liftIO (fromJust . nullableToMaybe <$> (js_insertItemBefore (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" js_replaceItem :: SVGPathSegList -> Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg) -- | replaceItem :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) replaceItem self newItem index = liftIO (nullableToMaybe <$> (js_replaceItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | replaceItem_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m () replaceItem_ self newItem index = liftIO (void (js_replaceItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | replaceItemUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg replaceItemUnchecked self newItem index = liftIO (fromJust . nullableToMaybe <$> (js_replaceItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) foreign import javascript unsafe "$1[\"removeItem\"]($2)" js_removeItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg) -- | removeItem :: (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) removeItem self index = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) -- | removeItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m () removeItem_ self index = liftIO (void (js_removeItem (self) index)) -- | removeItemUnchecked :: (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg removeItemUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js_removeItem (self) index)) foreign import javascript unsafe "$1[\"appendItem\"]($2)" js_appendItem :: SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg) -- | appendItem :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) appendItem self newItem = liftIO (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | appendItem_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m () appendItem_ self newItem = liftIO (void (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | appendItemUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m SVGPathSeg appendItemUnchecked self newItem = liftIO (fromJust . nullableToMaybe <$> (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) foreign import javascript unsafe "$1[\"numberOfItems\"]" js_getNumberOfItems :: SVGPathSegList -> IO Word -- | getNumberOfItems :: (MonadIO m) => SVGPathSegList -> m Word getNumberOfItems self = liftIO (js_getNumberOfItems (self))