{-# 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 ,
#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)
WebViewGetAutomationPresentationTypeMethodInfo,
#endif
webViewGetAutomationPresentationType ,
#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)
WebViewGetInputMethodContextMethodInfo ,
#endif
webViewGetInputMethodContext ,
#if defined(ENABLE_OVERLOADING)
WebViewGetInspectorMethodInfo ,
#endif
webViewGetInspector ,
#if defined(ENABLE_OVERLOADING)
WebViewGetIsMutedMethodInfo ,
#endif
webViewGetIsMuted ,
#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)
WebViewGetWebsitePoliciesMethodInfo ,
#endif
webViewGetWebsitePolicies ,
#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)
WebViewSendMessageToPageMethodInfo ,
#endif
webViewSendMessageToPage ,
#if defined(ENABLE_OVERLOADING)
WebViewSendMessageToPageFinishMethodInfo,
#endif
webViewSendMessageToPageFinish ,
#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)
WebViewSetInputMethodContextMethodInfo ,
#endif
webViewSetInputMethodContext ,
#if defined(ENABLE_OVERLOADING)
WebViewSetIsMutedMethodInfo ,
#endif
webViewSetIsMuted ,
#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)
WebViewAutomationPresentationTypePropertyInfo,
#endif
constructWebViewAutomationPresentationType,
getWebViewAutomationPresentationType ,
#if defined(ENABLE_OVERLOADING)
webViewAutomationPresentationType ,
#endif
#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)
WebViewIsMutedPropertyInfo ,
#endif
constructWebViewIsMuted ,
getWebViewIsMuted ,
setWebViewIsMuted ,
#if defined(ENABLE_OVERLOADING)
webViewIsMuted ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewIsPlayingAudioPropertyInfo ,
#endif
getWebViewIsPlayingAudio ,
#if defined(ENABLE_OVERLOADING)
WebViewPageIdPropertyInfo ,
#endif
getWebViewPageId ,
#if defined(ENABLE_OVERLOADING)
webViewPageId ,
#endif
#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)
WebViewWebsitePoliciesPropertyInfo ,
#endif
constructWebViewWebsitePolicies ,
getWebViewWebsitePolicies ,
#if defined(ENABLE_OVERLOADING)
webViewWebsitePolicies ,
#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_WebViewUserMessageReceivedCallback ,
WebViewUserMessageReceivedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewUserMessageReceivedSignalInfo ,
#endif
afterWebViewUserMessageReceived ,
genClosure_WebViewUserMessageReceived ,
mk_WebViewUserMessageReceivedCallback ,
noWebViewUserMessageReceivedCallback ,
onWebViewUserMessageReceived ,
wrap_WebViewUserMessageReceivedCallback ,
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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.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.InputMethodContext as WebKit2.InputMethodContext
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.UserMessage as WebKit2.UserMessage
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.WebsitePolicies as WebKit2.WebsitePolicies
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 (SP.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)
instance SP.ManagedPtrNewtype WebView where
toManagedPtr :: WebView -> ManagedPtr WebView
toManagedPtr (WebView ManagedPtr WebView
p) = ManagedPtr WebView
p
foreign import ccall "webkit_web_view_get_type"
c_webkit_web_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject WebView where
glibType :: IO GType
glibType = IO GType
c_webkit_web_view_get_type
instance B.Types.GObject WebView
class (SP.GObject o, O.IsDescendantOf WebView o) => IsWebView o
instance (SP.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 :: (MIO.MonadIO m, IsWebView o) => o -> m WebView
toWebView :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m WebView
toWebView = IO WebView -> m WebView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WebView -> WebView
WebView
instance B.GValue.IsGValue (Maybe WebView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_web_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe WebView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WebView
P.Nothing = Ptr GValue -> Ptr WebView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WebView
forall a. Ptr a
FP.nullPtr :: FP.Ptr WebView)
gvalueSet_ Ptr GValue
gv (P.Just WebView
obj) = WebView -> (Ptr WebView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebView
obj (Ptr GValue -> Ptr WebView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WebView)
gvalueGet_ Ptr GValue
gv = do
Ptr WebView
ptr <- Ptr GValue -> IO (Ptr WebView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WebView)
if Ptr WebView
ptr Ptr WebView -> Ptr WebView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WebView
forall a. Ptr a
FP.nullPtr
then WebView -> Maybe WebView
forall a. a -> Maybe a
P.Just (WebView -> Maybe WebView) -> IO WebView -> IO (Maybe WebView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe WebView -> IO (Maybe WebView)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebView
forall a. Maybe a
P.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 "sendMessageToPage" o = WebViewSendMessageToPageMethodInfo
ResolveWebViewMethod "sendMessageToPageFinish" o = WebViewSendMessageToPageFinishMethodInfo
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 "getAutomationPresentationType" o = WebViewGetAutomationPresentationTypeMethodInfo
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 "getInputMethodContext" o = WebViewGetInputMethodContextMethodInfo
ResolveWebViewMethod "getInspector" o = WebViewGetInspectorMethodInfo
ResolveWebViewMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveWebViewMethod "getIsMuted" o = WebViewGetIsMutedMethodInfo
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 "getWebsitePolicies" o = WebViewGetWebsitePoliciesMethodInfo
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 "setInputMethodContext" o = WebViewSetInputMethodContextMethodInfo
ResolveWebViewMethod "setIsMuted" o = WebViewSetIsMutedMethodInfo
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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveWebViewMethod t WebView, O.OverloadedMethod info WebView p, R.HasField t WebView p) => R.HasField t WebView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWebViewMethod t WebView, O.OverloadedMethodInfo info WebView) => OL.IsLabel t (O.MethodProxy info WebView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#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 :: forall (m :: * -> *).
MonadIO m =>
WebViewAuthenticateCallback
-> m (GClosure C_WebViewAuthenticateCallback)
genClosure_WebViewAuthenticate 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 WebViewAuthenticateCallback
_cb Ptr ()
_ Ptr AuthenticationRequest
request Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewAuthenticateCallback -> m SignalHandlerId
onWebViewAuthenticate a
obj 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 Text
"authenticate" FunPtr C_WebViewAuthenticateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewAuthenticate :: (IsWebView a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId
afterWebViewAuthenticate :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewAuthenticateCallback -> m SignalHandlerId
afterWebViewAuthenticate a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WebViewCloseCallback)
genClosure_WebViewClose 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWebViewClose :: (IsWebView a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId
onWebViewClose :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWebViewClose a
obj 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 Text
"close" FunPtr C_WebViewCloseCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewClose :: (IsWebView a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId
afterWebViewClose :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWebViewClose a
obj 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 Text
"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)
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
WebViewContextMenuCallback
_cb Ptr ()
_ Ptr ContextMenu
contextMenu Ptr Event
event Ptr HitTestResult
hitTestResult Ptr ()
_ = do
ContextMenu
contextMenu' <- ((ManagedPtr ContextMenu -> ContextMenu)
-> Ptr ContextMenu -> IO ContextMenu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ContextMenu -> ContextMenu
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' -> 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
a
obj 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 Text
"context-menu" FunPtr C_WebViewContextMenuCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewContextMenu :: (IsWebView a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId
a
obj 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 Text
"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)
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
IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWebViewContextMenuDismissed :: (IsWebView a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId
a
obj 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 Text
"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
a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewCreateCallback -> m (GClosure C_WebViewCreateCallback)
genClosure_WebViewCreate 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 WebViewCreateCallback
_cb Ptr ()
_ Ptr NavigationAction
navigationAction Ptr ()
_ = 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' -> 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewCreateCallback -> m SignalHandlerId
onWebViewCreate a
obj 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 Text
"create" FunPtr C_WebViewCreateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewCreate :: (IsWebView a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId
afterWebViewCreate :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewCreateCallback -> m SignalHandlerId
afterWebViewCreate a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewDecidePolicyCallback
-> m (GClosure C_WebViewDecidePolicyCallback)
genClosure_WebViewDecidePolicy 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 WebViewDecidePolicyCallback
_cb Ptr ()
_ Ptr PolicyDecision
decision CUInt
decisionType Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewDecidePolicyCallback -> m SignalHandlerId
onWebViewDecidePolicy a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewDecidePolicyCallback -> m SignalHandlerId
afterWebViewDecidePolicy a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewEnterFullscreenCallback
-> m (GClosure C_WebViewEnterFullscreenCallback)
genClosure_WebViewEnterFullscreen 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 WebViewEnterFullscreenCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewEnterFullscreen a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewEnterFullscreen a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewInsecureContentDetectedCallback
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewInsecureContentDetected 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 WebViewInsecureContentDetectedCallback
_cb Ptr ()
_ CUInt
event Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
onWebViewInsecureContentDetected a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
afterWebViewInsecureContentDetected a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewEnterFullscreenCallback
-> m (GClosure C_WebViewEnterFullscreenCallback)
genClosure_WebViewLeaveFullscreen 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 WebViewEnterFullscreenCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewLeaveFullscreen a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewLeaveFullscreen a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewLoadChangedCallback
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewLoadChanged 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 WebViewLoadChangedCallback
_cb Ptr ()
_ CUInt
loadEvent Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewLoadChangedCallback -> m SignalHandlerId
onWebViewLoadChanged a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewLoadChangedCallback -> m SignalHandlerId
afterWebViewLoadChanged a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewLoadFailedCallback
-> m (GClosure C_WebViewLoadFailedCallback)
genClosure_WebViewLoadFailed 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 WebViewLoadFailedCallback
_cb Ptr ()
_ CUInt
loadEvent CString
failingUri Ptr GError
error_ Ptr ()
_ = 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, GBoxed 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewLoadFailedCallback -> m SignalHandlerId
onWebViewLoadFailed a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewLoadFailedCallback -> m SignalHandlerId
afterWebViewLoadFailed a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewLoadFailedWithTlsErrorsCallback
-> m (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
genClosure_WebViewLoadFailedWithTlsErrors 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 WebViewLoadFailedWithTlsErrorsCallback
_cb Ptr ()
_ CString
failingUri Ptr TlsCertificate
certificate CUInt
errors Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
onWebViewLoadFailedWithTlsErrors a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
afterWebViewLoadFailedWithTlsErrors a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewMouseTargetChangedCallback
-> m (GClosure C_WebViewMouseTargetChangedCallback)
genClosure_WebViewMouseTargetChanged 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 WebViewMouseTargetChangedCallback
_cb Ptr ()
_ Ptr HitTestResult
hitTestResult Word32
modifiers Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
onWebViewMouseTargetChanged a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
afterWebViewMouseTargetChanged a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewPermissionRequestCallback
-> m (GClosure C_WebViewPermissionRequestCallback)
genClosure_WebViewPermissionRequest 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 WebViewPermissionRequestCallback
_cb Ptr ()
_ Ptr PermissionRequest
request Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewPermissionRequestCallback -> m SignalHandlerId
onWebViewPermissionRequest a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewPermissionRequestCallback -> m SignalHandlerId
afterWebViewPermissionRequest a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewPrintCallback -> m (GClosure C_WebViewPrintCallback)
genClosure_WebViewPrint 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 WebViewPrintCallback
_cb Ptr ()
_ Ptr PrintOperation
printOperation Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewPrintCallback -> m SignalHandlerId
onWebViewPrint a
obj 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 Text
"print" FunPtr C_WebViewPrintCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewPrint :: (IsWebView a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId
afterWebViewPrint :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewPrintCallback -> m SignalHandlerId
afterWebViewPrint a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WebViewCloseCallback)
genClosure_WebViewReadyToShow 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWebViewReadyToShow :: (IsWebView a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId
onWebViewReadyToShow :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWebViewReadyToShow a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWebViewReadyToShow a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewResourceLoadStartedCallback
-> m (GClosure C_WebViewResourceLoadStartedCallback)
genClosure_WebViewResourceLoadStarted 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 WebViewResourceLoadStartedCallback
_cb Ptr ()
_ Ptr WebResource
resource Ptr URIRequest
request Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
onWebViewResourceLoadStarted a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
afterWebViewResourceLoadStarted a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WebViewCloseCallback)
genClosure_WebViewRunAsModal 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWebViewRunAsModal :: (IsWebView a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId
onWebViewRunAsModal :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWebViewRunAsModal a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWebViewRunAsModal a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewRunColorChooserCallback
-> m (GClosure C_WebViewRunColorChooserCallback)
genClosure_WebViewRunColorChooser 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 WebViewRunColorChooserCallback
_cb Ptr ()
_ Ptr ColorChooserRequest
request Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewRunColorChooserCallback -> m SignalHandlerId
onWebViewRunColorChooser a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewRunColorChooserCallback -> m SignalHandlerId
afterWebViewRunColorChooser a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewRunFileChooserCallback
-> m (GClosure C_WebViewRunFileChooserCallback)
genClosure_WebViewRunFileChooser 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 WebViewRunFileChooserCallback
_cb Ptr ()
_ Ptr FileChooserRequest
request Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewRunFileChooserCallback -> m SignalHandlerId
onWebViewRunFileChooser a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewRunFileChooserCallback -> m SignalHandlerId
afterWebViewRunFileChooser a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewScriptDialogCallback
-> m (GClosure C_WebViewScriptDialogCallback)
genClosure_WebViewScriptDialog 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 WebViewScriptDialogCallback
_cb Ptr ()
_ Ptr ScriptDialog
dialog Ptr ()
_ = 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
$ \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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewScriptDialogCallback -> m SignalHandlerId
onWebViewScriptDialog a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewScriptDialogCallback -> m SignalHandlerId
afterWebViewScriptDialog a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewShowNotificationCallback
-> m (GClosure C_WebViewShowNotificationCallback)
genClosure_WebViewShowNotification 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 WebViewShowNotificationCallback
_cb Ptr ()
_ Ptr Notification
notification Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewShowNotificationCallback -> m SignalHandlerId
onWebViewShowNotification a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewShowNotificationCallback -> m SignalHandlerId
afterWebViewShowNotification a
obj 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 Text
"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)
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
WebViewShowOptionMenuCallback
_cb Ptr ()
_ Ptr OptionMenu
object Ptr Event
p0 Ptr Rectangle
p1 Ptr ()
_ = do
OptionMenu
object' <- ((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
object
(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
p0 ((Event -> IO CInt) -> IO CInt) -> (Event -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Event
p0' -> 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
p1 ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Rectangle
p1' -> do
Bool
result <- WebViewShowOptionMenuCallback
_cb OptionMenu
object' Event
p0' Rectangle
p1'
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
a
obj 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 Text
"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
a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewSubmitFormCallback
-> m (GClosure C_WebViewSubmitFormCallback)
genClosure_WebViewSubmitForm 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 WebViewSubmitFormCallback
_cb Ptr ()
_ Ptr FormSubmissionRequest
request Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewSubmitFormCallback -> m SignalHandlerId
onWebViewSubmitForm a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewSubmitFormCallback -> m SignalHandlerId
afterWebViewSubmitForm a
obj 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 Text
"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
type WebViewUserMessageReceivedCallback =
WebKit2.UserMessage.UserMessage
-> IO Bool
noWebViewUserMessageReceivedCallback :: Maybe WebViewUserMessageReceivedCallback
noWebViewUserMessageReceivedCallback :: Maybe WebViewUserMessageReceivedCallback
noWebViewUserMessageReceivedCallback = Maybe WebViewUserMessageReceivedCallback
forall a. Maybe a
Nothing
type C_WebViewUserMessageReceivedCallback =
Ptr () ->
Ptr WebKit2.UserMessage.UserMessage ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewUserMessageReceivedCallback :: C_WebViewUserMessageReceivedCallback -> IO (FunPtr C_WebViewUserMessageReceivedCallback)
genClosure_WebViewUserMessageReceived :: MonadIO m => WebViewUserMessageReceivedCallback -> m (GClosure C_WebViewUserMessageReceivedCallback)
genClosure_WebViewUserMessageReceived :: forall (m :: * -> *).
MonadIO m =>
WebViewUserMessageReceivedCallback
-> m (GClosure C_WebViewUserMessageReceivedCallback)
genClosure_WebViewUserMessageReceived WebViewUserMessageReceivedCallback
cb = IO (GClosure C_WebViewUserMessageReceivedCallback)
-> m (GClosure C_WebViewUserMessageReceivedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WebViewUserMessageReceivedCallback)
-> m (GClosure C_WebViewUserMessageReceivedCallback))
-> IO (GClosure C_WebViewUserMessageReceivedCallback)
-> m (GClosure C_WebViewUserMessageReceivedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WebViewUserMessageReceivedCallback
cb' = WebViewUserMessageReceivedCallback
-> C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback WebViewUserMessageReceivedCallback
cb
C_WebViewUserMessageReceivedCallback
-> IO (FunPtr C_WebViewUserMessageReceivedCallback)
mk_WebViewUserMessageReceivedCallback C_WebViewUserMessageReceivedCallback
cb' IO (FunPtr C_WebViewUserMessageReceivedCallback)
-> (FunPtr C_WebViewUserMessageReceivedCallback
-> IO (GClosure C_WebViewUserMessageReceivedCallback))
-> IO (GClosure C_WebViewUserMessageReceivedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WebViewUserMessageReceivedCallback
-> IO (GClosure C_WebViewUserMessageReceivedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WebViewUserMessageReceivedCallback ::
WebViewUserMessageReceivedCallback ->
C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback :: WebViewUserMessageReceivedCallback
-> C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback WebViewUserMessageReceivedCallback
_cb Ptr ()
_ Ptr UserMessage
message Ptr ()
_ = do
UserMessage
message' <- ((ManagedPtr UserMessage -> UserMessage)
-> Ptr UserMessage -> IO UserMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr UserMessage -> UserMessage
WebKit2.UserMessage.UserMessage) Ptr UserMessage
message
Bool
result <- WebViewUserMessageReceivedCallback
_cb UserMessage
message'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewUserMessageReceived :: (IsWebView a, MonadIO m) => a -> WebViewUserMessageReceivedCallback -> m SignalHandlerId
onWebViewUserMessageReceived :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewUserMessageReceivedCallback -> m SignalHandlerId
onWebViewUserMessageReceived a
obj WebViewUserMessageReceivedCallback
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_WebViewUserMessageReceivedCallback
cb' = WebViewUserMessageReceivedCallback
-> C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback WebViewUserMessageReceivedCallback
cb
FunPtr C_WebViewUserMessageReceivedCallback
cb'' <- C_WebViewUserMessageReceivedCallback
-> IO (FunPtr C_WebViewUserMessageReceivedCallback)
mk_WebViewUserMessageReceivedCallback C_WebViewUserMessageReceivedCallback
cb'
a
-> Text
-> FunPtr C_WebViewUserMessageReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"user-message-received" FunPtr C_WebViewUserMessageReceivedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewUserMessageReceived :: (IsWebView a, MonadIO m) => a -> WebViewUserMessageReceivedCallback -> m SignalHandlerId
afterWebViewUserMessageReceived :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewUserMessageReceivedCallback -> m SignalHandlerId
afterWebViewUserMessageReceived a
obj WebViewUserMessageReceivedCallback
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_WebViewUserMessageReceivedCallback
cb' = WebViewUserMessageReceivedCallback
-> C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback WebViewUserMessageReceivedCallback
cb
FunPtr C_WebViewUserMessageReceivedCallback
cb'' <- C_WebViewUserMessageReceivedCallback
-> IO (FunPtr C_WebViewUserMessageReceivedCallback)
mk_WebViewUserMessageReceivedCallback C_WebViewUserMessageReceivedCallback
cb'
a
-> Text
-> FunPtr C_WebViewUserMessageReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"user-message-received" FunPtr C_WebViewUserMessageReceivedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WebViewUserMessageReceivedSignalInfo
instance SignalInfo WebViewUserMessageReceivedSignalInfo where
type HaskellCallbackType WebViewUserMessageReceivedSignalInfo = WebViewUserMessageReceivedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WebViewUserMessageReceivedCallback cb
cb'' <- mk_WebViewUserMessageReceivedCallback cb'
connectSignalFunPtr obj "user-message-received" cb'' connectMode detail
#endif
{-# DEPRECATED WebViewWebProcessCrashedCallback ["(Since version 2.20)","Use WebKitWebView[webProcessTerminated](#g: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 :: forall (m :: * -> *).
MonadIO m =>
WebViewEnterFullscreenCallback
-> m (GClosure C_WebViewEnterFullscreenCallback)
genClosure_WebViewWebProcessCrashed 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 WebViewEnterFullscreenCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewWebProcessCrashed a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewWebProcessCrashed a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
WebViewWebProcessTerminatedCallback
-> m (GClosure C_WebViewInsecureContentDetectedCallback)
genClosure_WebViewWebProcessTerminated 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 WebViewWebProcessTerminatedCallback
_cb Ptr ()
_ CUInt
reason Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewWebProcessTerminatedCallback -> m SignalHandlerId
onWebViewWebProcessTerminated a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> WebViewWebProcessTerminatedCallback -> m SignalHandlerId
afterWebViewWebProcessTerminated a
obj 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 Text
"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
getWebViewAutomationPresentationType :: (MonadIO m, IsWebView o) => o -> m WebKit2.Enums.AutomationBrowsingContextPresentation
getWebViewAutomationPresentationType :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m AutomationBrowsingContextPresentation
getWebViewAutomationPresentationType o
obj = IO AutomationBrowsingContextPresentation
-> m AutomationBrowsingContextPresentation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AutomationBrowsingContextPresentation
-> m AutomationBrowsingContextPresentation)
-> IO AutomationBrowsingContextPresentation
-> m AutomationBrowsingContextPresentation
forall a b. (a -> b) -> a -> b
$ o -> String -> IO AutomationBrowsingContextPresentation
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"automation-presentation-type"
constructWebViewAutomationPresentationType :: (IsWebView o, MIO.MonadIO m) => WebKit2.Enums.AutomationBrowsingContextPresentation -> m (GValueConstruct o)
constructWebViewAutomationPresentationType :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
AutomationBrowsingContextPresentation -> m (GValueConstruct o)
constructWebViewAutomationPresentationType AutomationBrowsingContextPresentation
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String
-> AutomationBrowsingContextPresentation -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"automation-presentation-type" AutomationBrowsingContextPresentation
val
#if defined(ENABLE_OVERLOADING)
data WebViewAutomationPresentationTypePropertyInfo
instance AttrInfo WebViewAutomationPresentationTypePropertyInfo where
type AttrAllowedOps WebViewAutomationPresentationTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewAutomationPresentationTypePropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewAutomationPresentationTypePropertyInfo = (~) WebKit2.Enums.AutomationBrowsingContextPresentation
type AttrTransferTypeConstraint WebViewAutomationPresentationTypePropertyInfo = (~) WebKit2.Enums.AutomationBrowsingContextPresentation
type AttrTransferType WebViewAutomationPresentationTypePropertyInfo = WebKit2.Enums.AutomationBrowsingContextPresentation
type AttrGetType WebViewAutomationPresentationTypePropertyInfo = WebKit2.Enums.AutomationBrowsingContextPresentation
type AttrLabel WebViewAutomationPresentationTypePropertyInfo = "automation-presentation-type"
type AttrOrigin WebViewAutomationPresentationTypePropertyInfo = WebView
attrGet = getWebViewAutomationPresentationType
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebViewAutomationPresentationType
attrClear = undefined
#endif
getWebViewEditable :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewEditable :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewEditable o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"editable"
setWebViewEditable :: (MonadIO m, IsWebView o) => o -> Bool -> m ()
setWebViewEditable :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> Bool -> m ()
setWebViewEditable o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"editable" Bool
val
constructWebViewEditable :: (IsWebView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWebViewEditable :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWebViewEditable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Double
getWebViewEstimatedLoadProgress o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m (Ptr ())
getWebViewFavicon o
obj = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsControlledByAutomation o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"is-controlled-by-automation"
constructWebViewIsControlledByAutomation :: (IsWebView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWebViewIsControlledByAutomation :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWebViewIsControlledByAutomation Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsEphemeral o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"is-ephemeral"
constructWebViewIsEphemeral :: (IsWebView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWebViewIsEphemeral :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWebViewIsEphemeral Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsLoading o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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
getWebViewIsMuted :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsMuted :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsMuted o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"is-muted"
setWebViewIsMuted :: (MonadIO m, IsWebView o) => o -> Bool -> m ()
setWebViewIsMuted :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> Bool -> m ()
setWebViewIsMuted o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"is-muted" Bool
val
constructWebViewIsMuted :: (IsWebView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWebViewIsMuted :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWebViewIsMuted Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"is-muted" Bool
val
#if defined(ENABLE_OVERLOADING)
data WebViewIsMutedPropertyInfo
instance AttrInfo WebViewIsMutedPropertyInfo where
type AttrAllowedOps WebViewIsMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewIsMutedPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewIsMutedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WebViewIsMutedPropertyInfo = (~) Bool
type AttrTransferType WebViewIsMutedPropertyInfo = Bool
type AttrGetType WebViewIsMutedPropertyInfo = Bool
type AttrLabel WebViewIsMutedPropertyInfo = "is-muted"
type AttrOrigin WebViewIsMutedPropertyInfo = WebView
attrGet = getWebViewIsMuted
attrSet = setWebViewIsMuted
attrTransfer _ v = do
return v
attrConstruct = constructWebViewIsMuted
attrClear = undefined
#endif
getWebViewIsPlayingAudio :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsPlayingAudio :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsPlayingAudio o
obj = WebViewEnterFullscreenCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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
getWebViewPageId :: (MonadIO m, IsWebView o) => o -> m Word64
getWebViewPageId :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Word64
getWebViewPageId o
obj = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"page-id"
#if defined(ENABLE_OVERLOADING)
data WebViewPageIdPropertyInfo
instance AttrInfo WebViewPageIdPropertyInfo where
type AttrAllowedOps WebViewPageIdPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebViewPageIdPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewPageIdPropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewPageIdPropertyInfo = (~) ()
type AttrTransferType WebViewPageIdPropertyInfo = ()
type AttrGetType WebViewPageIdPropertyInfo = Word64
type AttrLabel WebViewPageIdPropertyInfo = "page-id"
type AttrOrigin WebViewPageIdPropertyInfo = WebView
attrGet = getWebViewPageId
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
constructWebViewRelatedView :: (IsWebView o, MIO.MonadIO m, IsWebView a) => a -> m (GValueConstruct o)
constructWebViewRelatedView :: forall o (m :: * -> *) a.
(IsWebView o, MonadIO m, IsWebView a) =>
a -> m (GValueConstruct o)
constructWebViewRelatedView a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"related-view" (a -> Maybe a
forall a. a -> Maybe a
P.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 :: forall (m :: * -> *) o a.
(MonadIO m, IsWebView o, IsSettings a) =>
o -> a -> m ()
setWebViewSettings o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"settings" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWebViewSettings :: (IsWebView o, MIO.MonadIO m, WebKit2.Settings.IsSettings a) => a -> m (GValueConstruct o)
constructWebViewSettings :: forall o (m :: * -> *) a.
(IsWebView o, MonadIO m, IsSettings a) =>
a -> m (GValueConstruct o)
constructWebViewSettings a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"settings" (a -> Maybe a
forall a. a -> Maybe a
P.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 :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m (Maybe Text)
getWebViewTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"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 :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m (Maybe Text)
getWebViewUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"uri"
#if defined(ENABLE_OVERLOADING)
data 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 :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m UserContentManager
getWebViewUserContentManager o
obj = IO UserContentManager -> m UserContentManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"user-content-manager" ManagedPtr UserContentManager -> UserContentManager
WebKit2.UserContentManager.UserContentManager
constructWebViewUserContentManager :: (IsWebView o, MIO.MonadIO m, WebKit2.UserContentManager.IsUserContentManager a) => a -> m (GValueConstruct o)
constructWebViewUserContentManager :: forall o (m :: * -> *) a.
(IsWebView o, MonadIO m, IsUserContentManager a) =>
a -> m (GValueConstruct o)
constructWebViewUserContentManager a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"user-content-manager" (a -> Maybe a
forall a. a -> Maybe a
P.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 :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m (Maybe WebContext)
getWebViewWebContext o
obj = IO (Maybe WebContext) -> m (Maybe WebContext)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"web-context" ManagedPtr WebContext -> WebContext
WebKit2.WebContext.WebContext
constructWebViewWebContext :: (IsWebView o, MIO.MonadIO m, WebKit2.WebContext.IsWebContext a) => a -> m (GValueConstruct o)
constructWebViewWebContext :: forall o (m :: * -> *) a.
(IsWebView o, MonadIO m, IsWebContext a) =>
a -> m (GValueConstruct o)
constructWebViewWebContext a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"web-context" (a -> Maybe a
forall a. a -> Maybe a
P.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
getWebViewWebsitePolicies :: (MonadIO m, IsWebView o) => o -> m WebKit2.WebsitePolicies.WebsitePolicies
getWebViewWebsitePolicies :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m WebsitePolicies
getWebViewWebsitePolicies o
obj = IO WebsitePolicies -> m WebsitePolicies
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WebsitePolicies -> m WebsitePolicies)
-> IO WebsitePolicies -> m WebsitePolicies
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe WebsitePolicies) -> IO WebsitePolicies
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getWebViewWebsitePolicies" (IO (Maybe WebsitePolicies) -> IO WebsitePolicies)
-> IO (Maybe WebsitePolicies) -> IO WebsitePolicies
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr WebsitePolicies -> WebsitePolicies)
-> IO (Maybe WebsitePolicies)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"website-policies" ManagedPtr WebsitePolicies -> WebsitePolicies
WebKit2.WebsitePolicies.WebsitePolicies
constructWebViewWebsitePolicies :: (IsWebView o, MIO.MonadIO m, WebKit2.WebsitePolicies.IsWebsitePolicies a) => a -> m (GValueConstruct o)
constructWebViewWebsitePolicies :: forall o (m :: * -> *) a.
(IsWebView o, MonadIO m, IsWebsitePolicies a) =>
a -> m (GValueConstruct o)
constructWebViewWebsitePolicies a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"website-policies" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data WebViewWebsitePoliciesPropertyInfo
instance AttrInfo WebViewWebsitePoliciesPropertyInfo where
type AttrAllowedOps WebViewWebsitePoliciesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebViewWebsitePoliciesPropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewWebsitePoliciesPropertyInfo = WebKit2.WebsitePolicies.IsWebsitePolicies
type AttrTransferTypeConstraint WebViewWebsitePoliciesPropertyInfo = WebKit2.WebsitePolicies.IsWebsitePolicies
type AttrTransferType WebViewWebsitePoliciesPropertyInfo = WebKit2.WebsitePolicies.WebsitePolicies
type AttrGetType WebViewWebsitePoliciesPropertyInfo = WebKit2.WebsitePolicies.WebsitePolicies
type AttrLabel WebViewWebsitePoliciesPropertyInfo = "website-policies"
type AttrOrigin WebViewWebsitePoliciesPropertyInfo = WebView
attrGet = getWebViewWebsitePolicies
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo WebKit2.WebsitePolicies.WebsitePolicies v
attrConstruct = constructWebViewWebsitePolicies
attrClear = undefined
#endif
getWebViewZoomLevel :: (MonadIO m, IsWebView o) => o -> m Double
getWebViewZoomLevel :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Double
getWebViewZoomLevel o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"zoom-level"
setWebViewZoomLevel :: (MonadIO m, IsWebView o) => o -> Double -> m ()
setWebViewZoomLevel :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> Double -> m ()
setWebViewZoomLevel o
obj Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"zoom-level" Double
val
constructWebViewZoomLevel :: (IsWebView o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructWebViewZoomLevel :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructWebViewZoomLevel Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"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), '("automationPresentationType", WebViewAutomationPresentationTypePropertyInfo), '("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), '("isMuted", WebViewIsMutedPropertyInfo), '("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), '("pageId", WebViewPageIdPropertyInfo), '("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), '("websitePolicies", WebViewWebsitePoliciesPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("zoomLevel", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
webViewAutomationPresentationType :: AttrLabelProxy "automationPresentationType"
webViewAutomationPresentationType = AttrLabelProxy
webViewEditable :: AttrLabelProxy "editable"
webViewEditable = AttrLabelProxy
webViewEstimatedLoadProgress :: AttrLabelProxy "estimatedLoadProgress"
webViewEstimatedLoadProgress = AttrLabelProxy
webViewFavicon :: AttrLabelProxy "favicon"
webViewFavicon = AttrLabelProxy
webViewIsMuted :: AttrLabelProxy "isMuted"
webViewIsMuted = AttrLabelProxy
webViewPageId :: AttrLabelProxy "pageId"
webViewPageId = 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
webViewWebsitePolicies :: AttrLabelProxy "websitePolicies"
webViewWebsitePolicies = 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), '("userMessageReceived", WebViewUserMessageReceivedSignalInfo), '("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 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebContext a) =>
a -> m WebView
webViewNewWithContext 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m WebView
webViewNewWithRelatedView 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettings a) =>
a -> m WebView
webViewNewWithSettings 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> m WebView
webViewNewWithUserContentManager 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 Text
"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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsCancellable b) =>
a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewCanExecuteEditingCommand a
webView Text
command Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just 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
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr 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.OverloadedMethod WebViewCanExecuteEditingCommandMethodInfo a signature where
overloadedMethod = webViewCanExecuteEditingCommand
instance O.OverloadedMethodInfo WebViewCanExecuteEditingCommandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m ()
webViewCanExecuteEditingCommandFinish a
webView 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.OverloadedMethod WebViewCanExecuteEditingCommandFinishMethodInfo a signature where
overloadedMethod = webViewCanExecuteEditingCommandFinish
instance O.OverloadedMethodInfo WebViewCanExecuteEditingCommandFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommandFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewCanGoBack 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
/= CInt
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.OverloadedMethod WebViewCanGoBackMethodInfo a signature where
overloadedMethod = webViewCanGoBack
instance O.OverloadedMethodInfo WebViewCanGoBackMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewCanGoBack",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewCanGoForward 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
/= CInt
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.OverloadedMethod WebViewCanGoForwardMethodInfo a signature where
overloadedMethod = webViewCanGoForward
instance O.OverloadedMethodInfo WebViewCanGoForwardMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewCanGoForward",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> m Bool
webViewCanShowMimeType a
webView 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
/= CInt
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.OverloadedMethod WebViewCanShowMimeTypeMethodInfo a signature where
overloadedMethod = webViewCanShowMimeType
instance O.OverloadedMethodInfo WebViewCanShowMimeTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewCanShowMimeType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> m Download
webViewDownloadUri a
webView 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 Text
"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.OverloadedMethod WebViewDownloadUriMethodInfo a signature where
overloadedMethod = webViewDownloadUri
instance O.OverloadedMethodInfo WebViewDownloadUriMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewDownloadUri",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> m ()
webViewExecuteEditingCommand a
webView 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.OverloadedMethod WebViewExecuteEditingCommandMethodInfo a signature where
overloadedMethod = webViewExecuteEditingCommand
instance O.OverloadedMethodInfo WebViewExecuteEditingCommandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewExecuteEditingCommand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> Text -> m ()
webViewExecuteEditingCommandWithArgument a
webView Text
command 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.OverloadedMethod WebViewExecuteEditingCommandWithArgumentMethodInfo a signature where
overloadedMethod = webViewExecuteEditingCommandWithArgument
instance O.OverloadedMethodInfo WebViewExecuteEditingCommandWithArgumentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewExecuteEditingCommandWithArgument",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewExecuteEditingCommandWithArgument"
}
#endif
foreign import ccall "webkit_web_view_get_automation_presentation_type" webkit_web_view_get_automation_presentation_type ::
Ptr WebView ->
IO CUInt
webViewGetAutomationPresentationType ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.Enums.AutomationBrowsingContextPresentation
webViewGetAutomationPresentationType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m AutomationBrowsingContextPresentation
webViewGetAutomationPresentationType a
webView = IO AutomationBrowsingContextPresentation
-> m AutomationBrowsingContextPresentation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AutomationBrowsingContextPresentation
-> m AutomationBrowsingContextPresentation)
-> IO AutomationBrowsingContextPresentation
-> m AutomationBrowsingContextPresentation
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
CUInt
result <- Ptr WebView -> IO CUInt
webkit_web_view_get_automation_presentation_type Ptr WebView
webView'
let result' :: AutomationBrowsingContextPresentation
result' = (Int -> AutomationBrowsingContextPresentation
forall a. Enum a => Int -> a
toEnum (Int -> AutomationBrowsingContextPresentation)
-> (CUInt -> Int) -> CUInt -> AutomationBrowsingContextPresentation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
AutomationBrowsingContextPresentation
-> IO AutomationBrowsingContextPresentation
forall (m :: * -> *) a. Monad m => a -> m a
return AutomationBrowsingContextPresentation
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetAutomationPresentationTypeMethodInfo
instance (signature ~ (m WebKit2.Enums.AutomationBrowsingContextPresentation), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetAutomationPresentationTypeMethodInfo a signature where
overloadedMethod = webViewGetAutomationPresentationType
instance O.OverloadedMethodInfo WebViewGetAutomationPresentationTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetAutomationPresentationType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetAutomationPresentationType"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m BackForwardList
webViewGetBackForwardList 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 Text
"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.OverloadedMethod WebViewGetBackForwardListMethodInfo a signature where
overloadedMethod = webViewGetBackForwardList
instance O.OverloadedMethodInfo WebViewGetBackForwardListMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetBackForwardList",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m RGBA
webViewGetBackgroundColor 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. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
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, GBoxed 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.OverloadedMethod WebViewGetBackgroundColorMethodInfo a signature where
overloadedMethod = webViewGetBackgroundColor
instance O.OverloadedMethodInfo WebViewGetBackgroundColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetBackgroundColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m WebContext
webViewGetContext 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 Text
"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.OverloadedMethod WebViewGetContextMethodInfo a signature where
overloadedMethod = webViewGetContext
instance O.OverloadedMethodInfo WebViewGetContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m (Maybe Text)
webViewGetCustomCharset 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
$ \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.OverloadedMethod WebViewGetCustomCharsetMethodInfo a signature where
overloadedMethod = webViewGetCustomCharset
instance O.OverloadedMethodInfo WebViewGetCustomCharsetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetCustomCharset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m EditorState
webViewGetEditorState 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 Text
"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.OverloadedMethod WebViewGetEditorStateMethodInfo a signature where
overloadedMethod = webViewGetEditorState
instance O.OverloadedMethodInfo WebViewGetEditorStateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetEditorState",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Double
webViewGetEstimatedLoadProgress 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.OverloadedMethod WebViewGetEstimatedLoadProgressMethodInfo a signature where
overloadedMethod = webViewGetEstimatedLoadProgress
instance O.OverloadedMethodInfo WebViewGetEstimatedLoadProgressMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetEstimatedLoadProgress",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m (Maybe Surface)
webViewGetFavicon 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
$ \Ptr Surface
result' -> do
Surface
result'' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod WebViewGetFaviconMethodInfo a signature where
overloadedMethod = webViewGetFavicon
instance O.OverloadedMethodInfo WebViewGetFaviconMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetFavicon",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m FindController
webViewGetFindController 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 Text
"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.OverloadedMethod WebViewGetFindControllerMethodInfo a signature where
overloadedMethod = webViewGetFindController
instance O.OverloadedMethodInfo WebViewGetFindControllerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetFindController",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetFindController"
}
#endif
foreign import ccall "webkit_web_view_get_input_method_context" webkit_web_view_get_input_method_context ::
Ptr WebView ->
IO (Ptr WebKit2.InputMethodContext.InputMethodContext)
webViewGetInputMethodContext ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m (Maybe WebKit2.InputMethodContext.InputMethodContext)
webViewGetInputMethodContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m (Maybe InputMethodContext)
webViewGetInputMethodContext a
webView = IO (Maybe InputMethodContext) -> m (Maybe InputMethodContext)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe InputMethodContext) -> m (Maybe InputMethodContext))
-> IO (Maybe InputMethodContext) -> m (Maybe InputMethodContext)
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 InputMethodContext
result <- Ptr WebView -> IO (Ptr InputMethodContext)
webkit_web_view_get_input_method_context Ptr WebView
webView'
Maybe InputMethodContext
maybeResult <- Ptr InputMethodContext
-> (Ptr InputMethodContext -> IO InputMethodContext)
-> IO (Maybe InputMethodContext)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr InputMethodContext
result ((Ptr InputMethodContext -> IO InputMethodContext)
-> IO (Maybe InputMethodContext))
-> (Ptr InputMethodContext -> IO InputMethodContext)
-> IO (Maybe InputMethodContext)
forall a b. (a -> b) -> a -> b
$ \Ptr InputMethodContext
result' -> do
InputMethodContext
result'' <- ((ManagedPtr InputMethodContext -> InputMethodContext)
-> Ptr InputMethodContext -> IO InputMethodContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr InputMethodContext -> InputMethodContext
WebKit2.InputMethodContext.InputMethodContext) Ptr InputMethodContext
result'
InputMethodContext -> IO InputMethodContext
forall (m :: * -> *) a. Monad m => a -> m a
return InputMethodContext
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Maybe InputMethodContext -> IO (Maybe InputMethodContext)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe InputMethodContext
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebViewGetInputMethodContextMethodInfo
instance (signature ~ (m (Maybe WebKit2.InputMethodContext.InputMethodContext)), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetInputMethodContextMethodInfo a signature where
overloadedMethod = webViewGetInputMethodContext
instance O.OverloadedMethodInfo WebViewGetInputMethodContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetInputMethodContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetInputMethodContext"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m WebInspector
webViewGetInspector 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 Text
"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.OverloadedMethod WebViewGetInspectorMethodInfo a signature where
overloadedMethod = webViewGetInspector
instance O.OverloadedMethodInfo WebViewGetInspectorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetInspector",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetInspector"
}
#endif
foreign import ccall "webkit_web_view_get_is_muted" webkit_web_view_get_is_muted ::
Ptr WebView ->
IO CInt
webViewGetIsMuted ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewGetIsMuted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewGetIsMuted 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_get_is_muted Ptr WebView
webView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
Bool -> WebViewEnterFullscreenCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetIsMutedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetIsMutedMethodInfo a signature where
overloadedMethod = webViewGetIsMuted
instance O.OverloadedMethodInfo WebViewGetIsMutedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetIsMuted",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetIsMuted"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m (Maybe WebResource)
webViewGetMainResource 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
$ \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.OverloadedMethod WebViewGetMainResourceMethodInfo a signature where
overloadedMethod = webViewGetMainResource
instance O.OverloadedMethodInfo WebViewGetMainResourceMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetMainResource",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Word64
webViewGetPageId 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.OverloadedMethod WebViewGetPageIdMethodInfo a signature where
overloadedMethod = webViewGetPageId
instance O.OverloadedMethodInfo WebViewGetPageIdMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetPageId",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m WebViewSessionState
webViewGetSessionState 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 Text
"webViewGetSessionState" Ptr WebViewSessionState
result
WebViewSessionState
result' <- ((ManagedPtr WebViewSessionState -> WebViewSessionState)
-> Ptr WebViewSessionState -> IO WebViewSessionState
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod WebViewGetSessionStateMethodInfo a signature where
overloadedMethod = webViewGetSessionState
instance O.OverloadedMethodInfo WebViewGetSessionStateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetSessionState",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Settings
webViewGetSettings 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 Text
"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.OverloadedMethod WebViewGetSettingsMethodInfo a signature where
overloadedMethod = webViewGetSettings
instance O.OverloadedMethodInfo WebViewGetSettingsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetSettings",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsCancellable b) =>
a
-> SnapshotRegion
-> [SnapshotOptions]
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
webViewGetSnapshot a
webView SnapshotRegion
region [SnapshotOptions]
options Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just 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
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr 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.OverloadedMethod WebViewGetSnapshotMethodInfo a signature where
overloadedMethod = webViewGetSnapshot
instance O.OverloadedMethodInfo WebViewGetSnapshotMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetSnapshot",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m Surface
webViewGetSnapshotFinish a
webView 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 Text
"webViewGetSnapshotFinish" Ptr Surface
result
Surface
result' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod WebViewGetSnapshotFinishMethodInfo a signature where
overloadedMethod = webViewGetSnapshotFinish
instance O.OverloadedMethodInfo WebViewGetSnapshotFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetSnapshotFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m (Maybe Text)
webViewGetTitle 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
$ \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.OverloadedMethod WebViewGetTitleMethodInfo a signature where
overloadedMethod = webViewGetTitle
instance O.OverloadedMethodInfo WebViewGetTitleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetTitle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m (Bool, TlsCertificate, [TlsCertificateFlags])
webViewGetTlsInfo 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)
callocMem :: 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
/= CInt
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.OverloadedMethod WebViewGetTlsInfoMethodInfo a signature where
overloadedMethod = webViewGetTlsInfo
instance O.OverloadedMethodInfo WebViewGetTlsInfoMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetTlsInfo",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m (Maybe Text)
webViewGetUri 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
$ \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.OverloadedMethod WebViewGetUriMethodInfo a signature where
overloadedMethod = webViewGetUri
instance O.OverloadedMethodInfo WebViewGetUriMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetUri",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m UserContentManager
webViewGetUserContentManager 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 Text
"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.OverloadedMethod WebViewGetUserContentManagerMethodInfo a signature where
overloadedMethod = webViewGetUserContentManager
instance O.OverloadedMethodInfo WebViewGetUserContentManagerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetUserContentManager",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m WebsiteDataManager
webViewGetWebsiteDataManager 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 Text
"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.OverloadedMethod WebViewGetWebsiteDataManagerMethodInfo a signature where
overloadedMethod = webViewGetWebsiteDataManager
instance O.OverloadedMethodInfo WebViewGetWebsiteDataManagerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetWebsiteDataManager",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetWebsiteDataManager"
}
#endif
foreign import ccall "webkit_web_view_get_website_policies" webkit_web_view_get_website_policies ::
Ptr WebView ->
IO (Ptr WebKit2.WebsitePolicies.WebsitePolicies)
webViewGetWebsitePolicies ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.WebsitePolicies.WebsitePolicies
webViewGetWebsitePolicies :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m WebsitePolicies
webViewGetWebsitePolicies a
webView = IO WebsitePolicies -> m WebsitePolicies
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebsitePolicies -> m WebsitePolicies)
-> IO WebsitePolicies -> m WebsitePolicies
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 WebsitePolicies
result <- Ptr WebView -> IO (Ptr WebsitePolicies)
webkit_web_view_get_website_policies Ptr WebView
webView'
Text -> Ptr WebsitePolicies -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webViewGetWebsitePolicies" Ptr WebsitePolicies
result
WebsitePolicies
result' <- ((ManagedPtr WebsitePolicies -> WebsitePolicies)
-> Ptr WebsitePolicies -> IO WebsitePolicies
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WebsitePolicies -> WebsitePolicies
WebKit2.WebsitePolicies.WebsitePolicies) Ptr WebsitePolicies
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
WebsitePolicies -> IO WebsitePolicies
forall (m :: * -> *) a. Monad m => a -> m a
return WebsitePolicies
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetWebsitePoliciesMethodInfo
instance (signature ~ (m WebKit2.WebsitePolicies.WebsitePolicies), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetWebsitePoliciesMethodInfo a signature where
overloadedMethod = webViewGetWebsitePolicies
instance O.OverloadedMethodInfo WebViewGetWebsitePoliciesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetWebsitePolicies",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetWebsitePolicies"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m WindowProperties
webViewGetWindowProperties 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 Text
"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.OverloadedMethod WebViewGetWindowPropertiesMethodInfo a signature where
overloadedMethod = webViewGetWindowProperties
instance O.OverloadedMethodInfo WebViewGetWindowPropertiesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetWindowProperties",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Double
webViewGetZoomLevel 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.OverloadedMethod WebViewGetZoomLevelMethodInfo a signature where
overloadedMethod = webViewGetZoomLevel
instance O.OverloadedMethodInfo WebViewGetZoomLevelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGetZoomLevel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m ()
webViewGoBack 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.OverloadedMethod WebViewGoBackMethodInfo a signature where
overloadedMethod = webViewGoBack
instance O.OverloadedMethodInfo WebViewGoBackMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGoBack",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m ()
webViewGoForward 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.OverloadedMethod WebViewGoForwardMethodInfo a signature where
overloadedMethod = webViewGoForward
instance O.OverloadedMethodInfo WebViewGoForwardMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGoForward",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsBackForwardListItem b) =>
a -> b -> m ()
webViewGoToBackForwardListItem a
webView 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.OverloadedMethod WebViewGoToBackForwardListItemMethodInfo a signature where
overloadedMethod = webViewGoToBackForwardListItem
instance O.OverloadedMethodInfo WebViewGoToBackForwardListItemMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewGoToBackForwardListItem",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewIsControlledByAutomation 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
/= CInt
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.OverloadedMethod WebViewIsControlledByAutomationMethodInfo a signature where
overloadedMethod = webViewIsControlledByAutomation
instance O.OverloadedMethodInfo WebViewIsControlledByAutomationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewIsControlledByAutomation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewIsEditable 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
/= CInt
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.OverloadedMethod WebViewIsEditableMethodInfo a signature where
overloadedMethod = webViewIsEditable
instance O.OverloadedMethodInfo WebViewIsEditableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewIsEditable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewIsEphemeral 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
/= CInt
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.OverloadedMethod WebViewIsEphemeralMethodInfo a signature where
overloadedMethod = webViewIsEphemeral
instance O.OverloadedMethodInfo WebViewIsEphemeralMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewIsEphemeral",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewIsLoading 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
/= CInt
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.OverloadedMethod WebViewIsLoadingMethodInfo a signature where
overloadedMethod = webViewIsLoading
instance O.OverloadedMethodInfo WebViewIsLoadingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewIsLoading",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewIsPlayingAudio 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
/= CInt
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.OverloadedMethod WebViewIsPlayingAudioMethodInfo a signature where
overloadedMethod = webViewIsPlayingAudio
instance O.OverloadedMethodInfo WebViewIsPlayingAudioMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewIsPlayingAudio",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> Text -> Maybe Text -> m ()
webViewLoadAlternateHtml a
webView Text
content Text
contentUri 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod WebViewLoadAlternateHtmlMethodInfo a signature where
overloadedMethod = webViewLoadAlternateHtml
instance O.OverloadedMethodInfo WebViewLoadAlternateHtmlMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewLoadAlternateHtml",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Bytes -> Maybe Text -> Maybe Text -> Maybe Text -> m ()
webViewLoadBytes a
webView Bytes
bytes Maybe Text
mimeType Maybe Text
encoding 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod WebViewLoadBytesMethodInfo a signature where
overloadedMethod = webViewLoadBytes
instance O.OverloadedMethodInfo WebViewLoadBytesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewLoadBytes",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> Maybe Text -> m ()
webViewLoadHtml a
webView Text
content 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod WebViewLoadHtmlMethodInfo a signature where
overloadedMethod = webViewLoadHtml
instance O.OverloadedMethodInfo WebViewLoadHtmlMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewLoadHtml",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> m ()
webViewLoadPlainText a
webView 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.OverloadedMethod WebViewLoadPlainTextMethodInfo a signature where
overloadedMethod = webViewLoadPlainText
instance O.OverloadedMethodInfo WebViewLoadPlainTextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewLoadPlainText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsURIRequest b) =>
a -> b -> m ()
webViewLoadRequest a
webView 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.OverloadedMethod WebViewLoadRequestMethodInfo a signature where
overloadedMethod = webViewLoadRequest
instance O.OverloadedMethodInfo WebViewLoadRequestMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewLoadRequest",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Text -> m ()
webViewLoadUri a
webView 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.OverloadedMethod WebViewLoadUriMethodInfo a signature where
overloadedMethod = webViewLoadUri
instance O.OverloadedMethodInfo WebViewLoadUriMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewLoadUri",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m ()
webViewReload 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.OverloadedMethod WebViewReloadMethodInfo a signature where
overloadedMethod = webViewReload
instance O.OverloadedMethodInfo WebViewReloadMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewReload",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m ()
webViewReloadBypassCache 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.OverloadedMethod WebViewReloadBypassCacheMethodInfo a signature where
overloadedMethod = webViewReloadBypassCache
instance O.OverloadedMethodInfo WebViewReloadBypassCacheMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewReloadBypassCache",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> WebViewSessionState -> m ()
webViewRestoreSessionState a
webView 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.OverloadedMethod WebViewRestoreSessionStateMethodInfo a signature where
overloadedMethod = webViewRestoreSessionState
instance O.OverloadedMethodInfo WebViewRestoreSessionStateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewRestoreSessionState",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsCancellable b) =>
a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewRunJavascript a
webView Text
script Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just 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
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr 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.OverloadedMethod WebViewRunJavascriptMethodInfo a signature where
overloadedMethod = webViewRunJavascript
instance O.OverloadedMethodInfo WebViewRunJavascriptMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewRunJavascript",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m JavascriptResult
webViewRunJavascriptFinish a
webView 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 Text
"webViewRunJavascriptFinish" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod WebViewRunJavascriptFinishMethodInfo a signature where
overloadedMethod = webViewRunJavascriptFinish
instance O.OverloadedMethodInfo WebViewRunJavascriptFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsCancellable b) =>
a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewRunJavascriptFromGresource a
webView Text
resource Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just 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
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr 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.OverloadedMethod WebViewRunJavascriptFromGresourceMethodInfo a signature where
overloadedMethod = webViewRunJavascriptFromGresource
instance O.OverloadedMethodInfo WebViewRunJavascriptFromGresourceMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptFromGresource",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m JavascriptResult
webViewRunJavascriptFromGresourceFinish a
webView 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 Text
"webViewRunJavascriptFromGresourceFinish" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod WebViewRunJavascriptFromGresourceFinishMethodInfo a signature where
overloadedMethod = webViewRunJavascriptFromGresourceFinish
instance O.OverloadedMethodInfo WebViewRunJavascriptFromGresourceFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptFromGresourceFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsCancellable b) =>
a -> Text -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewRunJavascriptInWorld a
webView Text
script Text
worldName Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just 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
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr 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.OverloadedMethod WebViewRunJavascriptInWorldMethodInfo a signature where
overloadedMethod = webViewRunJavascriptInWorld
instance O.OverloadedMethodInfo WebViewRunJavascriptInWorldMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptInWorld",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m JavascriptResult
webViewRunJavascriptInWorldFinish a
webView 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 Text
"webViewRunJavascriptInWorldFinish" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod WebViewRunJavascriptInWorldFinishMethodInfo a signature where
overloadedMethod = webViewRunJavascriptInWorldFinish
instance O.OverloadedMethodInfo WebViewRunJavascriptInWorldFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptInWorldFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsCancellable b) =>
a -> SaveMode -> Maybe b -> Maybe AsyncReadyCallback -> m ()
webViewSave a
webView SaveMode
saveMode Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just 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
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr 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.OverloadedMethod WebViewSaveMethodInfo a signature where
overloadedMethod = webViewSave
instance O.OverloadedMethodInfo WebViewSaveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSave",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m InputStream
webViewSaveFinish a
webView 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 Text
"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.OverloadedMethod WebViewSaveFinishMethodInfo a signature where
overloadedMethod = webViewSaveFinish
instance O.OverloadedMethodInfo WebViewSaveFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSaveFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsWebView a, IsFile b,
IsCancellable c) =>
a -> b -> SaveMode -> Maybe c -> Maybe AsyncReadyCallback -> m ()
webViewSaveToFile a
webView b
file SaveMode
saveMode Maybe c
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr 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.OverloadedMethod WebViewSaveToFileMethodInfo a signature where
overloadedMethod = webViewSaveToFile
instance O.OverloadedMethodInfo WebViewSaveToFileMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSaveToFile",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m ()
webViewSaveToFileFinish a
webView 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.OverloadedMethod WebViewSaveToFileFinishMethodInfo a signature where
overloadedMethod = webViewSaveToFileFinish
instance O.OverloadedMethodInfo WebViewSaveToFileFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSaveToFileFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewSaveToFileFinish"
}
#endif
foreign import ccall "webkit_web_view_send_message_to_page" webkit_web_view_send_message_to_page ::
Ptr WebView ->
Ptr WebKit2.UserMessage.UserMessage ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
webViewSendMessageToPage ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.UserMessage.IsUserMessage b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
webViewSendMessageToPage :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsWebView a, IsUserMessage b,
IsCancellable c) =>
a -> b -> Maybe c -> Maybe AsyncReadyCallback -> m ()
webViewSendMessageToPage a
webView b
message Maybe c
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr WebView
webView' <- a -> IO (Ptr WebView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webView
Ptr UserMessage
message' <- b -> IO (Ptr UserMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
message
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr WebView
-> Ptr UserMessage
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_web_view_send_message_to_page Ptr WebView
webView' Ptr UserMessage
message' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
message
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSendMessageToPageMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebView a, WebKit2.UserMessage.IsUserMessage b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod WebViewSendMessageToPageMethodInfo a signature where
overloadedMethod = webViewSendMessageToPage
instance O.OverloadedMethodInfo WebViewSendMessageToPageMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSendMessageToPage",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewSendMessageToPage"
}
#endif
foreign import ccall "webkit_web_view_send_message_to_page_finish" webkit_web_view_send_message_to_page_finish ::
Ptr WebView ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2.UserMessage.UserMessage)
webViewSendMessageToPageFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m WebKit2.UserMessage.UserMessage
webViewSendMessageToPageFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) =>
a -> b -> m UserMessage
webViewSendMessageToPageFinish a
webView b
result_ = IO UserMessage -> m UserMessage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO UserMessage -> m UserMessage)
-> IO UserMessage -> m UserMessage
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 UserMessage -> IO () -> IO UserMessage
forall a b. IO a -> IO b -> IO a
onException (do
Ptr UserMessage
result <- (Ptr (Ptr GError) -> IO (Ptr UserMessage)) -> IO (Ptr UserMessage)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr UserMessage))
-> IO (Ptr UserMessage))
-> (Ptr (Ptr GError) -> IO (Ptr UserMessage))
-> IO (Ptr UserMessage)
forall a b. (a -> b) -> a -> b
$ Ptr WebView
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr UserMessage)
webkit_web_view_send_message_to_page_finish Ptr WebView
webView' Ptr AsyncResult
result_'
Text -> Ptr UserMessage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webViewSendMessageToPageFinish" Ptr UserMessage
result
UserMessage
result' <- ((ManagedPtr UserMessage -> UserMessage)
-> Ptr UserMessage -> IO UserMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr UserMessage -> UserMessage
WebKit2.UserMessage.UserMessage) Ptr UserMessage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
UserMessage -> IO UserMessage
forall (m :: * -> *) a. Monad m => a -> m a
return UserMessage
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebViewSendMessageToPageFinishMethodInfo
instance (signature ~ (b -> m WebKit2.UserMessage.UserMessage), MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod WebViewSendMessageToPageFinishMethodInfo a signature where
overloadedMethod = webViewSendMessageToPageFinish
instance O.OverloadedMethodInfo WebViewSendMessageToPageFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSendMessageToPageFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewSendMessageToPageFinish"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> RGBA -> m ()
webViewSetBackgroundColor a
webView 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.OverloadedMethod WebViewSetBackgroundColorMethodInfo a signature where
overloadedMethod = webViewSetBackgroundColor
instance O.OverloadedMethodInfo WebViewSetBackgroundColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSetBackgroundColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Maybe Text -> m ()
webViewSetCustomCharset a
webView 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod WebViewSetCustomCharsetMethodInfo a signature where
overloadedMethod = webViewSetCustomCharset
instance O.OverloadedMethodInfo WebViewSetCustomCharsetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSetCustomCharset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Bool -> m ()
webViewSetEditable a
webView 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.OverloadedMethod WebViewSetEditableMethodInfo a signature where
overloadedMethod = webViewSetEditable
instance O.OverloadedMethodInfo WebViewSetEditableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSetEditable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetEditable"
}
#endif
foreign import ccall "webkit_web_view_set_input_method_context" webkit_web_view_set_input_method_context ::
Ptr WebView ->
Ptr WebKit2.InputMethodContext.InputMethodContext ->
IO ()
webViewSetInputMethodContext ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.InputMethodContext.IsInputMethodContext b) =>
a
-> Maybe (b)
-> m ()
webViewSetInputMethodContext :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsInputMethodContext b) =>
a -> Maybe b -> m ()
webViewSetInputMethodContext a
webView Maybe b
context = 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 InputMethodContext
maybeContext <- case Maybe b
context of
Maybe b
Nothing -> Ptr InputMethodContext -> IO (Ptr InputMethodContext)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr InputMethodContext
forall a. Ptr a
nullPtr
Just b
jContext -> do
Ptr InputMethodContext
jContext' <- b -> IO (Ptr InputMethodContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jContext
Ptr InputMethodContext -> IO (Ptr InputMethodContext)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr InputMethodContext
jContext'
Ptr WebView -> Ptr InputMethodContext -> IO ()
webkit_web_view_set_input_method_context Ptr WebView
webView' Ptr InputMethodContext
maybeContext
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
context b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSetInputMethodContextMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWebView a, WebKit2.InputMethodContext.IsInputMethodContext b) => O.OverloadedMethod WebViewSetInputMethodContextMethodInfo a signature where
overloadedMethod = webViewSetInputMethodContext
instance O.OverloadedMethodInfo WebViewSetInputMethodContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSetInputMethodContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetInputMethodContext"
}
#endif
foreign import ccall "webkit_web_view_set_is_muted" webkit_web_view_set_is_muted ::
Ptr WebView ->
CInt ->
IO ()
webViewSetIsMuted ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> Bool
-> m ()
webViewSetIsMuted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Bool -> m ()
webViewSetIsMuted a
webView Bool
muted = 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 muted' :: CInt
muted' = (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
muted
Ptr WebView -> CInt -> IO ()
webkit_web_view_set_is_muted Ptr WebView
webView' CInt
muted'
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 WebViewSetIsMutedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewSetIsMutedMethodInfo a signature where
overloadedMethod = webViewSetIsMuted
instance O.OverloadedMethodInfo WebViewSetIsMutedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSetIsMuted",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetIsMuted"
}
#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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebView a, IsSettings b) =>
a -> b -> m ()
webViewSetSettings a
webView 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.OverloadedMethod WebViewSetSettingsMethodInfo a signature where
overloadedMethod = webViewSetSettings
instance O.OverloadedMethodInfo WebViewSetSettingsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSetSettings",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Double -> m ()
webViewSetZoomLevel a
webView 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.OverloadedMethod WebViewSetZoomLevelMethodInfo a signature where
overloadedMethod = webViewSetZoomLevel
instance O.OverloadedMethodInfo WebViewSetZoomLevelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewSetZoomLevel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m ()
webViewStopLoading 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.OverloadedMethod WebViewStopLoadingMethodInfo a signature where
overloadedMethod = webViewStopLoading
instance O.OverloadedMethodInfo WebViewStopLoadingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewStopLoading",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m ()
webViewTryClose 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.OverloadedMethod WebViewTryCloseMethodInfo a signature where
overloadedMethod = webViewTryClose
instance O.OverloadedMethodInfo WebViewTryCloseMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebView.webViewTryClose",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebView.html#v:webViewTryClose"
}
#endif