{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DataTransferItemList (js_item, item, js_clear, clear, js_addFile, addFile, js_add, add, js_getLength, getLength, DataTransferItemList, castToDataTransferItemList, gTypeDataTransferItemList) 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 (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: JSRef DataTransferItemList -> Word -> IO (JSRef DataTransferItem) -- | item :: (MonadIO m) => DataTransferItemList -> Word -> m (Maybe DataTransferItem) item self index = liftIO ((js_item (unDataTransferItemList self) index) >>= fromJSRef) foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: JSRef DataTransferItemList -> IO () -- | clear :: (MonadIO m) => DataTransferItemList -> m () clear self = liftIO (js_clear (unDataTransferItemList self)) foreign import javascript unsafe "$1[\"add\"]($2)" js_addFile :: JSRef DataTransferItemList -> JSRef File -> IO () -- | addFile :: (MonadIO m) => DataTransferItemList -> Maybe File -> m () addFile self file = liftIO (js_addFile (unDataTransferItemList self) (maybe jsNull pToJSRef file)) foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add :: JSRef DataTransferItemList -> JSString -> JSString -> IO () -- | add :: (MonadIO m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m () add self data' type' = liftIO (js_add (unDataTransferItemList self) (toJSString data') (toJSString type')) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: JSRef DataTransferItemList -> IO Int -- | getLength :: (MonadIO m) => DataTransferItemList -> m Int getLength self = liftIO (js_getLength (unDataTransferItemList self))