{-# LANGUAGE ImplicitParams, RankNTypes, 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)
WebViewGetCameraCaptureStateMethodInfo ,
#endif
webViewGetCameraCaptureState ,
#if defined(ENABLE_OVERLOADING)
WebViewGetContextMethodInfo ,
#endif
webViewGetContext ,
#if defined(ENABLE_OVERLOADING)
WebViewGetCustomCharsetMethodInfo ,
#endif
webViewGetCustomCharset ,
#if defined(ENABLE_OVERLOADING)
WebViewGetDisplayCaptureStateMethodInfo ,
#endif
webViewGetDisplayCaptureState ,
#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)
WebViewGetIsWebProcessResponsiveMethodInfo,
#endif
webViewGetIsWebProcessResponsive ,
#if defined(ENABLE_OVERLOADING)
WebViewGetMainResourceMethodInfo ,
#endif
webViewGetMainResource ,
#if defined(ENABLE_OVERLOADING)
WebViewGetMicrophoneCaptureStateMethodInfo,
#endif
webViewGetMicrophoneCaptureState ,
#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)
WebViewSetCameraCaptureStateMethodInfo ,
#endif
webViewSetCameraCaptureState ,
#if defined(ENABLE_OVERLOADING)
WebViewSetCorsAllowlistMethodInfo ,
#endif
webViewSetCorsAllowlist ,
#if defined(ENABLE_OVERLOADING)
WebViewSetCustomCharsetMethodInfo ,
#endif
webViewSetCustomCharset ,
#if defined(ENABLE_OVERLOADING)
WebViewSetDisplayCaptureStateMethodInfo ,
#endif
webViewSetDisplayCaptureState ,
#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)
WebViewSetMicrophoneCaptureStateMethodInfo,
#endif
webViewSetMicrophoneCaptureState ,
#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)
WebViewTerminateWebProcessMethodInfo ,
#endif
webViewTerminateWebProcess ,
#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)
WebViewCameraCaptureStatePropertyInfo ,
#endif
constructWebViewCameraCaptureState ,
getWebViewCameraCaptureState ,
setWebViewCameraCaptureState ,
#if defined(ENABLE_OVERLOADING)
webViewCameraCaptureState ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewDisplayCaptureStatePropertyInfo ,
#endif
constructWebViewDisplayCaptureState ,
getWebViewDisplayCaptureState ,
setWebViewDisplayCaptureState ,
#if defined(ENABLE_OVERLOADING)
webViewDisplayCaptureState ,
#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)
WebViewIsWebProcessResponsivePropertyInfo,
#endif
getWebViewIsWebProcessResponsive ,
#if defined(ENABLE_OVERLOADING)
webViewIsWebProcessResponsive ,
#endif
#if defined(ENABLE_OVERLOADING)
WebViewMicrophoneCaptureStatePropertyInfo,
#endif
constructWebViewMicrophoneCaptureState ,
getWebViewMicrophoneCaptureState ,
setWebViewMicrophoneCaptureState ,
#if defined(ENABLE_OVERLOADING)
webViewMicrophoneCaptureState ,
#endif
#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
WebViewAuthenticateCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewAuthenticateSignalInfo ,
#endif
afterWebViewAuthenticate ,
onWebViewAuthenticate ,
WebViewCloseCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewCloseSignalInfo ,
#endif
afterWebViewClose ,
onWebViewClose ,
WebViewContextMenuCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewContextMenuSignalInfo ,
#endif
afterWebViewContextMenu ,
onWebViewContextMenu ,
WebViewContextMenuDismissedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewContextMenuDismissedSignalInfo ,
#endif
afterWebViewContextMenuDismissed ,
onWebViewContextMenuDismissed ,
WebViewCreateCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewCreateSignalInfo ,
#endif
afterWebViewCreate ,
onWebViewCreate ,
WebViewDecidePolicyCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewDecidePolicySignalInfo ,
#endif
afterWebViewDecidePolicy ,
onWebViewDecidePolicy ,
WebViewEnterFullscreenCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewEnterFullscreenSignalInfo ,
#endif
afterWebViewEnterFullscreen ,
onWebViewEnterFullscreen ,
WebViewInsecureContentDetectedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewInsecureContentDetectedSignalInfo,
#endif
afterWebViewInsecureContentDetected ,
onWebViewInsecureContentDetected ,
WebViewLeaveFullscreenCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLeaveFullscreenSignalInfo ,
#endif
afterWebViewLeaveFullscreen ,
onWebViewLeaveFullscreen ,
WebViewLoadChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadChangedSignalInfo ,
#endif
afterWebViewLoadChanged ,
onWebViewLoadChanged ,
WebViewLoadFailedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadFailedSignalInfo ,
#endif
afterWebViewLoadFailed ,
onWebViewLoadFailed ,
WebViewLoadFailedWithTlsErrorsCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewLoadFailedWithTlsErrorsSignalInfo,
#endif
afterWebViewLoadFailedWithTlsErrors ,
onWebViewLoadFailedWithTlsErrors ,
WebViewMouseTargetChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewMouseTargetChangedSignalInfo ,
#endif
afterWebViewMouseTargetChanged ,
onWebViewMouseTargetChanged ,
WebViewPermissionRequestCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewPermissionRequestSignalInfo ,
#endif
afterWebViewPermissionRequest ,
onWebViewPermissionRequest ,
WebViewPrintCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewPrintSignalInfo ,
#endif
afterWebViewPrint ,
onWebViewPrint ,
WebViewReadyToShowCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewReadyToShowSignalInfo ,
#endif
afterWebViewReadyToShow ,
onWebViewReadyToShow ,
WebViewResourceLoadStartedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewResourceLoadStartedSignalInfo ,
#endif
afterWebViewResourceLoadStarted ,
onWebViewResourceLoadStarted ,
WebViewRunAsModalCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewRunAsModalSignalInfo ,
#endif
afterWebViewRunAsModal ,
onWebViewRunAsModal ,
WebViewRunColorChooserCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewRunColorChooserSignalInfo ,
#endif
afterWebViewRunColorChooser ,
onWebViewRunColorChooser ,
WebViewRunFileChooserCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewRunFileChooserSignalInfo ,
#endif
afterWebViewRunFileChooser ,
onWebViewRunFileChooser ,
WebViewScriptDialogCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewScriptDialogSignalInfo ,
#endif
afterWebViewScriptDialog ,
onWebViewScriptDialog ,
WebViewShowNotificationCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewShowNotificationSignalInfo ,
#endif
afterWebViewShowNotification ,
onWebViewShowNotification ,
WebViewShowOptionMenuCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewShowOptionMenuSignalInfo ,
#endif
afterWebViewShowOptionMenu ,
onWebViewShowOptionMenu ,
WebViewSubmitFormCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewSubmitFormSignalInfo ,
#endif
afterWebViewSubmitForm ,
onWebViewSubmitForm ,
WebViewUserMessageReceivedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewUserMessageReceivedSignalInfo ,
#endif
afterWebViewUserMessageReceived ,
onWebViewUserMessageReceived ,
WebViewWebProcessCrashedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewWebProcessCrashedSignalInfo ,
#endif
afterWebViewWebProcessCrashed ,
onWebViewWebProcessCrashed ,
WebViewWebProcessTerminatedCallback ,
#if defined(ENABLE_OVERLOADING)
WebViewWebProcessTerminatedSignalInfo ,
#endif
afterWebViewWebProcessTerminated ,
onWebViewWebProcessTerminated ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.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 "terminateWebProcess" o = WebViewTerminateWebProcessMethodInfo
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 "getCameraCaptureState" o = WebViewGetCameraCaptureStateMethodInfo
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 "getDisplayCaptureState" o = WebViewGetDisplayCaptureStateMethodInfo
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 "getIsWebProcessResponsive" o = WebViewGetIsWebProcessResponsiveMethodInfo
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 "getMicrophoneCaptureState" o = WebViewGetMicrophoneCaptureStateMethodInfo
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 "setCameraCaptureState" o = WebViewSetCameraCaptureStateMethodInfo
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 "setCorsAllowlist" o = WebViewSetCorsAllowlistMethodInfo
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 "setDisplayCaptureState" o = WebViewSetDisplayCaptureStateMethodInfo
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 "setMicrophoneCaptureState" o = WebViewSetMicrophoneCaptureStateMethodInfo
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
type C_WebViewAuthenticateCallback =
Ptr WebView ->
Ptr WebKit2.AuthenticationRequest.AuthenticationRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewAuthenticateCallback :: C_WebViewAuthenticateCallback -> IO (FunPtr C_WebViewAuthenticateCallback)
wrap_WebViewAuthenticateCallback ::
GObject a => (a -> WebViewAuthenticateCallback) ->
C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback :: forall a.
GObject a =>
(a -> WebViewAuthenticateCallback) -> C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback a -> WebViewAuthenticateCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewAuthenticateCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewAuthenticateCallback) -> m SignalHandlerId
onWebViewAuthenticate :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewAuthenticateCallback) -> m SignalHandlerId
onWebViewAuthenticate a
obj (?self::a) => 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 wrapped :: a -> WebViewAuthenticateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewAuthenticateCallback
WebViewAuthenticateCallback
cb
let wrapped' :: C_WebViewAuthenticateCallback
wrapped' = (a -> WebViewAuthenticateCallback) -> C_WebViewAuthenticateCallback
forall a.
GObject a =>
(a -> WebViewAuthenticateCallback) -> C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback a -> WebViewAuthenticateCallback
wrapped
FunPtr C_WebViewAuthenticateCallback
wrapped'' <- C_WebViewAuthenticateCallback
-> IO (FunPtr C_WebViewAuthenticateCallback)
mk_WebViewAuthenticateCallback C_WebViewAuthenticateCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewAuthenticate :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewAuthenticateCallback) -> m SignalHandlerId
afterWebViewAuthenticate :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewAuthenticateCallback) -> m SignalHandlerId
afterWebViewAuthenticate a
obj (?self::a) => 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 wrapped :: a -> WebViewAuthenticateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewAuthenticateCallback
WebViewAuthenticateCallback
cb
let wrapped' :: C_WebViewAuthenticateCallback
wrapped' = (a -> WebViewAuthenticateCallback) -> C_WebViewAuthenticateCallback
forall a.
GObject a =>
(a -> WebViewAuthenticateCallback) -> C_WebViewAuthenticateCallback
wrap_WebViewAuthenticateCallback a -> WebViewAuthenticateCallback
wrapped
FunPtr C_WebViewAuthenticateCallback
wrapped'' <- C_WebViewAuthenticateCallback
-> IO (FunPtr C_WebViewAuthenticateCallback)
mk_WebViewAuthenticateCallback C_WebViewAuthenticateCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::authenticate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:authenticate"})
#endif
type WebViewCloseCallback =
IO ()
type C_WebViewCloseCallback =
Ptr WebView ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewCloseCallback :: C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
wrap_WebViewCloseCallback ::
GObject a => (a -> WebViewCloseCallback) ->
C_WebViewCloseCallback
wrap_WebViewCloseCallback :: forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewCloseCallback a -> IO ()
gi'cb Ptr WebView
gi'selfPtr Ptr ()
_ = do
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> IO ()
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self)
onWebViewClose :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewCloseCallback) -> m SignalHandlerId
onWebViewClose :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWebViewClose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewCloseCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewCloseCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewClose :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewCloseCallback) -> m SignalHandlerId
afterWebViewClose :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWebViewClose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewCloseCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewCloseCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::close"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:close"})
#endif
type =
WebKit2.ContextMenu.ContextMenu
-> Gdk.Event.Event
-> WebKit2.HitTestResult.HitTestResult
-> IO Bool
type =
Ptr WebView ->
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)
wrap_WebViewContextMenuCallback ::
GObject a => (a -> WebViewContextMenuCallback) ->
C_WebViewContextMenuCallback
a -> WebViewContextMenuCallback
gi'cb Ptr WebView
gi'selfPtr 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
Ptr Event -> (Event -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewContextMenuCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewContextMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => 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 wrapped :: a -> WebViewContextMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewContextMenuCallback
WebViewContextMenuCallback
cb
let wrapped' :: C_WebViewContextMenuCallback
wrapped' = (a -> WebViewContextMenuCallback) -> C_WebViewContextMenuCallback
forall a.
GObject a =>
(a -> WebViewContextMenuCallback) -> C_WebViewContextMenuCallback
wrap_WebViewContextMenuCallback a -> WebViewContextMenuCallback
wrapped
FunPtr C_WebViewContextMenuCallback
wrapped'' <- C_WebViewContextMenuCallback
-> IO (FunPtr C_WebViewContextMenuCallback)
mk_WebViewContextMenuCallback C_WebViewContextMenuCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewContextMenu :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewContextMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => 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 wrapped :: a -> WebViewContextMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewContextMenuCallback
WebViewContextMenuCallback
cb
let wrapped' :: C_WebViewContextMenuCallback
wrapped' = (a -> WebViewContextMenuCallback) -> C_WebViewContextMenuCallback
forall a.
GObject a =>
(a -> WebViewContextMenuCallback) -> C_WebViewContextMenuCallback
wrap_WebViewContextMenuCallback a -> WebViewContextMenuCallback
wrapped
FunPtr C_WebViewContextMenuCallback
wrapped'' <- C_WebViewContextMenuCallback
-> IO (FunPtr C_WebViewContextMenuCallback)
mk_WebViewContextMenuCallback C_WebViewContextMenuCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::context-menu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:contextMenu"})
#endif
type =
IO ()
type =
Ptr WebView ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_WebViewContextMenuDismissedCallback -> IO (FunPtr C_WebViewContextMenuDismissedCallback)
wrap_WebViewContextMenuDismissedCallback ::
GObject a => (a -> WebViewContextMenuDismissedCallback) ->
C_WebViewContextMenuDismissedCallback
a -> IO ()
gi'cb Ptr WebView
gi'selfPtr Ptr ()
_ = do
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> IO ()
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self)
onWebViewContextMenuDismissed :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewContextMenuDismissedCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewContextMenuDismissedCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewContextMenuDismissedCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewContextMenuDismissed :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewContextMenuDismissedCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewContextMenuDismissedCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewContextMenuDismissedCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::context-menu-dismissed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:contextMenuDismissed"})
#endif
type WebViewCreateCallback =
WebKit2.NavigationAction.NavigationAction
-> IO Gtk.Widget.Widget
type C_WebViewCreateCallback =
Ptr WebView ->
Ptr WebKit2.NavigationAction.NavigationAction ->
Ptr () ->
IO (Ptr Gtk.Widget.Widget)
foreign import ccall "wrapper"
mk_WebViewCreateCallback :: C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)
wrap_WebViewCreateCallback ::
GObject a => (a -> WebViewCreateCallback) ->
C_WebViewCreateCallback
wrap_WebViewCreateCallback :: forall a.
GObject a =>
(a -> WebViewCreateCallback) -> C_WebViewCreateCallback
wrap_WebViewCreateCallback a -> WebViewCreateCallback
gi'cb Ptr WebView
gi'selfPtr Ptr NavigationAction
navigationAction Ptr ()
_ = do
Ptr NavigationAction
-> (NavigationAction -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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 <- Ptr WebView -> (WebView -> IO Widget) -> IO Widget
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Widget) -> IO Widget)
-> (WebView -> IO Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewCreateCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewCreateCallback) -> m SignalHandlerId
onWebViewCreate :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewCreateCallback) -> m SignalHandlerId
onWebViewCreate a
obj (?self::a) => 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 wrapped :: a -> WebViewCreateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewCreateCallback
WebViewCreateCallback
cb
let wrapped' :: C_WebViewCreateCallback
wrapped' = (a -> WebViewCreateCallback) -> C_WebViewCreateCallback
forall a.
GObject a =>
(a -> WebViewCreateCallback) -> C_WebViewCreateCallback
wrap_WebViewCreateCallback a -> WebViewCreateCallback
wrapped
FunPtr C_WebViewCreateCallback
wrapped'' <- C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)
mk_WebViewCreateCallback C_WebViewCreateCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewCreate :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewCreateCallback) -> m SignalHandlerId
afterWebViewCreate :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewCreateCallback) -> m SignalHandlerId
afterWebViewCreate a
obj (?self::a) => 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 wrapped :: a -> WebViewCreateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewCreateCallback
WebViewCreateCallback
cb
let wrapped' :: C_WebViewCreateCallback
wrapped' = (a -> WebViewCreateCallback) -> C_WebViewCreateCallback
forall a.
GObject a =>
(a -> WebViewCreateCallback) -> C_WebViewCreateCallback
wrap_WebViewCreateCallback a -> WebViewCreateCallback
wrapped
FunPtr C_WebViewCreateCallback
wrapped'' <- C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)
mk_WebViewCreateCallback C_WebViewCreateCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::create"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:create"})
#endif
type WebViewDecidePolicyCallback =
WebKit2.PolicyDecision.PolicyDecision
-> WebKit2.Enums.PolicyDecisionType
-> IO Bool
type C_WebViewDecidePolicyCallback =
Ptr WebView ->
Ptr WebKit2.PolicyDecision.PolicyDecision ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewDecidePolicyCallback :: C_WebViewDecidePolicyCallback -> IO (FunPtr C_WebViewDecidePolicyCallback)
wrap_WebViewDecidePolicyCallback ::
GObject a => (a -> WebViewDecidePolicyCallback) ->
C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback :: forall a.
GObject a =>
(a -> WebViewDecidePolicyCallback) -> C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback a -> WebViewDecidePolicyCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewDecidePolicyCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewDecidePolicyCallback) -> m SignalHandlerId
onWebViewDecidePolicy :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewDecidePolicyCallback) -> m SignalHandlerId
onWebViewDecidePolicy a
obj (?self::a) => 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 wrapped :: a -> WebViewDecidePolicyCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewDecidePolicyCallback
WebViewDecidePolicyCallback
cb
let wrapped' :: C_WebViewDecidePolicyCallback
wrapped' = (a -> WebViewDecidePolicyCallback) -> C_WebViewDecidePolicyCallback
forall a.
GObject a =>
(a -> WebViewDecidePolicyCallback) -> C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback a -> WebViewDecidePolicyCallback
wrapped
FunPtr C_WebViewDecidePolicyCallback
wrapped'' <- C_WebViewDecidePolicyCallback
-> IO (FunPtr C_WebViewDecidePolicyCallback)
mk_WebViewDecidePolicyCallback C_WebViewDecidePolicyCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewDecidePolicy :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewDecidePolicyCallback) -> m SignalHandlerId
afterWebViewDecidePolicy :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewDecidePolicyCallback) -> m SignalHandlerId
afterWebViewDecidePolicy a
obj (?self::a) => 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 wrapped :: a -> WebViewDecidePolicyCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewDecidePolicyCallback
WebViewDecidePolicyCallback
cb
let wrapped' :: C_WebViewDecidePolicyCallback
wrapped' = (a -> WebViewDecidePolicyCallback) -> C_WebViewDecidePolicyCallback
forall a.
GObject a =>
(a -> WebViewDecidePolicyCallback) -> C_WebViewDecidePolicyCallback
wrap_WebViewDecidePolicyCallback a -> WebViewDecidePolicyCallback
wrapped
FunPtr C_WebViewDecidePolicyCallback
wrapped'' <- C_WebViewDecidePolicyCallback
-> IO (FunPtr C_WebViewDecidePolicyCallback)
mk_WebViewDecidePolicyCallback C_WebViewDecidePolicyCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::decide-policy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:decidePolicy"})
#endif
type WebViewEnterFullscreenCallback =
IO Bool
type C_WebViewEnterFullscreenCallback =
Ptr WebView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewEnterFullscreenCallback :: C_WebViewEnterFullscreenCallback -> IO (FunPtr C_WebViewEnterFullscreenCallback)
wrap_WebViewEnterFullscreenCallback ::
GObject a => (a -> WebViewEnterFullscreenCallback) ->
C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback a -> IO Bool
gi'cb Ptr WebView
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> IO Bool
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewEnterFullscreen :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewEnterFullscreenCallback) -> m SignalHandlerId
onWebViewEnterFullscreen :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onWebViewEnterFullscreen a
obj (?self::a) => IO Bool
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_WebViewEnterFullscreenCallback
wrapped' = (a -> IO Bool) -> C_WebViewEnterFullscreenCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback a -> IO Bool
wrapped
FunPtr C_WebViewEnterFullscreenCallback
wrapped'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewEnterFullscreenCallback C_WebViewEnterFullscreenCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewEnterFullscreen :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewEnterFullscreenCallback) -> m SignalHandlerId
afterWebViewEnterFullscreen :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterWebViewEnterFullscreen a
obj (?self::a) => IO Bool
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_WebViewEnterFullscreenCallback
wrapped' = (a -> IO Bool) -> C_WebViewEnterFullscreenCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewEnterFullscreenCallback a -> IO Bool
wrapped
FunPtr C_WebViewEnterFullscreenCallback
wrapped'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewEnterFullscreenCallback C_WebViewEnterFullscreenCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::enter-fullscreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:enterFullscreen"})
#endif
type WebViewInsecureContentDetectedCallback =
WebKit2.Enums.InsecureContentEvent
-> IO ()
type C_WebViewInsecureContentDetectedCallback =
Ptr WebView ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewInsecureContentDetectedCallback :: C_WebViewInsecureContentDetectedCallback -> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
wrap_WebViewInsecureContentDetectedCallback ::
GObject a => (a -> WebViewInsecureContentDetectedCallback) ->
C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback :: forall a.
GObject a =>
(a -> WebViewInsecureContentDetectedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback a -> WebViewInsecureContentDetectedCallback
gi'cb Ptr WebView
gi'selfPtr 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
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewInsecureContentDetectedCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) InsecureContentEvent
event'
onWebViewInsecureContentDetected :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewInsecureContentDetectedCallback) -> m SignalHandlerId
onWebViewInsecureContentDetected :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewInsecureContentDetectedCallback)
-> m SignalHandlerId
onWebViewInsecureContentDetected a
obj (?self::a) => 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 wrapped :: a -> WebViewInsecureContentDetectedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewInsecureContentDetectedCallback
WebViewInsecureContentDetectedCallback
cb
let wrapped' :: C_WebViewInsecureContentDetectedCallback
wrapped' = (a -> WebViewInsecureContentDetectedCallback)
-> C_WebViewInsecureContentDetectedCallback
forall a.
GObject a =>
(a -> WebViewInsecureContentDetectedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback a -> WebViewInsecureContentDetectedCallback
wrapped
FunPtr C_WebViewInsecureContentDetectedCallback
wrapped'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewInsecureContentDetectedCallback C_WebViewInsecureContentDetectedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewInsecureContentDetected :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewInsecureContentDetectedCallback) -> m SignalHandlerId
afterWebViewInsecureContentDetected :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewInsecureContentDetectedCallback)
-> m SignalHandlerId
afterWebViewInsecureContentDetected a
obj (?self::a) => 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 wrapped :: a -> WebViewInsecureContentDetectedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewInsecureContentDetectedCallback
WebViewInsecureContentDetectedCallback
cb
let wrapped' :: C_WebViewInsecureContentDetectedCallback
wrapped' = (a -> WebViewInsecureContentDetectedCallback)
-> C_WebViewInsecureContentDetectedCallback
forall a.
GObject a =>
(a -> WebViewInsecureContentDetectedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewInsecureContentDetectedCallback a -> WebViewInsecureContentDetectedCallback
wrapped
FunPtr C_WebViewInsecureContentDetectedCallback
wrapped'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewInsecureContentDetectedCallback C_WebViewInsecureContentDetectedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::insecure-content-detected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:insecureContentDetected"})
#endif
type WebViewLeaveFullscreenCallback =
IO Bool
type C_WebViewLeaveFullscreenCallback =
Ptr WebView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewLeaveFullscreenCallback :: C_WebViewLeaveFullscreenCallback -> IO (FunPtr C_WebViewLeaveFullscreenCallback)
wrap_WebViewLeaveFullscreenCallback ::
GObject a => (a -> WebViewLeaveFullscreenCallback) ->
C_WebViewLeaveFullscreenCallback
wrap_WebViewLeaveFullscreenCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewLeaveFullscreenCallback a -> IO Bool
gi'cb Ptr WebView
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> IO Bool
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewLeaveFullscreen :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewLeaveFullscreenCallback) -> m SignalHandlerId
onWebViewLeaveFullscreen :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onWebViewLeaveFullscreen a
obj (?self::a) => IO Bool
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_WebViewEnterFullscreenCallback
wrapped' = (a -> IO Bool) -> C_WebViewEnterFullscreenCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewLeaveFullscreenCallback a -> IO Bool
wrapped
FunPtr C_WebViewEnterFullscreenCallback
wrapped'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewLeaveFullscreenCallback C_WebViewEnterFullscreenCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLeaveFullscreen :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewLeaveFullscreenCallback) -> m SignalHandlerId
afterWebViewLeaveFullscreen :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterWebViewLeaveFullscreen a
obj (?self::a) => IO Bool
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_WebViewEnterFullscreenCallback
wrapped' = (a -> IO Bool) -> C_WebViewEnterFullscreenCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewLeaveFullscreenCallback a -> IO Bool
wrapped
FunPtr C_WebViewEnterFullscreenCallback
wrapped'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewLeaveFullscreenCallback C_WebViewEnterFullscreenCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::leave-fullscreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:leaveFullscreen"})
#endif
type WebViewLoadChangedCallback =
WebKit2.Enums.LoadEvent
-> IO ()
type C_WebViewLoadChangedCallback =
Ptr WebView ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewLoadChangedCallback :: C_WebViewLoadChangedCallback -> IO (FunPtr C_WebViewLoadChangedCallback)
wrap_WebViewLoadChangedCallback ::
GObject a => (a -> WebViewLoadChangedCallback) ->
C_WebViewLoadChangedCallback
wrap_WebViewLoadChangedCallback :: forall a.
GObject a =>
(a -> WebViewLoadChangedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewLoadChangedCallback a -> WebViewLoadChangedCallback
gi'cb Ptr WebView
gi'selfPtr 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
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewLoadChangedCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) LoadEvent
loadEvent'
onWebViewLoadChanged :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewLoadChangedCallback) -> m SignalHandlerId
onWebViewLoadChanged :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewLoadChangedCallback) -> m SignalHandlerId
onWebViewLoadChanged a
obj (?self::a) => 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 wrapped :: a -> WebViewLoadChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewLoadChangedCallback
WebViewLoadChangedCallback
cb
let wrapped' :: C_WebViewInsecureContentDetectedCallback
wrapped' = (a -> WebViewLoadChangedCallback)
-> C_WebViewInsecureContentDetectedCallback
forall a.
GObject a =>
(a -> WebViewLoadChangedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewLoadChangedCallback a -> WebViewLoadChangedCallback
wrapped
FunPtr C_WebViewInsecureContentDetectedCallback
wrapped'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewLoadChangedCallback C_WebViewInsecureContentDetectedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLoadChanged :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewLoadChangedCallback) -> m SignalHandlerId
afterWebViewLoadChanged :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewLoadChangedCallback) -> m SignalHandlerId
afterWebViewLoadChanged a
obj (?self::a) => 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 wrapped :: a -> WebViewLoadChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewLoadChangedCallback
WebViewLoadChangedCallback
cb
let wrapped' :: C_WebViewInsecureContentDetectedCallback
wrapped' = (a -> WebViewLoadChangedCallback)
-> C_WebViewInsecureContentDetectedCallback
forall a.
GObject a =>
(a -> WebViewLoadChangedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewLoadChangedCallback a -> WebViewLoadChangedCallback
wrapped
FunPtr C_WebViewInsecureContentDetectedCallback
wrapped'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewLoadChangedCallback C_WebViewInsecureContentDetectedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::load-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:loadChanged"})
#endif
type WebViewLoadFailedCallback =
WebKit2.Enums.LoadEvent
-> T.Text
-> GError
-> IO Bool
type C_WebViewLoadFailedCallback =
Ptr WebView ->
CUInt ->
CString ->
Ptr GError ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewLoadFailedCallback :: C_WebViewLoadFailedCallback -> IO (FunPtr C_WebViewLoadFailedCallback)
wrap_WebViewLoadFailedCallback ::
GObject a => (a -> WebViewLoadFailedCallback) ->
C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback :: forall a.
GObject a =>
(a -> WebViewLoadFailedCallback) -> C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback a -> WebViewLoadFailedCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewLoadFailedCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewLoadFailedCallback) -> m SignalHandlerId
onWebViewLoadFailed :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewLoadFailedCallback) -> m SignalHandlerId
onWebViewLoadFailed a
obj (?self::a) => 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 wrapped :: a -> WebViewLoadFailedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewLoadFailedCallback
WebViewLoadFailedCallback
cb
let wrapped' :: C_WebViewLoadFailedCallback
wrapped' = (a -> WebViewLoadFailedCallback) -> C_WebViewLoadFailedCallback
forall a.
GObject a =>
(a -> WebViewLoadFailedCallback) -> C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback a -> WebViewLoadFailedCallback
wrapped
FunPtr C_WebViewLoadFailedCallback
wrapped'' <- C_WebViewLoadFailedCallback
-> IO (FunPtr C_WebViewLoadFailedCallback)
mk_WebViewLoadFailedCallback C_WebViewLoadFailedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLoadFailed :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewLoadFailedCallback) -> m SignalHandlerId
afterWebViewLoadFailed :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewLoadFailedCallback) -> m SignalHandlerId
afterWebViewLoadFailed a
obj (?self::a) => 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 wrapped :: a -> WebViewLoadFailedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewLoadFailedCallback
WebViewLoadFailedCallback
cb
let wrapped' :: C_WebViewLoadFailedCallback
wrapped' = (a -> WebViewLoadFailedCallback) -> C_WebViewLoadFailedCallback
forall a.
GObject a =>
(a -> WebViewLoadFailedCallback) -> C_WebViewLoadFailedCallback
wrap_WebViewLoadFailedCallback a -> WebViewLoadFailedCallback
wrapped
FunPtr C_WebViewLoadFailedCallback
wrapped'' <- C_WebViewLoadFailedCallback
-> IO (FunPtr C_WebViewLoadFailedCallback)
mk_WebViewLoadFailedCallback C_WebViewLoadFailedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::load-failed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:loadFailed"})
#endif
type WebViewLoadFailedWithTlsErrorsCallback =
T.Text
-> Gio.TlsCertificate.TlsCertificate
-> [Gio.Flags.TlsCertificateFlags]
-> IO Bool
type C_WebViewLoadFailedWithTlsErrorsCallback =
Ptr WebView ->
CString ->
Ptr Gio.TlsCertificate.TlsCertificate ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewLoadFailedWithTlsErrorsCallback :: C_WebViewLoadFailedWithTlsErrorsCallback -> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
wrap_WebViewLoadFailedWithTlsErrorsCallback ::
GObject a => (a -> WebViewLoadFailedWithTlsErrorsCallback) ->
C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback :: forall a.
GObject a =>
(a -> WebViewLoadFailedWithTlsErrorsCallback)
-> C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback a -> WebViewLoadFailedWithTlsErrorsCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewLoadFailedWithTlsErrorsCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewLoadFailedWithTlsErrorsCallback) -> m SignalHandlerId
onWebViewLoadFailedWithTlsErrors :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewLoadFailedWithTlsErrorsCallback)
-> m SignalHandlerId
onWebViewLoadFailedWithTlsErrors a
obj (?self::a) => 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 wrapped :: a -> WebViewLoadFailedWithTlsErrorsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewLoadFailedWithTlsErrorsCallback
WebViewLoadFailedWithTlsErrorsCallback
cb
let wrapped' :: C_WebViewLoadFailedWithTlsErrorsCallback
wrapped' = (a -> WebViewLoadFailedWithTlsErrorsCallback)
-> C_WebViewLoadFailedWithTlsErrorsCallback
forall a.
GObject a =>
(a -> WebViewLoadFailedWithTlsErrorsCallback)
-> C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback a -> WebViewLoadFailedWithTlsErrorsCallback
wrapped
FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
wrapped'' <- C_WebViewLoadFailedWithTlsErrorsCallback
-> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
mk_WebViewLoadFailedWithTlsErrorsCallback C_WebViewLoadFailedWithTlsErrorsCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewLoadFailedWithTlsErrors :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewLoadFailedWithTlsErrorsCallback) -> m SignalHandlerId
afterWebViewLoadFailedWithTlsErrors :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewLoadFailedWithTlsErrorsCallback)
-> m SignalHandlerId
afterWebViewLoadFailedWithTlsErrors a
obj (?self::a) => 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 wrapped :: a -> WebViewLoadFailedWithTlsErrorsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewLoadFailedWithTlsErrorsCallback
WebViewLoadFailedWithTlsErrorsCallback
cb
let wrapped' :: C_WebViewLoadFailedWithTlsErrorsCallback
wrapped' = (a -> WebViewLoadFailedWithTlsErrorsCallback)
-> C_WebViewLoadFailedWithTlsErrorsCallback
forall a.
GObject a =>
(a -> WebViewLoadFailedWithTlsErrorsCallback)
-> C_WebViewLoadFailedWithTlsErrorsCallback
wrap_WebViewLoadFailedWithTlsErrorsCallback a -> WebViewLoadFailedWithTlsErrorsCallback
wrapped
FunPtr C_WebViewLoadFailedWithTlsErrorsCallback
wrapped'' <- C_WebViewLoadFailedWithTlsErrorsCallback
-> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)
mk_WebViewLoadFailedWithTlsErrorsCallback C_WebViewLoadFailedWithTlsErrorsCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::load-failed-with-tls-errors"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:loadFailedWithTlsErrors"})
#endif
type WebViewMouseTargetChangedCallback =
WebKit2.HitTestResult.HitTestResult
-> Word32
-> IO ()
type C_WebViewMouseTargetChangedCallback =
Ptr WebView ->
Ptr WebKit2.HitTestResult.HitTestResult ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewMouseTargetChangedCallback :: C_WebViewMouseTargetChangedCallback -> IO (FunPtr C_WebViewMouseTargetChangedCallback)
wrap_WebViewMouseTargetChangedCallback ::
GObject a => (a -> WebViewMouseTargetChangedCallback) ->
C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback :: forall a.
GObject a =>
(a -> WebViewMouseTargetChangedCallback)
-> C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback a -> WebViewMouseTargetChangedCallback
gi'cb Ptr WebView
gi'selfPtr 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
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewMouseTargetChangedCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) HitTestResult
hitTestResult' Word32
modifiers
onWebViewMouseTargetChanged :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewMouseTargetChangedCallback) -> m SignalHandlerId
onWebViewMouseTargetChanged :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewMouseTargetChangedCallback)
-> m SignalHandlerId
onWebViewMouseTargetChanged a
obj (?self::a) => 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 wrapped :: a -> WebViewMouseTargetChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewMouseTargetChangedCallback
WebViewMouseTargetChangedCallback
cb
let wrapped' :: C_WebViewMouseTargetChangedCallback
wrapped' = (a -> WebViewMouseTargetChangedCallback)
-> C_WebViewMouseTargetChangedCallback
forall a.
GObject a =>
(a -> WebViewMouseTargetChangedCallback)
-> C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback a -> WebViewMouseTargetChangedCallback
wrapped
FunPtr C_WebViewMouseTargetChangedCallback
wrapped'' <- C_WebViewMouseTargetChangedCallback
-> IO (FunPtr C_WebViewMouseTargetChangedCallback)
mk_WebViewMouseTargetChangedCallback C_WebViewMouseTargetChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewMouseTargetChanged :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewMouseTargetChangedCallback) -> m SignalHandlerId
afterWebViewMouseTargetChanged :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewMouseTargetChangedCallback)
-> m SignalHandlerId
afterWebViewMouseTargetChanged a
obj (?self::a) => 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 wrapped :: a -> WebViewMouseTargetChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewMouseTargetChangedCallback
WebViewMouseTargetChangedCallback
cb
let wrapped' :: C_WebViewMouseTargetChangedCallback
wrapped' = (a -> WebViewMouseTargetChangedCallback)
-> C_WebViewMouseTargetChangedCallback
forall a.
GObject a =>
(a -> WebViewMouseTargetChangedCallback)
-> C_WebViewMouseTargetChangedCallback
wrap_WebViewMouseTargetChangedCallback a -> WebViewMouseTargetChangedCallback
wrapped
FunPtr C_WebViewMouseTargetChangedCallback
wrapped'' <- C_WebViewMouseTargetChangedCallback
-> IO (FunPtr C_WebViewMouseTargetChangedCallback)
mk_WebViewMouseTargetChangedCallback C_WebViewMouseTargetChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::mouse-target-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:mouseTargetChanged"})
#endif
type WebViewPermissionRequestCallback =
WebKit2.PermissionRequest.PermissionRequest
-> IO Bool
type C_WebViewPermissionRequestCallback =
Ptr WebView ->
Ptr WebKit2.PermissionRequest.PermissionRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewPermissionRequestCallback :: C_WebViewPermissionRequestCallback -> IO (FunPtr C_WebViewPermissionRequestCallback)
wrap_WebViewPermissionRequestCallback ::
GObject a => (a -> WebViewPermissionRequestCallback) ->
C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback :: forall a.
GObject a =>
(a -> WebViewPermissionRequestCallback)
-> C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback a -> WebViewPermissionRequestCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewPermissionRequestCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewPermissionRequestCallback) -> m SignalHandlerId
onWebViewPermissionRequest :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewPermissionRequestCallback)
-> m SignalHandlerId
onWebViewPermissionRequest a
obj (?self::a) => 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 wrapped :: a -> WebViewPermissionRequestCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewPermissionRequestCallback
WebViewPermissionRequestCallback
cb
let wrapped' :: C_WebViewPermissionRequestCallback
wrapped' = (a -> WebViewPermissionRequestCallback)
-> C_WebViewPermissionRequestCallback
forall a.
GObject a =>
(a -> WebViewPermissionRequestCallback)
-> C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback a -> WebViewPermissionRequestCallback
wrapped
FunPtr C_WebViewPermissionRequestCallback
wrapped'' <- C_WebViewPermissionRequestCallback
-> IO (FunPtr C_WebViewPermissionRequestCallback)
mk_WebViewPermissionRequestCallback C_WebViewPermissionRequestCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewPermissionRequest :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewPermissionRequestCallback) -> m SignalHandlerId
afterWebViewPermissionRequest :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewPermissionRequestCallback)
-> m SignalHandlerId
afterWebViewPermissionRequest a
obj (?self::a) => 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 wrapped :: a -> WebViewPermissionRequestCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewPermissionRequestCallback
WebViewPermissionRequestCallback
cb
let wrapped' :: C_WebViewPermissionRequestCallback
wrapped' = (a -> WebViewPermissionRequestCallback)
-> C_WebViewPermissionRequestCallback
forall a.
GObject a =>
(a -> WebViewPermissionRequestCallback)
-> C_WebViewPermissionRequestCallback
wrap_WebViewPermissionRequestCallback a -> WebViewPermissionRequestCallback
wrapped
FunPtr C_WebViewPermissionRequestCallback
wrapped'' <- C_WebViewPermissionRequestCallback
-> IO (FunPtr C_WebViewPermissionRequestCallback)
mk_WebViewPermissionRequestCallback C_WebViewPermissionRequestCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::permission-request"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:permissionRequest"})
#endif
type WebViewPrintCallback =
WebKit2.PrintOperation.PrintOperation
-> IO Bool
type C_WebViewPrintCallback =
Ptr WebView ->
Ptr WebKit2.PrintOperation.PrintOperation ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewPrintCallback :: C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)
wrap_WebViewPrintCallback ::
GObject a => (a -> WebViewPrintCallback) ->
C_WebViewPrintCallback
wrap_WebViewPrintCallback :: forall a.
GObject a =>
(a -> WebViewPrintCallback) -> C_WebViewPrintCallback
wrap_WebViewPrintCallback a -> WebViewPrintCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewPrintCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewPrintCallback) -> m SignalHandlerId
onWebViewPrint :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewPrintCallback) -> m SignalHandlerId
onWebViewPrint a
obj (?self::a) => 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 wrapped :: a -> WebViewPrintCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewPrintCallback
WebViewPrintCallback
cb
let wrapped' :: C_WebViewPrintCallback
wrapped' = (a -> WebViewPrintCallback) -> C_WebViewPrintCallback
forall a.
GObject a =>
(a -> WebViewPrintCallback) -> C_WebViewPrintCallback
wrap_WebViewPrintCallback a -> WebViewPrintCallback
wrapped
FunPtr C_WebViewPrintCallback
wrapped'' <- C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)
mk_WebViewPrintCallback C_WebViewPrintCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewPrint :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewPrintCallback) -> m SignalHandlerId
afterWebViewPrint :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewPrintCallback) -> m SignalHandlerId
afterWebViewPrint a
obj (?self::a) => 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 wrapped :: a -> WebViewPrintCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewPrintCallback
WebViewPrintCallback
cb
let wrapped' :: C_WebViewPrintCallback
wrapped' = (a -> WebViewPrintCallback) -> C_WebViewPrintCallback
forall a.
GObject a =>
(a -> WebViewPrintCallback) -> C_WebViewPrintCallback
wrap_WebViewPrintCallback a -> WebViewPrintCallback
wrapped
FunPtr C_WebViewPrintCallback
wrapped'' <- C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)
mk_WebViewPrintCallback C_WebViewPrintCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::print"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:print"})
#endif
type WebViewReadyToShowCallback =
IO ()
type C_WebViewReadyToShowCallback =
Ptr WebView ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewReadyToShowCallback :: C_WebViewReadyToShowCallback -> IO (FunPtr C_WebViewReadyToShowCallback)
wrap_WebViewReadyToShowCallback ::
GObject a => (a -> WebViewReadyToShowCallback) ->
C_WebViewReadyToShowCallback
wrap_WebViewReadyToShowCallback :: forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewReadyToShowCallback a -> IO ()
gi'cb Ptr WebView
gi'selfPtr Ptr ()
_ = do
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> IO ()
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self)
onWebViewReadyToShow :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewReadyToShowCallback) -> m SignalHandlerId
onWebViewReadyToShow :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWebViewReadyToShow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewReadyToShowCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewReadyToShowCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewReadyToShow :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewReadyToShowCallback) -> m SignalHandlerId
afterWebViewReadyToShow :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWebViewReadyToShow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewReadyToShowCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewReadyToShowCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::ready-to-show"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:readyToShow"})
#endif
type WebViewResourceLoadStartedCallback =
WebKit2.WebResource.WebResource
-> WebKit2.URIRequest.URIRequest
-> IO ()
type C_WebViewResourceLoadStartedCallback =
Ptr WebView ->
Ptr WebKit2.WebResource.WebResource ->
Ptr WebKit2.URIRequest.URIRequest ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewResourceLoadStartedCallback :: C_WebViewResourceLoadStartedCallback -> IO (FunPtr C_WebViewResourceLoadStartedCallback)
wrap_WebViewResourceLoadStartedCallback ::
GObject a => (a -> WebViewResourceLoadStartedCallback) ->
C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback :: forall a.
GObject a =>
(a -> WebViewResourceLoadStartedCallback)
-> C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback a -> WebViewResourceLoadStartedCallback
gi'cb Ptr WebView
gi'selfPtr 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
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewResourceLoadStartedCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) WebResource
resource' URIRequest
request'
onWebViewResourceLoadStarted :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewResourceLoadStartedCallback) -> m SignalHandlerId
onWebViewResourceLoadStarted :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewResourceLoadStartedCallback)
-> m SignalHandlerId
onWebViewResourceLoadStarted a
obj (?self::a) => 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 wrapped :: a -> WebViewResourceLoadStartedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewResourceLoadStartedCallback
WebViewResourceLoadStartedCallback
cb
let wrapped' :: C_WebViewResourceLoadStartedCallback
wrapped' = (a -> WebViewResourceLoadStartedCallback)
-> C_WebViewResourceLoadStartedCallback
forall a.
GObject a =>
(a -> WebViewResourceLoadStartedCallback)
-> C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback a -> WebViewResourceLoadStartedCallback
wrapped
FunPtr C_WebViewResourceLoadStartedCallback
wrapped'' <- C_WebViewResourceLoadStartedCallback
-> IO (FunPtr C_WebViewResourceLoadStartedCallback)
mk_WebViewResourceLoadStartedCallback C_WebViewResourceLoadStartedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewResourceLoadStarted :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewResourceLoadStartedCallback) -> m SignalHandlerId
afterWebViewResourceLoadStarted :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewResourceLoadStartedCallback)
-> m SignalHandlerId
afterWebViewResourceLoadStarted a
obj (?self::a) => 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 wrapped :: a -> WebViewResourceLoadStartedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewResourceLoadStartedCallback
WebViewResourceLoadStartedCallback
cb
let wrapped' :: C_WebViewResourceLoadStartedCallback
wrapped' = (a -> WebViewResourceLoadStartedCallback)
-> C_WebViewResourceLoadStartedCallback
forall a.
GObject a =>
(a -> WebViewResourceLoadStartedCallback)
-> C_WebViewResourceLoadStartedCallback
wrap_WebViewResourceLoadStartedCallback a -> WebViewResourceLoadStartedCallback
wrapped
FunPtr C_WebViewResourceLoadStartedCallback
wrapped'' <- C_WebViewResourceLoadStartedCallback
-> IO (FunPtr C_WebViewResourceLoadStartedCallback)
mk_WebViewResourceLoadStartedCallback C_WebViewResourceLoadStartedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::resource-load-started"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:resourceLoadStarted"})
#endif
type WebViewRunAsModalCallback =
IO ()
type C_WebViewRunAsModalCallback =
Ptr WebView ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewRunAsModalCallback :: C_WebViewRunAsModalCallback -> IO (FunPtr C_WebViewRunAsModalCallback)
wrap_WebViewRunAsModalCallback ::
GObject a => (a -> WebViewRunAsModalCallback) ->
C_WebViewRunAsModalCallback
wrap_WebViewRunAsModalCallback :: forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewRunAsModalCallback a -> IO ()
gi'cb Ptr WebView
gi'selfPtr Ptr ()
_ = do
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> IO ()
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self)
onWebViewRunAsModal :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewRunAsModalCallback) -> m SignalHandlerId
onWebViewRunAsModal :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWebViewRunAsModal a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewRunAsModalCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewRunAsModalCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewRunAsModal :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewRunAsModalCallback) -> m SignalHandlerId
afterWebViewRunAsModal :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWebViewRunAsModal a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WebViewCloseCallback
wrapped' = (a -> IO ()) -> C_WebViewCloseCallback
forall a. GObject a => (a -> IO ()) -> C_WebViewCloseCallback
wrap_WebViewRunAsModalCallback a -> IO ()
wrapped
FunPtr C_WebViewCloseCallback
wrapped'' <- C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)
mk_WebViewRunAsModalCallback C_WebViewCloseCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::run-as-modal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:runAsModal"})
#endif
type WebViewRunColorChooserCallback =
WebKit2.ColorChooserRequest.ColorChooserRequest
-> IO Bool
type C_WebViewRunColorChooserCallback =
Ptr WebView ->
Ptr WebKit2.ColorChooserRequest.ColorChooserRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewRunColorChooserCallback :: C_WebViewRunColorChooserCallback -> IO (FunPtr C_WebViewRunColorChooserCallback)
wrap_WebViewRunColorChooserCallback ::
GObject a => (a -> WebViewRunColorChooserCallback) ->
C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback :: forall a.
GObject a =>
(a -> WebViewRunColorChooserCallback)
-> C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback a -> WebViewRunColorChooserCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewRunColorChooserCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewRunColorChooserCallback) -> m SignalHandlerId
onWebViewRunColorChooser :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewRunColorChooserCallback)
-> m SignalHandlerId
onWebViewRunColorChooser a
obj (?self::a) => 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 wrapped :: a -> WebViewRunColorChooserCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewRunColorChooserCallback
WebViewRunColorChooserCallback
cb
let wrapped' :: C_WebViewRunColorChooserCallback
wrapped' = (a -> WebViewRunColorChooserCallback)
-> C_WebViewRunColorChooserCallback
forall a.
GObject a =>
(a -> WebViewRunColorChooserCallback)
-> C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback a -> WebViewRunColorChooserCallback
wrapped
FunPtr C_WebViewRunColorChooserCallback
wrapped'' <- C_WebViewRunColorChooserCallback
-> IO (FunPtr C_WebViewRunColorChooserCallback)
mk_WebViewRunColorChooserCallback C_WebViewRunColorChooserCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewRunColorChooser :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewRunColorChooserCallback) -> m SignalHandlerId
afterWebViewRunColorChooser :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewRunColorChooserCallback)
-> m SignalHandlerId
afterWebViewRunColorChooser a
obj (?self::a) => 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 wrapped :: a -> WebViewRunColorChooserCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewRunColorChooserCallback
WebViewRunColorChooserCallback
cb
let wrapped' :: C_WebViewRunColorChooserCallback
wrapped' = (a -> WebViewRunColorChooserCallback)
-> C_WebViewRunColorChooserCallback
forall a.
GObject a =>
(a -> WebViewRunColorChooserCallback)
-> C_WebViewRunColorChooserCallback
wrap_WebViewRunColorChooserCallback a -> WebViewRunColorChooserCallback
wrapped
FunPtr C_WebViewRunColorChooserCallback
wrapped'' <- C_WebViewRunColorChooserCallback
-> IO (FunPtr C_WebViewRunColorChooserCallback)
mk_WebViewRunColorChooserCallback C_WebViewRunColorChooserCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::run-color-chooser"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:runColorChooser"})
#endif
type WebViewRunFileChooserCallback =
WebKit2.FileChooserRequest.FileChooserRequest
-> IO Bool
type C_WebViewRunFileChooserCallback =
Ptr WebView ->
Ptr WebKit2.FileChooserRequest.FileChooserRequest ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewRunFileChooserCallback :: C_WebViewRunFileChooserCallback -> IO (FunPtr C_WebViewRunFileChooserCallback)
wrap_WebViewRunFileChooserCallback ::
GObject a => (a -> WebViewRunFileChooserCallback) ->
C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback :: forall a.
GObject a =>
(a -> WebViewRunFileChooserCallback)
-> C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback a -> WebViewRunFileChooserCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewRunFileChooserCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewRunFileChooserCallback) -> m SignalHandlerId
onWebViewRunFileChooser :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewRunFileChooserCallback)
-> m SignalHandlerId
onWebViewRunFileChooser a
obj (?self::a) => 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 wrapped :: a -> WebViewRunFileChooserCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewRunFileChooserCallback
WebViewRunFileChooserCallback
cb
let wrapped' :: C_WebViewRunFileChooserCallback
wrapped' = (a -> WebViewRunFileChooserCallback)
-> C_WebViewRunFileChooserCallback
forall a.
GObject a =>
(a -> WebViewRunFileChooserCallback)
-> C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback a -> WebViewRunFileChooserCallback
wrapped
FunPtr C_WebViewRunFileChooserCallback
wrapped'' <- C_WebViewRunFileChooserCallback
-> IO (FunPtr C_WebViewRunFileChooserCallback)
mk_WebViewRunFileChooserCallback C_WebViewRunFileChooserCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewRunFileChooser :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewRunFileChooserCallback) -> m SignalHandlerId
afterWebViewRunFileChooser :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewRunFileChooserCallback)
-> m SignalHandlerId
afterWebViewRunFileChooser a
obj (?self::a) => 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 wrapped :: a -> WebViewRunFileChooserCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewRunFileChooserCallback
WebViewRunFileChooserCallback
cb
let wrapped' :: C_WebViewRunFileChooserCallback
wrapped' = (a -> WebViewRunFileChooserCallback)
-> C_WebViewRunFileChooserCallback
forall a.
GObject a =>
(a -> WebViewRunFileChooserCallback)
-> C_WebViewRunFileChooserCallback
wrap_WebViewRunFileChooserCallback a -> WebViewRunFileChooserCallback
wrapped
FunPtr C_WebViewRunFileChooserCallback
wrapped'' <- C_WebViewRunFileChooserCallback
-> IO (FunPtr C_WebViewRunFileChooserCallback)
mk_WebViewRunFileChooserCallback C_WebViewRunFileChooserCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::run-file-chooser"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:runFileChooser"})
#endif
type WebViewScriptDialogCallback =
WebKit2.ScriptDialog.ScriptDialog
-> IO Bool
type C_WebViewScriptDialogCallback =
Ptr WebView ->
Ptr WebKit2.ScriptDialog.ScriptDialog ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewScriptDialogCallback :: C_WebViewScriptDialogCallback -> IO (FunPtr C_WebViewScriptDialogCallback)
wrap_WebViewScriptDialogCallback ::
GObject a => (a -> WebViewScriptDialogCallback) ->
C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback :: forall a.
GObject a =>
(a -> WebViewScriptDialogCallback) -> C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback a -> WebViewScriptDialogCallback
gi'cb Ptr WebView
gi'selfPtr Ptr ScriptDialog
dialog Ptr ()
_ = do
Ptr ScriptDialog -> (ScriptDialog -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewScriptDialogCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewScriptDialogCallback) -> m SignalHandlerId
onWebViewScriptDialog :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewScriptDialogCallback) -> m SignalHandlerId
onWebViewScriptDialog a
obj (?self::a) => 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 wrapped :: a -> WebViewScriptDialogCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewScriptDialogCallback
WebViewScriptDialogCallback
cb
let wrapped' :: C_WebViewScriptDialogCallback
wrapped' = (a -> WebViewScriptDialogCallback) -> C_WebViewScriptDialogCallback
forall a.
GObject a =>
(a -> WebViewScriptDialogCallback) -> C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback a -> WebViewScriptDialogCallback
wrapped
FunPtr C_WebViewScriptDialogCallback
wrapped'' <- C_WebViewScriptDialogCallback
-> IO (FunPtr C_WebViewScriptDialogCallback)
mk_WebViewScriptDialogCallback C_WebViewScriptDialogCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewScriptDialog :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewScriptDialogCallback) -> m SignalHandlerId
afterWebViewScriptDialog :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewScriptDialogCallback) -> m SignalHandlerId
afterWebViewScriptDialog a
obj (?self::a) => 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 wrapped :: a -> WebViewScriptDialogCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewScriptDialogCallback
WebViewScriptDialogCallback
cb
let wrapped' :: C_WebViewScriptDialogCallback
wrapped' = (a -> WebViewScriptDialogCallback) -> C_WebViewScriptDialogCallback
forall a.
GObject a =>
(a -> WebViewScriptDialogCallback) -> C_WebViewScriptDialogCallback
wrap_WebViewScriptDialogCallback a -> WebViewScriptDialogCallback
wrapped
FunPtr C_WebViewScriptDialogCallback
wrapped'' <- C_WebViewScriptDialogCallback
-> IO (FunPtr C_WebViewScriptDialogCallback)
mk_WebViewScriptDialogCallback C_WebViewScriptDialogCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::script-dialog"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:scriptDialog"})
#endif
type WebViewShowNotificationCallback =
WebKit2.Notification.Notification
-> IO Bool
type C_WebViewShowNotificationCallback =
Ptr WebView ->
Ptr WebKit2.Notification.Notification ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewShowNotificationCallback :: C_WebViewShowNotificationCallback -> IO (FunPtr C_WebViewShowNotificationCallback)
wrap_WebViewShowNotificationCallback ::
GObject a => (a -> WebViewShowNotificationCallback) ->
C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback :: forall a.
GObject a =>
(a -> WebViewShowNotificationCallback)
-> C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback a -> WebViewShowNotificationCallback
gi'cb Ptr WebView
gi'selfPtr 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 <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewShowNotificationCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) 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 -> ((?self :: a) => WebViewShowNotificationCallback) -> m SignalHandlerId
onWebViewShowNotification :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewShowNotificationCallback)
-> m SignalHandlerId
onWebViewShowNotification a
obj (?self::a) => 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 wrapped :: a -> WebViewShowNotificationCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewShowNotificationCallback
WebViewShowNotificationCallback
cb
let wrapped' :: C_WebViewShowNotificationCallback
wrapped' = (a -> WebViewShowNotificationCallback)
-> C_WebViewShowNotificationCallback
forall a.
GObject a =>
(a -> WebViewShowNotificationCallback)
-> C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback a -> WebViewShowNotificationCallback
wrapped
FunPtr C_WebViewShowNotificationCallback
wrapped'' <- C_WebViewShowNotificationCallback
-> IO (FunPtr C_WebViewShowNotificationCallback)
mk_WebViewShowNotificationCallback C_WebViewShowNotificationCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewShowNotification :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewShowNotificationCallback) -> m SignalHandlerId
afterWebViewShowNotification :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewShowNotificationCallback)
-> m SignalHandlerId
afterWebViewShowNotification a
obj (?self::a) => 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 wrapped :: a -> WebViewShowNotificationCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewShowNotificationCallback
WebViewShowNotificationCallback
cb
let wrapped' :: C_WebViewShowNotificationCallback
wrapped' = (a -> WebViewShowNotificationCallback)
-> C_WebViewShowNotificationCallback
forall a.
GObject a =>
(a -> WebViewShowNotificationCallback)
-> C_WebViewShowNotificationCallback
wrap_WebViewShowNotificationCallback a -> WebViewShowNotificationCallback
wrapped
FunPtr C_WebViewShowNotificationCallback
wrapped'' <- C_WebViewShowNotificationCallback
-> IO (FunPtr C_WebViewShowNotificationCallback)
mk_WebViewShowNotificationCallback C_WebViewShowNotificationCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::show-notification"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:showNotification"})
#endif
type =
WebKit2.OptionMenu.OptionMenu
-> Gdk.Event.Event
-> Gdk.Rectangle.Rectangle
-> IO Bool
type =
Ptr WebView ->
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)
wrap_WebViewShowOptionMenuCallback ::
GObject a => (a -> WebViewShowOptionMenuCallback) ->
C_WebViewShowOptionMenuCallback
a -> WebViewShowOptionMenuCallback
gi'cb Ptr WebView
gi'selfPtr Ptr OptionMenu
menu Ptr Event
event Ptr Rectangle
rectangle Ptr ()
_ = do
OptionMenu
menu' <- ((ManagedPtr OptionMenu -> OptionMenu)
-> Ptr OptionMenu -> IO OptionMenu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr OptionMenu -> OptionMenu
WebKit2.OptionMenu.OptionMenu) Ptr OptionMenu
menu
Ptr Event -> (Event -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Event
event ((Event -> IO CInt) -> IO CInt) -> (Event -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Event
event' -> do
Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Rectangle
rectangle ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Rectangle
rectangle' -> do
Bool
result <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewShowOptionMenuCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) OptionMenu
menu' Event
event' Rectangle
rectangle'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewShowOptionMenu :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewShowOptionMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => 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 wrapped :: a -> WebViewShowOptionMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewShowOptionMenuCallback
WebViewShowOptionMenuCallback
cb
let wrapped' :: C_WebViewShowOptionMenuCallback
wrapped' = (a -> WebViewShowOptionMenuCallback)
-> C_WebViewShowOptionMenuCallback
forall a.
GObject a =>
(a -> WebViewShowOptionMenuCallback)
-> C_WebViewShowOptionMenuCallback
wrap_WebViewShowOptionMenuCallback a -> WebViewShowOptionMenuCallback
wrapped
FunPtr C_WebViewShowOptionMenuCallback
wrapped'' <- C_WebViewShowOptionMenuCallback
-> IO (FunPtr C_WebViewShowOptionMenuCallback)
mk_WebViewShowOptionMenuCallback C_WebViewShowOptionMenuCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewShowOptionMenu :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewShowOptionMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => 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 wrapped :: a -> WebViewShowOptionMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewShowOptionMenuCallback
WebViewShowOptionMenuCallback
cb
let wrapped' :: C_WebViewShowOptionMenuCallback
wrapped' = (a -> WebViewShowOptionMenuCallback)
-> C_WebViewShowOptionMenuCallback
forall a.
GObject a =>
(a -> WebViewShowOptionMenuCallback)
-> C_WebViewShowOptionMenuCallback
wrap_WebViewShowOptionMenuCallback a -> WebViewShowOptionMenuCallback
wrapped
FunPtr C_WebViewShowOptionMenuCallback
wrapped'' <- C_WebViewShowOptionMenuCallback
-> IO (FunPtr C_WebViewShowOptionMenuCallback)
mk_WebViewShowOptionMenuCallback C_WebViewShowOptionMenuCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::show-option-menu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:showOptionMenu"})
#endif
type WebViewSubmitFormCallback =
WebKit2.FormSubmissionRequest.FormSubmissionRequest
-> IO ()
type C_WebViewSubmitFormCallback =
Ptr WebView ->
Ptr WebKit2.FormSubmissionRequest.FormSubmissionRequest ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewSubmitFormCallback :: C_WebViewSubmitFormCallback -> IO (FunPtr C_WebViewSubmitFormCallback)
wrap_WebViewSubmitFormCallback ::
GObject a => (a -> WebViewSubmitFormCallback) ->
C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback :: forall a.
GObject a =>
(a -> WebViewSubmitFormCallback) -> C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback a -> WebViewSubmitFormCallback
gi'cb Ptr WebView
gi'selfPtr 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
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewSubmitFormCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) FormSubmissionRequest
request'
onWebViewSubmitForm :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewSubmitFormCallback) -> m SignalHandlerId
onWebViewSubmitForm :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewSubmitFormCallback) -> m SignalHandlerId
onWebViewSubmitForm a
obj (?self::a) => 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 wrapped :: a -> WebViewSubmitFormCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewSubmitFormCallback
WebViewSubmitFormCallback
cb
let wrapped' :: C_WebViewSubmitFormCallback
wrapped' = (a -> WebViewSubmitFormCallback) -> C_WebViewSubmitFormCallback
forall a.
GObject a =>
(a -> WebViewSubmitFormCallback) -> C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback a -> WebViewSubmitFormCallback
wrapped
FunPtr C_WebViewSubmitFormCallback
wrapped'' <- C_WebViewSubmitFormCallback
-> IO (FunPtr C_WebViewSubmitFormCallback)
mk_WebViewSubmitFormCallback C_WebViewSubmitFormCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewSubmitForm :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewSubmitFormCallback) -> m SignalHandlerId
afterWebViewSubmitForm :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => WebViewSubmitFormCallback) -> m SignalHandlerId
afterWebViewSubmitForm a
obj (?self::a) => 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 wrapped :: a -> WebViewSubmitFormCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewSubmitFormCallback
WebViewSubmitFormCallback
cb
let wrapped' :: C_WebViewSubmitFormCallback
wrapped' = (a -> WebViewSubmitFormCallback) -> C_WebViewSubmitFormCallback
forall a.
GObject a =>
(a -> WebViewSubmitFormCallback) -> C_WebViewSubmitFormCallback
wrap_WebViewSubmitFormCallback a -> WebViewSubmitFormCallback
wrapped
FunPtr C_WebViewSubmitFormCallback
wrapped'' <- C_WebViewSubmitFormCallback
-> IO (FunPtr C_WebViewSubmitFormCallback)
mk_WebViewSubmitFormCallback C_WebViewSubmitFormCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::submit-form"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:submitForm"})
#endif
type WebViewUserMessageReceivedCallback =
WebKit2.UserMessage.UserMessage
-> IO Bool
type C_WebViewUserMessageReceivedCallback =
Ptr WebView ->
Ptr WebKit2.UserMessage.UserMessage ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewUserMessageReceivedCallback :: C_WebViewUserMessageReceivedCallback -> IO (FunPtr C_WebViewUserMessageReceivedCallback)
wrap_WebViewUserMessageReceivedCallback ::
GObject a => (a -> WebViewUserMessageReceivedCallback) ->
C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback :: forall a.
GObject a =>
(a -> WebViewUserMessageReceivedCallback)
-> C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback a -> WebViewUserMessageReceivedCallback
gi'cb Ptr WebView
gi'selfPtr Ptr UserMessage
message Ptr ()
_ = do
UserMessage
message' <- ((ManagedPtr UserMessage -> UserMessage)
-> Ptr UserMessage -> IO UserMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr UserMessage -> UserMessage
WebKit2.UserMessage.UserMessage) Ptr UserMessage
message
Bool
result <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewUserMessageReceivedCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) UserMessage
message'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewUserMessageReceived :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewUserMessageReceivedCallback) -> m SignalHandlerId
onWebViewUserMessageReceived :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewUserMessageReceivedCallback)
-> m SignalHandlerId
onWebViewUserMessageReceived a
obj (?self::a) => 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 wrapped :: a -> WebViewUserMessageReceivedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewUserMessageReceivedCallback
WebViewUserMessageReceivedCallback
cb
let wrapped' :: C_WebViewUserMessageReceivedCallback
wrapped' = (a -> WebViewUserMessageReceivedCallback)
-> C_WebViewUserMessageReceivedCallback
forall a.
GObject a =>
(a -> WebViewUserMessageReceivedCallback)
-> C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback a -> WebViewUserMessageReceivedCallback
wrapped
FunPtr C_WebViewUserMessageReceivedCallback
wrapped'' <- C_WebViewUserMessageReceivedCallback
-> IO (FunPtr C_WebViewUserMessageReceivedCallback)
mk_WebViewUserMessageReceivedCallback C_WebViewUserMessageReceivedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewUserMessageReceived :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewUserMessageReceivedCallback) -> m SignalHandlerId
afterWebViewUserMessageReceived :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewUserMessageReceivedCallback)
-> m SignalHandlerId
afterWebViewUserMessageReceived a
obj (?self::a) => 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 wrapped :: a -> WebViewUserMessageReceivedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewUserMessageReceivedCallback
WebViewUserMessageReceivedCallback
cb
let wrapped' :: C_WebViewUserMessageReceivedCallback
wrapped' = (a -> WebViewUserMessageReceivedCallback)
-> C_WebViewUserMessageReceivedCallback
forall a.
GObject a =>
(a -> WebViewUserMessageReceivedCallback)
-> C_WebViewUserMessageReceivedCallback
wrap_WebViewUserMessageReceivedCallback a -> WebViewUserMessageReceivedCallback
wrapped
FunPtr C_WebViewUserMessageReceivedCallback
wrapped'' <- C_WebViewUserMessageReceivedCallback
-> IO (FunPtr C_WebViewUserMessageReceivedCallback)
mk_WebViewUserMessageReceivedCallback C_WebViewUserMessageReceivedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::user-message-received"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:userMessageReceived"})
#endif
{-# DEPRECATED WebViewWebProcessCrashedCallback ["(Since version 2.20)","Use WebKitWebView[webProcessTerminated](#g:signal:webProcessTerminated) instead."] #-}
type WebViewWebProcessCrashedCallback =
IO Bool
type C_WebViewWebProcessCrashedCallback =
Ptr WebView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WebViewWebProcessCrashedCallback :: C_WebViewWebProcessCrashedCallback -> IO (FunPtr C_WebViewWebProcessCrashedCallback)
wrap_WebViewWebProcessCrashedCallback ::
GObject a => (a -> WebViewWebProcessCrashedCallback) ->
C_WebViewWebProcessCrashedCallback
wrap_WebViewWebProcessCrashedCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewWebProcessCrashedCallback a -> IO Bool
gi'cb Ptr WebView
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr WebView -> (WebView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO Bool) -> IO Bool)
-> (WebView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> IO Bool
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWebViewWebProcessCrashed :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewWebProcessCrashedCallback) -> m SignalHandlerId
onWebViewWebProcessCrashed :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onWebViewWebProcessCrashed a
obj (?self::a) => IO Bool
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_WebViewEnterFullscreenCallback
wrapped' = (a -> IO Bool) -> C_WebViewEnterFullscreenCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewWebProcessCrashedCallback a -> IO Bool
wrapped
FunPtr C_WebViewEnterFullscreenCallback
wrapped'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewWebProcessCrashedCallback C_WebViewEnterFullscreenCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewWebProcessCrashed :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewWebProcessCrashedCallback) -> m SignalHandlerId
afterWebViewWebProcessCrashed :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterWebViewWebProcessCrashed a
obj (?self::a) => IO Bool
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_WebViewEnterFullscreenCallback
wrapped' = (a -> IO Bool) -> C_WebViewEnterFullscreenCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_WebViewEnterFullscreenCallback
wrap_WebViewWebProcessCrashedCallback a -> IO Bool
wrapped
FunPtr C_WebViewEnterFullscreenCallback
wrapped'' <- C_WebViewEnterFullscreenCallback
-> IO (FunPtr C_WebViewEnterFullscreenCallback)
mk_WebViewWebProcessCrashedCallback C_WebViewEnterFullscreenCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::web-process-crashed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:webProcessCrashed"})
#endif
type WebViewWebProcessTerminatedCallback =
WebKit2.Enums.WebProcessTerminationReason
-> IO ()
type C_WebViewWebProcessTerminatedCallback =
Ptr WebView ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebViewWebProcessTerminatedCallback :: C_WebViewWebProcessTerminatedCallback -> IO (FunPtr C_WebViewWebProcessTerminatedCallback)
wrap_WebViewWebProcessTerminatedCallback ::
GObject a => (a -> WebViewWebProcessTerminatedCallback) ->
C_WebViewWebProcessTerminatedCallback
wrap_WebViewWebProcessTerminatedCallback :: forall a.
GObject a =>
(a -> WebViewWebProcessTerminatedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewWebProcessTerminatedCallback a -> WebViewWebProcessTerminatedCallback
gi'cb Ptr WebView
gi'selfPtr 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
Ptr WebView -> (WebView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr WebView
gi'selfPtr ((WebView -> IO ()) -> IO ()) -> (WebView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \WebView
gi'self -> a -> WebViewWebProcessTerminatedCallback
gi'cb (WebView -> a
Coerce.coerce WebView
gi'self) WebProcessTerminationReason
reason'
onWebViewWebProcessTerminated :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewWebProcessTerminatedCallback) -> m SignalHandlerId
onWebViewWebProcessTerminated :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewWebProcessTerminatedCallback)
-> m SignalHandlerId
onWebViewWebProcessTerminated a
obj (?self::a) => 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 wrapped :: a -> WebViewWebProcessTerminatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewWebProcessTerminatedCallback
WebViewWebProcessTerminatedCallback
cb
let wrapped' :: C_WebViewInsecureContentDetectedCallback
wrapped' = (a -> WebViewWebProcessTerminatedCallback)
-> C_WebViewInsecureContentDetectedCallback
forall a.
GObject a =>
(a -> WebViewWebProcessTerminatedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewWebProcessTerminatedCallback a -> WebViewWebProcessTerminatedCallback
wrapped
FunPtr C_WebViewInsecureContentDetectedCallback
wrapped'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewWebProcessTerminatedCallback C_WebViewInsecureContentDetectedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWebViewWebProcessTerminated :: (IsWebView a, MonadIO m) => a -> ((?self :: a) => WebViewWebProcessTerminatedCallback) -> m SignalHandlerId
afterWebViewWebProcessTerminated :: forall a (m :: * -> *).
(IsWebView a, MonadIO m) =>
a
-> ((?self::a) => WebViewWebProcessTerminatedCallback)
-> m SignalHandlerId
afterWebViewWebProcessTerminated a
obj (?self::a) => 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 wrapped :: a -> WebViewWebProcessTerminatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WebViewWebProcessTerminatedCallback
WebViewWebProcessTerminatedCallback
cb
let wrapped' :: C_WebViewInsecureContentDetectedCallback
wrapped' = (a -> WebViewWebProcessTerminatedCallback)
-> C_WebViewInsecureContentDetectedCallback
forall a.
GObject a =>
(a -> WebViewWebProcessTerminatedCallback)
-> C_WebViewInsecureContentDetectedCallback
wrap_WebViewWebProcessTerminatedCallback a -> WebViewWebProcessTerminatedCallback
wrapped
FunPtr C_WebViewInsecureContentDetectedCallback
wrapped'' <- C_WebViewInsecureContentDetectedCallback
-> IO (FunPtr C_WebViewInsecureContentDetectedCallback)
mk_WebViewWebProcessTerminatedCallback C_WebViewInsecureContentDetectedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView::web-process-terminated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:signal:webProcessTerminated"})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.automationPresentationType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:automationPresentationType"
})
#endif
getWebViewCameraCaptureState :: (MonadIO m, IsWebView o) => o -> m WebKit2.Enums.MediaCaptureState
getWebViewCameraCaptureState :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m MediaCaptureState
getWebViewCameraCaptureState o
obj = IO MediaCaptureState -> m MediaCaptureState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO MediaCaptureState -> m MediaCaptureState)
-> IO MediaCaptureState -> m MediaCaptureState
forall a b. (a -> b) -> a -> b
$ o -> String -> IO MediaCaptureState
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"camera-capture-state"
setWebViewCameraCaptureState :: (MonadIO m, IsWebView o) => o -> WebKit2.Enums.MediaCaptureState -> m ()
setWebViewCameraCaptureState :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> MediaCaptureState -> m ()
setWebViewCameraCaptureState o
obj MediaCaptureState
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 -> MediaCaptureState -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"camera-capture-state" MediaCaptureState
val
constructWebViewCameraCaptureState :: (IsWebView o, MIO.MonadIO m) => WebKit2.Enums.MediaCaptureState -> m (GValueConstruct o)
constructWebViewCameraCaptureState :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
MediaCaptureState -> m (GValueConstruct o)
constructWebViewCameraCaptureState MediaCaptureState
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 -> MediaCaptureState -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"camera-capture-state" MediaCaptureState
val
#if defined(ENABLE_OVERLOADING)
data WebViewCameraCaptureStatePropertyInfo
instance AttrInfo WebViewCameraCaptureStatePropertyInfo where
type AttrAllowedOps WebViewCameraCaptureStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewCameraCaptureStatePropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewCameraCaptureStatePropertyInfo = (~) WebKit2.Enums.MediaCaptureState
type AttrTransferTypeConstraint WebViewCameraCaptureStatePropertyInfo = (~) WebKit2.Enums.MediaCaptureState
type AttrTransferType WebViewCameraCaptureStatePropertyInfo = WebKit2.Enums.MediaCaptureState
type AttrGetType WebViewCameraCaptureStatePropertyInfo = WebKit2.Enums.MediaCaptureState
type AttrLabel WebViewCameraCaptureStatePropertyInfo = "camera-capture-state"
type AttrOrigin WebViewCameraCaptureStatePropertyInfo = WebView
attrGet = getWebViewCameraCaptureState
attrSet = setWebViewCameraCaptureState
attrTransfer _ v = do
return v
attrConstruct = constructWebViewCameraCaptureState
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.cameraCaptureState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:cameraCaptureState"
})
#endif
getWebViewDisplayCaptureState :: (MonadIO m, IsWebView o) => o -> m WebKit2.Enums.MediaCaptureState
getWebViewDisplayCaptureState :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m MediaCaptureState
getWebViewDisplayCaptureState o
obj = IO MediaCaptureState -> m MediaCaptureState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO MediaCaptureState -> m MediaCaptureState)
-> IO MediaCaptureState -> m MediaCaptureState
forall a b. (a -> b) -> a -> b
$ o -> String -> IO MediaCaptureState
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"display-capture-state"
setWebViewDisplayCaptureState :: (MonadIO m, IsWebView o) => o -> WebKit2.Enums.MediaCaptureState -> m ()
setWebViewDisplayCaptureState :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> MediaCaptureState -> m ()
setWebViewDisplayCaptureState o
obj MediaCaptureState
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 -> MediaCaptureState -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"display-capture-state" MediaCaptureState
val
constructWebViewDisplayCaptureState :: (IsWebView o, MIO.MonadIO m) => WebKit2.Enums.MediaCaptureState -> m (GValueConstruct o)
constructWebViewDisplayCaptureState :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
MediaCaptureState -> m (GValueConstruct o)
constructWebViewDisplayCaptureState MediaCaptureState
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 -> MediaCaptureState -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"display-capture-state" MediaCaptureState
val
#if defined(ENABLE_OVERLOADING)
data WebViewDisplayCaptureStatePropertyInfo
instance AttrInfo WebViewDisplayCaptureStatePropertyInfo where
type AttrAllowedOps WebViewDisplayCaptureStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewDisplayCaptureStatePropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewDisplayCaptureStatePropertyInfo = (~) WebKit2.Enums.MediaCaptureState
type AttrTransferTypeConstraint WebViewDisplayCaptureStatePropertyInfo = (~) WebKit2.Enums.MediaCaptureState
type AttrTransferType WebViewDisplayCaptureStatePropertyInfo = WebKit2.Enums.MediaCaptureState
type AttrGetType WebViewDisplayCaptureStatePropertyInfo = WebKit2.Enums.MediaCaptureState
type AttrLabel WebViewDisplayCaptureStatePropertyInfo = "display-capture-state"
type AttrOrigin WebViewDisplayCaptureStatePropertyInfo = WebView
attrGet = getWebViewDisplayCaptureState
attrSet = setWebViewDisplayCaptureState
attrTransfer _ v = do
return v
attrConstruct = constructWebViewDisplayCaptureState
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.displayCaptureState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:displayCaptureState"
})
#endif
getWebViewEditable :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewEditable :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewEditable o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.editable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:editable"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.estimatedLoadProgress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:estimatedLoadProgress"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.favicon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:favicon"
})
#endif
getWebViewIsControlledByAutomation :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsControlledByAutomation :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsControlledByAutomation o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.isControlledByAutomation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:isControlledByAutomation"
})
#endif
getWebViewIsEphemeral :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsEphemeral :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsEphemeral o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.isEphemeral"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:isEphemeral"
})
#endif
getWebViewIsLoading :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsLoading :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsLoading o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.isLoading"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:isLoading"
})
#endif
getWebViewIsMuted :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsMuted :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsMuted o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.isMuted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:isMuted"
})
#endif
getWebViewIsPlayingAudio :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsPlayingAudio :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsPlayingAudio o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.isPlayingAudio"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:isPlayingAudio"
})
#endif
getWebViewIsWebProcessResponsive :: (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsWebProcessResponsive :: forall (m :: * -> *) o. (MonadIO m, IsWebView o) => o -> m Bool
getWebViewIsWebProcessResponsive o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-web-process-responsive"
#if defined(ENABLE_OVERLOADING)
data WebViewIsWebProcessResponsivePropertyInfo
instance AttrInfo WebViewIsWebProcessResponsivePropertyInfo where
type AttrAllowedOps WebViewIsWebProcessResponsivePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WebViewIsWebProcessResponsivePropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewIsWebProcessResponsivePropertyInfo = (~) ()
type AttrTransferTypeConstraint WebViewIsWebProcessResponsivePropertyInfo = (~) ()
type AttrTransferType WebViewIsWebProcessResponsivePropertyInfo = ()
type AttrGetType WebViewIsWebProcessResponsivePropertyInfo = Bool
type AttrLabel WebViewIsWebProcessResponsivePropertyInfo = "is-web-process-responsive"
type AttrOrigin WebViewIsWebProcessResponsivePropertyInfo = WebView
attrGet = getWebViewIsWebProcessResponsive
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.isWebProcessResponsive"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:isWebProcessResponsive"
})
#endif
getWebViewMicrophoneCaptureState :: (MonadIO m, IsWebView o) => o -> m WebKit2.Enums.MediaCaptureState
getWebViewMicrophoneCaptureState :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> m MediaCaptureState
getWebViewMicrophoneCaptureState o
obj = IO MediaCaptureState -> m MediaCaptureState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO MediaCaptureState -> m MediaCaptureState)
-> IO MediaCaptureState -> m MediaCaptureState
forall a b. (a -> b) -> a -> b
$ o -> String -> IO MediaCaptureState
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"microphone-capture-state"
setWebViewMicrophoneCaptureState :: (MonadIO m, IsWebView o) => o -> WebKit2.Enums.MediaCaptureState -> m ()
setWebViewMicrophoneCaptureState :: forall (m :: * -> *) o.
(MonadIO m, IsWebView o) =>
o -> MediaCaptureState -> m ()
setWebViewMicrophoneCaptureState o
obj MediaCaptureState
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 -> MediaCaptureState -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"microphone-capture-state" MediaCaptureState
val
constructWebViewMicrophoneCaptureState :: (IsWebView o, MIO.MonadIO m) => WebKit2.Enums.MediaCaptureState -> m (GValueConstruct o)
constructWebViewMicrophoneCaptureState :: forall o (m :: * -> *).
(IsWebView o, MonadIO m) =>
MediaCaptureState -> m (GValueConstruct o)
constructWebViewMicrophoneCaptureState MediaCaptureState
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 -> MediaCaptureState -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"microphone-capture-state" MediaCaptureState
val
#if defined(ENABLE_OVERLOADING)
data WebViewMicrophoneCaptureStatePropertyInfo
instance AttrInfo WebViewMicrophoneCaptureStatePropertyInfo where
type AttrAllowedOps WebViewMicrophoneCaptureStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebViewMicrophoneCaptureStatePropertyInfo = IsWebView
type AttrSetTypeConstraint WebViewMicrophoneCaptureStatePropertyInfo = (~) WebKit2.Enums.MediaCaptureState
type AttrTransferTypeConstraint WebViewMicrophoneCaptureStatePropertyInfo = (~) WebKit2.Enums.MediaCaptureState
type AttrTransferType WebViewMicrophoneCaptureStatePropertyInfo = WebKit2.Enums.MediaCaptureState
type AttrGetType WebViewMicrophoneCaptureStatePropertyInfo = WebKit2.Enums.MediaCaptureState
type AttrLabel WebViewMicrophoneCaptureStatePropertyInfo = "microphone-capture-state"
type AttrOrigin WebViewMicrophoneCaptureStatePropertyInfo = WebView
attrGet = getWebViewMicrophoneCaptureState
attrSet = setWebViewMicrophoneCaptureState
attrTransfer _ v = do
return v
attrConstruct = constructWebViewMicrophoneCaptureState
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.microphoneCaptureState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:microphoneCaptureState"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.pageId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:pageId"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.relatedView"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:relatedView"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.settings"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:settings"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:title"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.uri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:uri"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.userContentManager"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:userContentManager"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webContext"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:webContext"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.websitePolicies"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:websitePolicies"
})
#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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.zoomLevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#g:attr:zoomLevel"
})
#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), '("cameraCaptureState", WebViewCameraCaptureStatePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("displayCaptureState", WebViewDisplayCaptureStatePropertyInfo), '("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), '("isWebProcessResponsive", WebViewIsWebProcessResponsivePropertyInfo), '("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), '("microphoneCaptureState", WebViewMicrophoneCaptureStatePropertyInfo), '("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
webViewCameraCaptureState :: AttrLabelProxy "cameraCaptureState"
webViewCameraCaptureState = AttrLabelProxy
webViewDisplayCaptureState :: AttrLabelProxy "displayCaptureState"
webViewDisplayCaptureState = AttrLabelProxy
webViewEditable :: AttrLabelProxy "editable"
webViewEditable = AttrLabelProxy
webViewEstimatedLoadProgress :: AttrLabelProxy "estimatedLoadProgress"
webViewEstimatedLoadProgress = AttrLabelProxy
webViewFavicon :: AttrLabelProxy "favicon"
webViewFavicon = AttrLabelProxy
webViewIsMuted :: AttrLabelProxy "isMuted"
webViewIsMuted = AttrLabelProxy
webViewIsWebProcessResponsive :: AttrLabelProxy "isWebProcessResponsive"
webViewIsWebProcessResponsive = AttrLabelProxy
webViewMicrophoneCaptureState :: AttrLabelProxy "microphoneCaptureState"
webViewMicrophoneCaptureState = 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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommandFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewCanGoBack",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewCanGoForward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewCanShowMimeType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewDownloadUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewExecuteEditingCommand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewExecuteEditingCommandWithArgument",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetAutomationPresentationType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetBackForwardList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetBackgroundColor"
})
#endif
foreign import ccall "webkit_web_view_get_camera_capture_state" webkit_web_view_get_camera_capture_state ::
Ptr WebView ->
IO CUInt
webViewGetCameraCaptureState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.Enums.MediaCaptureState
webViewGetCameraCaptureState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m MediaCaptureState
webViewGetCameraCaptureState a
webView = IO MediaCaptureState -> m MediaCaptureState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MediaCaptureState -> m MediaCaptureState)
-> IO MediaCaptureState -> m MediaCaptureState
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_camera_capture_state Ptr WebView
webView'
let result' :: MediaCaptureState
result' = (Int -> MediaCaptureState
forall a. Enum a => Int -> a
toEnum (Int -> MediaCaptureState)
-> (CUInt -> Int) -> CUInt -> MediaCaptureState
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
MediaCaptureState -> IO MediaCaptureState
forall (m :: * -> *) a. Monad m => a -> m a
return MediaCaptureState
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetCameraCaptureStateMethodInfo
instance (signature ~ (m WebKit2.Enums.MediaCaptureState), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetCameraCaptureStateMethodInfo a signature where
overloadedMethod = webViewGetCameraCaptureState
instance O.OverloadedMethodInfo WebViewGetCameraCaptureStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetCameraCaptureState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetCameraCaptureState"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetCustomCharset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetCustomCharset"
})
#endif
foreign import ccall "webkit_web_view_get_display_capture_state" webkit_web_view_get_display_capture_state ::
Ptr WebView ->
IO CUInt
webViewGetDisplayCaptureState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.Enums.MediaCaptureState
webViewGetDisplayCaptureState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m MediaCaptureState
webViewGetDisplayCaptureState a
webView = IO MediaCaptureState -> m MediaCaptureState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MediaCaptureState -> m MediaCaptureState)
-> IO MediaCaptureState -> m MediaCaptureState
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_display_capture_state Ptr WebView
webView'
let result' :: MediaCaptureState
result' = (Int -> MediaCaptureState
forall a. Enum a => Int -> a
toEnum (Int -> MediaCaptureState)
-> (CUInt -> Int) -> CUInt -> MediaCaptureState
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
MediaCaptureState -> IO MediaCaptureState
forall (m :: * -> *) a. Monad m => a -> m a
return MediaCaptureState
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetDisplayCaptureStateMethodInfo
instance (signature ~ (m WebKit2.Enums.MediaCaptureState), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetDisplayCaptureStateMethodInfo a signature where
overloadedMethod = webViewGetDisplayCaptureState
instance O.OverloadedMethodInfo WebViewGetDisplayCaptureStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetDisplayCaptureState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetDisplayCaptureState"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetEditorState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetEstimatedLoadProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetFavicon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetFindController",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetInputMethodContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetInspector",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetIsMuted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetIsMuted"
})
#endif
foreign import ccall "webkit_web_view_get_is_web_process_responsive" webkit_web_view_get_is_web_process_responsive ::
Ptr WebView ->
IO CInt
webViewGetIsWebProcessResponsive ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m Bool
webViewGetIsWebProcessResponsive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m Bool
webViewGetIsWebProcessResponsive a
webView = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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_web_process_responsive 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 -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetIsWebProcessResponsiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetIsWebProcessResponsiveMethodInfo a signature where
overloadedMethod = webViewGetIsWebProcessResponsive
instance O.OverloadedMethodInfo WebViewGetIsWebProcessResponsiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetIsWebProcessResponsive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetIsWebProcessResponsive"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetMainResource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetMainResource"
})
#endif
foreign import ccall "webkit_web_view_get_microphone_capture_state" webkit_web_view_get_microphone_capture_state ::
Ptr WebView ->
IO CUInt
webViewGetMicrophoneCaptureState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m WebKit2.Enums.MediaCaptureState
webViewGetMicrophoneCaptureState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m MediaCaptureState
webViewGetMicrophoneCaptureState a
webView = IO MediaCaptureState -> m MediaCaptureState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MediaCaptureState -> m MediaCaptureState)
-> IO MediaCaptureState -> m MediaCaptureState
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_microphone_capture_state Ptr WebView
webView'
let result' :: MediaCaptureState
result' = (Int -> MediaCaptureState
forall a. Enum a => Int -> a
toEnum (Int -> MediaCaptureState)
-> (CUInt -> Int) -> CUInt -> MediaCaptureState
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
MediaCaptureState -> IO MediaCaptureState
forall (m :: * -> *) a. Monad m => a -> m a
return MediaCaptureState
result'
#if defined(ENABLE_OVERLOADING)
data WebViewGetMicrophoneCaptureStateMethodInfo
instance (signature ~ (m WebKit2.Enums.MediaCaptureState), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewGetMicrophoneCaptureStateMethodInfo a signature where
overloadedMethod = webViewGetMicrophoneCaptureState
instance O.OverloadedMethodInfo WebViewGetMicrophoneCaptureStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetMicrophoneCaptureState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewGetMicrophoneCaptureState"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetPageId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetSessionState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetSettings",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetSnapshot",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetSnapshotFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetTlsInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetUserContentManager",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetWebsiteDataManager",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetWebsitePolicies",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetWindowProperties",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGetZoomLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGoBack",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGoForward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewGoToBackForwardListItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewIsControlledByAutomation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewIsEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewIsEphemeral",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewIsLoading",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> 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 -> IO Bool
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewIsPlayingAudio",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewLoadAlternateHtml",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewLoadBytes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewLoadHtml",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewLoadPlainText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewLoadRequest",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewLoadUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewReload",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewReloadBypassCache",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewRestoreSessionState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewRunJavascript",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptFromGresource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptFromGresourceFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptInWorld",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewRunJavascriptInWorldFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSave",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSaveFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSaveToFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSaveToFileFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSendMessageToPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSendMessageToPageFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetBackgroundColor"
})
#endif
foreign import ccall "webkit_web_view_set_camera_capture_state" webkit_web_view_set_camera_capture_state ::
Ptr WebView ->
CUInt ->
IO ()
webViewSetCameraCaptureState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> WebKit2.Enums.MediaCaptureState
-> m ()
webViewSetCameraCaptureState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> MediaCaptureState -> m ()
webViewSetCameraCaptureState a
webView MediaCaptureState
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
let state' :: CUInt
state' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (MediaCaptureState -> Int) -> MediaCaptureState -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MediaCaptureState -> Int
forall a. Enum a => a -> Int
fromEnum) MediaCaptureState
state
Ptr WebView -> CUInt -> IO ()
webkit_web_view_set_camera_capture_state Ptr WebView
webView' CUInt
state'
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 WebViewSetCameraCaptureStateMethodInfo
instance (signature ~ (WebKit2.Enums.MediaCaptureState -> m ()), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewSetCameraCaptureStateMethodInfo a signature where
overloadedMethod = webViewSetCameraCaptureState
instance O.OverloadedMethodInfo WebViewSetCameraCaptureStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetCameraCaptureState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetCameraCaptureState"
})
#endif
foreign import ccall "webkit_web_view_set_cors_allowlist" webkit_web_view_set_cors_allowlist ::
Ptr WebView ->
Ptr CString ->
IO ()
webViewSetCorsAllowlist ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> Maybe ([T.Text])
-> m ()
webViewSetCorsAllowlist :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> Maybe [Text] -> m ()
webViewSetCorsAllowlist a
webView Maybe [Text]
allowlist = 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 CString
maybeAllowlist <- case Maybe [Text]
allowlist of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [Text]
jAllowlist -> do
Ptr CString
jAllowlist' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jAllowlist
Ptr CString -> IO (Ptr CString)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jAllowlist'
Ptr WebView -> Ptr CString -> IO ()
webkit_web_view_set_cors_allowlist Ptr WebView
webView' Ptr CString
maybeAllowlist
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webView
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeAllowlist
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeAllowlist
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebViewSetCorsAllowlistMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewSetCorsAllowlistMethodInfo a signature where
overloadedMethod = webViewSetCorsAllowlist
instance O.OverloadedMethodInfo WebViewSetCorsAllowlistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetCorsAllowlist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetCorsAllowlist"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetCustomCharset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetCustomCharset"
})
#endif
foreign import ccall "webkit_web_view_set_display_capture_state" webkit_web_view_set_display_capture_state ::
Ptr WebView ->
CUInt ->
IO ()
webViewSetDisplayCaptureState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> WebKit2.Enums.MediaCaptureState
-> m ()
webViewSetDisplayCaptureState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> MediaCaptureState -> m ()
webViewSetDisplayCaptureState a
webView MediaCaptureState
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
let state' :: CUInt
state' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (MediaCaptureState -> Int) -> MediaCaptureState -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MediaCaptureState -> Int
forall a. Enum a => a -> Int
fromEnum) MediaCaptureState
state
Ptr WebView -> CUInt -> IO ()
webkit_web_view_set_display_capture_state Ptr WebView
webView' CUInt
state'
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 WebViewSetDisplayCaptureStateMethodInfo
instance (signature ~ (WebKit2.Enums.MediaCaptureState -> m ()), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewSetDisplayCaptureStateMethodInfo a signature where
overloadedMethod = webViewSetDisplayCaptureState
instance O.OverloadedMethodInfo WebViewSetDisplayCaptureStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetDisplayCaptureState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetDisplayCaptureState"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetInputMethodContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetIsMuted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetIsMuted"
})
#endif
foreign import ccall "webkit_web_view_set_microphone_capture_state" webkit_web_view_set_microphone_capture_state ::
Ptr WebView ->
CUInt ->
IO ()
webViewSetMicrophoneCaptureState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> WebKit2.Enums.MediaCaptureState
-> m ()
webViewSetMicrophoneCaptureState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> MediaCaptureState -> m ()
webViewSetMicrophoneCaptureState a
webView MediaCaptureState
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
let state' :: CUInt
state' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (MediaCaptureState -> Int) -> MediaCaptureState -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MediaCaptureState -> Int
forall a. Enum a => a -> Int
fromEnum) MediaCaptureState
state
Ptr WebView -> CUInt -> IO ()
webkit_web_view_set_microphone_capture_state Ptr WebView
webView' CUInt
state'
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 WebViewSetMicrophoneCaptureStateMethodInfo
instance (signature ~ (WebKit2.Enums.MediaCaptureState -> m ()), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewSetMicrophoneCaptureStateMethodInfo a signature where
overloadedMethod = webViewSetMicrophoneCaptureState
instance O.OverloadedMethodInfo WebViewSetMicrophoneCaptureStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetMicrophoneCaptureState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewSetMicrophoneCaptureState"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetSettings",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewSetZoomLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewStopLoading",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewStopLoading"
})
#endif
foreign import ccall "webkit_web_view_terminate_web_process" webkit_web_view_terminate_web_process ::
Ptr WebView ->
IO ()
webViewTerminateWebProcess ::
(B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>
a
-> m ()
webViewTerminateWebProcess :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebView a) =>
a -> m ()
webViewTerminateWebProcess 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_terminate_web_process 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 WebViewTerminateWebProcessMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebView a) => O.OverloadedMethod WebViewTerminateWebProcessMethodInfo a signature where
overloadedMethod = webViewTerminateWebProcess
instance O.OverloadedMethodInfo WebViewTerminateWebProcessMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewTerminateWebProcess",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewTerminateWebProcess"
})
#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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WebView.webViewTryClose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-WebView.html#v:webViewTryClose"
})
#endif