ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.DataTransfer
       (js_newDataTransfer, js_clearData, js_getData, js_setData, js_setDragImage, js_setDropEffect, js_getDropEffect, js_setEffectAllowed, js_getEffectAllowed, js_getItems, js_getTypes, js_getFiles, newDataTransfer, clearData, getData, getData_, setData, setDragImage, setDropEffect, getDropEffect, setEffectAllowed, getEffectAllowed, getItems, getTypes, getFiles, DataTransfer(..), gTypeDataTransfer)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return new globalThis[\"DataTransfer\"](); })"
        js_newDataTransfer :: IO DataTransfer
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/DataTransfer MDN DataTransfer. documentation>
newDataTransfer :: (MonadDOM m) => m DataTransfer
newDataTransfer = liftDOM ((js_newDataTransfer))

foreign import javascript safe "(($1, $2) => { return $1[\"clearData\"]($2); })"
        js_clearData :: DataTransfer -> (Optional JSString) -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/clearData MDN DataTransfer.clearData documentation>
clearData :: (MonadDOM m, ToJSString format) => DataTransfer -> Maybe format -> m ()
clearData self format = liftDOM (void ((js_clearData (self) (toOptionalJSString format))))

foreign import javascript safe "(($1, $2) => { return $1[\"getData\"]($2); })"
        js_getData :: DataTransfer -> JSString -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/getData MDN DataTransfer.getData documentation>
getData :: (MonadDOM m, ToJSString format, FromJSString result) => DataTransfer -> format -> m result
getData self format = liftDOM ((fromJSString <$> (js_getData (self) (toJSString format))))

-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/getData MDN DataTransfer.getData documentation>
getData_ :: (MonadDOM m, ToJSString format) => DataTransfer -> format -> m ()
getData_ self format = liftDOM (void ((js_getData (self) (toJSString format))))

foreign import javascript safe "(($1, $2, $3) => { return $1[\"setData\"]($2, $3); })"
        js_setData :: DataTransfer -> JSString -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/setData MDN DataTransfer.setData documentation>
setData :: (MonadDOM m, ToJSString format, ToJSString data') => DataTransfer -> format -> data' -> m ()
setData self format data' = liftDOM (void ((js_setData (self) (toJSString format) (toJSString data'))))

foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setDragImage\"]($2, $3, $4); })"
        js_setDragImage :: DataTransfer -> Element -> Int -> Int -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/setDragImage MDN DataTransfer.setDragImage documentation>
setDragImage :: (MonadDOM m, IsElement image) => DataTransfer -> image -> Int -> Int -> m ()
setDragImage self image x y = liftDOM (void ((js_setDragImage (self) (Types.toElement image) (x) (y))))

foreign import javascript safe "(($1, $2) => { $1[\"dropEffect\"] = $2; })"
        js_setDropEffect :: DataTransfer -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/dropEffect MDN DataTransfer.dropEffect documentation>
setDropEffect :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()
setDropEffect self val = liftDOM (void ((js_setDropEffect (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"dropEffect\"]; })"
        js_getDropEffect :: DataTransfer -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/dropEffect MDN DataTransfer.dropEffect documentation>
getDropEffect :: (MonadDOM m, FromJSString result) => DataTransfer -> m result
getDropEffect self = liftDOM ((fromJSString <$> (js_getDropEffect (self))))

foreign import javascript safe "(($1, $2) => { $1[\"effectAllowed\"] = $2; })"
        js_setEffectAllowed :: DataTransfer -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/effectAllowed MDN DataTransfer.effectAllowed documentation>
setEffectAllowed :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()
setEffectAllowed self val = liftDOM (void ((js_setEffectAllowed (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"effectAllowed\"]; })"
        js_getEffectAllowed :: DataTransfer -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/effectAllowed MDN DataTransfer.effectAllowed documentation>
getEffectAllowed :: (MonadDOM m, FromJSString result) => DataTransfer -> m result
getEffectAllowed self = liftDOM ((fromJSString <$> (js_getEffectAllowed (self))))

foreign import javascript unsafe "(($1) => { return $1[\"items\"]; })"
        js_getItems :: DataTransfer -> IO DataTransferItemList
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/items MDN DataTransfer.items documentation>
getItems :: (MonadDOM m) => DataTransfer -> m DataTransferItemList
getItems self = liftDOM ((js_getItems (self)))

foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })"
        js_getTypes :: DataTransfer -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/types MDN DataTransfer.types documentation>
getTypes :: (MonadDOM m, FromJSString result) => DataTransfer -> m [result]
getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked))

foreign import javascript unsafe "(($1) => { return $1[\"files\"]; })"
        js_getFiles :: DataTransfer -> IO FileList
-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/files MDN DataTransfer.files documentation>
getFiles :: (MonadDOM m) => DataTransfer -> m FileList
getFiles self = liftDOM ((js_getFiles (self)))