{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.WebView
(
WebView(..) ,
IsWebView ,
toWebView ,
noWebView ,
#if defined(ENABLE_OVERLOADING)
ResolveWebViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewCanExecuteEditingCommandMethodInfo,
#endif
webViewCanExecuteEditingCommand ,
#if defined(ENABLE_OVERLOADING)
WebViewCanExecuteEditingCommandFinishMethodInfo,
#endif
webViewCanExecuteEditingCommandFinish ,
#if defined(ENABLE_OVERLOADING)
WebViewCanGoBackMethodInfo ,
#endif
webViewCanGoBack ,
#if defined(ENABLE_OVERLOADING)
WebViewCanGoForwardMethodInfo ,
#endif
webViewCanGoForward ,
#if defined(ENABLE_OVERLOADING)
WebViewCanShowMimeTypeMethodInfo ,
#endif
webViewCanShowMimeType ,
#if defined(ENABLE_OVERLOADING)
WebViewDownloadUriMethodInfo ,
#endif
webViewDownloadUri ,
#if defined(ENABLE_OVERLOADING)
WebViewExecuteEditingCommandMethodInfo ,
#endif
webViewExecuteEditingCommand ,
#if defined(ENABLE_OVERLOADING)
WebViewExecuteEditingCommandWithArgumentMethodInfo,
#endif
webViewExecuteEditingCommandWithArgument,
#if defined(ENABLE_OVERLOADING)
WebViewGetBackForwardListMethodInfo ,
#endif
webViewGetBackForwardList ,
#if defined(ENABLE_OVERLOADING)
WebViewGetBackgroundColorMethodInfo ,
#endif
webViewGetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
WebViewGetContextMethodInfo ,
#endif
webViewGetContext ,
#if defined(ENABLE_OVERLOADING)
WebViewGetCustomCharsetMethodInfo ,
#endif
webViewGetCustomCharset ,
#if defined(ENABLE_OVERLOADING)
WebViewGetEditorStateMethodInfo ,
#endif
webViewGetEditorState ,
#if defined(ENABLE_OVERLOADING)
WebViewGetEstimatedLoadProgressMethodInfo,
#endif
webViewGetEstimatedLoadProgress ,
#if defined(ENABLE_OVERLOADING)
WebViewGetFaviconMethodInfo ,
#endif
webViewGetFavicon ,
#if defined(ENABLE_OVERLOADING)
WebViewGetFindControllerMethodInfo ,
#endif
webViewGetFindController ,
#if defined(ENABLE_OVERLOADING)
WebViewGetInspectorMethodInfo ,
#endif
webViewGetInspector ,
#if defined(ENABLE_OVERLOADING)
WebViewGetMainResourceMethodInfo ,
#endif
webViewGetMainResource ,
#if defined(ENABLE_OVERLOADING)
WebViewGetPageIdMethodInfo ,
#endif
webViewGetPageId ,
#if defined(ENABLE_OVERLOADING)
WebViewGetSessionStateMethodInfo ,
#endif
webViewGetSessionState ,
#if defined(ENABLE_OVERLOADING)
WebViewGetSettingsMethodInfo ,
#endif
webViewGetSettings ,
#if defined(ENABLE_OVERLOADING)
WebViewGetSnapshotMethodInfo ,
#endif
webViewGetSnapshot ,
#if defined(ENABLE_OVERLOADING)
WebViewGetSnapshotFinishMethodInfo ,
#endif
webViewGetSnapshotFinish ,
#if defined(ENABLE_OVERLOADING)
WebViewGetTitleMethodInfo ,
#endif
webViewGetTitle ,
#if defined(ENABLE_OVERLOADING)
WebViewGetTlsInfoMethodInfo ,
#endif
webViewGetTlsInfo ,
#if defined(ENABLE_OVERLOADING)
WebViewGetUriMethodInfo ,
#endif
webViewGetUri ,
#if defined(ENABLE_OVERLOADING)
WebViewGetUserContentManagerMethodInfo ,
#endif
webViewGetUserContentManager ,
#if defined(ENABLE_OVERLOADING)
WebViewGetWebsiteDataManagerMethodInfo ,
#endif
webViewGetWebsiteDataManager ,
#if defined(ENABLE_OVERLOADING)
WebViewGetWindowPropertiesMethodInfo ,
#endif
webViewGetWindowProperties ,
#if defined(ENABLE_OVERLOADING)
WebViewGetZoomLevelMethodInfo ,
#endif
webViewGetZoomLevel ,
#if defined(ENABLE_OVERLOADING)
WebViewGoBackMethodInfo ,
#endif
webViewGoBack ,
#if defined(ENABLE_OVERLOADING)
WebViewGoForwardMethodInfo ,
#endif
webViewGoForward ,
#if defined(ENABLE_OVERLOADING)
WebViewGoToBackForwardListItemMethodInfo,
#endif
webViewGoToBackForwardListItem ,
#if defined(ENABLE_OVERLOADING)
WebViewIsControlledByAutomationMethodInfo,
#endif
webViewIsControlledByAutomation ,
#if defined(ENABLE_OVERLOADING)
WebViewIsEditableMethodInfo ,
#endif
webViewIsEditable ,
#if defined(ENABLE_OVERLOADING)
WebViewIsEphemeralMethodInfo ,
#endif
webViewIsEphemeral ,
#if defined(ENABLE_OVERLOADING)
WebViewIsLoadingMethodInfo ,
#endif
webViewIsLoading ,
#if defined(ENABLE_OVERLOADING)
WebViewIsPlayingAudioMethodInfo ,
#endif
webViewIsPlayingAudio ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadAlternateHtmlMethodInfo ,
#endif
webViewLoadAlternateHtml ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadBytesMethodInfo ,
#endif
webViewLoadBytes ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadHtmlMethodInfo ,
#endif
webViewLoadHtml ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadPlainTextMethodInfo ,
#endif
webViewLoadPlainText ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadRequestMethodInfo ,
#endif
webViewLoadRequest ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadUriMethodInfo ,
#endif
webViewLoadUri ,
webViewNew ,
webViewNewWithContext ,
webViewNewWithRelatedView ,
webViewNewWithSettings ,
webViewNewWithUserContentManager ,
#if defined(ENABLE_OVERLOADING)
WebViewReloadMethodInfo ,
#endif
webViewReload ,
#if defined(ENABLE_OVERLOADING)
WebViewReloadBypassCacheMethodInfo ,
#endif
webViewReloadBypassCache ,
#if defined(ENABLE_OVERLOADING)
WebViewRestoreSessionStateMethodInfo ,
#endif
webViewRestoreSessionState ,
#if defined(ENABLE_OVERLOADING)
WebViewRunJavascriptMethodInfo ,
#endif
webViewRunJavascript ,
#if defined(ENABLE_OVERLOADING)
WebViewRunJavascriptFinishMethodInfo ,
#endif
webViewRunJavascriptFinish ,
#if defined(ENABLE_OVERLOADING)
WebViewRunJavascriptFromGresourceMethodInfo,
#endif
webViewRunJavascriptFromGresource ,
#if defined(ENABLE_OVERLOADING)
WebViewRunJavascriptFromGresourceFinishMethodInfo,
#endif
webViewRunJavascriptFromGresourceFinish ,
#if defined(ENABLE_OVERLOADING)
WebViewRunJavascriptInWorldMethodInfo ,
#endif
webViewRunJavascriptInWorld ,
#if defined(ENABLE_OVERLOADING)
WebViewRunJavascriptInWorldFinishMethodInfo,
#endif
webViewRunJavascriptInWorldFinish ,
#if defined(ENABLE_OVERLOADING)
WebViewSaveMethodInfo ,
#endif
webViewSave ,
#if defined(ENABLE_OVERLOADING)
WebViewSaveFinishMethodInfo ,
#endif
webViewSaveFinish ,
#if defined(ENABLE_OVERLOADING)
WebViewSaveToFileMethodInfo ,
#endif
webViewSaveToFile ,
#if defined(ENABLE_OVERLOADING)
WebViewSaveToFileFinishMethodInfo ,
#endif
webViewSaveToFileFinish ,
#if defined(ENABLE_OVERLOADING)
WebViewSetBackgroundColorMethodInfo ,
#endif
webViewSetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
WebViewSetCustomCharsetMethodInfo ,
#endif
webViewSetCustomCharset ,
#if defined(ENABLE_OVERLOADING)
WebViewSetEditableMethodInfo ,
#endif
webViewSetEditable ,
#if defined(ENABLE_OVERLOADING)
WebViewSetSettingsMethodInfo ,
#endif
webViewSetSettings ,
#if defined(ENABLE_OVERLOADING)
WebViewSetZoomLevelMethodInfo ,
#endif
webViewSetZoomLevel ,
#if defined(ENABLE_OVERLOADING)
WebViewStopLoadingMethodInfo ,
#endif
webViewStopLoading ,
#if defined(ENABLE_OVERLOADING)
WebViewTryCloseMethodInfo ,
#endif
webViewTryClose ,
#if defined(ENABLE_OVERLOADING)
WebViewEditablePropertyInfo ,
#endif
constructWebViewEditable ,
getWebViewEditable ,
setWebViewEditable ,
#if defined(ENABLE_OVERLOADING)
webViewEditable ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewEstimatedLoadProgressPropertyInfo,
#endif
getWebViewEstimatedLoadProgress ,
#if defined(ENABLE_OVERLOADING)
webViewEstimatedLoadProgress ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewFaviconPropertyInfo ,
#endif
getWebViewFavicon ,
#if defined(ENABLE_OVERLOADING)
webViewFavicon ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewIsControlledByAutomationPropertyInfo,
#endif
constructWebViewIsControlledByAutomation,
getWebViewIsControlledByAutomation ,
#if defined(ENABLE_OVERLOADING)
WebViewIsEphemeralPropertyInfo ,
#endif
constructWebViewIsEphemeral ,
getWebViewIsEphemeral ,
#if defined(ENABLE_OVERLOADING)
WebViewIsLoadingPropertyInfo ,
#endif
getWebViewIsLoading ,
#if defined(ENABLE_OVERLOADING)
WebViewIsPlayingAudioPropertyInfo ,
#endif
getWebViewIsPlayingAudio ,
#if defined(ENABLE_OVERLOADING)
WebViewRelatedViewPropertyInfo ,
#endif
constructWebViewRelatedView ,
#if defined(ENABLE_OVERLOADING)
webViewRelatedView ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewSettingsPropertyInfo ,
#endif
constructWebViewSettings ,
setWebViewSettings ,
#if defined(ENABLE_OVERLOADING)
webViewSettings ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewTitlePropertyInfo ,
#endif
getWebViewTitle ,
#if defined(ENABLE_OVERLOADING)
webViewTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewUriPropertyInfo ,
#endif
getWebViewUri ,
#if defined(ENABLE_OVERLOADING)
webViewUri ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewUserContentManagerPropertyInfo ,
#endif
constructWebViewUserContentManager ,
getWebViewUserContentManager ,
#if defined(ENABLE_OVERLOADING)
webViewUserContentManager ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewWebContextPropertyInfo ,
#endif
constructWebViewWebContext ,
getWebViewWebContext ,
#if defined(ENABLE_OVERLOADING)
webViewWebContext ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewZoomLevelPropertyInfo ,
#endif
constructWebViewZoomLevel ,
getWebViewZoomLevel ,
setWebViewZoomLevel ,
#if defined(ENABLE_OVERLOADING)
webViewZoomLevel ,
#endif
C_WebViewAuthenticateCallback ,
WebViewAuthenticateCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewAuthenticateSignalInfo ,
#endif
afterWebViewAuthenticate ,
genClosure_WebViewAuthenticate ,
mk_WebViewAuthenticateCallback ,
noWebViewAuthenticateCallback ,
onWebViewAuthenticate ,
wrap_WebViewAuthenticateCallback ,
C_WebViewCloseCallback ,
WebViewCloseCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewCloseSignalInfo ,
#endif
afterWebViewClose ,
genClosure_WebViewClose ,
mk_WebViewCloseCallback ,
noWebViewCloseCallback ,
onWebViewClose ,
wrap_WebViewCloseCallback ,
C_WebViewContextMenuCallback ,
WebViewContextMenuCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewContextMenuSignalInfo ,
#endif
afterWebViewContextMenu ,
genClosure_WebViewContextMenu ,
mk_WebViewContextMenuCallback ,
noWebViewContextMenuCallback ,
onWebViewContextMenu ,
wrap_WebViewContextMenuCallback ,
C_WebViewContextMenuDismissedCallback ,
WebViewContextMenuDismissedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewContextMenuDismissedSignalInfo ,
#endif
afterWebViewContextMenuDismissed ,
genClosure_WebViewContextMenuDismissed ,
mk_WebViewContextMenuDismissedCallback ,
noWebViewContextMenuDismissedCallback ,
onWebViewContextMenuDismissed ,
wrap_WebViewContextMenuDismissedCallback,
C_WebViewCreateCallback ,
WebViewCreateCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewCreateSignalInfo ,
#endif
afterWebViewCreate ,
genClosure_WebViewCreate ,
mk_WebViewCreateCallback ,
noWebViewCreateCallback ,
onWebViewCreate ,
wrap_WebViewCreateCallback ,
C_WebViewDecidePolicyCallback ,
WebViewDecidePolicyCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewDecidePolicySignalInfo ,
#endif
afterWebViewDecidePolicy ,
genClosure_WebViewDecidePolicy ,
mk_WebViewDecidePolicyCallback ,
noWebViewDecidePolicyCallback ,
onWebViewDecidePolicy ,
wrap_WebViewDecidePolicyCallback ,
C_WebViewEnterFullscreenCallback ,
WebViewEnterFullscreenCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewEnterFullscreenSignalInfo ,
#endif
afterWebViewEnterFullscreen ,
genClosure_WebViewEnterFullscreen ,
mk_WebViewEnterFullscreenCallback ,
noWebViewEnterFullscreenCallback ,
onWebViewEnterFullscreen ,
wrap_WebViewEnterFullscreenCallback ,
C_WebViewInsecureContentDetectedCallback,
WebViewInsecureContentDetectedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewInsecureContentDetectedSignalInfo,
#endif
afterWebViewInsecureContentDetected ,
genClosure_WebViewInsecureContentDetected,
mk_WebViewInsecureContentDetectedCallback,
noWebViewInsecureContentDetectedCallback,
onWebViewInsecureContentDetected ,
wrap_WebViewInsecureContentDetectedCallback,
C_WebViewLeaveFullscreenCallback ,
WebViewLeaveFullscreenCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLeaveFullscreenSignalInfo ,
#endif
afterWebViewLeaveFullscreen ,
genClosure_WebViewLeaveFullscreen ,
mk_WebViewLeaveFullscreenCallback ,
noWebViewLeaveFullscreenCallback ,
onWebViewLeaveFullscreen ,
wrap_WebViewLeaveFullscreenCallback ,
C_WebViewLoadChangedCallback ,
WebViewLoadChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadChangedSignalInfo ,
#endif
afterWebViewLoadChanged ,
genClosure_WebViewLoadChanged ,
mk_WebViewLoadChangedCallback ,
noWebViewLoadChangedCallback ,
onWebViewLoadChanged ,
wrap_WebViewLoadChangedCallback ,
C_WebViewLoadFailedCallback ,
WebViewLoadFailedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadFailedSignalInfo ,
#endif
afterWebViewLoadFailed ,
genClosure_WebViewLoadFailed ,
mk_WebViewLoadFailedCallback ,
noWebViewLoadFailedCallback ,
onWebViewLoadFailed ,
wrap_WebViewLoadFailedCallback ,
C_WebViewLoadFailedWithTlsErrorsCallback,
WebViewLoadFailedWithTlsErrorsCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadFailedWithTlsErrorsSignalInfo,
#endif
afterWebViewLoadFailedWithTlsErrors ,
genClosure_WebViewLoadFailedWithTlsErrors,
mk_WebViewLoadFailedWithTlsErrorsCallback,
noWebViewLoadFailedWithTlsErrorsCallback,
onWebViewLoadFailedWithTlsErrors ,
wrap_WebViewLoadFailedWithTlsErrorsCallback,
C_WebViewMouseTargetChangedCallback ,
WebViewMouseTargetChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewMouseTargetChangedSignalInfo ,
#endif
afterWebViewMouseTargetChanged ,
genClosure_WebViewMouseTargetChanged ,
mk_WebViewMouseTargetChangedCallback ,
noWebViewMouseTargetChangedCallback ,
onWebViewMouseTargetChanged ,
wrap_WebViewMouseTargetChangedCallback ,
C_WebViewPermissionRequestCallback ,
WebViewPermissionRequestCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewPermissionRequestSignalInfo ,
#endif
afterWebViewPermissionRequest ,
genClosure_WebViewPermissionRequest ,
mk_WebViewPermissionRequestCallback ,
noWebViewPermissionRequestCallback ,
onWebViewPermissionRequest ,
wrap_WebViewPermissionRequestCallback ,
C_WebViewPrintCallback ,
WebViewPrintCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewPrintSignalInfo ,
#endif
afterWebViewPrint ,
genClosure_WebViewPrint ,
mk_WebViewPrintCallback ,
noWebViewPrintCallback ,
onWebViewPrint ,
wrap_WebViewPrintCallback ,
C_WebViewReadyToShowCallback ,
WebViewReadyToShowCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewReadyToShowSignalInfo ,
#endif
afterWebViewReadyToShow ,
genClosure_WebViewReadyToShow ,
mk_WebViewReadyToShowCallback ,
noWebViewReadyToShowCallback ,
onWebViewReadyToShow ,
wrap_WebViewReadyToShowCallback ,
C_WebViewResourceLoadStartedCallback ,
WebViewResourceLoadStartedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewResourceLoadStartedSignalInfo ,
#endif
afterWebViewResourceLoadStarted ,
genClosure_WebViewResourceLoadStarted ,
mk_WebViewResourceLoadStartedCallback ,
noWebViewResourceLoadStartedCallback ,
onWebViewResourceLoadStarted ,
wrap_WebViewResourceLoadStartedCallback ,
C_WebViewRunAsModalCallback ,
WebViewRunAsModalCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewRunAsModalSignalInfo ,
#endif
afterWebViewRunAsModal ,
genClosure_WebViewRunAsModal ,
mk_WebViewRunAsModalCallback ,
noWebViewRunAsModalCallback ,
onWebViewRunAsModal ,
wrap_WebViewRunAsModalCallback ,
C_WebViewRunColorChooserCallback ,
WebViewRunColorChooserCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewRunColorChooserSignalInfo ,
#endif
afterWebViewRunColorChooser ,
genClosure_WebViewRunColorChooser ,
mk_WebViewRunColorChooserCallback ,
noWebViewRunColorChooserCallback ,
onWebViewRunColorChooser ,
wrap_WebViewRunColorChooserCallback ,
C_WebViewRunFileChooserCallback ,
WebViewRunFileChooserCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewRunFileChooserSignalInfo ,
#endif
afterWebViewRunFileChooser ,
genClosure_WebViewRunFileChooser ,
mk_WebViewRunFileChooserCallback ,
noWebViewRunFileChooserCallback ,
onWebViewRunFileChooser ,
wrap_WebViewRunFileChooserCallback ,
C_WebViewScriptDialogCallback ,
WebViewScriptDialogCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewScriptDialogSignalInfo ,
#endif
afterWebViewScriptDialog ,
genClosure_WebViewScriptDialog ,
mk_WebViewScriptDialogCallback ,
noWebViewScriptDialogCallback ,
onWebViewScriptDialog ,
wrap_WebViewScriptDialogCallback ,
C_WebViewShowNotificationCallback ,
WebViewShowNotificationCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewShowNotificationSignalInfo ,
#endif
afterWebViewShowNotification ,
genClosure_WebViewShowNotification ,
mk_WebViewShowNotificationCallback ,
noWebViewShowNotificationCallback ,
onWebViewShowNotification ,
wrap_WebViewShowNotificationCallback ,
C_WebViewShowOptionMenuCallback ,
WebViewShowOptionMenuCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewShowOptionMenuSignalInfo ,
#endif
afterWebViewShowOptionMenu ,
genClosure_WebViewShowOptionMenu ,
mk_WebViewShowOptionMenuCallback ,
noWebViewShowOptionMenuCallback ,
onWebViewShowOptionMenu ,
wrap_WebViewShowOptionMenuCallback ,
C_WebViewSubmitFormCallback ,
WebViewSubmitFormCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewSubmitFormSignalInfo ,
#endif
afterWebViewSubmitForm ,
genClosure_WebViewSubmitForm ,
mk_WebViewSubmitFormCallback ,
noWebViewSubmitFormCallback ,
onWebViewSubmitForm ,
wrap_WebViewSubmitFormCallback ,
C_WebViewWebProcessCrashedCallback ,
WebViewWebProcessCrashedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewWebProcessCrashedSignalInfo ,
#endif
afterWebViewWebProcessCrashed ,
genClosure_WebViewWebProcessCrashed ,
mk_WebViewWebProcessCrashedCallback ,
noWebViewWebProcessCrashedCallback ,
onWebViewWebProcessCrashed ,
wrap_WebViewWebProcessCrashedCallback ,
C_WebViewWebProcessTerminatedCallback ,
WebViewWebProcessTerminatedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewWebProcessTerminatedSignalInfo ,
#endif
afterWebViewWebProcessTerminated ,
genClosure_WebViewWebProcessTerminated ,
mk_WebViewWebProcessTerminatedCallback ,
noWebViewWebProcessTerminatedCallback ,
onWebViewWebProcessTerminated ,
wrap_WebViewWebProcessTerminatedCallback,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.Container as Gtk.Container
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
import {-# SOURCE #-} qualified GI.WebKit2.Flags as WebKit2.Flags
import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest
import {-# SOURCE #-} qualified GI.WebKit2.Objects.AuthenticationRequest as WebKit2.AuthenticationRequest
import {-# SOURCE #-} qualified GI.WebKit2.Objects.BackForwardList as WebKit2.BackForwardList
import {-# SOURCE #-} qualified GI.WebKit2.Objects.BackForwardListItem as WebKit2.BackForwardListItem
import {-# SOURCE #-} qualified GI.WebKit2.Objects.ColorChooserRequest as WebKit2.ColorChooserRequest
import {-# SOURCE #-} qualified GI.WebKit2.Objects.ContextMenu as WebKit2.ContextMenu
import {-# SOURCE #-} qualified GI.WebKit2.Objects.Download as WebKit2.Download
import {-# SOURCE #-} qualified GI.WebKit2.Objects.EditorState as WebKit2.EditorState
import {-# SOURCE #-} qualified GI.WebKit2.Objects.FileChooserRequest as WebKit2.FileChooserRequest
import {-# SOURCE #-} qualified GI.WebKit2.Objects.FindController as WebKit2.FindController
import {-# SOURCE #-} qualified GI.WebKit2.Objects.FormSubmissionRequest as WebKit2.FormSubmissionRequest
import {-# SOURCE #-} qualified GI.WebKit2.Objects.HitTestResult as WebKit2.HitTestResult
import {-# SOURCE #-} qualified GI.WebKit2.Objects.Notification as WebKit2.Notification
import {-# SOURCE #-} qualified GI.WebKit2.Objects.OptionMenu as WebKit2.OptionMenu
import {-# SOURCE #-} qualified GI.WebKit2.Objects.PolicyDecision as WebKit2.PolicyDecision
import {-# SOURCE #-} qualified GI.WebKit2.Objects.PrintOperation as WebKit2.PrintOperation
import {-# SOURCE #-} qualified GI.WebKit2.Objects.Settings as WebKit2.Settings
import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIRequest as WebKit2.URIRequest
import {-# SOURCE #-} qualified GI.WebKit2.Objects.UserContentManager as WebKit2.UserContentManager
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebContext as WebKit2.WebContext
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebInspector as WebKit2.WebInspector
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebResource as WebKit2.WebResource
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebViewBase as WebKit2.WebViewBase
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebsiteDataManager as WebKit2.WebsiteDataManager
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WindowProperties as WebKit2.WindowProperties
import {-# SOURCE #-} qualified GI.WebKit2.Structs.JavascriptResult as WebKit2.JavascriptResult
import {-# SOURCE #-} qualified GI.WebKit2.Structs.NavigationAction as WebKit2.NavigationAction
import {-# SOURCE #-} qualified GI.WebKit2.Structs.ScriptDialog as WebKit2.ScriptDialog
import {-# SOURCE #-} qualified GI.WebKit2.Structs.WebViewSessionState as WebKit2.WebViewSessionState
newtype WebView = WebView (ManagedPtr WebView)
deriving (WebView -> WebView -> Bool
(WebView -> WebView -> Bool)
-> (WebView -> WebView -> Bool) -> Eq WebView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WebView -> WebView -> Bool
$c/= :: WebView -> WebView -> Bool
== :: WebView -> WebView -> Bool
$c== :: WebView -> WebView -> Bool
Eq)
foreign import ccall "webkit_web_view_get_type"
c_webkit_web_view_get_type :: IO GType
instance GObject WebView where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_web_view_get_type
instance B.GValue.IsGValue WebView where
toGValue :: WebView -> IO GValue
toGValue o :: WebView
o = do
GType
gtype <- IO GType
c_webkit_web_view_get_type
WebView -> (Ptr WebView -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebView
o (GType
-> (GValue -> Ptr WebView -> IO ()) -> Ptr WebView -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr WebView -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO WebView
fromGValue gv :: GValue
gv = do
Ptr WebView
ptr <- GValue -> IO (Ptr WebView)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr WebView)
(ManagedPtr WebView -> WebView) -> Ptr WebView -> IO WebView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WebView -> WebView
WebView Ptr WebView
ptr
class (GObject o, O.IsDescendantOf WebView o) => IsWebView o
instance (GObject o, O.IsDescendantOf WebView o) => IsWebView o
instance O.HasParentTypes WebView
type instance O.ParentTypes WebView = '[WebKit2.WebViewBase.WebViewBase, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toWebView :: (MonadIO m, IsWebView o) => o -> m WebView
toWebView :: o -> m WebView
toWebView = IO WebView -> m WebView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebView -> m WebView) -> (o -> IO WebView) -> o -> m WebView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WebView -> WebView) -> o -> IO WebView
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr WebView -> WebView
WebView
noWebView :: Maybe WebView
noWebView :: Maybe WebView
noWebView = Maybe WebView
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWebViewMethod (t :: Symbol) (o :: *) :: * where
ResolveWebViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveWebViewMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveWebViewMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveWebViewMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveWebViewMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveWebViewMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveWebViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveWebViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveWebViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebViewMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveWebViewMethod "canExecuteEditingCommand" o = WebViewCanExecuteEditingCommandMethodInfo
ResolveWebViewMethod "canExecuteEditingCommandFinish" o = WebViewCanExecuteEditingCommandFinishMethodInfo
ResolveWebViewMethod "canGoBack" o = WebViewCanGoBackMethodInfo
ResolveWebViewMethod "canGoForward" o = WebViewCanGoForwardMethodInfo
ResolveWebViewMethod "canShowMimeType" o = WebViewCanShowMimeTypeMethodInfo
ResolveWebViewMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveWebViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveWebViewMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveWebViewMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveWebViewMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveWebViewMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveWebViewMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveWebViewMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveWebViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveWebViewMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveWebViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveWebViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveWebViewMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveWebViewMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveWebViewMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveWebViewMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveWebViewMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveWebViewMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveWebViewMethod "downloadUri" o = WebViewDownloadUriMethodInfo
ResolveWebViewMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveWebViewMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveWebViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveWebViewMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveWebViewMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveWebViewMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveWebViewMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveWebViewMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveWebViewMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveWebViewMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveWebViewMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveWebViewMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveWebViewMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveWebViewMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveWebViewMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveWebViewMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveWebViewMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveWebViewMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveWebViewMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveWebViewMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveWebViewMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveWebViewMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveWebViewMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveWebViewMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveWebViewMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveWebViewMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveWebViewMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveWebViewMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveWebViewMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveWebViewMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveWebViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveWebViewMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveWebViewMethod "executeEditingCommand" o = WebViewExecuteEditingCommandMethodInfo
ResolveWebViewMethod "executeEditingCommandWithArgument" o = WebViewExecuteEditingCommandWithArgumentMethodInfo
ResolveWebViewMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveWebViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebViewMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveWebViewMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveWebViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebViewMethod "goBack" o = WebViewGoBackMethodInfo
ResolveWebViewMethod "goForward" o = WebViewGoForwardMethodInfo
ResolveWebViewMethod "goToBackForwardListItem" o = WebViewGoToBackForwardListItemMethodInfo
ResolveWebViewMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveWebViewMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveWebViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveWebViewMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveWebViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveWebViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveWebViewMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveWebViewMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveWebViewMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveWebViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveWebViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveWebViewMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveWebViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveWebViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveWebViewMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveWebViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveWebViewMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveWebViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveWebViewMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveWebViewMethod "isControlledByAutomation" o = WebViewIsControlledByAutomationMethodInfo
ResolveWebViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveWebViewMethod "isEditable" o = WebViewIsEditableMethodInfo
ResolveWebViewMethod "isEphemeral" o = WebViewIsEphemeralMethodInfo
ResolveWebViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveWebViewMethod "isLoading" o = WebViewIsLoadingMethodInfo
ResolveWebViewMethod "isPlayingAudio" o = WebViewIsPlayingAudioMethodInfo
ResolveWebViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveWebViewMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveWebViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveWebViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveWebViewMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveWebViewMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveWebViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveWebViewMethod "loadAlternateHtml" o = WebViewLoadAlternateHtmlMethodInfo
ResolveWebViewMethod "loadBytes" o = WebViewLoadBytesMethodInfo
ResolveWebViewMethod "loadHtml" o = WebViewLoadHtmlMethodInfo
ResolveWebViewMethod "loadPlainText" o = WebViewLoadPlainTextMethodInfo
ResolveWebViewMethod "loadRequest" o = WebViewLoadRequestMethodInfo
ResolveWebViewMethod "loadUri" o = WebViewLoadUriMethodInfo
ResolveWebViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveWebViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveWebViewMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveWebViewMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveWebViewMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveWebViewMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveWebViewMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveWebViewMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveWebViewMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveWebViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebViewMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveWebViewMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveWebViewMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveWebViewMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveWebViewMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveWebViewMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveWebViewMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveWebViewMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveWebViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveWebViewMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveWebViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveWebViewMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveWebViewMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveWebViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveWebViewMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveWebViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveWebViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebViewMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveWebViewMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveWebViewMethod "reload" o = WebViewReloadMethodInfo
ResolveWebViewMethod "reloadBypassCache" o = WebViewReloadBypassCacheMethodInfo
ResolveWebViewMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveWebViewMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveWebViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveWebViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveWebViewMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveWebViewMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveWebViewMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveWebViewMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveWebViewMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveWebViewMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveWebViewMethod "restoreSessionState" o = WebViewRestoreSessionStateMethodInfo
ResolveWebViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebViewMethod "runJavascript" o = WebViewRunJavascriptMethodInfo
ResolveWebViewMethod "runJavascriptFinish" o = WebViewRunJavascriptFinishMethodInfo
ResolveWebViewMethod "runJavascriptFromGresource" o = WebViewRunJavascriptFromGresourceMethodInfo
ResolveWebViewMethod "runJavascriptFromGresourceFinish" o = WebViewRunJavascriptFromGresourceFinishMethodInfo
ResolveWebViewMethod "runJavascriptInWorld" o = WebViewRunJavascriptInWorldMethodInfo
ResolveWebViewMethod "runJavascriptInWorldFinish" o = WebViewRunJavascriptInWorldFinishMethodInfo
ResolveWebViewMethod "save" o = WebViewSaveMethodInfo
ResolveWebViewMethod "saveFinish" o = WebViewSaveFinishMethodInfo
ResolveWebViewMethod "saveToFile" o = WebViewSaveToFileMethodInfo
ResolveWebViewMethod "saveToFileFinish" o = WebViewSaveToFileFinishMethodInfo
ResolveWebViewMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveWebViewMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveWebViewMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveWebViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveWebViewMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveWebViewMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveWebViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveWebViewMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveWebViewMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveWebViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebViewMethod "stopLoading" o = WebViewStopLoadingMethodInfo
ResolveWebViewMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveWebViewMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveWebViewMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveWebViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveWebViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveWebViewMethod "tryClose" o = WebViewTryCloseMethodInfo
ResolveWebViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveWebViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveWebViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveWebViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebViewMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveWebViewMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveWebViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveWebViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebViewMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveWebViewMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveWebViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveWebViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveWebViewMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveWebViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveWebViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveWebViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveWebViewMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveWebViewMethod "getBackForwardList" o = WebViewGetBackForwardListMethodInfo
ResolveWebViewMethod "getBackgroundColor" o = WebViewGetBackgroundColorMethodInfo
ResolveWebViewMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveWebViewMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveWebViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveWebViewMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveWebViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveWebViewMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveWebViewMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveWebViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveWebViewMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveWebViewMethod "getContext" o = WebViewGetContextMethodInfo
ResolveWebViewMethod "getCustomCharset" o = WebViewGetCustomCharsetMethodInfo
ResolveWebViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebViewMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveWebViewMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveWebViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveWebViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveWebViewMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveWebViewMethod "getEditorState" o = WebViewGetEditorStateMethodInfo
ResolveWebViewMethod "getEstimatedLoadProgress" o = WebViewGetEstimatedLoadProgressMethodInfo
ResolveWebViewMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveWebViewMethod "getFavicon" o = WebViewGetFaviconMethodInfo
ResolveWebViewMethod "getFindController" o = WebViewGetFindControllerMethodInfo
ResolveWebViewMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveWebViewMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveWebViewMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveWebViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveWebViewMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveWebViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveWebViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveWebViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveWebViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveWebViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveWebViewMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveWebViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveWebViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveWebViewMethod "getInspector" o = WebViewGetInspectorMethodInfo
ResolveWebViewMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveWebViewMethod "getMainResource" o = WebViewGetMainResourceMethodInfo
ResolveWebViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveWebViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveWebViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveWebViewMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveWebViewMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveWebViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveWebViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveWebViewMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveWebViewMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveWebViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveWebViewMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveWebViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveWebViewMethod "getPageId" o = WebViewGetPageIdMethodInfo
ResolveWebViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveWebViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveWebViewMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveWebViewMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveWebViewMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveWebViewMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveWebViewMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveWebViewMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveWebViewMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveWebViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveWebViewMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveWebViewMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveWebViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveWebViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveWebViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveWebViewMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveWebViewMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveWebViewMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveWebViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveWebViewMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveWebViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveWebViewMethod "getSessionState" o = WebViewGetSessionStateMethodInfo
ResolveWebViewMethod "getSettings" o = WebViewGetSettingsMethodInfo
ResolveWebViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveWebViewMethod "getSnapshot" o = WebViewGetSnapshotMethodInfo
ResolveWebViewMethod "getSnapshotFinish" o = WebViewGetSnapshotFinishMethodInfo
ResolveWebViewMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveWebViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveWebViewMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveWebViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveWebViewMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveWebViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveWebViewMethod "getTitle" o = WebViewGetTitleMethodInfo
ResolveWebViewMethod "getTlsInfo" o = WebViewGetTlsInfoMethodInfo
ResolveWebViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveWebViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveWebViewMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveWebViewMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveWebViewMethod "getUri" o = WebViewGetUriMethodInfo
ResolveWebViewMethod "getUserContentManager" o = WebViewGetUserContentManagerMethodInfo
ResolveWebViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveWebViewMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveWebViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveWebViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveWebViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveWebViewMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveWebViewMethod "getWebsiteDataManager" o = WebViewGetWebsiteDataManagerMethodInfo
ResolveWebViewMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveWebViewMethod "getWindowProperties" o = WebViewGetWindowPropertiesMethodInfo
ResolveWebViewMethod "getZoomLevel" o = WebViewGetZoomLevelMethodInfo
ResolveWebViewMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveWebViewMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveWebViewMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveWebViewMethod "setBackgroundColor" o = WebViewSetBackgroundColorMethodInfo
ResolveWebViewMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveWebViewMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveWebViewMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveWebViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveWebViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveWebViewMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveWebViewMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveWebViewMethod "setCustomCharset" o = WebViewSetCustomCharsetMethodInfo
ResolveWebViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWebViewMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveWebViewMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveWebViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveWebViewMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveWebViewMethod "setEditable" o = WebViewSetEditableMethodInfo
ResolveWebViewMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveWebViewMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveWebViewMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveWebViewMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveWebViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveWebViewMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveWebViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveWebViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveWebViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveWebViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveWebViewMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveWebViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveWebViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveWebViewMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveWebViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveWebViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveWebViewMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveWebViewMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveWebViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveWebViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveWebViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveWebViewMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveWebViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveWebViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveWebViewMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveWebViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebViewMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveWebViewMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveWebViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveWebViewMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveWebViewMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveWebViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveWebViewMethod "setSettings" o = WebViewSetSettingsMethodInfo
ResolveWebViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveWebViewMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveWebViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveWebViewMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveWebViewMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveWebViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveWebViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveWebViewMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveWebViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveWebViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveWebViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveWebViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveWebViewMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveWebViewMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveWebViewMethod "setZoomLevel" o = WebViewSetZoomLevelMethodInfo
ResolveWebViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebViewMethod t WebView, O.MethodInfo info WebView p) => OL.IsLabel t (WebView -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type WebViewAuthenticateCallback =
WebKit2.AuthenticationRequest.AuthenticationRequest
-> IO Bool
noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback
noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback
noWebViewAuthenticateCallback = Maybe WebViewAuthenticateCallback
forall a. Maybe a
Nothing
type C_WebViewAuthenticateCallback =
Ptr () ->
Ptr WebKit2.AuthenticationRequest.AuthenticationRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewAuthenticateCallback :: C_WebViewAuthenticateCallback -> IO (FunPtr C_WebViewAuthenticateCallback)
genClosure_WebViewAuthenticate :: MonadIO m => WebViewAuthenticateCallback -> m (GClosure C_WebViewAuthenticateCallback)
genClosure_WebViewAuthenticate :: WebViewAuthenticateCallback
-> m (GClosure C_WebViewAuthenticateCallback)
genClosure_WebViewAuthenticate cb :: WebViewAuthenticateCallback
cb = IO (GClosure C_WebViewAuthenticateCallback)
-> m (GClosure C_WebViewAuthenticateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewAuthenticateCallback)
-> m (GClosure C_WebViewAuthenticateCallback))
-> IO (GClosure C_WebViewAuthenticateCallback)
-> m (GClosure C_WebViewAuthenticateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewAuthenticateCallback
cb' = WebViewAuthenticateCallback -> C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback WebViewAuthenticateCallback
cb
C_WebViewAuthenticateCallback
-> IO (FunPtr C_WebViewAuthenticateCallback)
mk_WebViewAuthenticateCallback C_WebViewAuthenticateCallback
cb' IO (FunPtr C_WebViewAuthenticateCallback)
-> (FunPtr C_WebViewAuthenticateCallback
-> IO (GClosure C_WebViewAuthenticateCallback))
-> IO (GClosure C_WebViewAuthenticateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewAuthenticateCallback
-> IO (GClosure C_WebViewAuthenticateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewAuthenticateCallback ::
WebViewAuthenticateCallback ->
C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback :: WebViewAuthenticateCallback -> C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback _cb :: WebViewAuthenticateCallback
_cb _ request :: Ptr AuthenticationRequest
request _ = do
AuthenticationRequest
request' <- ((ManagedPtr AuthenticationRequest -> AuthenticationRequest)
-> Ptr AuthenticationRequest -> IO AuthenticationRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AuthenticationRequest -> AuthenticationRequest
WebKit2.AuthenticationRequest.AuthenticationRequest) Ptr AuthenticationRequest
request
Bool
result <- WebViewAuthenticateCallback
_cb AuthenticationRequest
request'
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'
onWebViewAuthenticate :: (IsWebView a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId
onWebViewAuthenticate :: a -> WebViewAuthenticateCallback -> m SignalHandlerId
onWebViewAuthenticate obj :: a
obj cb :: WebViewAuthenticateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewAuthenticateCallback
cb' = WebViewAuthenticateCallback -> C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback WebViewAuthenticateCallback
cb
FunPtr C_WebViewAuthenticateCallback
cb'' <- C_WebViewAuthenticateCallback
-> IO (FunPtr C_WebViewAuthenticateCallback)
mk_WebViewAuthenticateCallback C_WebViewAuthenticateCallback
cb'
a
-> Text
-> FunPtr C_WebViewAuthenticateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "authenticate" FunPtr C_WebViewAuthenticateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewAuthenticate :: (IsWebView a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId
afterWebViewAuthenticate :: a -> WebViewAuthenticateCallback -> m SignalHandlerId
afterWebViewAuthenticate obj :: a
obj cb :: WebViewAuthenticateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewAuthenticateCallback
cb' = WebViewAuthenticateCallback -> C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback WebViewAuthenticateCallback
cb
FunPtr C_WebViewAuthenticateCallback
cb'' <- C_WebViewAuthenticateCallback
-> IO (FunPtr C_WebViewAuthenticateCallback)
mk_WebViewAuthenticateCallback C_WebViewAuthenticateCallback
cb'
a
-> Text
-> FunPtr C_WebViewAuthenticateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "authenticate" FunPtr C_WebViewAuthenticateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewAuthenticateSignalInfo
instance SignalInfo WebViewAuthenticateSignalInfo where
type HaskellCallbackType WebViewAuthenticateSignalInfo = WebViewAuthenticateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewAuthenticateCallback cb
cb'' <- mk_WebViewAuthenticateCallback cb'
connectSignalFunPtr obj "authenticate" cb'' connectMode detail
#endif
type WebViewCloseCallback =
IO ()
noWebViewCloseCallback :: Maybe WebViewCloseCallback
noWebViewCloseCallback :: Maybe (IO ())
noWebViewCloseCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WebViewCloseCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewCloseCallback :: C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
genClosure_WebViewClose :: MonadIO m => WebViewCloseCallback -> m (GClosure C_WebViewCloseCallback)
genClosure_WebViewClose :: IO () -> m (GClosure C_WebViewCloseCallback)
genClosure_WebViewClose cb :: IO ()
cb = IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewCloseCallback IO ()
cb
C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewCloseCallback C_WebViewCloseCallback
cb' IO (FunPtr C_WebViewCloseCallback)
-> (FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewCloseCallback ::
WebViewCloseCallback ->
C_WebViewCloseCallback
wrap_WebViewCloseCallback :: IO () -> C_WebViewCloseCallback
wrap_WebViewCloseCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWebViewClose :: (IsWebView a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId
onWebViewClose :: a -> IO () -> m SignalHandlerId
onWebViewClose obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewCloseCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewCloseCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "close" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewClose :: (IsWebView a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId
afterWebViewClose :: a -> IO () -> m SignalHandlerId
afterWebViewClose obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewCloseCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewCloseCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "close" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewCloseSignalInfo
instance SignalInfo WebViewCloseSignalInfo where
type HaskellCallbackType WebViewCloseSignalInfo = WebViewCloseCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewCloseCallback cb
cb'' <- mk_WebViewCloseCallback cb'
connectSignalFunPtr obj "close" cb'' connectMode detail
#endif
type =
WebKit2.ContextMenu.ContextMenu
-> Gdk.Event.Event
-> WebKit2.HitTestResult.HitTestResult
-> IO Bool
noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback
= Maybe WebViewContextMenuCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr WebKit2.ContextMenu.ContextMenu ->
Ptr Gdk.Event.Event ->
Ptr WebKit2.HitTestResult.HitTestResult ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_WebViewContextMenuCallback -> IO (FunPtr C_WebViewContextMenuCallback)
genClosure_WebViewContextMenu :: MonadIO m => WebViewContextMenuCallback -> m (GClosure C_WebViewContextMenuCallback)
cb :: WebViewContextMenuCallback
cb = IO (GClosure C_WebViewContextMenuCallback)
-> m (GClosure C_WebViewContextMenuCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewContextMenuCallback)
-> m (GClosure C_WebViewContextMenuCallback))
-> IO (GClosure C_WebViewContextMenuCallback)
-> m (GClosure C_WebViewContextMenuCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewContextMenuCallback
cb' = WebViewContextMenuCallback -> C_WebViewContextMenuCallback
wrap_WebViewContextMenuCallback WebViewContextMenuCallback
cb
C_WebViewContextMenuCallback
-> IO (FunPtr C_WebViewContextMenuCallback)
mk_WebViewContextMenuCallback C_WebViewContextMenuCallback
cb' IO (FunPtr C_WebViewContextMenuCallback)
-> (FunPtr C_WebViewContextMenuCallback
-> IO (GClosure C_WebViewContextMenuCallback))
-> IO (GClosure C_WebViewContextMenuCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewContextMenuCallback
-> IO (GClosure C_WebViewContextMenuCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewContextMenuCallback ::
WebViewContextMenuCallback ->
C_WebViewContextMenuCallback
_cb :: WebViewContextMenuCallback
_cb _ contextMenu :: Ptr ContextMenu
contextMenu event :: Ptr Event
event hitTestResult :: Ptr HitTestResult
hitTestResult _ = 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
WebKit2.ContextMenu.ContextMenu) Ptr ContextMenu
contextMenu
(ManagedPtr Event -> Event)
-> Ptr Event -> (Event -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Event -> Event
Gdk.Event.Event Ptr Event
event ((Event -> IO CInt) -> IO CInt) -> (Event -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \event' :: Event
event' -> do
HitTestResult
hitTestResult' <- ((ManagedPtr HitTestResult -> HitTestResult)
-> Ptr HitTestResult -> IO HitTestResult
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr HitTestResult -> HitTestResult
WebKit2.HitTestResult.HitTestResult) Ptr HitTestResult
hitTestResult
Bool
result <- WebViewContextMenuCallback
_cb ContextMenu
contextMenu' Event
event' HitTestResult
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'
onWebViewContextMenu :: (IsWebView a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId
obj :: a
obj cb :: WebViewContextMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewContextMenuCallback
cb' = WebViewContextMenuCallback -> C_WebViewContextMenuCallback
wrap_WebViewContextMenuCallback WebViewContextMenuCallback
cb
FunPtr C_WebViewContextMenuCallback
cb'' <- C_WebViewContextMenuCallback
-> IO (FunPtr C_WebViewContextMenuCallback)
mk_WebViewContextMenuCallback C_WebViewContextMenuCallback
cb'
a
-> Text
-> FunPtr C_WebViewContextMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "context-menu" FunPtr C_WebViewContextMenuCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewContextMenu :: (IsWebView a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId
obj :: a
obj cb :: WebViewContextMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewContextMenuCallback
cb' = WebViewContextMenuCallback -> C_WebViewContextMenuCallback
wrap_WebViewContextMenuCallback WebViewContextMenuCallback
cb
FunPtr C_WebViewContextMenuCallback
cb'' <- C_WebViewContextMenuCallback
-> IO (FunPtr C_WebViewContextMenuCallback)
mk_WebViewContextMenuCallback C_WebViewContextMenuCallback
cb'
a
-> Text
-> FunPtr C_WebViewContextMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "context-menu" FunPtr C_WebViewContextMenuCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewContextMenuSignalInfo
instance SignalInfo WebViewContextMenuSignalInfo where
type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewContextMenuCallback cb
cb'' <- mk_WebViewContextMenuCallback cb'
connectSignalFunPtr obj "context-menu" cb'' connectMode detail
#endif
type =
IO ()
noWebViewContextMenuDismissedCallback :: Maybe WebViewContextMenuDismissedCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_WebViewContextMenuDismissedCallback -> IO (FunPtr C_WebViewContextMenuDismissedCallback)
genClosure_WebViewContextMenuDismissed :: MonadIO m => WebViewContextMenuDismissedCallback -> m (GClosure C_WebViewContextMenuDismissedCallback)
cb :: IO ()
cb = IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewContextMenuDismissedCallback IO ()
cb
C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewContextMenuDismissedCallback C_WebViewCloseCallback
cb' IO (FunPtr C_WebViewCloseCallback)
-> (FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewContextMenuDismissedCallback ::
WebViewContextMenuDismissedCallback ->
C_WebViewContextMenuDismissedCallback
_cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWebViewContextMenuDismissed :: (IsWebView a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId
obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewContextMenuDismissedCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewContextMenuDismissedCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "context-menu-dismissed" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewContextMenuDismissed :: (IsWebView a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId
obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewContextMenuDismissedCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewContextMenuDismissedCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "context-menu-dismissed" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewContextMenuDismissedSignalInfo
instance SignalInfo WebViewContextMenuDismissedSignalInfo where
type HaskellCallbackType WebViewContextMenuDismissedSignalInfo = WebViewContextMenuDismissedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewContextMenuDismissedCallback cb
cb'' <- mk_WebViewContextMenuDismissedCallback cb'
connectSignalFunPtr obj "context-menu-dismissed" cb'' connectMode detail
#endif
type WebViewCreateCallback =
WebKit2.NavigationAction.NavigationAction
-> IO Gtk.Widget.Widget
noWebViewCreateCallback :: Maybe WebViewCreateCallback
noWebViewCreateCallback :: Maybe WebViewCreateCallback
noWebViewCreateCallback = Maybe WebViewCreateCallback
forall a. Maybe a
Nothing
type C_WebViewCreateCallback =
Ptr () ->
Ptr WebKit2.NavigationAction.NavigationAction ->
Ptr () ->
IO (Ptr Gtk.Widget.Widget)
foreign import ccall "wrapper"
mk_WebViewCreateCallback :: C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)
genClosure_WebViewCreate :: MonadIO m => WebViewCreateCallback -> m (GClosure C_WebViewCreateCallback)
genClosure_WebViewCreate :: WebViewCreateCallback -> m (GClosure C_WebViewCreateCallback)
genClosure_WebViewCreate cb :: WebViewCreateCallback
cb = IO (GClosure C_WebViewCreateCallback)
-> m (GClosure C_WebViewCreateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewCreateCallback)
-> m (GClosure C_WebViewCreateCallback))
-> IO (GClosure C_WebViewCreateCallback)
-> m (GClosure C_WebViewCreateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCreateCallback
cb' = WebViewCreateCallback -> C_WebViewCreateCallback
wrap_WebViewCreateCallback WebViewCreateCallback
cb
C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)
mk_WebViewCreateCallback C_WebViewCreateCallback
cb' IO (FunPtr C_WebViewCreateCallback)
-> (FunPtr C_WebViewCreateCallback
-> IO (GClosure C_WebViewCreateCallback))
-> IO (GClosure C_WebViewCreateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewCreateCallback
-> IO (GClosure C_WebViewCreateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewCreateCallback ::
WebViewCreateCallback ->
C_WebViewCreateCallback
wrap_WebViewCreateCallback :: WebViewCreateCallback -> C_WebViewCreateCallback
wrap_WebViewCreateCallback _cb :: WebViewCreateCallback
_cb _ navigationAction :: Ptr NavigationAction
navigationAction _ = do
(ManagedPtr NavigationAction -> NavigationAction)
-> Ptr NavigationAction
-> (NavigationAction -> IO (Ptr Widget))
-> IO (Ptr Widget)
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr NavigationAction -> NavigationAction
WebKit2.NavigationAction.NavigationAction Ptr NavigationAction
navigationAction ((NavigationAction -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (NavigationAction -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \navigationAction' :: NavigationAction
navigationAction' -> do
Widget
result <- WebViewCreateCallback
_cb NavigationAction
navigationAction'
Ptr Widget
result' <- Widget -> IO (Ptr Widget)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject Widget
result
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
result'
onWebViewCreate :: (IsWebView a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId
onWebViewCreate :: a -> WebViewCreateCallback -> m SignalHandlerId
onWebViewCreate obj :: a
obj cb :: WebViewCreateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCreateCallback
cb' = WebViewCreateCallback -> C_WebViewCreateCallback
wrap_WebViewCreateCallback WebViewCreateCallback
cb
FunPtr C_WebViewCreateCallback
cb'' <- C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)
mk_WebViewCreateCallback C_WebViewCreateCallback
cb'
a
-> Text
-> FunPtr C_WebViewCreateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "create" FunPtr C_WebViewCreateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewCreate :: (IsWebView a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId
afterWebViewCreate :: a -> WebViewCreateCallback -> m SignalHandlerId
afterWebViewCreate obj :: a
obj cb :: WebViewCreateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCreateCallback
cb' = WebViewCreateCallback -> C_WebViewCreateCallback
wrap_WebViewCreateCallback WebViewCreateCallback
cb
FunPtr C_WebViewCreateCallback
cb'' <- C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)
mk_WebViewCreateCallback C_WebViewCreateCallback
cb'
a
-> Text
-> FunPtr C_WebViewCreateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "create" FunPtr C_WebViewCreateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewCreateSignalInfo
instance SignalInfo WebViewCreateSignalInfo where
type HaskellCallbackType WebViewCreateSignalInfo = WebViewCreateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewCreateCallback cb
cb'' <- mk_WebViewCreateCallback cb'
connectSignalFunPtr obj "create" cb'' connectMode detail
#endif
type WebViewDecidePolicyCallback =
WebKit2.PolicyDecision.PolicyDecision
-> WebKit2.Enums.PolicyDecisionType
-> IO Bool
noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback
noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback
noWebViewDecidePolicyCallback = Maybe WebViewDecidePolicyCallback
forall a. Maybe a
Nothing
type C_WebViewDecidePolicyCallback =
Ptr () ->
Ptr WebKit2.PolicyDecision.PolicyDecision ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewDecidePolicyCallback :: C_WebViewDecidePolicyCallback -> IO (FunPtr C_WebViewDecidePolicyCallback)
genClosure_WebViewDecidePolicy :: MonadIO m => WebViewDecidePolicyCallback -> m (GClosure C_WebViewDecidePolicyCallback)
genClosure_WebViewDecidePolicy :: WebViewDecidePolicyCallback
-> m (GClosure C_WebViewDecidePolicyCallback)
genClosure_WebViewDecidePolicy cb :: WebViewDecidePolicyCallback
cb = IO (GClosure C_WebViewDecidePolicyCallback)
-> m (GClosure C_WebViewDecidePolicyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewDecidePolicyCallback)
-> m (GClosure C_WebViewDecidePolicyCallback))
-> IO (GClosure C_WebViewDecidePolicyCallback)
-> m (GClosure C_WebViewDecidePolicyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewDecidePolicyCallback
cb' = WebViewDecidePolicyCallback -> C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback WebViewDecidePolicyCallback
cb
C_WebViewDecidePolicyCallback
-> IO (FunPtr C_WebViewDecidePolicyCallback)
mk_WebViewDecidePolicyCallback C_WebViewDecidePolicyCallback
cb' IO (FunPtr C_WebViewDecidePolicyCallback)
-> (FunPtr C_WebViewDecidePolicyCallback
-> IO (GClosure C_WebViewDecidePolicyCallback))
-> IO (GClosure C_WebViewDecidePolicyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewDecidePolicyCallback
-> IO (GClosure C_WebViewDecidePolicyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewDecidePolicyCallback ::
WebViewDecidePolicyCallback ->
C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback :: WebViewDecidePolicyCallback -> C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback _cb :: WebViewDecidePolicyCallback
_cb _ decision :: Ptr PolicyDecision
decision decisionType :: CUInt
decisionType _ = do
PolicyDecision
decision' <- ((ManagedPtr PolicyDecision -> PolicyDecision)
-> Ptr PolicyDecision -> IO PolicyDecision
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PolicyDecision -> PolicyDecision
WebKit2.PolicyDecision.PolicyDecision) Ptr PolicyDecision
decision
let decisionType' :: PolicyDecisionType
decisionType' = (Int -> PolicyDecisionType
forall a. Enum a => Int -> a
toEnum (Int -> PolicyDecisionType)
-> (CUInt -> Int) -> CUInt -> PolicyDecisionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
decisionType
Bool
result <- WebViewDecidePolicyCallback
_cb PolicyDecision
decision' PolicyDecisionType
decisionType'
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'
onWebViewDecidePolicy :: (IsWebView a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId
onWebViewDecidePolicy :: a -> WebViewDecidePolicyCallback -> m SignalHandlerId
onWebViewDecidePolicy obj :: a
obj cb :: WebViewDecidePolicyCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewDecidePolicyCallback
cb' = WebViewDecidePolicyCallback -> C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback WebViewDecidePolicyCallback
cb
FunPtr C_WebViewDecidePolicyCallback
cb'' <- C_WebViewDecidePolicyCallback
-> IO (FunPtr C_WebViewDecidePolicyCallback)
mk_WebViewDecidePolicyCallback C_WebViewDecidePolicyCallback
cb'
a
-> Text
-> FunPtr C_WebViewDecidePolicyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "decide-policy" FunPtr C_WebViewDecidePolicyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewDecidePolicy :: (IsWebView a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId
afterWebViewDecidePolicy :: a -> WebViewDecidePolicyCallback -> m SignalHandlerId
afterWebViewDecidePolicy obj :: a
obj cb :: WebViewDecidePolicyCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewDecidePolicyCallback
cb' = WebViewDecidePolicyCallback -> C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback WebViewDecidePolicyCallback
cb
FunPtr C_WebViewDecidePolicyCallback
cb'' <- C_WebViewDecidePolicyCallback
-> IO (FunPtr C_WebViewDecidePolicyCallback)
mk_WebViewDecidePolicyCallback C_WebViewDecidePolicyCallback
cb'
a
-> Text
-> FunPtr C_WebViewDecidePolicyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "decide-policy" FunPtr C_WebViewDecidePolicyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewDecidePolicySignalInfo
instance SignalInfo WebViewDecidePolicySignalInfo where
type HaskellCallbackType WebViewDecidePolicySignalInfo = WebViewDecidePolicyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewDecidePolicyCallback cb
cb'' <- mk_WebViewDecidePolicyCallback cb'
connectSignalFunPtr obj "decide-policy" cb'' connectMode detail
#endif
type WebViewEnterFullscreenCallback =
IO Bool
noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback
noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback
noWebViewEnterFullscreenCallback = Maybe WebViewEnterFullscreenCallback
forall a. Maybe a
Nothing
type C_WebViewEnterFullscreenCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewEnterFullscreenCallback :: C_WebViewEnterFullscreenCallback -> IO (FunPtr C_WebViewEnterFullscreenCallback)
genClosure_WebViewEnterFullscreen :: MonadIO m => WebViewEnterFullscreenCallback -> m (GClosure C_WebViewEnterFullscreenCallback)
genClosure_WebViewEnterFullscreen :: WebViewEnterFullscreenCallback
-> m (GClosure C_WebViewEnterFullscreenCallback)
genClosure_WebViewEnterFullscreen cb :: WebViewEnterFullscreenCallback
cb = IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback))
-> IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback WebViewEnterFullscreenCallback
cb
C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewEnterFullscreenCallback C_WebViewEnterFullscreenCallback
cb' IO (FunPtr C_WebViewEnterFullscreenCallback)
-> (FunPtr C_WebViewEnterFullscreenCallback
-> IO (GClosure C_WebViewEnterFullscreenCallback))
-> IO (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewEnterFullscreenCallback
-> IO (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewEnterFullscreenCallback ::
WebViewEnterFullscreenCallback ->
C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback :: WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback _cb :: WebViewEnterFullscreenCallback
_cb _ _ = do
Bool
result <- WebViewEnterFullscreenCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewEnterFullscreen :: (IsWebView a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewEnterFullscreen :: a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewEnterFullscreen obj :: a
obj cb :: WebViewEnterFullscreenCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback WebViewEnterFullscreenCallback
cb
FunPtr C_WebViewEnterFullscreenCallback
cb'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewEnterFullscreenCallback C_WebViewEnterFullscreenCallback
cb'
a
-> Text
-> FunPtr C_WebViewEnterFullscreenCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "enter-fullscreen" FunPtr C_WebViewEnterFullscreenCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewEnterFullscreen :: (IsWebView a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewEnterFullscreen :: a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewEnterFullscreen obj :: a
obj cb :: WebViewEnterFullscreenCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback WebViewEnterFullscreenCallback
cb
FunPtr C_WebViewEnterFullscreenCallback
cb'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewEnterFullscreenCallback C_WebViewEnterFullscreenCallback
cb'
a
-> Text
-> FunPtr C_WebViewEnterFullscreenCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "enter-fullscreen" FunPtr C_WebViewEnterFullscreenCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewEnterFullscreenSignalInfo
instance SignalInfo WebViewEnterFullscreenSignalInfo where
type HaskellCallbackType WebViewEnterFullscreenSignalInfo = WebViewEnterFullscreenCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewEnterFullscreenCallback cb
cb'' <- mk_WebViewEnterFullscreenCallback cb'
connectSignalFunPtr obj "enter-fullscreen" cb'' connectMode detail
#endif
type WebViewInsecureContentDetectedCallback =
WebKit2.Enums.InsecureContentEvent
-> IO ()
noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback
noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback
noWebViewInsecureContentDetectedCallback = Maybe WebViewInsecureContentDetectedCallback
forall a. Maybe a
Nothing
type C_WebViewInsecureContentDetectedCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewInsecureContentDetectedCallback :: C_WebViewInsecureContentDetectedCallback -> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewInsecureContentDetected :: MonadIO m => WebViewInsecureContentDetectedCallback -> m (GClosure C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewInsecureContentDetected :: WebViewInsecureContentDetectedCallback
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewInsecureContentDetected cb :: WebViewInsecureContentDetectedCallback
cb = IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback))
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewInsecureContentDetectedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback WebViewInsecureContentDetectedCallback
cb
C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewInsecureContentDetectedCallback C_WebViewInsecureContentDetectedCallback
cb' IO (FunPtr C_WebViewInsecureContentDetectedCallback)
-> (FunPtr C_WebViewInsecureContentDetectedCallback
-> IO (GClosure C_WebViewInsecureContentDetectedCallback))
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewInsecureContentDetectedCallback
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewInsecureContentDetectedCallback ::
WebViewInsecureContentDetectedCallback ->
C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback :: WebViewInsecureContentDetectedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback _cb :: WebViewInsecureContentDetectedCallback
_cb _ event :: CUInt
event _ = do
let event' :: InsecureContentEvent
event' = (Int -> InsecureContentEvent
forall a. Enum a => Int -> a
toEnum (Int -> InsecureContentEvent)
-> (CUInt -> Int) -> CUInt -> InsecureContentEvent
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
event
WebViewInsecureContentDetectedCallback
_cb InsecureContentEvent
event'
onWebViewInsecureContentDetected :: (IsWebView a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
onWebViewInsecureContentDetected :: a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
onWebViewInsecureContentDetected obj :: a
obj cb :: WebViewInsecureContentDetectedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewInsecureContentDetectedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback WebViewInsecureContentDetectedCallback
cb
FunPtr C_WebViewInsecureContentDetectedCallback
cb'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewInsecureContentDetectedCallback C_WebViewInsecureContentDetectedCallback
cb'
a
-> Text
-> FunPtr C_WebViewInsecureContentDetectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insecure-content-detected" FunPtr C_WebViewInsecureContentDetectedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewInsecureContentDetected :: (IsWebView a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
afterWebViewInsecureContentDetected :: a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
afterWebViewInsecureContentDetected obj :: a
obj cb :: WebViewInsecureContentDetectedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewInsecureContentDetectedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback WebViewInsecureContentDetectedCallback
cb
FunPtr C_WebViewInsecureContentDetectedCallback
cb'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewInsecureContentDetectedCallback C_WebViewInsecureContentDetectedCallback
cb'
a
-> Text
-> FunPtr C_WebViewInsecureContentDetectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insecure-content-detected" FunPtr C_WebViewInsecureContentDetectedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewInsecureContentDetectedSignalInfo
instance SignalInfo WebViewInsecureContentDetectedSignalInfo where
type HaskellCallbackType WebViewInsecureContentDetectedSignalInfo = WebViewInsecureContentDetectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewInsecureContentDetectedCallback cb
cb'' <- mk_WebViewInsecureContentDetectedCallback cb'
connectSignalFunPtr obj "insecure-content-detected" cb'' connectMode detail
#endif
type WebViewLeaveFullscreenCallback =
IO Bool
noWebViewLeaveFullscreenCallback :: Maybe WebViewLeaveFullscreenCallback
noWebViewLeaveFullscreenCallback :: Maybe WebViewEnterFullscreenCallback
noWebViewLeaveFullscreenCallback = Maybe WebViewEnterFullscreenCallback
forall a. Maybe a
Nothing
type C_WebViewLeaveFullscreenCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewLeaveFullscreenCallback :: C_WebViewLeaveFullscreenCallback -> IO (FunPtr C_WebViewLeaveFullscreenCallback)
genClosure_WebViewLeaveFullscreen :: MonadIO m => WebViewLeaveFullscreenCallback -> m (GClosure C_WebViewLeaveFullscreenCallback)
genClosure_WebViewLeaveFullscreen :: WebViewEnterFullscreenCallback
-> m (GClosure C_WebViewEnterFullscreenCallback)
genClosure_WebViewLeaveFullscreen cb :: WebViewEnterFullscreenCallback
cb = IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback))
-> IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewLeaveFullscreenCallback WebViewEnterFullscreenCallback
cb
C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewLeaveFullscreenCallback C_WebViewEnterFullscreenCallback
cb' IO (FunPtr C_WebViewEnterFullscreenCallback)
-> (FunPtr C_WebViewEnterFullscreenCallback
-> IO (GClosure C_WebViewEnterFullscreenCallback))
-> IO (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewEnterFullscreenCallback
-> IO (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewLeaveFullscreenCallback ::
WebViewLeaveFullscreenCallback ->
C_WebViewLeaveFullscreenCallback
wrap_WebViewLeaveFullscreenCallback :: WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewLeaveFullscreenCallback _cb :: WebViewEnterFullscreenCallback
_cb _ _ = do
Bool
result <- WebViewEnterFullscreenCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewLeaveFullscreen :: (IsWebView a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId
onWebViewLeaveFullscreen :: a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewLeaveFullscreen obj :: a
obj cb :: WebViewEnterFullscreenCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewLeaveFullscreenCallback WebViewEnterFullscreenCallback
cb
FunPtr C_WebViewEnterFullscreenCallback
cb'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewLeaveFullscreenCallback C_WebViewEnterFullscreenCallback
cb'
a
-> Text
-> FunPtr C_WebViewEnterFullscreenCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "leave-fullscreen" FunPtr C_WebViewEnterFullscreenCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLeaveFullscreen :: (IsWebView a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId
afterWebViewLeaveFullscreen :: a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewLeaveFullscreen obj :: a
obj cb :: WebViewEnterFullscreenCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewLeaveFullscreenCallback WebViewEnterFullscreenCallback
cb
FunPtr C_WebViewEnterFullscreenCallback
cb'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewLeaveFullscreenCallback C_WebViewEnterFullscreenCallback
cb'
a
-> Text
-> FunPtr C_WebViewEnterFullscreenCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "leave-fullscreen" FunPtr C_WebViewEnterFullscreenCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewLeaveFullscreenSignalInfo
instance SignalInfo WebViewLeaveFullscreenSignalInfo where
type HaskellCallbackType WebViewLeaveFullscreenSignalInfo = WebViewLeaveFullscreenCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewLeaveFullscreenCallback cb
cb'' <- mk_WebViewLeaveFullscreenCallback cb'
connectSignalFunPtr obj "leave-fullscreen" cb'' connectMode detail
#endif
type WebViewLoadChangedCallback =
WebKit2.Enums.LoadEvent
-> IO ()
noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback
noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback
noWebViewLoadChangedCallback = Maybe WebViewLoadChangedCallback
forall a. Maybe a
Nothing
type C_WebViewLoadChangedCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewLoadChangedCallback :: C_WebViewLoadChangedCallback -> IO (FunPtr C_WebViewLoadChangedCallback)
genClosure_WebViewLoadChanged :: MonadIO m => WebViewLoadChangedCallback -> m (GClosure C_WebViewLoadChangedCallback)
genClosure_WebViewLoadChanged :: WebViewLoadChangedCallback
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewLoadChanged cb :: WebViewLoadChangedCallback
cb = IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback))
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewLoadChangedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewLoadChangedCallback WebViewLoadChangedCallback
cb
C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewLoadChangedCallback C_WebViewInsecureContentDetectedCallback
cb' IO (FunPtr C_WebViewInsecureContentDetectedCallback)
-> (FunPtr C_WebViewInsecureContentDetectedCallback
-> IO (GClosure C_WebViewInsecureContentDetectedCallback))
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewInsecureContentDetectedCallback
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewLoadChangedCallback ::
WebViewLoadChangedCallback ->
C_WebViewLoadChangedCallback
wrap_WebViewLoadChangedCallback :: WebViewLoadChangedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewLoadChangedCallback _cb :: WebViewLoadChangedCallback
_cb _ loadEvent :: CUInt
loadEvent _ = do
let loadEvent' :: LoadEvent
loadEvent' = (Int -> LoadEvent
forall a. Enum a => Int -> a
toEnum (Int -> LoadEvent) -> (CUInt -> Int) -> CUInt -> LoadEvent
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
loadEvent
WebViewLoadChangedCallback
_cb LoadEvent
loadEvent'
onWebViewLoadChanged :: (IsWebView a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId
onWebViewLoadChanged :: a -> WebViewLoadChangedCallback -> m SignalHandlerId
onWebViewLoadChanged obj :: a
obj cb :: WebViewLoadChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewLoadChangedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewLoadChangedCallback WebViewLoadChangedCallback
cb
FunPtr C_WebViewInsecureContentDetectedCallback
cb'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewLoadChangedCallback C_WebViewInsecureContentDetectedCallback
cb'
a
-> Text
-> FunPtr C_WebViewInsecureContentDetectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "load-changed" FunPtr C_WebViewInsecureContentDetectedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLoadChanged :: (IsWebView a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId
afterWebViewLoadChanged :: a -> WebViewLoadChangedCallback -> m SignalHandlerId
afterWebViewLoadChanged obj :: a
obj cb :: WebViewLoadChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewLoadChangedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewLoadChangedCallback WebViewLoadChangedCallback
cb
FunPtr C_WebViewInsecureContentDetectedCallback
cb'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewLoadChangedCallback C_WebViewInsecureContentDetectedCallback
cb'
a
-> Text
-> FunPtr C_WebViewInsecureContentDetectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "load-changed" FunPtr C_WebViewInsecureContentDetectedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewLoadChangedSignalInfo
instance SignalInfo WebViewLoadChangedSignalInfo where
type HaskellCallbackType WebViewLoadChangedSignalInfo = WebViewLoadChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewLoadChangedCallback cb
cb'' <- mk_WebViewLoadChangedCallback cb'
connectSignalFunPtr obj "load-changed" cb'' connectMode detail
#endif
type WebViewLoadFailedCallback =
WebKit2.Enums.LoadEvent
-> T.Text
-> GError
-> IO Bool
noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback
noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback
noWebViewLoadFailedCallback = Maybe WebViewLoadFailedCallback
forall a. Maybe a
Nothing
type C_WebViewLoadFailedCallback =
Ptr () ->
CUInt ->
CString ->
Ptr GError ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewLoadFailedCallback :: C_WebViewLoadFailedCallback -> IO (FunPtr C_WebViewLoadFailedCallback)
genClosure_WebViewLoadFailed :: MonadIO m => WebViewLoadFailedCallback -> m (GClosure C_WebViewLoadFailedCallback)
genClosure_WebViewLoadFailed :: WebViewLoadFailedCallback
-> m (GClosure C_WebViewLoadFailedCallback)
genClosure_WebViewLoadFailed cb :: WebViewLoadFailedCallback
cb = IO (GClosure C_WebViewLoadFailedCallback)
-> m (GClosure C_WebViewLoadFailedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewLoadFailedCallback)
-> m (GClosure C_WebViewLoadFailedCallback))
-> IO (GClosure C_WebViewLoadFailedCallback)
-> m (GClosure C_WebViewLoadFailedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewLoadFailedCallback
cb' = WebViewLoadFailedCallback -> C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback WebViewLoadFailedCallback
cb
C_WebViewLoadFailedCallback
-> IO (FunPtr C_WebViewLoadFailedCallback)
mk_WebViewLoadFailedCallback C_WebViewLoadFailedCallback
cb' IO (FunPtr C_WebViewLoadFailedCallback)
-> (FunPtr C_WebViewLoadFailedCallback
-> IO (GClosure C_WebViewLoadFailedCallback))
-> IO (GClosure C_WebViewLoadFailedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewLoadFailedCallback
-> IO (GClosure C_WebViewLoadFailedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewLoadFailedCallback ::
WebViewLoadFailedCallback ->
C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback :: WebViewLoadFailedCallback -> C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback _cb :: WebViewLoadFailedCallback
_cb _ loadEvent :: CUInt
loadEvent failingUri :: CString
failingUri error_ :: Ptr GError
error_ _ = do
let loadEvent' :: LoadEvent
loadEvent' = (Int -> LoadEvent
forall a. Enum a => Int -> a
toEnum (Int -> LoadEvent) -> (CUInt -> Int) -> CUInt -> LoadEvent
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
loadEvent
Text
failingUri' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
failingUri
GError
error_' <- ((ManagedPtr GError -> GError) -> Ptr GError -> IO GError
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr GError -> GError
GError) Ptr GError
error_
Bool
result <- WebViewLoadFailedCallback
_cb LoadEvent
loadEvent' Text
failingUri' GError
error_'
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'
onWebViewLoadFailed :: (IsWebView a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId
onWebViewLoadFailed :: a -> WebViewLoadFailedCallback -> m SignalHandlerId
onWebViewLoadFailed obj :: a
obj cb :: WebViewLoadFailedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewLoadFailedCallback
cb' = WebViewLoadFailedCallback -> C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback WebViewLoadFailedCallback
cb
FunPtr C_WebViewLoadFailedCallback
cb'' <- C_WebViewLoadFailedCallback
-> IO (FunPtr C_WebViewLoadFailedCallback)
mk_WebViewLoadFailedCallback C_WebViewLoadFailedCallback
cb'
a
-> Text
-> FunPtr C_WebViewLoadFailedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "load-failed" FunPtr C_WebViewLoadFailedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLoadFailed :: (IsWebView a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId
afterWebViewLoadFailed :: a -> WebViewLoadFailedCallback -> m SignalHandlerId
afterWebViewLoadFailed obj :: a
obj cb :: WebViewLoadFailedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewLoadFailedCallback
cb' = WebViewLoadFailedCallback -> C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback WebViewLoadFailedCallback
cb
FunPtr C_WebViewLoadFailedCallback
cb'' <- C_WebViewLoadFailedCallback
-> IO (FunPtr C_WebViewLoadFailedCallback)
mk_WebViewLoadFailedCallback C_WebViewLoadFailedCallback
cb'
a
-> Text
-> FunPtr C_WebViewLoadFailedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "load-failed" FunPtr C_WebViewLoadFailedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewLoadFailedSignalInfo
instance SignalInfo WebViewLoadFailedSignalInfo where
type HaskellCallbackType WebViewLoadFailedSignalInfo = WebViewLoadFailedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewLoadFailedCallback cb
cb'' <- mk_WebViewLoadFailedCallback cb'
connectSignalFunPtr obj "load-failed" cb'' connectMode detail
#endif
type WebViewLoadFailedWithTlsErrorsCallback =
T.Text
-> Gio.TlsCertificate.TlsCertificate
-> [Gio.Flags.TlsCertificateFlags]
-> IO Bool
noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback
noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback
noWebViewLoadFailedWithTlsErrorsCallback = Maybe WebViewLoadFailedWithTlsErrorsCallback
forall a. Maybe a
Nothing
type C_WebViewLoadFailedWithTlsErrorsCallback =
Ptr () ->
CString ->
Ptr Gio.TlsCertificate.TlsCertificate ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewLoadFailedWithTlsErrorsCallback :: C_WebViewLoadFailedWithTlsErrorsCallback -> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
genClosure_WebViewLoadFailedWithTlsErrors :: MonadIO m => WebViewLoadFailedWithTlsErrorsCallback -> m (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
genClosure_WebViewLoadFailedWithTlsErrors :: WebViewLoadFailedWithTlsErrorsCallback
-> m (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
genClosure_WebViewLoadFailedWithTlsErrors cb :: WebViewLoadFailedWithTlsErrorsCallback
cb = IO (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
-> m (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
-> m (GClosure C_WebViewLoadFailedWithTlsErrorsCallback))
-> IO (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
-> m (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewLoadFailedWithTlsErrorsCallback
cb' = WebViewLoadFailedWithTlsErrorsCallback
-> C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback WebViewLoadFailedWithTlsErrorsCallback
cb
C_WebViewLoadFailedWithTlsErrorsCallback
-> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
mk_WebViewLoadFailedWithTlsErrorsCallback C_WebViewLoadFailedWithTlsErrorsCallback
cb' IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
-> (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
-> IO (GClosure C_WebViewLoadFailedWithTlsErrorsCallback))
-> IO (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
-> IO (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewLoadFailedWithTlsErrorsCallback ::
WebViewLoadFailedWithTlsErrorsCallback ->
C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback :: WebViewLoadFailedWithTlsErrorsCallback
-> C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback _cb :: WebViewLoadFailedWithTlsErrorsCallback
_cb _ failingUri :: CString
failingUri certificate :: Ptr TlsCertificate
certificate errors :: CUInt
errors _ = do
Text
failingUri' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
failingUri
TlsCertificate
certificate' <- ((ManagedPtr TlsCertificate -> TlsCertificate)
-> Ptr TlsCertificate -> IO TlsCertificate
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TlsCertificate -> TlsCertificate
Gio.TlsCertificate.TlsCertificate) Ptr TlsCertificate
certificate
let errors' :: [TlsCertificateFlags]
errors' = CUInt -> [TlsCertificateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
errors
Bool
result <- WebViewLoadFailedWithTlsErrorsCallback
_cb Text
failingUri' TlsCertificate
certificate' [TlsCertificateFlags]
errors'
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'
onWebViewLoadFailedWithTlsErrors :: (IsWebView a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
onWebViewLoadFailedWithTlsErrors :: a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
onWebViewLoadFailedWithTlsErrors obj :: a
obj cb :: WebViewLoadFailedWithTlsErrorsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewLoadFailedWithTlsErrorsCallback
cb' = WebViewLoadFailedWithTlsErrorsCallback
-> C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback WebViewLoadFailedWithTlsErrorsCallback
cb
FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
cb'' <- C_WebViewLoadFailedWithTlsErrorsCallback
-> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
mk_WebViewLoadFailedWithTlsErrorsCallback C_WebViewLoadFailedWithTlsErrorsCallback
cb'
a
-> Text
-> FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "load-failed-with-tls-errors" FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLoadFailedWithTlsErrors :: (IsWebView a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
afterWebViewLoadFailedWithTlsErrors :: a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
afterWebViewLoadFailedWithTlsErrors obj :: a
obj cb :: WebViewLoadFailedWithTlsErrorsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewLoadFailedWithTlsErrorsCallback
cb' = WebViewLoadFailedWithTlsErrorsCallback
-> C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback WebViewLoadFailedWithTlsErrorsCallback
cb
FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
cb'' <- C_WebViewLoadFailedWithTlsErrorsCallback
-> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
mk_WebViewLoadFailedWithTlsErrorsCallback C_WebViewLoadFailedWithTlsErrorsCallback
cb'
a
-> Text
-> FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "load-failed-with-tls-errors" FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewLoadFailedWithTlsErrorsSignalInfo
instance SignalInfo WebViewLoadFailedWithTlsErrorsSignalInfo where
type HaskellCallbackType WebViewLoadFailedWithTlsErrorsSignalInfo = WebViewLoadFailedWithTlsErrorsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewLoadFailedWithTlsErrorsCallback cb
cb'' <- mk_WebViewLoadFailedWithTlsErrorsCallback cb'
connectSignalFunPtr obj "load-failed-with-tls-errors" cb'' connectMode detail
#endif
type WebViewMouseTargetChangedCallback =
WebKit2.HitTestResult.HitTestResult
-> Word32
-> IO ()
noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback
noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback
noWebViewMouseTargetChangedCallback = Maybe WebViewMouseTargetChangedCallback
forall a. Maybe a
Nothing
type C_WebViewMouseTargetChangedCallback =
Ptr () ->
Ptr WebKit2.HitTestResult.HitTestResult ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewMouseTargetChangedCallback :: C_WebViewMouseTargetChangedCallback -> IO (FunPtr C_WebViewMouseTargetChangedCallback)
genClosure_WebViewMouseTargetChanged :: MonadIO m => WebViewMouseTargetChangedCallback -> m (GClosure C_WebViewMouseTargetChangedCallback)
genClosure_WebViewMouseTargetChanged :: WebViewMouseTargetChangedCallback
-> m (GClosure C_WebViewMouseTargetChangedCallback)
genClosure_WebViewMouseTargetChanged cb :: WebViewMouseTargetChangedCallback
cb = IO (GClosure C_WebViewMouseTargetChangedCallback)
-> m (GClosure C_WebViewMouseTargetChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewMouseTargetChangedCallback)
-> m (GClosure C_WebViewMouseTargetChangedCallback))
-> IO (GClosure C_WebViewMouseTargetChangedCallback)
-> m (GClosure C_WebViewMouseTargetChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewMouseTargetChangedCallback
cb' = WebViewMouseTargetChangedCallback
-> C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback WebViewMouseTargetChangedCallback
cb
C_WebViewMouseTargetChangedCallback
-> IO (FunPtr C_WebViewMouseTargetChangedCallback)
mk_WebViewMouseTargetChangedCallback C_WebViewMouseTargetChangedCallback
cb' IO (FunPtr C_WebViewMouseTargetChangedCallback)
-> (FunPtr C_WebViewMouseTargetChangedCallback
-> IO (GClosure C_WebViewMouseTargetChangedCallback))
-> IO (GClosure C_WebViewMouseTargetChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewMouseTargetChangedCallback
-> IO (GClosure C_WebViewMouseTargetChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewMouseTargetChangedCallback ::
WebViewMouseTargetChangedCallback ->
C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback :: WebViewMouseTargetChangedCallback
-> C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback _cb :: WebViewMouseTargetChangedCallback
_cb _ hitTestResult :: Ptr HitTestResult
hitTestResult modifiers :: Word32
modifiers _ = do
HitTestResult
hitTestResult' <- ((ManagedPtr HitTestResult -> HitTestResult)
-> Ptr HitTestResult -> IO HitTestResult
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr HitTestResult -> HitTestResult
WebKit2.HitTestResult.HitTestResult) Ptr HitTestResult
hitTestResult
WebViewMouseTargetChangedCallback
_cb HitTestResult
hitTestResult' Word32
modifiers
onWebViewMouseTargetChanged :: (IsWebView a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
onWebViewMouseTargetChanged :: a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
onWebViewMouseTargetChanged obj :: a
obj cb :: WebViewMouseTargetChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewMouseTargetChangedCallback
cb' = WebViewMouseTargetChangedCallback
-> C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback WebViewMouseTargetChangedCallback
cb
FunPtr C_WebViewMouseTargetChangedCallback
cb'' <- C_WebViewMouseTargetChangedCallback
-> IO (FunPtr C_WebViewMouseTargetChangedCallback)
mk_WebViewMouseTargetChangedCallback C_WebViewMouseTargetChangedCallback
cb'
a
-> Text
-> FunPtr C_WebViewMouseTargetChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "mouse-target-changed" FunPtr C_WebViewMouseTargetChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewMouseTargetChanged :: (IsWebView a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
afterWebViewMouseTargetChanged :: a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
afterWebViewMouseTargetChanged obj :: a
obj cb :: WebViewMouseTargetChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewMouseTargetChangedCallback
cb' = WebViewMouseTargetChangedCallback
-> C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback WebViewMouseTargetChangedCallback
cb
FunPtr C_WebViewMouseTargetChangedCallback
cb'' <- C_WebViewMouseTargetChangedCallback
-> IO (FunPtr C_WebViewMouseTargetChangedCallback)
mk_WebViewMouseTargetChangedCallback C_WebViewMouseTargetChangedCallback
cb'
a
-> Text
-> FunPtr C_WebViewMouseTargetChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "mouse-target-changed" FunPtr C_WebViewMouseTargetChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewMouseTargetChangedSignalInfo
instance SignalInfo WebViewMouseTargetChangedSignalInfo where
type HaskellCallbackType WebViewMouseTargetChangedSignalInfo = WebViewMouseTargetChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewMouseTargetChangedCallback cb
cb'' <- mk_WebViewMouseTargetChangedCallback cb'
connectSignalFunPtr obj "mouse-target-changed" cb'' connectMode detail
#endif
type WebViewPermissionRequestCallback =
WebKit2.PermissionRequest.PermissionRequest
-> IO Bool
noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback
noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback
noWebViewPermissionRequestCallback = Maybe WebViewPermissionRequestCallback
forall a. Maybe a
Nothing
type C_WebViewPermissionRequestCallback =
Ptr () ->
Ptr WebKit2.PermissionRequest.PermissionRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewPermissionRequestCallback :: C_WebViewPermissionRequestCallback -> IO (FunPtr C_WebViewPermissionRequestCallback)
genClosure_WebViewPermissionRequest :: MonadIO m => WebViewPermissionRequestCallback -> m (GClosure C_WebViewPermissionRequestCallback)
genClosure_WebViewPermissionRequest :: WebViewPermissionRequestCallback
-> m (GClosure C_WebViewPermissionRequestCallback)
genClosure_WebViewPermissionRequest cb :: WebViewPermissionRequestCallback
cb = IO (GClosure C_WebViewPermissionRequestCallback)
-> m (GClosure C_WebViewPermissionRequestCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewPermissionRequestCallback)
-> m (GClosure C_WebViewPermissionRequestCallback))
-> IO (GClosure C_WebViewPermissionRequestCallback)
-> m (GClosure C_WebViewPermissionRequestCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewPermissionRequestCallback
cb' = WebViewPermissionRequestCallback
-> C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback WebViewPermissionRequestCallback
cb
C_WebViewPermissionRequestCallback
-> IO (FunPtr C_WebViewPermissionRequestCallback)
mk_WebViewPermissionRequestCallback C_WebViewPermissionRequestCallback
cb' IO (FunPtr C_WebViewPermissionRequestCallback)
-> (FunPtr C_WebViewPermissionRequestCallback
-> IO (GClosure C_WebViewPermissionRequestCallback))
-> IO (GClosure C_WebViewPermissionRequestCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewPermissionRequestCallback
-> IO (GClosure C_WebViewPermissionRequestCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewPermissionRequestCallback ::
WebViewPermissionRequestCallback ->
C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback :: WebViewPermissionRequestCallback
-> C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback _cb :: WebViewPermissionRequestCallback
_cb _ request :: Ptr PermissionRequest
request _ = do
PermissionRequest
request' <- ((ManagedPtr PermissionRequest -> PermissionRequest)
-> Ptr PermissionRequest -> IO PermissionRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PermissionRequest -> PermissionRequest
WebKit2.PermissionRequest.PermissionRequest) Ptr PermissionRequest
request
Bool
result <- WebViewPermissionRequestCallback
_cb PermissionRequest
request'
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'
onWebViewPermissionRequest :: (IsWebView a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId
onWebViewPermissionRequest :: a -> WebViewPermissionRequestCallback -> m SignalHandlerId
onWebViewPermissionRequest obj :: a
obj cb :: WebViewPermissionRequestCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewPermissionRequestCallback
cb' = WebViewPermissionRequestCallback
-> C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback WebViewPermissionRequestCallback
cb
FunPtr C_WebViewPermissionRequestCallback
cb'' <- C_WebViewPermissionRequestCallback
-> IO (FunPtr C_WebViewPermissionRequestCallback)
mk_WebViewPermissionRequestCallback C_WebViewPermissionRequestCallback
cb'
a
-> Text
-> FunPtr C_WebViewPermissionRequestCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "permission-request" FunPtr C_WebViewPermissionRequestCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewPermissionRequest :: (IsWebView a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId
afterWebViewPermissionRequest :: a -> WebViewPermissionRequestCallback -> m SignalHandlerId
afterWebViewPermissionRequest obj :: a
obj cb :: WebViewPermissionRequestCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewPermissionRequestCallback
cb' = WebViewPermissionRequestCallback
-> C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback WebViewPermissionRequestCallback
cb
FunPtr C_WebViewPermissionRequestCallback
cb'' <- C_WebViewPermissionRequestCallback
-> IO (FunPtr C_WebViewPermissionRequestCallback)
mk_WebViewPermissionRequestCallback C_WebViewPermissionRequestCallback
cb'
a
-> Text
-> FunPtr C_WebViewPermissionRequestCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "permission-request" FunPtr C_WebViewPermissionRequestCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewPermissionRequestSignalInfo
instance SignalInfo WebViewPermissionRequestSignalInfo where
type HaskellCallbackType WebViewPermissionRequestSignalInfo = WebViewPermissionRequestCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewPermissionRequestCallback cb
cb'' <- mk_WebViewPermissionRequestCallback cb'
connectSignalFunPtr obj "permission-request" cb'' connectMode detail
#endif
type WebViewPrintCallback =
WebKit2.PrintOperation.PrintOperation
-> IO Bool
noWebViewPrintCallback :: Maybe WebViewPrintCallback
noWebViewPrintCallback :: Maybe WebViewPrintCallback
noWebViewPrintCallback = Maybe WebViewPrintCallback
forall a. Maybe a
Nothing
type C_WebViewPrintCallback =
Ptr () ->
Ptr WebKit2.PrintOperation.PrintOperation ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewPrintCallback :: C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)
genClosure_WebViewPrint :: MonadIO m => WebViewPrintCallback -> m (GClosure C_WebViewPrintCallback)
genClosure_WebViewPrint :: WebViewPrintCallback -> m (GClosure C_WebViewPrintCallback)
genClosure_WebViewPrint cb :: WebViewPrintCallback
cb = IO (GClosure C_WebViewPrintCallback)
-> m (GClosure C_WebViewPrintCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewPrintCallback)
-> m (GClosure C_WebViewPrintCallback))
-> IO (GClosure C_WebViewPrintCallback)
-> m (GClosure C_WebViewPrintCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewPrintCallback
cb' = WebViewPrintCallback -> C_WebViewPrintCallback
wrap_WebViewPrintCallback WebViewPrintCallback
cb
C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)
mk_WebViewPrintCallback C_WebViewPrintCallback
cb' IO (FunPtr C_WebViewPrintCallback)
-> (FunPtr C_WebViewPrintCallback
-> IO (GClosure C_WebViewPrintCallback))
-> IO (GClosure C_WebViewPrintCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewPrintCallback
-> IO (GClosure C_WebViewPrintCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewPrintCallback ::
WebViewPrintCallback ->
C_WebViewPrintCallback
wrap_WebViewPrintCallback :: WebViewPrintCallback -> C_WebViewPrintCallback
wrap_WebViewPrintCallback _cb :: WebViewPrintCallback
_cb _ printOperation :: Ptr PrintOperation
printOperation _ = do
PrintOperation
printOperation' <- ((ManagedPtr PrintOperation -> PrintOperation)
-> Ptr PrintOperation -> IO PrintOperation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintOperation -> PrintOperation
WebKit2.PrintOperation.PrintOperation) Ptr PrintOperation
printOperation
Bool
result <- WebViewPrintCallback
_cb PrintOperation
printOperation'
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'
onWebViewPrint :: (IsWebView a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId
onWebViewPrint :: a -> WebViewPrintCallback -> m SignalHandlerId
onWebViewPrint obj :: a
obj cb :: WebViewPrintCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewPrintCallback
cb' = WebViewPrintCallback -> C_WebViewPrintCallback
wrap_WebViewPrintCallback WebViewPrintCallback
cb
FunPtr C_WebViewPrintCallback
cb'' <- C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)
mk_WebViewPrintCallback C_WebViewPrintCallback
cb'
a
-> Text
-> FunPtr C_WebViewPrintCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "print" FunPtr C_WebViewPrintCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewPrint :: (IsWebView a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId
afterWebViewPrint :: a -> WebViewPrintCallback -> m SignalHandlerId
afterWebViewPrint obj :: a
obj cb :: WebViewPrintCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewPrintCallback
cb' = WebViewPrintCallback -> C_WebViewPrintCallback
wrap_WebViewPrintCallback WebViewPrintCallback
cb
FunPtr C_WebViewPrintCallback
cb'' <- C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)
mk_WebViewPrintCallback C_WebViewPrintCallback
cb'
a
-> Text
-> FunPtr C_WebViewPrintCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "print" FunPtr C_WebViewPrintCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewPrintSignalInfo
instance SignalInfo WebViewPrintSignalInfo where
type HaskellCallbackType WebViewPrintSignalInfo = WebViewPrintCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewPrintCallback cb
cb'' <- mk_WebViewPrintCallback cb'
connectSignalFunPtr obj "print" cb'' connectMode detail
#endif
type WebViewReadyToShowCallback =
IO ()
noWebViewReadyToShowCallback :: Maybe WebViewReadyToShowCallback
noWebViewReadyToShowCallback :: Maybe (IO ())
noWebViewReadyToShowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WebViewReadyToShowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewReadyToShowCallback :: C_WebViewReadyToShowCallback -> IO (FunPtr C_WebViewReadyToShowCallback)
genClosure_WebViewReadyToShow :: MonadIO m => WebViewReadyToShowCallback -> m (GClosure C_WebViewReadyToShowCallback)
genClosure_WebViewReadyToShow :: IO () -> m (GClosure C_WebViewCloseCallback)
genClosure_WebViewReadyToShow cb :: IO ()
cb = IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewReadyToShowCallback IO ()
cb
C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewReadyToShowCallback C_WebViewCloseCallback
cb' IO (FunPtr C_WebViewCloseCallback)
-> (FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewReadyToShowCallback ::
WebViewReadyToShowCallback ->
C_WebViewReadyToShowCallback
wrap_WebViewReadyToShowCallback :: IO () -> C_WebViewCloseCallback
wrap_WebViewReadyToShowCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWebViewReadyToShow :: (IsWebView a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId
onWebViewReadyToShow :: a -> IO () -> m SignalHandlerId
onWebViewReadyToShow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewReadyToShowCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewReadyToShowCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "ready-to-show" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewReadyToShow :: (IsWebView a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId
afterWebViewReadyToShow :: a -> IO () -> m SignalHandlerId
afterWebViewReadyToShow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewReadyToShowCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewReadyToShowCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "ready-to-show" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewReadyToShowSignalInfo
instance SignalInfo WebViewReadyToShowSignalInfo where
type HaskellCallbackType WebViewReadyToShowSignalInfo = WebViewReadyToShowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewReadyToShowCallback cb
cb'' <- mk_WebViewReadyToShowCallback cb'
connectSignalFunPtr obj "ready-to-show" cb'' connectMode detail
#endif
type WebViewResourceLoadStartedCallback =
WebKit2.WebResource.WebResource
-> WebKit2.URIRequest.URIRequest
-> IO ()
noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback
noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback
noWebViewResourceLoadStartedCallback = Maybe WebViewResourceLoadStartedCallback
forall a. Maybe a
Nothing
type C_WebViewResourceLoadStartedCallback =
Ptr () ->
Ptr WebKit2.WebResource.WebResource ->
Ptr WebKit2.URIRequest.URIRequest ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewResourceLoadStartedCallback :: C_WebViewResourceLoadStartedCallback -> IO (FunPtr C_WebViewResourceLoadStartedCallback)
genClosure_WebViewResourceLoadStarted :: MonadIO m => WebViewResourceLoadStartedCallback -> m (GClosure C_WebViewResourceLoadStartedCallback)
genClosure_WebViewResourceLoadStarted :: WebViewResourceLoadStartedCallback
-> m (GClosure C_WebViewResourceLoadStartedCallback)
genClosure_WebViewResourceLoadStarted cb :: WebViewResourceLoadStartedCallback
cb = IO (GClosure C_WebViewResourceLoadStartedCallback)
-> m (GClosure C_WebViewResourceLoadStartedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewResourceLoadStartedCallback)
-> m (GClosure C_WebViewResourceLoadStartedCallback))
-> IO (GClosure C_WebViewResourceLoadStartedCallback)
-> m (GClosure C_WebViewResourceLoadStartedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewResourceLoadStartedCallback
cb' = WebViewResourceLoadStartedCallback
-> C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback WebViewResourceLoadStartedCallback
cb
C_WebViewResourceLoadStartedCallback
-> IO (FunPtr C_WebViewResourceLoadStartedCallback)
mk_WebViewResourceLoadStartedCallback C_WebViewResourceLoadStartedCallback
cb' IO (FunPtr C_WebViewResourceLoadStartedCallback)
-> (FunPtr C_WebViewResourceLoadStartedCallback
-> IO (GClosure C_WebViewResourceLoadStartedCallback))
-> IO (GClosure C_WebViewResourceLoadStartedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewResourceLoadStartedCallback
-> IO (GClosure C_WebViewResourceLoadStartedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewResourceLoadStartedCallback ::
WebViewResourceLoadStartedCallback ->
C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback :: WebViewResourceLoadStartedCallback
-> C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback _cb :: WebViewResourceLoadStartedCallback
_cb _ resource :: Ptr WebResource
resource request :: Ptr URIRequest
request _ = do
WebResource
resource' <- ((ManagedPtr WebResource -> WebResource)
-> Ptr WebResource -> IO WebResource
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebResource -> WebResource
WebKit2.WebResource.WebResource) Ptr WebResource
resource
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
WebKit2.URIRequest.URIRequest) Ptr URIRequest
request
WebViewResourceLoadStartedCallback
_cb WebResource
resource' URIRequest
request'
onWebViewResourceLoadStarted :: (IsWebView a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
onWebViewResourceLoadStarted :: a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
onWebViewResourceLoadStarted obj :: a
obj cb :: WebViewResourceLoadStartedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewResourceLoadStartedCallback
cb' = WebViewResourceLoadStartedCallback
-> C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback WebViewResourceLoadStartedCallback
cb
FunPtr C_WebViewResourceLoadStartedCallback
cb'' <- C_WebViewResourceLoadStartedCallback
-> IO (FunPtr C_WebViewResourceLoadStartedCallback)
mk_WebViewResourceLoadStartedCallback C_WebViewResourceLoadStartedCallback
cb'
a
-> Text
-> FunPtr C_WebViewResourceLoadStartedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "resource-load-started" FunPtr C_WebViewResourceLoadStartedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewResourceLoadStarted :: (IsWebView a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
afterWebViewResourceLoadStarted :: a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
afterWebViewResourceLoadStarted obj :: a
obj cb :: WebViewResourceLoadStartedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewResourceLoadStartedCallback
cb' = WebViewResourceLoadStartedCallback
-> C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback WebViewResourceLoadStartedCallback
cb
FunPtr C_WebViewResourceLoadStartedCallback
cb'' <- C_WebViewResourceLoadStartedCallback
-> IO (FunPtr C_WebViewResourceLoadStartedCallback)
mk_WebViewResourceLoadStartedCallback C_WebViewResourceLoadStartedCallback
cb'
a
-> Text
-> FunPtr C_WebViewResourceLoadStartedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "resource-load-started" FunPtr C_WebViewResourceLoadStartedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewResourceLoadStartedSignalInfo
instance SignalInfo WebViewResourceLoadStartedSignalInfo where
type HaskellCallbackType WebViewResourceLoadStartedSignalInfo = WebViewResourceLoadStartedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewResourceLoadStartedCallback cb
cb'' <- mk_WebViewResourceLoadStartedCallback cb'
connectSignalFunPtr obj "resource-load-started" cb'' connectMode detail
#endif
type WebViewRunAsModalCallback =
IO ()
noWebViewRunAsModalCallback :: Maybe WebViewRunAsModalCallback
noWebViewRunAsModalCallback :: Maybe (IO ())
noWebViewRunAsModalCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WebViewRunAsModalCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewRunAsModalCallback :: C_WebViewRunAsModalCallback -> IO (FunPtr C_WebViewRunAsModalCallback)
genClosure_WebViewRunAsModal :: MonadIO m => WebViewRunAsModalCallback -> m (GClosure C_WebViewRunAsModalCallback)
genClosure_WebViewRunAsModal :: IO () -> m (GClosure C_WebViewCloseCallback)
genClosure_WebViewRunAsModal cb :: IO ()
cb = IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
-> m (GClosure C_WebViewCloseCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewRunAsModalCallback IO ()
cb
C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewRunAsModalCallback C_WebViewCloseCallback
cb' IO (FunPtr C_WebViewCloseCallback)
-> (FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback))
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewCloseCallback
-> IO (GClosure C_WebViewCloseCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewRunAsModalCallback ::
WebViewRunAsModalCallback ->
C_WebViewRunAsModalCallback
wrap_WebViewRunAsModalCallback :: IO () -> C_WebViewCloseCallback
wrap_WebViewRunAsModalCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWebViewRunAsModal :: (IsWebView a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId
onWebViewRunAsModal :: a -> IO () -> m SignalHandlerId
onWebViewRunAsModal obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewRunAsModalCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewRunAsModalCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "run-as-modal" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewRunAsModal :: (IsWebView a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId
afterWebViewRunAsModal :: a -> IO () -> m SignalHandlerId
afterWebViewRunAsModal obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewCloseCallback
cb' = IO () -> C_WebViewCloseCallback
wrap_WebViewRunAsModalCallback IO ()
cb
FunPtr C_WebViewCloseCallback
cb'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewRunAsModalCallback C_WebViewCloseCallback
cb'
a
-> Text
-> FunPtr C_WebViewCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "run-as-modal" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewRunAsModalSignalInfo
instance SignalInfo WebViewRunAsModalSignalInfo where
type HaskellCallbackType WebViewRunAsModalSignalInfo = WebViewRunAsModalCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewRunAsModalCallback cb
cb'' <- mk_WebViewRunAsModalCallback cb'
connectSignalFunPtr obj "run-as-modal" cb'' connectMode detail
#endif
type WebViewRunColorChooserCallback =
WebKit2.ColorChooserRequest.ColorChooserRequest
-> IO Bool
noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback
noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback
noWebViewRunColorChooserCallback = Maybe WebViewRunColorChooserCallback
forall a. Maybe a
Nothing
type C_WebViewRunColorChooserCallback =
Ptr () ->
Ptr WebKit2.ColorChooserRequest.ColorChooserRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewRunColorChooserCallback :: C_WebViewRunColorChooserCallback -> IO (FunPtr C_WebViewRunColorChooserCallback)
genClosure_WebViewRunColorChooser :: MonadIO m => WebViewRunColorChooserCallback -> m (GClosure C_WebViewRunColorChooserCallback)
genClosure_WebViewRunColorChooser :: WebViewRunColorChooserCallback
-> m (GClosure C_WebViewRunColorChooserCallback)
genClosure_WebViewRunColorChooser cb :: WebViewRunColorChooserCallback
cb = IO (GClosure C_WebViewRunColorChooserCallback)
-> m (GClosure C_WebViewRunColorChooserCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewRunColorChooserCallback)
-> m (GClosure C_WebViewRunColorChooserCallback))
-> IO (GClosure C_WebViewRunColorChooserCallback)
-> m (GClosure C_WebViewRunColorChooserCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewRunColorChooserCallback
cb' = WebViewRunColorChooserCallback -> C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback WebViewRunColorChooserCallback
cb
C_WebViewRunColorChooserCallback
-> IO (FunPtr C_WebViewRunColorChooserCallback)
mk_WebViewRunColorChooserCallback C_WebViewRunColorChooserCallback
cb' IO (FunPtr C_WebViewRunColorChooserCallback)
-> (FunPtr C_WebViewRunColorChooserCallback
-> IO (GClosure C_WebViewRunColorChooserCallback))
-> IO (GClosure C_WebViewRunColorChooserCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewRunColorChooserCallback
-> IO (GClosure C_WebViewRunColorChooserCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewRunColorChooserCallback ::
WebViewRunColorChooserCallback ->
C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback :: WebViewRunColorChooserCallback -> C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback _cb :: WebViewRunColorChooserCallback
_cb _ request :: Ptr ColorChooserRequest
request _ = do
ColorChooserRequest
request' <- ((ManagedPtr ColorChooserRequest -> ColorChooserRequest)
-> Ptr ColorChooserRequest -> IO ColorChooserRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColorChooserRequest -> ColorChooserRequest
WebKit2.ColorChooserRequest.ColorChooserRequest) Ptr ColorChooserRequest
request
Bool
result <- WebViewRunColorChooserCallback
_cb ColorChooserRequest
request'
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'
onWebViewRunColorChooser :: (IsWebView a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId
onWebViewRunColorChooser :: a -> WebViewRunColorChooserCallback -> m SignalHandlerId
onWebViewRunColorChooser obj :: a
obj cb :: WebViewRunColorChooserCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewRunColorChooserCallback
cb' = WebViewRunColorChooserCallback -> C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback WebViewRunColorChooserCallback
cb
FunPtr C_WebViewRunColorChooserCallback
cb'' <- C_WebViewRunColorChooserCallback
-> IO (FunPtr C_WebViewRunColorChooserCallback)
mk_WebViewRunColorChooserCallback C_WebViewRunColorChooserCallback
cb'
a
-> Text
-> FunPtr C_WebViewRunColorChooserCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "run-color-chooser" FunPtr C_WebViewRunColorChooserCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewRunColorChooser :: (IsWebView a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId
afterWebViewRunColorChooser :: a -> WebViewRunColorChooserCallback -> m SignalHandlerId
afterWebViewRunColorChooser obj :: a
obj cb :: WebViewRunColorChooserCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewRunColorChooserCallback
cb' = WebViewRunColorChooserCallback -> C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback WebViewRunColorChooserCallback
cb
FunPtr C_WebViewRunColorChooserCallback
cb'' <- C_WebViewRunColorChooserCallback
-> IO (FunPtr C_WebViewRunColorChooserCallback)
mk_WebViewRunColorChooserCallback C_WebViewRunColorChooserCallback
cb'
a
-> Text
-> FunPtr C_WebViewRunColorChooserCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "run-color-chooser" FunPtr C_WebViewRunColorChooserCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewRunColorChooserSignalInfo
instance SignalInfo WebViewRunColorChooserSignalInfo where
type HaskellCallbackType WebViewRunColorChooserSignalInfo = WebViewRunColorChooserCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewRunColorChooserCallback cb
cb'' <- mk_WebViewRunColorChooserCallback cb'
connectSignalFunPtr obj "run-color-chooser" cb'' connectMode detail
#endif
type WebViewRunFileChooserCallback =
WebKit2.FileChooserRequest.FileChooserRequest
-> IO Bool
noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback
noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback
noWebViewRunFileChooserCallback = Maybe WebViewRunFileChooserCallback
forall a. Maybe a
Nothing
type C_WebViewRunFileChooserCallback =
Ptr () ->
Ptr WebKit2.FileChooserRequest.FileChooserRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewRunFileChooserCallback :: C_WebViewRunFileChooserCallback -> IO (FunPtr C_WebViewRunFileChooserCallback)
genClosure_WebViewRunFileChooser :: MonadIO m => WebViewRunFileChooserCallback -> m (GClosure C_WebViewRunFileChooserCallback)
genClosure_WebViewRunFileChooser :: WebViewRunFileChooserCallback
-> m (GClosure C_WebViewRunFileChooserCallback)
genClosure_WebViewRunFileChooser cb :: WebViewRunFileChooserCallback
cb = IO (GClosure C_WebViewRunFileChooserCallback)
-> m (GClosure C_WebViewRunFileChooserCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewRunFileChooserCallback)
-> m (GClosure C_WebViewRunFileChooserCallback))
-> IO (GClosure C_WebViewRunFileChooserCallback)
-> m (GClosure C_WebViewRunFileChooserCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewRunFileChooserCallback
cb' = WebViewRunFileChooserCallback -> C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback WebViewRunFileChooserCallback
cb
C_WebViewRunFileChooserCallback
-> IO (FunPtr C_WebViewRunFileChooserCallback)
mk_WebViewRunFileChooserCallback C_WebViewRunFileChooserCallback
cb' IO (FunPtr C_WebViewRunFileChooserCallback)
-> (FunPtr C_WebViewRunFileChooserCallback
-> IO (GClosure C_WebViewRunFileChooserCallback))
-> IO (GClosure C_WebViewRunFileChooserCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewRunFileChooserCallback
-> IO (GClosure C_WebViewRunFileChooserCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewRunFileChooserCallback ::
WebViewRunFileChooserCallback ->
C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback :: WebViewRunFileChooserCallback -> C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback _cb :: WebViewRunFileChooserCallback
_cb _ request :: Ptr FileChooserRequest
request _ = do
FileChooserRequest
request' <- ((ManagedPtr FileChooserRequest -> FileChooserRequest)
-> Ptr FileChooserRequest -> IO FileChooserRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FileChooserRequest -> FileChooserRequest
WebKit2.FileChooserRequest.FileChooserRequest) Ptr FileChooserRequest
request
Bool
result <- WebViewRunFileChooserCallback
_cb FileChooserRequest
request'
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'
onWebViewRunFileChooser :: (IsWebView a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId
onWebViewRunFileChooser :: a -> WebViewRunFileChooserCallback -> m SignalHandlerId
onWebViewRunFileChooser obj :: a
obj cb :: WebViewRunFileChooserCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewRunFileChooserCallback
cb' = WebViewRunFileChooserCallback -> C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback WebViewRunFileChooserCallback
cb
FunPtr C_WebViewRunFileChooserCallback
cb'' <- C_WebViewRunFileChooserCallback
-> IO (FunPtr C_WebViewRunFileChooserCallback)
mk_WebViewRunFileChooserCallback C_WebViewRunFileChooserCallback
cb'
a
-> Text
-> FunPtr C_WebViewRunFileChooserCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "run-file-chooser" FunPtr C_WebViewRunFileChooserCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewRunFileChooser :: (IsWebView a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId
afterWebViewRunFileChooser :: a -> WebViewRunFileChooserCallback -> m SignalHandlerId
afterWebViewRunFileChooser obj :: a
obj cb :: WebViewRunFileChooserCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewRunFileChooserCallback
cb' = WebViewRunFileChooserCallback -> C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback WebViewRunFileChooserCallback
cb
FunPtr C_WebViewRunFileChooserCallback
cb'' <- C_WebViewRunFileChooserCallback
-> IO (FunPtr C_WebViewRunFileChooserCallback)
mk_WebViewRunFileChooserCallback C_WebViewRunFileChooserCallback
cb'
a
-> Text
-> FunPtr C_WebViewRunFileChooserCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "run-file-chooser" FunPtr C_WebViewRunFileChooserCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewRunFileChooserSignalInfo
instance SignalInfo WebViewRunFileChooserSignalInfo where
type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewRunFileChooserCallback cb
cb'' <- mk_WebViewRunFileChooserCallback cb'
connectSignalFunPtr obj "run-file-chooser" cb'' connectMode detail
#endif
type WebViewScriptDialogCallback =
WebKit2.ScriptDialog.ScriptDialog
-> IO Bool
noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback
noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback
noWebViewScriptDialogCallback = Maybe WebViewScriptDialogCallback
forall a. Maybe a
Nothing
type C_WebViewScriptDialogCallback =
Ptr () ->
Ptr WebKit2.ScriptDialog.ScriptDialog ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewScriptDialogCallback :: C_WebViewScriptDialogCallback -> IO (FunPtr C_WebViewScriptDialogCallback)
genClosure_WebViewScriptDialog :: MonadIO m => WebViewScriptDialogCallback -> m (GClosure C_WebViewScriptDialogCallback)
genClosure_WebViewScriptDialog :: WebViewScriptDialogCallback
-> m (GClosure C_WebViewScriptDialogCallback)
genClosure_WebViewScriptDialog cb :: WebViewScriptDialogCallback
cb = IO (GClosure C_WebViewScriptDialogCallback)
-> m (GClosure C_WebViewScriptDialogCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewScriptDialogCallback)
-> m (GClosure C_WebViewScriptDialogCallback))
-> IO (GClosure C_WebViewScriptDialogCallback)
-> m (GClosure C_WebViewScriptDialogCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewScriptDialogCallback
cb' = WebViewScriptDialogCallback -> C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback WebViewScriptDialogCallback
cb
C_WebViewScriptDialogCallback
-> IO (FunPtr C_WebViewScriptDialogCallback)
mk_WebViewScriptDialogCallback C_WebViewScriptDialogCallback
cb' IO (FunPtr C_WebViewScriptDialogCallback)
-> (FunPtr C_WebViewScriptDialogCallback
-> IO (GClosure C_WebViewScriptDialogCallback))
-> IO (GClosure C_WebViewScriptDialogCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewScriptDialogCallback
-> IO (GClosure C_WebViewScriptDialogCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewScriptDialogCallback ::
WebViewScriptDialogCallback ->
C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback :: WebViewScriptDialogCallback -> C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback _cb :: WebViewScriptDialogCallback
_cb _ dialog :: Ptr ScriptDialog
dialog _ = do
(ManagedPtr ScriptDialog -> ScriptDialog)
-> Ptr ScriptDialog -> (ScriptDialog -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr ScriptDialog -> ScriptDialog
WebKit2.ScriptDialog.ScriptDialog Ptr ScriptDialog
dialog ((ScriptDialog -> IO CInt) -> IO CInt)
-> (ScriptDialog -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \dialog' :: ScriptDialog
dialog' -> do
Bool
result <- WebViewScriptDialogCallback
_cb ScriptDialog
dialog'
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'
onWebViewScriptDialog :: (IsWebView a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId
onWebViewScriptDialog :: a -> WebViewScriptDialogCallback -> m SignalHandlerId
onWebViewScriptDialog obj :: a
obj cb :: WebViewScriptDialogCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewScriptDialogCallback
cb' = WebViewScriptDialogCallback -> C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback WebViewScriptDialogCallback
cb
FunPtr C_WebViewScriptDialogCallback
cb'' <- C_WebViewScriptDialogCallback
-> IO (FunPtr C_WebViewScriptDialogCallback)
mk_WebViewScriptDialogCallback C_WebViewScriptDialogCallback
cb'
a
-> Text
-> FunPtr C_WebViewScriptDialogCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "script-dialog" FunPtr C_WebViewScriptDialogCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewScriptDialog :: (IsWebView a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId
afterWebViewScriptDialog :: a -> WebViewScriptDialogCallback -> m SignalHandlerId
afterWebViewScriptDialog obj :: a
obj cb :: WebViewScriptDialogCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewScriptDialogCallback
cb' = WebViewScriptDialogCallback -> C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback WebViewScriptDialogCallback
cb
FunPtr C_WebViewScriptDialogCallback
cb'' <- C_WebViewScriptDialogCallback
-> IO (FunPtr C_WebViewScriptDialogCallback)
mk_WebViewScriptDialogCallback C_WebViewScriptDialogCallback
cb'
a
-> Text
-> FunPtr C_WebViewScriptDialogCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "script-dialog" FunPtr C_WebViewScriptDialogCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewScriptDialogSignalInfo
instance SignalInfo WebViewScriptDialogSignalInfo where
type HaskellCallbackType WebViewScriptDialogSignalInfo = WebViewScriptDialogCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewScriptDialogCallback cb
cb'' <- mk_WebViewScriptDialogCallback cb'
connectSignalFunPtr obj "script-dialog" cb'' connectMode detail
#endif
type WebViewShowNotificationCallback =
WebKit2.Notification.Notification
-> IO Bool
noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback
noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback
noWebViewShowNotificationCallback = Maybe WebViewShowNotificationCallback
forall a. Maybe a
Nothing
type C_WebViewShowNotificationCallback =
Ptr () ->
Ptr WebKit2.Notification.Notification ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewShowNotificationCallback :: C_WebViewShowNotificationCallback -> IO (FunPtr C_WebViewShowNotificationCallback)
genClosure_WebViewShowNotification :: MonadIO m => WebViewShowNotificationCallback -> m (GClosure C_WebViewShowNotificationCallback)
genClosure_WebViewShowNotification :: WebViewShowNotificationCallback
-> m (GClosure C_WebViewShowNotificationCallback)
genClosure_WebViewShowNotification cb :: WebViewShowNotificationCallback
cb = IO (GClosure C_WebViewShowNotificationCallback)
-> m (GClosure C_WebViewShowNotificationCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewShowNotificationCallback)
-> m (GClosure C_WebViewShowNotificationCallback))
-> IO (GClosure C_WebViewShowNotificationCallback)
-> m (GClosure C_WebViewShowNotificationCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewShowNotificationCallback
cb' = WebViewShowNotificationCallback
-> C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback WebViewShowNotificationCallback
cb
C_WebViewShowNotificationCallback
-> IO (FunPtr C_WebViewShowNotificationCallback)
mk_WebViewShowNotificationCallback C_WebViewShowNotificationCallback
cb' IO (FunPtr C_WebViewShowNotificationCallback)
-> (FunPtr C_WebViewShowNotificationCallback
-> IO (GClosure C_WebViewShowNotificationCallback))
-> IO (GClosure C_WebViewShowNotificationCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewShowNotificationCallback
-> IO (GClosure C_WebViewShowNotificationCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewShowNotificationCallback ::
WebViewShowNotificationCallback ->
C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback :: WebViewShowNotificationCallback
-> C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback _cb :: WebViewShowNotificationCallback
_cb _ notification :: Ptr Notification
notification _ = do
Notification
notification' <- ((ManagedPtr Notification -> Notification)
-> Ptr Notification -> IO Notification
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Notification -> Notification
WebKit2.Notification.Notification) Ptr Notification
notification
Bool
result <- WebViewShowNotificationCallback
_cb Notification
notification'
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'
onWebViewShowNotification :: (IsWebView a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId
onWebViewShowNotification :: a -> WebViewShowNotificationCallback -> m SignalHandlerId
onWebViewShowNotification obj :: a
obj cb :: WebViewShowNotificationCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewShowNotificationCallback
cb' = WebViewShowNotificationCallback
-> C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback WebViewShowNotificationCallback
cb
FunPtr C_WebViewShowNotificationCallback
cb'' <- C_WebViewShowNotificationCallback
-> IO (FunPtr C_WebViewShowNotificationCallback)
mk_WebViewShowNotificationCallback C_WebViewShowNotificationCallback
cb'
a
-> Text
-> FunPtr C_WebViewShowNotificationCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show-notification" FunPtr C_WebViewShowNotificationCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewShowNotification :: (IsWebView a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId
afterWebViewShowNotification :: a -> WebViewShowNotificationCallback -> m SignalHandlerId
afterWebViewShowNotification obj :: a
obj cb :: WebViewShowNotificationCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewShowNotificationCallback
cb' = WebViewShowNotificationCallback
-> C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback WebViewShowNotificationCallback
cb
FunPtr C_WebViewShowNotificationCallback
cb'' <- C_WebViewShowNotificationCallback
-> IO (FunPtr C_WebViewShowNotificationCallback)
mk_WebViewShowNotificationCallback C_WebViewShowNotificationCallback
cb'
a
-> Text
-> FunPtr C_WebViewShowNotificationCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show-notification" FunPtr C_WebViewShowNotificationCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewShowNotificationSignalInfo
instance SignalInfo WebViewShowNotificationSignalInfo where
type HaskellCallbackType WebViewShowNotificationSignalInfo = WebViewShowNotificationCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewShowNotificationCallback cb
cb'' <- mk_WebViewShowNotificationCallback cb'
connectSignalFunPtr obj "show-notification" cb'' connectMode detail
#endif
type =
WebKit2.OptionMenu.OptionMenu
-> Gdk.Event.Event
-> Gdk.Rectangle.Rectangle
-> IO Bool
noWebViewShowOptionMenuCallback :: Maybe WebViewShowOptionMenuCallback
= Maybe WebViewShowOptionMenuCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr WebKit2.OptionMenu.OptionMenu ->
Ptr Gdk.Event.Event ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_WebViewShowOptionMenuCallback -> IO (FunPtr C_WebViewShowOptionMenuCallback)
genClosure_WebViewShowOptionMenu :: MonadIO m => WebViewShowOptionMenuCallback -> m (GClosure C_WebViewShowOptionMenuCallback)
cb :: WebViewShowOptionMenuCallback
cb = IO (GClosure C_WebViewShowOptionMenuCallback)
-> m (GClosure C_WebViewShowOptionMenuCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewShowOptionMenuCallback)
-> m (GClosure C_WebViewShowOptionMenuCallback))
-> IO (GClosure C_WebViewShowOptionMenuCallback)
-> m (GClosure C_WebViewShowOptionMenuCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewShowOptionMenuCallback
cb' = WebViewShowOptionMenuCallback -> C_WebViewShowOptionMenuCallback
wrap_WebViewShowOptionMenuCallback WebViewShowOptionMenuCallback
cb
C_WebViewShowOptionMenuCallback
-> IO (FunPtr C_WebViewShowOptionMenuCallback)
mk_WebViewShowOptionMenuCallback C_WebViewShowOptionMenuCallback
cb' IO (FunPtr C_WebViewShowOptionMenuCallback)
-> (FunPtr C_WebViewShowOptionMenuCallback
-> IO (GClosure C_WebViewShowOptionMenuCallback))
-> IO (GClosure C_WebViewShowOptionMenuCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewShowOptionMenuCallback
-> IO (GClosure C_WebViewShowOptionMenuCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewShowOptionMenuCallback ::
WebViewShowOptionMenuCallback ->
C_WebViewShowOptionMenuCallback
_cb :: WebViewShowOptionMenuCallback
_cb _ menu :: Ptr OptionMenu
menu event :: Ptr Event
event rectangle :: Ptr Rectangle
rectangle _ = do
OptionMenu
menu' <- ((ManagedPtr OptionMenu -> OptionMenu)
-> Ptr OptionMenu -> IO OptionMenu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr OptionMenu -> OptionMenu
WebKit2.OptionMenu.OptionMenu) Ptr OptionMenu
menu
(ManagedPtr Event -> Event)
-> Ptr Event -> (Event -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Event -> Event
Gdk.Event.Event Ptr Event
event ((Event -> IO CInt) -> IO CInt) -> (Event -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \event' :: Event
event' -> do
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle Ptr Rectangle
rectangle ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \rectangle' :: Rectangle
rectangle' -> do
Bool
result <- WebViewShowOptionMenuCallback
_cb OptionMenu
menu' Event
event' Rectangle
rectangle'
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'
onWebViewShowOptionMenu :: (IsWebView a, MonadIO m) => a -> WebViewShowOptionMenuCallback -> m SignalHandlerId
obj :: a
obj cb :: WebViewShowOptionMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewShowOptionMenuCallback
cb' = WebViewShowOptionMenuCallback -> C_WebViewShowOptionMenuCallback
wrap_WebViewShowOptionMenuCallback WebViewShowOptionMenuCallback
cb
FunPtr C_WebViewShowOptionMenuCallback
cb'' <- C_WebViewShowOptionMenuCallback
-> IO (FunPtr C_WebViewShowOptionMenuCallback)
mk_WebViewShowOptionMenuCallback C_WebViewShowOptionMenuCallback
cb'
a
-> Text
-> FunPtr C_WebViewShowOptionMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show-option-menu" FunPtr C_WebViewShowOptionMenuCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewShowOptionMenu :: (IsWebView a, MonadIO m) => a -> WebViewShowOptionMenuCallback -> m SignalHandlerId
obj :: a
obj cb :: WebViewShowOptionMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewShowOptionMenuCallback
cb' = WebViewShowOptionMenuCallback -> C_WebViewShowOptionMenuCallback
wrap_WebViewShowOptionMenuCallback WebViewShowOptionMenuCallback
cb
FunPtr C_WebViewShowOptionMenuCallback
cb'' <- C_WebViewShowOptionMenuCallback
-> IO (FunPtr C_WebViewShowOptionMenuCallback)
mk_WebViewShowOptionMenuCallback C_WebViewShowOptionMenuCallback
cb'
a
-> Text
-> FunPtr C_WebViewShowOptionMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show-option-menu" FunPtr C_WebViewShowOptionMenuCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewShowOptionMenuSignalInfo
instance SignalInfo WebViewShowOptionMenuSignalInfo where
type HaskellCallbackType WebViewShowOptionMenuSignalInfo = WebViewShowOptionMenuCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewShowOptionMenuCallback cb
cb'' <- mk_WebViewShowOptionMenuCallback cb'
connectSignalFunPtr obj "show-option-menu" cb'' connectMode detail
#endif
type WebViewSubmitFormCallback =
WebKit2.FormSubmissionRequest.FormSubmissionRequest
-> IO ()
noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback
noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback
noWebViewSubmitFormCallback = Maybe WebViewSubmitFormCallback
forall a. Maybe a
Nothing
type C_WebViewSubmitFormCallback =
Ptr () ->
Ptr WebKit2.FormSubmissionRequest.FormSubmissionRequest ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewSubmitFormCallback :: C_WebViewSubmitFormCallback -> IO (FunPtr C_WebViewSubmitFormCallback)
genClosure_WebViewSubmitForm :: MonadIO m => WebViewSubmitFormCallback -> m (GClosure C_WebViewSubmitFormCallback)
genClosure_WebViewSubmitForm :: WebViewSubmitFormCallback
-> m (GClosure C_WebViewSubmitFormCallback)
genClosure_WebViewSubmitForm cb :: WebViewSubmitFormCallback
cb = IO (GClosure C_WebViewSubmitFormCallback)
-> m (GClosure C_WebViewSubmitFormCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewSubmitFormCallback)
-> m (GClosure C_WebViewSubmitFormCallback))
-> IO (GClosure C_WebViewSubmitFormCallback)
-> m (GClosure C_WebViewSubmitFormCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewSubmitFormCallback
cb' = WebViewSubmitFormCallback -> C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback WebViewSubmitFormCallback
cb
C_WebViewSubmitFormCallback
-> IO (FunPtr C_WebViewSubmitFormCallback)
mk_WebViewSubmitFormCallback C_WebViewSubmitFormCallback
cb' IO (FunPtr C_WebViewSubmitFormCallback)
-> (FunPtr C_WebViewSubmitFormCallback
-> IO (GClosure C_WebViewSubmitFormCallback))
-> IO (GClosure C_WebViewSubmitFormCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewSubmitFormCallback
-> IO (GClosure C_WebViewSubmitFormCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewSubmitFormCallback ::
WebViewSubmitFormCallback ->
C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback :: WebViewSubmitFormCallback -> C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback _cb :: WebViewSubmitFormCallback
_cb _ request :: Ptr FormSubmissionRequest
request _ = do
FormSubmissionRequest
request' <- ((ManagedPtr FormSubmissionRequest -> FormSubmissionRequest)
-> Ptr FormSubmissionRequest -> IO FormSubmissionRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FormSubmissionRequest -> FormSubmissionRequest
WebKit2.FormSubmissionRequest.FormSubmissionRequest) Ptr FormSubmissionRequest
request
WebViewSubmitFormCallback
_cb FormSubmissionRequest
request'
onWebViewSubmitForm :: (IsWebView a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId
onWebViewSubmitForm :: a -> WebViewSubmitFormCallback -> m SignalHandlerId
onWebViewSubmitForm obj :: a
obj cb :: WebViewSubmitFormCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewSubmitFormCallback
cb' = WebViewSubmitFormCallback -> C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback WebViewSubmitFormCallback
cb
FunPtr C_WebViewSubmitFormCallback
cb'' <- C_WebViewSubmitFormCallback
-> IO (FunPtr C_WebViewSubmitFormCallback)
mk_WebViewSubmitFormCallback C_WebViewSubmitFormCallback
cb'
a
-> Text
-> FunPtr C_WebViewSubmitFormCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "submit-form" FunPtr C_WebViewSubmitFormCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewSubmitForm :: (IsWebView a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId
afterWebViewSubmitForm :: a -> WebViewSubmitFormCallback -> m SignalHandlerId
afterWebViewSubmitForm obj :: a
obj cb :: WebViewSubmitFormCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewSubmitFormCallback
cb' = WebViewSubmitFormCallback -> C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback WebViewSubmitFormCallback
cb
FunPtr C_WebViewSubmitFormCallback
cb'' <- C_WebViewSubmitFormCallback
-> IO (FunPtr C_WebViewSubmitFormCallback)
mk_WebViewSubmitFormCallback C_WebViewSubmitFormCallback
cb'
a
-> Text
-> FunPtr C_WebViewSubmitFormCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "submit-form" FunPtr C_WebViewSubmitFormCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewSubmitFormSignalInfo
instance SignalInfo WebViewSubmitFormSignalInfo where
type HaskellCallbackType WebViewSubmitFormSignalInfo = WebViewSubmitFormCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewSubmitFormCallback cb
cb'' <- mk_WebViewSubmitFormCallback cb'
connectSignalFunPtr obj "submit-form" cb'' connectMode detail
#endif
{-# DEPRECATED WebViewWebProcessCrashedCallback ["(Since version 2.20)","Use WebKitWebView[webProcessTerminated](#signal:webProcessTerminated) instead."] #-}
type WebViewWebProcessCrashedCallback =
IO Bool
noWebViewWebProcessCrashedCallback :: Maybe WebViewWebProcessCrashedCallback
noWebViewWebProcessCrashedCallback :: Maybe WebViewEnterFullscreenCallback
noWebViewWebProcessCrashedCallback = Maybe WebViewEnterFullscreenCallback
forall a. Maybe a
Nothing
type C_WebViewWebProcessCrashedCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewWebProcessCrashedCallback :: C_WebViewWebProcessCrashedCallback -> IO (FunPtr C_WebViewWebProcessCrashedCallback)
genClosure_WebViewWebProcessCrashed :: MonadIO m => WebViewWebProcessCrashedCallback -> m (GClosure C_WebViewWebProcessCrashedCallback)
genClosure_WebViewWebProcessCrashed :: WebViewEnterFullscreenCallback
-> m (GClosure C_WebViewEnterFullscreenCallback)
genClosure_WebViewWebProcessCrashed cb :: WebViewEnterFullscreenCallback
cb = IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback))
-> IO (GClosure C_WebViewEnterFullscreenCallback)
-> m (GClosure C_WebViewEnterFullscreenCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewWebProcessCrashedCallback WebViewEnterFullscreenCallback
cb
C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewWebProcessCrashedCallback C_WebViewEnterFullscreenCallback
cb' IO (FunPtr C_WebViewEnterFullscreenCallback)
-> (FunPtr C_WebViewEnterFullscreenCallback
-> IO (GClosure C_WebViewEnterFullscreenCallback))
-> IO (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewEnterFullscreenCallback
-> IO (GClosure C_WebViewEnterFullscreenCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewWebProcessCrashedCallback ::
WebViewWebProcessCrashedCallback ->
C_WebViewWebProcessCrashedCallback
wrap_WebViewWebProcessCrashedCallback :: WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewWebProcessCrashedCallback _cb :: WebViewEnterFullscreenCallback
_cb _ _ = do
Bool
result <- WebViewEnterFullscreenCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewWebProcessCrashed :: (IsWebView a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId
onWebViewWebProcessCrashed :: a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewWebProcessCrashed obj :: a
obj cb :: WebViewEnterFullscreenCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewWebProcessCrashedCallback WebViewEnterFullscreenCallback
cb
FunPtr C_WebViewEnterFullscreenCallback
cb'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewWebProcessCrashedCallback C_WebViewEnterFullscreenCallback
cb'
a
-> Text
-> FunPtr C_WebViewEnterFullscreenCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "web-process-crashed" FunPtr C_WebViewEnterFullscreenCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewWebProcessCrashed :: (IsWebView a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId
afterWebViewWebProcessCrashed :: a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewWebProcessCrashed obj :: a
obj cb :: WebViewEnterFullscreenCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewEnterFullscreenCallback
cb' = WebViewEnterFullscreenCallback -> C_WebViewEnterFullscreenCallback
wrap_WebViewWebProcessCrashedCallback WebViewEnterFullscreenCallback
cb
FunPtr C_WebViewEnterFullscreenCallback
cb'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewWebProcessCrashedCallback C_WebViewEnterFullscreenCallback
cb'
a
-> Text
-> FunPtr C_WebViewEnterFullscreenCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "web-process-crashed" FunPtr C_WebViewEnterFullscreenCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewWebProcessCrashedSignalInfo
instance SignalInfo WebViewWebProcessCrashedSignalInfo where
type HaskellCallbackType WebViewWebProcessCrashedSignalInfo = WebViewWebProcessCrashedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewWebProcessCrashedCallback cb
cb'' <- mk_WebViewWebProcessCrashedCallback cb'
connectSignalFunPtr obj "web-process-crashed" cb'' connectMode detail
#endif
type WebViewWebProcessTerminatedCallback =
WebKit2.Enums.WebProcessTerminationReason
-> IO ()
noWebViewWebProcessTerminatedCallback :: Maybe WebViewWebProcessTerminatedCallback
noWebViewWebProcessTerminatedCallback :: Maybe WebViewWebProcessTerminatedCallback
noWebViewWebProcessTerminatedCallback = Maybe WebViewWebProcessTerminatedCallback
forall a. Maybe a
Nothing
type C_WebViewWebProcessTerminatedCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewWebProcessTerminatedCallback :: C_WebViewWebProcessTerminatedCallback -> IO (FunPtr C_WebViewWebProcessTerminatedCallback)
genClosure_WebViewWebProcessTerminated :: MonadIO m => WebViewWebProcessTerminatedCallback -> m (GClosure C_WebViewWebProcessTerminatedCallback)
genClosure_WebViewWebProcessTerminated :: WebViewWebProcessTerminatedCallback
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewWebProcessTerminated cb :: WebViewWebProcessTerminatedCallback
cb = IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback))
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewWebProcessTerminatedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewWebProcessTerminatedCallback WebViewWebProcessTerminatedCallback
cb
C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewWebProcessTerminatedCallback C_WebViewInsecureContentDetectedCallback
cb' IO (FunPtr C_WebViewInsecureContentDetectedCallback)
-> (FunPtr C_WebViewInsecureContentDetectedCallback
-> IO (GClosure C_WebViewInsecureContentDetectedCallback))
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewInsecureContentDetectedCallback
-> IO (GClosure C_WebViewInsecureContentDetectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewWebProcessTerminatedCallback ::
WebViewWebProcessTerminatedCallback ->
C_WebViewWebProcessTerminatedCallback
wrap_WebViewWebProcessTerminatedCallback :: WebViewWebProcessTerminatedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewWebProcessTerminatedCallback _cb :: WebViewWebProcessTerminatedCallback
_cb _ reason :: CUInt
reason _ = do
let reason' :: WebProcessTerminationReason
reason' = (Int -> WebProcessTerminationReason
forall a. Enum a => Int -> a
toEnum (Int -> WebProcessTerminationReason)
-> (CUInt -> Int) -> CUInt -> WebProcessTerminationReason
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
reason
WebViewWebProcessTerminatedCallback
_cb WebProcessTerminationReason
reason'
onWebViewWebProcessTerminated :: (IsWebView a, MonadIO m) => a -> WebViewWebProcessTerminatedCallback -> m SignalHandlerId
onWebViewWebProcessTerminated :: a -> WebViewWebProcessTerminatedCallback -> m SignalHandlerId
onWebViewWebProcessTerminated obj :: a
obj cb :: WebViewWebProcessTerminatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewWebProcessTerminatedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewWebProcessTerminatedCallback WebViewWebProcessTerminatedCallback
cb
FunPtr C_WebViewInsecureContentDetectedCallback
cb'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewWebProcessTerminatedCallback C_WebViewInsecureContentDetectedCallback
cb'
a
-> Text
-> FunPtr C_WebViewInsecureContentDetectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "web-process-terminated" FunPtr C_WebViewInsecureContentDetectedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewWebProcessTerminated :: (IsWebView a, MonadIO m) => a -> WebViewWebProcessTerminatedCallback -> m SignalHandlerId
afterWebViewWebProcessTerminated :: a -> WebViewWebProcessTerminatedCallback -> m SignalHandlerId
afterWebViewWebProcessTerminated obj :: a
obj cb :: WebViewWebProcessTerminatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewInsecureContentDetectedCallback
cb' = WebViewWebProcessTerminatedCallback
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewWebProcessTerminatedCallback WebViewWebProcessTerminatedCallback
cb
FunPtr C_WebViewInsecureContentDetectedCallback
cb'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewWebProcessTerminatedCallback C_WebViewInsecureContentDetectedCallback
cb'
a
-> Text
-> FunPtr C_WebViewInsecureContentDetectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "web-process-terminated" FunPtr C_WebViewInsecureContentDetectedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewWebProcessTerminatedSignalInfo
instance SignalInfo WebViewWebProcessTerminatedSignalInfo where
type HaskellCallbackType WebViewWebProcessTerminatedSignalInfo = WebViewWebProcessTerminatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewWebProcessTerminatedCallback cb
cb'' <- mk_WebViewWebProcessTerminatedCallback cb'
connectSignalFunPtr obj "web-process-terminated" cb'' connectMode detail
#endif
getWebViewEditable :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewEditable :: o -> m Bool
getWebViewEditable obj :: o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WebViewEnterFullscreenCallback
forall a.
GObject a =>
a -> String -> WebViewEnterFullscreenCallback
B.Properties.getObjectPropertyBool o
obj "editable"
setWebViewEditable :: (MonadIO m, IsWebView o) => o -> Bool -> m ()
setWebViewEditable :: o -> Bool -> m ()
setWebViewEditable obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "editable" Bool
val
constructWebViewEditable :: (IsWebView o) => Bool -> IO (GValueConstruct o)
constructWebViewEditable :: Bool -> IO (GValueConstruct o)
constructWebViewEditable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "editable" Bool
val
#if defined(ENABLE_OVERLOADING)
data WebViewEditablePropertyInfo
instance AttrInfo WebViewEditablePropertyInfo where
type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewEditablePropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WebViewEditablePropertyInfo = (~) Bool
type AttrTransferType WebViewEditablePropertyInfo = Bool
type AttrGetType WebViewEditablePropertyInfo = Bool
type AttrLabel WebViewEditablePropertyInfo = "editable"
type AttrOrigin WebViewEditablePropertyInfo = WebView
attrGet = getWebViewEditable
attrSet = setWebViewEditable
attrTransfer _ v = do
return v
attrConstruct = constructWebViewEditable
attrClear = undefined
#endif
getWebViewEstimatedLoadProgress :: (MonadIO m, IsWebView o) => o -> m Double
getWebViewEstimatedLoadProgress :: o -> m Double
getWebViewEstimatedLoadProgress obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "estimated-load-progress"
#if defined(ENABLE_OVERLOADING)
data WebViewEstimatedLoadProgressPropertyInfo
instance AttrInfo WebViewEstimatedLoadProgressPropertyInfo where
type AttrAllowedOps WebViewEstimatedLoadProgressPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = (~) ()
type AttrTransferType WebViewEstimatedLoadProgressPropertyInfo = ()
type AttrGetType WebViewEstimatedLoadProgressPropertyInfo = Double
type AttrLabel WebViewEstimatedLoadProgressPropertyInfo = "estimated-load-progress"
type AttrOrigin WebViewEstimatedLoadProgressPropertyInfo = WebView
attrGet = getWebViewEstimatedLoadProgress
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWebViewFavicon :: (MonadIO m, IsWebView o) => o -> m (Ptr ())
getWebViewFavicon :: o -> m (Ptr ())
getWebViewFavicon obj :: o
obj = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj "favicon"
#if defined(ENABLE_OVERLOADING)
data WebViewFaviconPropertyInfo
instance AttrInfo WebViewFaviconPropertyInfo where
type AttrAllowedOps WebViewFaviconPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebViewFaviconPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewFaviconPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewFaviconPropertyInfo = (~) ()
type AttrTransferType WebViewFaviconPropertyInfo = ()
type AttrGetType WebViewFaviconPropertyInfo = (Ptr ())
type AttrLabel WebViewFaviconPropertyInfo = "favicon"
type AttrOrigin WebViewFaviconPropertyInfo = WebView
attrGet = getWebViewFavicon
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWebViewIsControlledByAutomation :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsControlledByAutomation :: o -> m Bool
getWebViewIsControlledByAutomation obj :: o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WebViewEnterFullscreenCallback
forall a.
GObject a =>
a -> String -> WebViewEnterFullscreenCallback
B.Properties.getObjectPropertyBool o
obj "is-controlled-by-automation"
constructWebViewIsControlledByAutomation :: (IsWebView o) => Bool -> IO (GValueConstruct o)
constructWebViewIsControlledByAutomation :: Bool -> IO (GValueConstruct o)
constructWebViewIsControlledByAutomation val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "is-controlled-by-automation" Bool
val
#if defined(ENABLE_OVERLOADING)
data WebViewIsControlledByAutomationPropertyInfo
instance AttrInfo WebViewIsControlledByAutomationPropertyInfo where
type AttrAllowedOps WebViewIsControlledByAutomationPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewIsControlledByAutomationPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewIsControlledByAutomationPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WebViewIsControlledByAutomationPropertyInfo = (~) Bool
type AttrTransferType WebViewIsControlledByAutomationPropertyInfo = Bool
type AttrGetType WebViewIsControlledByAutomationPropertyInfo = Bool
type AttrLabel WebViewIsControlledByAutomationPropertyInfo = "is-controlled-by-automation"
type AttrOrigin WebViewIsControlledByAutomationPropertyInfo = WebView
attrGet = getWebViewIsControlledByAutomation
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebViewIsControlledByAutomation
attrClear = undefined
#endif
getWebViewIsEphemeral :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsEphemeral :: o -> m Bool
getWebViewIsEphemeral obj :: o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WebViewEnterFullscreenCallback
forall a.
GObject a =>
a -> String -> WebViewEnterFullscreenCallback
B.Properties.getObjectPropertyBool o
obj "is-ephemeral"
constructWebViewIsEphemeral :: (IsWebView o) => Bool -> IO (GValueConstruct o)
constructWebViewIsEphemeral :: Bool -> IO (GValueConstruct o)
constructWebViewIsEphemeral val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "is-ephemeral" Bool
val
#if defined(ENABLE_OVERLOADING)
data WebViewIsEphemeralPropertyInfo
instance AttrInfo WebViewIsEphemeralPropertyInfo where
type AttrAllowedOps WebViewIsEphemeralPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewIsEphemeralPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewIsEphemeralPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WebViewIsEphemeralPropertyInfo = (~) Bool
type AttrTransferType WebViewIsEphemeralPropertyInfo = Bool
type AttrGetType WebViewIsEphemeralPropertyInfo = Bool
type AttrLabel WebViewIsEphemeralPropertyInfo = "is-ephemeral"
type AttrOrigin WebViewIsEphemeralPropertyInfo = WebView
attrGet = getWebViewIsEphemeral
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebViewIsEphemeral
attrClear = undefined
#endif
getWebViewIsLoading :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsLoading :: o -> m Bool
getWebViewIsLoading obj :: o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WebViewEnterFullscreenCallback
forall a.
GObject a =>
a -> String -> WebViewEnterFullscreenCallback
B.Properties.getObjectPropertyBool o
obj "is-loading"
#if defined(ENABLE_OVERLOADING)
data WebViewIsLoadingPropertyInfo
instance AttrInfo WebViewIsLoadingPropertyInfo where
type AttrAllowedOps WebViewIsLoadingPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebViewIsLoadingPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewIsLoadingPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewIsLoadingPropertyInfo = (~) ()
type AttrTransferType WebViewIsLoadingPropertyInfo = ()
type AttrGetType WebViewIsLoadingPropertyInfo = Bool
type AttrLabel WebViewIsLoadingPropertyInfo = "is-loading"
type AttrOrigin WebViewIsLoadingPropertyInfo = WebView
attrGet = getWebViewIsLoading
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWebViewIsPlayingAudio :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsPlayingAudio :: o -> m Bool
getWebViewIsPlayingAudio obj :: o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WebViewEnterFullscreenCallback
forall a.
GObject a =>
a -> String -> WebViewEnterFullscreenCallback
B.Properties.getObjectPropertyBool o
obj "is-playing-audio"
#if defined(ENABLE_OVERLOADING)
data WebViewIsPlayingAudioPropertyInfo
instance AttrInfo WebViewIsPlayingAudioPropertyInfo where
type AttrAllowedOps WebViewIsPlayingAudioPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebViewIsPlayingAudioPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewIsPlayingAudioPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewIsPlayingAudioPropertyInfo = (~) ()
type AttrTransferType WebViewIsPlayingAudioPropertyInfo = ()
type AttrGetType WebViewIsPlayingAudioPropertyInfo = Bool
type AttrLabel WebViewIsPlayingAudioPropertyInfo = "is-playing-audio"
type AttrOrigin WebViewIsPlayingAudioPropertyInfo = WebView
attrGet = getWebViewIsPlayingAudio
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
constructWebViewRelatedView :: (IsWebView o, IsWebView a) => a -> IO (GValueConstruct o)
constructWebViewRelatedView :: a -> IO (GValueConstruct o)
constructWebViewRelatedView val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "related-view" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data WebViewRelatedViewPropertyInfo
instance AttrInfo WebViewRelatedViewPropertyInfo where
type AttrAllowedOps WebViewRelatedViewPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint WebViewRelatedViewPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewRelatedViewPropertyInfo = IsWebView
type AttrTransferTypeConstraint WebViewRelatedViewPropertyInfo = IsWebView
type AttrTransferType WebViewRelatedViewPropertyInfo = WebView
type AttrGetType WebViewRelatedViewPropertyInfo = ()
type AttrLabel WebViewRelatedViewPropertyInfo = "related-view"
type AttrOrigin WebViewRelatedViewPropertyInfo = WebView
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo WebView v
attrConstruct = constructWebViewRelatedView
attrClear = undefined
#endif
setWebViewSettings :: (MonadIO m, IsWebView o, WebKit2.Settings.IsSettings a) => o -> a -> m ()
setWebViewSettings :: o -> a -> m ()
setWebViewSettings obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "settings" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWebViewSettings :: (IsWebView o, WebKit2.Settings.IsSettings a) => a -> IO (GValueConstruct o)
constructWebViewSettings :: a -> IO (GValueConstruct o)
constructWebViewSettings val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "settings" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data WebViewSettingsPropertyInfo
instance AttrInfo WebViewSettingsPropertyInfo where
type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewSettingsPropertyInfo = WebKit2.Settings.IsSettings
type AttrTransferTypeConstraint WebViewSettingsPropertyInfo = WebKit2.Settings.IsSettings
type AttrTransferType WebViewSettingsPropertyInfo = WebKit2.Settings.Settings
type AttrGetType WebViewSettingsPropertyInfo = ()
type AttrLabel WebViewSettingsPropertyInfo = "settings"
type AttrOrigin WebViewSettingsPropertyInfo = WebView
attrGet = undefined
attrSet = setWebViewSettings
attrTransfer _ v = do
unsafeCastTo WebKit2.Settings.Settings v
attrConstruct = constructWebViewSettings
attrClear = undefined
#endif
getWebViewTitle :: (MonadIO m, IsWebView o) => o -> m (Maybe T.Text)
getWebViewTitle :: o -> m (Maybe Text)
getWebViewTitle obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "title"
#if defined(ENABLE_OVERLOADING)
data WebViewTitlePropertyInfo
instance AttrInfo WebViewTitlePropertyInfo where
type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebViewTitlePropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewTitlePropertyInfo = (~) ()
type AttrTransferType WebViewTitlePropertyInfo = ()
type AttrGetType WebViewTitlePropertyInfo = (Maybe T.Text)
type AttrLabel WebViewTitlePropertyInfo = "title"
type AttrOrigin WebViewTitlePropertyInfo = WebView
attrGet = getWebViewTitle
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWebViewUri :: (MonadIO m, IsWebView o) => o -> m (Maybe T.Text)
getWebViewUri :: o -> m (Maybe Text)
getWebViewUri obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "uri"
#if defined(ENABLE_OVERLOADING)
data WebViewUriPropertyInfo
instance AttrInfo WebViewUriPropertyInfo where
type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebViewUriPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewUriPropertyInfo = (~) ()
type AttrTransferType WebViewUriPropertyInfo = ()
type AttrGetType WebViewUriPropertyInfo = (Maybe T.Text)
type AttrLabel WebViewUriPropertyInfo = "uri"
type AttrOrigin WebViewUriPropertyInfo = WebView
attrGet = getWebViewUri
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWebViewUserContentManager :: (MonadIO m, IsWebView o) => o -> m WebKit2.UserContentManager.UserContentManager
getWebViewUserContentManager :: o -> m UserContentManager
getWebViewUserContentManager obj :: o
obj = IO UserContentManager -> m UserContentManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO UserContentManager -> m UserContentManager)
-> IO UserContentManager -> m UserContentManager
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe UserContentManager) -> IO UserContentManager
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getWebViewUserContentManager" (IO (Maybe UserContentManager) -> IO UserContentManager)
-> IO (Maybe UserContentManager) -> IO UserContentManager
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr UserContentManager -> UserContentManager)
-> IO (Maybe UserContentManager)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "user-content-manager" ManagedPtr UserContentManager -> UserContentManager
WebKit2.UserContentManager.UserContentManager
constructWebViewUserContentManager :: (IsWebView o, WebKit2.UserContentManager.IsUserContentManager a) => a -> IO (GValueConstruct o)
constructWebViewUserContentManager :: a -> IO (GValueConstruct o)
constructWebViewUserContentManager val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "user-content-manager" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data WebViewUserContentManagerPropertyInfo
instance AttrInfo WebViewUserContentManagerPropertyInfo where
type AttrAllowedOps WebViewUserContentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebViewUserContentManagerPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewUserContentManagerPropertyInfo = WebKit2.UserContentManager.IsUserContentManager
type AttrTransferTypeConstraint WebViewUserContentManagerPropertyInfo = WebKit2.UserContentManager.IsUserContentManager
type AttrTransferType WebViewUserContentManagerPropertyInfo = WebKit2.UserContentManager.UserContentManager
type AttrGetType WebViewUserContentManagerPropertyInfo = WebKit2.UserContentManager.UserContentManager
type AttrLabel WebViewUserContentManagerPropertyInfo = "user-content-manager"
type AttrOrigin WebViewUserContentManagerPropertyInfo = WebView
attrGet = getWebViewUserContentManager
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo WebKit2.UserContentManager.UserContentManager v
attrConstruct = constructWebViewUserContentManager
attrClear = undefined
#endif
getWebViewWebContext :: (MonadIO m, IsWebView o) => o -> m (Maybe WebKit2.WebContext.WebContext)
getWebViewWebContext :: o -> m (Maybe WebContext)
getWebViewWebContext obj :: o
obj = IO (Maybe WebContext) -> m (Maybe WebContext)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe WebContext) -> m (Maybe WebContext))
-> IO (Maybe WebContext) -> m (Maybe WebContext)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr WebContext -> WebContext)
-> IO (Maybe WebContext)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "web-context" ManagedPtr WebContext -> WebContext
WebKit2.WebContext.WebContext
constructWebViewWebContext :: (IsWebView o, WebKit2.WebContext.IsWebContext a) => a -> IO (GValueConstruct o)
constructWebViewWebContext :: a -> IO (GValueConstruct o)
constructWebViewWebContext val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "web-context" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data WebViewWebContextPropertyInfo
instance AttrInfo WebViewWebContextPropertyInfo where
type AttrAllowedOps WebViewWebContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebViewWebContextPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewWebContextPropertyInfo = WebKit2.WebContext.IsWebContext
type AttrTransferTypeConstraint WebViewWebContextPropertyInfo = WebKit2.WebContext.IsWebContext
type AttrTransferType WebViewWebContextPropertyInfo = WebKit2.WebContext.WebContext
type AttrGetType WebViewWebContextPropertyInfo = (Maybe WebKit2.WebContext.WebContext)
type AttrLabel WebViewWebContextPropertyInfo = "web-context"
type AttrOrigin WebViewWebContextPropertyInfo = WebView
attrGet = getWebViewWebContext
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo WebKit2.WebContext.WebContext v
attrConstruct = constructWebViewWebContext
attrClear = undefined
#endif
getWebViewZoomLevel :: (MonadIO m, IsWebView o) => o -> m Double
getWebViewZoomLevel :: o -> m Double
getWebViewZoomLevel obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "zoom-level"
setWebViewZoomLevel :: (MonadIO m, IsWebView o) => o -> Double -> m ()
setWebViewZoomLevel :: o -> Double -> m ()
setWebViewZoomLevel obj :: o
obj val :: Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj "zoom-level" Double
val
constructWebViewZoomLevel :: (IsWebView o) => Double -> IO (GValueConstruct o)
constructWebViewZoomLevel :: Double -> IO (GValueConstruct o)
constructWebViewZoomLevel val :: Double
val = String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble "zoom-level" Double
val
#if defined(ENABLE_OVERLOADING)
data WebViewZoomLevelPropertyInfo
instance AttrInfo WebViewZoomLevelPropertyInfo where
type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Double
type AttrTransferTypeConstraint WebViewZoomLevelPropertyInfo = (~) Double
type AttrTransferType WebViewZoomLevelPropertyInfo = Double
type AttrGetType WebViewZoomLevelPropertyInfo = Double
type AttrLabel WebViewZoomLevelPropertyInfo = "zoom-level"
type AttrOrigin WebViewZoomLevelPropertyInfo = WebView
attrGet = getWebViewZoomLevel
attrSet = setWebViewZoomLevel
attrTransfer _ v = do
return v
attrConstruct = constructWebViewZoomLevel
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WebView
type instance O.AttributeList WebView = WebViewAttributeList
type WebViewAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("estimatedLoadProgress", WebViewEstimatedLoadProgressPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("favicon", WebViewFaviconPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isControlledByAutomation", WebViewIsControlledByAutomationPropertyInfo), '("isEphemeral", WebViewIsEphemeralPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isLoading", WebViewIsLoadingPropertyInfo), '("isPlayingAudio", WebViewIsPlayingAudioPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("relatedView", WebViewRelatedViewPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("uri", WebViewUriPropertyInfo), '("userContentManager", WebViewUserContentManagerPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("webContext", WebViewWebContextPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("zoomLevel", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
webViewEditable :: AttrLabelProxy "editable"
webViewEditable = AttrLabelProxy
webViewEstimatedLoadProgress :: AttrLabelProxy "estimatedLoadProgress"
webViewEstimatedLoadProgress = AttrLabelProxy
webViewFavicon :: AttrLabelProxy "favicon"
webViewFavicon = AttrLabelProxy
webViewRelatedView :: AttrLabelProxy "relatedView"
webViewRelatedView = AttrLabelProxy
webViewSettings :: AttrLabelProxy "settings"
webViewSettings = AttrLabelProxy
webViewTitle :: AttrLabelProxy "title"
webViewTitle = AttrLabelProxy
webViewUri :: AttrLabelProxy "uri"
webViewUri = AttrLabelProxy
webViewUserContentManager :: AttrLabelProxy "userContentManager"
webViewUserContentManager = AttrLabelProxy
webViewWebContext :: AttrLabelProxy "webContext"
webViewWebContext = AttrLabelProxy
webViewZoomLevel :: AttrLabelProxy "zoomLevel"
webViewZoomLevel = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WebView = WebViewSignalList
type WebViewSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("authenticate", WebViewAuthenticateSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("close", WebViewCloseSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("contextMenu", WebViewContextMenuSignalInfo), '("contextMenuDismissed", WebViewContextMenuDismissedSignalInfo), '("create", WebViewCreateSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("decidePolicy", WebViewDecidePolicySignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterFullscreen", WebViewEnterFullscreenSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("insecureContentDetected", WebViewInsecureContentDetectedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveFullscreen", WebViewLeaveFullscreenSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("loadChanged", WebViewLoadChangedSignalInfo), '("loadFailed", WebViewLoadFailedSignalInfo), '("loadFailedWithTlsErrors", WebViewLoadFailedWithTlsErrorsSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("mouseTargetChanged", WebViewMouseTargetChangedSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("permissionRequest", WebViewPermissionRequestSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("print", WebViewPrintSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("readyToShow", WebViewReadyToShowSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("resourceLoadStarted", WebViewResourceLoadStartedSignalInfo), '("runAsModal", WebViewRunAsModalSignalInfo), '("runColorChooser", WebViewRunColorChooserSignalInfo), '("runFileChooser", WebViewRunFileChooserSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scriptDialog", WebViewScriptDialogSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("showNotification", WebViewShowNotificationSignalInfo), '("showOptionMenu", WebViewShowOptionMenuSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("submitForm", WebViewSubmitFormSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("webProcessCrashed", WebViewWebProcessCrashedSignalInfo), '("webProcessTerminated", WebViewWebProcessTerminatedSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_web_view_new" webkit_web_view_new ::
IO (Ptr WebView)
webViewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m WebView
webViewNew :: m WebView
webViewNew = IO WebView -> m WebView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebView -> m WebView) -> IO WebView -> m WebView
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
result <- IO (Ptr WebView)
webkit_web_view_new
Text -> Ptr WebView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewNew" Ptr WebView
result
WebView
result' <- ((ManagedPtr WebView -> WebView) -> Ptr WebView -> IO WebView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebView -> WebView
WebView) Ptr WebView
result
WebView -> IO WebView
forall (m :: * -> *) a. Monad m => a -> m a
return WebView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_web_view_new_with_context" webkit_web_view_new_with_context ::
Ptr WebKit2.WebContext.WebContext ->
IO (Ptr WebView)
webViewNewWithContext ::
(B.CallStack.HasCallStack, MonadIO m, WebKit2.WebContext.IsWebContext a) =>
a
-> m WebView
webViewNewWithContext :: a -> m WebView
webViewNewWithContext context :: a
context = IO WebView -> m WebView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebView -> m WebView) -> IO WebView -> m WebView
forall a b. (a -> b) -> a -> b
$ do
Ptr WebContext
context' <- a -> IO (Ptr WebContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr WebView
result <- Ptr WebContext -> IO (Ptr WebView)
webkit_web_view_new_with_context Ptr WebContext
context'
Text -> Ptr WebView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewNewWithContext" Ptr WebView
result
WebView
result' <- ((ManagedPtr WebView -> WebView) -> Ptr WebView -> IO WebView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebView -> WebView
WebView) Ptr WebView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
WebView -> IO WebView
forall (m :: * -> *) a. Monad m => a -> m a
return WebView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_web_view_new_with_related_view" webkit_web_view_new_with_related_view ::
Ptr WebView ->
IO (Ptr WebView)
webViewNewWithRelatedView ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebView
webViewNewWithRelatedView :: a -> m WebView
webViewNewWithRelatedView webView :: a
webView = IO WebView -> m WebView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebView -> m WebView) -> IO WebView -> m WebView
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebView
result <- Ptr WebView -> IO (Ptr WebView)
webkit_web_view_new_with_related_view Ptr WebView
webView'
Text -> Ptr WebView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewNewWithRelatedView" Ptr WebView
result
WebView
result' <- ((ManagedPtr WebView -> WebView) -> Ptr WebView -> IO WebView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr WebView -> WebView
WebView) Ptr WebView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WebView -> IO WebView
forall (m :: * -> *) a. Monad m => a -> m a
return WebView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_web_view_new_with_settings" webkit_web_view_new_with_settings ::
Ptr WebKit2.Settings.Settings ->
IO (Ptr WebView)
webViewNewWithSettings ::
(B.CallStack.HasCallStack, MonadIO m, WebKit2.Settings.IsSettings a) =>
a
-> m WebView
webViewNewWithSettings :: a -> m WebView
webViewNewWithSettings settings :: a
settings = IO WebView -> m WebView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebView -> m WebView) -> IO WebView -> m WebView
forall a b. (a -> b) -> a -> b
$ do
Ptr Settings
settings' <- a -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
Ptr WebView
result <- Ptr Settings -> IO (Ptr WebView)
webkit_web_view_new_with_settings Ptr Settings
settings'
Text -> Ptr WebView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewNewWithSettings" Ptr WebView
result
WebView
result' <- ((ManagedPtr WebView -> WebView) -> Ptr WebView -> IO WebView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebView -> WebView
WebView) Ptr WebView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
WebView -> IO WebView
forall (m :: * -> *) a. Monad m => a -> m a
return WebView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_web_view_new_with_user_content_manager" webkit_web_view_new_with_user_content_manager ::
Ptr WebKit2.UserContentManager.UserContentManager ->
IO (Ptr WebView)
webViewNewWithUserContentManager ::
(B.CallStack.HasCallStack, MonadIO m, WebKit2.UserContentManager.IsUserContentManager a) =>
a
-> m WebView
webViewNewWithUserContentManager :: a -> m WebView
webViewNewWithUserContentManager userContentManager :: a
userContentManager = IO WebView -> m WebView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebView -> m WebView) -> IO WebView -> m WebView
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
userContentManager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
userContentManager
Ptr WebView
result <- Ptr UserContentManager -> IO (Ptr WebView)
webkit_web_view_new_with_user_content_manager Ptr UserContentManager
userContentManager'
Text -> Ptr WebView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewNewWithUserContentManager" Ptr WebView
result
WebView
result' <- ((ManagedPtr WebView -> WebView) -> Ptr WebView -> IO WebView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebView -> WebView
WebView) Ptr WebView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
userContentManager
WebView -> IO WebView
forall (m :: * -> *) a. Monad m => a -> m a
return WebView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_web_view_can_execute_editing_command" webkit_web_view_can_execute_editing_command ::
Ptr WebView ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewCanExecuteEditingCommand ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewCanExecuteEditingCommand :: a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewCanExecuteEditingCommand webView :: a
webView command :: Text
command cancellable :: Maybe b
cancellable callback :: 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
command' <- Text -> IO CString
textToCString Text
command
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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
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 jCallback :: 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 WebView
-> CString
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_can_execute_editing_command Ptr WebView
webView' CString
command' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewCanExecuteEditingCommandMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebViewCanExecuteEditingCommandMethodInfo a signature where
overloadedMethod = webViewCanExecuteEditingCommand
#endif
foreign import ccall "webkit_web_view_can_execute_editing_command_finish" webkit_web_view_can_execute_editing_command_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
webViewCanExecuteEditingCommandFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
webViewCanExecuteEditingCommandFinish :: a -> b -> m ()
webViewCanExecuteEditingCommandFinish webView :: a
webView result_ :: b
result_ = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr WebView -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
webkit_web_view_can_execute_editing_command_finish Ptr WebView
webView' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewCanExecuteEditingCommandFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebViewCanExecuteEditingCommandFinishMethodInfo a signature where
overloadedMethod = webViewCanExecuteEditingCommandFinish
#endif
foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back ::
Ptr WebView ->
IO CInt
webViewCanGoBack ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewCanGoBack :: a -> m Bool
webViewCanGoBack webView :: a
webView = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CInt
result <- Ptr WebView -> IO CInt
webkit_web_view_can_go_back Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewCanGoBackMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewCanGoBackMethodInfo a signature where
overloadedMethod = webViewCanGoBack
#endif
foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward ::
Ptr WebView ->
IO CInt
webViewCanGoForward ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewCanGoForward :: a -> m Bool
webViewCanGoForward webView :: a
webView = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CInt
result <- Ptr WebView -> IO CInt
webkit_web_view_can_go_forward Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewCanGoForwardMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewCanGoForwardMethodInfo a signature where
overloadedMethod = webViewCanGoForward
#endif
foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type ::
Ptr WebView ->
CString ->
IO CInt
webViewCanShowMimeType ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> m Bool
webViewCanShowMimeType :: a -> Text -> m Bool
webViewCanShowMimeType webView :: a
webView mimeType :: Text
mimeType = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
mimeType' <- Text -> IO CString
textToCString Text
mimeType
CInt
result <- Ptr WebView -> CString -> IO CInt
webkit_web_view_can_show_mime_type Ptr WebView
webView' CString
mimeType'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mimeType'
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewCanShowMimeTypeMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewCanShowMimeTypeMethodInfo a signature where
overloadedMethod = webViewCanShowMimeType
#endif
foreign import ccall "webkit_web_view_download_uri" webkit_web_view_download_uri ::
Ptr WebView ->
CString ->
IO (Ptr WebKit2.Download.Download)
webViewDownloadUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> m WebKit2.Download.Download
webViewDownloadUri :: a -> Text -> m Download
webViewDownloadUri webView :: a
webView uri :: Text
uri = IO Download -> m Download
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Download -> m Download) -> IO Download -> m Download
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr Download
result <- Ptr WebView -> CString -> IO (Ptr Download)
webkit_web_view_download_uri Ptr WebView
webView' CString
uri'
Text -> Ptr Download -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewDownloadUri" Ptr Download
result
Download
result' <- ((ManagedPtr Download -> Download) -> Ptr Download -> IO Download
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Download -> Download
WebKit2.Download.Download) Ptr Download
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uri'
Download -> IO Download
forall (m :: * -> *) a. Monad m => a -> m a
return Download
result'
#if defined(ENABLE_OVERLOADING)
data WebViewDownloadUriMethodInfo
instance (signature ~ (T.Text -> m WebKit2.Download.Download), MonadIO m, IsWebView a) => O.MethodInfo WebViewDownloadUriMethodInfo a signature where
overloadedMethod = webViewDownloadUri
#endif
foreign import ccall "webkit_web_view_execute_editing_command" webkit_web_view_execute_editing_command ::
Ptr WebView ->
CString ->
IO ()
webViewExecuteEditingCommand ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> m ()
webViewExecuteEditingCommand :: a -> Text -> m ()
webViewExecuteEditingCommand webView :: a
webView command :: Text
command = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
command' <- Text -> IO CString
textToCString Text
command
Ptr WebView -> CString -> IO ()
webkit_web_view_execute_editing_command Ptr WebView
webView' CString
command'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewExecuteEditingCommandMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewExecuteEditingCommandMethodInfo a signature where
overloadedMethod = webViewExecuteEditingCommand
#endif
foreign import ccall "webkit_web_view_execute_editing_command_with_argument" webkit_web_view_execute_editing_command_with_argument ::
Ptr WebView ->
CString ->
CString ->
IO ()
webViewExecuteEditingCommandWithArgument ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> T.Text
-> m ()
webViewExecuteEditingCommandWithArgument :: a -> Text -> Text -> m ()
webViewExecuteEditingCommandWithArgument webView :: a
webView command :: Text
command argument :: Text
argument = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
command' <- Text -> IO CString
textToCString Text
command
CString
argument' <- Text -> IO CString
textToCString Text
argument
Ptr WebView -> CString -> CString -> IO ()
webkit_web_view_execute_editing_command_with_argument Ptr WebView
webView' CString
command' CString
argument'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
argument'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewExecuteEditingCommandWithArgumentMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewExecuteEditingCommandWithArgumentMethodInfo a signature where
overloadedMethod = webViewExecuteEditingCommandWithArgument
#endif
foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list ::
Ptr WebView ->
IO (Ptr WebKit2.BackForwardList.BackForwardList)
webViewGetBackForwardList ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.BackForwardList.BackForwardList
webViewGetBackForwardList :: a -> m BackForwardList
webViewGetBackForwardList webView :: a
webView = IO BackForwardList -> m BackForwardList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BackForwardList -> m BackForwardList)
-> IO BackForwardList -> m BackForwardList
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr BackForwardList
result <- Ptr WebView -> IO (Ptr BackForwardList)
webkit_web_view_get_back_forward_list Ptr WebView
webView'
Text -> Ptr BackForwardList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetBackForwardList" Ptr BackForwardList
result
BackForwardList
result' <- ((ManagedPtr BackForwardList -> BackForwardList)
-> Ptr BackForwardList -> IO BackForwardList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr BackForwardList -> BackForwardList
WebKit2.BackForwardList.BackForwardList) Ptr BackForwardList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
BackForwardList -> IO BackForwardList
forall (m :: * -> *) a. Monad m => a -> m a
return BackForwardList
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetBackForwardListMethodInfo
instance (signature ~ (m WebKit2.BackForwardList.BackForwardList), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetBackForwardListMethodInfo a signature where
overloadedMethod = webViewGetBackForwardList
#endif
foreign import ccall "webkit_web_view_get_background_color" webkit_web_view_get_background_color ::
Ptr WebView ->
Ptr Gdk.RGBA.RGBA ->
IO ()
webViewGetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m (Gdk.RGBA.RGBA)
webViewGetBackgroundColor :: a -> m RGBA
webViewGetBackgroundColor webView :: a
webView = IO RGBA -> m RGBA
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RGBA -> m RGBA) -> IO RGBA -> m RGBA
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr RGBA
rgba <- Int -> IO (Ptr RGBA)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)
Ptr WebView -> Ptr RGBA -> IO ()
webkit_web_view_get_background_color Ptr WebView
webView' Ptr RGBA
rgba
RGBA
rgba' <- ((ManagedPtr RGBA -> RGBA) -> Ptr RGBA -> IO RGBA
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
rgba
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
RGBA -> IO RGBA
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
rgba'
#if defined(ENABLE_OVERLOADING)
data WebViewGetBackgroundColorMethodInfo
instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetBackgroundColorMethodInfo a signature where
overloadedMethod = webViewGetBackgroundColor
#endif
foreign import ccall "webkit_web_view_get_context" webkit_web_view_get_context ::
Ptr WebView ->
IO (Ptr WebKit2.WebContext.WebContext)
webViewGetContext ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.WebContext.WebContext
webViewGetContext :: a -> m WebContext
webViewGetContext webView :: a
webView = IO WebContext -> m WebContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebContext -> m WebContext) -> IO WebContext -> m WebContext
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebContext
result <- Ptr WebView -> IO (Ptr WebContext)
webkit_web_view_get_context Ptr WebView
webView'
Text -> Ptr WebContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetContext" Ptr WebContext
result
WebContext
result' <- ((ManagedPtr WebContext -> WebContext)
-> Ptr WebContext -> IO WebContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebContext -> WebContext
WebKit2.WebContext.WebContext) Ptr WebContext
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WebContext -> IO WebContext
forall (m :: * -> *) a. Monad m => a -> m a
return WebContext
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetContextMethodInfo
instance (signature ~ (m WebKit2.WebContext.WebContext), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetContextMethodInfo a signature where
overloadedMethod = webViewGetContext
#endif
foreign import ccall "webkit_web_view_get_custom_charset" webkit_web_view_get_custom_charset ::
Ptr WebView ->
IO CString
webViewGetCustomCharset ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m (Maybe T.Text)
webViewGetCustomCharset :: a -> m (Maybe Text)
webViewGetCustomCharset webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
result <- Ptr WebView -> IO CString
webkit_web_view_get_custom_charset Ptr WebView
webView'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebViewGetCustomCharsetMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetCustomCharsetMethodInfo a signature where
overloadedMethod = webViewGetCustomCharset
#endif
foreign import ccall "webkit_web_view_get_editor_state" webkit_web_view_get_editor_state ::
Ptr WebView ->
IO (Ptr WebKit2.EditorState.EditorState)
webViewGetEditorState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.EditorState.EditorState
webViewGetEditorState :: a -> m EditorState
webViewGetEditorState webView :: a
webView = IO EditorState -> m EditorState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EditorState -> m EditorState)
-> IO EditorState -> m EditorState
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr EditorState
result <- Ptr WebView -> IO (Ptr EditorState)
webkit_web_view_get_editor_state Ptr WebView
webView'
Text -> Ptr EditorState -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetEditorState" Ptr EditorState
result
EditorState
result' <- ((ManagedPtr EditorState -> EditorState)
-> Ptr EditorState -> IO EditorState
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr EditorState -> EditorState
WebKit2.EditorState.EditorState) Ptr EditorState
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
EditorState -> IO EditorState
forall (m :: * -> *) a. Monad m => a -> m a
return EditorState
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetEditorStateMethodInfo
instance (signature ~ (m WebKit2.EditorState.EditorState), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetEditorStateMethodInfo a signature where
overloadedMethod = webViewGetEditorState
#endif
foreign import ccall "webkit_web_view_get_estimated_load_progress" webkit_web_view_get_estimated_load_progress ::
Ptr WebView ->
IO CDouble
webViewGetEstimatedLoadProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Double
webViewGetEstimatedLoadProgress :: a -> m Double
webViewGetEstimatedLoadProgress webView :: a
webView = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CDouble
result <- Ptr WebView -> IO CDouble
webkit_web_view_get_estimated_load_progress Ptr WebView
webView'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetEstimatedLoadProgressMethodInfo
instance (signature ~ (m Double), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetEstimatedLoadProgressMethodInfo a signature where
overloadedMethod = webViewGetEstimatedLoadProgress
#endif
foreign import ccall "webkit_web_view_get_favicon" webkit_web_view_get_favicon ::
Ptr WebView ->
IO (Ptr Cairo.Surface.Surface)
webViewGetFavicon ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m (Maybe Cairo.Surface.Surface)
webViewGetFavicon :: a -> m (Maybe Surface)
webViewGetFavicon webView :: a
webView = IO (Maybe Surface) -> m (Maybe Surface)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Surface) -> m (Maybe Surface))
-> IO (Maybe Surface) -> m (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr Surface
result <- Ptr WebView -> IO (Ptr Surface)
webkit_web_view_get_favicon Ptr WebView
webView'
Maybe Surface
maybeResult <- Ptr Surface -> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Surface
result ((Ptr Surface -> IO Surface) -> IO (Maybe Surface))
-> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Surface
result' -> do
Surface
result'' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result'
Surface -> IO Surface
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe Surface -> IO (Maybe Surface)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Surface
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebViewGetFaviconMethodInfo
instance (signature ~ (m (Maybe Cairo.Surface.Surface)), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetFaviconMethodInfo a signature where
overloadedMethod = webViewGetFavicon
#endif
foreign import ccall "webkit_web_view_get_find_controller" webkit_web_view_get_find_controller ::
Ptr WebView ->
IO (Ptr WebKit2.FindController.FindController)
webViewGetFindController ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.FindController.FindController
webViewGetFindController :: a -> m FindController
webViewGetFindController webView :: a
webView = IO FindController -> m FindController
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FindController -> m FindController)
-> IO FindController -> m FindController
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr FindController
result <- Ptr WebView -> IO (Ptr FindController)
webkit_web_view_get_find_controller Ptr WebView
webView'
Text -> Ptr FindController -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetFindController" Ptr FindController
result
FindController
result' <- ((ManagedPtr FindController -> FindController)
-> Ptr FindController -> IO FindController
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FindController -> FindController
WebKit2.FindController.FindController) Ptr FindController
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
FindController -> IO FindController
forall (m :: * -> *) a. Monad m => a -> m a
return FindController
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetFindControllerMethodInfo
instance (signature ~ (m WebKit2.FindController.FindController), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetFindControllerMethodInfo a signature where
overloadedMethod = webViewGetFindController
#endif
foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector ::
Ptr WebView ->
IO (Ptr WebKit2.WebInspector.WebInspector)
webViewGetInspector ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.WebInspector.WebInspector
webViewGetInspector :: a -> m WebInspector
webViewGetInspector webView :: a
webView = IO WebInspector -> m WebInspector
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebInspector -> m WebInspector)
-> IO WebInspector -> m WebInspector
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebInspector
result <- Ptr WebView -> IO (Ptr WebInspector)
webkit_web_view_get_inspector Ptr WebView
webView'
Text -> Ptr WebInspector -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetInspector" Ptr WebInspector
result
WebInspector
result' <- ((ManagedPtr WebInspector -> WebInspector)
-> Ptr WebInspector -> IO WebInspector
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebInspector -> WebInspector
WebKit2.WebInspector.WebInspector) Ptr WebInspector
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WebInspector -> IO WebInspector
forall (m :: * -> *) a. Monad m => a -> m a
return WebInspector
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetInspectorMethodInfo
instance (signature ~ (m WebKit2.WebInspector.WebInspector), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetInspectorMethodInfo a signature where
overloadedMethod = webViewGetInspector
#endif
foreign import ccall "webkit_web_view_get_main_resource" webkit_web_view_get_main_resource ::
Ptr WebView ->
IO (Ptr WebKit2.WebResource.WebResource)
webViewGetMainResource ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m (Maybe WebKit2.WebResource.WebResource)
webViewGetMainResource :: a -> m (Maybe WebResource)
webViewGetMainResource webView :: a
webView = IO (Maybe WebResource) -> m (Maybe WebResource)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe WebResource) -> m (Maybe WebResource))
-> IO (Maybe WebResource) -> m (Maybe WebResource)
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebResource
result <- Ptr WebView -> IO (Ptr WebResource)
webkit_web_view_get_main_resource Ptr WebView
webView'
Maybe WebResource
maybeResult <- Ptr WebResource
-> (Ptr WebResource -> IO WebResource) -> IO (Maybe WebResource)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr WebResource
result ((Ptr WebResource -> IO WebResource) -> IO (Maybe WebResource))
-> (Ptr WebResource -> IO WebResource) -> IO (Maybe WebResource)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr WebResource
result' -> do
WebResource
result'' <- ((ManagedPtr WebResource -> WebResource)
-> Ptr WebResource -> IO WebResource
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebResource -> WebResource
WebKit2.WebResource.WebResource) Ptr WebResource
result'
WebResource -> IO WebResource
forall (m :: * -> *) a. Monad m => a -> m a
return WebResource
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe WebResource -> IO (Maybe WebResource)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebResource
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebViewGetMainResourceMethodInfo
instance (signature ~ (m (Maybe WebKit2.WebResource.WebResource)), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetMainResourceMethodInfo a signature where
overloadedMethod = webViewGetMainResource
#endif
foreign import ccall "webkit_web_view_get_page_id" webkit_web_view_get_page_id ::
Ptr WebView ->
IO Word64
webViewGetPageId ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Word64
webViewGetPageId :: a -> m Word64
webViewGetPageId webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Word64
result <- Ptr WebView -> IO Word64
webkit_web_view_get_page_id Ptr WebView
webView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data WebViewGetPageIdMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetPageIdMethodInfo a signature where
overloadedMethod = webViewGetPageId
#endif
foreign import ccall "webkit_web_view_get_session_state" webkit_web_view_get_session_state ::
Ptr WebView ->
IO (Ptr WebKit2.WebViewSessionState.WebViewSessionState)
webViewGetSessionState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.WebViewSessionState.WebViewSessionState
webViewGetSessionState :: a -> m WebViewSessionState
webViewGetSessionState webView :: a
webView = IO WebViewSessionState -> m WebViewSessionState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebViewSessionState -> m WebViewSessionState)
-> IO WebViewSessionState -> m WebViewSessionState
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebViewSessionState
result <- Ptr WebView -> IO (Ptr WebViewSessionState)
webkit_web_view_get_session_state Ptr WebView
webView'
Text -> Ptr WebViewSessionState -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetSessionState" Ptr WebViewSessionState
result
WebViewSessionState
result' <- ((ManagedPtr WebViewSessionState -> WebViewSessionState)
-> Ptr WebViewSessionState -> IO WebViewSessionState
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr WebViewSessionState -> WebViewSessionState
WebKit2.WebViewSessionState.WebViewSessionState) Ptr WebViewSessionState
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WebViewSessionState -> IO WebViewSessionState
forall (m :: * -> *) a. Monad m => a -> m a
return WebViewSessionState
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetSessionStateMethodInfo
instance (signature ~ (m WebKit2.WebViewSessionState.WebViewSessionState), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetSessionStateMethodInfo a signature where
overloadedMethod = webViewGetSessionState
#endif
foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings ::
Ptr WebView ->
IO (Ptr WebKit2.Settings.Settings)
webViewGetSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.Settings.Settings
webViewGetSettings :: a -> m Settings
webViewGetSettings webView :: a
webView = IO Settings -> m Settings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Settings -> m Settings) -> IO Settings -> m Settings
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr Settings
result <- Ptr WebView -> IO (Ptr Settings)
webkit_web_view_get_settings Ptr WebView
webView'
Text -> Ptr Settings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetSettings" Ptr Settings
result
Settings
result' <- ((ManagedPtr Settings -> Settings) -> Ptr Settings -> IO Settings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Settings -> Settings
WebKit2.Settings.Settings) Ptr Settings
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Settings -> IO Settings
forall (m :: * -> *) a. Monad m => a -> m a
return Settings
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetSettingsMethodInfo
instance (signature ~ (m WebKit2.Settings.Settings), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetSettingsMethodInfo a signature where
overloadedMethod = webViewGetSettings
#endif
foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot ::
Ptr WebView ->
CUInt ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewGetSnapshot ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>
a
-> WebKit2.Enums.SnapshotRegion
-> [WebKit2.Flags.SnapshotOptions]
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewGetSnapshot :: a
-> SnapshotRegion
-> [SnapshotOptions]
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
webViewGetSnapshot webView :: a
webView region :: SnapshotRegion
region options :: [SnapshotOptions]
options cancellable :: Maybe b
cancellable callback :: 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
let region' :: CUInt
region' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SnapshotRegion -> Int) -> SnapshotRegion -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SnapshotRegion -> Int
forall a. Enum a => a -> Int
fromEnum) SnapshotRegion
region
let options' :: CUInt
options' = [SnapshotOptions] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SnapshotOptions]
options
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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
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 jCallback :: 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 WebView
-> CUInt
-> CUInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_get_snapshot Ptr WebView
webView' CUInt
region' CUInt
options' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewGetSnapshotMethodInfo
instance (signature ~ (WebKit2.Enums.SnapshotRegion -> [WebKit2.Flags.SnapshotOptions] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebViewGetSnapshotMethodInfo a signature where
overloadedMethod = webViewGetSnapshot
#endif
foreign import ccall "webkit_web_view_get_snapshot_finish" webkit_web_view_get_snapshot_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Cairo.Surface.Surface)
webViewGetSnapshotFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Cairo.Surface.Surface
webViewGetSnapshotFinish :: a -> b -> m Surface
webViewGetSnapshotFinish webView :: a
webView result_ :: b
result_ = IO Surface -> m Surface
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Surface -> m Surface) -> IO Surface -> m Surface
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO Surface -> IO () -> IO Surface
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Surface
result <- (Ptr (Ptr GError) -> IO (Ptr Surface)) -> IO (Ptr Surface)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Surface)) -> IO (Ptr Surface))
-> (Ptr (Ptr GError) -> IO (Ptr Surface)) -> IO (Ptr Surface)
forall a b. (a -> b) -> a -> b
$ Ptr WebView
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr Surface)
webkit_web_view_get_snapshot_finish Ptr WebView
webView' Ptr AsyncResult
result_'
Text -> Ptr Surface -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetSnapshotFinish" Ptr Surface
result
Surface
result' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
Surface -> IO Surface
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewGetSnapshotFinishMethodInfo
instance (signature ~ (b -> m Cairo.Surface.Surface), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebViewGetSnapshotFinishMethodInfo a signature where
overloadedMethod = webViewGetSnapshotFinish
#endif
foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title ::
Ptr WebView ->
IO CString
webViewGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m (Maybe T.Text)
webViewGetTitle :: a -> m (Maybe Text)
webViewGetTitle webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
result <- Ptr WebView -> IO CString
webkit_web_view_get_title Ptr WebView
webView'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebViewGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetTitleMethodInfo a signature where
overloadedMethod = webViewGetTitle
#endif
foreign import ccall "webkit_web_view_get_tls_info" webkit_web_view_get_tls_info ::
Ptr WebView ->
Ptr (Ptr Gio.TlsCertificate.TlsCertificate) ->
Ptr CUInt ->
IO CInt
webViewGetTlsInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ((Bool, Gio.TlsCertificate.TlsCertificate, [Gio.Flags.TlsCertificateFlags]))
webViewGetTlsInfo :: a -> m (Bool, TlsCertificate, [TlsCertificateFlags])
webViewGetTlsInfo webView :: a
webView = IO (Bool, TlsCertificate, [TlsCertificateFlags])
-> m (Bool, TlsCertificate, [TlsCertificateFlags])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TlsCertificate, [TlsCertificateFlags])
-> m (Bool, TlsCertificate, [TlsCertificateFlags]))
-> IO (Bool, TlsCertificate, [TlsCertificateFlags])
-> m (Bool, TlsCertificate, [TlsCertificateFlags])
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr (Ptr TlsCertificate)
certificate <- IO (Ptr (Ptr TlsCertificate))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gio.TlsCertificate.TlsCertificate))
Ptr CUInt
errors <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
CInt
result <- Ptr WebView -> Ptr (Ptr TlsCertificate) -> Ptr CUInt -> IO CInt
webkit_web_view_get_tls_info Ptr WebView
webView' Ptr (Ptr TlsCertificate)
certificate Ptr CUInt
errors
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TlsCertificate
certificate' <- Ptr (Ptr TlsCertificate) -> IO (Ptr TlsCertificate)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TlsCertificate)
certificate
TlsCertificate
certificate'' <- ((ManagedPtr TlsCertificate -> TlsCertificate)
-> Ptr TlsCertificate -> IO TlsCertificate
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TlsCertificate -> TlsCertificate
Gio.TlsCertificate.TlsCertificate) Ptr TlsCertificate
certificate'
CUInt
errors' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
errors
let errors'' :: [TlsCertificateFlags]
errors'' = CUInt -> [TlsCertificateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
errors'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Ptr (Ptr TlsCertificate) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TlsCertificate)
certificate
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
errors
(Bool, TlsCertificate, [TlsCertificateFlags])
-> IO (Bool, TlsCertificate, [TlsCertificateFlags])
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TlsCertificate
certificate'', [TlsCertificateFlags]
errors'')
#if defined(ENABLE_OVERLOADING)
data WebViewGetTlsInfoMethodInfo
instance (signature ~ (m ((Bool, Gio.TlsCertificate.TlsCertificate, [Gio.Flags.TlsCertificateFlags]))), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetTlsInfoMethodInfo a signature where
overloadedMethod = webViewGetTlsInfo
#endif
foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri ::
Ptr WebView ->
IO CString
webViewGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m (Maybe T.Text)
webViewGetUri :: a -> m (Maybe Text)
webViewGetUri webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
result <- Ptr WebView -> IO CString
webkit_web_view_get_uri Ptr WebView
webView'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebViewGetUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetUriMethodInfo a signature where
overloadedMethod = webViewGetUri
#endif
foreign import ccall "webkit_web_view_get_user_content_manager" webkit_web_view_get_user_content_manager ::
Ptr WebView ->
IO (Ptr WebKit2.UserContentManager.UserContentManager)
webViewGetUserContentManager ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.UserContentManager.UserContentManager
webViewGetUserContentManager :: a -> m UserContentManager
webViewGetUserContentManager webView :: a
webView = IO UserContentManager -> m UserContentManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO UserContentManager -> m UserContentManager)
-> IO UserContentManager -> m UserContentManager
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr UserContentManager
result <- Ptr WebView -> IO (Ptr UserContentManager)
webkit_web_view_get_user_content_manager Ptr WebView
webView'
Text -> Ptr UserContentManager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetUserContentManager" Ptr UserContentManager
result
UserContentManager
result' <- ((ManagedPtr UserContentManager -> UserContentManager)
-> Ptr UserContentManager -> IO UserContentManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr UserContentManager -> UserContentManager
WebKit2.UserContentManager.UserContentManager) Ptr UserContentManager
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
UserContentManager -> IO UserContentManager
forall (m :: * -> *) a. Monad m => a -> m a
return UserContentManager
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetUserContentManagerMethodInfo
instance (signature ~ (m WebKit2.UserContentManager.UserContentManager), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetUserContentManagerMethodInfo a signature where
overloadedMethod = webViewGetUserContentManager
#endif
foreign import ccall "webkit_web_view_get_website_data_manager" webkit_web_view_get_website_data_manager ::
Ptr WebView ->
IO (Ptr WebKit2.WebsiteDataManager.WebsiteDataManager)
webViewGetWebsiteDataManager ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.WebsiteDataManager.WebsiteDataManager
webViewGetWebsiteDataManager :: a -> m WebsiteDataManager
webViewGetWebsiteDataManager webView :: a
webView = IO WebsiteDataManager -> m WebsiteDataManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebsiteDataManager -> m WebsiteDataManager)
-> IO WebsiteDataManager -> m WebsiteDataManager
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebsiteDataManager
result <- Ptr WebView -> IO (Ptr WebsiteDataManager)
webkit_web_view_get_website_data_manager Ptr WebView
webView'
Text -> Ptr WebsiteDataManager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetWebsiteDataManager" Ptr WebsiteDataManager
result
WebsiteDataManager
result' <- ((ManagedPtr WebsiteDataManager -> WebsiteDataManager)
-> Ptr WebsiteDataManager -> IO WebsiteDataManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebsiteDataManager -> WebsiteDataManager
WebKit2.WebsiteDataManager.WebsiteDataManager) Ptr WebsiteDataManager
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WebsiteDataManager -> IO WebsiteDataManager
forall (m :: * -> *) a. Monad m => a -> m a
return WebsiteDataManager
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetWebsiteDataManagerMethodInfo
instance (signature ~ (m WebKit2.WebsiteDataManager.WebsiteDataManager), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetWebsiteDataManagerMethodInfo a signature where
overloadedMethod = webViewGetWebsiteDataManager
#endif
foreign import ccall "webkit_web_view_get_window_properties" webkit_web_view_get_window_properties ::
Ptr WebView ->
IO (Ptr WebKit2.WindowProperties.WindowProperties)
webViewGetWindowProperties ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.WindowProperties.WindowProperties
webViewGetWindowProperties :: a -> m WindowProperties
webViewGetWindowProperties webView :: a
webView = IO WindowProperties -> m WindowProperties
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WindowProperties -> m WindowProperties)
-> IO WindowProperties -> m WindowProperties
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WindowProperties
result <- Ptr WebView -> IO (Ptr WindowProperties)
webkit_web_view_get_window_properties Ptr WebView
webView'
Text -> Ptr WindowProperties -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewGetWindowProperties" Ptr WindowProperties
result
WindowProperties
result' <- ((ManagedPtr WindowProperties -> WindowProperties)
-> Ptr WindowProperties -> IO WindowProperties
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WindowProperties -> WindowProperties
WebKit2.WindowProperties.WindowProperties) Ptr WindowProperties
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WindowProperties -> IO WindowProperties
forall (m :: * -> *) a. Monad m => a -> m a
return WindowProperties
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetWindowPropertiesMethodInfo
instance (signature ~ (m WebKit2.WindowProperties.WindowProperties), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetWindowPropertiesMethodInfo a signature where
overloadedMethod = webViewGetWindowProperties
#endif
foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level ::
Ptr WebView ->
IO CDouble
webViewGetZoomLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Double
webViewGetZoomLevel :: a -> m Double
webViewGetZoomLevel webView :: a
webView = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CDouble
result <- Ptr WebView -> IO CDouble
webkit_web_view_get_zoom_level Ptr WebView
webView'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetZoomLevelMethodInfo
instance (signature ~ (m Double), MonadIO m, IsWebView a) => O.MethodInfo WebViewGetZoomLevelMethodInfo a signature where
overloadedMethod = webViewGetZoomLevel
#endif
foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back ::
Ptr WebView ->
IO ()
webViewGoBack ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ()
webViewGoBack :: a -> m ()
webViewGoBack webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebView -> IO ()
webkit_web_view_go_back Ptr WebView
webView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewGoBackMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewGoBackMethodInfo a signature where
overloadedMethod = webViewGoBack
#endif
foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward ::
Ptr WebView ->
IO ()
webViewGoForward ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ()
webViewGoForward :: a -> m ()
webViewGoForward webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebView -> IO ()
webkit_web_view_go_forward Ptr WebView
webView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewGoForwardMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewGoForwardMethodInfo a signature where
overloadedMethod = webViewGoForward
#endif
foreign import ccall "webkit_web_view_go_to_back_forward_list_item" webkit_web_view_go_to_back_forward_list_item ::
Ptr WebView ->
Ptr WebKit2.BackForwardListItem.BackForwardListItem ->
IO ()
webViewGoToBackForwardListItem ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.BackForwardListItem.IsBackForwardListItem b) =>
a
-> b
-> m ()
webViewGoToBackForwardListItem :: a -> b -> m ()
webViewGoToBackForwardListItem webView :: a
webView listItem :: b
listItem = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr BackForwardListItem
listItem' <- b -> IO (Ptr BackForwardListItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
listItem
Ptr WebView -> Ptr BackForwardListItem -> IO ()
webkit_web_view_go_to_back_forward_list_item Ptr WebView
webView' Ptr BackForwardListItem
listItem'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
listItem
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewGoToBackForwardListItemMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebView a, WebKit2.BackForwardListItem.IsBackForwardListItem b) => O.MethodInfo WebViewGoToBackForwardListItemMethodInfo a signature where
overloadedMethod = webViewGoToBackForwardListItem
#endif
foreign import ccall "webkit_web_view_is_controlled_by_automation" webkit_web_view_is_controlled_by_automation ::
Ptr WebView ->
IO CInt
webViewIsControlledByAutomation ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewIsControlledByAutomation :: a -> m Bool
webViewIsControlledByAutomation webView :: a
webView = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CInt
result <- Ptr WebView -> IO CInt
webkit_web_view_is_controlled_by_automation Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewIsControlledByAutomationMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewIsControlledByAutomationMethodInfo a signature where
overloadedMethod = webViewIsControlledByAutomation
#endif
foreign import ccall "webkit_web_view_is_editable" webkit_web_view_is_editable ::
Ptr WebView ->
IO CInt
webViewIsEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewIsEditable :: a -> m Bool
webViewIsEditable webView :: a
webView = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CInt
result <- Ptr WebView -> IO CInt
webkit_web_view_is_editable Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewIsEditableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewIsEditableMethodInfo a signature where
overloadedMethod = webViewIsEditable
#endif
foreign import ccall "webkit_web_view_is_ephemeral" webkit_web_view_is_ephemeral ::
Ptr WebView ->
IO CInt
webViewIsEphemeral ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewIsEphemeral :: a -> m Bool
webViewIsEphemeral webView :: a
webView = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CInt
result <- Ptr WebView -> IO CInt
webkit_web_view_is_ephemeral Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewIsEphemeralMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewIsEphemeralMethodInfo a signature where
overloadedMethod = webViewIsEphemeral
#endif
foreign import ccall "webkit_web_view_is_loading" webkit_web_view_is_loading ::
Ptr WebView ->
IO CInt
webViewIsLoading ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewIsLoading :: a -> m Bool
webViewIsLoading webView :: a
webView = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CInt
result <- Ptr WebView -> IO CInt
webkit_web_view_is_loading Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewIsLoadingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewIsLoadingMethodInfo a signature where
overloadedMethod = webViewIsLoading
#endif
foreign import ccall "webkit_web_view_is_playing_audio" webkit_web_view_is_playing_audio ::
Ptr WebView ->
IO CInt
webViewIsPlayingAudio ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewIsPlayingAudio :: a -> m Bool
webViewIsPlayingAudio webView :: a
webView = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WebViewEnterFullscreenCallback -> m Bool)
-> WebViewEnterFullscreenCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CInt
result <- Ptr WebView -> IO CInt
webkit_web_view_is_playing_audio Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewIsPlayingAudioMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.MethodInfo WebViewIsPlayingAudioMethodInfo a signature where
overloadedMethod = webViewIsPlayingAudio
#endif
foreign import ccall "webkit_web_view_load_alternate_html" webkit_web_view_load_alternate_html ::
Ptr WebView ->
CString ->
CString ->
CString ->
IO ()
webViewLoadAlternateHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> T.Text
-> Maybe (T.Text)
-> m ()
webViewLoadAlternateHtml :: a -> Text -> Text -> Maybe Text -> m ()
webViewLoadAlternateHtml webView :: a
webView content :: Text
content contentUri :: Text
contentUri baseUri :: Maybe Text
baseUri = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
content' <- Text -> IO CString
textToCString Text
content
CString
contentUri' <- Text -> IO CString
textToCString Text
contentUri
CString
maybeBaseUri <- case Maybe Text
baseUri of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jBaseUri :: Text
jBaseUri -> do
CString
jBaseUri' <- Text -> IO CString
textToCString Text
jBaseUri
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jBaseUri'
Ptr WebView -> CString -> CString -> CString -> IO ()
webkit_web_view_load_alternate_html Ptr WebView
webView' CString
content' CString
contentUri' CString
maybeBaseUri
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
content'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contentUri'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeBaseUri
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewLoadAlternateHtmlMethodInfo
instance (signature ~ (T.Text -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewLoadAlternateHtmlMethodInfo a signature where
overloadedMethod = webViewLoadAlternateHtml
#endif
foreign import ccall "webkit_web_view_load_bytes" webkit_web_view_load_bytes ::
Ptr WebView ->
Ptr GLib.Bytes.Bytes ->
CString ->
CString ->
CString ->
IO ()
webViewLoadBytes ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> GLib.Bytes.Bytes
-> Maybe (T.Text)
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m ()
webViewLoadBytes :: a -> Bytes -> Maybe Text -> Maybe Text -> Maybe Text -> m ()
webViewLoadBytes webView :: a
webView bytes :: Bytes
bytes mimeType :: Maybe Text
mimeType encoding :: Maybe Text
encoding baseUri :: Maybe Text
baseUri = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr Bytes
bytes' <- Bytes -> IO (Ptr Bytes)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Bytes
bytes
CString
maybeMimeType <- case Maybe Text
mimeType of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jMimeType :: Text
jMimeType -> do
CString
jMimeType' <- Text -> IO CString
textToCString Text
jMimeType
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jMimeType'
CString
maybeEncoding <- case Maybe Text
encoding of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jEncoding :: Text
jEncoding -> do
CString
jEncoding' <- Text -> IO CString
textToCString Text
jEncoding
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jEncoding'
CString
maybeBaseUri <- case Maybe Text
baseUri of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jBaseUri :: Text
jBaseUri -> do
CString
jBaseUri' <- Text -> IO CString
textToCString Text
jBaseUri
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jBaseUri'
Ptr WebView -> Ptr Bytes -> CString -> CString -> CString -> IO ()
webkit_web_view_load_bytes Ptr WebView
webView' Ptr Bytes
bytes' CString
maybeMimeType CString
maybeEncoding CString
maybeBaseUri
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bytes -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Bytes
bytes
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeMimeType
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeEncoding
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeBaseUri
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewLoadBytesMethodInfo
instance (signature ~ (GLib.Bytes.Bytes -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewLoadBytesMethodInfo a signature where
overloadedMethod = webViewLoadBytes
#endif
foreign import ccall "webkit_web_view_load_html" webkit_web_view_load_html ::
Ptr WebView ->
CString ->
CString ->
IO ()
webViewLoadHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> Maybe (T.Text)
-> m ()
webViewLoadHtml :: a -> Text -> Maybe Text -> m ()
webViewLoadHtml webView :: a
webView content :: Text
content baseUri :: Maybe Text
baseUri = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
content' <- Text -> IO CString
textToCString Text
content
CString
maybeBaseUri <- case Maybe Text
baseUri of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jBaseUri :: Text
jBaseUri -> do
CString
jBaseUri' <- Text -> IO CString
textToCString Text
jBaseUri
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jBaseUri'
Ptr WebView -> CString -> CString -> IO ()
webkit_web_view_load_html Ptr WebView
webView' CString
content' CString
maybeBaseUri
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
content'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeBaseUri
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewLoadHtmlMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewLoadHtmlMethodInfo a signature where
overloadedMethod = webViewLoadHtml
#endif
foreign import ccall "webkit_web_view_load_plain_text" webkit_web_view_load_plain_text ::
Ptr WebView ->
CString ->
IO ()
webViewLoadPlainText ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> m ()
webViewLoadPlainText :: a -> Text -> m ()
webViewLoadPlainText webView :: a
webView plainText :: Text
plainText = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
plainText' <- Text -> IO CString
textToCString Text
plainText
Ptr WebView -> CString -> IO ()
webkit_web_view_load_plain_text Ptr WebView
webView' CString
plainText'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
plainText'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewLoadPlainTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewLoadPlainTextMethodInfo a signature where
overloadedMethod = webViewLoadPlainText
#endif
foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request ::
Ptr WebView ->
Ptr WebKit2.URIRequest.URIRequest ->
IO ()
webViewLoadRequest ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.URIRequest.IsURIRequest b) =>
a
-> b
-> m ()
webViewLoadRequest :: a -> b -> m ()
webViewLoadRequest webView :: a
webView request :: b
request = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr URIRequest
request' <- b -> IO (Ptr URIRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
request
Ptr WebView -> Ptr URIRequest -> IO ()
webkit_web_view_load_request Ptr WebView
webView' Ptr URIRequest
request'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
request
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewLoadRequestMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebView a, WebKit2.URIRequest.IsURIRequest b) => O.MethodInfo WebViewLoadRequestMethodInfo a signature where
overloadedMethod = webViewLoadRequest
#endif
foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri ::
Ptr WebView ->
CString ->
IO ()
webViewLoadUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> T.Text
-> m ()
webViewLoadUri :: a -> Text -> m ()
webViewLoadUri webView :: a
webView uri :: Text
uri = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr WebView -> CString -> IO ()
webkit_web_view_load_uri Ptr WebView
webView' CString
uri'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uri'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewLoadUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewLoadUriMethodInfo a signature where
overloadedMethod = webViewLoadUri
#endif
foreign import ccall "webkit_web_view_reload" webkit_web_view_reload ::
Ptr WebView ->
IO ()
webViewReload ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ()
webViewReload :: a -> m ()
webViewReload webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebView -> IO ()
webkit_web_view_reload Ptr WebView
webView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewReloadMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewReloadMethodInfo a signature where
overloadedMethod = webViewReload
#endif
foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache ::
Ptr WebView ->
IO ()
webViewReloadBypassCache ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ()
webViewReloadBypassCache :: a -> m ()
webViewReloadBypassCache webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebView -> IO ()
webkit_web_view_reload_bypass_cache Ptr WebView
webView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewReloadBypassCacheMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewReloadBypassCacheMethodInfo a signature where
overloadedMethod = webViewReloadBypassCache
#endif
foreign import ccall "webkit_web_view_restore_session_state" webkit_web_view_restore_session_state ::
Ptr WebView ->
Ptr WebKit2.WebViewSessionState.WebViewSessionState ->
IO ()
webViewRestoreSessionState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> WebKit2.WebViewSessionState.WebViewSessionState
-> m ()
webViewRestoreSessionState :: a -> WebViewSessionState -> m ()
webViewRestoreSessionState webView :: a
webView state :: WebViewSessionState
state = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebViewSessionState
state' <- WebViewSessionState -> IO (Ptr WebViewSessionState)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr WebViewSessionState
state
Ptr WebView -> Ptr WebViewSessionState -> IO ()
webkit_web_view_restore_session_state Ptr WebView
webView' Ptr WebViewSessionState
state'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WebViewSessionState -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr WebViewSessionState
state
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewRestoreSessionStateMethodInfo
instance (signature ~ (WebKit2.WebViewSessionState.WebViewSessionState -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewRestoreSessionStateMethodInfo a signature where
overloadedMethod = webViewRestoreSessionState
#endif
foreign import ccall "webkit_web_view_run_javascript" webkit_web_view_run_javascript ::
Ptr WebView ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewRunJavascript ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewRunJavascript :: a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewRunJavascript webView :: a
webView script :: Text
script cancellable :: Maybe b
cancellable callback :: 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
script' <- Text -> IO CString
textToCString Text
script
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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
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 jCallback :: 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 WebView
-> CString
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_run_javascript Ptr WebView
webView' CString
script' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
script'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewRunJavascriptMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebViewRunJavascriptMethodInfo a signature where
overloadedMethod = webViewRunJavascript
#endif
foreign import ccall "webkit_web_view_run_javascript_finish" webkit_web_view_run_javascript_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2.JavascriptResult.JavascriptResult)
webViewRunJavascriptFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m WebKit2.JavascriptResult.JavascriptResult
webViewRunJavascriptFinish :: a -> b -> m JavascriptResult
webViewRunJavascriptFinish webView :: a
webView result_ :: b
result_ = IO JavascriptResult -> m JavascriptResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO JavascriptResult -> m JavascriptResult)
-> IO JavascriptResult -> m JavascriptResult
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO JavascriptResult -> IO () -> IO JavascriptResult
forall a b. IO a -> IO b -> IO a
onException (do
Ptr JavascriptResult
result <- (Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult))
-> (Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult)
forall a b. (a -> b) -> a -> b
$ Ptr WebView
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr JavascriptResult)
webkit_web_view_run_javascript_finish Ptr WebView
webView' Ptr AsyncResult
result_'
Text -> Ptr JavascriptResult -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewRunJavascriptFinish" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr JavascriptResult -> JavascriptResult
WebKit2.JavascriptResult.JavascriptResult) Ptr JavascriptResult
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
JavascriptResult -> IO JavascriptResult
forall (m :: * -> *) a. Monad m => a -> m a
return JavascriptResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewRunJavascriptFinishMethodInfo
instance (signature ~ (b -> m WebKit2.JavascriptResult.JavascriptResult), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebViewRunJavascriptFinishMethodInfo a signature where
overloadedMethod = webViewRunJavascriptFinish
#endif
foreign import ccall "webkit_web_view_run_javascript_from_gresource" webkit_web_view_run_javascript_from_gresource ::
Ptr WebView ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewRunJavascriptFromGresource ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewRunJavascriptFromGresource :: a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewRunJavascriptFromGresource webView :: a
webView resource :: Text
resource cancellable :: Maybe b
cancellable callback :: 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
resource' <- Text -> IO CString
textToCString Text
resource
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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
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 jCallback :: 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 WebView
-> CString
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_run_javascript_from_gresource Ptr WebView
webView' CString
resource' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
resource'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewRunJavascriptFromGresourceMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebViewRunJavascriptFromGresourceMethodInfo a signature where
overloadedMethod = webViewRunJavascriptFromGresource
#endif
foreign import ccall "webkit_web_view_run_javascript_from_gresource_finish" webkit_web_view_run_javascript_from_gresource_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2.JavascriptResult.JavascriptResult)
webViewRunJavascriptFromGresourceFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m WebKit2.JavascriptResult.JavascriptResult
webViewRunJavascriptFromGresourceFinish :: a -> b -> m JavascriptResult
webViewRunJavascriptFromGresourceFinish webView :: a
webView result_ :: b
result_ = IO JavascriptResult -> m JavascriptResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO JavascriptResult -> m JavascriptResult)
-> IO JavascriptResult -> m JavascriptResult
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO JavascriptResult -> IO () -> IO JavascriptResult
forall a b. IO a -> IO b -> IO a
onException (do
Ptr JavascriptResult
result <- (Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult))
-> (Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult)
forall a b. (a -> b) -> a -> b
$ Ptr WebView
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr JavascriptResult)
webkit_web_view_run_javascript_from_gresource_finish Ptr WebView
webView' Ptr AsyncResult
result_'
Text -> Ptr JavascriptResult -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewRunJavascriptFromGresourceFinish" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr JavascriptResult -> JavascriptResult
WebKit2.JavascriptResult.JavascriptResult) Ptr JavascriptResult
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
JavascriptResult -> IO JavascriptResult
forall (m :: * -> *) a. Monad m => a -> m a
return JavascriptResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewRunJavascriptFromGresourceFinishMethodInfo
instance (signature ~ (b -> m WebKit2.JavascriptResult.JavascriptResult), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebViewRunJavascriptFromGresourceFinishMethodInfo a signature where
overloadedMethod = webViewRunJavascriptFromGresourceFinish
#endif
foreign import ccall "webkit_web_view_run_javascript_in_world" webkit_web_view_run_javascript_in_world ::
Ptr WebView ->
CString ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewRunJavascriptInWorld ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewRunJavascriptInWorld :: a -> Text -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewRunJavascriptInWorld webView :: a
webView script :: Text
script worldName :: Text
worldName cancellable :: Maybe b
cancellable callback :: 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
script' <- Text -> IO CString
textToCString Text
script
CString
worldName' <- Text -> IO CString
textToCString Text
worldName
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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
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 jCallback :: 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 WebView
-> CString
-> CString
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_run_javascript_in_world Ptr WebView
webView' CString
script' CString
worldName' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
script'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
worldName'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewRunJavascriptInWorldMethodInfo
instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebViewRunJavascriptInWorldMethodInfo a signature where
overloadedMethod = webViewRunJavascriptInWorld
#endif
foreign import ccall "webkit_web_view_run_javascript_in_world_finish" webkit_web_view_run_javascript_in_world_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2.JavascriptResult.JavascriptResult)
webViewRunJavascriptInWorldFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m WebKit2.JavascriptResult.JavascriptResult
webViewRunJavascriptInWorldFinish :: a -> b -> m JavascriptResult
webViewRunJavascriptInWorldFinish webView :: a
webView result_ :: b
result_ = IO JavascriptResult -> m JavascriptResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO JavascriptResult -> m JavascriptResult)
-> IO JavascriptResult -> m JavascriptResult
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO JavascriptResult -> IO () -> IO JavascriptResult
forall a b. IO a -> IO b -> IO a
onException (do
Ptr JavascriptResult
result <- (Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult))
-> (Ptr (Ptr GError) -> IO (Ptr JavascriptResult))
-> IO (Ptr JavascriptResult)
forall a b. (a -> b) -> a -> b
$ Ptr WebView
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr JavascriptResult)
webkit_web_view_run_javascript_in_world_finish Ptr WebView
webView' Ptr AsyncResult
result_'
Text -> Ptr JavascriptResult -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewRunJavascriptInWorldFinish" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr JavascriptResult -> JavascriptResult
WebKit2.JavascriptResult.JavascriptResult) Ptr JavascriptResult
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
JavascriptResult -> IO JavascriptResult
forall (m :: * -> *) a. Monad m => a -> m a
return JavascriptResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewRunJavascriptInWorldFinishMethodInfo
instance (signature ~ (b -> m WebKit2.JavascriptResult.JavascriptResult), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebViewRunJavascriptInWorldFinishMethodInfo a signature where
overloadedMethod = webViewRunJavascriptInWorldFinish
#endif
foreign import ccall "webkit_web_view_save" webkit_web_view_save ::
Ptr WebView ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewSave ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>
a
-> WebKit2.Enums.SaveMode
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewSave :: a -> SaveMode -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewSave webView :: a
webView saveMode :: SaveMode
saveMode cancellable :: Maybe b
cancellable callback :: 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
let saveMode' :: CUInt
saveMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SaveMode -> Int) -> SaveMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SaveMode -> Int
forall a. Enum a => a -> Int
fromEnum) SaveMode
saveMode
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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
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 jCallback :: 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 WebView
-> CUInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_save Ptr WebView
webView' CUInt
saveMode' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSaveMethodInfo
instance (signature ~ (WebKit2.Enums.SaveMode -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebViewSaveMethodInfo a signature where
overloadedMethod = webViewSave
#endif
foreign import ccall "webkit_web_view_save_finish" webkit_web_view_save_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Gio.InputStream.InputStream)
webViewSaveFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.InputStream.InputStream
webViewSaveFinish :: a -> b -> m InputStream
webViewSaveFinish webView :: a
webView result_ :: b
result_ = IO InputStream -> m InputStream
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputStream -> m InputStream)
-> IO InputStream -> m InputStream
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO InputStream -> IO () -> IO InputStream
forall a b. IO a -> IO b -> IO a
onException (do
Ptr InputStream
result <- (Ptr (Ptr GError) -> IO (Ptr InputStream)) -> IO (Ptr InputStream)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr InputStream))
-> IO (Ptr InputStream))
-> (Ptr (Ptr GError) -> IO (Ptr InputStream))
-> IO (Ptr InputStream)
forall a b. (a -> b) -> a -> b
$ Ptr WebView
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr InputStream)
webkit_web_view_save_finish Ptr WebView
webView' Ptr AsyncResult
result_'
Text -> Ptr InputStream -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "webViewSaveFinish" Ptr InputStream
result
InputStream
result' <- ((ManagedPtr InputStream -> InputStream)
-> Ptr InputStream -> IO InputStream
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr InputStream -> InputStream
Gio.InputStream.InputStream) Ptr InputStream
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
InputStream -> IO InputStream
forall (m :: * -> *) a. Monad m => a -> m a
return InputStream
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewSaveFinishMethodInfo
instance (signature ~ (b -> m Gio.InputStream.InputStream), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebViewSaveFinishMethodInfo a signature where
overloadedMethod = webViewSaveFinish
#endif
foreign import ccall "webkit_web_view_save_to_file" webkit_web_view_save_to_file ::
Ptr WebView ->
Ptr Gio.File.File ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewSaveToFile ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.File.IsFile b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> WebKit2.Enums.SaveMode
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewSaveToFile :: a -> b -> SaveMode -> Maybe c -> Maybe AsyncReadyCallback -> m ()
webViewSaveToFile webView :: a
webView file :: b
file saveMode :: SaveMode
saveMode cancellable :: Maybe c
cancellable callback :: 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr File
file' <- b -> IO (Ptr File)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
file
let saveMode' :: CUInt
saveMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SaveMode -> Int) -> SaveMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SaveMode -> Int
forall a. Enum a => a -> Int
fromEnum) SaveMode
saveMode
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: 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
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 jCallback :: 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 WebView
-> Ptr File
-> CUInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_save_to_file Ptr WebView
webView' Ptr File
file' CUInt
saveMode' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
file
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 WebViewSaveToFileMethodInfo
instance (signature ~ (b -> WebKit2.Enums.SaveMode -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, Gio.File.IsFile b, Gio.Cancellable.IsCancellable c) => O.MethodInfo WebViewSaveToFileMethodInfo a signature where
overloadedMethod = webViewSaveToFile
#endif
foreign import ccall "webkit_web_view_save_to_file_finish" webkit_web_view_save_to_file_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
webViewSaveToFileFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
webViewSaveToFileFinish :: a -> b -> m ()
webViewSaveToFileFinish webView :: a
webView result_ :: b
result_ = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr WebView -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
webkit_web_view_save_to_file_finish Ptr WebView
webView' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewSaveToFileFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebViewSaveToFileFinishMethodInfo a signature where
overloadedMethod = webViewSaveToFileFinish
#endif
foreign import ccall "webkit_web_view_set_background_color" webkit_web_view_set_background_color ::
Ptr WebView ->
Ptr Gdk.RGBA.RGBA ->
IO ()
webViewSetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> Gdk.RGBA.RGBA
-> m ()
webViewSetBackgroundColor :: a -> RGBA -> m ()
webViewSetBackgroundColor webView :: a
webView rgba :: RGBA
rgba = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr RGBA
rgba' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
rgba
Ptr WebView -> Ptr RGBA -> IO ()
webkit_web_view_set_background_color Ptr WebView
webView' Ptr RGBA
rgba'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
rgba
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSetBackgroundColorMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewSetBackgroundColorMethodInfo a signature where
overloadedMethod = webViewSetBackgroundColor
#endif
foreign import ccall "webkit_web_view_set_custom_charset" webkit_web_view_set_custom_charset ::
Ptr WebView ->
CString ->
IO ()
webViewSetCustomCharset ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> Maybe (T.Text)
-> m ()
webViewSetCustomCharset :: a -> Maybe Text -> m ()
webViewSetCustomCharset webView :: a
webView charset :: Maybe Text
charset = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
CString
maybeCharset <- case Maybe Text
charset of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jCharset :: Text
jCharset -> do
CString
jCharset' <- Text -> IO CString
textToCString Text
jCharset
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCharset'
Ptr WebView -> CString -> IO ()
webkit_web_view_set_custom_charset Ptr WebView
webView' CString
maybeCharset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeCharset
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSetCustomCharsetMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewSetCustomCharsetMethodInfo a signature where
overloadedMethod = webViewSetCustomCharset
#endif
foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable ::
Ptr WebView ->
CInt ->
IO ()
webViewSetEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> Bool
-> m ()
webViewSetEditable :: a -> Bool -> m ()
webViewSetEditable webView :: a
webView editable :: Bool
editable = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
let editable' :: CInt
editable' = (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
editable
Ptr WebView -> CInt -> IO ()
webkit_web_view_set_editable Ptr WebView
webView' CInt
editable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSetEditableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewSetEditableMethodInfo a signature where
overloadedMethod = webViewSetEditable
#endif
foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings ::
Ptr WebView ->
Ptr WebKit2.Settings.Settings ->
IO ()
webViewSetSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.Settings.IsSettings b) =>
a
-> b
-> m ()
webViewSetSettings :: a -> b -> m ()
webViewSetSettings webView :: a
webView settings :: b
settings = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr Settings
settings' <- b -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
settings
Ptr WebView -> Ptr Settings -> IO ()
webkit_web_view_set_settings Ptr WebView
webView' Ptr Settings
settings'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSetSettingsMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebView a, WebKit2.Settings.IsSettings b) => O.MethodInfo WebViewSetSettingsMethodInfo a signature where
overloadedMethod = webViewSetSettings
#endif
foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level ::
Ptr WebView ->
CDouble ->
IO ()
webViewSetZoomLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> Double
-> m ()
webViewSetZoomLevel :: a -> Double -> m ()
webViewSetZoomLevel webView :: a
webView zoomLevel :: Double
zoomLevel = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
let zoomLevel' :: CDouble
zoomLevel' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
zoomLevel
Ptr WebView -> CDouble -> IO ()
webkit_web_view_set_zoom_level Ptr WebView
webView' CDouble
zoomLevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSetZoomLevelMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewSetZoomLevelMethodInfo a signature where
overloadedMethod = webViewSetZoomLevel
#endif
foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading ::
Ptr WebView ->
IO ()
webViewStopLoading ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ()
webViewStopLoading :: a -> m ()
webViewStopLoading webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebView -> IO ()
webkit_web_view_stop_loading Ptr WebView
webView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewStopLoadingMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewStopLoadingMethodInfo a signature where
overloadedMethod = webViewStopLoading
#endif
foreign import ccall "webkit_web_view_try_close" webkit_web_view_try_close ::
Ptr WebView ->
IO ()
webViewTryClose ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ()
webViewTryClose :: a -> m ()
webViewTryClose webView :: a
webView = 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 WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr WebView -> IO ()
webkit_web_view_try_close Ptr WebView
webView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewTryCloseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebView a) => O.MethodInfo WebViewTryCloseMethodInfo a signature where
overloadedMethod = webViewTryClose
#endif