module JSDOM.Generated.DataTransfer
(clearData, getData, getData_, setData, setDragImage,
setDropEffect, getDropEffect, setEffectAllowed, getEffectAllowed,
getTypes, getTypesUnsafe, getTypesUnchecked, getFiles,
getFilesUnsafe, getFilesUnchecked, getItems, getItemsUnsafe,
getItemsUnchecked, DataTransfer(..), gTypeDataTransfer)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
clearData ::
(MonadDOM m, ToJSString type') => DataTransfer -> type' -> m ()
clearData self type'
= liftDOM (void (self ^. jsf "clearData" [toJSVal type']))
getData ::
(MonadDOM m, ToJSString type', FromJSString result) =>
DataTransfer -> type' -> m result
getData self type'
= liftDOM
((self ^. jsf "getData" [toJSVal type']) >>= fromJSValUnchecked)
getData_ ::
(MonadDOM m, ToJSString type') => DataTransfer -> type' -> m ()
getData_ self type'
= liftDOM (void (self ^. jsf "getData" [toJSVal type']))
setData ::
(MonadDOM m, ToJSString type', ToJSString data') =>
DataTransfer -> type' -> data' -> m ()
setData self type' data'
= liftDOM
(void (self ^. jsf "setData" [toJSVal type', toJSVal data']))
setDragImage ::
(MonadDOM m, IsElement image) =>
DataTransfer -> Maybe image -> Int -> Int -> m ()
setDragImage self image x y
= liftDOM
(void
(self ^. jsf "setDragImage" [toJSVal image, toJSVal x, toJSVal y]))
setDropEffect ::
(MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()
setDropEffect self val
= liftDOM (self ^. jss "dropEffect" (toJSVal val))
getDropEffect ::
(MonadDOM m, FromJSString result) => DataTransfer -> m result
getDropEffect self
= liftDOM ((self ^. js "dropEffect") >>= fromJSValUnchecked)
setEffectAllowed ::
(MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()
setEffectAllowed self val
= liftDOM (self ^. jss "effectAllowed" (toJSVal val))
getEffectAllowed ::
(MonadDOM m, FromJSString result) => DataTransfer -> m result
getEffectAllowed self
= liftDOM ((self ^. js "effectAllowed") >>= fromJSValUnchecked)
getTypes :: (MonadDOM m) => DataTransfer -> m (Maybe Array)
getTypes self = liftDOM ((self ^. js "types") >>= fromJSVal)
getTypesUnsafe ::
(MonadDOM m, HasCallStack) => DataTransfer -> m Array
getTypesUnsafe self
= liftDOM
(((self ^. js "types") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTypesUnchecked :: (MonadDOM m) => DataTransfer -> m Array
getTypesUnchecked self
= liftDOM ((self ^. js "types") >>= fromJSValUnchecked)
getFiles :: (MonadDOM m) => DataTransfer -> m (Maybe FileList)
getFiles self = liftDOM ((self ^. js "files") >>= fromJSVal)
getFilesUnsafe ::
(MonadDOM m, HasCallStack) => DataTransfer -> m FileList
getFilesUnsafe self
= liftDOM
(((self ^. js "files") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getFilesUnchecked :: (MonadDOM m) => DataTransfer -> m FileList
getFilesUnchecked self
= liftDOM ((self ^. js "files") >>= fromJSValUnchecked)
getItems ::
(MonadDOM m) => DataTransfer -> m (Maybe DataTransferItemList)
getItems self = liftDOM ((self ^. js "items") >>= fromJSVal)
getItemsUnsafe ::
(MonadDOM m, HasCallStack) =>
DataTransfer -> m DataTransferItemList
getItemsUnsafe self
= liftDOM
(((self ^. js "items") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getItemsUnchecked ::
(MonadDOM m) => DataTransfer -> m DataTransferItemList
getItemsUnchecked self
= liftDOM ((self ^. js "items") >>= fromJSValUnchecked)