{-# LANGUAGE ImplicitParams, RankNTypes, 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 ,
#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
WebInspectorAttachCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorAttachSignalInfo ,
#endif
afterWebInspectorAttach ,
onWebInspectorAttach ,
WebInspectorBringToFrontCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorBringToFrontSignalInfo ,
#endif
afterWebInspectorBringToFront ,
onWebInspectorBringToFront ,
WebInspectorClosedCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorClosedSignalInfo ,
#endif
afterWebInspectorClosed ,
onWebInspectorClosed ,
WebInspectorDetachCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorDetachSignalInfo ,
#endif
afterWebInspectorDetach ,
onWebInspectorDetach ,
WebInspectorOpenWindowCallback ,
#if defined(ENABLE_OVERLOADING)
WebInspectorOpenWindowSignalInfo ,
#endif
afterWebInspectorOpenWindow ,
onWebInspectorOpenWindow ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebViewBase as WebKit2.WebViewBase
newtype WebInspector = WebInspector (SP.ManagedPtr WebInspector)
deriving (WebInspector -> WebInspector -> Bool
(WebInspector -> WebInspector -> Bool)
-> (WebInspector -> WebInspector -> Bool) -> Eq WebInspector
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebInspector -> WebInspector -> Bool
== :: WebInspector -> WebInspector -> Bool
$c/= :: WebInspector -> WebInspector -> Bool
/= :: WebInspector -> WebInspector -> Bool
Eq)
instance SP.ManagedPtrNewtype WebInspector where
toManagedPtr :: WebInspector -> ManagedPtr WebInspector
toManagedPtr (WebInspector ManagedPtr WebInspector
p) = ManagedPtr WebInspector
p
foreign import ccall "webkit_web_inspector_get_type"
c_webkit_web_inspector_get_type :: IO B.Types.GType
instance B.Types.TypedObject WebInspector where
glibType :: IO GType
glibType = IO GType
c_webkit_web_inspector_get_type
instance B.Types.GObject WebInspector
class (SP.GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o
instance (SP.GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o
instance O.HasParentTypes WebInspector
type instance O.ParentTypes WebInspector = '[GObject.Object.Object]
toWebInspector :: (MIO.MonadIO m, IsWebInspector o) => o -> m WebInspector
toWebInspector :: forall (m :: * -> *) o.
(MonadIO m, IsWebInspector o) =>
o -> m WebInspector
toWebInspector = IO WebInspector -> m WebInspector
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WebInspector -> WebInspector
WebInspector
instance B.GValue.IsGValue (Maybe WebInspector) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_web_inspector_get_type
gvalueSet_ :: Ptr GValue -> Maybe WebInspector -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WebInspector
P.Nothing = Ptr GValue -> Ptr WebInspector -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WebInspector
forall a. Ptr a
FP.nullPtr :: FP.Ptr WebInspector)
gvalueSet_ Ptr GValue
gv (P.Just WebInspector
obj) = WebInspector -> (Ptr WebInspector -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebInspector
obj (Ptr GValue -> Ptr WebInspector -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WebInspector)
gvalueGet_ Ptr GValue
gv = do
Ptr WebInspector
ptr <- Ptr GValue -> IO (Ptr WebInspector)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WebInspector)
if Ptr WebInspector
ptr Ptr WebInspector -> Ptr WebInspector -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WebInspector
forall a. Ptr a
FP.nullPtr
then WebInspector -> Maybe WebInspector
forall a. a -> Maybe a
P.Just (WebInspector -> Maybe WebInspector)
-> IO WebInspector -> IO (Maybe WebInspector)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe WebInspector -> IO (Maybe WebInspector)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebInspector
forall a. Maybe a
P.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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveWebInspectorMethod t WebInspector, O.OverloadedMethod info WebInspector p, R.HasField t WebInspector p) => R.HasField t WebInspector p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWebInspectorMethod t WebInspector, O.OverloadedMethodInfo info WebInspector) => OL.IsLabel t (O.MethodProxy info WebInspector) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type WebInspectorAttachCallback =
IO Bool
type C_WebInspectorAttachCallback =
Ptr WebInspector ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorAttachCallback :: C_WebInspectorAttachCallback -> IO (FunPtr C_WebInspectorAttachCallback)
wrap_WebInspectorAttachCallback ::
GObject a => (a -> WebInspectorAttachCallback) ->
C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback :: forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback a -> WebInspectorAttachCallback
gi'cb Ptr WebInspector
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr WebInspector
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebInspector
gi'selfPtr ((WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback)
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b. (a -> b) -> a -> b
$ \WebInspector
gi'self -> a -> WebInspectorAttachCallback
gi'cb (WebInspector -> a
forall a b. Coercible a b => a -> b
Coerce.coerce WebInspector
gi'self)
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorAttach :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorAttachCallback) -> m SignalHandlerId
onWebInspectorAttach :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
onWebInspectorAttach a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorAttachCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"attach" FunPtr C_WebInspectorAttachCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorAttach :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorAttachCallback) -> m SignalHandlerId
afterWebInspectorAttach :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
afterWebInspectorAttach a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorAttachCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorAttachCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"attach" FunPtr C_WebInspectorAttachCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector::attach"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:signal:attach"})
#endif
type WebInspectorBringToFrontCallback =
IO Bool
type C_WebInspectorBringToFrontCallback =
Ptr WebInspector ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorBringToFrontCallback :: C_WebInspectorBringToFrontCallback -> IO (FunPtr C_WebInspectorBringToFrontCallback)
wrap_WebInspectorBringToFrontCallback ::
GObject a => (a -> WebInspectorBringToFrontCallback) ->
C_WebInspectorBringToFrontCallback
wrap_WebInspectorBringToFrontCallback :: forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorBringToFrontCallback a -> WebInspectorAttachCallback
gi'cb Ptr WebInspector
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr WebInspector
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebInspector
gi'selfPtr ((WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback)
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b. (a -> b) -> a -> b
$ \WebInspector
gi'self -> a -> WebInspectorAttachCallback
gi'cb (WebInspector -> a
forall a b. Coercible a b => a -> b
Coerce.coerce WebInspector
gi'self)
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorBringToFront :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorBringToFrontCallback) -> m SignalHandlerId
onWebInspectorBringToFront :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
onWebInspectorBringToFront a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorBringToFrontCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorBringToFrontCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"bring-to-front" FunPtr C_WebInspectorAttachCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorBringToFront :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorBringToFrontCallback) -> m SignalHandlerId
afterWebInspectorBringToFront :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
afterWebInspectorBringToFront a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorBringToFrontCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorBringToFrontCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"bring-to-front" FunPtr C_WebInspectorAttachCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector::bring-to-front"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:signal:bringToFront"})
#endif
type WebInspectorClosedCallback =
IO ()
type C_WebInspectorClosedCallback =
Ptr WebInspector ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebInspectorClosedCallback :: C_WebInspectorClosedCallback -> IO (FunPtr C_WebInspectorClosedCallback)
wrap_WebInspectorClosedCallback ::
GObject a => (a -> WebInspectorClosedCallback) ->
C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback :: forall a. GObject a => (a -> IO ()) -> C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback a -> IO ()
gi'cb Ptr WebInspector
gi'selfPtr Ptr ()
_ = do
Ptr WebInspector -> (WebInspector -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebInspector
gi'selfPtr ((WebInspector -> IO ()) -> IO ())
-> (WebInspector -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebInspector
gi'self -> a -> IO ()
gi'cb (WebInspector -> a
forall a b. Coercible a b => a -> b
Coerce.coerce WebInspector
gi'self)
onWebInspectorClosed :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorClosedCallback) -> m SignalHandlerId
onWebInspectorClosed :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWebInspectorClosed a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebInspectorClosedCallback
wrapped' = (a -> IO ()) -> C_WebInspectorClosedCallback
forall a. GObject a => (a -> IO ()) -> C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback a -> IO ()
wrapped
FunPtr C_WebInspectorClosedCallback
wrapped'' <- C_WebInspectorClosedCallback
-> IO (FunPtr C_WebInspectorClosedCallback)
mk_WebInspectorClosedCallback C_WebInspectorClosedCallback
wrapped'
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 Text
"closed" FunPtr C_WebInspectorClosedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorClosed :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorClosedCallback) -> m SignalHandlerId
afterWebInspectorClosed :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWebInspectorClosed a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebInspectorClosedCallback
wrapped' = (a -> IO ()) -> C_WebInspectorClosedCallback
forall a. GObject a => (a -> IO ()) -> C_WebInspectorClosedCallback
wrap_WebInspectorClosedCallback a -> IO ()
wrapped
FunPtr C_WebInspectorClosedCallback
wrapped'' <- C_WebInspectorClosedCallback
-> IO (FunPtr C_WebInspectorClosedCallback)
mk_WebInspectorClosedCallback C_WebInspectorClosedCallback
wrapped'
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 Text
"closed" FunPtr C_WebInspectorClosedCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector::closed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:signal:closed"})
#endif
type WebInspectorDetachCallback =
IO Bool
type C_WebInspectorDetachCallback =
Ptr WebInspector ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorDetachCallback :: C_WebInspectorDetachCallback -> IO (FunPtr C_WebInspectorDetachCallback)
wrap_WebInspectorDetachCallback ::
GObject a => (a -> WebInspectorDetachCallback) ->
C_WebInspectorDetachCallback
wrap_WebInspectorDetachCallback :: forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorDetachCallback a -> WebInspectorAttachCallback
gi'cb Ptr WebInspector
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr WebInspector
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebInspector
gi'selfPtr ((WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback)
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b. (a -> b) -> a -> b
$ \WebInspector
gi'self -> a -> WebInspectorAttachCallback
gi'cb (WebInspector -> a
forall a b. Coercible a b => a -> b
Coerce.coerce WebInspector
gi'self)
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorDetach :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorDetachCallback) -> m SignalHandlerId
onWebInspectorDetach :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
onWebInspectorDetach a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorDetachCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorDetachCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"detach" FunPtr C_WebInspectorAttachCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorDetach :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorDetachCallback) -> m SignalHandlerId
afterWebInspectorDetach :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
afterWebInspectorDetach a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorDetachCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorDetachCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"detach" FunPtr C_WebInspectorAttachCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector::detach"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:signal:detach"})
#endif
type WebInspectorOpenWindowCallback =
IO Bool
type C_WebInspectorOpenWindowCallback =
Ptr WebInspector ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebInspectorOpenWindowCallback :: C_WebInspectorOpenWindowCallback -> IO (FunPtr C_WebInspectorOpenWindowCallback)
wrap_WebInspectorOpenWindowCallback ::
GObject a => (a -> WebInspectorOpenWindowCallback) ->
C_WebInspectorOpenWindowCallback
wrap_WebInspectorOpenWindowCallback :: forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorOpenWindowCallback a -> WebInspectorAttachCallback
gi'cb Ptr WebInspector
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr WebInspector
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebInspector
gi'selfPtr ((WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback)
-> (WebInspector -> WebInspectorAttachCallback)
-> WebInspectorAttachCallback
forall a b. (a -> b) -> a -> b
$ \WebInspector
gi'self -> a -> WebInspectorAttachCallback
gi'cb (WebInspector -> a
forall a b. Coercible a b => a -> b
Coerce.coerce WebInspector
gi'self)
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebInspectorOpenWindow :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorOpenWindowCallback) -> m SignalHandlerId
onWebInspectorOpenWindow :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
onWebInspectorOpenWindow a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorOpenWindowCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorOpenWindowCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"open-window" FunPtr C_WebInspectorAttachCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebInspectorOpenWindow :: (IsWebInspector a, MonadIO m) => a -> ((?self :: a) => WebInspectorOpenWindowCallback) -> m SignalHandlerId
afterWebInspectorOpenWindow :: forall a (m :: * -> *).
(IsWebInspector a, MonadIO m) =>
a
-> ((?self::a) => WebInspectorAttachCallback) -> m SignalHandlerId
afterWebInspectorOpenWindow a
obj (?self::a) => WebInspectorAttachCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WebInspectorAttachCallback
wrapped a
self = let ?self = a
?self::a
self in WebInspectorAttachCallback
(?self::a) => WebInspectorAttachCallback
cb
let wrapped' :: C_WebInspectorAttachCallback
wrapped' = (a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
forall a.
GObject a =>
(a -> WebInspectorAttachCallback) -> C_WebInspectorAttachCallback
wrap_WebInspectorOpenWindowCallback a -> WebInspectorAttachCallback
wrapped
FunPtr C_WebInspectorAttachCallback
wrapped'' <- C_WebInspectorAttachCallback
-> IO (FunPtr C_WebInspectorAttachCallback)
mk_WebInspectorOpenWindowCallback C_WebInspectorAttachCallback
wrapped'
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 Text
"open-window" FunPtr C_WebInspectorAttachCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector::open-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:signal:openWindow"})
#endif
getWebInspectorAttachedHeight :: (MonadIO m, IsWebInspector o) => o -> m Word32
getWebInspectorAttachedHeight :: forall (m :: * -> *) o.
(MonadIO m, IsWebInspector o) =>
o -> m Word32
getWebInspectorAttachedHeight o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.attachedHeight"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:attr:attachedHeight"
})
#endif
getWebInspectorCanAttach :: (MonadIO m, IsWebInspector o) => o -> m Bool
getWebInspectorCanAttach :: forall (m :: * -> *) o.
(MonadIO m, IsWebInspector o) =>
o -> m Bool
getWebInspectorCanAttach o
obj = WebInspectorAttachCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.canAttach"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:attr:canAttach"
})
#endif
getWebInspectorInspectedUri :: (MonadIO m, IsWebInspector o) => o -> m (Maybe T.Text)
getWebInspectorInspectedUri :: forall (m :: * -> *) o.
(MonadIO m, IsWebInspector o) =>
o -> m (Maybe Text)
getWebInspectorInspectedUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.inspectedUri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#g:attr:inspectedUri"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m ()
webInspectorAttach a
inspector = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorAttachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.OverloadedMethod WebInspectorAttachMethodInfo a signature where
overloadedMethod = webInspectorAttach
instance O.OverloadedMethodInfo WebInspectorAttachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorAttach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m ()
webInspectorClose a
inspector = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorCloseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.OverloadedMethod WebInspectorCloseMethodInfo a signature where
overloadedMethod = webInspectorClose
instance O.OverloadedMethodInfo WebInspectorCloseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorClose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m ()
webInspectorDetach a
inspector = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorDetachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.OverloadedMethod WebInspectorDetachMethodInfo a signature where
overloadedMethod = webInspectorDetach
instance O.OverloadedMethodInfo WebInspectorDetachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorDetach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m Word32
webInspectorGetAttachedHeight a
inspector = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WebInspectorGetAttachedHeightMethodInfo a signature where
overloadedMethod = webInspectorGetAttachedHeight
instance O.OverloadedMethodInfo WebInspectorGetAttachedHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorGetAttachedHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m Bool
webInspectorGetCanAttach a
inspector = WebInspectorAttachCallback -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
Bool -> WebInspectorAttachCallback
forall a. a -> IO a
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.OverloadedMethod WebInspectorGetCanAttachMethodInfo a signature where
overloadedMethod = webInspectorGetCanAttach
instance O.OverloadedMethodInfo WebInspectorGetCanAttachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorGetCanAttach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m (Maybe Text)
webInspectorGetInspectedUri a
inspector = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod WebInspectorGetInspectedUriMethodInfo a signature where
overloadedMethod = webInspectorGetInspectedUri
instance O.OverloadedMethodInfo WebInspectorGetInspectedUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorGetInspectedUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m (Maybe WebViewBase)
webInspectorGetWebView a
inspector = IO (Maybe WebViewBase) -> m (Maybe WebViewBase)
forall a. IO a -> m a
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
$ \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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod WebInspectorGetWebViewMethodInfo a signature where
overloadedMethod = webInspectorGetWebView
instance O.OverloadedMethodInfo WebInspectorGetWebViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorGetWebView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m Bool
webInspectorIsAttached a
inspector = WebInspectorAttachCallback -> m Bool
forall a. IO a -> m a
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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inspector
Bool -> WebInspectorAttachCallback
forall a. a -> IO a
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.OverloadedMethod WebInspectorIsAttachedMethodInfo a signature where
overloadedMethod = webInspectorIsAttached
instance O.OverloadedMethodInfo WebInspectorIsAttachedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorIsAttached",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebInspector a) =>
a -> m ()
webInspectorShow a
inspector = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebInspectorShowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.OverloadedMethod WebInspectorShowMethodInfo a signature where
overloadedMethod = webInspectorShow
instance O.OverloadedMethodInfo WebInspectorShowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebInspector.webInspectorShow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WebInspector.html#v:webInspectorShow"
})
#endif