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