{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost (js_loaded, loaded, js_closeWindow, closeWindow, js_bringToFront, bringToFront, js_setZoomFactor, setZoomFactor, js_inspectedURLChanged, inspectedURLChanged, js_requestSetDockSide, requestSetDockSide, js_setAttachedWindowHeight, setAttachedWindowHeight, js_setAttachedWindowWidth, setAttachedWindowWidth, js_setToolbarHeight, setToolbarHeight, js_moveWindowBy, moveWindowBy, js_localizedStringsURL, localizedStringsURL, js_debuggableType, debuggableType, js_copyText, copyText, js_openInNewTab, openInNewTab, js_canSave, canSave, js_save, save, js_append, append, js_close, close, js_platform, platform, js_port, port, js_showContextMenu, showContextMenu, js_dispatchEventAsContextMenuEvent, dispatchEventAsContextMenuEvent, js_sendMessageToBackend, sendMessageToBackend, js_unbufferedLog, unbufferedLog, js_isUnderTest, isUnderTest, js_beep, beep, js_canInspectWorkers, canInspectWorkers, js_canSaveAs, canSaveAs, InspectorFrontendHost, castToInspectorFrontendHost, gTypeInspectorFrontendHost) 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[\"loaded\"]()" js_loaded :: InspectorFrontendHost -> IO () -- | loaded :: (MonadIO m) => InspectorFrontendHost -> m () loaded self = liftIO (js_loaded (self)) foreign import javascript unsafe "$1[\"closeWindow\"]()" js_closeWindow :: InspectorFrontendHost -> IO () -- | closeWindow :: (MonadIO m) => InspectorFrontendHost -> m () closeWindow self = liftIO (js_closeWindow (self)) foreign import javascript unsafe "$1[\"bringToFront\"]()" js_bringToFront :: InspectorFrontendHost -> IO () -- | bringToFront :: (MonadIO m) => InspectorFrontendHost -> m () bringToFront self = liftIO (js_bringToFront (self)) foreign import javascript unsafe "$1[\"setZoomFactor\"]($2)" js_setZoomFactor :: InspectorFrontendHost -> Float -> IO () -- | setZoomFactor :: (MonadIO m) => InspectorFrontendHost -> Float -> m () setZoomFactor self zoom = liftIO (js_setZoomFactor (self) zoom) foreign import javascript unsafe "$1[\"inspectedURLChanged\"]($2)" js_inspectedURLChanged :: InspectorFrontendHost -> JSString -> IO () -- | inspectedURLChanged :: (MonadIO m, ToJSString newURL) => InspectorFrontendHost -> newURL -> m () inspectedURLChanged self newURL = liftIO (js_inspectedURLChanged (self) (toJSString newURL)) foreign import javascript unsafe "$1[\"requestSetDockSide\"]($2)" js_requestSetDockSide :: InspectorFrontendHost -> JSString -> IO () -- | requestSetDockSide :: (MonadIO m, ToJSString side) => InspectorFrontendHost -> side -> m () requestSetDockSide self side = liftIO (js_requestSetDockSide (self) (toJSString side)) foreign import javascript unsafe "$1[\"setAttachedWindowHeight\"]($2)" js_setAttachedWindowHeight :: InspectorFrontendHost -> Word -> IO () -- | setAttachedWindowHeight :: (MonadIO m) => InspectorFrontendHost -> Word -> m () setAttachedWindowHeight self height = liftIO (js_setAttachedWindowHeight (self) height) foreign import javascript unsafe "$1[\"setAttachedWindowWidth\"]($2)" js_setAttachedWindowWidth :: InspectorFrontendHost -> Word -> IO () -- | setAttachedWindowWidth :: (MonadIO m) => InspectorFrontendHost -> Word -> m () setAttachedWindowWidth self width = liftIO (js_setAttachedWindowWidth (self) width) foreign import javascript unsafe "$1[\"setToolbarHeight\"]($2)" js_setToolbarHeight :: InspectorFrontendHost -> Float -> IO () -- | setToolbarHeight :: (MonadIO m) => InspectorFrontendHost -> Float -> m () setToolbarHeight self height = liftIO (js_setToolbarHeight (self) height) foreign import javascript unsafe "$1[\"moveWindowBy\"]($2, $3)" js_moveWindowBy :: InspectorFrontendHost -> Float -> Float -> IO () -- | moveWindowBy :: (MonadIO m) => InspectorFrontendHost -> Float -> Float -> m () moveWindowBy self x y = liftIO (js_moveWindowBy (self) x y) foreign import javascript unsafe "$1[\"localizedStringsURL\"]()" js_localizedStringsURL :: InspectorFrontendHost -> IO JSString -- | localizedStringsURL :: (MonadIO m, FromJSString result) => InspectorFrontendHost -> m result localizedStringsURL self = liftIO (fromJSString <$> (js_localizedStringsURL (self))) foreign import javascript unsafe "$1[\"debuggableType\"]()" js_debuggableType :: InspectorFrontendHost -> IO JSString -- | debuggableType :: (MonadIO m, FromJSString result) => InspectorFrontendHost -> m result debuggableType self = liftIO (fromJSString <$> (js_debuggableType (self))) foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText :: InspectorFrontendHost -> JSString -> IO () -- | copyText :: (MonadIO m, ToJSString text) => InspectorFrontendHost -> text -> m () copyText self text = liftIO (js_copyText (self) (toJSString text)) foreign import javascript unsafe "$1[\"openInNewTab\"]($2)" js_openInNewTab :: InspectorFrontendHost -> JSString -> IO () -- | openInNewTab :: (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m () openInNewTab self url = liftIO (js_openInNewTab (self) (toJSString url)) foreign import javascript unsafe "($1[\"canSave\"]() ? 1 : 0)" js_canSave :: InspectorFrontendHost -> IO Bool -- | canSave :: (MonadIO m) => InspectorFrontendHost -> m Bool canSave self = liftIO (js_canSave (self)) foreign import javascript unsafe "$1[\"save\"]($2, $3, $4, $5)" js_save :: InspectorFrontendHost -> JSString -> JSString -> Bool -> Bool -> IO () -- | save :: (MonadIO m, ToJSString url, ToJSString content) => InspectorFrontendHost -> url -> content -> Bool -> Bool -> m () save self url content base64Encoded forceSaveAs = liftIO (js_save (self) (toJSString url) (toJSString content) base64Encoded forceSaveAs) foreign import javascript unsafe "$1[\"append\"]($2, $3)" js_append :: InspectorFrontendHost -> JSString -> JSString -> IO () -- | append :: (MonadIO m, ToJSString url, ToJSString content) => InspectorFrontendHost -> url -> content -> m () append self url content = liftIO (js_append (self) (toJSString url) (toJSString content)) foreign import javascript unsafe "$1[\"close\"]($2)" js_close :: InspectorFrontendHost -> JSString -> IO () -- | close :: (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m () close self url = liftIO (js_close (self) (toJSString url)) foreign import javascript unsafe "$1[\"platform\"]()" js_platform :: InspectorFrontendHost -> IO JSString -- | platform :: (MonadIO m, FromJSString result) => InspectorFrontendHost -> m result platform self = liftIO (fromJSString <$> (js_platform (self))) foreign import javascript unsafe "$1[\"port\"]()" js_port :: InspectorFrontendHost -> IO JSString -- | port :: (MonadIO m, FromJSString result) => InspectorFrontendHost -> m result port self = liftIO (fromJSString <$> (js_port (self))) foreign import javascript unsafe "$1[\"showContextMenu\"]($2, $3)" js_showContextMenu :: InspectorFrontendHost -> Nullable MouseEvent -> JSRef -> IO () -- | showContextMenu :: (MonadIO m, IsMouseEvent event) => InspectorFrontendHost -> Maybe event -> JSRef -> m () showContextMenu self event items = liftIO (js_showContextMenu (self) (maybeToNullable (fmap toMouseEvent event)) items) foreign import javascript unsafe "$1[\"dispatchEventAsContextMenuEvent\"]($2)" js_dispatchEventAsContextMenuEvent :: InspectorFrontendHost -> Nullable Event -> IO () -- | dispatchEventAsContextMenuEvent :: (MonadIO m, IsEvent event) => InspectorFrontendHost -> Maybe event -> m () dispatchEventAsContextMenuEvent self event = liftIO (js_dispatchEventAsContextMenuEvent (self) (maybeToNullable (fmap toEvent event))) foreign import javascript unsafe "$1[\"sendMessageToBackend\"]($2)" js_sendMessageToBackend :: InspectorFrontendHost -> JSString -> IO () -- | sendMessageToBackend :: (MonadIO m, ToJSString message) => InspectorFrontendHost -> message -> m () sendMessageToBackend self message = liftIO (js_sendMessageToBackend (self) (toJSString message)) foreign import javascript unsafe "$1[\"unbufferedLog\"]($2)" js_unbufferedLog :: InspectorFrontendHost -> JSString -> IO () -- | unbufferedLog :: (MonadIO m, ToJSString message) => InspectorFrontendHost -> message -> m () unbufferedLog self message = liftIO (js_unbufferedLog (self) (toJSString message)) foreign import javascript unsafe "($1[\"isUnderTest\"]() ? 1 : 0)" js_isUnderTest :: InspectorFrontendHost -> IO Bool -- | isUnderTest :: (MonadIO m) => InspectorFrontendHost -> m Bool isUnderTest self = liftIO (js_isUnderTest (self)) foreign import javascript unsafe "$1[\"beep\"]()" js_beep :: InspectorFrontendHost -> IO () -- | beep :: (MonadIO m) => InspectorFrontendHost -> m () beep self = liftIO (js_beep (self)) foreign import javascript unsafe "($1[\"canInspectWorkers\"]() ? 1 : 0)" js_canInspectWorkers :: InspectorFrontendHost -> IO Bool -- | canInspectWorkers :: (MonadIO m) => InspectorFrontendHost -> m Bool canInspectWorkers self = liftIO (js_canInspectWorkers (self)) foreign import javascript unsafe "($1[\"canSaveAs\"]() ? 1 : 0)" js_canSaveAs :: InspectorFrontendHost -> IO Bool -- | canSaveAs :: (MonadIO m) => InspectorFrontendHost -> m Bool canSaveAs self = liftIO (js_canSaveAs (self))