{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.WebPage
(
WebPage(..) ,
IsWebPage ,
toWebPage ,
#if defined(ENABLE_OVERLOADING)
ResolveWebPageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WebPageGetDomDocumentMethodInfo ,
#endif
webPageGetDomDocument ,
#if defined(ENABLE_OVERLOADING)
WebPageGetEditorMethodInfo ,
#endif
webPageGetEditor ,
#if defined(ENABLE_OVERLOADING)
WebPageGetIdMethodInfo ,
#endif
webPageGetId ,
#if defined(ENABLE_OVERLOADING)
WebPageGetMainFrameMethodInfo ,
#endif
webPageGetMainFrame ,
#if defined(ENABLE_OVERLOADING)
WebPageGetUriMethodInfo ,
#endif
webPageGetUri ,
#if defined(ENABLE_OVERLOADING)
WebPageSendMessageToViewMethodInfo ,
#endif
webPageSendMessageToView ,
#if defined(ENABLE_OVERLOADING)
WebPageSendMessageToViewFinishMethodInfo,
#endif
webPageSendMessageToViewFinish ,
#if defined(ENABLE_OVERLOADING)
WebPageUriPropertyInfo ,
#endif
getWebPageUri ,
#if defined(ENABLE_OVERLOADING)
webPageUri ,
#endif
WebPageConsoleMessageSentCallback ,
#if defined(ENABLE_OVERLOADING)
WebPageConsoleMessageSentSignalInfo ,
#endif
afterWebPageConsoleMessageSent ,
onWebPageConsoleMessageSent ,
WebPageContextMenuCallback ,
#if defined(ENABLE_OVERLOADING)
WebPageContextMenuSignalInfo ,
#endif
afterWebPageContextMenu ,
onWebPageContextMenu ,
WebPageDocumentLoadedCallback ,
#if defined(ENABLE_OVERLOADING)
WebPageDocumentLoadedSignalInfo ,
#endif
afterWebPageDocumentLoaded ,
onWebPageDocumentLoaded ,
WebPageFormControlsAssociatedCallback ,
#if defined(ENABLE_OVERLOADING)
WebPageFormControlsAssociatedSignalInfo ,
#endif
afterWebPageFormControlsAssociated ,
onWebPageFormControlsAssociated ,
WebPageFormControlsAssociatedForFrameCallback,
#if defined(ENABLE_OVERLOADING)
WebPageFormControlsAssociatedForFrameSignalInfo,
#endif
afterWebPageFormControlsAssociatedForFrame,
onWebPageFormControlsAssociatedForFrame ,
WebPageSendRequestCallback ,
#if defined(ENABLE_OVERLOADING)
WebPageSendRequestSignalInfo ,
#endif
afterWebPageSendRequest ,
onWebPageSendRequest ,
WebPageUserMessageReceivedCallback ,
#if defined(ENABLE_OVERLOADING)
WebPageUserMessageReceivedSignalInfo ,
#endif
afterWebPageUserMessageReceived ,
onWebPageUserMessageReceived ,
WebPageWillSubmitFormCallback ,
#if defined(ENABLE_OVERLOADING)
WebPageWillSubmitFormSignalInfo ,
#endif
afterWebPageWillSubmitForm ,
onWebPageWillSubmitForm ,
) 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.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 qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Enums as WebKit2WebExtension.Enums
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.ContextMenu as WebKit2WebExtension.ContextMenu
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocument as WebKit2WebExtension.DOMDocument
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.Frame as WebKit2WebExtension.Frame
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.URIRequest as WebKit2WebExtension.URIRequest
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.URIResponse as WebKit2WebExtension.URIResponse
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.UserMessage as WebKit2WebExtension.UserMessage
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.WebEditor as WebKit2WebExtension.WebEditor
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.WebHitTestResult as WebKit2WebExtension.WebHitTestResult
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Structs.ConsoleMessage as WebKit2WebExtension.ConsoleMessage
newtype WebPage = WebPage (SP.ManagedPtr WebPage)
deriving (WebPage -> WebPage -> Bool
(WebPage -> WebPage -> Bool)
-> (WebPage -> WebPage -> Bool) -> Eq WebPage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WebPage -> WebPage -> Bool
$c/= :: WebPage -> WebPage -> Bool
== :: WebPage -> WebPage -> Bool
$c== :: WebPage -> WebPage -> Bool
Eq)
instance SP.ManagedPtrNewtype WebPage where
toManagedPtr :: WebPage -> ManagedPtr WebPage
toManagedPtr (WebPage ManagedPtr WebPage
p) = ManagedPtr WebPage
p
foreign import ccall "webkit_web_page_get_type"
c_webkit_web_page_get_type :: IO B.Types.GType
instance B.Types.TypedObject WebPage where
glibType :: IO GType
glibType = IO GType
c_webkit_web_page_get_type
instance B.Types.GObject WebPage
class (SP.GObject o, O.IsDescendantOf WebPage o) => IsWebPage o
instance (SP.GObject o, O.IsDescendantOf WebPage o) => IsWebPage o
instance O.HasParentTypes WebPage
type instance O.ParentTypes WebPage = '[GObject.Object.Object]
toWebPage :: (MIO.MonadIO m, IsWebPage o) => o -> m WebPage
toWebPage :: forall (m :: * -> *) o. (MonadIO m, IsWebPage o) => o -> m WebPage
toWebPage = IO WebPage -> m WebPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WebPage -> m WebPage) -> (o -> IO WebPage) -> o -> m WebPage
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WebPage -> WebPage) -> o -> IO WebPage
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WebPage -> WebPage
WebPage
instance B.GValue.IsGValue (Maybe WebPage) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_web_page_get_type
gvalueSet_ :: Ptr GValue -> Maybe WebPage -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WebPage
P.Nothing = Ptr GValue -> Ptr WebPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WebPage
forall a. Ptr a
FP.nullPtr :: FP.Ptr WebPage)
gvalueSet_ Ptr GValue
gv (P.Just WebPage
obj) = WebPage -> (Ptr WebPage -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebPage
obj (Ptr GValue -> Ptr WebPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WebPage)
gvalueGet_ Ptr GValue
gv = do
Ptr WebPage
ptr <- Ptr GValue -> IO (Ptr WebPage)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WebPage)
if Ptr WebPage
ptr Ptr WebPage -> Ptr WebPage -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WebPage
forall a. Ptr a
FP.nullPtr
then WebPage -> Maybe WebPage
forall a. a -> Maybe a
P.Just (WebPage -> Maybe WebPage) -> IO WebPage -> IO (Maybe WebPage)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr WebPage -> WebPage) -> Ptr WebPage -> IO WebPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WebPage -> WebPage
WebPage Ptr WebPage
ptr
else Maybe WebPage -> IO (Maybe WebPage)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebPage
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWebPageMethod (t :: Symbol) (o :: *) :: * where
ResolveWebPageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebPageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebPageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebPageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebPageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebPageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebPageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebPageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebPageMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebPageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebPageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebPageMethod "sendMessageToView" o = WebPageSendMessageToViewMethodInfo
ResolveWebPageMethod "sendMessageToViewFinish" o = WebPageSendMessageToViewFinishMethodInfo
ResolveWebPageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebPageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebPageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebPageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebPageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebPageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebPageMethod "getDomDocument" o = WebPageGetDomDocumentMethodInfo
ResolveWebPageMethod "getEditor" o = WebPageGetEditorMethodInfo
ResolveWebPageMethod "getId" o = WebPageGetIdMethodInfo
ResolveWebPageMethod "getMainFrame" o = WebPageGetMainFrameMethodInfo
ResolveWebPageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebPageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebPageMethod "getUri" o = WebPageGetUriMethodInfo
ResolveWebPageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebPageMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWebPageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebPageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebPageMethod t WebPage, O.OverloadedMethod info WebPage p) => OL.IsLabel t (WebPage -> 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 ~ ResolveWebPageMethod t WebPage, O.OverloadedMethod info WebPage p, R.HasField t WebPage p) => R.HasField t WebPage p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWebPageMethod t WebPage, O.OverloadedMethodInfo info WebPage) => OL.IsLabel t (O.MethodProxy info WebPage) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type WebPageConsoleMessageSentCallback =
WebKit2WebExtension.ConsoleMessage.ConsoleMessage
-> IO ()
type C_WebPageConsoleMessageSentCallback =
Ptr WebPage ->
Ptr WebKit2WebExtension.ConsoleMessage.ConsoleMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebPageConsoleMessageSentCallback :: C_WebPageConsoleMessageSentCallback -> IO (FunPtr C_WebPageConsoleMessageSentCallback)
wrap_WebPageConsoleMessageSentCallback ::
GObject a => (a -> WebPageConsoleMessageSentCallback) ->
C_WebPageConsoleMessageSentCallback
wrap_WebPageConsoleMessageSentCallback :: forall a.
GObject a =>
(a -> WebPageConsoleMessageSentCallback)
-> C_WebPageConsoleMessageSentCallback
wrap_WebPageConsoleMessageSentCallback a -> WebPageConsoleMessageSentCallback
gi'cb Ptr WebPage
gi'selfPtr Ptr ConsoleMessage
consoleMessage Ptr ()
_ = do
Ptr ConsoleMessage -> WebPageConsoleMessageSentCallback -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ConsoleMessage
consoleMessage (WebPageConsoleMessageSentCallback -> IO ())
-> WebPageConsoleMessageSentCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \ConsoleMessage
consoleMessage' -> do
Ptr WebPage -> (WebPage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO ()) -> IO ()) -> (WebPage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> WebPageConsoleMessageSentCallback
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self) ConsoleMessage
consoleMessage'
onWebPageConsoleMessageSent :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageConsoleMessageSentCallback) -> m SignalHandlerId
onWebPageConsoleMessageSent :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageConsoleMessageSentCallback)
-> m SignalHandlerId
onWebPageConsoleMessageSent a
obj (?self::a) => WebPageConsoleMessageSentCallback
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 wrapped :: a -> WebPageConsoleMessageSentCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageConsoleMessageSentCallback
WebPageConsoleMessageSentCallback
cb
let wrapped' :: C_WebPageConsoleMessageSentCallback
wrapped' = (a -> WebPageConsoleMessageSentCallback)
-> C_WebPageConsoleMessageSentCallback
forall a.
GObject a =>
(a -> WebPageConsoleMessageSentCallback)
-> C_WebPageConsoleMessageSentCallback
wrap_WebPageConsoleMessageSentCallback a -> WebPageConsoleMessageSentCallback
wrapped
FunPtr C_WebPageConsoleMessageSentCallback
wrapped'' <- C_WebPageConsoleMessageSentCallback
-> IO (FunPtr C_WebPageConsoleMessageSentCallback)
mk_WebPageConsoleMessageSentCallback C_WebPageConsoleMessageSentCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageConsoleMessageSentCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"console-message-sent" FunPtr C_WebPageConsoleMessageSentCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageConsoleMessageSent :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageConsoleMessageSentCallback) -> m SignalHandlerId
afterWebPageConsoleMessageSent :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageConsoleMessageSentCallback)
-> m SignalHandlerId
afterWebPageConsoleMessageSent a
obj (?self::a) => WebPageConsoleMessageSentCallback
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 wrapped :: a -> WebPageConsoleMessageSentCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageConsoleMessageSentCallback
WebPageConsoleMessageSentCallback
cb
let wrapped' :: C_WebPageConsoleMessageSentCallback
wrapped' = (a -> WebPageConsoleMessageSentCallback)
-> C_WebPageConsoleMessageSentCallback
forall a.
GObject a =>
(a -> WebPageConsoleMessageSentCallback)
-> C_WebPageConsoleMessageSentCallback
wrap_WebPageConsoleMessageSentCallback a -> WebPageConsoleMessageSentCallback
wrapped
FunPtr C_WebPageConsoleMessageSentCallback
wrapped'' <- C_WebPageConsoleMessageSentCallback
-> IO (FunPtr C_WebPageConsoleMessageSentCallback)
mk_WebPageConsoleMessageSentCallback C_WebPageConsoleMessageSentCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageConsoleMessageSentCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"console-message-sent" FunPtr C_WebPageConsoleMessageSentCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageConsoleMessageSentSignalInfo
instance SignalInfo WebPageConsoleMessageSentSignalInfo where
type HaskellCallbackType WebPageConsoleMessageSentSignalInfo = WebPageConsoleMessageSentCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageConsoleMessageSentCallback cb
cb'' <- mk_WebPageConsoleMessageSentCallback cb'
connectSignalFunPtr obj "console-message-sent" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::console-message-sent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:consoleMessageSent"})
#endif
type =
WebKit2WebExtension.ContextMenu.ContextMenu
-> WebKit2WebExtension.WebHitTestResult.WebHitTestResult
-> IO Bool
type =
Ptr WebPage ->
Ptr WebKit2WebExtension.ContextMenu.ContextMenu ->
Ptr WebKit2WebExtension.WebHitTestResult.WebHitTestResult ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_WebPageContextMenuCallback -> IO (FunPtr C_WebPageContextMenuCallback)
wrap_WebPageContextMenuCallback ::
GObject a => (a -> WebPageContextMenuCallback) ->
C_WebPageContextMenuCallback
a -> WebPageContextMenuCallback
gi'cb Ptr WebPage
gi'selfPtr Ptr ContextMenu
contextMenu Ptr WebHitTestResult
hitTestResult Ptr ()
_ = do
ContextMenu
contextMenu' <- ((ManagedPtr ContextMenu -> ContextMenu)
-> Ptr ContextMenu -> IO ContextMenu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ContextMenu -> ContextMenu
WebKit2WebExtension.ContextMenu.ContextMenu) Ptr ContextMenu
contextMenu
WebHitTestResult
hitTestResult' <- ((ManagedPtr WebHitTestResult -> WebHitTestResult)
-> Ptr WebHitTestResult -> IO WebHitTestResult
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebHitTestResult -> WebHitTestResult
WebKit2WebExtension.WebHitTestResult.WebHitTestResult) Ptr WebHitTestResult
hitTestResult
Bool
result <- Ptr WebPage -> (WebPage -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO Bool) -> IO Bool)
-> (WebPage -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> WebPageContextMenuCallback
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self) ContextMenu
contextMenu' WebHitTestResult
hitTestResult'
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'
onWebPageContextMenu :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageContextMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => WebPageContextMenuCallback
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 wrapped :: a -> WebPageContextMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageContextMenuCallback
WebPageContextMenuCallback
cb
let wrapped' :: C_WebPageContextMenuCallback
wrapped' = (a -> WebPageContextMenuCallback) -> C_WebPageContextMenuCallback
forall a.
GObject a =>
(a -> WebPageContextMenuCallback) -> C_WebPageContextMenuCallback
wrap_WebPageContextMenuCallback a -> WebPageContextMenuCallback
wrapped
FunPtr C_WebPageContextMenuCallback
wrapped'' <- C_WebPageContextMenuCallback
-> IO (FunPtr C_WebPageContextMenuCallback)
mk_WebPageContextMenuCallback C_WebPageContextMenuCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageContextMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"context-menu" FunPtr C_WebPageContextMenuCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageContextMenu :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageContextMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => WebPageContextMenuCallback
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 wrapped :: a -> WebPageContextMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageContextMenuCallback
WebPageContextMenuCallback
cb
let wrapped' :: C_WebPageContextMenuCallback
wrapped' = (a -> WebPageContextMenuCallback) -> C_WebPageContextMenuCallback
forall a.
GObject a =>
(a -> WebPageContextMenuCallback) -> C_WebPageContextMenuCallback
wrap_WebPageContextMenuCallback a -> WebPageContextMenuCallback
wrapped
FunPtr C_WebPageContextMenuCallback
wrapped'' <- C_WebPageContextMenuCallback
-> IO (FunPtr C_WebPageContextMenuCallback)
mk_WebPageContextMenuCallback C_WebPageContextMenuCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageContextMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"context-menu" FunPtr C_WebPageContextMenuCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageContextMenuSignalInfo
instance SignalInfo WebPageContextMenuSignalInfo where
type HaskellCallbackType WebPageContextMenuSignalInfo = WebPageContextMenuCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageContextMenuCallback cb
cb'' <- mk_WebPageContextMenuCallback cb'
connectSignalFunPtr obj "context-menu" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::context-menu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:contextMenu"})
#endif
type WebPageDocumentLoadedCallback =
IO ()
type C_WebPageDocumentLoadedCallback =
Ptr WebPage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebPageDocumentLoadedCallback :: C_WebPageDocumentLoadedCallback -> IO (FunPtr C_WebPageDocumentLoadedCallback)
wrap_WebPageDocumentLoadedCallback ::
GObject a => (a -> WebPageDocumentLoadedCallback) ->
C_WebPageDocumentLoadedCallback
wrap_WebPageDocumentLoadedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_WebPageDocumentLoadedCallback
wrap_WebPageDocumentLoadedCallback a -> IO ()
gi'cb Ptr WebPage
gi'selfPtr Ptr ()
_ = do
Ptr WebPage -> (WebPage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO ()) -> IO ()) -> (WebPage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> IO ()
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self)
onWebPageDocumentLoaded :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageDocumentLoadedCallback) -> m SignalHandlerId
onWebPageDocumentLoaded :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWebPageDocumentLoaded a
obj (?self::a) => 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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebPageDocumentLoadedCallback
wrapped' = (a -> IO ()) -> C_WebPageDocumentLoadedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_WebPageDocumentLoadedCallback
wrap_WebPageDocumentLoadedCallback a -> IO ()
wrapped
FunPtr C_WebPageDocumentLoadedCallback
wrapped'' <- C_WebPageDocumentLoadedCallback
-> IO (FunPtr C_WebPageDocumentLoadedCallback)
mk_WebPageDocumentLoadedCallback C_WebPageDocumentLoadedCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageDocumentLoadedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"document-loaded" FunPtr C_WebPageDocumentLoadedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageDocumentLoaded :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageDocumentLoadedCallback) -> m SignalHandlerId
afterWebPageDocumentLoaded :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWebPageDocumentLoaded a
obj (?self::a) => 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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebPageDocumentLoadedCallback
wrapped' = (a -> IO ()) -> C_WebPageDocumentLoadedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_WebPageDocumentLoadedCallback
wrap_WebPageDocumentLoadedCallback a -> IO ()
wrapped
FunPtr C_WebPageDocumentLoadedCallback
wrapped'' <- C_WebPageDocumentLoadedCallback
-> IO (FunPtr C_WebPageDocumentLoadedCallback)
mk_WebPageDocumentLoadedCallback C_WebPageDocumentLoadedCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageDocumentLoadedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"document-loaded" FunPtr C_WebPageDocumentLoadedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageDocumentLoadedSignalInfo
instance SignalInfo WebPageDocumentLoadedSignalInfo where
type HaskellCallbackType WebPageDocumentLoadedSignalInfo = WebPageDocumentLoadedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageDocumentLoadedCallback cb
cb'' <- mk_WebPageDocumentLoadedCallback cb'
connectSignalFunPtr obj "document-loaded" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::document-loaded"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:documentLoaded"})
#endif
{-# DEPRECATED WebPageFormControlsAssociatedCallback ["(Since version 2.26)",", use [formControlsAssociatedForFrame](\"GI.WebKit2WebExtension.Objects.WebPage#g:signal:formControlsAssociatedForFrame\") instead."] #-}
type WebPageFormControlsAssociatedCallback =
[WebKit2WebExtension.DOMElement.DOMElement]
-> IO ()
type C_WebPageFormControlsAssociatedCallback =
Ptr WebPage ->
Ptr (GPtrArray (Ptr WebKit2WebExtension.DOMElement.DOMElement)) ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebPageFormControlsAssociatedCallback :: C_WebPageFormControlsAssociatedCallback -> IO (FunPtr C_WebPageFormControlsAssociatedCallback)
wrap_WebPageFormControlsAssociatedCallback ::
GObject a => (a -> WebPageFormControlsAssociatedCallback) ->
C_WebPageFormControlsAssociatedCallback
wrap_WebPageFormControlsAssociatedCallback :: forall a.
GObject a =>
(a -> WebPageFormControlsAssociatedCallback)
-> C_WebPageFormControlsAssociatedCallback
wrap_WebPageFormControlsAssociatedCallback a -> WebPageFormControlsAssociatedCallback
gi'cb Ptr WebPage
gi'selfPtr Ptr (GPtrArray (Ptr DOMElement))
elements Ptr ()
_ = do
[Ptr DOMElement]
elements' <- Ptr (GPtrArray (Ptr DOMElement)) -> IO [Ptr DOMElement]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr DOMElement))
elements
[DOMElement]
elements'' <- (Ptr DOMElement -> IO DOMElement)
-> [Ptr DOMElement] -> IO [DOMElement]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) [Ptr DOMElement]
elements'
Ptr WebPage -> (WebPage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO ()) -> IO ()) -> (WebPage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> WebPageFormControlsAssociatedCallback
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self) [DOMElement]
elements''
onWebPageFormControlsAssociated :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageFormControlsAssociatedCallback) -> m SignalHandlerId
onWebPageFormControlsAssociated :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageFormControlsAssociatedCallback)
-> m SignalHandlerId
onWebPageFormControlsAssociated a
obj (?self::a) => WebPageFormControlsAssociatedCallback
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 wrapped :: a -> WebPageFormControlsAssociatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageFormControlsAssociatedCallback
WebPageFormControlsAssociatedCallback
cb
let wrapped' :: C_WebPageFormControlsAssociatedCallback
wrapped' = (a -> WebPageFormControlsAssociatedCallback)
-> C_WebPageFormControlsAssociatedCallback
forall a.
GObject a =>
(a -> WebPageFormControlsAssociatedCallback)
-> C_WebPageFormControlsAssociatedCallback
wrap_WebPageFormControlsAssociatedCallback a -> WebPageFormControlsAssociatedCallback
wrapped
FunPtr C_WebPageFormControlsAssociatedCallback
wrapped'' <- C_WebPageFormControlsAssociatedCallback
-> IO (FunPtr C_WebPageFormControlsAssociatedCallback)
mk_WebPageFormControlsAssociatedCallback C_WebPageFormControlsAssociatedCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageFormControlsAssociatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"form-controls-associated" FunPtr C_WebPageFormControlsAssociatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageFormControlsAssociated :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageFormControlsAssociatedCallback) -> m SignalHandlerId
afterWebPageFormControlsAssociated :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageFormControlsAssociatedCallback)
-> m SignalHandlerId
afterWebPageFormControlsAssociated a
obj (?self::a) => WebPageFormControlsAssociatedCallback
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 wrapped :: a -> WebPageFormControlsAssociatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageFormControlsAssociatedCallback
WebPageFormControlsAssociatedCallback
cb
let wrapped' :: C_WebPageFormControlsAssociatedCallback
wrapped' = (a -> WebPageFormControlsAssociatedCallback)
-> C_WebPageFormControlsAssociatedCallback
forall a.
GObject a =>
(a -> WebPageFormControlsAssociatedCallback)
-> C_WebPageFormControlsAssociatedCallback
wrap_WebPageFormControlsAssociatedCallback a -> WebPageFormControlsAssociatedCallback
wrapped
FunPtr C_WebPageFormControlsAssociatedCallback
wrapped'' <- C_WebPageFormControlsAssociatedCallback
-> IO (FunPtr C_WebPageFormControlsAssociatedCallback)
mk_WebPageFormControlsAssociatedCallback C_WebPageFormControlsAssociatedCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageFormControlsAssociatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"form-controls-associated" FunPtr C_WebPageFormControlsAssociatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageFormControlsAssociatedSignalInfo
instance SignalInfo WebPageFormControlsAssociatedSignalInfo where
type HaskellCallbackType WebPageFormControlsAssociatedSignalInfo = WebPageFormControlsAssociatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageFormControlsAssociatedCallback cb
cb'' <- mk_WebPageFormControlsAssociatedCallback cb'
connectSignalFunPtr obj "form-controls-associated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::form-controls-associated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:formControlsAssociated"})
#endif
type WebPageFormControlsAssociatedForFrameCallback =
[WebKit2WebExtension.DOMElement.DOMElement]
-> WebKit2WebExtension.Frame.Frame
-> IO ()
type C_WebPageFormControlsAssociatedForFrameCallback =
Ptr WebPage ->
Ptr (GPtrArray (Ptr WebKit2WebExtension.DOMElement.DOMElement)) ->
Ptr WebKit2WebExtension.Frame.Frame ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebPageFormControlsAssociatedForFrameCallback :: C_WebPageFormControlsAssociatedForFrameCallback -> IO (FunPtr C_WebPageFormControlsAssociatedForFrameCallback)
wrap_WebPageFormControlsAssociatedForFrameCallback ::
GObject a => (a -> WebPageFormControlsAssociatedForFrameCallback) ->
C_WebPageFormControlsAssociatedForFrameCallback
wrap_WebPageFormControlsAssociatedForFrameCallback :: forall a.
GObject a =>
(a -> WebPageFormControlsAssociatedForFrameCallback)
-> C_WebPageFormControlsAssociatedForFrameCallback
wrap_WebPageFormControlsAssociatedForFrameCallback a -> WebPageFormControlsAssociatedForFrameCallback
gi'cb Ptr WebPage
gi'selfPtr Ptr (GPtrArray (Ptr DOMElement))
elements Ptr Frame
frame Ptr ()
_ = do
[Ptr DOMElement]
elements' <- Ptr (GPtrArray (Ptr DOMElement)) -> IO [Ptr DOMElement]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr DOMElement))
elements
[DOMElement]
elements'' <- (Ptr DOMElement -> IO DOMElement)
-> [Ptr DOMElement] -> IO [DOMElement]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) [Ptr DOMElement]
elements'
Frame
frame' <- ((ManagedPtr Frame -> Frame) -> Ptr Frame -> IO Frame
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Frame -> Frame
WebKit2WebExtension.Frame.Frame) Ptr Frame
frame
Ptr WebPage -> (WebPage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO ()) -> IO ()) -> (WebPage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> WebPageFormControlsAssociatedForFrameCallback
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self) [DOMElement]
elements'' Frame
frame'
onWebPageFormControlsAssociatedForFrame :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageFormControlsAssociatedForFrameCallback) -> m SignalHandlerId
onWebPageFormControlsAssociatedForFrame :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageFormControlsAssociatedForFrameCallback)
-> m SignalHandlerId
onWebPageFormControlsAssociatedForFrame a
obj (?self::a) => WebPageFormControlsAssociatedForFrameCallback
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 wrapped :: a -> WebPageFormControlsAssociatedForFrameCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageFormControlsAssociatedForFrameCallback
WebPageFormControlsAssociatedForFrameCallback
cb
let wrapped' :: C_WebPageFormControlsAssociatedForFrameCallback
wrapped' = (a -> WebPageFormControlsAssociatedForFrameCallback)
-> C_WebPageFormControlsAssociatedForFrameCallback
forall a.
GObject a =>
(a -> WebPageFormControlsAssociatedForFrameCallback)
-> C_WebPageFormControlsAssociatedForFrameCallback
wrap_WebPageFormControlsAssociatedForFrameCallback a -> WebPageFormControlsAssociatedForFrameCallback
wrapped
FunPtr C_WebPageFormControlsAssociatedForFrameCallback
wrapped'' <- C_WebPageFormControlsAssociatedForFrameCallback
-> IO (FunPtr C_WebPageFormControlsAssociatedForFrameCallback)
mk_WebPageFormControlsAssociatedForFrameCallback C_WebPageFormControlsAssociatedForFrameCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageFormControlsAssociatedForFrameCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"form-controls-associated-for-frame" FunPtr C_WebPageFormControlsAssociatedForFrameCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageFormControlsAssociatedForFrame :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageFormControlsAssociatedForFrameCallback) -> m SignalHandlerId
afterWebPageFormControlsAssociatedForFrame :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageFormControlsAssociatedForFrameCallback)
-> m SignalHandlerId
afterWebPageFormControlsAssociatedForFrame a
obj (?self::a) => WebPageFormControlsAssociatedForFrameCallback
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 wrapped :: a -> WebPageFormControlsAssociatedForFrameCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageFormControlsAssociatedForFrameCallback
WebPageFormControlsAssociatedForFrameCallback
cb
let wrapped' :: C_WebPageFormControlsAssociatedForFrameCallback
wrapped' = (a -> WebPageFormControlsAssociatedForFrameCallback)
-> C_WebPageFormControlsAssociatedForFrameCallback
forall a.
GObject a =>
(a -> WebPageFormControlsAssociatedForFrameCallback)
-> C_WebPageFormControlsAssociatedForFrameCallback
wrap_WebPageFormControlsAssociatedForFrameCallback a -> WebPageFormControlsAssociatedForFrameCallback
wrapped
FunPtr C_WebPageFormControlsAssociatedForFrameCallback
wrapped'' <- C_WebPageFormControlsAssociatedForFrameCallback
-> IO (FunPtr C_WebPageFormControlsAssociatedForFrameCallback)
mk_WebPageFormControlsAssociatedForFrameCallback C_WebPageFormControlsAssociatedForFrameCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageFormControlsAssociatedForFrameCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"form-controls-associated-for-frame" FunPtr C_WebPageFormControlsAssociatedForFrameCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageFormControlsAssociatedForFrameSignalInfo
instance SignalInfo WebPageFormControlsAssociatedForFrameSignalInfo where
type HaskellCallbackType WebPageFormControlsAssociatedForFrameSignalInfo = WebPageFormControlsAssociatedForFrameCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageFormControlsAssociatedForFrameCallback cb
cb'' <- mk_WebPageFormControlsAssociatedForFrameCallback cb'
connectSignalFunPtr obj "form-controls-associated-for-frame" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::form-controls-associated-for-frame"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:formControlsAssociatedForFrame"})
#endif
type WebPageSendRequestCallback =
WebKit2WebExtension.URIRequest.URIRequest
-> WebKit2WebExtension.URIResponse.URIResponse
-> IO Bool
type C_WebPageSendRequestCallback =
Ptr WebPage ->
Ptr WebKit2WebExtension.URIRequest.URIRequest ->
Ptr WebKit2WebExtension.URIResponse.URIResponse ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebPageSendRequestCallback :: C_WebPageSendRequestCallback -> IO (FunPtr C_WebPageSendRequestCallback)
wrap_WebPageSendRequestCallback ::
GObject a => (a -> WebPageSendRequestCallback) ->
C_WebPageSendRequestCallback
wrap_WebPageSendRequestCallback :: forall a.
GObject a =>
(a -> WebPageSendRequestCallback) -> C_WebPageSendRequestCallback
wrap_WebPageSendRequestCallback a -> WebPageSendRequestCallback
gi'cb Ptr WebPage
gi'selfPtr Ptr URIRequest
request Ptr URIResponse
redirectedResponse Ptr ()
_ = do
URIRequest
request' <- ((ManagedPtr URIRequest -> URIRequest)
-> Ptr URIRequest -> IO URIRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr URIRequest -> URIRequest
WebKit2WebExtension.URIRequest.URIRequest) Ptr URIRequest
request
URIResponse
redirectedResponse' <- ((ManagedPtr URIResponse -> URIResponse)
-> Ptr URIResponse -> IO URIResponse
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr URIResponse -> URIResponse
WebKit2WebExtension.URIResponse.URIResponse) Ptr URIResponse
redirectedResponse
Bool
result <- Ptr WebPage -> (WebPage -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO Bool) -> IO Bool)
-> (WebPage -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> WebPageSendRequestCallback
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self) URIRequest
request' URIResponse
redirectedResponse'
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'
onWebPageSendRequest :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageSendRequestCallback) -> m SignalHandlerId
onWebPageSendRequest :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageSendRequestCallback) -> m SignalHandlerId
onWebPageSendRequest a
obj (?self::a) => WebPageSendRequestCallback
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 wrapped :: a -> WebPageSendRequestCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageSendRequestCallback
WebPageSendRequestCallback
cb
let wrapped' :: C_WebPageSendRequestCallback
wrapped' = (a -> WebPageSendRequestCallback) -> C_WebPageSendRequestCallback
forall a.
GObject a =>
(a -> WebPageSendRequestCallback) -> C_WebPageSendRequestCallback
wrap_WebPageSendRequestCallback a -> WebPageSendRequestCallback
wrapped
FunPtr C_WebPageSendRequestCallback
wrapped'' <- C_WebPageSendRequestCallback
-> IO (FunPtr C_WebPageSendRequestCallback)
mk_WebPageSendRequestCallback C_WebPageSendRequestCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageSendRequestCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"send-request" FunPtr C_WebPageSendRequestCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageSendRequest :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageSendRequestCallback) -> m SignalHandlerId
afterWebPageSendRequest :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageSendRequestCallback) -> m SignalHandlerId
afterWebPageSendRequest a
obj (?self::a) => WebPageSendRequestCallback
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 wrapped :: a -> WebPageSendRequestCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageSendRequestCallback
WebPageSendRequestCallback
cb
let wrapped' :: C_WebPageSendRequestCallback
wrapped' = (a -> WebPageSendRequestCallback) -> C_WebPageSendRequestCallback
forall a.
GObject a =>
(a -> WebPageSendRequestCallback) -> C_WebPageSendRequestCallback
wrap_WebPageSendRequestCallback a -> WebPageSendRequestCallback
wrapped
FunPtr C_WebPageSendRequestCallback
wrapped'' <- C_WebPageSendRequestCallback
-> IO (FunPtr C_WebPageSendRequestCallback)
mk_WebPageSendRequestCallback C_WebPageSendRequestCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageSendRequestCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"send-request" FunPtr C_WebPageSendRequestCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageSendRequestSignalInfo
instance SignalInfo WebPageSendRequestSignalInfo where
type HaskellCallbackType WebPageSendRequestSignalInfo = WebPageSendRequestCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageSendRequestCallback cb
cb'' <- mk_WebPageSendRequestCallback cb'
connectSignalFunPtr obj "send-request" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::send-request"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:sendRequest"})
#endif
type WebPageUserMessageReceivedCallback =
WebKit2WebExtension.UserMessage.UserMessage
-> IO Bool
type C_WebPageUserMessageReceivedCallback =
Ptr WebPage ->
Ptr WebKit2WebExtension.UserMessage.UserMessage ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebPageUserMessageReceivedCallback :: C_WebPageUserMessageReceivedCallback -> IO (FunPtr C_WebPageUserMessageReceivedCallback)
wrap_WebPageUserMessageReceivedCallback ::
GObject a => (a -> WebPageUserMessageReceivedCallback) ->
C_WebPageUserMessageReceivedCallback
wrap_WebPageUserMessageReceivedCallback :: forall a.
GObject a =>
(a -> WebPageUserMessageReceivedCallback)
-> C_WebPageUserMessageReceivedCallback
wrap_WebPageUserMessageReceivedCallback a -> WebPageUserMessageReceivedCallback
gi'cb Ptr WebPage
gi'selfPtr Ptr UserMessage
message Ptr ()
_ = do
UserMessage
message' <- ((ManagedPtr UserMessage -> UserMessage)
-> Ptr UserMessage -> IO UserMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr UserMessage -> UserMessage
WebKit2WebExtension.UserMessage.UserMessage) Ptr UserMessage
message
Bool
result <- Ptr WebPage -> (WebPage -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO Bool) -> IO Bool)
-> (WebPage -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> WebPageUserMessageReceivedCallback
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self) UserMessage
message'
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'
onWebPageUserMessageReceived :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageUserMessageReceivedCallback) -> m SignalHandlerId
onWebPageUserMessageReceived :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageUserMessageReceivedCallback)
-> m SignalHandlerId
onWebPageUserMessageReceived a
obj (?self::a) => WebPageUserMessageReceivedCallback
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 wrapped :: a -> WebPageUserMessageReceivedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageUserMessageReceivedCallback
WebPageUserMessageReceivedCallback
cb
let wrapped' :: C_WebPageUserMessageReceivedCallback
wrapped' = (a -> WebPageUserMessageReceivedCallback)
-> C_WebPageUserMessageReceivedCallback
forall a.
GObject a =>
(a -> WebPageUserMessageReceivedCallback)
-> C_WebPageUserMessageReceivedCallback
wrap_WebPageUserMessageReceivedCallback a -> WebPageUserMessageReceivedCallback
wrapped
FunPtr C_WebPageUserMessageReceivedCallback
wrapped'' <- C_WebPageUserMessageReceivedCallback
-> IO (FunPtr C_WebPageUserMessageReceivedCallback)
mk_WebPageUserMessageReceivedCallback C_WebPageUserMessageReceivedCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageUserMessageReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"user-message-received" FunPtr C_WebPageUserMessageReceivedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageUserMessageReceived :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageUserMessageReceivedCallback) -> m SignalHandlerId
afterWebPageUserMessageReceived :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageUserMessageReceivedCallback)
-> m SignalHandlerId
afterWebPageUserMessageReceived a
obj (?self::a) => WebPageUserMessageReceivedCallback
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 wrapped :: a -> WebPageUserMessageReceivedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageUserMessageReceivedCallback
WebPageUserMessageReceivedCallback
cb
let wrapped' :: C_WebPageUserMessageReceivedCallback
wrapped' = (a -> WebPageUserMessageReceivedCallback)
-> C_WebPageUserMessageReceivedCallback
forall a.
GObject a =>
(a -> WebPageUserMessageReceivedCallback)
-> C_WebPageUserMessageReceivedCallback
wrap_WebPageUserMessageReceivedCallback a -> WebPageUserMessageReceivedCallback
wrapped
FunPtr C_WebPageUserMessageReceivedCallback
wrapped'' <- C_WebPageUserMessageReceivedCallback
-> IO (FunPtr C_WebPageUserMessageReceivedCallback)
mk_WebPageUserMessageReceivedCallback C_WebPageUserMessageReceivedCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageUserMessageReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"user-message-received" FunPtr C_WebPageUserMessageReceivedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageUserMessageReceivedSignalInfo
instance SignalInfo WebPageUserMessageReceivedSignalInfo where
type HaskellCallbackType WebPageUserMessageReceivedSignalInfo = WebPageUserMessageReceivedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageUserMessageReceivedCallback cb
cb'' <- mk_WebPageUserMessageReceivedCallback cb'
connectSignalFunPtr obj "user-message-received" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::user-message-received"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:userMessageReceived"})
#endif
type WebPageWillSubmitFormCallback =
WebKit2WebExtension.DOMElement.DOMElement
-> WebKit2WebExtension.Enums.FormSubmissionStep
-> WebKit2WebExtension.Frame.Frame
-> WebKit2WebExtension.Frame.Frame
-> [T.Text]
-> [T.Text]
-> IO ()
type C_WebPageWillSubmitFormCallback =
Ptr WebPage ->
Ptr WebKit2WebExtension.DOMElement.DOMElement ->
CUInt ->
Ptr WebKit2WebExtension.Frame.Frame ->
Ptr WebKit2WebExtension.Frame.Frame ->
Ptr (GPtrArray CString) ->
Ptr (GPtrArray CString) ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebPageWillSubmitFormCallback :: C_WebPageWillSubmitFormCallback -> IO (FunPtr C_WebPageWillSubmitFormCallback)
wrap_WebPageWillSubmitFormCallback ::
GObject a => (a -> WebPageWillSubmitFormCallback) ->
C_WebPageWillSubmitFormCallback
wrap_WebPageWillSubmitFormCallback :: forall a.
GObject a =>
(a -> WebPageWillSubmitFormCallback)
-> C_WebPageWillSubmitFormCallback
wrap_WebPageWillSubmitFormCallback a -> WebPageWillSubmitFormCallback
gi'cb Ptr WebPage
gi'selfPtr Ptr DOMElement
form CUInt
step Ptr Frame
sourceFrame Ptr Frame
targetFrame Ptr (GPtrArray CString)
textFieldNames Ptr (GPtrArray CString)
textFieldValues Ptr ()
_ = do
DOMElement
form' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) Ptr DOMElement
form
let step' :: FormSubmissionStep
step' = (Int -> FormSubmissionStep
forall a. Enum a => Int -> a
toEnum (Int -> FormSubmissionStep)
-> (CUInt -> Int) -> CUInt -> FormSubmissionStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
Frame
sourceFrame' <- ((ManagedPtr Frame -> Frame) -> Ptr Frame -> IO Frame
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Frame -> Frame
WebKit2WebExtension.Frame.Frame) Ptr Frame
sourceFrame
Frame
targetFrame' <- ((ManagedPtr Frame -> Frame) -> Ptr Frame -> IO Frame
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Frame -> Frame
WebKit2WebExtension.Frame.Frame) Ptr Frame
targetFrame
[CString]
textFieldNames' <- Ptr (GPtrArray CString) -> IO [CString]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray CString)
textFieldNames
[Text]
textFieldNames'' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
textFieldNames'
[CString]
textFieldValues' <- Ptr (GPtrArray CString) -> IO [CString]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray CString)
textFieldValues
[Text]
textFieldValues'' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
textFieldValues'
Ptr WebPage -> (WebPage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebPage
gi'selfPtr ((WebPage -> IO ()) -> IO ()) -> (WebPage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebPage
gi'self -> a -> WebPageWillSubmitFormCallback
gi'cb (WebPage -> a
Coerce.coerce WebPage
gi'self) DOMElement
form' FormSubmissionStep
step' Frame
sourceFrame' Frame
targetFrame' [Text]
textFieldNames'' [Text]
textFieldValues''
onWebPageWillSubmitForm :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageWillSubmitFormCallback) -> m SignalHandlerId
onWebPageWillSubmitForm :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageWillSubmitFormCallback)
-> m SignalHandlerId
onWebPageWillSubmitForm a
obj (?self::a) => WebPageWillSubmitFormCallback
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 wrapped :: a -> WebPageWillSubmitFormCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageWillSubmitFormCallback
WebPageWillSubmitFormCallback
cb
let wrapped' :: C_WebPageWillSubmitFormCallback
wrapped' = (a -> WebPageWillSubmitFormCallback)
-> C_WebPageWillSubmitFormCallback
forall a.
GObject a =>
(a -> WebPageWillSubmitFormCallback)
-> C_WebPageWillSubmitFormCallback
wrap_WebPageWillSubmitFormCallback a -> WebPageWillSubmitFormCallback
wrapped
FunPtr C_WebPageWillSubmitFormCallback
wrapped'' <- C_WebPageWillSubmitFormCallback
-> IO (FunPtr C_WebPageWillSubmitFormCallback)
mk_WebPageWillSubmitFormCallback C_WebPageWillSubmitFormCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageWillSubmitFormCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"will-submit-form" FunPtr C_WebPageWillSubmitFormCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebPageWillSubmitForm :: (IsWebPage a, MonadIO m) => a -> ((?self :: a) => WebPageWillSubmitFormCallback) -> m SignalHandlerId
afterWebPageWillSubmitForm :: forall a (m :: * -> *).
(IsWebPage a, MonadIO m) =>
a
-> ((?self::a) => WebPageWillSubmitFormCallback)
-> m SignalHandlerId
afterWebPageWillSubmitForm a
obj (?self::a) => WebPageWillSubmitFormCallback
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 wrapped :: a -> WebPageWillSubmitFormCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebPageWillSubmitFormCallback
WebPageWillSubmitFormCallback
cb
let wrapped' :: C_WebPageWillSubmitFormCallback
wrapped' = (a -> WebPageWillSubmitFormCallback)
-> C_WebPageWillSubmitFormCallback
forall a.
GObject a =>
(a -> WebPageWillSubmitFormCallback)
-> C_WebPageWillSubmitFormCallback
wrap_WebPageWillSubmitFormCallback a -> WebPageWillSubmitFormCallback
wrapped
FunPtr C_WebPageWillSubmitFormCallback
wrapped'' <- C_WebPageWillSubmitFormCallback
-> IO (FunPtr C_WebPageWillSubmitFormCallback)
mk_WebPageWillSubmitFormCallback C_WebPageWillSubmitFormCallback
wrapped'
a
-> Text
-> FunPtr C_WebPageWillSubmitFormCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"will-submit-form" FunPtr C_WebPageWillSubmitFormCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebPageWillSubmitFormSignalInfo
instance SignalInfo WebPageWillSubmitFormSignalInfo where
type HaskellCallbackType WebPageWillSubmitFormSignalInfo = WebPageWillSubmitFormCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebPageWillSubmitFormCallback cb
cb'' <- mk_WebPageWillSubmitFormCallback cb'
connectSignalFunPtr obj "will-submit-form" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage::will-submit-form"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:signal:willSubmitForm"})
#endif
getWebPageUri :: (MonadIO m, IsWebPage o) => o -> m (Maybe T.Text)
getWebPageUri :: forall (m :: * -> *) o.
(MonadIO m, IsWebPage o) =>
o -> m (Maybe Text)
getWebPageUri o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"uri"
#if defined(ENABLE_OVERLOADING)
data WebPageUriPropertyInfo
instance AttrInfo WebPageUriPropertyInfo where
type AttrAllowedOps WebPageUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebPageUriPropertyInfo = IsWebPage
type AttrSetTypeConstraint WebPageUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebPageUriPropertyInfo = (~) ()
type AttrTransferType WebPageUriPropertyInfo = ()
type AttrGetType WebPageUriPropertyInfo = (Maybe T.Text)
type AttrLabel WebPageUriPropertyInfo = "uri"
type AttrOrigin WebPageUriPropertyInfo = WebPage
attrGet = getWebPageUri
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.uri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#g:attr:uri"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WebPage
type instance O.AttributeList WebPage = WebPageAttributeList
type WebPageAttributeList = ('[ '("uri", WebPageUriPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
webPageUri :: AttrLabelProxy "uri"
webPageUri = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WebPage = WebPageSignalList
type WebPageSignalList = ('[ '("consoleMessageSent", WebPageConsoleMessageSentSignalInfo), '("contextMenu", WebPageContextMenuSignalInfo), '("documentLoaded", WebPageDocumentLoadedSignalInfo), '("formControlsAssociated", WebPageFormControlsAssociatedSignalInfo), '("formControlsAssociatedForFrame", WebPageFormControlsAssociatedForFrameSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("sendRequest", WebPageSendRequestSignalInfo), '("userMessageReceived", WebPageUserMessageReceivedSignalInfo), '("willSubmitForm", WebPageWillSubmitFormSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_web_page_get_dom_document" webkit_web_page_get_dom_document ::
Ptr WebPage ->
IO (Ptr WebKit2WebExtension.DOMDocument.DOMDocument)
webPageGetDomDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsWebPage a) =>
a
-> m (Maybe WebKit2WebExtension.DOMDocument.DOMDocument)
webPageGetDomDocument :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebPage a) =>
a -> m (Maybe DOMDocument)
webPageGetDomDocument a
webPage = IO (Maybe DOMDocument) -> m (Maybe DOMDocument)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMDocument) -> m (Maybe DOMDocument))
-> IO (Maybe DOMDocument) -> m (Maybe DOMDocument)
forall a b. (a -> b) -> a -> b
$ do
Ptr WebPage
webPage' <- a -> IO (Ptr WebPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webPage
Ptr DOMDocument
result <- Ptr WebPage -> IO (Ptr DOMDocument)
webkit_web_page_get_dom_document Ptr WebPage
webPage'
Maybe DOMDocument
maybeResult <- Ptr DOMDocument
-> (Ptr DOMDocument -> IO DOMDocument) -> IO (Maybe DOMDocument)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DOMDocument
result ((Ptr DOMDocument -> IO DOMDocument) -> IO (Maybe DOMDocument))
-> (Ptr DOMDocument -> IO DOMDocument) -> IO (Maybe DOMDocument)
forall a b. (a -> b) -> a -> b
$ \Ptr DOMDocument
result' -> do
DOMDocument
result'' <- ((ManagedPtr DOMDocument -> DOMDocument)
-> Ptr DOMDocument -> IO DOMDocument
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMDocument -> DOMDocument
WebKit2WebExtension.DOMDocument.DOMDocument) Ptr DOMDocument
result'
DOMDocument -> IO DOMDocument
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDocument
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webPage
Maybe DOMDocument -> IO (Maybe DOMDocument)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMDocument
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebPageGetDomDocumentMethodInfo
instance (signature ~ (m (Maybe WebKit2WebExtension.DOMDocument.DOMDocument)), MonadIO m, IsWebPage a) => O.OverloadedMethod WebPageGetDomDocumentMethodInfo a signature where
overloadedMethod = webPageGetDomDocument
instance O.OverloadedMethodInfo WebPageGetDomDocumentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.webPageGetDomDocument",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#v:webPageGetDomDocument"
})
#endif
foreign import ccall "webkit_web_page_get_editor" webkit_web_page_get_editor ::
Ptr WebPage ->
IO (Ptr WebKit2WebExtension.WebEditor.WebEditor)
webPageGetEditor ::
(B.CallStack.HasCallStack, MonadIO m, IsWebPage a) =>
a
-> m WebKit2WebExtension.WebEditor.WebEditor
webPageGetEditor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebPage a) =>
a -> m WebEditor
webPageGetEditor a
webPage = IO WebEditor -> m WebEditor
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebEditor -> m WebEditor) -> IO WebEditor -> m WebEditor
forall a b. (a -> b) -> a -> b
$ do
Ptr WebPage
webPage' <- a -> IO (Ptr WebPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webPage
Ptr WebEditor
result <- Ptr WebPage -> IO (Ptr WebEditor)
webkit_web_page_get_editor Ptr WebPage
webPage'
Text -> Ptr WebEditor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webPageGetEditor" Ptr WebEditor
result
WebEditor
result' <- ((ManagedPtr WebEditor -> WebEditor)
-> Ptr WebEditor -> IO WebEditor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebEditor -> WebEditor
WebKit2WebExtension.WebEditor.WebEditor) Ptr WebEditor
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webPage
WebEditor -> IO WebEditor
forall (m :: * -> *) a. Monad m => a -> m a
return WebEditor
result'
#if defined(ENABLE_OVERLOADING)
data WebPageGetEditorMethodInfo
instance (signature ~ (m WebKit2WebExtension.WebEditor.WebEditor), MonadIO m, IsWebPage a) => O.OverloadedMethod WebPageGetEditorMethodInfo a signature where
overloadedMethod = webPageGetEditor
instance O.OverloadedMethodInfo WebPageGetEditorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.webPageGetEditor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#v:webPageGetEditor"
})
#endif
foreign import ccall "webkit_web_page_get_id" webkit_web_page_get_id ::
Ptr WebPage ->
IO Word64
webPageGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsWebPage a) =>
a
-> m Word64
webPageGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebPage a) =>
a -> m Word64
webPageGetId a
webPage = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr WebPage
webPage' <- a -> IO (Ptr WebPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webPage
Word64
result <- Ptr WebPage -> IO Word64
webkit_web_page_get_id Ptr WebPage
webPage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webPage
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data WebPageGetIdMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsWebPage a) => O.OverloadedMethod WebPageGetIdMethodInfo a signature where
overloadedMethod = webPageGetId
instance O.OverloadedMethodInfo WebPageGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.webPageGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#v:webPageGetId"
})
#endif
foreign import ccall "webkit_web_page_get_main_frame" webkit_web_page_get_main_frame ::
Ptr WebPage ->
IO (Ptr WebKit2WebExtension.Frame.Frame)
webPageGetMainFrame ::
(B.CallStack.HasCallStack, MonadIO m, IsWebPage a) =>
a
-> m WebKit2WebExtension.Frame.Frame
webPageGetMainFrame :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebPage a) =>
a -> m Frame
webPageGetMainFrame a
webPage = IO Frame -> m Frame
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Frame -> m Frame) -> IO Frame -> m Frame
forall a b. (a -> b) -> a -> b
$ do
Ptr WebPage
webPage' <- a -> IO (Ptr WebPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webPage
Ptr Frame
result <- Ptr WebPage -> IO (Ptr Frame)
webkit_web_page_get_main_frame Ptr WebPage
webPage'
Text -> Ptr Frame -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webPageGetMainFrame" Ptr Frame
result
Frame
result' <- ((ManagedPtr Frame -> Frame) -> Ptr Frame -> IO Frame
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Frame -> Frame
WebKit2WebExtension.Frame.Frame) Ptr Frame
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webPage
Frame -> IO Frame
forall (m :: * -> *) a. Monad m => a -> m a
return Frame
result'
#if defined(ENABLE_OVERLOADING)
data WebPageGetMainFrameMethodInfo
instance (signature ~ (m WebKit2WebExtension.Frame.Frame), MonadIO m, IsWebPage a) => O.OverloadedMethod WebPageGetMainFrameMethodInfo a signature where
overloadedMethod = webPageGetMainFrame
instance O.OverloadedMethodInfo WebPageGetMainFrameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.webPageGetMainFrame",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#v:webPageGetMainFrame"
})
#endif
foreign import ccall "webkit_web_page_get_uri" webkit_web_page_get_uri ::
Ptr WebPage ->
IO CString
webPageGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebPage a) =>
a
-> m (Maybe T.Text)
webPageGetUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebPage a) =>
a -> m (Maybe Text)
webPageGetUri a
webPage = 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 WebPage
webPage' <- a -> IO (Ptr WebPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webPage
CString
result <- Ptr WebPage -> IO CString
webkit_web_page_get_uri Ptr WebPage
webPage'
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 (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webPage
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebPageGetUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebPage a) => O.OverloadedMethod WebPageGetUriMethodInfo a signature where
overloadedMethod = webPageGetUri
instance O.OverloadedMethodInfo WebPageGetUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.webPageGetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#v:webPageGetUri"
})
#endif
foreign import ccall "webkit_web_page_send_message_to_view" webkit_web_page_send_message_to_view ::
Ptr WebPage ->
Ptr WebKit2WebExtension.UserMessage.UserMessage ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webPageSendMessageToView ::
(B.CallStack.HasCallStack, MonadIO m, IsWebPage a, WebKit2WebExtension.UserMessage.IsUserMessage b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webPageSendMessageToView :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsWebPage a, IsUserMessage b,
IsCancellable c) =>
a -> b -> Maybe c -> Maybe AsyncReadyCallback -> m ()
webPageSendMessageToView a
webPage b
message Maybe c
cancellable Maybe AsyncReadyCallback
callback = 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 WebPage
webPage' <- a -> IO (Ptr WebPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webPage
Ptr UserMessage
message' <- b -> IO (Ptr UserMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
message
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr WebPage
-> Ptr UserMessage
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_page_send_message_to_view Ptr WebPage
webPage' Ptr UserMessage
message' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webPage
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
message
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebPageSendMessageToViewMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebPage a, WebKit2WebExtension.UserMessage.IsUserMessage b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod WebPageSendMessageToViewMethodInfo a signature where
overloadedMethod = webPageSendMessageToView
instance O.OverloadedMethodInfo WebPageSendMessageToViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.webPageSendMessageToView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#v:webPageSendMessageToView"
})
#endif
foreign import ccall "webkit_web_page_send_message_to_view_finish" webkit_web_page_send_message_to_view_finish ::
Ptr WebPage ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.UserMessage.UserMessage)
webPageSendMessageToViewFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebPage a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m WebKit2WebExtension.UserMessage.UserMessage
webPageSendMessageToViewFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebPage a, IsAsyncResult b) =>
a -> b -> m UserMessage
webPageSendMessageToViewFinish a
webPage b
result_ = IO UserMessage -> m UserMessage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO UserMessage -> m UserMessage)
-> IO UserMessage -> m UserMessage
forall a b. (a -> b) -> a -> b
$ do
Ptr WebPage
webPage' <- a -> IO (Ptr WebPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webPage
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO UserMessage -> IO () -> IO UserMessage
forall a b. IO a -> IO b -> IO a
onException (do
Ptr UserMessage
result <- (Ptr (Ptr GError) -> IO (Ptr UserMessage)) -> IO (Ptr UserMessage)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr UserMessage))
-> IO (Ptr UserMessage))
-> (Ptr (Ptr GError) -> IO (Ptr UserMessage))
-> IO (Ptr UserMessage)
forall a b. (a -> b) -> a -> b
$ Ptr WebPage
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr UserMessage)
webkit_web_page_send_message_to_view_finish Ptr WebPage
webPage' Ptr AsyncResult
result_'
Text -> Ptr UserMessage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webPageSendMessageToViewFinish" Ptr UserMessage
result
UserMessage
result' <- ((ManagedPtr UserMessage -> UserMessage)
-> Ptr UserMessage -> IO UserMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr UserMessage -> UserMessage
WebKit2WebExtension.UserMessage.UserMessage) Ptr UserMessage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webPage
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
UserMessage -> IO UserMessage
forall (m :: * -> *) a. Monad m => a -> m a
return UserMessage
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebPageSendMessageToViewFinishMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.UserMessage.UserMessage), MonadIO m, IsWebPage a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod WebPageSendMessageToViewFinishMethodInfo a signature where
overloadedMethod = webPageSendMessageToViewFinish
instance O.OverloadedMethodInfo WebPageSendMessageToViewFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.WebPage.webPageSendMessageToViewFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-WebPage.html#v:webPageSendMessageToViewFinish"
})
#endif