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, localizedStringsURL_, js_debuggableType,
debuggableType, debuggableType_, js_copyText, copyText,
js_openInNewTab, openInNewTab, js_canSave, canSave, canSave_,
js_save, save, js_append, append, js_close, close, js_platform,
platform, platform_, js_port, port, port_, js_showContextMenu,
showContextMenu, js_dispatchEventAsContextMenuEvent,
dispatchEventAsContextMenuEvent, js_sendMessageToBackend,
sendMessageToBackend, js_unbufferedLog, unbufferedLog,
js_isUnderTest, isUnderTest, isUnderTest_, js_beep, beep,
js_canInspectWorkers, canInspectWorkers, canInspectWorkers_,
js_canSaveAs, canSaveAs, canSaveAs_, InspectorFrontendHost(..),
gTypeInspectorFrontendHost)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.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)))
localizedStringsURL_ ::
(MonadIO m) => InspectorFrontendHost -> m ()
localizedStringsURL_ self
= liftIO (void (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)))
debuggableType_ :: (MonadIO m) => InspectorFrontendHost -> m ()
debuggableType_ self = liftIO (void (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))
canSave_ :: (MonadIO m) => InspectorFrontendHost -> m ()
canSave_ self = liftIO (void (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)))
platform_ :: (MonadIO m) => InspectorFrontendHost -> m ()
platform_ self = liftIO (void (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)))
port_ :: (MonadIO m) => InspectorFrontendHost -> m ()
port_ self = liftIO (void (js_port (self)))
foreign import javascript unsafe "$1[\"showContextMenu\"]($2, $3)"
js_showContextMenu ::
InspectorFrontendHost -> Nullable MouseEvent -> JSVal -> IO ()
showContextMenu ::
(MonadIO m, IsMouseEvent event) =>
InspectorFrontendHost -> Maybe event -> JSVal -> 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))
isUnderTest_ :: (MonadIO m) => InspectorFrontendHost -> m ()
isUnderTest_ self = liftIO (void (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))
canInspectWorkers_ :: (MonadIO m) => InspectorFrontendHost -> m ()
canInspectWorkers_ self
= liftIO (void (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))
canSaveAs_ :: (MonadIO m) => InspectorFrontendHost -> m ()
canSaveAs_ self = liftIO (void (js_canSaveAs (self)))