gi-webkit-0.2.4.13: GI/WebKit/Objects/WebInspector.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.WebKit.Objects.WebInspector
(
-- * Exported types
WebInspector(..) ,
WebInspectorK ,
toWebInspector ,
noWebInspector ,
-- * Methods
-- ** webInspectorClose
WebInspectorCloseMethodInfo ,
webInspectorClose ,
-- ** webInspectorGetInspectedUri
WebInspectorGetInspectedUriMethodInfo ,
webInspectorGetInspectedUri ,
-- ** webInspectorGetWebView
WebInspectorGetWebViewMethodInfo ,
webInspectorGetWebView ,
-- ** webInspectorInspectCoordinates
WebInspectorInspectCoordinatesMethodInfo,
webInspectorInspectCoordinates ,
-- ** webInspectorInspectNode
WebInspectorInspectNodeMethodInfo ,
webInspectorInspectNode ,
-- ** webInspectorShow
WebInspectorShowMethodInfo ,
webInspectorShow ,
-- * Properties
-- ** InspectedUri
WebInspectorInspectedUriPropertyInfo ,
getWebInspectorInspectedUri ,
-- ** JavascriptProfilingEnabled
WebInspectorJavascriptProfilingEnabledPropertyInfo,
constructWebInspectorJavascriptProfilingEnabled,
getWebInspectorJavascriptProfilingEnabled,
setWebInspectorJavascriptProfilingEnabled,
-- ** TimelineProfilingEnabled
WebInspectorTimelineProfilingEnabledPropertyInfo,
constructWebInspectorTimelineProfilingEnabled,
getWebInspectorTimelineProfilingEnabled ,
setWebInspectorTimelineProfilingEnabled ,
-- ** WebView
WebInspectorWebViewPropertyInfo ,
getWebInspectorWebView ,
-- * Signals
-- ** AttachWindow
WebInspectorAttachWindowCallback ,
WebInspectorAttachWindowCallbackC ,
WebInspectorAttachWindowSignalInfo ,
afterWebInspectorAttachWindow ,
mkWebInspectorAttachWindowCallback ,
noWebInspectorAttachWindowCallback ,
onWebInspectorAttachWindow ,
webInspectorAttachWindowCallbackWrapper ,
webInspectorAttachWindowClosure ,
-- ** CloseWindow
WebInspectorCloseWindowCallback ,
WebInspectorCloseWindowCallbackC ,
WebInspectorCloseWindowSignalInfo ,
afterWebInspectorCloseWindow ,
mkWebInspectorCloseWindowCallback ,
noWebInspectorCloseWindowCallback ,
onWebInspectorCloseWindow ,
webInspectorCloseWindowCallbackWrapper ,
webInspectorCloseWindowClosure ,
-- ** DetachWindow
WebInspectorDetachWindowCallback ,
WebInspectorDetachWindowCallbackC ,
WebInspectorDetachWindowSignalInfo ,
afterWebInspectorDetachWindow ,
mkWebInspectorDetachWindowCallback ,
noWebInspectorDetachWindowCallback ,
onWebInspectorDetachWindow ,
webInspectorDetachWindowCallbackWrapper ,
webInspectorDetachWindowClosure ,
-- ** Finished
WebInspectorFinishedCallback ,
WebInspectorFinishedCallbackC ,
WebInspectorFinishedSignalInfo ,
afterWebInspectorFinished ,
mkWebInspectorFinishedCallback ,
noWebInspectorFinishedCallback ,
onWebInspectorFinished ,
webInspectorFinishedCallbackWrapper ,
webInspectorFinishedClosure ,
-- ** InspectWebView
WebInspectorInspectWebViewCallback ,
WebInspectorInspectWebViewCallbackC ,
WebInspectorInspectWebViewSignalInfo ,
afterWebInspectorInspectWebView ,
mkWebInspectorInspectWebViewCallback ,
noWebInspectorInspectWebViewCallback ,
onWebInspectorInspectWebView ,
webInspectorInspectWebViewCallbackWrapper,
webInspectorInspectWebViewClosure ,
-- ** ShowWindow
WebInspectorShowWindowCallback ,
WebInspectorShowWindowCallbackC ,
WebInspectorShowWindowSignalInfo ,
afterWebInspectorShowWindow ,
mkWebInspectorShowWindowCallback ,
noWebInspectorShowWindowCallback ,
onWebInspectorShowWindow ,
webInspectorShowWindowCallbackWrapper ,
webInspectorShowWindowClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype WebInspector = WebInspector (ForeignPtr WebInspector)
foreign import ccall "webkit_web_inspector_get_type"
c_webkit_web_inspector_get_type :: IO GType
type instance ParentTypes WebInspector = WebInspectorParentTypes
type WebInspectorParentTypes = '[GObject.Object]
instance GObject WebInspector where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_inspector_get_type
class GObject o => WebInspectorK o
instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o
toWebInspector :: WebInspectorK o => o -> IO WebInspector
toWebInspector = unsafeCastTo WebInspector
noWebInspector :: Maybe WebInspector
noWebInspector = Nothing
type family ResolveWebInspectorMethod (t :: Symbol) (o :: *) :: * where
ResolveWebInspectorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveWebInspectorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveWebInspectorMethod "close" o = WebInspectorCloseMethodInfo
ResolveWebInspectorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveWebInspectorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveWebInspectorMethod "inspectCoordinates" o = WebInspectorInspectCoordinatesMethodInfo
ResolveWebInspectorMethod "inspectNode" o = WebInspectorInspectNodeMethodInfo
ResolveWebInspectorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveWebInspectorMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveWebInspectorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveWebInspectorMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveWebInspectorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveWebInspectorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveWebInspectorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveWebInspectorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveWebInspectorMethod "show" o = WebInspectorShowMethodInfo
ResolveWebInspectorMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveWebInspectorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveWebInspectorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveWebInspectorMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveWebInspectorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveWebInspectorMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveWebInspectorMethod "getInspectedUri" o = WebInspectorGetInspectedUriMethodInfo
ResolveWebInspectorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveWebInspectorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveWebInspectorMethod "getWebView" o = WebInspectorGetWebViewMethodInfo
ResolveWebInspectorMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveWebInspectorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveWebInspectorMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabelProxy t (WebInspector -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabel t (WebInspector -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal WebInspector::attach-window
type WebInspectorAttachWindowCallback =
IO Bool
noWebInspectorAttachWindowCallback :: Maybe WebInspectorAttachWindowCallback
noWebInspectorAttachWindowCallback = Nothing
type WebInspectorAttachWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorAttachWindowCallback :: WebInspectorAttachWindowCallbackC -> IO (FunPtr WebInspectorAttachWindowCallbackC)
webInspectorAttachWindowClosure :: WebInspectorAttachWindowCallback -> IO Closure
webInspectorAttachWindowClosure cb = newCClosure =<< mkWebInspectorAttachWindowCallback wrapped
where wrapped = webInspectorAttachWindowCallbackWrapper cb
webInspectorAttachWindowCallbackWrapper ::
WebInspectorAttachWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorAttachWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorAttachWindow :: (GObject a, MonadIO m) => a -> WebInspectorAttachWindowCallback -> m SignalHandlerId
onWebInspectorAttachWindow obj cb = liftIO $ connectWebInspectorAttachWindow obj cb SignalConnectBefore
afterWebInspectorAttachWindow :: (GObject a, MonadIO m) => a -> WebInspectorAttachWindowCallback -> m SignalHandlerId
afterWebInspectorAttachWindow obj cb = connectWebInspectorAttachWindow obj cb SignalConnectAfter
connectWebInspectorAttachWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorAttachWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorAttachWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorAttachWindowCallback (webInspectorAttachWindowCallbackWrapper cb)
connectSignalFunPtr obj "attach-window" cb' after
-- signal WebInspector::close-window
type WebInspectorCloseWindowCallback =
IO Bool
noWebInspectorCloseWindowCallback :: Maybe WebInspectorCloseWindowCallback
noWebInspectorCloseWindowCallback = Nothing
type WebInspectorCloseWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorCloseWindowCallback :: WebInspectorCloseWindowCallbackC -> IO (FunPtr WebInspectorCloseWindowCallbackC)
webInspectorCloseWindowClosure :: WebInspectorCloseWindowCallback -> IO Closure
webInspectorCloseWindowClosure cb = newCClosure =<< mkWebInspectorCloseWindowCallback wrapped
where wrapped = webInspectorCloseWindowCallbackWrapper cb
webInspectorCloseWindowCallbackWrapper ::
WebInspectorCloseWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorCloseWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorCloseWindow :: (GObject a, MonadIO m) => a -> WebInspectorCloseWindowCallback -> m SignalHandlerId
onWebInspectorCloseWindow obj cb = liftIO $ connectWebInspectorCloseWindow obj cb SignalConnectBefore
afterWebInspectorCloseWindow :: (GObject a, MonadIO m) => a -> WebInspectorCloseWindowCallback -> m SignalHandlerId
afterWebInspectorCloseWindow obj cb = connectWebInspectorCloseWindow obj cb SignalConnectAfter
connectWebInspectorCloseWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorCloseWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorCloseWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorCloseWindowCallback (webInspectorCloseWindowCallbackWrapper cb)
connectSignalFunPtr obj "close-window" cb' after
-- signal WebInspector::detach-window
type WebInspectorDetachWindowCallback =
IO Bool
noWebInspectorDetachWindowCallback :: Maybe WebInspectorDetachWindowCallback
noWebInspectorDetachWindowCallback = Nothing
type WebInspectorDetachWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorDetachWindowCallback :: WebInspectorDetachWindowCallbackC -> IO (FunPtr WebInspectorDetachWindowCallbackC)
webInspectorDetachWindowClosure :: WebInspectorDetachWindowCallback -> IO Closure
webInspectorDetachWindowClosure cb = newCClosure =<< mkWebInspectorDetachWindowCallback wrapped
where wrapped = webInspectorDetachWindowCallbackWrapper cb
webInspectorDetachWindowCallbackWrapper ::
WebInspectorDetachWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorDetachWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorDetachWindow :: (GObject a, MonadIO m) => a -> WebInspectorDetachWindowCallback -> m SignalHandlerId
onWebInspectorDetachWindow obj cb = liftIO $ connectWebInspectorDetachWindow obj cb SignalConnectBefore
afterWebInspectorDetachWindow :: (GObject a, MonadIO m) => a -> WebInspectorDetachWindowCallback -> m SignalHandlerId
afterWebInspectorDetachWindow obj cb = connectWebInspectorDetachWindow obj cb SignalConnectAfter
connectWebInspectorDetachWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorDetachWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorDetachWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorDetachWindowCallback (webInspectorDetachWindowCallbackWrapper cb)
connectSignalFunPtr obj "detach-window" cb' after
-- signal WebInspector::finished
type WebInspectorFinishedCallback =
IO ()
noWebInspectorFinishedCallback :: Maybe WebInspectorFinishedCallback
noWebInspectorFinishedCallback = Nothing
type WebInspectorFinishedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebInspectorFinishedCallback :: WebInspectorFinishedCallbackC -> IO (FunPtr WebInspectorFinishedCallbackC)
webInspectorFinishedClosure :: WebInspectorFinishedCallback -> IO Closure
webInspectorFinishedClosure cb = newCClosure =<< mkWebInspectorFinishedCallback wrapped
where wrapped = webInspectorFinishedCallbackWrapper cb
webInspectorFinishedCallbackWrapper ::
WebInspectorFinishedCallback ->
Ptr () ->
Ptr () ->
IO ()
webInspectorFinishedCallbackWrapper _cb _ _ = do
_cb
onWebInspectorFinished :: (GObject a, MonadIO m) => a -> WebInspectorFinishedCallback -> m SignalHandlerId
onWebInspectorFinished obj cb = liftIO $ connectWebInspectorFinished obj cb SignalConnectBefore
afterWebInspectorFinished :: (GObject a, MonadIO m) => a -> WebInspectorFinishedCallback -> m SignalHandlerId
afterWebInspectorFinished obj cb = connectWebInspectorFinished obj cb SignalConnectAfter
connectWebInspectorFinished :: (GObject a, MonadIO m) =>
a -> WebInspectorFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorFinished obj cb after = liftIO $ do
cb' <- mkWebInspectorFinishedCallback (webInspectorFinishedCallbackWrapper cb)
connectSignalFunPtr obj "finished" cb' after
-- signal WebInspector::inspect-web-view
type WebInspectorInspectWebViewCallback =
WebView ->
IO WebView
noWebInspectorInspectWebViewCallback :: Maybe WebInspectorInspectWebViewCallback
noWebInspectorInspectWebViewCallback = Nothing
type WebInspectorInspectWebViewCallbackC =
Ptr () -> -- object
Ptr WebView ->
Ptr () -> -- user_data
IO (Ptr WebView)
foreign import ccall "wrapper"
mkWebInspectorInspectWebViewCallback :: WebInspectorInspectWebViewCallbackC -> IO (FunPtr WebInspectorInspectWebViewCallbackC)
webInspectorInspectWebViewClosure :: WebInspectorInspectWebViewCallback -> IO Closure
webInspectorInspectWebViewClosure cb = newCClosure =<< mkWebInspectorInspectWebViewCallback wrapped
where wrapped = webInspectorInspectWebViewCallbackWrapper cb
webInspectorInspectWebViewCallbackWrapper ::
WebInspectorInspectWebViewCallback ->
Ptr () ->
Ptr WebView ->
Ptr () ->
IO (Ptr WebView)
webInspectorInspectWebViewCallbackWrapper _cb _ webView _ = do
webView' <- (newObject WebView) webView
result <- _cb webView'
let result' = unsafeManagedPtrCastPtr result
return result'
onWebInspectorInspectWebView :: (GObject a, MonadIO m) => a -> WebInspectorInspectWebViewCallback -> m SignalHandlerId
onWebInspectorInspectWebView obj cb = liftIO $ connectWebInspectorInspectWebView obj cb SignalConnectBefore
afterWebInspectorInspectWebView :: (GObject a, MonadIO m) => a -> WebInspectorInspectWebViewCallback -> m SignalHandlerId
afterWebInspectorInspectWebView obj cb = connectWebInspectorInspectWebView obj cb SignalConnectAfter
connectWebInspectorInspectWebView :: (GObject a, MonadIO m) =>
a -> WebInspectorInspectWebViewCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorInspectWebView obj cb after = liftIO $ do
cb' <- mkWebInspectorInspectWebViewCallback (webInspectorInspectWebViewCallbackWrapper cb)
connectSignalFunPtr obj "inspect-web-view" cb' after
-- signal WebInspector::show-window
type WebInspectorShowWindowCallback =
IO Bool
noWebInspectorShowWindowCallback :: Maybe WebInspectorShowWindowCallback
noWebInspectorShowWindowCallback = Nothing
type WebInspectorShowWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorShowWindowCallback :: WebInspectorShowWindowCallbackC -> IO (FunPtr WebInspectorShowWindowCallbackC)
webInspectorShowWindowClosure :: WebInspectorShowWindowCallback -> IO Closure
webInspectorShowWindowClosure cb = newCClosure =<< mkWebInspectorShowWindowCallback wrapped
where wrapped = webInspectorShowWindowCallbackWrapper cb
webInspectorShowWindowCallbackWrapper ::
WebInspectorShowWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorShowWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorShowWindow :: (GObject a, MonadIO m) => a -> WebInspectorShowWindowCallback -> m SignalHandlerId
onWebInspectorShowWindow obj cb = liftIO $ connectWebInspectorShowWindow obj cb SignalConnectBefore
afterWebInspectorShowWindow :: (GObject a, MonadIO m) => a -> WebInspectorShowWindowCallback -> m SignalHandlerId
afterWebInspectorShowWindow obj cb = connectWebInspectorShowWindow obj cb SignalConnectAfter
connectWebInspectorShowWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorShowWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorShowWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorShowWindowCallback (webInspectorShowWindowCallbackWrapper cb)
connectSignalFunPtr obj "show-window" cb' after
-- VVV Prop "inspected-uri"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable]
getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text
getWebInspectorInspectedUri obj = liftIO $ getObjectPropertyString obj "inspected-uri"
data WebInspectorInspectedUriPropertyInfo
instance AttrInfo WebInspectorInspectedUriPropertyInfo where
type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK
type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text
type AttrLabel WebInspectorInspectedUriPropertyInfo = "inspected-uri"
attrGet _ = getWebInspectorInspectedUri
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "javascript-profiling-enabled"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool
getWebInspectorJavascriptProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "javascript-profiling-enabled"
setWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m ()
setWebInspectorJavascriptProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "javascript-profiling-enabled" val
constructWebInspectorJavascriptProfilingEnabled :: Bool -> IO ([Char], GValue)
constructWebInspectorJavascriptProfilingEnabled val = constructObjectPropertyBool "javascript-profiling-enabled" val
data WebInspectorJavascriptProfilingEnabledPropertyInfo
instance AttrInfo WebInspectorJavascriptProfilingEnabledPropertyInfo where
type AttrAllowedOps WebInspectorJavascriptProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = WebInspectorK
type AttrGetType WebInspectorJavascriptProfilingEnabledPropertyInfo = Bool
type AttrLabel WebInspectorJavascriptProfilingEnabledPropertyInfo = "javascript-profiling-enabled"
attrGet _ = getWebInspectorJavascriptProfilingEnabled
attrSet _ = setWebInspectorJavascriptProfilingEnabled
attrConstruct _ = constructWebInspectorJavascriptProfilingEnabled
-- VVV Prop "timeline-profiling-enabled"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool
getWebInspectorTimelineProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "timeline-profiling-enabled"
setWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m ()
setWebInspectorTimelineProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "timeline-profiling-enabled" val
constructWebInspectorTimelineProfilingEnabled :: Bool -> IO ([Char], GValue)
constructWebInspectorTimelineProfilingEnabled val = constructObjectPropertyBool "timeline-profiling-enabled" val
data WebInspectorTimelineProfilingEnabledPropertyInfo
instance AttrInfo WebInspectorTimelineProfilingEnabledPropertyInfo where
type AttrAllowedOps WebInspectorTimelineProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = WebInspectorK
type AttrGetType WebInspectorTimelineProfilingEnabledPropertyInfo = Bool
type AttrLabel WebInspectorTimelineProfilingEnabledPropertyInfo = "timeline-profiling-enabled"
attrGet _ = getWebInspectorTimelineProfilingEnabled
attrSet _ = setWebInspectorTimelineProfilingEnabled
attrConstruct _ = constructWebInspectorTimelineProfilingEnabled
-- VVV Prop "web-view"
-- Type: TInterface "WebKit" "WebView"
-- Flags: [PropertyReadable]
getWebInspectorWebView :: (MonadIO m, WebInspectorK o) => o -> m WebView
getWebInspectorWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView
data WebInspectorWebViewPropertyInfo
instance AttrInfo WebInspectorWebViewPropertyInfo where
type AttrAllowedOps WebInspectorWebViewPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebInspectorWebViewPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebInspectorWebViewPropertyInfo = WebInspectorK
type AttrGetType WebInspectorWebViewPropertyInfo = WebView
type AttrLabel WebInspectorWebViewPropertyInfo = "web-view"
attrGet _ = getWebInspectorWebView
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList WebInspector = WebInspectorAttributeList
type WebInspectorAttributeList = ('[ '("inspectedUri", WebInspectorInspectedUriPropertyInfo), '("javascriptProfilingEnabled", WebInspectorJavascriptProfilingEnabledPropertyInfo), '("timelineProfilingEnabled", WebInspectorTimelineProfilingEnabledPropertyInfo), '("webView", WebInspectorWebViewPropertyInfo)] :: [(Symbol, *)])
data WebInspectorAttachWindowSignalInfo
instance SignalInfo WebInspectorAttachWindowSignalInfo where
type HaskellCallbackType WebInspectorAttachWindowSignalInfo = WebInspectorAttachWindowCallback
connectSignal _ = connectWebInspectorAttachWindow
data WebInspectorCloseWindowSignalInfo
instance SignalInfo WebInspectorCloseWindowSignalInfo where
type HaskellCallbackType WebInspectorCloseWindowSignalInfo = WebInspectorCloseWindowCallback
connectSignal _ = connectWebInspectorCloseWindow
data WebInspectorDetachWindowSignalInfo
instance SignalInfo WebInspectorDetachWindowSignalInfo where
type HaskellCallbackType WebInspectorDetachWindowSignalInfo = WebInspectorDetachWindowCallback
connectSignal _ = connectWebInspectorDetachWindow
data WebInspectorFinishedSignalInfo
instance SignalInfo WebInspectorFinishedSignalInfo where
type HaskellCallbackType WebInspectorFinishedSignalInfo = WebInspectorFinishedCallback
connectSignal _ = connectWebInspectorFinished
data WebInspectorInspectWebViewSignalInfo
instance SignalInfo WebInspectorInspectWebViewSignalInfo where
type HaskellCallbackType WebInspectorInspectWebViewSignalInfo = WebInspectorInspectWebViewCallback
connectSignal _ = connectWebInspectorInspectWebView
data WebInspectorShowWindowSignalInfo
instance SignalInfo WebInspectorShowWindowSignalInfo where
type HaskellCallbackType WebInspectorShowWindowSignalInfo = WebInspectorShowWindowCallback
connectSignal _ = connectWebInspectorShowWindow
type instance SignalList WebInspector = WebInspectorSignalList
type WebInspectorSignalList = ('[ '("attachWindow", WebInspectorAttachWindowSignalInfo), '("closeWindow", WebInspectorCloseWindowSignalInfo), '("detachWindow", WebInspectorDetachWindowSignalInfo), '("finished", WebInspectorFinishedSignalInfo), '("inspectWebView", WebInspectorInspectWebViewSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("showWindow", WebInspectorShowWindowSignalInfo)] :: [(Symbol, *)])
-- method WebInspector::close
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO ()
webInspectorClose ::
(MonadIO m, WebInspectorK a) =>
a -- _obj
-> m () -- result
webInspectorClose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_inspector_close _obj'
touchManagedPtr _obj
return ()
data WebInspectorCloseMethodInfo
instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorCloseMethodInfo a signature where
overloadedMethod _ = webInspectorClose
-- method WebInspector::get_inspected_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO CString
webInspectorGetInspectedUri ::
(MonadIO m, WebInspectorK a) =>
a -- _obj
-> m T.Text -- result
webInspectorGetInspectedUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_inspector_get_inspected_uri _obj'
checkUnexpectedReturnNULL "webkit_web_inspector_get_inspected_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data WebInspectorGetInspectedUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetInspectedUriMethodInfo a signature where
overloadedMethod _ = webInspectorGetInspectedUri
-- method WebInspector::get_web_view
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "WebKit" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO (Ptr WebView)
webInspectorGetWebView ::
(MonadIO m, WebInspectorK a) =>
a -- _obj
-> m WebView -- result
webInspectorGetWebView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_inspector_get_web_view _obj'
checkUnexpectedReturnNULL "webkit_web_inspector_get_web_view" result
result' <- (newObject WebView) result
touchManagedPtr _obj
return result'
data WebInspectorGetWebViewMethodInfo
instance (signature ~ (m WebView), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetWebViewMethodInfo a signature where
overloadedMethod _ = webInspectorGetWebView
-- method WebInspector::inspect_coordinates
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_inspect_coordinates" webkit_web_inspector_inspect_coordinates ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
IO ()
webInspectorInspectCoordinates ::
(MonadIO m, WebInspectorK a) =>
a -- _obj
-> Double -- x
-> Double -- y
-> m () -- result
webInspectorInspectCoordinates _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let x' = realToFrac x
let y' = realToFrac y
webkit_web_inspector_inspect_coordinates _obj' x' y'
touchManagedPtr _obj
return ()
data WebInspectorInspectCoordinatesMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorInspectCoordinatesMethodInfo a signature where
overloadedMethod _ = webInspectorInspectCoordinates
-- method WebInspector::inspect_node
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_inspect_node" webkit_web_inspector_inspect_node ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
IO ()
webInspectorInspectNode ::
(MonadIO m, WebInspectorK a, DOMNodeK b) =>
a -- _obj
-> b -- node
-> m () -- result
webInspectorInspectNode _obj node = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
webkit_web_inspector_inspect_node _obj' node'
touchManagedPtr _obj
touchManagedPtr node
return ()
data WebInspectorInspectNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, WebInspectorK a, DOMNodeK b) => MethodInfo WebInspectorInspectNodeMethodInfo a signature where
overloadedMethod _ = webInspectorInspectNode
-- method WebInspector::show
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO ()
webInspectorShow ::
(MonadIO m, WebInspectorK a) =>
a -- _obj
-> m () -- result
webInspectorShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_inspector_show _obj'
touchManagedPtr _obj
return ()
data WebInspectorShowMethodInfo
instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorShowMethodInfo a signature where
overloadedMethod _ = webInspectorShow