{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DataTransfer (js_clearData, clearData, js_getData, getData, js_setData, setData, js_setDragImage, setDragImage, js_setDropEffect, setDropEffect, js_getDropEffect, getDropEffect, js_setEffectAllowed, setEffectAllowed, js_getEffectAllowed, getEffectAllowed, js_getTypes, getTypes, js_getFiles, getFiles, js_getItems, getItems, DataTransfer, castToDataTransfer, gTypeDataTransfer) 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) 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[\"clearData\"]($2)" js_clearData :: DataTransfer -> JSString -> IO () -- | clearData :: (MonadIO m, ToJSString type') => DataTransfer -> type' -> m () clearData self type' = liftIO (js_clearData (self) (toJSString type')) foreign import javascript unsafe "$1[\"getData\"]($2)" js_getData :: DataTransfer -> JSString -> IO JSString -- | getData :: (MonadIO m, ToJSString type', FromJSString result) => DataTransfer -> type' -> m result getData self type' = liftIO (fromJSString <$> (js_getData (self) (toJSString type'))) foreign import javascript unsafe "$1[\"setData\"]($2, $3)" js_setData :: DataTransfer -> JSString -> JSString -> IO () -- | setData :: (MonadIO m, ToJSString type', ToJSString data') => DataTransfer -> type' -> data' -> m () setData self type' data' = liftIO (js_setData (self) (toJSString type') (toJSString data')) foreign import javascript unsafe "$1[\"setDragImage\"]($2, $3, $4)" js_setDragImage :: DataTransfer -> Nullable Element -> Int -> Int -> IO () -- | setDragImage :: (MonadIO m, IsElement image) => DataTransfer -> Maybe image -> Int -> Int -> m () setDragImage self image x y = liftIO (js_setDragImage (self) (maybeToNullable (fmap toElement image)) x y) foreign import javascript unsafe "$1[\"dropEffect\"] = $2;" js_setDropEffect :: DataTransfer -> JSString -> IO () -- | setDropEffect :: (MonadIO m, ToJSString val) => DataTransfer -> val -> m () setDropEffect self val = liftIO (js_setDropEffect (self) (toJSString val)) foreign import javascript unsafe "$1[\"dropEffect\"]" js_getDropEffect :: DataTransfer -> IO JSString -- | getDropEffect :: (MonadIO m, FromJSString result) => DataTransfer -> m result getDropEffect self = liftIO (fromJSString <$> (js_getDropEffect (self))) foreign import javascript unsafe "$1[\"effectAllowed\"] = $2;" js_setEffectAllowed :: DataTransfer -> JSString -> IO () -- | setEffectAllowed :: (MonadIO m, ToJSString val) => DataTransfer -> val -> m () setEffectAllowed self val = liftIO (js_setEffectAllowed (self) (toJSString val)) foreign import javascript unsafe "$1[\"effectAllowed\"]" js_getEffectAllowed :: DataTransfer -> IO JSString -- | getEffectAllowed :: (MonadIO m, FromJSString result) => DataTransfer -> m result getEffectAllowed self = liftIO (fromJSString <$> (js_getEffectAllowed (self))) foreign import javascript unsafe "$1[\"types\"]" js_getTypes :: DataTransfer -> IO (Nullable Array) -- | getTypes :: (MonadIO m) => DataTransfer -> m (Maybe Array) getTypes self = liftIO (nullableToMaybe <$> (js_getTypes (self))) foreign import javascript unsafe "$1[\"files\"]" js_getFiles :: DataTransfer -> IO (Nullable FileList) -- | getFiles :: (MonadIO m) => DataTransfer -> m (Maybe FileList) getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self))) foreign import javascript unsafe "$1[\"items\"]" js_getItems :: DataTransfer -> IO (Nullable DataTransferItemList) -- | getItems :: (MonadIO m) => DataTransfer -> m (Maybe DataTransferItemList) getItems self = liftIO (nullableToMaybe <$> (js_getItems (self)))