{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.WebInspector
(
WebInspector(..) ,
IsWebInspector ,
toWebInspector ,
noWebInspector ,
#if defined(ENABLE_OVERLOADING)
ResolveWebInspectorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WebInspectorAttachMethodInfo ,
#endif
webInspectorAttach ,
#if defined(ENABLE_OVERLOADING)
WebInspectorCloseMethodInfo ,
#endif
webInspectorClose ,
#if defined(ENABLE_OVERLOADING)
WebInspectorDetachMethodInfo ,
#endif
webInspectorDetach ,
#if defined(ENABLE_OVERLOADING)
WebInspectorGetAttachedHeightMethodInfo ,
#endif
webInspectorGetAttachedHeight ,
#if defined(ENABLE_OVERLOADING)
WebInspectorGetCanAttachMethodInfo ,
#endif
webInspectorGetCanAttach ,
#if defined(ENABLE_OVERLOADING)
WebInspectorGetInspectedUriMethodInfo ,
#endif
webInspectorGetInspectedUri ,
#if defined(ENABLE_OVERLOADING)
WebInspectorGetWebViewMethodInfo ,
#endif
webInspectorGetWebView ,
#if defined(ENABLE_OVERLOADING)
WebInspectorIsAttachedMethodInfo ,
#endif
webInspectorIsAttached ,
#if defined(ENABLE_OVERLOADING)
WebInspectorShowMethodInfo ,
#endif
webInspectorShow ,
#if defined(ENABLE_OVERLOADING)
WebInspectorAttachedHeightPropertyInfo ,
#endif
getWebInspectorAttachedHeight ,
#if defined(ENABLE_OVERLOADING)
webInspectorAttachedHeight ,
#endif
#if defined(ENABLE_OVERLOADING)
WebInspectorCanAttachPropertyInfo ,
#endif
getWebInspectorCanAttach ,
#if defined(ENABLE_OVERLOADING)
webInspectorCanAttach ,
#endif
#if defined(ENABLE_OVERLOADING)
WebInspectorInspectedUriPropertyInfo ,
#endif
getWebInspectorInspectedUri ,
#if defined(ENABLE_OVERLOADING)
webInspectorInspectedUri ,
#endif
C_WebInspectorAttachCallback ,
WebInspectorAttachCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorAttachSignalInfo ,
#endif
afterWebInspectorAttach ,
genClosure_WebInspectorAttach ,
mk_WebInspectorAttachCallback ,
noWebInspectorAttachCallback ,
onWebInspectorAttach ,
wrap_WebInspectorAttachCallback ,
C_WebInspectorBringToFrontCallback ,
WebInspectorBringToFrontCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorBringToFrontSignalInfo ,
#endif
afterWebInspectorBringToFront ,
genClosure_WebInspectorBringToFront ,
mk_WebInspectorBringToFrontCallback ,
noWebInspectorBringToFrontCallback ,
onWebInspectorBringToFront ,
wrap_WebInspectorBringToFrontCallback ,
C_WebInspectorClosedCallback ,
WebInspectorClosedCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorClosedSignalInfo ,
#endif
afterWebInspectorClosed ,
genClosure_WebInspectorClosed ,
mk_WebInspectorClosedCallback ,
noWebInspectorClosedCallback ,
onWebInspectorClosed ,
wrap_WebInspectorClosedCallback ,
C_WebInspectorDetachCallback ,
WebInspectorDetachCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorDetachSignalInfo ,
#endif
afterWebInspectorDetach ,
genClosure_WebInspectorDetach ,
mk_WebInspectorDetachCallback ,
noWebInspectorDetachCallback ,
onWebInspectorDetach ,
wrap_WebInspectorDetachCallback ,
C_WebInspectorOpenWindowCallback ,
WebInspectorOpenWindowCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorOpenWindowSignalInfo ,
#endif
afterWebInspectorOpenWindow ,
genClosure_WebInspectorOpenWindow ,
mk_WebInspectorOpenWindowCallback ,
noWebInspectorOpenWindowCallback ,
onWebInspectorOpenWindow ,
wrap_WebInspectorOpenWindowCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebViewBase as WebKit2.WebViewBase
newtype WebInspector = WebInspector (ManagedPtr WebInspector)
deriving (WebInspector -> WebInspector -> Bool
(WebInspector -> WebInspector -> Bool)
-> (WebInspector -> WebInspector -> Bool) -> Eq WebInspector
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WebInspector -> WebInspector -> Bool
$c/= :: WebInspector -> WebInspector -> Bool
== :: WebInspector -> WebInspector -> Bool
$c== :: WebInspector -> WebInspector -> Bool
Eq)
foreign import ccall "webkit_web_inspector_get_type"
c_webkit_web_inspector_get_type :: IO GType
instance GObject WebInspector where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_web_inspector_get_type
instance B.GValue.IsGValue WebInspector where
toGValue :: WebInspector -> IO GValue
toGValue o :: WebInspector
o = do
GType
gtype <- IO GType
c_webkit_web_inspector_get_type
WebInspector -> (Ptr WebInspector -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebInspector
o (GType
-> (GValue -> Ptr WebInspector -> IO ())
-> Ptr WebInspector
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr WebInspector -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO WebInspector
fromGValue gv :: GValue
gv = do
Ptr WebInspector
ptr <- GValue -> IO (Ptr WebInspector)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr WebInspector)
(ManagedPtr WebInspector -> WebInspector)
-> Ptr WebInspector -> IO WebInspector
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WebInspector -> WebInspector
WebInspector Ptr WebInspector
ptr
class (GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o
instance (GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o
instance O.HasParentTypes WebInspector
type instance O.ParentTypes WebInspector = '[GObject.Object.Object]
toWebInspector :: (MonadIO m, IsWebInspector o) => o -> m WebInspector
toWebInspector :: o -> m WebInspector
toWebInspector = IO WebInspector -> m WebInspector
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebInspector -> m WebInspector)
-> (o -> IO WebInspector) -> o -> m WebInspector
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WebInspector -> WebInspector) -> o -> IO WebInspector
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr WebInspector -> WebInspector
WebInspector
noWebInspector :: Maybe WebInspector
noWebInspector :: Maybe WebInspector
noWebInspector = Maybe WebInspector
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWebInspectorMethod (t :: Symbol) (o :: *) :: * where
ResolveWebInspectorMethod "attach" o = WebInspectorAttachMethodInfo
ResolveWebInspectorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebInspectorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebInspectorMethod "close" o = WebInspectorCloseMethodInfo
ResolveWebInspectorMethod "detach" o = WebInspectorDetachMethodInfo
ResolveWebInspectorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebInspectorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebInspectorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebInspectorMethod "isAttached" o = WebInspectorIsAttachedMethodInfo
ResolveWebInspectorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebInspectorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebInspectorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebInspectorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebInspectorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebInspectorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebInspectorMethod "show" o = WebInspectorShowMethodInfo
ResolveWebInspectorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebInspectorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebInspectorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebInspectorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebInspectorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebInspectorMethod "getAttachedHeight" o = WebInspectorGetAttachedHeightMethodInfo
ResolveWebInspectorMethod "getCanAttach" o = WebInspectorGetCanAttachMethodInfo
ResolveWebInspectorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebInspectorMethod "getInspectedUri" o = WebInspectorGetInspectedUriMethodInfo
ResolveWebInspectorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebInspectorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebInspectorMethod "getWebView" o = WebInspectorGetWebViewMethodInfo
ResolveWebInspectorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebInspectorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWebInspectorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebInspectorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebInspectorMethod t WebInspector, O.MethodInfo info WebInspector p) => OL.IsLabel t (WebInspector -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type WebInspectorAttachCallback =
IO Bool
noWebInspectorAttachCallback :: Maybe WebInspectorAttachCallback
noWebInspectorAttachCallback :: Maybe WebInspectorAttachCallback
noWebInspectorAttachCallback = Maybe WebInspectorAttachCallback
forall a. Maybe a
Nothing
type C_WebInspectorAttachCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorAttachCallback :: C_WebInspectorAttachCallback -> IO (FunPtr C_WebInspectorAttachCallback)
genClosure_WebInspectorAttach :: MonadIO m => WebInspectorAttachCallback -> m (GClosure C_WebInspectorAttachCallback)
genClosure_WebInspectorAttach :: WebInspectorAttachCallback
-> m (GClosure C_WebInspectorAttachCallback)
genClosure_WebInspectorAttach cb :: WebInspectorAttachCallback
cb = IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback WebInspectorAttachCallback
cb
C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorAttachCallback C_WebInspectorAttachCallback
cb' IO (FunPtr C_WebInspectorAttachCallback)
-> (FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebInspectorAttachCallback ::
WebInspectorAttachCallback ->
C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback :: WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback _cb :: WebInspectorAttachCallback
_cb _ _ = do
Bool
result <- WebInspectorAttachCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorAttach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId
onWebInspectorAttach :: a -> WebInspectorAttachCallback -> m SignalHandlerId
onWebInspectorAttach obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorAttachCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "attach" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorAttach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId
afterWebInspectorAttach :: a -> WebInspectorAttachCallback -> m SignalHandlerId
afterWebInspectorAttach obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorAttachCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "attach" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebInspectorAttachSignalInfo
instance SignalInfo WebInspectorAttachSignalInfo where
type HaskellCallbackType WebInspectorAttachSignalInfo = WebInspectorAttachCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebInspectorAttachCallback cb
cb'' <- mk_WebInspectorAttachCallback cb'
connectSignalFunPtr obj "attach" cb'' connectMode detail
#endif
type WebInspectorBringToFrontCallback =
IO Bool
noWebInspectorBringToFrontCallback :: Maybe WebInspectorBringToFrontCallback
noWebInspectorBringToFrontCallback :: Maybe WebInspectorAttachCallback
noWebInspectorBringToFrontCallback = Maybe WebInspectorAttachCallback
forall a. Maybe a
Nothing
type C_WebInspectorBringToFrontCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorBringToFrontCallback :: C_WebInspectorBringToFrontCallback -> IO (FunPtr C_WebInspectorBringToFrontCallback)
genClosure_WebInspectorBringToFront :: MonadIO m => WebInspectorBringToFrontCallback -> m (GClosure C_WebInspectorBringToFrontCallback)
genClosure_WebInspectorBringToFront :: WebInspectorAttachCallback
-> m (GClosure C_WebInspectorAttachCallback)
genClosure_WebInspectorBringToFront cb :: WebInspectorAttachCallback
cb = IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorBringToFrontCallback WebInspectorAttachCallback
cb
C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorBringToFrontCallback C_WebInspectorAttachCallback
cb' IO (FunPtr C_WebInspectorAttachCallback)
-> (FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebInspectorBringToFrontCallback ::
WebInspectorBringToFrontCallback ->
C_WebInspectorBringToFrontCallback
wrap_WebInspectorBringToFrontCallback :: WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorBringToFrontCallback _cb :: WebInspectorAttachCallback
_cb _ _ = do
Bool
result <- WebInspectorAttachCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorBringToFront :: (IsWebInspector a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId
onWebInspectorBringToFront :: a -> WebInspectorAttachCallback -> m SignalHandlerId
onWebInspectorBringToFront obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorBringToFrontCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorBringToFrontCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "bring-to-front" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorBringToFront :: (IsWebInspector a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId
afterWebInspectorBringToFront :: a -> WebInspectorAttachCallback -> m SignalHandlerId
afterWebInspectorBringToFront obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorBringToFrontCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorBringToFrontCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "bring-to-front" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebInspectorBringToFrontSignalInfo
instance SignalInfo WebInspectorBringToFrontSignalInfo where
type HaskellCallbackType WebInspectorBringToFrontSignalInfo = WebInspectorBringToFrontCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebInspectorBringToFrontCallback cb
cb'' <- mk_WebInspectorBringToFrontCallback cb'
connectSignalFunPtr obj "bring-to-front" cb'' connectMode detail
#endif
type WebInspectorClosedCallback =
IO ()
noWebInspectorClosedCallback :: Maybe WebInspectorClosedCallback
noWebInspectorClosedCallback :: Maybe (IO ())
noWebInspectorClosedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WebInspectorClosedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebInspectorClosedCallback :: C_WebInspectorClosedCallback -> IO (FunPtr C_WebInspectorClosedCallback)
genClosure_WebInspectorClosed :: MonadIO m => WebInspectorClosedCallback -> m (GClosure C_WebInspectorClosedCallback)
genClosure_WebInspectorClosed :: IO () -> m (GClosure C_WebInspectorClosedCallback)
genClosure_WebInspectorClosed cb :: IO ()
cb = IO (GClosure C_WebInspectorClosedCallback)
-> m (GClosure C_WebInspectorClosedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebInspectorClosedCallback)
-> m (GClosure C_WebInspectorClosedCallback))
-> IO (GClosure C_WebInspectorClosedCallback)
-> m (GClosure C_WebInspectorClosedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorClosedCallback
cb' = IO () -> C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback IO ()
cb
C_WebInspectorClosedCallback
-> IO (FunPtr C_WebInspectorClosedCallback)
mk_WebInspectorClosedCallback C_WebInspectorClosedCallback
cb' IO (FunPtr C_WebInspectorClosedCallback)
-> (FunPtr C_WebInspectorClosedCallback
-> IO (GClosure C_WebInspectorClosedCallback))
-> IO (GClosure C_WebInspectorClosedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebInspectorClosedCallback
-> IO (GClosure C_WebInspectorClosedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebInspectorClosedCallback ::
WebInspectorClosedCallback ->
C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback :: IO () -> C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWebInspectorClosed :: (IsWebInspector a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId
onWebInspectorClosed :: a -> IO () -> m SignalHandlerId
onWebInspectorClosed obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorClosedCallback
cb' = IO () -> C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback IO ()
cb
FunPtr C_WebInspectorClosedCallback
cb'' <- C_WebInspectorClosedCallback
-> IO (FunPtr C_WebInspectorClosedCallback)
mk_WebInspectorClosedCallback C_WebInspectorClosedCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorClosedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "closed" FunPtr C_WebInspectorClosedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorClosed :: (IsWebInspector a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId
afterWebInspectorClosed :: a -> IO () -> m SignalHandlerId
afterWebInspectorClosed obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorClosedCallback
cb' = IO () -> C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback IO ()
cb
FunPtr C_WebInspectorClosedCallback
cb'' <- C_WebInspectorClosedCallback
-> IO (FunPtr C_WebInspectorClosedCallback)
mk_WebInspectorClosedCallback C_WebInspectorClosedCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorClosedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "closed" FunPtr C_WebInspectorClosedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebInspectorClosedSignalInfo
instance SignalInfo WebInspectorClosedSignalInfo where
type HaskellCallbackType WebInspectorClosedSignalInfo = WebInspectorClosedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebInspectorClosedCallback cb
cb'' <- mk_WebInspectorClosedCallback cb'
connectSignalFunPtr obj "closed" cb'' connectMode detail
#endif
type WebInspectorDetachCallback =
IO Bool
noWebInspectorDetachCallback :: Maybe WebInspectorDetachCallback
noWebInspectorDetachCallback :: Maybe WebInspectorAttachCallback
noWebInspectorDetachCallback = Maybe WebInspectorAttachCallback
forall a. Maybe a
Nothing
type C_WebInspectorDetachCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorDetachCallback :: C_WebInspectorDetachCallback -> IO (FunPtr C_WebInspectorDetachCallback)
genClosure_WebInspectorDetach :: MonadIO m => WebInspectorDetachCallback -> m (GClosure C_WebInspectorDetachCallback)
genClosure_WebInspectorDetach :: WebInspectorAttachCallback
-> m (GClosure C_WebInspectorAttachCallback)
genClosure_WebInspectorDetach cb :: WebInspectorAttachCallback
cb = IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorDetachCallback WebInspectorAttachCallback
cb
C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorDetachCallback C_WebInspectorAttachCallback
cb' IO (FunPtr C_WebInspectorAttachCallback)
-> (FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebInspectorDetachCallback ::
WebInspectorDetachCallback ->
C_WebInspectorDetachCallback
wrap_WebInspectorDetachCallback :: WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorDetachCallback _cb :: WebInspectorAttachCallback
_cb _ _ = do
Bool
result <- WebInspectorAttachCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorDetach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId
onWebInspectorDetach :: a -> WebInspectorAttachCallback -> m SignalHandlerId
onWebInspectorDetach obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorDetachCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorDetachCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "detach" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorDetach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId
afterWebInspectorDetach :: a -> WebInspectorAttachCallback -> m SignalHandlerId
afterWebInspectorDetach obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorDetachCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorDetachCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "detach" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebInspectorDetachSignalInfo
instance SignalInfo WebInspectorDetachSignalInfo where
type HaskellCallbackType WebInspectorDetachSignalInfo = WebInspectorDetachCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebInspectorDetachCallback cb
cb'' <- mk_WebInspectorDetachCallback cb'
connectSignalFunPtr obj "detach" cb'' connectMode detail
#endif
type WebInspectorOpenWindowCallback =
IO Bool
noWebInspectorOpenWindowCallback :: Maybe WebInspectorOpenWindowCallback
noWebInspectorOpenWindowCallback :: Maybe WebInspectorAttachCallback
noWebInspectorOpenWindowCallback = Maybe WebInspectorAttachCallback
forall a. Maybe a
Nothing
type C_WebInspectorOpenWindowCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorOpenWindowCallback :: C_WebInspectorOpenWindowCallback -> IO (FunPtr C_WebInspectorOpenWindowCallback)
genClosure_WebInspectorOpenWindow :: MonadIO m => WebInspectorOpenWindowCallback -> m (GClosure C_WebInspectorOpenWindowCallback)
genClosure_WebInspectorOpenWindow :: WebInspectorAttachCallback
-> m (GClosure C_WebInspectorAttachCallback)
genClosure_WebInspectorOpenWindow cb :: WebInspectorAttachCallback
cb = IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
-> m (GClosure C_WebInspectorAttachCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorOpenWindowCallback WebInspectorAttachCallback
cb
C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorOpenWindowCallback C_WebInspectorAttachCallback
cb' IO (FunPtr C_WebInspectorAttachCallback)
-> (FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback))
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebInspectorAttachCallback
-> IO (GClosure C_WebInspectorAttachCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebInspectorOpenWindowCallback ::
WebInspectorOpenWindowCallback ->
C_WebInspectorOpenWindowCallback
wrap_WebInspectorOpenWindowCallback :: WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorOpenWindowCallback _cb :: WebInspectorAttachCallback
_cb _ _ = do
Bool
result <- WebInspectorAttachCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorOpenWindow :: (IsWebInspector a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId
onWebInspectorOpenWindow :: a -> WebInspectorAttachCallback -> m SignalHandlerId
onWebInspectorOpenWindow obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorOpenWindowCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorOpenWindowCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "open-window" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorOpenWindow :: (IsWebInspector a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId
afterWebInspectorOpenWindow :: a -> WebInspectorAttachCallback -> m SignalHandlerId
afterWebInspectorOpenWindow obj :: a
obj cb :: WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebInspectorAttachCallback
cb' = WebInspectorAttachCallback -> C_WebInspectorAttachCallback
wrap_WebInspectorOpenWindowCallback WebInspectorAttachCallback
cb
FunPtr C_WebInspectorAttachCallback
cb'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorOpenWindowCallback C_WebInspectorAttachCallback
cb'
a
-> Text
-> FunPtr C_WebInspectorAttachCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "open-window" FunPtr C_WebInspectorAttachCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebInspectorOpenWindowSignalInfo
instance SignalInfo WebInspectorOpenWindowSignalInfo where
type HaskellCallbackType WebInspectorOpenWindowSignalInfo = WebInspectorOpenWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebInspectorOpenWindowCallback cb
cb'' <- mk_WebInspectorOpenWindowCallback cb'
connectSignalFunPtr obj "open-window" cb'' connectMode detail
#endif
getWebInspectorAttachedHeight :: (MonadIO m, IsWebInspector o) => o -> m Word32
getWebInspectorAttachedHeight :: o -> m Word32
getWebInspectorAttachedHeight obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "attached-height"
#if defined(ENABLE_OVERLOADING)
data WebInspectorAttachedHeightPropertyInfo
instance AttrInfo WebInspectorAttachedHeightPropertyInfo where
type AttrAllowedOps WebInspectorAttachedHeightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebInspectorAttachedHeightPropertyInfo = IsWebInspector
type AttrSetTypeConstraint WebInspectorAttachedHeightPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebInspectorAttachedHeightPropertyInfo = (~) ()
type AttrTransferType WebInspectorAttachedHeightPropertyInfo = ()
type AttrGetType WebInspectorAttachedHeightPropertyInfo = Word32
type AttrLabel WebInspectorAttachedHeightPropertyInfo = "attached-height"
type AttrOrigin WebInspectorAttachedHeightPropertyInfo = WebInspector
attrGet = getWebInspectorAttachedHeight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWebInspectorCanAttach :: (MonadIO m, IsWebInspector o) => o -> m Bool
getWebInspectorCanAttach :: o -> m Bool
getWebInspectorCanAttach obj :: o
obj = WebInspectorAttachCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebInspectorAttachCallback -> m Bool)
-> WebInspectorAttachCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WebInspectorAttachCallback
forall a. GObject a => a -> String -> WebInspectorAttachCallback
B.Properties.getObjectPropertyBool o
obj "can-attach"
#if defined(ENABLE_OVERLOADING)
data WebInspectorCanAttachPropertyInfo
instance AttrInfo WebInspectorCanAttachPropertyInfo where
type AttrAllowedOps WebInspectorCanAttachPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebInspectorCanAttachPropertyInfo = IsWebInspector
type AttrSetTypeConstraint WebInspectorCanAttachPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebInspectorCanAttachPropertyInfo = (~) ()
type AttrTransferType WebInspectorCanAttachPropertyInfo = ()
type AttrGetType WebInspectorCanAttachPropertyInfo = Bool
type AttrLabel WebInspectorCanAttachPropertyInfo = "can-attach"
type AttrOrigin WebInspectorCanAttachPropertyInfo = WebInspector
attrGet = getWebInspectorCanAttach
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWebInspectorInspectedUri :: (MonadIO m, IsWebInspector o) => o -> m (Maybe T.Text)
getWebInspectorInspectedUri :: o -> m (Maybe Text)
getWebInspectorInspectedUri obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "inspected-uri"
#if defined(ENABLE_OVERLOADING)
data WebInspectorInspectedUriPropertyInfo
instance AttrInfo WebInspectorInspectedUriPropertyInfo where
type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = IsWebInspector
type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) ()
type AttrTransferType WebInspectorInspectedUriPropertyInfo = ()
type AttrGetType WebInspectorInspectedUriPropertyInfo = (Maybe T.Text)
type AttrLabel WebInspectorInspectedUriPropertyInfo = "inspected-uri"
type AttrOrigin WebInspectorInspectedUriPropertyInfo = WebInspector
attrGet = getWebInspectorInspectedUri
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WebInspector
type instance O.AttributeList WebInspector = WebInspectorAttributeList
type WebInspectorAttributeList = ('[ '("attachedHeight", WebInspectorAttachedHeightPropertyInfo), '("canAttach", WebInspectorCanAttachPropertyInfo), '("inspectedUri", WebInspectorInspectedUriPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
webInspectorAttachedHeight :: AttrLabelProxy "attachedHeight"
webInspectorAttachedHeight = AttrLabelProxy
webInspectorCanAttach :: AttrLabelProxy "canAttach"
webInspectorCanAttach = AttrLabelProxy
webInspectorInspectedUri :: AttrLabelProxy "inspectedUri"
webInspectorInspectedUri = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WebInspector = WebInspectorSignalList
type WebInspectorSignalList = ('[ '("attach", WebInspectorAttachSignalInfo), '("bringToFront", WebInspectorBringToFrontSignalInfo), '("closed", WebInspectorClosedSignalInfo), '("detach", WebInspectorDetachSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("openWindow", WebInspectorOpenWindowSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_web_inspector_attach" webkit_web_inspector_attach ::
Ptr WebInspector ->
IO ()
webInspectorAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m ()
webInspectorAttach :: a -> m ()
webInspectorAttach inspector :: a
inspector = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
Ptr WebInspector -> IO ()
webkit_web_inspector_attach Ptr WebInspector
inspector'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorAttachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorAttachMethodInfo a signature where
overloadedMethod = webInspectorAttach
#endif
foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close ::
Ptr WebInspector ->
IO ()
webInspectorClose ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m ()
webInspectorClose :: a -> m ()
webInspectorClose inspector :: a
inspector = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
Ptr WebInspector -> IO ()
webkit_web_inspector_close Ptr WebInspector
inspector'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorCloseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorCloseMethodInfo a signature where
overloadedMethod = webInspectorClose
#endif
foreign import ccall "webkit_web_inspector_detach" webkit_web_inspector_detach ::
Ptr WebInspector ->
IO ()
webInspectorDetach ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m ()
webInspectorDetach :: a -> m ()
webInspectorDetach inspector :: a
inspector = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
Ptr WebInspector -> IO ()
webkit_web_inspector_detach Ptr WebInspector
inspector'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorDetachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorDetachMethodInfo a signature where
overloadedMethod = webInspectorDetach
#endif
foreign import ccall "webkit_web_inspector_get_attached_height" webkit_web_inspector_get_attached_height ::
Ptr WebInspector ->
IO Word32
webInspectorGetAttachedHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m Word32
webInspectorGetAttachedHeight :: a -> m Word32
webInspectorGetAttachedHeight inspector :: a
inspector = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
Word32
result <- Ptr WebInspector -> IO Word32
webkit_web_inspector_get_attached_height Ptr WebInspector
inspector'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data WebInspectorGetAttachedHeightMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetAttachedHeightMethodInfo a signature where
overloadedMethod = webInspectorGetAttachedHeight
#endif
foreign import ccall "webkit_web_inspector_get_can_attach" webkit_web_inspector_get_can_attach ::
Ptr WebInspector ->
IO CInt
webInspectorGetCanAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m Bool
webInspectorGetCanAttach :: a -> m Bool
webInspectorGetCanAttach inspector :: a
inspector = WebInspectorAttachCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebInspectorAttachCallback -> m Bool)
-> WebInspectorAttachCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
CInt
result <- Ptr WebInspector -> IO CInt
webkit_web_inspector_get_can_attach Ptr WebInspector
inspector'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
Bool -> WebInspectorAttachCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebInspectorGetCanAttachMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetCanAttachMethodInfo a signature where
overloadedMethod = webInspectorGetCanAttach
#endif
foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri ::
Ptr WebInspector ->
IO CString
webInspectorGetInspectedUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m (Maybe T.Text)
webInspectorGetInspectedUri :: a -> m (Maybe Text)
webInspectorGetInspectedUri inspector :: a
inspector = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
CString
result <- Ptr WebInspector -> IO CString
webkit_web_inspector_get_inspected_uri Ptr WebInspector
inspector'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebInspectorGetInspectedUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetInspectedUriMethodInfo a signature where
overloadedMethod = webInspectorGetInspectedUri
#endif
foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view ::
Ptr WebInspector ->
IO (Ptr WebKit2.WebViewBase.WebViewBase)
webInspectorGetWebView ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m (Maybe WebKit2.WebViewBase.WebViewBase)
webInspectorGetWebView :: a -> m (Maybe WebViewBase)
webInspectorGetWebView inspector :: a
inspector = IO (Maybe WebViewBase) -> m (Maybe WebViewBase)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe WebViewBase) -> m (Maybe WebViewBase))
-> IO (Maybe WebViewBase) -> m (Maybe WebViewBase)
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
Ptr WebViewBase
result <- Ptr WebInspector -> IO (Ptr WebViewBase)
webkit_web_inspector_get_web_view Ptr WebInspector
inspector'
Maybe WebViewBase
maybeResult <- Ptr WebViewBase
-> (Ptr WebViewBase -> IO WebViewBase) -> IO (Maybe WebViewBase)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr WebViewBase
result ((Ptr WebViewBase -> IO WebViewBase) -> IO (Maybe WebViewBase))
-> (Ptr WebViewBase -> IO WebViewBase) -> IO (Maybe WebViewBase)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr WebViewBase
result' -> do
WebViewBase
result'' <- ((ManagedPtr WebViewBase -> WebViewBase)
-> Ptr WebViewBase -> IO WebViewBase
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebViewBase -> WebViewBase
WebKit2.WebViewBase.WebViewBase) Ptr WebViewBase
result'
WebViewBase -> IO WebViewBase
forall (m :: * -> *) a. Monad m => a -> m a
return WebViewBase
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
Maybe WebViewBase -> IO (Maybe WebViewBase)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebViewBase
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebInspectorGetWebViewMethodInfo
instance (signature ~ (m (Maybe WebKit2.WebViewBase.WebViewBase)), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetWebViewMethodInfo a signature where
overloadedMethod = webInspectorGetWebView
#endif
foreign import ccall "webkit_web_inspector_is_attached" webkit_web_inspector_is_attached ::
Ptr WebInspector ->
IO CInt
webInspectorIsAttached ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m Bool
webInspectorIsAttached :: a -> m Bool
webInspectorIsAttached inspector :: a
inspector = WebInspectorAttachCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebInspectorAttachCallback -> m Bool)
-> WebInspectorAttachCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
CInt
result <- Ptr WebInspector -> IO CInt
webkit_web_inspector_is_attached Ptr WebInspector
inspector'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
Bool -> WebInspectorAttachCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebInspectorIsAttachedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorIsAttachedMethodInfo a signature where
overloadedMethod = webInspectorIsAttached
#endif
foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show ::
Ptr WebInspector ->
IO ()
webInspectorShow ::
(B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>
a
-> m ()
webInspectorShow :: a -> m ()
webInspectorShow inspector :: a
inspector = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr WebInspector
inspector' <- a -> IO (Ptr WebInspector)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inspector
Ptr WebInspector -> IO ()
webkit_web_inspector_show Ptr WebInspector
inspector'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorShowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorShowMethodInfo a signature where
overloadedMethod = webInspectorShow
#endif