packages feed

gi-webkit2 4.0.19 → 4.0.21

raw patch · 131 files changed

+56508/−9 lines, 131 filesdep ~haskell-gidep ~haskell-gi-basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: haskell-gi, haskell-gi-base

API changes (from Hackage documentation)

- GI.WebKit2.Interfaces.PermissionRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest a) => GI.WebKit2.Interfaces.PermissionRequest.IsPermissionRequest a
- GI.WebKit2.Interfaces.PermissionRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest
- GI.WebKit2.Interfaces.PermissionRequest: instance GI.WebKit2.Interfaces.PermissionRequest.IsPermissionRequest GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest
- GI.WebKit2.Objects.AuthenticationRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest a) => GI.WebKit2.Objects.AuthenticationRequest.IsAuthenticationRequest a
- GI.WebKit2.Objects.AuthenticationRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest
- GI.WebKit2.Objects.AuthenticationRequest: instance GI.WebKit2.Objects.AuthenticationRequest.IsAuthenticationRequest GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest
- GI.WebKit2.Objects.AutomationSession: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.AutomationSession.AutomationSession a) => GI.WebKit2.Objects.AutomationSession.IsAutomationSession a
- GI.WebKit2.Objects.AutomationSession: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.AutomationSession.AutomationSession
- GI.WebKit2.Objects.AutomationSession: instance GI.WebKit2.Objects.AutomationSession.IsAutomationSession GI.WebKit2.Objects.AutomationSession.AutomationSession
- GI.WebKit2.Objects.BackForwardList: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.BackForwardList.BackForwardList a) => GI.WebKit2.Objects.BackForwardList.IsBackForwardList a
- GI.WebKit2.Objects.BackForwardList: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.BackForwardList.BackForwardList
- GI.WebKit2.Objects.BackForwardList: instance GI.WebKit2.Objects.BackForwardList.IsBackForwardList GI.WebKit2.Objects.BackForwardList.BackForwardList
- GI.WebKit2.Objects.BackForwardListItem: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem a) => GI.WebKit2.Objects.BackForwardListItem.IsBackForwardListItem a
- GI.WebKit2.Objects.BackForwardListItem: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem
- GI.WebKit2.Objects.BackForwardListItem: instance GI.WebKit2.Objects.BackForwardListItem.IsBackForwardListItem GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem
- GI.WebKit2.Objects.ColorChooserRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest a) => GI.WebKit2.Objects.ColorChooserRequest.IsColorChooserRequest a
- GI.WebKit2.Objects.ColorChooserRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest
- GI.WebKit2.Objects.ColorChooserRequest: instance GI.WebKit2.Objects.ColorChooserRequest.IsColorChooserRequest GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest
- GI.WebKit2.Objects.ContextMenu: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.ContextMenu.ContextMenu a) => GI.WebKit2.Objects.ContextMenu.IsContextMenu a
- GI.WebKit2.Objects.ContextMenu: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.ContextMenu.ContextMenu
- GI.WebKit2.Objects.ContextMenu: instance GI.WebKit2.Objects.ContextMenu.IsContextMenu GI.WebKit2.Objects.ContextMenu.ContextMenu
- GI.WebKit2.Objects.ContextMenuItem: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem a) => GI.WebKit2.Objects.ContextMenuItem.IsContextMenuItem a
- GI.WebKit2.Objects.ContextMenuItem: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem
- GI.WebKit2.Objects.ContextMenuItem: instance GI.WebKit2.Objects.ContextMenuItem.IsContextMenuItem GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem
- GI.WebKit2.Objects.CookieManager: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.CookieManager.CookieManager a) => GI.WebKit2.Objects.CookieManager.IsCookieManager a
- GI.WebKit2.Objects.CookieManager: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.CookieManager.CookieManager
- GI.WebKit2.Objects.CookieManager: instance GI.WebKit2.Objects.CookieManager.IsCookieManager GI.WebKit2.Objects.CookieManager.CookieManager
- GI.WebKit2.Objects.Download: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.Download.Download a) => GI.WebKit2.Objects.Download.IsDownload a
- GI.WebKit2.Objects.Download: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.Download.Download
- GI.WebKit2.Objects.Download: instance GI.WebKit2.Objects.Download.IsDownload GI.WebKit2.Objects.Download.Download
- GI.WebKit2.Objects.EditorState: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.EditorState.EditorState a) => GI.WebKit2.Objects.EditorState.IsEditorState a
- GI.WebKit2.Objects.EditorState: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.EditorState.EditorState
- GI.WebKit2.Objects.EditorState: instance GI.WebKit2.Objects.EditorState.IsEditorState GI.WebKit2.Objects.EditorState.EditorState
- GI.WebKit2.Objects.FaviconDatabase: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase a) => GI.WebKit2.Objects.FaviconDatabase.IsFaviconDatabase a
- GI.WebKit2.Objects.FaviconDatabase: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase
- GI.WebKit2.Objects.FaviconDatabase: instance GI.WebKit2.Objects.FaviconDatabase.IsFaviconDatabase GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase
- GI.WebKit2.Objects.FileChooserRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest a) => GI.WebKit2.Objects.FileChooserRequest.IsFileChooserRequest a
- GI.WebKit2.Objects.FileChooserRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest
- GI.WebKit2.Objects.FileChooserRequest: instance GI.WebKit2.Objects.FileChooserRequest.IsFileChooserRequest GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest
- GI.WebKit2.Objects.FindController: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.FindController.FindController a) => GI.WebKit2.Objects.FindController.IsFindController a
- GI.WebKit2.Objects.FindController: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.FindController.FindController
- GI.WebKit2.Objects.FindController: instance GI.WebKit2.Objects.FindController.IsFindController GI.WebKit2.Objects.FindController.FindController
- GI.WebKit2.Objects.FormSubmissionRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest a) => GI.WebKit2.Objects.FormSubmissionRequest.IsFormSubmissionRequest a
- GI.WebKit2.Objects.FormSubmissionRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest
- GI.WebKit2.Objects.FormSubmissionRequest: instance GI.WebKit2.Objects.FormSubmissionRequest.IsFormSubmissionRequest GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest
- GI.WebKit2.Objects.GeolocationPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.GeolocationPermissionRequest.GeolocationPermissionRequest a) => GI.WebKit2.Objects.GeolocationPermissionRequest.IsGeolocationPermissionRequest a
- GI.WebKit2.Objects.GeolocationPermissionRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.GeolocationPermissionRequest.GeolocationPermissionRequest
- GI.WebKit2.Objects.GeolocationPermissionRequest: instance GI.WebKit2.Interfaces.PermissionRequest.IsPermissionRequest GI.WebKit2.Objects.GeolocationPermissionRequest.GeolocationPermissionRequest
- GI.WebKit2.Objects.GeolocationPermissionRequest: instance GI.WebKit2.Objects.GeolocationPermissionRequest.IsGeolocationPermissionRequest GI.WebKit2.Objects.GeolocationPermissionRequest.GeolocationPermissionRequest
- GI.WebKit2.Objects.HitTestResult: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.HitTestResult.HitTestResult a) => GI.WebKit2.Objects.HitTestResult.IsHitTestResult a
- GI.WebKit2.Objects.HitTestResult: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.HitTestResult.HitTestResult
- GI.WebKit2.Objects.HitTestResult: instance GI.WebKit2.Objects.HitTestResult.IsHitTestResult GI.WebKit2.Objects.HitTestResult.HitTestResult
- GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.InstallMissingMediaPluginsPermissionRequest a) => GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.IsInstallMissingMediaPluginsPermissionRequest a
- GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.InstallMissingMediaPluginsPermissionRequest
- GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: instance GI.WebKit2.Interfaces.PermissionRequest.IsPermissionRequest GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.InstallMissingMediaPluginsPermissionRequest
- GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: instance GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.IsInstallMissingMediaPluginsPermissionRequest GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.InstallMissingMediaPluginsPermissionRequest
- GI.WebKit2.Objects.NavigationPolicyDecision: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision a) => GI.WebKit2.Objects.NavigationPolicyDecision.IsNavigationPolicyDecision a
- GI.WebKit2.Objects.NavigationPolicyDecision: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision
- GI.WebKit2.Objects.NavigationPolicyDecision: instance GI.WebKit2.Objects.NavigationPolicyDecision.IsNavigationPolicyDecision GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision
- GI.WebKit2.Objects.NavigationPolicyDecision: instance GI.WebKit2.Objects.PolicyDecision.IsPolicyDecision GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision
- GI.WebKit2.Objects.Notification: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.Notification.Notification a) => GI.WebKit2.Objects.Notification.IsNotification a
- GI.WebKit2.Objects.Notification: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.Notification.Notification
- GI.WebKit2.Objects.Notification: instance GI.WebKit2.Objects.Notification.IsNotification GI.WebKit2.Objects.Notification.Notification
- GI.WebKit2.Objects.NotificationPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.NotificationPermissionRequest.NotificationPermissionRequest a) => GI.WebKit2.Objects.NotificationPermissionRequest.IsNotificationPermissionRequest a
- GI.WebKit2.Objects.NotificationPermissionRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.NotificationPermissionRequest.NotificationPermissionRequest
- GI.WebKit2.Objects.NotificationPermissionRequest: instance GI.WebKit2.Interfaces.PermissionRequest.IsPermissionRequest GI.WebKit2.Objects.NotificationPermissionRequest.NotificationPermissionRequest
- GI.WebKit2.Objects.NotificationPermissionRequest: instance GI.WebKit2.Objects.NotificationPermissionRequest.IsNotificationPermissionRequest GI.WebKit2.Objects.NotificationPermissionRequest.NotificationPermissionRequest
- GI.WebKit2.Objects.OptionMenu: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.OptionMenu.OptionMenu a) => GI.WebKit2.Objects.OptionMenu.IsOptionMenu a
- GI.WebKit2.Objects.OptionMenu: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.OptionMenu.OptionMenu
- GI.WebKit2.Objects.OptionMenu: instance GI.WebKit2.Objects.OptionMenu.IsOptionMenu GI.WebKit2.Objects.OptionMenu.OptionMenu
- GI.WebKit2.Objects.Plugin: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.Plugin.Plugin a) => GI.WebKit2.Objects.Plugin.IsPlugin a
- GI.WebKit2.Objects.Plugin: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.Plugin.Plugin
- GI.WebKit2.Objects.Plugin: instance GI.WebKit2.Objects.Plugin.IsPlugin GI.WebKit2.Objects.Plugin.Plugin
- GI.WebKit2.Objects.PolicyDecision: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.PolicyDecision.PolicyDecision a) => GI.WebKit2.Objects.PolicyDecision.IsPolicyDecision a
- GI.WebKit2.Objects.PolicyDecision: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.PolicyDecision.PolicyDecision
- GI.WebKit2.Objects.PolicyDecision: instance GI.WebKit2.Objects.PolicyDecision.IsPolicyDecision GI.WebKit2.Objects.PolicyDecision.PolicyDecision
- GI.WebKit2.Objects.PrintCustomWidget: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget a) => GI.WebKit2.Objects.PrintCustomWidget.IsPrintCustomWidget a
- GI.WebKit2.Objects.PrintCustomWidget: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget
- GI.WebKit2.Objects.PrintCustomWidget: instance GI.WebKit2.Objects.PrintCustomWidget.IsPrintCustomWidget GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget
- GI.WebKit2.Objects.PrintOperation: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.PrintOperation.PrintOperation a) => GI.WebKit2.Objects.PrintOperation.IsPrintOperation a
- GI.WebKit2.Objects.PrintOperation: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.PrintOperation.PrintOperation
- GI.WebKit2.Objects.PrintOperation: instance GI.WebKit2.Objects.PrintOperation.IsPrintOperation GI.WebKit2.Objects.PrintOperation.PrintOperation
- GI.WebKit2.Objects.ResponsePolicyDecision: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision a) => GI.WebKit2.Objects.ResponsePolicyDecision.IsResponsePolicyDecision a
- GI.WebKit2.Objects.ResponsePolicyDecision: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision
- GI.WebKit2.Objects.ResponsePolicyDecision: instance GI.WebKit2.Objects.PolicyDecision.IsPolicyDecision GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision
- GI.WebKit2.Objects.ResponsePolicyDecision: instance GI.WebKit2.Objects.ResponsePolicyDecision.IsResponsePolicyDecision GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision
- GI.WebKit2.Objects.SecurityManager: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.SecurityManager.SecurityManager a) => GI.WebKit2.Objects.SecurityManager.IsSecurityManager a
- GI.WebKit2.Objects.SecurityManager: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.SecurityManager.SecurityManager
- GI.WebKit2.Objects.SecurityManager: instance GI.WebKit2.Objects.SecurityManager.IsSecurityManager GI.WebKit2.Objects.SecurityManager.SecurityManager
- GI.WebKit2.Objects.Settings: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.Settings.Settings a) => GI.WebKit2.Objects.Settings.IsSettings a
- GI.WebKit2.Objects.Settings: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.Settings.Settings
- GI.WebKit2.Objects.Settings: instance GI.WebKit2.Objects.Settings.IsSettings GI.WebKit2.Objects.Settings.Settings
- GI.WebKit2.Objects.URIRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.URIRequest.URIRequest a) => GI.WebKit2.Objects.URIRequest.IsURIRequest a
- GI.WebKit2.Objects.URIRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.URIRequest.URIRequest
- GI.WebKit2.Objects.URIRequest: instance GI.WebKit2.Objects.URIRequest.IsURIRequest GI.WebKit2.Objects.URIRequest.URIRequest
- GI.WebKit2.Objects.URIResponse: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.URIResponse.URIResponse a) => GI.WebKit2.Objects.URIResponse.IsURIResponse a
- GI.WebKit2.Objects.URIResponse: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.URIResponse.URIResponse
- GI.WebKit2.Objects.URIResponse: instance GI.WebKit2.Objects.URIResponse.IsURIResponse GI.WebKit2.Objects.URIResponse.URIResponse
- GI.WebKit2.Objects.URISchemeRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest a) => GI.WebKit2.Objects.URISchemeRequest.IsURISchemeRequest a
- GI.WebKit2.Objects.URISchemeRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest
- GI.WebKit2.Objects.URISchemeRequest: instance GI.WebKit2.Objects.URISchemeRequest.IsURISchemeRequest GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest
- GI.WebKit2.Objects.UserContentManager: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.UserContentManager.UserContentManager a) => GI.WebKit2.Objects.UserContentManager.IsUserContentManager a
- GI.WebKit2.Objects.UserContentManager: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.UserContentManager.UserContentManager
- GI.WebKit2.Objects.UserContentManager: instance GI.WebKit2.Objects.UserContentManager.IsUserContentManager GI.WebKit2.Objects.UserContentManager.UserContentManager
- GI.WebKit2.Objects.UserMediaPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest a) => GI.WebKit2.Objects.UserMediaPermissionRequest.IsUserMediaPermissionRequest a
- GI.WebKit2.Objects.UserMediaPermissionRequest: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest
- GI.WebKit2.Objects.UserMediaPermissionRequest: instance GI.WebKit2.Interfaces.PermissionRequest.IsPermissionRequest GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest
- GI.WebKit2.Objects.UserMediaPermissionRequest: instance GI.WebKit2.Objects.UserMediaPermissionRequest.IsUserMediaPermissionRequest GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest
- GI.WebKit2.Objects.WebContext: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.WebContext.WebContext a) => GI.WebKit2.Objects.WebContext.IsWebContext a
- GI.WebKit2.Objects.WebContext: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.WebContext.WebContext
- GI.WebKit2.Objects.WebContext: instance GI.WebKit2.Objects.WebContext.IsWebContext GI.WebKit2.Objects.WebContext.WebContext
- GI.WebKit2.Objects.WebInspector: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.WebInspector.WebInspector a) => GI.WebKit2.Objects.WebInspector.IsWebInspector a
- GI.WebKit2.Objects.WebInspector: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.WebInspector.WebInspector
- GI.WebKit2.Objects.WebInspector: instance GI.WebKit2.Objects.WebInspector.IsWebInspector GI.WebKit2.Objects.WebInspector.WebInspector
- GI.WebKit2.Objects.WebResource: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.WebResource.WebResource a) => GI.WebKit2.Objects.WebResource.IsWebResource a
- GI.WebKit2.Objects.WebResource: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.WebResource.WebResource
- GI.WebKit2.Objects.WebResource: instance GI.WebKit2.Objects.WebResource.IsWebResource GI.WebKit2.Objects.WebResource.WebResource
- GI.WebKit2.Objects.WebView: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.WebView.WebView a) => GI.WebKit2.Objects.WebView.IsWebView a
- GI.WebKit2.Objects.WebView: instance GI.Atk.Interfaces.ImplementorIface.IsImplementorIface GI.WebKit2.Objects.WebView.WebView
- GI.WebKit2.Objects.WebView: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.WebView.WebView
- GI.WebKit2.Objects.WebView: instance GI.Gtk.Interfaces.Buildable.IsBuildable GI.WebKit2.Objects.WebView.WebView
- GI.WebKit2.Objects.WebView: instance GI.Gtk.Objects.Container.IsContainer GI.WebKit2.Objects.WebView.WebView
- GI.WebKit2.Objects.WebView: instance GI.Gtk.Objects.Widget.IsWidget GI.WebKit2.Objects.WebView.WebView
- GI.WebKit2.Objects.WebView: instance GI.WebKit2.Objects.WebView.IsWebView GI.WebKit2.Objects.WebView.WebView
- GI.WebKit2.Objects.WebView: instance GI.WebKit2.Objects.WebViewBase.IsWebViewBase GI.WebKit2.Objects.WebView.WebView
- GI.WebKit2.Objects.WebView: webViewGetJavascriptGlobalContext :: (HasCallStack, MonadIO m, IsWebView a) => a -> m GlobalContext
- GI.WebKit2.Objects.WebViewBase: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.WebViewBase.WebViewBase a) => GI.WebKit2.Objects.WebViewBase.IsWebViewBase a
- GI.WebKit2.Objects.WebViewBase: instance GI.Atk.Interfaces.ImplementorIface.IsImplementorIface GI.WebKit2.Objects.WebViewBase.WebViewBase
- GI.WebKit2.Objects.WebViewBase: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.WebViewBase.WebViewBase
- GI.WebKit2.Objects.WebViewBase: instance GI.Gtk.Interfaces.Buildable.IsBuildable GI.WebKit2.Objects.WebViewBase.WebViewBase
- GI.WebKit2.Objects.WebViewBase: instance GI.Gtk.Objects.Container.IsContainer GI.WebKit2.Objects.WebViewBase.WebViewBase
- GI.WebKit2.Objects.WebViewBase: instance GI.Gtk.Objects.Widget.IsWidget GI.WebKit2.Objects.WebViewBase.WebViewBase
- GI.WebKit2.Objects.WebViewBase: instance GI.WebKit2.Objects.WebViewBase.IsWebViewBase GI.WebKit2.Objects.WebViewBase.WebViewBase
- GI.WebKit2.Objects.WebsiteDataManager: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager a) => GI.WebKit2.Objects.WebsiteDataManager.IsWebsiteDataManager a
- GI.WebKit2.Objects.WebsiteDataManager: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager
- GI.WebKit2.Objects.WebsiteDataManager: instance GI.WebKit2.Objects.WebsiteDataManager.IsWebsiteDataManager GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager
- GI.WebKit2.Objects.WindowProperties: instance (Data.GI.Base.BasicTypes.GObject a, Data.GI.Base.Overloading.UnknownAncestorError GI.WebKit2.Objects.WindowProperties.WindowProperties a) => GI.WebKit2.Objects.WindowProperties.IsWindowProperties a
- GI.WebKit2.Objects.WindowProperties: instance GI.GObject.Objects.Object.IsObject GI.WebKit2.Objects.WindowProperties.WindowProperties
- GI.WebKit2.Objects.WindowProperties: instance GI.WebKit2.Objects.WindowProperties.IsWindowProperties GI.WebKit2.Objects.WindowProperties.WindowProperties
- GI.WebKit2.Structs.JavascriptResult: javascriptResultGetGlobalContext :: (HasCallStack, MonadIO m) => JavascriptResult -> m GlobalContext
- GI.WebKit2.Structs.JavascriptResult: javascriptResultGetValue :: (HasCallStack, MonadIO m) => JavascriptResult -> m Value
+ GI.WebKit2.Enums: AnotherUserContentFilterError :: Int -> UserContentFilterError
+ GI.WebKit2.Enums: UserContentFilterErrorInvalidSource :: UserContentFilterError
+ GI.WebKit2.Enums: UserContentFilterErrorNotFound :: UserContentFilterError
+ GI.WebKit2.Enums: catchUserContentFilterError :: IO a -> (UserContentFilterError -> GErrorMessage -> IO a) -> IO a
+ GI.WebKit2.Enums: data UserContentFilterError
+ GI.WebKit2.Enums: handleUserContentFilterError :: (UserContentFilterError -> GErrorMessage -> IO a) -> IO a -> IO a
+ GI.WebKit2.Enums: instance Data.GI.Base.BasicTypes.BoxedEnum GI.WebKit2.Enums.UserContentFilterError
+ GI.WebKit2.Enums: instance Data.GI.Base.GError.GErrorClass GI.WebKit2.Enums.UserContentFilterError
+ GI.WebKit2.Enums: instance GHC.Classes.Eq GI.WebKit2.Enums.UserContentFilterError
+ GI.WebKit2.Enums: instance GHC.Classes.Ord GI.WebKit2.Enums.UserContentFilterError
+ GI.WebKit2.Enums: instance GHC.Enum.Enum GI.WebKit2.Enums.UserContentFilterError
+ GI.WebKit2.Enums: instance GHC.Show.Show GI.WebKit2.Enums.UserContentFilterError
+ GI.WebKit2.Flags: WebsiteDataTypesDeviceIdHashSalt :: WebsiteDataTypes
+ GI.WebKit2.Functions: uriForDisplay :: (HasCallStack, MonadIO m) => Text -> m (Maybe Text)
+ GI.WebKit2.Interfaces.PermissionRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest o) => GI.WebKit2.Interfaces.PermissionRequest.IsPermissionRequest o
+ GI.WebKit2.Interfaces.PermissionRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest
+ GI.WebKit2.Objects.AuthenticationRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest o) => GI.WebKit2.Objects.AuthenticationRequest.IsAuthenticationRequest o
+ GI.WebKit2.Objects.AuthenticationRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest
+ GI.WebKit2.Objects.AutomationSession: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.AutomationSession.AutomationSession o) => GI.WebKit2.Objects.AutomationSession.IsAutomationSession o
+ GI.WebKit2.Objects.AutomationSession: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.AutomationSession.AutomationSession
+ GI.WebKit2.Objects.BackForwardList: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.BackForwardList.BackForwardList o) => GI.WebKit2.Objects.BackForwardList.IsBackForwardList o
+ GI.WebKit2.Objects.BackForwardList: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.BackForwardList.BackForwardList
+ GI.WebKit2.Objects.BackForwardListItem: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem o) => GI.WebKit2.Objects.BackForwardListItem.IsBackForwardListItem o
+ GI.WebKit2.Objects.BackForwardListItem: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem
+ GI.WebKit2.Objects.ColorChooserRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest o) => GI.WebKit2.Objects.ColorChooserRequest.IsColorChooserRequest o
+ GI.WebKit2.Objects.ColorChooserRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest
+ GI.WebKit2.Objects.ContextMenu: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.ContextMenu.ContextMenu o) => GI.WebKit2.Objects.ContextMenu.IsContextMenu o
+ GI.WebKit2.Objects.ContextMenu: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.ContextMenu.ContextMenu
+ GI.WebKit2.Objects.ContextMenuItem: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem o) => GI.WebKit2.Objects.ContextMenuItem.IsContextMenuItem o
+ GI.WebKit2.Objects.ContextMenuItem: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem
+ GI.WebKit2.Objects.CookieManager: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.CookieManager.CookieManager o) => GI.WebKit2.Objects.CookieManager.IsCookieManager o
+ GI.WebKit2.Objects.CookieManager: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.CookieManager.CookieManager
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: DeviceInfoPermissionRequest :: ManagedPtr DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: class (GObject o, IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.DeviceInfoPermissionRequest.DeviceInfoPermissionRequest o) => GI.WebKit2.Objects.DeviceInfoPermissionRequest.IsDeviceInfoPermissionRequest o
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: instance Data.GI.Base.BasicTypes.GObject GI.WebKit2.Objects.DeviceInfoPermissionRequest.DeviceInfoPermissionRequest
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.DeviceInfoPermissionRequest.DeviceInfoPermissionRequest
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: newtype DeviceInfoPermissionRequest
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: noDeviceInfoPermissionRequest :: Maybe DeviceInfoPermissionRequest
+ GI.WebKit2.Objects.DeviceInfoPermissionRequest: toDeviceInfoPermissionRequest :: (MonadIO m, IsDeviceInfoPermissionRequest o) => o -> m DeviceInfoPermissionRequest
+ GI.WebKit2.Objects.Download: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.Download.Download o) => GI.WebKit2.Objects.Download.IsDownload o
+ GI.WebKit2.Objects.Download: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.Download.Download
+ GI.WebKit2.Objects.EditorState: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.EditorState.EditorState o) => GI.WebKit2.Objects.EditorState.IsEditorState o
+ GI.WebKit2.Objects.EditorState: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.EditorState.EditorState
+ GI.WebKit2.Objects.FaviconDatabase: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase o) => GI.WebKit2.Objects.FaviconDatabase.IsFaviconDatabase o
+ GI.WebKit2.Objects.FaviconDatabase: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase
+ GI.WebKit2.Objects.FileChooserRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest o) => GI.WebKit2.Objects.FileChooserRequest.IsFileChooserRequest o
+ GI.WebKit2.Objects.FileChooserRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest
+ GI.WebKit2.Objects.FindController: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.FindController.FindController o) => GI.WebKit2.Objects.FindController.IsFindController o
+ GI.WebKit2.Objects.FindController: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.FindController.FindController
+ GI.WebKit2.Objects.FormSubmissionRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest o) => GI.WebKit2.Objects.FormSubmissionRequest.IsFormSubmissionRequest o
+ GI.WebKit2.Objects.FormSubmissionRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest
+ GI.WebKit2.Objects.GeolocationPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.GeolocationPermissionRequest.GeolocationPermissionRequest o) => GI.WebKit2.Objects.GeolocationPermissionRequest.IsGeolocationPermissionRequest o
+ GI.WebKit2.Objects.GeolocationPermissionRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.GeolocationPermissionRequest.GeolocationPermissionRequest
+ GI.WebKit2.Objects.HitTestResult: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.HitTestResult.HitTestResult o) => GI.WebKit2.Objects.HitTestResult.IsHitTestResult o
+ GI.WebKit2.Objects.HitTestResult: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.HitTestResult.HitTestResult
+ GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.InstallMissingMediaPluginsPermissionRequest o) => GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.IsInstallMissingMediaPluginsPermissionRequest o
+ GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.InstallMissingMediaPluginsPermissionRequest
+ GI.WebKit2.Objects.NavigationPolicyDecision: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision o) => GI.WebKit2.Objects.NavigationPolicyDecision.IsNavigationPolicyDecision o
+ GI.WebKit2.Objects.NavigationPolicyDecision: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision
+ GI.WebKit2.Objects.Notification: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.Notification.Notification o) => GI.WebKit2.Objects.Notification.IsNotification o
+ GI.WebKit2.Objects.Notification: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.Notification.Notification
+ GI.WebKit2.Objects.NotificationPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.NotificationPermissionRequest.NotificationPermissionRequest o) => GI.WebKit2.Objects.NotificationPermissionRequest.IsNotificationPermissionRequest o
+ GI.WebKit2.Objects.NotificationPermissionRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.NotificationPermissionRequest.NotificationPermissionRequest
+ GI.WebKit2.Objects.OptionMenu: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.OptionMenu.OptionMenu o) => GI.WebKit2.Objects.OptionMenu.IsOptionMenu o
+ GI.WebKit2.Objects.OptionMenu: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.OptionMenu.OptionMenu
+ GI.WebKit2.Objects.Plugin: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.Plugin.Plugin o) => GI.WebKit2.Objects.Plugin.IsPlugin o
+ GI.WebKit2.Objects.Plugin: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.Plugin.Plugin
+ GI.WebKit2.Objects.PolicyDecision: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.PolicyDecision.PolicyDecision o) => GI.WebKit2.Objects.PolicyDecision.IsPolicyDecision o
+ GI.WebKit2.Objects.PolicyDecision: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.PolicyDecision.PolicyDecision
+ GI.WebKit2.Objects.PrintCustomWidget: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget o) => GI.WebKit2.Objects.PrintCustomWidget.IsPrintCustomWidget o
+ GI.WebKit2.Objects.PrintCustomWidget: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget
+ GI.WebKit2.Objects.PrintOperation: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.PrintOperation.PrintOperation o) => GI.WebKit2.Objects.PrintOperation.IsPrintOperation o
+ GI.WebKit2.Objects.PrintOperation: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.PrintOperation.PrintOperation
+ GI.WebKit2.Objects.ResponsePolicyDecision: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision o) => GI.WebKit2.Objects.ResponsePolicyDecision.IsResponsePolicyDecision o
+ GI.WebKit2.Objects.ResponsePolicyDecision: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision
+ GI.WebKit2.Objects.SecurityManager: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.SecurityManager.SecurityManager o) => GI.WebKit2.Objects.SecurityManager.IsSecurityManager o
+ GI.WebKit2.Objects.SecurityManager: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.SecurityManager.SecurityManager
+ GI.WebKit2.Objects.Settings: constructSettingsEnableBackForwardNavigationGestures :: IsSettings o => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableJavascriptMarkup :: IsSettings o => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableMediaCapabilities :: IsSettings o => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableMockCaptureDevices :: IsSettings o => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: getSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> m Bool
+ GI.WebKit2.Objects.Settings: getSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> m Bool
+ GI.WebKit2.Objects.Settings: getSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> m Bool
+ GI.WebKit2.Objects.Settings: getSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> m Bool
+ GI.WebKit2.Objects.Settings: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.Settings.Settings o) => GI.WebKit2.Objects.Settings.IsSettings o
+ GI.WebKit2.Objects.Settings: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.Settings.Settings
+ GI.WebKit2.Objects.Settings: setSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
+ GI.WebKit2.Objects.Settings: setSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
+ GI.WebKit2.Objects.Settings: setSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
+ GI.WebKit2.Objects.Settings: setSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> Bool -> m ()
+ GI.WebKit2.Objects.Settings: settingsGetEnableBackForwardNavigationGestures :: (HasCallStack, MonadIO m, IsSettings a) => a -> m Bool
+ GI.WebKit2.Objects.Settings: settingsGetEnableJavascriptMarkup :: (HasCallStack, MonadIO m, IsSettings a) => a -> m Bool
+ GI.WebKit2.Objects.Settings: settingsGetEnableMediaCapabilities :: (HasCallStack, MonadIO m, IsSettings a) => a -> m Bool
+ GI.WebKit2.Objects.Settings: settingsGetEnableMockCaptureDevices :: (HasCallStack, MonadIO m, IsSettings a) => a -> m Bool
+ GI.WebKit2.Objects.Settings: settingsSetEnableBackForwardNavigationGestures :: (HasCallStack, MonadIO m, IsSettings a) => a -> Bool -> m ()
+ GI.WebKit2.Objects.Settings: settingsSetEnableJavascriptMarkup :: (HasCallStack, MonadIO m, IsSettings a) => a -> Bool -> m ()
+ GI.WebKit2.Objects.Settings: settingsSetEnableMediaCapabilities :: (HasCallStack, MonadIO m, IsSettings a) => a -> Bool -> m ()
+ GI.WebKit2.Objects.Settings: settingsSetEnableMockCaptureDevices :: (HasCallStack, MonadIO m, IsSettings a) => a -> Bool -> m ()
+ GI.WebKit2.Objects.URIRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.URIRequest.URIRequest o) => GI.WebKit2.Objects.URIRequest.IsURIRequest o
+ GI.WebKit2.Objects.URIRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.URIRequest.URIRequest
+ GI.WebKit2.Objects.URIResponse: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.URIResponse.URIResponse o) => GI.WebKit2.Objects.URIResponse.IsURIResponse o
+ GI.WebKit2.Objects.URIResponse: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.URIResponse.URIResponse
+ GI.WebKit2.Objects.URISchemeRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest o) => GI.WebKit2.Objects.URISchemeRequest.IsURISchemeRequest o
+ GI.WebKit2.Objects.URISchemeRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest
+ GI.WebKit2.Objects.UserContentFilterStore: UserContentFilterStore :: ManagedPtr UserContentFilterStore -> UserContentFilterStore
+ GI.WebKit2.Objects.UserContentFilterStore: class (GObject o, IsDescendantOf UserContentFilterStore o) => IsUserContentFilterStore o
+ GI.WebKit2.Objects.UserContentFilterStore: constructUserContentFilterStorePath :: IsUserContentFilterStore o => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.UserContentFilterStore: getUserContentFilterStorePath :: (MonadIO m, IsUserContentFilterStore o) => o -> m Text
+ GI.WebKit2.Objects.UserContentFilterStore: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore o) => GI.WebKit2.Objects.UserContentFilterStore.IsUserContentFilterStore o
+ GI.WebKit2.Objects.UserContentFilterStore: instance Data.GI.Base.BasicTypes.GObject GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore
+ GI.WebKit2.Objects.UserContentFilterStore: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore
+ GI.WebKit2.Objects.UserContentFilterStore: newtype UserContentFilterStore
+ GI.WebKit2.Objects.UserContentFilterStore: noUserContentFilterStore :: Maybe UserContentFilterStore
+ GI.WebKit2.Objects.UserContentFilterStore: toUserContentFilterStore :: (MonadIO m, IsUserContentFilterStore o) => o -> m UserContentFilterStore
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreFetchIdentifiers :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsCancellable b) => a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreFetchIdentifiersFinish :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsAsyncResult b) => a -> b -> m [Text]
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreGetPath :: (HasCallStack, MonadIO m, IsUserContentFilterStore a) => a -> m Text
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreLoad :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsCancellable b) => a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreLoadFinish :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsAsyncResult b) => a -> b -> m UserContentFilter
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreNew :: (HasCallStack, MonadIO m) => Text -> m UserContentFilterStore
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreRemove :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsCancellable b) => a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreRemoveFinish :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsAsyncResult b) => a -> b -> m ()
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreSave :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsCancellable b) => a -> Text -> Bytes -> Maybe b -> Maybe AsyncReadyCallback -> m ()
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreSaveFinish :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsAsyncResult b) => a -> b -> m UserContentFilter
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreSaveFromFile :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsFile b, IsCancellable c) => a -> Text -> b -> Maybe c -> Maybe AsyncReadyCallback -> m ()
+ GI.WebKit2.Objects.UserContentFilterStore: userContentFilterStoreSaveFromFileFinish :: (HasCallStack, MonadIO m, IsUserContentFilterStore a, IsAsyncResult b) => a -> b -> m UserContentFilter
+ GI.WebKit2.Objects.UserContentManager: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.UserContentManager.UserContentManager o) => GI.WebKit2.Objects.UserContentManager.IsUserContentManager o
+ GI.WebKit2.Objects.UserContentManager: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.UserContentManager.UserContentManager
+ GI.WebKit2.Objects.UserContentManager: userContentManagerAddFilter :: (HasCallStack, MonadIO m, IsUserContentManager a) => a -> UserContentFilter -> m ()
+ GI.WebKit2.Objects.UserContentManager: userContentManagerRegisterScriptMessageHandlerInWorld :: (HasCallStack, MonadIO m, IsUserContentManager a) => a -> Text -> Text -> m Bool
+ GI.WebKit2.Objects.UserContentManager: userContentManagerRemoveAllFilters :: (HasCallStack, MonadIO m, IsUserContentManager a) => a -> m ()
+ GI.WebKit2.Objects.UserContentManager: userContentManagerRemoveFilter :: (HasCallStack, MonadIO m, IsUserContentManager a) => a -> UserContentFilter -> m ()
+ GI.WebKit2.Objects.UserContentManager: userContentManagerUnregisterScriptMessageHandlerInWorld :: (HasCallStack, MonadIO m, IsUserContentManager a) => a -> Text -> Text -> m ()
+ GI.WebKit2.Objects.UserMediaPermissionRequest: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest o) => GI.WebKit2.Objects.UserMediaPermissionRequest.IsUserMediaPermissionRequest o
+ GI.WebKit2.Objects.UserMediaPermissionRequest: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest
+ GI.WebKit2.Objects.WebContext: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.WebContext.WebContext o) => GI.WebKit2.Objects.WebContext.IsWebContext o
+ GI.WebKit2.Objects.WebContext: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.WebContext.WebContext
+ GI.WebKit2.Objects.WebInspector: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.WebInspector.WebInspector o) => GI.WebKit2.Objects.WebInspector.IsWebInspector o
+ GI.WebKit2.Objects.WebInspector: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.WebInspector.WebInspector
+ GI.WebKit2.Objects.WebResource: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.WebResource.WebResource o) => GI.WebKit2.Objects.WebResource.IsWebResource o
+ GI.WebKit2.Objects.WebResource: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.WebResource.WebResource
+ GI.WebKit2.Objects.WebView: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.WebView.WebView o) => GI.WebKit2.Objects.WebView.IsWebView o
+ GI.WebKit2.Objects.WebView: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.WebView.WebView
+ GI.WebKit2.Objects.WebView: webViewRunJavascriptInWorld :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> Text -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
+ GI.WebKit2.Objects.WebView: webViewRunJavascriptInWorldFinish :: (HasCallStack, MonadIO m, IsWebView a, IsAsyncResult b) => a -> b -> m JavascriptResult
+ GI.WebKit2.Objects.WebViewBase: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.WebViewBase.WebViewBase o) => GI.WebKit2.Objects.WebViewBase.IsWebViewBase o
+ GI.WebKit2.Objects.WebViewBase: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.WebViewBase.WebViewBase
+ GI.WebKit2.Objects.WebsiteDataManager: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager o) => GI.WebKit2.Objects.WebsiteDataManager.IsWebsiteDataManager o
+ GI.WebKit2.Objects.WebsiteDataManager: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager
+ GI.WebKit2.Objects.WindowProperties: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.WebKit2.Objects.WindowProperties.WindowProperties o) => GI.WebKit2.Objects.WindowProperties.IsWindowProperties o
+ GI.WebKit2.Objects.WindowProperties: instance Data.GI.Base.Overloading.HasParentTypes GI.WebKit2.Objects.WindowProperties.WindowProperties
+ GI.WebKit2.Structs.JavascriptResult: javascriptResultGetJsValue :: (HasCallStack, MonadIO m) => JavascriptResult -> m Value
+ GI.WebKit2.Structs.ScriptDialog: scriptDialogClose :: (HasCallStack, MonadIO m) => ScriptDialog -> m ()
+ GI.WebKit2.Structs.ScriptDialog: scriptDialogRef :: (HasCallStack, MonadIO m) => ScriptDialog -> m ScriptDialog
+ GI.WebKit2.Structs.ScriptDialog: scriptDialogUnref :: (HasCallStack, MonadIO m) => ScriptDialog -> m ()
+ GI.WebKit2.Structs.UserContentFilter: UserContentFilter :: ManagedPtr UserContentFilter -> UserContentFilter
+ GI.WebKit2.Structs.UserContentFilter: instance Data.GI.Base.BasicTypes.BoxedObject GI.WebKit2.Structs.UserContentFilter.UserContentFilter
+ GI.WebKit2.Structs.UserContentFilter: newtype UserContentFilter
+ GI.WebKit2.Structs.UserContentFilter: noUserContentFilter :: Maybe UserContentFilter
+ GI.WebKit2.Structs.UserContentFilter: userContentFilterGetIdentifier :: (HasCallStack, MonadIO m) => UserContentFilter -> m Text
+ GI.WebKit2.Structs.UserContentFilter: userContentFilterRef :: (HasCallStack, MonadIO m) => UserContentFilter -> m UserContentFilter
+ GI.WebKit2.Structs.UserContentFilter: userContentFilterUnref :: (HasCallStack, MonadIO m) => UserContentFilter -> m ()
+ GI.WebKit2.Structs.UserScript: userScriptNewForWorld :: (HasCallStack, MonadIO m) => Text -> UserContentInjectedFrames -> UserScriptInjectionTime -> Text -> Maybe [Text] -> Maybe [Text] -> m UserScript
+ GI.WebKit2.Structs.UserStyleSheet: userStyleSheetNewForWorld :: (HasCallStack, MonadIO m) => Text -> UserContentInjectedFrames -> UserStyleLevel -> Text -> Maybe [Text] -> Maybe [Text] -> m UserStyleSheet
- GI.WebKit2.Callbacks: genClosure_URISchemeRequestCallback :: URISchemeRequestCallback -> IO Closure
+ GI.WebKit2.Callbacks: genClosure_URISchemeRequestCallback :: MonadIO m => URISchemeRequestCallback -> m (GClosure C_URISchemeRequestCallback)
- GI.WebKit2.Callbacks: type URISchemeRequestCallback = URISchemeRequest /@request@/: the 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -> IO ()
+ GI.WebKit2.Callbacks: type URISchemeRequestCallback = URISchemeRequest " /@request@/: the 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' " -> IO ()
- GI.WebKit2.Callbacks: type URISchemeRequestCallback_WithClosures = URISchemeRequest /@request@/: the 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -> Ptr () /@userData@/: user data passed to the callback -> IO ()
+ GI.WebKit2.Callbacks: type URISchemeRequestCallback_WithClosures = URISchemeRequest " /@request@/: the 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' " -> Ptr () " /@userData@/: user data passed to the callback " -> IO ()
- GI.WebKit2.Interfaces.PermissionRequest: PermissionRequest :: (ManagedPtr PermissionRequest) -> PermissionRequest
+ GI.WebKit2.Interfaces.PermissionRequest: PermissionRequest :: ManagedPtr PermissionRequest -> PermissionRequest
- GI.WebKit2.Interfaces.PermissionRequest: class GObject o => IsPermissionRequest o
+ GI.WebKit2.Interfaces.PermissionRequest: class (GObject o, IsDescendantOf PermissionRequest o) => IsPermissionRequest o
- GI.WebKit2.Objects.AuthenticationRequest: AuthenticationRequest :: (ManagedPtr AuthenticationRequest) -> AuthenticationRequest
+ GI.WebKit2.Objects.AuthenticationRequest: AuthenticationRequest :: ManagedPtr AuthenticationRequest -> AuthenticationRequest
- GI.WebKit2.Objects.AuthenticationRequest: authenticationRequestAuthenticate :: (HasCallStack, MonadIO m, IsAuthenticationRequest a) => a -> Maybe (Credential) -> m ()
+ GI.WebKit2.Objects.AuthenticationRequest: authenticationRequestAuthenticate :: (HasCallStack, MonadIO m, IsAuthenticationRequest a) => a -> Maybe Credential -> m ()
- GI.WebKit2.Objects.AuthenticationRequest: class GObject o => IsAuthenticationRequest o
+ GI.WebKit2.Objects.AuthenticationRequest: class (GObject o, IsDescendantOf AuthenticationRequest o) => IsAuthenticationRequest o
- GI.WebKit2.Objects.AuthenticationRequest: genClosure_AuthenticationRequestCancelled :: AuthenticationRequestCancelledCallback -> IO Closure
+ GI.WebKit2.Objects.AuthenticationRequest: genClosure_AuthenticationRequestCancelled :: MonadIO m => AuthenticationRequestCancelledCallback -> m (GClosure C_AuthenticationRequestCancelledCallback)
- GI.WebKit2.Objects.AutomationSession: AutomationSession :: (ManagedPtr AutomationSession) -> AutomationSession
+ GI.WebKit2.Objects.AutomationSession: AutomationSession :: ManagedPtr AutomationSession -> AutomationSession
- GI.WebKit2.Objects.AutomationSession: class GObject o => IsAutomationSession o
+ GI.WebKit2.Objects.AutomationSession: class (GObject o, IsDescendantOf AutomationSession o) => IsAutomationSession o
- GI.WebKit2.Objects.AutomationSession: constructAutomationSessionId :: (IsAutomationSession o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.AutomationSession: constructAutomationSessionId :: IsAutomationSession o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.AutomationSession: genClosure_AutomationSessionCreateWebView :: AutomationSessionCreateWebViewCallback -> IO Closure
+ GI.WebKit2.Objects.AutomationSession: genClosure_AutomationSessionCreateWebView :: MonadIO m => AutomationSessionCreateWebViewCallback -> m (GClosure C_AutomationSessionCreateWebViewCallback)
- GI.WebKit2.Objects.AutomationSession: type AutomationSessionCreateWebViewCallback = IO WebView __Returns:__ a 'GI.WebKit2.Objects.WebView.WebView' widget.
+ GI.WebKit2.Objects.AutomationSession: type AutomationSessionCreateWebViewCallback = IO WebView " __Returns:__ a 'GI.WebKit2.Objects.WebView.WebView' widget. "
- GI.WebKit2.Objects.BackForwardList: BackForwardList :: (ManagedPtr BackForwardList) -> BackForwardList
+ GI.WebKit2.Objects.BackForwardList: BackForwardList :: ManagedPtr BackForwardList -> BackForwardList
- GI.WebKit2.Objects.BackForwardList: class GObject o => IsBackForwardList o
+ GI.WebKit2.Objects.BackForwardList: class (GObject o, IsDescendantOf BackForwardList o) => IsBackForwardList o
- GI.WebKit2.Objects.BackForwardList: genClosure_BackForwardListChanged :: BackForwardListChangedCallback -> IO Closure
+ GI.WebKit2.Objects.BackForwardList: genClosure_BackForwardListChanged :: MonadIO m => BackForwardListChangedCallback -> m (GClosure C_BackForwardListChangedCallback)
- GI.WebKit2.Objects.BackForwardList: type BackForwardListChangedCallback = Maybe BackForwardListItem /@itemAdded@/: the 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem' added or 'Nothing' -> Ptr () /@itemsRemoved@/: a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'\<!-- -->s -> IO ()
+ GI.WebKit2.Objects.BackForwardList: type BackForwardListChangedCallback = Maybe BackForwardListItem " /@itemAdded@/: the 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem' added or 'Nothing' " -> Ptr () " /@itemsRemoved@/: a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'\<!-- -->s " -> IO ()
- GI.WebKit2.Objects.BackForwardListItem: BackForwardListItem :: (ManagedPtr BackForwardListItem) -> BackForwardListItem
+ GI.WebKit2.Objects.BackForwardListItem: BackForwardListItem :: ManagedPtr BackForwardListItem -> BackForwardListItem
- GI.WebKit2.Objects.BackForwardListItem: class GObject o => IsBackForwardListItem o
+ GI.WebKit2.Objects.BackForwardListItem: class (GObject o, IsDescendantOf BackForwardListItem o) => IsBackForwardListItem o
- GI.WebKit2.Objects.ColorChooserRequest: ColorChooserRequest :: (ManagedPtr ColorChooserRequest) -> ColorChooserRequest
+ GI.WebKit2.Objects.ColorChooserRequest: ColorChooserRequest :: ManagedPtr ColorChooserRequest -> ColorChooserRequest
- GI.WebKit2.Objects.ColorChooserRequest: class GObject o => IsColorChooserRequest o
+ GI.WebKit2.Objects.ColorChooserRequest: class (GObject o, IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o
- GI.WebKit2.Objects.ColorChooserRequest: colorChooserRequestGetElementRectangle :: (HasCallStack, MonadIO m, IsColorChooserRequest a) => a -> m (Rectangle)
+ GI.WebKit2.Objects.ColorChooserRequest: colorChooserRequestGetElementRectangle :: (HasCallStack, MonadIO m, IsColorChooserRequest a) => a -> m Rectangle
- GI.WebKit2.Objects.ColorChooserRequest: colorChooserRequestGetRgba :: (HasCallStack, MonadIO m, IsColorChooserRequest a) => a -> m (RGBA)
+ GI.WebKit2.Objects.ColorChooserRequest: colorChooserRequestGetRgba :: (HasCallStack, MonadIO m, IsColorChooserRequest a) => a -> m RGBA
- GI.WebKit2.Objects.ColorChooserRequest: constructColorChooserRequestRgba :: (IsColorChooserRequest o) => RGBA -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.ColorChooserRequest: constructColorChooserRequestRgba :: IsColorChooserRequest o => RGBA -> IO (GValueConstruct o)
- GI.WebKit2.Objects.ColorChooserRequest: genClosure_ColorChooserRequestFinished :: ColorChooserRequestFinishedCallback -> IO Closure
+ GI.WebKit2.Objects.ColorChooserRequest: genClosure_ColorChooserRequestFinished :: MonadIO m => ColorChooserRequestFinishedCallback -> m (GClosure C_ColorChooserRequestFinishedCallback)
- GI.WebKit2.Objects.ContextMenu: ContextMenu :: (ManagedPtr ContextMenu) -> ContextMenu
+ GI.WebKit2.Objects.ContextMenu: ContextMenu :: ManagedPtr ContextMenu -> ContextMenu
- GI.WebKit2.Objects.ContextMenu: class GObject o => IsContextMenu o
+ GI.WebKit2.Objects.ContextMenu: class (GObject o, IsDescendantOf ContextMenu o) => IsContextMenu o
- GI.WebKit2.Objects.ContextMenuItem: ContextMenuItem :: (ManagedPtr ContextMenuItem) -> ContextMenuItem
+ GI.WebKit2.Objects.ContextMenuItem: ContextMenuItem :: ManagedPtr ContextMenuItem -> ContextMenuItem
- GI.WebKit2.Objects.ContextMenuItem: class GObject o => IsContextMenuItem o
+ GI.WebKit2.Objects.ContextMenuItem: class (GObject o, IsDescendantOf ContextMenuItem o) => IsContextMenuItem o
- GI.WebKit2.Objects.ContextMenuItem: contextMenuItemNewFromGaction :: (HasCallStack, MonadIO m, IsAction a) => a -> Text -> Maybe (GVariant) -> m ContextMenuItem
+ GI.WebKit2.Objects.ContextMenuItem: contextMenuItemNewFromGaction :: (HasCallStack, MonadIO m, IsAction a) => a -> Text -> Maybe GVariant -> m ContextMenuItem
- GI.WebKit2.Objects.ContextMenuItem: contextMenuItemSetSubmenu :: (HasCallStack, MonadIO m, IsContextMenuItem a, IsContextMenu b) => a -> Maybe (b) -> m ()
+ GI.WebKit2.Objects.ContextMenuItem: contextMenuItemSetSubmenu :: (HasCallStack, MonadIO m, IsContextMenuItem a, IsContextMenu b) => a -> Maybe b -> m ()
- GI.WebKit2.Objects.CookieManager: CookieManager :: (ManagedPtr CookieManager) -> CookieManager
+ GI.WebKit2.Objects.CookieManager: CookieManager :: ManagedPtr CookieManager -> CookieManager
- GI.WebKit2.Objects.CookieManager: class GObject o => IsCookieManager o
+ GI.WebKit2.Objects.CookieManager: class (GObject o, IsDescendantOf CookieManager o) => IsCookieManager o
- GI.WebKit2.Objects.CookieManager: cookieManagerAddCookie :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Cookie -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.CookieManager: cookieManagerAddCookie :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Cookie -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.CookieManager: cookieManagerDeleteCookie :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Cookie -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.CookieManager: cookieManagerDeleteCookie :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Cookie -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.CookieManager: cookieManagerGetAcceptPolicy :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.CookieManager: cookieManagerGetAcceptPolicy :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.CookieManager: cookieManagerGetCookies :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.CookieManager: cookieManagerGetCookies :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.CookieManager: cookieManagerGetDomainsWithCookies :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.CookieManager: cookieManagerGetDomainsWithCookies :: (HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) => a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.CookieManager: genClosure_CookieManagerChanged :: CookieManagerChangedCallback -> IO Closure
+ GI.WebKit2.Objects.CookieManager: genClosure_CookieManagerChanged :: MonadIO m => CookieManagerChangedCallback -> m (GClosure C_CookieManagerChangedCallback)
- GI.WebKit2.Objects.Download: Download :: (ManagedPtr Download) -> Download
+ GI.WebKit2.Objects.Download: Download :: ManagedPtr Download -> Download
- GI.WebKit2.Objects.Download: class GObject o => IsDownload o
+ GI.WebKit2.Objects.Download: class (GObject o, IsDescendantOf Download o) => IsDownload o
- GI.WebKit2.Objects.Download: constructDownloadAllowOverwrite :: (IsDownload o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Download: constructDownloadAllowOverwrite :: IsDownload o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Download: genClosure_DownloadCreatedDestination :: DownloadCreatedDestinationCallback -> IO Closure
+ GI.WebKit2.Objects.Download: genClosure_DownloadCreatedDestination :: MonadIO m => DownloadCreatedDestinationCallback -> m (GClosure C_DownloadCreatedDestinationCallback)
- GI.WebKit2.Objects.Download: genClosure_DownloadDecideDestination :: DownloadDecideDestinationCallback -> IO Closure
+ GI.WebKit2.Objects.Download: genClosure_DownloadDecideDestination :: MonadIO m => DownloadDecideDestinationCallback -> m (GClosure C_DownloadDecideDestinationCallback)
- GI.WebKit2.Objects.Download: genClosure_DownloadFailed :: DownloadFailedCallback -> IO Closure
+ GI.WebKit2.Objects.Download: genClosure_DownloadFailed :: MonadIO m => DownloadFailedCallback -> m (GClosure C_DownloadFailedCallback)
- GI.WebKit2.Objects.Download: genClosure_DownloadFinished :: DownloadFinishedCallback -> IO Closure
+ GI.WebKit2.Objects.Download: genClosure_DownloadFinished :: MonadIO m => DownloadFinishedCallback -> m (GClosure C_DownloadFinishedCallback)
- GI.WebKit2.Objects.Download: genClosure_DownloadReceivedData :: DownloadReceivedDataCallback -> IO Closure
+ GI.WebKit2.Objects.Download: genClosure_DownloadReceivedData :: MonadIO m => DownloadReceivedDataCallback -> m (GClosure C_DownloadReceivedDataCallback)
- GI.WebKit2.Objects.Download: type DownloadCreatedDestinationCallback = Text /@destination@/: the destination URI -> IO ()
+ GI.WebKit2.Objects.Download: type DownloadCreatedDestinationCallback = Text " /@destination@/: the destination URI " -> IO ()
- GI.WebKit2.Objects.Download: type DownloadDecideDestinationCallback = Text /@suggestedFilename@/: the filename suggested for the download -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.Download: type DownloadDecideDestinationCallback = Text " /@suggestedFilename@/: the filename suggested for the download " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.Download: type DownloadFailedCallback = GError /@error@/: the 'GError' that was triggered -> IO ()
+ GI.WebKit2.Objects.Download: type DownloadFailedCallback = GError " /@error@/: the 'GError' that was triggered " -> IO ()
- GI.WebKit2.Objects.Download: type DownloadReceivedDataCallback = Word64 /@dataLength@/: the length of data received in bytes -> IO ()
+ GI.WebKit2.Objects.Download: type DownloadReceivedDataCallback = Word64 " /@dataLength@/: the length of data received in bytes " -> IO ()
- GI.WebKit2.Objects.EditorState: EditorState :: (ManagedPtr EditorState) -> EditorState
+ GI.WebKit2.Objects.EditorState: EditorState :: ManagedPtr EditorState -> EditorState
- GI.WebKit2.Objects.EditorState: class GObject o => IsEditorState o
+ GI.WebKit2.Objects.EditorState: class (GObject o, IsDescendantOf EditorState o) => IsEditorState o
- GI.WebKit2.Objects.FaviconDatabase: FaviconDatabase :: (ManagedPtr FaviconDatabase) -> FaviconDatabase
+ GI.WebKit2.Objects.FaviconDatabase: FaviconDatabase :: ManagedPtr FaviconDatabase -> FaviconDatabase
- GI.WebKit2.Objects.FaviconDatabase: class GObject o => IsFaviconDatabase o
+ GI.WebKit2.Objects.FaviconDatabase: class (GObject o, IsDescendantOf FaviconDatabase o) => IsFaviconDatabase o
- GI.WebKit2.Objects.FaviconDatabase: faviconDatabaseGetFavicon :: (HasCallStack, MonadIO m, IsFaviconDatabase a, IsCancellable b) => a -> Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.FaviconDatabase: faviconDatabaseGetFavicon :: (HasCallStack, MonadIO m, IsFaviconDatabase a, IsCancellable b) => a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.FaviconDatabase: genClosure_FaviconDatabaseFaviconChanged :: FaviconDatabaseFaviconChangedCallback -> IO Closure
+ GI.WebKit2.Objects.FaviconDatabase: genClosure_FaviconDatabaseFaviconChanged :: MonadIO m => FaviconDatabaseFaviconChangedCallback -> m (GClosure C_FaviconDatabaseFaviconChangedCallback)
- GI.WebKit2.Objects.FaviconDatabase: type FaviconDatabaseFaviconChangedCallback = Text /@pageUri@/: the URI of the Web page containing the icon -> Text /@faviconUri@/: the URI of the favicon -> IO ()
+ GI.WebKit2.Objects.FaviconDatabase: type FaviconDatabaseFaviconChangedCallback = Text " /@pageUri@/: the URI of the Web page containing the icon " -> Text " /@faviconUri@/: the URI of the favicon " -> IO ()
- GI.WebKit2.Objects.FileChooserRequest: FileChooserRequest :: (ManagedPtr FileChooserRequest) -> FileChooserRequest
+ GI.WebKit2.Objects.FileChooserRequest: FileChooserRequest :: ManagedPtr FileChooserRequest -> FileChooserRequest
- GI.WebKit2.Objects.FileChooserRequest: class GObject o => IsFileChooserRequest o
+ GI.WebKit2.Objects.FileChooserRequest: class (GObject o, IsDescendantOf FileChooserRequest o) => IsFileChooserRequest o
- GI.WebKit2.Objects.FindController: FindController :: (ManagedPtr FindController) -> FindController
+ GI.WebKit2.Objects.FindController: FindController :: ManagedPtr FindController -> FindController
- GI.WebKit2.Objects.FindController: class GObject o => IsFindController o
+ GI.WebKit2.Objects.FindController: class (GObject o, IsDescendantOf FindController o) => IsFindController o
- GI.WebKit2.Objects.FindController: genClosure_FindControllerCountedMatches :: FindControllerCountedMatchesCallback -> IO Closure
+ GI.WebKit2.Objects.FindController: genClosure_FindControllerCountedMatches :: MonadIO m => FindControllerCountedMatchesCallback -> m (GClosure C_FindControllerCountedMatchesCallback)
- GI.WebKit2.Objects.FindController: genClosure_FindControllerFailedToFindText :: FindControllerFailedToFindTextCallback -> IO Closure
+ GI.WebKit2.Objects.FindController: genClosure_FindControllerFailedToFindText :: MonadIO m => FindControllerFailedToFindTextCallback -> m (GClosure C_FindControllerFailedToFindTextCallback)
- GI.WebKit2.Objects.FindController: genClosure_FindControllerFoundText :: FindControllerFoundTextCallback -> IO Closure
+ GI.WebKit2.Objects.FindController: genClosure_FindControllerFoundText :: MonadIO m => FindControllerFoundTextCallback -> m (GClosure C_FindControllerFoundTextCallback)
- GI.WebKit2.Objects.FindController: type FindControllerCountedMatchesCallback = Word32 /@matchCount@/: the number of matches of the search text -> IO ()
+ GI.WebKit2.Objects.FindController: type FindControllerCountedMatchesCallback = Word32 " /@matchCount@/: the number of matches of the search text " -> IO ()
- GI.WebKit2.Objects.FindController: type FindControllerFoundTextCallback = Word32 /@matchCount@/: the number of matches found of the search text -> IO ()
+ GI.WebKit2.Objects.FindController: type FindControllerFoundTextCallback = Word32 " /@matchCount@/: the number of matches found of the search text " -> IO ()
- GI.WebKit2.Objects.FormSubmissionRequest: FormSubmissionRequest :: (ManagedPtr FormSubmissionRequest) -> FormSubmissionRequest
+ GI.WebKit2.Objects.FormSubmissionRequest: FormSubmissionRequest :: ManagedPtr FormSubmissionRequest -> FormSubmissionRequest
- GI.WebKit2.Objects.FormSubmissionRequest: class GObject o => IsFormSubmissionRequest o
+ GI.WebKit2.Objects.FormSubmissionRequest: class (GObject o, IsDescendantOf FormSubmissionRequest o) => IsFormSubmissionRequest o
- GI.WebKit2.Objects.FormSubmissionRequest: formSubmissionRequestListTextFields :: (HasCallStack, MonadIO m, IsFormSubmissionRequest a) => a -> m ((Bool, [Text], [Text]))
+ GI.WebKit2.Objects.FormSubmissionRequest: formSubmissionRequestListTextFields :: (HasCallStack, MonadIO m, IsFormSubmissionRequest a) => a -> m (Bool, [Text], [Text])
- GI.WebKit2.Objects.GeolocationPermissionRequest: GeolocationPermissionRequest :: (ManagedPtr GeolocationPermissionRequest) -> GeolocationPermissionRequest
+ GI.WebKit2.Objects.GeolocationPermissionRequest: GeolocationPermissionRequest :: ManagedPtr GeolocationPermissionRequest -> GeolocationPermissionRequest
- GI.WebKit2.Objects.GeolocationPermissionRequest: class GObject o => IsGeolocationPermissionRequest o
+ GI.WebKit2.Objects.GeolocationPermissionRequest: class (GObject o, IsDescendantOf GeolocationPermissionRequest o) => IsGeolocationPermissionRequest o
- GI.WebKit2.Objects.HitTestResult: HitTestResult :: (ManagedPtr HitTestResult) -> HitTestResult
+ GI.WebKit2.Objects.HitTestResult: HitTestResult :: ManagedPtr HitTestResult -> HitTestResult
- GI.WebKit2.Objects.HitTestResult: class GObject o => IsHitTestResult o
+ GI.WebKit2.Objects.HitTestResult: class (GObject o, IsDescendantOf HitTestResult o) => IsHitTestResult o
- GI.WebKit2.Objects.HitTestResult: constructHitTestResultContext :: (IsHitTestResult o) => Word32 -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.HitTestResult: constructHitTestResultContext :: IsHitTestResult o => Word32 -> IO (GValueConstruct o)
- GI.WebKit2.Objects.HitTestResult: constructHitTestResultImageUri :: (IsHitTestResult o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.HitTestResult: constructHitTestResultImageUri :: IsHitTestResult o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.HitTestResult: constructHitTestResultLinkLabel :: (IsHitTestResult o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.HitTestResult: constructHitTestResultLinkLabel :: IsHitTestResult o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.HitTestResult: constructHitTestResultLinkTitle :: (IsHitTestResult o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.HitTestResult: constructHitTestResultLinkTitle :: IsHitTestResult o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.HitTestResult: constructHitTestResultLinkUri :: (IsHitTestResult o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.HitTestResult: constructHitTestResultLinkUri :: IsHitTestResult o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.HitTestResult: constructHitTestResultMediaUri :: (IsHitTestResult o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.HitTestResult: constructHitTestResultMediaUri :: IsHitTestResult o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: InstallMissingMediaPluginsPermissionRequest :: (ManagedPtr InstallMissingMediaPluginsPermissionRequest) -> InstallMissingMediaPluginsPermissionRequest
+ GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: InstallMissingMediaPluginsPermissionRequest :: ManagedPtr InstallMissingMediaPluginsPermissionRequest -> InstallMissingMediaPluginsPermissionRequest
- GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: class GObject o => IsInstallMissingMediaPluginsPermissionRequest o
+ GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest: class (GObject o, IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => IsInstallMissingMediaPluginsPermissionRequest o
- GI.WebKit2.Objects.NavigationPolicyDecision: NavigationPolicyDecision :: (ManagedPtr NavigationPolicyDecision) -> NavigationPolicyDecision
+ GI.WebKit2.Objects.NavigationPolicyDecision: NavigationPolicyDecision :: ManagedPtr NavigationPolicyDecision -> NavigationPolicyDecision
- GI.WebKit2.Objects.NavigationPolicyDecision: class GObject o => IsNavigationPolicyDecision o
+ GI.WebKit2.Objects.NavigationPolicyDecision: class (GObject o, IsDescendantOf NavigationPolicyDecision o) => IsNavigationPolicyDecision o
- GI.WebKit2.Objects.Notification: Notification :: (ManagedPtr Notification) -> Notification
+ GI.WebKit2.Objects.Notification: Notification :: ManagedPtr Notification -> Notification
- GI.WebKit2.Objects.Notification: class GObject o => IsNotification o
+ GI.WebKit2.Objects.Notification: class (GObject o, IsDescendantOf Notification o) => IsNotification o
- GI.WebKit2.Objects.Notification: genClosure_NotificationClicked :: NotificationClickedCallback -> IO Closure
+ GI.WebKit2.Objects.Notification: genClosure_NotificationClicked :: MonadIO m => NotificationClickedCallback -> m (GClosure C_NotificationClickedCallback)
- GI.WebKit2.Objects.Notification: genClosure_NotificationClosed :: NotificationClosedCallback -> IO Closure
+ GI.WebKit2.Objects.Notification: genClosure_NotificationClosed :: MonadIO m => NotificationClosedCallback -> m (GClosure C_NotificationClosedCallback)
- GI.WebKit2.Objects.NotificationPermissionRequest: NotificationPermissionRequest :: (ManagedPtr NotificationPermissionRequest) -> NotificationPermissionRequest
+ GI.WebKit2.Objects.NotificationPermissionRequest: NotificationPermissionRequest :: ManagedPtr NotificationPermissionRequest -> NotificationPermissionRequest
- GI.WebKit2.Objects.NotificationPermissionRequest: class GObject o => IsNotificationPermissionRequest o
+ GI.WebKit2.Objects.NotificationPermissionRequest: class (GObject o, IsDescendantOf NotificationPermissionRequest o) => IsNotificationPermissionRequest o
- GI.WebKit2.Objects.OptionMenu: OptionMenu :: (ManagedPtr OptionMenu) -> OptionMenu
+ GI.WebKit2.Objects.OptionMenu: OptionMenu :: ManagedPtr OptionMenu -> OptionMenu
- GI.WebKit2.Objects.OptionMenu: class GObject o => IsOptionMenu o
+ GI.WebKit2.Objects.OptionMenu: class (GObject o, IsDescendantOf OptionMenu o) => IsOptionMenu o
- GI.WebKit2.Objects.OptionMenu: genClosure_OptionMenuClose :: OptionMenuCloseCallback -> IO Closure
+ GI.WebKit2.Objects.OptionMenu: genClosure_OptionMenuClose :: MonadIO m => OptionMenuCloseCallback -> m (GClosure C_OptionMenuCloseCallback)
- GI.WebKit2.Objects.Plugin: Plugin :: (ManagedPtr Plugin) -> Plugin
+ GI.WebKit2.Objects.Plugin: Plugin :: ManagedPtr Plugin -> Plugin
- GI.WebKit2.Objects.Plugin: class GObject o => IsPlugin o
+ GI.WebKit2.Objects.Plugin: class (GObject o, IsDescendantOf Plugin o) => IsPlugin o
- GI.WebKit2.Objects.PolicyDecision: PolicyDecision :: (ManagedPtr PolicyDecision) -> PolicyDecision
+ GI.WebKit2.Objects.PolicyDecision: PolicyDecision :: ManagedPtr PolicyDecision -> PolicyDecision
- GI.WebKit2.Objects.PolicyDecision: class GObject o => IsPolicyDecision o
+ GI.WebKit2.Objects.PolicyDecision: class (GObject o, IsDescendantOf PolicyDecision o) => IsPolicyDecision o
- GI.WebKit2.Objects.PrintCustomWidget: PrintCustomWidget :: (ManagedPtr PrintCustomWidget) -> PrintCustomWidget
+ GI.WebKit2.Objects.PrintCustomWidget: PrintCustomWidget :: ManagedPtr PrintCustomWidget -> PrintCustomWidget
- GI.WebKit2.Objects.PrintCustomWidget: class GObject o => IsPrintCustomWidget o
+ GI.WebKit2.Objects.PrintCustomWidget: class (GObject o, IsDescendantOf PrintCustomWidget o) => IsPrintCustomWidget o
- GI.WebKit2.Objects.PrintCustomWidget: constructPrintCustomWidgetTitle :: (IsPrintCustomWidget o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.PrintCustomWidget: constructPrintCustomWidgetTitle :: IsPrintCustomWidget o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.PrintCustomWidget: genClosure_PrintCustomWidgetApply :: PrintCustomWidgetApplyCallback -> IO Closure
+ GI.WebKit2.Objects.PrintCustomWidget: genClosure_PrintCustomWidgetApply :: MonadIO m => PrintCustomWidgetApplyCallback -> m (GClosure C_PrintCustomWidgetApplyCallback)
- GI.WebKit2.Objects.PrintCustomWidget: genClosure_PrintCustomWidgetUpdate :: PrintCustomWidgetUpdateCallback -> IO Closure
+ GI.WebKit2.Objects.PrintCustomWidget: genClosure_PrintCustomWidgetUpdate :: MonadIO m => PrintCustomWidgetUpdateCallback -> m (GClosure C_PrintCustomWidgetUpdateCallback)
- GI.WebKit2.Objects.PrintCustomWidget: type PrintCustomWidgetUpdateCallback = PageSetup /@pageSetup@/: actual page setup -> PrintSettings /@printSettings@/: actual print settings -> IO ()
+ GI.WebKit2.Objects.PrintCustomWidget: type PrintCustomWidgetUpdateCallback = PageSetup " /@pageSetup@/: actual page setup " -> PrintSettings " /@printSettings@/: actual print settings " -> IO ()
- GI.WebKit2.Objects.PrintOperation: PrintOperation :: (ManagedPtr PrintOperation) -> PrintOperation
+ GI.WebKit2.Objects.PrintOperation: PrintOperation :: ManagedPtr PrintOperation -> PrintOperation
- GI.WebKit2.Objects.PrintOperation: class GObject o => IsPrintOperation o
+ GI.WebKit2.Objects.PrintOperation: class (GObject o, IsDescendantOf PrintOperation o) => IsPrintOperation o
- GI.WebKit2.Objects.PrintOperation: genClosure_PrintOperationCreateCustomWidget :: PrintOperationCreateCustomWidgetCallback -> IO Closure
+ GI.WebKit2.Objects.PrintOperation: genClosure_PrintOperationCreateCustomWidget :: MonadIO m => PrintOperationCreateCustomWidgetCallback -> m (GClosure C_PrintOperationCreateCustomWidgetCallback)
- GI.WebKit2.Objects.PrintOperation: genClosure_PrintOperationFailed :: PrintOperationFailedCallback -> IO Closure
+ GI.WebKit2.Objects.PrintOperation: genClosure_PrintOperationFailed :: MonadIO m => PrintOperationFailedCallback -> m (GClosure C_PrintOperationFailedCallback)
- GI.WebKit2.Objects.PrintOperation: genClosure_PrintOperationFinished :: PrintOperationFinishedCallback -> IO Closure
+ GI.WebKit2.Objects.PrintOperation: genClosure_PrintOperationFinished :: MonadIO m => PrintOperationFinishedCallback -> m (GClosure C_PrintOperationFinishedCallback)
- GI.WebKit2.Objects.PrintOperation: printOperationRunDialog :: (HasCallStack, MonadIO m, IsPrintOperation a, IsWindow b) => a -> Maybe (b) -> m PrintOperationResponse
+ GI.WebKit2.Objects.PrintOperation: printOperationRunDialog :: (HasCallStack, MonadIO m, IsPrintOperation a, IsWindow b) => a -> Maybe b -> m PrintOperationResponse
- GI.WebKit2.Objects.PrintOperation: type PrintOperationCreateCustomWidgetCallback = IO PrintCustomWidget __Returns:__ A 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget' that will be embedded in the dialog.
+ GI.WebKit2.Objects.PrintOperation: type PrintOperationCreateCustomWidgetCallback = IO PrintCustomWidget " __Returns:__ A 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget' that will be embedded in the dialog. "
- GI.WebKit2.Objects.PrintOperation: type PrintOperationFailedCallback = GError /@error@/: the 'GError' that was triggered -> IO ()
+ GI.WebKit2.Objects.PrintOperation: type PrintOperationFailedCallback = GError " /@error@/: the 'GError' that was triggered " -> IO ()
- GI.WebKit2.Objects.ResponsePolicyDecision: ResponsePolicyDecision :: (ManagedPtr ResponsePolicyDecision) -> ResponsePolicyDecision
+ GI.WebKit2.Objects.ResponsePolicyDecision: ResponsePolicyDecision :: ManagedPtr ResponsePolicyDecision -> ResponsePolicyDecision
- GI.WebKit2.Objects.ResponsePolicyDecision: class GObject o => IsResponsePolicyDecision o
+ GI.WebKit2.Objects.ResponsePolicyDecision: class (GObject o, IsDescendantOf ResponsePolicyDecision o) => IsResponsePolicyDecision o
- GI.WebKit2.Objects.SecurityManager: SecurityManager :: (ManagedPtr SecurityManager) -> SecurityManager
+ GI.WebKit2.Objects.SecurityManager: SecurityManager :: ManagedPtr SecurityManager -> SecurityManager
- GI.WebKit2.Objects.SecurityManager: class GObject o => IsSecurityManager o
+ GI.WebKit2.Objects.SecurityManager: class (GObject o, IsDescendantOf SecurityManager o) => IsSecurityManager o
- GI.WebKit2.Objects.Settings: Settings :: (ManagedPtr Settings) -> Settings
+ GI.WebKit2.Objects.Settings: Settings :: ManagedPtr Settings -> Settings
- GI.WebKit2.Objects.Settings: class GObject o => IsSettings o
+ GI.WebKit2.Objects.Settings: class (GObject o, IsDescendantOf Settings o) => IsSettings o
- GI.WebKit2.Objects.Settings: constructSettingsAllowFileAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsAllowFileAccessFromFileUrls :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsAllowModalDialogs :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsAllowModalDialogs :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsAllowUniversalAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsAllowUniversalAccessFromFileUrls :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsAutoLoadImages :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsAutoLoadImages :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsCursiveFontFamily :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsCursiveFontFamily :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsDefaultCharset :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsDefaultCharset :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsDefaultFontFamily :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsDefaultFontFamily :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsDefaultFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsDefaultFontSize :: IsSettings o => Word32 -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsDefaultMonospaceFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsDefaultMonospaceFontSize :: IsSettings o => Word32 -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsDrawCompositingIndicators :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsDrawCompositingIndicators :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableAccelerated2dCanvas :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableAccelerated2dCanvas :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableCaretBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableCaretBrowsing :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableDeveloperExtras :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableDeveloperExtras :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableDnsPrefetching :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableDnsPrefetching :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableEncryptedMedia :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableEncryptedMedia :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableFrameFlattening :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableFrameFlattening :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableFullscreen :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableFullscreen :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableHtml5Database :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableHtml5Database :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableHtml5LocalStorage :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableHtml5LocalStorage :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableHyperlinkAuditing :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableHyperlinkAuditing :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableJava :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableJava :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableJavascript :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableJavascript :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableMediaStream :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableMediaStream :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableMediasource :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableMediasource :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableOfflineWebApplicationCache :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableOfflineWebApplicationCache :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnablePageCache :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnablePageCache :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnablePlugins :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnablePlugins :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnablePrivateBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnablePrivateBrowsing :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableResizableTextAreas :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableResizableTextAreas :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableSiteSpecificQuirks :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableSiteSpecificQuirks :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableSmoothScrolling :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableSmoothScrolling :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableSpatialNavigation :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableSpatialNavigation :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableTabsToLinks :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableTabsToLinks :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableWebaudio :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableWebaudio :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableWebgl :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableWebgl :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableWriteConsoleMessagesToStdout :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableWriteConsoleMessagesToStdout :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsEnableXssAuditor :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsEnableXssAuditor :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsFantasyFontFamily :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsFantasyFontFamily :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsHardwareAccelerationPolicy :: (IsSettings o) => HardwareAccelerationPolicy -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsHardwareAccelerationPolicy :: IsSettings o => HardwareAccelerationPolicy -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsJavascriptCanAccessClipboard :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsJavascriptCanAccessClipboard :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsJavascriptCanOpenWindowsAutomatically :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsJavascriptCanOpenWindowsAutomatically :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsLoadIconsIgnoringImageLoadSetting :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsLoadIconsIgnoringImageLoadSetting :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsMediaPlaybackAllowsInline :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsMediaPlaybackAllowsInline :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsMediaPlaybackRequiresUserGesture :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsMediaPlaybackRequiresUserGesture :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsMinimumFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsMinimumFontSize :: IsSettings o => Word32 -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsMonospaceFontFamily :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsMonospaceFontFamily :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsPictographFontFamily :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsPictographFontFamily :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsPrintBackgrounds :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsPrintBackgrounds :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsSansSerifFontFamily :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsSansSerifFontFamily :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsSerifFontFamily :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsSerifFontFamily :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsUserAgent :: (IsSettings o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsUserAgent :: IsSettings o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: constructSettingsZoomTextOnly :: (IsSettings o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.Settings: constructSettingsZoomTextOnly :: IsSettings o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.Settings: settingsSetUserAgent :: (HasCallStack, MonadIO m, IsSettings a) => a -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.Settings: settingsSetUserAgent :: (HasCallStack, MonadIO m, IsSettings a) => a -> Maybe Text -> m ()
- GI.WebKit2.Objects.Settings: settingsSetUserAgentWithApplicationDetails :: (HasCallStack, MonadIO m, IsSettings a) => a -> Maybe (Text) -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.Settings: settingsSetUserAgentWithApplicationDetails :: (HasCallStack, MonadIO m, IsSettings a) => a -> Maybe Text -> Maybe Text -> m ()
- GI.WebKit2.Objects.URIRequest: URIRequest :: (ManagedPtr URIRequest) -> URIRequest
+ GI.WebKit2.Objects.URIRequest: URIRequest :: ManagedPtr URIRequest -> URIRequest
- GI.WebKit2.Objects.URIRequest: class GObject o => IsURIRequest o
+ GI.WebKit2.Objects.URIRequest: class (GObject o, IsDescendantOf URIRequest o) => IsURIRequest o
- GI.WebKit2.Objects.URIRequest: constructURIRequestUri :: (IsURIRequest o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.URIRequest: constructURIRequestUri :: IsURIRequest o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.URIResponse: URIResponse :: (ManagedPtr URIResponse) -> URIResponse
+ GI.WebKit2.Objects.URIResponse: URIResponse :: ManagedPtr URIResponse -> URIResponse
- GI.WebKit2.Objects.URIResponse: class GObject o => IsURIResponse o
+ GI.WebKit2.Objects.URIResponse: class (GObject o, IsDescendantOf URIResponse o) => IsURIResponse o
- GI.WebKit2.Objects.URISchemeRequest: URISchemeRequest :: (ManagedPtr URISchemeRequest) -> URISchemeRequest
+ GI.WebKit2.Objects.URISchemeRequest: URISchemeRequest :: ManagedPtr URISchemeRequest -> URISchemeRequest
- GI.WebKit2.Objects.URISchemeRequest: class GObject o => IsURISchemeRequest o
+ GI.WebKit2.Objects.URISchemeRequest: class (GObject o, IsDescendantOf URISchemeRequest o) => IsURISchemeRequest o
- GI.WebKit2.Objects.URISchemeRequest: uRISchemeRequestFinish :: (HasCallStack, MonadIO m, IsURISchemeRequest a, IsInputStream b) => a -> b -> Int64 -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.URISchemeRequest: uRISchemeRequestFinish :: (HasCallStack, MonadIO m, IsURISchemeRequest a, IsInputStream b) => a -> b -> Int64 -> Maybe Text -> m ()
- GI.WebKit2.Objects.UserContentManager: UserContentManager :: (ManagedPtr UserContentManager) -> UserContentManager
+ GI.WebKit2.Objects.UserContentManager: UserContentManager :: ManagedPtr UserContentManager -> UserContentManager
- GI.WebKit2.Objects.UserContentManager: class GObject o => IsUserContentManager o
+ GI.WebKit2.Objects.UserContentManager: class (GObject o, IsDescendantOf UserContentManager o) => IsUserContentManager o
- GI.WebKit2.Objects.UserContentManager: genClosure_UserContentManagerScriptMessageReceived :: UserContentManagerScriptMessageReceivedCallback -> IO Closure
+ GI.WebKit2.Objects.UserContentManager: genClosure_UserContentManagerScriptMessageReceived :: MonadIO m => UserContentManagerScriptMessageReceivedCallback -> m (GClosure C_UserContentManagerScriptMessageReceivedCallback)
- GI.WebKit2.Objects.UserContentManager: type UserContentManagerScriptMessageReceivedCallback = JavascriptResult /@jsResult@/: the 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' holding the value received from the JavaScript world. -> IO ()
+ GI.WebKit2.Objects.UserContentManager: type UserContentManagerScriptMessageReceivedCallback = JavascriptResult " /@jsResult@/: the 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' holding the value received from the JavaScript world. " -> IO ()
- GI.WebKit2.Objects.UserMediaPermissionRequest: UserMediaPermissionRequest :: (ManagedPtr UserMediaPermissionRequest) -> UserMediaPermissionRequest
+ GI.WebKit2.Objects.UserMediaPermissionRequest: UserMediaPermissionRequest :: ManagedPtr UserMediaPermissionRequest -> UserMediaPermissionRequest
- GI.WebKit2.Objects.UserMediaPermissionRequest: class GObject o => IsUserMediaPermissionRequest o
+ GI.WebKit2.Objects.UserMediaPermissionRequest: class (GObject o, IsDescendantOf UserMediaPermissionRequest o) => IsUserMediaPermissionRequest o
- GI.WebKit2.Objects.WebContext: WebContext :: (ManagedPtr WebContext) -> WebContext
+ GI.WebKit2.Objects.WebContext: WebContext :: ManagedPtr WebContext -> WebContext
- GI.WebKit2.Objects.WebContext: class GObject o => IsWebContext o
+ GI.WebKit2.Objects.WebContext: class (GObject o, IsDescendantOf WebContext o) => IsWebContext o
- GI.WebKit2.Objects.WebContext: constructWebContextLocalStorageDirectory :: (IsWebContext o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebContext: constructWebContextLocalStorageDirectory :: IsWebContext o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebContext: genClosure_WebContextAutomationStarted :: WebContextAutomationStartedCallback -> IO Closure
+ GI.WebKit2.Objects.WebContext: genClosure_WebContextAutomationStarted :: MonadIO m => WebContextAutomationStartedCallback -> m (GClosure C_WebContextAutomationStartedCallback)
- GI.WebKit2.Objects.WebContext: genClosure_WebContextDownloadStarted :: WebContextDownloadStartedCallback -> IO Closure
+ GI.WebKit2.Objects.WebContext: genClosure_WebContextDownloadStarted :: MonadIO m => WebContextDownloadStartedCallback -> m (GClosure C_WebContextDownloadStartedCallback)
- GI.WebKit2.Objects.WebContext: genClosure_WebContextInitializeNotificationPermissions :: WebContextInitializeNotificationPermissionsCallback -> IO Closure
+ GI.WebKit2.Objects.WebContext: genClosure_WebContextInitializeNotificationPermissions :: MonadIO m => WebContextInitializeNotificationPermissionsCallback -> m (GClosure C_WebContextInitializeNotificationPermissionsCallback)
- GI.WebKit2.Objects.WebContext: genClosure_WebContextInitializeWebExtensions :: WebContextInitializeWebExtensionsCallback -> IO Closure
+ GI.WebKit2.Objects.WebContext: genClosure_WebContextInitializeWebExtensions :: MonadIO m => WebContextInitializeWebExtensionsCallback -> m (GClosure C_WebContextInitializeWebExtensionsCallback)
- GI.WebKit2.Objects.WebContext: type WebContextAutomationStartedCallback = AutomationSession /@session@/: the 'GI.WebKit2.Objects.AutomationSession.AutomationSession' associated with this event -> IO ()
+ GI.WebKit2.Objects.WebContext: type WebContextAutomationStartedCallback = AutomationSession " /@session@/: the 'GI.WebKit2.Objects.AutomationSession.AutomationSession' associated with this event " -> IO ()
- GI.WebKit2.Objects.WebContext: type WebContextDownloadStartedCallback = Download /@download@/: the 'GI.WebKit2.Objects.Download.Download' associated with this event -> IO ()
+ GI.WebKit2.Objects.WebContext: type WebContextDownloadStartedCallback = Download " /@download@/: the 'GI.WebKit2.Objects.Download.Download' associated with this event " -> IO ()
- GI.WebKit2.Objects.WebContext: webContextGetPlugins :: (HasCallStack, MonadIO m, IsWebContext a, IsCancellable b) => a -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebContext: webContextGetPlugins :: (HasCallStack, MonadIO m, IsWebContext a, IsCancellable b) => a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebContext: webContextSetFaviconDatabaseDirectory :: (HasCallStack, MonadIO m, IsWebContext a) => a -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.WebContext: webContextSetFaviconDatabaseDirectory :: (HasCallStack, MonadIO m, IsWebContext a) => a -> Maybe Text -> m ()
- GI.WebKit2.Objects.WebContext: webContextSetNetworkProxySettings :: (HasCallStack, MonadIO m, IsWebContext a) => a -> NetworkProxyMode -> Maybe (NetworkProxySettings) -> m ()
+ GI.WebKit2.Objects.WebContext: webContextSetNetworkProxySettings :: (HasCallStack, MonadIO m, IsWebContext a) => a -> NetworkProxyMode -> Maybe NetworkProxySettings -> m ()
- GI.WebKit2.Objects.WebContext: webContextSetPreferredLanguages :: (HasCallStack, MonadIO m, IsWebContext a) => a -> Maybe ([Text]) -> m ()
+ GI.WebKit2.Objects.WebContext: webContextSetPreferredLanguages :: (HasCallStack, MonadIO m, IsWebContext a) => a -> Maybe [Text] -> m ()
- GI.WebKit2.Objects.WebInspector: WebInspector :: (ManagedPtr WebInspector) -> WebInspector
+ GI.WebKit2.Objects.WebInspector: WebInspector :: ManagedPtr WebInspector -> WebInspector
- GI.WebKit2.Objects.WebInspector: class GObject o => IsWebInspector o
+ GI.WebKit2.Objects.WebInspector: class (GObject o, IsDescendantOf WebInspector o) => IsWebInspector o
- GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorAttach :: WebInspectorAttachCallback -> IO Closure
+ GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorAttach :: MonadIO m => WebInspectorAttachCallback -> m (GClosure C_WebInspectorAttachCallback)
- GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorBringToFront :: WebInspectorBringToFrontCallback -> IO Closure
+ GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorBringToFront :: MonadIO m => WebInspectorBringToFrontCallback -> m (GClosure C_WebInspectorBringToFrontCallback)
- GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorClosed :: WebInspectorClosedCallback -> IO Closure
+ GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorClosed :: MonadIO m => WebInspectorClosedCallback -> m (GClosure C_WebInspectorClosedCallback)
- GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorDetach :: WebInspectorDetachCallback -> IO Closure
+ GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorDetach :: MonadIO m => WebInspectorDetachCallback -> m (GClosure C_WebInspectorDetachCallback)
- GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorOpenWindow :: WebInspectorOpenWindowCallback -> IO Closure
+ GI.WebKit2.Objects.WebInspector: genClosure_WebInspectorOpenWindow :: MonadIO m => WebInspectorOpenWindowCallback -> m (GClosure C_WebInspectorOpenWindowCallback)
- GI.WebKit2.Objects.WebInspector: type WebInspectorAttachCallback = IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebInspector: type WebInspectorAttachCallback = IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebInspector: type WebInspectorBringToFrontCallback = IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebInspector: type WebInspectorBringToFrontCallback = IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebInspector: type WebInspectorDetachCallback = IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebInspector: type WebInspectorDetachCallback = IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebInspector: type WebInspectorOpenWindowCallback = IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebInspector: type WebInspectorOpenWindowCallback = IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebResource: WebResource :: (ManagedPtr WebResource) -> WebResource
+ GI.WebKit2.Objects.WebResource: WebResource :: ManagedPtr WebResource -> WebResource
- GI.WebKit2.Objects.WebResource: class GObject o => IsWebResource o
+ GI.WebKit2.Objects.WebResource: class (GObject o, IsDescendantOf WebResource o) => IsWebResource o
- GI.WebKit2.Objects.WebResource: genClosure_WebResourceFailed :: WebResourceFailedCallback -> IO Closure
+ GI.WebKit2.Objects.WebResource: genClosure_WebResourceFailed :: MonadIO m => WebResourceFailedCallback -> m (GClosure C_WebResourceFailedCallback)
- GI.WebKit2.Objects.WebResource: genClosure_WebResourceFailedWithTlsErrors :: WebResourceFailedWithTlsErrorsCallback -> IO Closure
+ GI.WebKit2.Objects.WebResource: genClosure_WebResourceFailedWithTlsErrors :: MonadIO m => WebResourceFailedWithTlsErrorsCallback -> m (GClosure C_WebResourceFailedWithTlsErrorsCallback)
- GI.WebKit2.Objects.WebResource: genClosure_WebResourceFinished :: WebResourceFinishedCallback -> IO Closure
+ GI.WebKit2.Objects.WebResource: genClosure_WebResourceFinished :: MonadIO m => WebResourceFinishedCallback -> m (GClosure C_WebResourceFinishedCallback)
- GI.WebKit2.Objects.WebResource: genClosure_WebResourceReceivedData :: WebResourceReceivedDataCallback -> IO Closure
+ GI.WebKit2.Objects.WebResource: genClosure_WebResourceReceivedData :: MonadIO m => WebResourceReceivedDataCallback -> m (GClosure C_WebResourceReceivedDataCallback)
- GI.WebKit2.Objects.WebResource: genClosure_WebResourceSentRequest :: WebResourceSentRequestCallback -> IO Closure
+ GI.WebKit2.Objects.WebResource: genClosure_WebResourceSentRequest :: MonadIO m => WebResourceSentRequestCallback -> m (GClosure C_WebResourceSentRequestCallback)
- GI.WebKit2.Objects.WebResource: type WebResourceFailedCallback = GError /@error@/: the 'GError' that was triggered -> IO ()
+ GI.WebKit2.Objects.WebResource: type WebResourceFailedCallback = GError " /@error@/: the 'GError' that was triggered " -> IO ()
- GI.WebKit2.Objects.WebResource: type WebResourceFailedWithTlsErrorsCallback = TlsCertificate /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -> [TlsCertificateFlags] /@errors@/: a 'GI.Gio.Flags.TlsCertificateFlags' with the verification status of /@certificate@/ -> IO ()
+ GI.WebKit2.Objects.WebResource: type WebResourceFailedWithTlsErrorsCallback = TlsCertificate " /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' " -> [TlsCertificateFlags] " /@errors@/: a 'GI.Gio.Flags.TlsCertificateFlags' with the verification status of /@certificate@/ " -> IO ()
- GI.WebKit2.Objects.WebResource: type WebResourceReceivedDataCallback = Word64 /@dataLength@/: the length of data received in bytes -> IO ()
+ GI.WebKit2.Objects.WebResource: type WebResourceReceivedDataCallback = Word64 " /@dataLength@/: the length of data received in bytes " -> IO ()
- GI.WebKit2.Objects.WebResource: type WebResourceSentRequestCallback = URIRequest /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -> URIResponse /@redirectedResponse@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse', or 'Nothing' -> IO ()
+ GI.WebKit2.Objects.WebResource: type WebResourceSentRequestCallback = URIRequest " /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' " -> URIResponse " /@redirectedResponse@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse', or 'Nothing' " -> IO ()
- GI.WebKit2.Objects.WebResource: webResourceGetData :: (HasCallStack, MonadIO m, IsWebResource a, IsCancellable b) => a -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebResource: webResourceGetData :: (HasCallStack, MonadIO m, IsWebResource a, IsCancellable b) => a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebView: WebView :: (ManagedPtr WebView) -> WebView
+ GI.WebKit2.Objects.WebView: WebView :: ManagedPtr WebView -> WebView
- GI.WebKit2.Objects.WebView: class GObject o => IsWebView o
+ GI.WebKit2.Objects.WebView: class (GObject o, IsDescendantOf WebView o) => IsWebView o
- GI.WebKit2.Objects.WebView: constructWebViewEditable :: (IsWebView o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebView: constructWebViewEditable :: IsWebView o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebView: constructWebViewIsControlledByAutomation :: (IsWebView o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebView: constructWebViewIsControlledByAutomation :: IsWebView o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebView: constructWebViewIsEphemeral :: (IsWebView o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebView: constructWebViewIsEphemeral :: IsWebView o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebView: constructWebViewZoomLevel :: (IsWebView o) => Double -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebView: constructWebViewZoomLevel :: IsWebView o => Double -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebView: genClosure_WebViewAuthenticate :: WebViewAuthenticateCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewAuthenticate :: MonadIO m => WebViewAuthenticateCallback -> m (GClosure C_WebViewAuthenticateCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewClose :: WebViewCloseCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewClose :: MonadIO m => WebViewCloseCallback -> m (GClosure C_WebViewCloseCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewContextMenu :: WebViewContextMenuCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewContextMenu :: MonadIO m => WebViewContextMenuCallback -> m (GClosure C_WebViewContextMenuCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewContextMenuDismissed :: WebViewContextMenuDismissedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewContextMenuDismissed :: MonadIO m => WebViewContextMenuDismissedCallback -> m (GClosure C_WebViewContextMenuDismissedCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewCreate :: WebViewCreateCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewCreate :: MonadIO m => WebViewCreateCallback -> m (GClosure C_WebViewCreateCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewDecidePolicy :: WebViewDecidePolicyCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewDecidePolicy :: MonadIO m => WebViewDecidePolicyCallback -> m (GClosure C_WebViewDecidePolicyCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewEnterFullscreen :: WebViewEnterFullscreenCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewEnterFullscreen :: MonadIO m => WebViewEnterFullscreenCallback -> m (GClosure C_WebViewEnterFullscreenCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewInsecureContentDetected :: WebViewInsecureContentDetectedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewInsecureContentDetected :: MonadIO m => WebViewInsecureContentDetectedCallback -> m (GClosure C_WebViewInsecureContentDetectedCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewLeaveFullscreen :: WebViewLeaveFullscreenCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewLeaveFullscreen :: MonadIO m => WebViewLeaveFullscreenCallback -> m (GClosure C_WebViewLeaveFullscreenCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewLoadChanged :: WebViewLoadChangedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewLoadChanged :: MonadIO m => WebViewLoadChangedCallback -> m (GClosure C_WebViewLoadChangedCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewLoadFailed :: WebViewLoadFailedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewLoadFailed :: MonadIO m => WebViewLoadFailedCallback -> m (GClosure C_WebViewLoadFailedCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewLoadFailedWithTlsErrors :: WebViewLoadFailedWithTlsErrorsCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewLoadFailedWithTlsErrors :: MonadIO m => WebViewLoadFailedWithTlsErrorsCallback -> m (GClosure C_WebViewLoadFailedWithTlsErrorsCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewMouseTargetChanged :: WebViewMouseTargetChangedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewMouseTargetChanged :: MonadIO m => WebViewMouseTargetChangedCallback -> m (GClosure C_WebViewMouseTargetChangedCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewPermissionRequest :: WebViewPermissionRequestCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewPermissionRequest :: MonadIO m => WebViewPermissionRequestCallback -> m (GClosure C_WebViewPermissionRequestCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewPrint :: WebViewPrintCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewPrint :: MonadIO m => WebViewPrintCallback -> m (GClosure C_WebViewPrintCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewReadyToShow :: WebViewReadyToShowCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewReadyToShow :: MonadIO m => WebViewReadyToShowCallback -> m (GClosure C_WebViewReadyToShowCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewResourceLoadStarted :: WebViewResourceLoadStartedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewResourceLoadStarted :: MonadIO m => WebViewResourceLoadStartedCallback -> m (GClosure C_WebViewResourceLoadStartedCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewRunAsModal :: WebViewRunAsModalCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewRunAsModal :: MonadIO m => WebViewRunAsModalCallback -> m (GClosure C_WebViewRunAsModalCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewRunColorChooser :: WebViewRunColorChooserCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewRunColorChooser :: MonadIO m => WebViewRunColorChooserCallback -> m (GClosure C_WebViewRunColorChooserCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewRunFileChooser :: WebViewRunFileChooserCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewRunFileChooser :: MonadIO m => WebViewRunFileChooserCallback -> m (GClosure C_WebViewRunFileChooserCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewScriptDialog :: WebViewScriptDialogCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewScriptDialog :: MonadIO m => WebViewScriptDialogCallback -> m (GClosure C_WebViewScriptDialogCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewShowNotification :: WebViewShowNotificationCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewShowNotification :: MonadIO m => WebViewShowNotificationCallback -> m (GClosure C_WebViewShowNotificationCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewShowOptionMenu :: WebViewShowOptionMenuCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewShowOptionMenu :: MonadIO m => WebViewShowOptionMenuCallback -> m (GClosure C_WebViewShowOptionMenuCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewSubmitForm :: WebViewSubmitFormCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewSubmitForm :: MonadIO m => WebViewSubmitFormCallback -> m (GClosure C_WebViewSubmitFormCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewWebProcessCrashed :: WebViewWebProcessCrashedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewWebProcessCrashed :: MonadIO m => WebViewWebProcessCrashedCallback -> m (GClosure C_WebViewWebProcessCrashedCallback)
- GI.WebKit2.Objects.WebView: genClosure_WebViewWebProcessTerminated :: WebViewWebProcessTerminatedCallback -> IO Closure
+ GI.WebKit2.Objects.WebView: genClosure_WebViewWebProcessTerminated :: MonadIO m => WebViewWebProcessTerminatedCallback -> m (GClosure C_WebViewWebProcessTerminatedCallback)
- GI.WebKit2.Objects.WebView: type WebViewAuthenticateCallback = AuthenticationRequest /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewAuthenticateCallback = AuthenticationRequest " /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewContextMenuCallback = ContextMenu /@contextMenu@/: the proposed 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -> Event /@event@/: the 'GI.Gdk.Unions.Event.Event' that triggered the context menu -> HitTestResult /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewContextMenuCallback = ContextMenu " /@contextMenu@/: the proposed 'GI.WebKit2.Objects.ContextMenu.ContextMenu' " -> Event " /@event@/: the 'GI.Gdk.Unions.Event.Event' that triggered the context menu " -> HitTestResult " /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewCreateCallback = NavigationAction /@navigationAction@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -> IO Widget __Returns:__ a newly allocated 'GI.WebKit2.Objects.WebView.WebView' widget or 'Nothing' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewCreateCallback = NavigationAction " /@navigationAction@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' " -> IO Widget " __Returns:__ a newly allocated 'GI.WebKit2.Objects.WebView.WebView' widget or 'Nothing' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewDecidePolicyCallback = PolicyDecision /@decision@/: the 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' -> PolicyDecisionType /@decisionType@/: a 'GI.WebKit2.Enums.PolicyDecisionType' denoting the type of /@decision@/ -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewDecidePolicyCallback = PolicyDecision " /@decision@/: the 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' " -> PolicyDecisionType " /@decisionType@/: a 'GI.WebKit2.Enums.PolicyDecisionType' denoting the type of /@decision@/ " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewEnterFullscreenCallback = IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to continue emission of the event.
+ GI.WebKit2.Objects.WebView: type WebViewEnterFullscreenCallback = IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to continue emission of the event. "
- GI.WebKit2.Objects.WebView: type WebViewInsecureContentDetectedCallback = InsecureContentEvent /@event@/: the 'GI.WebKit2.Enums.InsecureContentEvent' -> IO ()
+ GI.WebKit2.Objects.WebView: type WebViewInsecureContentDetectedCallback = InsecureContentEvent " /@event@/: the 'GI.WebKit2.Enums.InsecureContentEvent' " -> IO ()
- GI.WebKit2.Objects.WebView: type WebViewLeaveFullscreenCallback = IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to continue emission of the event.
+ GI.WebKit2.Objects.WebView: type WebViewLeaveFullscreenCallback = IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to continue emission of the event. "
- GI.WebKit2.Objects.WebView: type WebViewLoadChangedCallback = LoadEvent /@loadEvent@/: the 'GI.WebKit2.Enums.LoadEvent' -> IO ()
+ GI.WebKit2.Objects.WebView: type WebViewLoadChangedCallback = LoadEvent " /@loadEvent@/: the 'GI.WebKit2.Enums.LoadEvent' " -> IO ()
- GI.WebKit2.Objects.WebView: type WebViewLoadFailedCallback = LoadEvent /@loadEvent@/: the 'GI.WebKit2.Enums.LoadEvent' of the load operation -> Text /@failingUri@/: the URI that failed to load -> GError /@error@/: the 'GError' that was triggered -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewLoadFailedCallback = LoadEvent " /@loadEvent@/: the 'GI.WebKit2.Enums.LoadEvent' of the load operation " -> Text " /@failingUri@/: the URI that failed to load " -> GError " /@error@/: the 'GError' that was triggered " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewLoadFailedWithTlsErrorsCallback = Text /@failingUri@/: the URI that failed to load -> TlsCertificate /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -> [TlsCertificateFlags] /@errors@/: a 'GI.Gio.Flags.TlsCertificateFlags' with the verification status of /@certificate@/ -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewLoadFailedWithTlsErrorsCallback = Text " /@failingUri@/: the URI that failed to load " -> TlsCertificate " /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' " -> [TlsCertificateFlags] " /@errors@/: a 'GI.Gio.Flags.TlsCertificateFlags' with the verification status of /@certificate@/ " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewMouseTargetChangedCallback = HitTestResult /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -> Word32 /@modifiers@/: a bitmask of 'GI.Gdk.Flags.ModifierType' -> IO ()
+ GI.WebKit2.Objects.WebView: type WebViewMouseTargetChangedCallback = HitTestResult " /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' " -> Word32 " /@modifiers@/: a bitmask of 'GI.Gdk.Flags.ModifierType' " -> IO ()
- GI.WebKit2.Objects.WebView: type WebViewPermissionRequestCallback = PermissionRequest /@request@/: the 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewPermissionRequestCallback = PermissionRequest " /@request@/: the 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewPrintCallback = PrintOperation /@printOperation@/: the 'GI.WebKit2.Objects.PrintOperation.PrintOperation' that will handle the print request -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewPrintCallback = PrintOperation " /@printOperation@/: the 'GI.WebKit2.Objects.PrintOperation.PrintOperation' that will handle the print request " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewResourceLoadStartedCallback = WebResource /@resource@/: a 'GI.WebKit2.Objects.WebResource.WebResource' -> URIRequest /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -> IO ()
+ GI.WebKit2.Objects.WebView: type WebViewResourceLoadStartedCallback = WebResource " /@resource@/: a 'GI.WebKit2.Objects.WebResource.WebResource' " -> URIRequest " /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' " -> IO ()
- GI.WebKit2.Objects.WebView: type WebViewRunColorChooserCallback = ColorChooserRequest /@request@/: a 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewRunColorChooserCallback = ColorChooserRequest " /@request@/: a 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewRunFileChooserCallback = FileChooserRequest /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewRunFileChooserCallback = FileChooserRequest " /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewScriptDialogCallback = ScriptDialog /@dialog@/: the 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' to show -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewScriptDialogCallback = ScriptDialog " /@dialog@/: the 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' to show " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewShowNotificationCallback = Notification /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked. 'False' otherwise.
+ GI.WebKit2.Objects.WebView: type WebViewShowNotificationCallback = Notification " /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked. 'False' otherwise. "
- GI.WebKit2.Objects.WebView: type WebViewShowOptionMenuCallback = OptionMenu /@menu@/: the 'GI.WebKit2.Objects.OptionMenu.OptionMenu' -> Event /@event@/: the 'GI.Gdk.Unions.Event.Event' that triggered the menu, or 'Nothing' -> Rectangle /@rectangle@/: the option element area -> IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewShowOptionMenuCallback = OptionMenu " /@menu@/: the 'GI.WebKit2.Objects.OptionMenu.OptionMenu' " -> Event " /@event@/: the 'GI.Gdk.Unions.Event.Event' that triggered the menu, or 'Nothing' " -> Rectangle " /@rectangle@/: the option element area " -> IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewSubmitFormCallback = FormSubmissionRequest /@request@/: a 'GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest' -> IO ()
+ GI.WebKit2.Objects.WebView: type WebViewSubmitFormCallback = FormSubmissionRequest " /@request@/: a 'GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest' " -> IO ()
- GI.WebKit2.Objects.WebView: type WebViewWebProcessCrashedCallback = IO Bool __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further.
+ GI.WebKit2.Objects.WebView: type WebViewWebProcessCrashedCallback = IO Bool " __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. "
- GI.WebKit2.Objects.WebView: type WebViewWebProcessTerminatedCallback = WebProcessTerminationReason /@reason@/: the a 'GI.WebKit2.Enums.WebProcessTerminationReason' -> IO ()
+ GI.WebKit2.Objects.WebView: type WebViewWebProcessTerminatedCallback = WebProcessTerminationReason " /@reason@/: the a 'GI.WebKit2.Enums.WebProcessTerminationReason' " -> IO ()
- GI.WebKit2.Objects.WebView: webViewCanExecuteEditingCommand :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebView: webViewCanExecuteEditingCommand :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebView: webViewGetBackgroundColor :: (HasCallStack, MonadIO m, IsWebView a) => a -> m (RGBA)
+ GI.WebKit2.Objects.WebView: webViewGetBackgroundColor :: (HasCallStack, MonadIO m, IsWebView a) => a -> m RGBA
- GI.WebKit2.Objects.WebView: webViewGetSnapshot :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> SnapshotRegion -> [SnapshotOptions] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebView: webViewGetSnapshot :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> SnapshotRegion -> [SnapshotOptions] -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebView: webViewGetTlsInfo :: (HasCallStack, MonadIO m, IsWebView a) => a -> m ((Bool, TlsCertificate, [TlsCertificateFlags]))
+ GI.WebKit2.Objects.WebView: webViewGetTlsInfo :: (HasCallStack, MonadIO m, IsWebView a) => a -> m (Bool, TlsCertificate, [TlsCertificateFlags])
- GI.WebKit2.Objects.WebView: webViewLoadAlternateHtml :: (HasCallStack, MonadIO m, IsWebView a) => a -> Text -> Text -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.WebView: webViewLoadAlternateHtml :: (HasCallStack, MonadIO m, IsWebView a) => a -> Text -> Text -> Maybe Text -> m ()
- GI.WebKit2.Objects.WebView: webViewLoadBytes :: (HasCallStack, MonadIO m, IsWebView a) => a -> Bytes -> Maybe (Text) -> Maybe (Text) -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.WebView: webViewLoadBytes :: (HasCallStack, MonadIO m, IsWebView a) => a -> Bytes -> Maybe Text -> Maybe Text -> Maybe Text -> m ()
- GI.WebKit2.Objects.WebView: webViewLoadHtml :: (HasCallStack, MonadIO m, IsWebView a) => a -> Text -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.WebView: webViewLoadHtml :: (HasCallStack, MonadIO m, IsWebView a) => a -> Text -> Maybe Text -> m ()
- GI.WebKit2.Objects.WebView: webViewRunJavascript :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebView: webViewRunJavascript :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebView: webViewRunJavascriptFromGresource :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebView: webViewRunJavascriptFromGresource :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebView: webViewSave :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> SaveMode -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebView: webViewSave :: (HasCallStack, MonadIO m, IsWebView a, IsCancellable b) => a -> SaveMode -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebView: webViewSaveToFile :: (HasCallStack, MonadIO m, IsWebView a, IsFile b, IsCancellable c) => a -> b -> SaveMode -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebView: webViewSaveToFile :: (HasCallStack, MonadIO m, IsWebView a, IsFile b, IsCancellable c) => a -> b -> SaveMode -> Maybe c -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebView: webViewSetCustomCharset :: (HasCallStack, MonadIO m, IsWebView a) => a -> Maybe (Text) -> m ()
+ GI.WebKit2.Objects.WebView: webViewSetCustomCharset :: (HasCallStack, MonadIO m, IsWebView a) => a -> Maybe Text -> m ()
- GI.WebKit2.Objects.WebViewBase: WebViewBase :: (ManagedPtr WebViewBase) -> WebViewBase
+ GI.WebKit2.Objects.WebViewBase: WebViewBase :: ManagedPtr WebViewBase -> WebViewBase
- GI.WebKit2.Objects.WebViewBase: class GObject o => IsWebViewBase o
+ GI.WebKit2.Objects.WebViewBase: class (GObject o, IsDescendantOf WebViewBase o) => IsWebViewBase o
- GI.WebKit2.Objects.WebsiteDataManager: WebsiteDataManager :: (ManagedPtr WebsiteDataManager) -> WebsiteDataManager
+ GI.WebKit2.Objects.WebsiteDataManager: WebsiteDataManager :: ManagedPtr WebsiteDataManager -> WebsiteDataManager
- GI.WebKit2.Objects.WebsiteDataManager: class GObject o => IsWebsiteDataManager o
+ GI.WebKit2.Objects.WebsiteDataManager: class (GObject o, IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerBaseCacheDirectory :: (IsWebsiteDataManager o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerBaseCacheDirectory :: IsWebsiteDataManager o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerBaseDataDirectory :: (IsWebsiteDataManager o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerBaseDataDirectory :: IsWebsiteDataManager o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerDiskCacheDirectory :: (IsWebsiteDataManager o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerDiskCacheDirectory :: IsWebsiteDataManager o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerIndexeddbDirectory :: (IsWebsiteDataManager o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerIndexeddbDirectory :: IsWebsiteDataManager o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerIsEphemeral :: (IsWebsiteDataManager o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerIsEphemeral :: IsWebsiteDataManager o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerLocalStorageDirectory :: (IsWebsiteDataManager o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerLocalStorageDirectory :: IsWebsiteDataManager o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerOfflineApplicationCacheDirectory :: (IsWebsiteDataManager o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerOfflineApplicationCacheDirectory :: IsWebsiteDataManager o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerWebsqlDirectory :: (IsWebsiteDataManager o) => Text -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WebsiteDataManager: constructWebsiteDataManagerWebsqlDirectory :: IsWebsiteDataManager o => Text -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WebsiteDataManager: websiteDataManagerClear :: (HasCallStack, MonadIO m, IsWebsiteDataManager a, IsCancellable b) => a -> [WebsiteDataTypes] -> Int64 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebsiteDataManager: websiteDataManagerClear :: (HasCallStack, MonadIO m, IsWebsiteDataManager a, IsCancellable b) => a -> [WebsiteDataTypes] -> Int64 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebsiteDataManager: websiteDataManagerFetch :: (HasCallStack, MonadIO m, IsWebsiteDataManager a, IsCancellable b) => a -> [WebsiteDataTypes] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebsiteDataManager: websiteDataManagerFetch :: (HasCallStack, MonadIO m, IsWebsiteDataManager a, IsCancellable b) => a -> [WebsiteDataTypes] -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WebsiteDataManager: websiteDataManagerRemove :: (HasCallStack, MonadIO m, IsWebsiteDataManager a, IsCancellable b) => a -> [WebsiteDataTypes] -> [WebsiteData] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()
+ GI.WebKit2.Objects.WebsiteDataManager: websiteDataManagerRemove :: (HasCallStack, MonadIO m, IsWebsiteDataManager a, IsCancellable b) => a -> [WebsiteDataTypes] -> [WebsiteData] -> Maybe b -> Maybe AsyncReadyCallback -> m ()
- GI.WebKit2.Objects.WindowProperties: WindowProperties :: (ManagedPtr WindowProperties) -> WindowProperties
+ GI.WebKit2.Objects.WindowProperties: WindowProperties :: ManagedPtr WindowProperties -> WindowProperties
- GI.WebKit2.Objects.WindowProperties: class GObject o => IsWindowProperties o
+ GI.WebKit2.Objects.WindowProperties: class (GObject o, IsDescendantOf WindowProperties o) => IsWindowProperties o
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesFullscreen :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesFullscreen :: IsWindowProperties o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesGeometry :: (IsWindowProperties o) => Rectangle -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesGeometry :: IsWindowProperties o => Rectangle -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesLocationbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesLocationbarVisible :: IsWindowProperties o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesMenubarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesMenubarVisible :: IsWindowProperties o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesResizable :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesResizable :: IsWindowProperties o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesScrollbarsVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesScrollbarsVisible :: IsWindowProperties o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesStatusbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesStatusbarVisible :: IsWindowProperties o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesToolbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
+ GI.WebKit2.Objects.WindowProperties: constructWindowPropertiesToolbarVisible :: IsWindowProperties o => Bool -> IO (GValueConstruct o)
- GI.WebKit2.Objects.WindowProperties: windowPropertiesGetGeometry :: (HasCallStack, MonadIO m, IsWindowProperties a) => a -> m (Rectangle)
+ GI.WebKit2.Objects.WindowProperties: windowPropertiesGetGeometry :: (HasCallStack, MonadIO m, IsWindowProperties a) => a -> m Rectangle
- GI.WebKit2.Structs.ApplicationInfo: ApplicationInfo :: (ManagedPtr ApplicationInfo) -> ApplicationInfo
+ GI.WebKit2.Structs.ApplicationInfo: ApplicationInfo :: ManagedPtr ApplicationInfo -> ApplicationInfo
- GI.WebKit2.Structs.ApplicationInfo: applicationInfoGetVersion :: (HasCallStack, MonadIO m) => ApplicationInfo -> m ((Word64, Word64, Word64))
+ GI.WebKit2.Structs.ApplicationInfo: applicationInfoGetVersion :: (HasCallStack, MonadIO m) => ApplicationInfo -> m (Word64, Word64, Word64)
- GI.WebKit2.Structs.Credential: Credential :: (ManagedPtr Credential) -> Credential
+ GI.WebKit2.Structs.Credential: Credential :: ManagedPtr Credential -> Credential
- GI.WebKit2.Structs.JavascriptResult: JavascriptResult :: (ManagedPtr JavascriptResult) -> JavascriptResult
+ GI.WebKit2.Structs.JavascriptResult: JavascriptResult :: ManagedPtr JavascriptResult -> JavascriptResult
- GI.WebKit2.Structs.MimeInfo: MimeInfo :: (ManagedPtr MimeInfo) -> MimeInfo
+ GI.WebKit2.Structs.MimeInfo: MimeInfo :: ManagedPtr MimeInfo -> MimeInfo
- GI.WebKit2.Structs.NavigationAction: NavigationAction :: (ManagedPtr NavigationAction) -> NavigationAction
+ GI.WebKit2.Structs.NavigationAction: NavigationAction :: ManagedPtr NavigationAction -> NavigationAction
- GI.WebKit2.Structs.NetworkProxySettings: NetworkProxySettings :: (ManagedPtr NetworkProxySettings) -> NetworkProxySettings
+ GI.WebKit2.Structs.NetworkProxySettings: NetworkProxySettings :: ManagedPtr NetworkProxySettings -> NetworkProxySettings
- GI.WebKit2.Structs.NetworkProxySettings: networkProxySettingsNew :: (HasCallStack, MonadIO m) => Maybe (Text) -> Maybe ([Text]) -> m NetworkProxySettings
+ GI.WebKit2.Structs.NetworkProxySettings: networkProxySettingsNew :: (HasCallStack, MonadIO m) => Maybe Text -> Maybe [Text] -> m NetworkProxySettings
- GI.WebKit2.Structs.OptionMenuItem: OptionMenuItem :: (ManagedPtr OptionMenuItem) -> OptionMenuItem
+ GI.WebKit2.Structs.OptionMenuItem: OptionMenuItem :: ManagedPtr OptionMenuItem -> OptionMenuItem
- GI.WebKit2.Structs.ScriptDialog: ScriptDialog :: (ManagedPtr ScriptDialog) -> ScriptDialog
+ GI.WebKit2.Structs.ScriptDialog: ScriptDialog :: ManagedPtr ScriptDialog -> ScriptDialog
- GI.WebKit2.Structs.SecurityOrigin: SecurityOrigin :: (ManagedPtr SecurityOrigin) -> SecurityOrigin
+ GI.WebKit2.Structs.SecurityOrigin: SecurityOrigin :: ManagedPtr SecurityOrigin -> SecurityOrigin
- GI.WebKit2.Structs.UserScript: UserScript :: (ManagedPtr UserScript) -> UserScript
+ GI.WebKit2.Structs.UserScript: UserScript :: ManagedPtr UserScript -> UserScript
- GI.WebKit2.Structs.UserScript: userScriptNew :: (HasCallStack, MonadIO m) => Text -> UserContentInjectedFrames -> UserScriptInjectionTime -> Maybe ([Text]) -> Maybe ([Text]) -> m UserScript
+ GI.WebKit2.Structs.UserScript: userScriptNew :: (HasCallStack, MonadIO m) => Text -> UserContentInjectedFrames -> UserScriptInjectionTime -> Maybe [Text] -> Maybe [Text] -> m UserScript
- GI.WebKit2.Structs.UserStyleSheet: UserStyleSheet :: (ManagedPtr UserStyleSheet) -> UserStyleSheet
+ GI.WebKit2.Structs.UserStyleSheet: UserStyleSheet :: ManagedPtr UserStyleSheet -> UserStyleSheet
- GI.WebKit2.Structs.UserStyleSheet: userStyleSheetNew :: (HasCallStack, MonadIO m) => Text -> UserContentInjectedFrames -> UserStyleLevel -> Maybe ([Text]) -> Maybe ([Text]) -> m UserStyleSheet
+ GI.WebKit2.Structs.UserStyleSheet: userStyleSheetNew :: (HasCallStack, MonadIO m) => Text -> UserContentInjectedFrames -> UserStyleLevel -> Maybe [Text] -> Maybe [Text] -> m UserStyleSheet
- GI.WebKit2.Structs.WebViewSessionState: WebViewSessionState :: (ManagedPtr WebViewSessionState) -> WebViewSessionState
+ GI.WebKit2.Structs.WebViewSessionState: WebViewSessionState :: ManagedPtr WebViewSessionState -> WebViewSessionState
- GI.WebKit2.Structs.WebsiteData: WebsiteData :: (ManagedPtr WebsiteData) -> WebsiteData
+ GI.WebKit2.Structs.WebsiteData: WebsiteData :: ManagedPtr WebsiteData -> WebsiteData

Files

ChangeLog.md view
@@ -1,3 +1,11 @@+### 4.0.21+++ Update to haskell-gi(-base) 0.22++### 4.0.20+++ Update stack version to 12.10+ ### 4.0.19  + Add multiple missing nullable annotations.
+ GI/WebKit2.hs view
@@ -0,0 +1,60 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2+    (     module GI.WebKit2.Callbacks             ,+    module GI.WebKit2.Constants             ,+    module GI.WebKit2.Enums                 ,+    module GI.WebKit2.Flags                 ,+    module GI.WebKit2.Functions             ,+    module GI.WebKit2.Interfaces            ,+    module GI.WebKit2.Objects               ,+    module GI.WebKit2.Structs               ,++++    module Data.GI.Base                     ,+++    ) where++import GI.WebKit2.Callbacks+import GI.WebKit2.Constants+import GI.WebKit2.Enums+import GI.WebKit2.Flags+import GI.WebKit2.Functions+import GI.WebKit2.Interfaces+import GI.WebKit2.Objects+import GI.WebKit2.Structs++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 Data.GI.Base+
+ GI/WebKit2/Callbacks.hs view
@@ -0,0 +1,142 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Callbacks+    ( ++ -- * Signals+-- ** URISchemeRequestCallback #signal:URISchemeRequestCallback#++    C_URISchemeRequestCallback              ,+    URISchemeRequestCallback                ,+    URISchemeRequestCallback_WithClosures   ,+    drop_closures_URISchemeRequestCallback  ,+    dynamic_URISchemeRequestCallback        ,+    genClosure_URISchemeRequestCallback     ,+    mk_URISchemeRequestCallback             ,+    noURISchemeRequestCallback              ,+    noURISchemeRequestCallback_WithClosures ,+    wrap_URISchemeRequestCallback           ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Objects.URISchemeRequest as WebKit2.URISchemeRequest++-- callback URISchemeRequestCallback+--          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Type definition for a function that will be called back when an URI request is\nmade for a user registered URI scheme.", sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_URISchemeRequestCallback =+    Ptr WebKit2.URISchemeRequest.URISchemeRequest ->+    Ptr () ->+    IO ()++-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_URISchemeRequestCallback :: FunPtr C_URISchemeRequestCallback -> C_URISchemeRequestCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_URISchemeRequestCallback ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.URISchemeRequest.IsURISchemeRequest a) =>+    FunPtr C_URISchemeRequestCallback+    -> a+    {- ^ /@request@/: the 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> Ptr ()+    {- ^ /@userData@/: user data passed to the callback -}+    -> m ()+dynamic_URISchemeRequestCallback __funPtr request userData = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    (__dynamic_C_URISchemeRequestCallback __funPtr) request' userData+    touchManagedPtr request+    return ()++-- | Generate a function pointer callable from C code, from a `C_URISchemeRequestCallback`.+foreign import ccall "wrapper"+    mk_URISchemeRequestCallback :: C_URISchemeRequestCallback -> IO (FunPtr C_URISchemeRequestCallback)++{- |+Type definition for a function that will be called back when an URI request is+made for a user registered URI scheme.+-}+type URISchemeRequestCallback =+    WebKit2.URISchemeRequest.URISchemeRequest+    {- ^ /@request@/: the 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `URISchemeRequestCallback`@.+noURISchemeRequestCallback :: Maybe URISchemeRequestCallback+noURISchemeRequestCallback = Nothing++{- |+Type definition for a function that will be called back when an URI request is+made for a user registered URI scheme.+-}+type URISchemeRequestCallback_WithClosures =+    WebKit2.URISchemeRequest.URISchemeRequest+    {- ^ /@request@/: the 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> Ptr ()+    {- ^ /@userData@/: user data passed to the callback -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `URISchemeRequestCallback_WithClosures`@.+noURISchemeRequestCallback_WithClosures :: Maybe URISchemeRequestCallback_WithClosures+noURISchemeRequestCallback_WithClosures = Nothing++-- | A simple wrapper that ignores the closure arguments.+drop_closures_URISchemeRequestCallback :: URISchemeRequestCallback -> URISchemeRequestCallback_WithClosures+drop_closures_URISchemeRequestCallback _f request _ = _f request++-- | Wrap the callback into a `GClosure`.+genClosure_URISchemeRequestCallback :: MonadIO m => URISchemeRequestCallback -> m (GClosure C_URISchemeRequestCallback)+genClosure_URISchemeRequestCallback cb = liftIO $ do+    let cb' = drop_closures_URISchemeRequestCallback cb+    let cb'' = wrap_URISchemeRequestCallback Nothing cb'+    mk_URISchemeRequestCallback cb'' >>= B.GClosure.newGClosure+++-- | Wrap a `URISchemeRequestCallback` into a `C_URISchemeRequestCallback`.+wrap_URISchemeRequestCallback ::+    Maybe (Ptr (FunPtr C_URISchemeRequestCallback)) ->+    URISchemeRequestCallback_WithClosures ->+    C_URISchemeRequestCallback+wrap_URISchemeRequestCallback funptrptr _cb request userData = do+    request' <- (newObject WebKit2.URISchemeRequest.URISchemeRequest) request+    _cb  request' userData+    maybeReleaseFunPtr funptrptr+++
+ GI/WebKit2/Constants.hs view
@@ -0,0 +1,148 @@+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Constants+    ( +    pattern MINOR_VERSION                   ,+    pattern MICRO_VERSION                   ,+    pattern MAJOR_VERSION                   ,+    pattern EDITING_COMMAND_UNDO            ,+    pattern EDITING_COMMAND_SELECT_ALL      ,+    pattern EDITING_COMMAND_REDO            ,+    pattern EDITING_COMMAND_PASTE           ,+    pattern EDITING_COMMAND_INSERT_IMAGE    ,+    pattern EDITING_COMMAND_CUT             ,+    pattern EDITING_COMMAND_CREATE_LINK     ,+    pattern EDITING_COMMAND_COPY            ,++    ) 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+++{- |+Like 'GI.WebKit2.Functions.getMinorVersion', but from the headers used at+application compile time, rather than from the library linked+against at application run time.+-}+pattern MINOR_VERSION = 24 :: Int32++{- |+Like 'GI.WebKit2.Functions.getMicroVersion', but from the headers used at+application compile time, rather than from the library linked+against at application run time.+-}+pattern MICRO_VERSION = 2 :: Int32++{- |+Like 'GI.WebKit2.Functions.getMajorVersion', but from the headers used at+application compile time, rather than from the library linked+against at application run time.+-}+pattern MAJOR_VERSION = 2 :: Int32++{- |+The undo command. Undoes the last editing command in a 'GI.WebKit2.Objects.WebView.WebView'.+You can check whether it\'s possible to execute the command with+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand'. It\'s only possible+to undo a command after a previously executed editing operation.+-}+pattern EDITING_COMMAND_UNDO = "Undo" :: T.Text++{- |+The select all command. Selects all the content of the current text field in+a 'GI.WebKit2.Objects.WebView.WebView'.+It is always possible to select all text, no matter whether the+'GI.WebKit2.Objects.WebView.WebView' content is editable or not. You can still check it+with 'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand'.+-}+pattern EDITING_COMMAND_SELECT_ALL = "SelectAll" :: T.Text++{- |+The redo command. Redoes a previously undone editing command in+a 'GI.WebKit2.Objects.WebView.WebView'.+You can check whether it\'s possible to execute the command with+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand'. It\'s only possible+to redo a command when it has been previously undone.+-}+pattern EDITING_COMMAND_REDO = "Redo" :: T.Text++{- |+The paste clipboard command. Pastes the contents of the clipboard to+a 'GI.WebKit2.Objects.WebView.WebView'.+You can check whether it\'s possible to execute the command with+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand'. In general it\'s possible+to paste from the clipboard when the 'GI.WebKit2.Objects.WebView.WebView' content is editable+and clipboard is not empty.+-}+pattern EDITING_COMMAND_PASTE = "Paste" :: T.Text++{- |+The insert image command. Creates an image element that is inserted at+the current cursor position. It receives an URI as argument,+that is used as the image source. This command should be executed with+'GI.WebKit2.Objects.WebView.webViewExecuteEditingCommandWithArgument'.++/Since: 2.10/+-}+pattern EDITING_COMMAND_INSERT_IMAGE = "InsertImage" :: T.Text++{- |+The cut clipboard command. Copies the current selection inside+a 'GI.WebKit2.Objects.WebView.WebView' to the clipboard and deletes the selected content.+You can check whether it\'s possible to execute the command with+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand'. In general it\'s+possible to cut to the clipboard when the 'GI.WebKit2.Objects.WebView.WebView' content is+editable and there is an active selection.+-}+pattern EDITING_COMMAND_CUT = "Cut" :: T.Text++{- |+The create link command. Creates a link element that is inserted at+the current cursor position. If there\'s a selection, the selected text+will be used as the link text, otherwise the URL itself will be used.+It receives the link URL as argument. This command should be executed+with 'GI.WebKit2.Objects.WebView.webViewExecuteEditingCommandWithArgument'++/Since: 2.10/+-}+pattern EDITING_COMMAND_CREATE_LINK = "CreateLink" :: T.Text++{- |+The copy clipboard command. Copies the current selection inside+a 'GI.WebKit2.Objects.WebView.WebView' to the clipboard.+You can check whether it\'s possible to execute the command with+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand'. In general it\'s+possible to copy to the clipboard when there is an active selection+inside the 'GI.WebKit2.Objects.WebView.WebView'.+-}+pattern EDITING_COMMAND_COPY = "Copy" :: T.Text++
+ GI/WebKit2/Enums.hs view
@@ -0,0 +1,1991 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Enums+    ( ++ -- * Enumerations+-- ** AuthenticationScheme #enum:AuthenticationScheme#++    AuthenticationScheme(..)                ,+++-- ** CacheModel #enum:CacheModel#++    CacheModel(..)                          ,+++-- ** ContextMenuAction #enum:ContextMenuAction#++    ContextMenuAction(..)                   ,+++-- ** CookieAcceptPolicy #enum:CookieAcceptPolicy#++    CookieAcceptPolicy(..)                  ,+++-- ** CookiePersistentStorage #enum:CookiePersistentStorage#++    CookiePersistentStorage(..)             ,+++-- ** CredentialPersistence #enum:CredentialPersistence#++    CredentialPersistence(..)               ,+++-- ** DownloadError #enum:DownloadError#++    DownloadError(..)                       ,+    catchDownloadError                      ,+    handleDownloadError                     ,+++-- ** FaviconDatabaseError #enum:FaviconDatabaseError#++    FaviconDatabaseError(..)                ,+    catchFaviconDatabaseError               ,+    handleFaviconDatabaseError              ,+++-- ** HardwareAccelerationPolicy #enum:HardwareAccelerationPolicy#++    HardwareAccelerationPolicy(..)          ,+++-- ** InsecureContentEvent #enum:InsecureContentEvent#++    InsecureContentEvent(..)                ,+++-- ** JavascriptError #enum:JavascriptError#++    JavascriptError(..)                     ,+    catchJavascriptError                    ,+    handleJavascriptError                   ,+++-- ** LoadEvent #enum:LoadEvent#++    LoadEvent(..)                           ,+++-- ** NavigationType #enum:NavigationType#++    NavigationType(..)                      ,+++-- ** NetworkError #enum:NetworkError#++    NetworkError(..)                        ,+    catchNetworkError                       ,+    handleNetworkError                      ,+++-- ** NetworkProxyMode #enum:NetworkProxyMode#++    NetworkProxyMode(..)                    ,+++-- ** PluginError #enum:PluginError#++    PluginError(..)                         ,+    catchPluginError                        ,+    handlePluginError                       ,+++-- ** PolicyDecisionType #enum:PolicyDecisionType#++    PolicyDecisionType(..)                  ,+++-- ** PolicyError #enum:PolicyError#++    PolicyError(..)                         ,+    catchPolicyError                        ,+    handlePolicyError                       ,+++-- ** PrintError #enum:PrintError#++    PrintError(..)                          ,+    catchPrintError                         ,+    handlePrintError                        ,+++-- ** PrintOperationResponse #enum:PrintOperationResponse#++    PrintOperationResponse(..)              ,+++-- ** ProcessModel #enum:ProcessModel#++    ProcessModel(..)                        ,+++-- ** SaveMode #enum:SaveMode#++    SaveMode(..)                            ,+++-- ** ScriptDialogType #enum:ScriptDialogType#++    ScriptDialogType(..)                    ,+++-- ** SnapshotError #enum:SnapshotError#++    SnapshotError(..)                       ,+    catchSnapshotError                      ,+    handleSnapshotError                     ,+++-- ** SnapshotRegion #enum:SnapshotRegion#++    SnapshotRegion(..)                      ,+++-- ** TLSErrorsPolicy #enum:TLSErrorsPolicy#++    TLSErrorsPolicy(..)                     ,+++-- ** UserContentFilterError #enum:UserContentFilterError#++    UserContentFilterError(..)              ,+    catchUserContentFilterError             ,+    handleUserContentFilterError            ,+++-- ** UserContentInjectedFrames #enum:UserContentInjectedFrames#++    UserContentInjectedFrames(..)           ,+++-- ** UserScriptInjectionTime #enum:UserScriptInjectionTime#++    UserScriptInjectionTime(..)             ,+++-- ** UserStyleLevel #enum:UserStyleLevel#++    UserStyleLevel(..)                      ,+++-- ** WebProcessTerminationReason #enum:WebProcessTerminationReason#++    WebProcessTerminationReason(..)         ,+++++    ) 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+++-- Enum WebProcessTerminationReason+{- |+Enum values used to specify the reason why the web process terminated abnormally.++/Since: 2.20/+-}+data WebProcessTerminationReason = +      WebProcessTerminationReasonCrashed+    {- ^+    the web process crashed.+    -}+    | WebProcessTerminationReasonExceededMemoryLimit+    {- ^+    the web process exceeded the memory limit.+    -}+    | AnotherWebProcessTerminationReason Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum WebProcessTerminationReason where+    fromEnum WebProcessTerminationReasonCrashed = 0+    fromEnum WebProcessTerminationReasonExceededMemoryLimit = 1+    fromEnum (AnotherWebProcessTerminationReason k) = k++    toEnum 0 = WebProcessTerminationReasonCrashed+    toEnum 1 = WebProcessTerminationReasonExceededMemoryLimit+    toEnum k = AnotherWebProcessTerminationReason k++instance P.Ord WebProcessTerminationReason where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_web_process_termination_reason_get_type" c_webkit_web_process_termination_reason_get_type :: +    IO GType++instance BoxedEnum WebProcessTerminationReason where+    boxedEnumType _ = c_webkit_web_process_termination_reason_get_type++-- Enum UserStyleLevel+{- |+Specifies how to treat an user style sheet.++/Since: 2.6/+-}+data UserStyleLevel = +      UserStyleLevelUser+    {- ^+    The style sheet is an user style sheet,+      its contents always override other style sheets. This is the default.+    -}+    | UserStyleLevelAuthor+    {- ^+    The style sheet will be treated as if+      it was provided by the loaded documents. That means other user style+      sheets may still override it.+    -}+    | AnotherUserStyleLevel Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum UserStyleLevel where+    fromEnum UserStyleLevelUser = 0+    fromEnum UserStyleLevelAuthor = 1+    fromEnum (AnotherUserStyleLevel k) = k++    toEnum 0 = UserStyleLevelUser+    toEnum 1 = UserStyleLevelAuthor+    toEnum k = AnotherUserStyleLevel k++instance P.Ord UserStyleLevel where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_user_style_level_get_type" c_webkit_user_style_level_get_type :: +    IO GType++instance BoxedEnum UserStyleLevel where+    boxedEnumType _ = c_webkit_user_style_level_get_type++-- Enum UserScriptInjectionTime+{- |+Specifies at which place of documents an user script will be inserted.++/Since: 2.6/+-}+data UserScriptInjectionTime = +      UserScriptInjectionTimeStart+    {- ^+    Insert the code of the user+      script at the beginning of loaded documents. This is the default.+    -}+    | UserScriptInjectionTimeEnd+    {- ^+    Insert the code of the user+      script at the end of the loaded documents.+    -}+    | AnotherUserScriptInjectionTime Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum UserScriptInjectionTime where+    fromEnum UserScriptInjectionTimeStart = 0+    fromEnum UserScriptInjectionTimeEnd = 1+    fromEnum (AnotherUserScriptInjectionTime k) = k++    toEnum 0 = UserScriptInjectionTimeStart+    toEnum 1 = UserScriptInjectionTimeEnd+    toEnum k = AnotherUserScriptInjectionTime k++instance P.Ord UserScriptInjectionTime where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_user_script_injection_time_get_type" c_webkit_user_script_injection_time_get_type :: +    IO GType++instance BoxedEnum UserScriptInjectionTime where+    boxedEnumType _ = c_webkit_user_script_injection_time_get_type++-- Enum UserContentInjectedFrames+{- |+Specifies in which frames user style sheets are to be inserted in.++/Since: 2.6/+-}+data UserContentInjectedFrames = +      UserContentInjectedFramesAllFrames+    {- ^+    Insert the user style+      sheet in all the frames loaded by the web view, including+      nested frames. This is the default.+    -}+    | UserContentInjectedFramesTopFrame+    {- ^+    Insert the user style+      sheet *only* in the top-level frame loaded by the web view,+      and *not* in the nested frames.+    -}+    | AnotherUserContentInjectedFrames Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum UserContentInjectedFrames where+    fromEnum UserContentInjectedFramesAllFrames = 0+    fromEnum UserContentInjectedFramesTopFrame = 1+    fromEnum (AnotherUserContentInjectedFrames k) = k++    toEnum 0 = UserContentInjectedFramesAllFrames+    toEnum 1 = UserContentInjectedFramesTopFrame+    toEnum k = AnotherUserContentInjectedFrames k++instance P.Ord UserContentInjectedFrames where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_user_content_injected_frames_get_type" c_webkit_user_content_injected_frames_get_type :: +    IO GType++instance BoxedEnum UserContentInjectedFrames where+    boxedEnumType _ = c_webkit_user_content_injected_frames_get_type++-- Enum UserContentFilterError+{- |+/No description available in the introspection data./++/Since: 2.24/+-}+data UserContentFilterError = +      UserContentFilterErrorInvalidSource+    {- ^+    The JSON source for a content filter is invalid.+    -}+    | UserContentFilterErrorNotFound+    {- ^+    The requested content filter could not be found.+    -}+    | AnotherUserContentFilterError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum UserContentFilterError where+    fromEnum UserContentFilterErrorInvalidSource = 0+    fromEnum UserContentFilterErrorNotFound = 1+    fromEnum (AnotherUserContentFilterError k) = k++    toEnum 0 = UserContentFilterErrorInvalidSource+    toEnum 1 = UserContentFilterErrorNotFound+    toEnum k = AnotherUserContentFilterError k++instance P.Ord UserContentFilterError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass UserContentFilterError where+    gerrorClassDomain _ = "WebKitUserContentFilterError"++-- | Catch exceptions of type `UserContentFilterError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchUserContentFilterError ::+    IO a ->+    (UserContentFilterError -> GErrorMessage -> IO a) ->+    IO a+catchUserContentFilterError = catchGErrorJustDomain++-- | Handle exceptions of type `UserContentFilterError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleUserContentFilterError ::+    (UserContentFilterError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleUserContentFilterError = handleGErrorJustDomain++foreign import ccall "webkit_user_content_filter_error_get_type" c_webkit_user_content_filter_error_get_type :: +    IO GType++instance BoxedEnum UserContentFilterError where+    boxedEnumType _ = c_webkit_user_content_filter_error_get_type++-- Enum TLSErrorsPolicy+{- |+Enum values used to denote the TLS errors policy.+-}+data TLSErrorsPolicy = +      TLSErrorsPolicyIgnore+    {- ^+    Ignore TLS errors.+    -}+    | TLSErrorsPolicyFail+    {- ^+    TLS errors will emit+      'GI.WebKit2.Objects.WebView.WebView'::@/load-failed-with-tls-errors/@ and, if the signal is handled,+      finish the load. In case the signal is not handled,+      'GI.WebKit2.Objects.WebView.WebView'::@/load-failed/@ is emitted before the load finishes.+    -}+    | AnotherTLSErrorsPolicy Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum TLSErrorsPolicy where+    fromEnum TLSErrorsPolicyIgnore = 0+    fromEnum TLSErrorsPolicyFail = 1+    fromEnum (AnotherTLSErrorsPolicy k) = k++    toEnum 0 = TLSErrorsPolicyIgnore+    toEnum 1 = TLSErrorsPolicyFail+    toEnum k = AnotherTLSErrorsPolicy k++instance P.Ord TLSErrorsPolicy where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_tls_errors_policy_get_type" c_webkit_tls_errors_policy_get_type :: +    IO GType++instance BoxedEnum TLSErrorsPolicy where+    boxedEnumType _ = c_webkit_tls_errors_policy_get_type++-- Enum SnapshotRegion+{- |+Enum values used to specify the region from which to get a 'GI.WebKit2.Objects.WebView.WebView'+snapshot+-}+data SnapshotRegion = +      SnapshotRegionVisible+    {- ^+    Specifies a snapshot only for the area that is+    visible in the webview+    -}+    | SnapshotRegionFullDocument+    {- ^+    A snapshot of the entire document.+    -}+    | AnotherSnapshotRegion Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SnapshotRegion where+    fromEnum SnapshotRegionVisible = 0+    fromEnum SnapshotRegionFullDocument = 1+    fromEnum (AnotherSnapshotRegion k) = k++    toEnum 0 = SnapshotRegionVisible+    toEnum 1 = SnapshotRegionFullDocument+    toEnum k = AnotherSnapshotRegion k++instance P.Ord SnapshotRegion where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_snapshot_region_get_type" c_webkit_snapshot_region_get_type :: +    IO GType++instance BoxedEnum SnapshotRegion where+    boxedEnumType _ = c_webkit_snapshot_region_get_type++-- Enum SnapshotError+{- |+Enum values used to denote errors happening when creating snapshots of 'GI.WebKit2.Objects.WebView.WebView'+-}+data SnapshotError = +      SnapshotErrorCreate+    {- ^+    An error occurred when creating a webpage snapshot.+    -}+    | AnotherSnapshotError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SnapshotError where+    fromEnum SnapshotErrorCreate = 799+    fromEnum (AnotherSnapshotError k) = k++    toEnum 799 = SnapshotErrorCreate+    toEnum k = AnotherSnapshotError k++instance P.Ord SnapshotError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass SnapshotError where+    gerrorClassDomain _ = "WebKitSnapshotError"++-- | Catch exceptions of type `SnapshotError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchSnapshotError ::+    IO a ->+    (SnapshotError -> GErrorMessage -> IO a) ->+    IO a+catchSnapshotError = catchGErrorJustDomain++-- | Handle exceptions of type `SnapshotError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleSnapshotError ::+    (SnapshotError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleSnapshotError = handleGErrorJustDomain++foreign import ccall "webkit_snapshot_error_get_type" c_webkit_snapshot_error_get_type :: +    IO GType++instance BoxedEnum SnapshotError where+    boxedEnumType _ = c_webkit_snapshot_error_get_type++-- Enum ScriptDialogType+{- |+Enum values used for determining the type of 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog'+-}+data ScriptDialogType = +      ScriptDialogTypeAlert+    {- ^+    Alert script dialog, used to show a+    message to the user.+    -}+    | ScriptDialogTypeConfirm+    {- ^+    Confirm script dialog, used to ask+    confirmation to the user.+    -}+    | ScriptDialogTypePrompt+    {- ^+    Prompt script dialog, used to ask+    information to the user.+    -}+    | ScriptDialogTypeBeforeUnloadConfirm+    {- ^+    Before unload confirm dialog,+    used to ask confirmation to leave the current page to the user. Since 2.12+    -}+    | AnotherScriptDialogType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ScriptDialogType where+    fromEnum ScriptDialogTypeAlert = 0+    fromEnum ScriptDialogTypeConfirm = 1+    fromEnum ScriptDialogTypePrompt = 2+    fromEnum ScriptDialogTypeBeforeUnloadConfirm = 3+    fromEnum (AnotherScriptDialogType k) = k++    toEnum 0 = ScriptDialogTypeAlert+    toEnum 1 = ScriptDialogTypeConfirm+    toEnum 2 = ScriptDialogTypePrompt+    toEnum 3 = ScriptDialogTypeBeforeUnloadConfirm+    toEnum k = AnotherScriptDialogType k++instance P.Ord ScriptDialogType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_script_dialog_type_get_type" c_webkit_script_dialog_type_get_type :: +    IO GType++instance BoxedEnum ScriptDialogType where+    boxedEnumType _ = c_webkit_script_dialog_type_get_type++-- Enum SaveMode+{- |+Enum values to specify the different ways in which a 'GI.WebKit2.Objects.WebView.WebView'+can save its current web page into a self-contained file.+-}+data SaveMode = +      SaveModeMhtml+    {- ^+    Save the current page using the MHTML format.+    -}+    | AnotherSaveMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SaveMode where+    fromEnum SaveModeMhtml = 0+    fromEnum (AnotherSaveMode k) = k++    toEnum 0 = SaveModeMhtml+    toEnum k = AnotherSaveMode k++instance P.Ord SaveMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_save_mode_get_type" c_webkit_save_mode_get_type :: +    IO GType++instance BoxedEnum SaveMode where+    boxedEnumType _ = c_webkit_save_mode_get_type++-- Enum ProcessModel+{- |+Enum values used for determining the 'GI.WebKit2.Objects.WebContext.WebContext' process model.++/Since: 2.4/+-}+data ProcessModel = +      ProcessModelSharedSecondaryProcess+    {- ^+    Use a single process to+      perform content rendering. The process is shared among all the+      'GI.WebKit2.Objects.WebView.WebView' instances created by the application: if the process+      hangs or crashes all the web views in the application will be affected.+      This is the default process model, and it should suffice for most cases.+    -}+    | ProcessModelMultipleSecondaryProcesses+    {- ^+    Use one process+      for each 'GI.WebKit2.Objects.WebView.WebView', while still allowing for some of them to+      share a process in certain situations. The main advantage+      of this process model is that the rendering process for a web view+      can crash while the rest of the views keep working normally. This+      process model is indicated for applications which may use a number+      of web views and the content of in each must not interfere with the+      rest — for example a full-fledged web browser with support for+      multiple tabs.+    -}+    | AnotherProcessModel Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ProcessModel where+    fromEnum ProcessModelSharedSecondaryProcess = 0+    fromEnum ProcessModelMultipleSecondaryProcesses = 1+    fromEnum (AnotherProcessModel k) = k++    toEnum 0 = ProcessModelSharedSecondaryProcess+    toEnum 1 = ProcessModelMultipleSecondaryProcesses+    toEnum k = AnotherProcessModel k++instance P.Ord ProcessModel where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_process_model_get_type" c_webkit_process_model_get_type :: +    IO GType++instance BoxedEnum ProcessModel where+    boxedEnumType _ = c_webkit_process_model_get_type++-- Enum PrintOperationResponse+{- |+Enum values representing the response of the print dialog shown with+'GI.WebKit2.Objects.PrintOperation.printOperationRunDialog'.+-}+data PrintOperationResponse = +      PrintOperationResponsePrint+    {- ^+    Print button was clicked in print dialog+    -}+    | PrintOperationResponseCancel+    {- ^+    Print dialog was cancelled+    -}+    | AnotherPrintOperationResponse Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PrintOperationResponse where+    fromEnum PrintOperationResponsePrint = 0+    fromEnum PrintOperationResponseCancel = 1+    fromEnum (AnotherPrintOperationResponse k) = k++    toEnum 0 = PrintOperationResponsePrint+    toEnum 1 = PrintOperationResponseCancel+    toEnum k = AnotherPrintOperationResponse k++instance P.Ord PrintOperationResponse where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_print_operation_response_get_type" c_webkit_print_operation_response_get_type :: +    IO GType++instance BoxedEnum PrintOperationResponse where+    boxedEnumType _ = c_webkit_print_operation_response_get_type++-- Enum PrintError+{- |+Enum values used to denote the various print errors.+-}+data PrintError = +      PrintErrorGeneral+    {- ^+    Unspecified error during a print operation+    -}+    | PrintErrorPrinterNotFound+    {- ^+    Selected printer cannot be found+    -}+    | PrintErrorInvalidPageRange+    {- ^+    Invalid page range+    -}+    | AnotherPrintError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PrintError where+    fromEnum PrintErrorGeneral = 599+    fromEnum PrintErrorPrinterNotFound = 500+    fromEnum PrintErrorInvalidPageRange = 501+    fromEnum (AnotherPrintError k) = k++    toEnum 599 = PrintErrorGeneral+    toEnum 500 = PrintErrorPrinterNotFound+    toEnum 501 = PrintErrorInvalidPageRange+    toEnum k = AnotherPrintError k++instance P.Ord PrintError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass PrintError where+    gerrorClassDomain _ = "WebKitPrintError"++-- | Catch exceptions of type `PrintError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchPrintError ::+    IO a ->+    (PrintError -> GErrorMessage -> IO a) ->+    IO a+catchPrintError = catchGErrorJustDomain++-- | Handle exceptions of type `PrintError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handlePrintError ::+    (PrintError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handlePrintError = handleGErrorJustDomain++foreign import ccall "webkit_print_error_get_type" c_webkit_print_error_get_type :: +    IO GType++instance BoxedEnum PrintError where+    boxedEnumType _ = c_webkit_print_error_get_type++-- Enum PolicyError+{- |+Enum values used to denote the various policy errors.+-}+data PolicyError = +      PolicyErrorFailed+    {- ^+    Generic load failure due to policy error+    -}+    | PolicyErrorCannotShowMimeType+    {- ^+    Load failure due to unsupported mime type+    -}+    | PolicyErrorCannotShowUri+    {- ^+    Load failure due to URI that can not be shown+    -}+    | PolicyErrorFrameLoadInterruptedByPolicyChange+    {- ^+    Load failure due to frame load interruption by policy change+    -}+    | PolicyErrorCannotUseRestrictedPort+    {- ^+    Load failure due to port restriction+    -}+    | AnotherPolicyError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PolicyError where+    fromEnum PolicyErrorFailed = 199+    fromEnum PolicyErrorCannotShowMimeType = 100+    fromEnum PolicyErrorCannotShowUri = 101+    fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102+    fromEnum PolicyErrorCannotUseRestrictedPort = 103+    fromEnum (AnotherPolicyError k) = k++    toEnum 199 = PolicyErrorFailed+    toEnum 100 = PolicyErrorCannotShowMimeType+    toEnum 101 = PolicyErrorCannotShowUri+    toEnum 102 = PolicyErrorFrameLoadInterruptedByPolicyChange+    toEnum 103 = PolicyErrorCannotUseRestrictedPort+    toEnum k = AnotherPolicyError k++instance P.Ord PolicyError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass PolicyError where+    gerrorClassDomain _ = "WebKitPolicyError"++-- | Catch exceptions of type `PolicyError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchPolicyError ::+    IO a ->+    (PolicyError -> GErrorMessage -> IO a) ->+    IO a+catchPolicyError = catchGErrorJustDomain++-- | Handle exceptions of type `PolicyError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handlePolicyError ::+    (PolicyError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handlePolicyError = handleGErrorJustDomain++foreign import ccall "webkit_policy_error_get_type" c_webkit_policy_error_get_type :: +    IO GType++instance BoxedEnum PolicyError where+    boxedEnumType _ = c_webkit_policy_error_get_type++-- Enum PolicyDecisionType+{- |+Enum values used for determining the type of a policy decision during+'GI.WebKit2.Objects.WebView.WebView'::@/decide-policy/@.+-}+data PolicyDecisionType = +      PolicyDecisionTypeNavigationAction+    {- ^+    This type of policy decision+      is requested when WebKit is about to navigate to a new page in either the+      main frame or a subframe. Acceptable policy decisions are either+      'GI.WebKit2.Objects.PolicyDecision.policyDecisionUse' or 'GI.WebKit2.Objects.PolicyDecision.policyDecisionIgnore'. This+      type of policy decision is always a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision'.+    -}+    | PolicyDecisionTypeNewWindowAction+    {- ^+    This type of policy decision+      is requested when WebKit is about to create a new window. Acceptable policy+      decisions are either 'GI.WebKit2.Objects.PolicyDecision.policyDecisionUse' or+      'GI.WebKit2.Objects.PolicyDecision.policyDecisionIgnore'. This type of policy decision is always+      a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision'. These decisions are useful for implementing+      special actions for new windows, such as forcing the new window to open+      in a tab when a keyboard modifier is active or handling a special+      target attribute on &lt;a&gt; elements.+    -}+    | PolicyDecisionTypeResponse+    {- ^+    This type of decision is used when WebKit has+      received a response for a network resource and is about to start the load.+      Note that these resources include all subresources of a page such as images+      and stylesheets as well as main documents. Appropriate policy responses to+      this decision are 'GI.WebKit2.Objects.PolicyDecision.policyDecisionUse', 'GI.WebKit2.Objects.PolicyDecision.policyDecisionIgnore',+      or 'GI.WebKit2.Objects.PolicyDecision.policyDecisionDownload'. This type of policy decision is always+      a 'GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision'. This decision is useful for forcing+      some types of resources to be downloaded rather than rendered in the WebView+      or to block the transfer of resources entirely.+    -}+    | AnotherPolicyDecisionType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PolicyDecisionType where+    fromEnum PolicyDecisionTypeNavigationAction = 0+    fromEnum PolicyDecisionTypeNewWindowAction = 1+    fromEnum PolicyDecisionTypeResponse = 2+    fromEnum (AnotherPolicyDecisionType k) = k++    toEnum 0 = PolicyDecisionTypeNavigationAction+    toEnum 1 = PolicyDecisionTypeNewWindowAction+    toEnum 2 = PolicyDecisionTypeResponse+    toEnum k = AnotherPolicyDecisionType k++instance P.Ord PolicyDecisionType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_policy_decision_type_get_type" c_webkit_policy_decision_type_get_type :: +    IO GType++instance BoxedEnum PolicyDecisionType where+    boxedEnumType _ = c_webkit_policy_decision_type_get_type++-- Enum PluginError+{- |+Enum values used to denote the various plugin errors.+-}+data PluginError = +      PluginErrorFailed+    {- ^+    Generic plugin load failure+    -}+    | PluginErrorCannotFindPlugin+    {- ^+    Load failure due to missing plugin+    -}+    | PluginErrorCannotLoadPlugin+    {- ^+    Load failure due to inability to load plugin+    -}+    | PluginErrorJavaUnavailable+    {- ^+    Load failure due to missing Java support that is required to load plugin+    -}+    | PluginErrorConnectionCancelled+    {- ^+    Load failure due to connection cancellation+    -}+    | PluginErrorWillHandleLoad+    {- ^+    Load failure since plugin handles the load+    -}+    | AnotherPluginError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PluginError where+    fromEnum PluginErrorFailed = 299+    fromEnum PluginErrorCannotFindPlugin = 200+    fromEnum PluginErrorCannotLoadPlugin = 201+    fromEnum PluginErrorJavaUnavailable = 202+    fromEnum PluginErrorConnectionCancelled = 203+    fromEnum PluginErrorWillHandleLoad = 204+    fromEnum (AnotherPluginError k) = k++    toEnum 299 = PluginErrorFailed+    toEnum 200 = PluginErrorCannotFindPlugin+    toEnum 201 = PluginErrorCannotLoadPlugin+    toEnum 202 = PluginErrorJavaUnavailable+    toEnum 203 = PluginErrorConnectionCancelled+    toEnum 204 = PluginErrorWillHandleLoad+    toEnum k = AnotherPluginError k++instance P.Ord PluginError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass PluginError where+    gerrorClassDomain _ = "WebKitPluginError"++-- | Catch exceptions of type `PluginError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchPluginError ::+    IO a ->+    (PluginError -> GErrorMessage -> IO a) ->+    IO a+catchPluginError = catchGErrorJustDomain++-- | Handle exceptions of type `PluginError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handlePluginError ::+    (PluginError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handlePluginError = handleGErrorJustDomain++foreign import ccall "webkit_plugin_error_get_type" c_webkit_plugin_error_get_type :: +    IO GType++instance BoxedEnum PluginError where+    boxedEnumType _ = c_webkit_plugin_error_get_type++-- Enum NetworkProxyMode+{- |+Enum values used to set the network proxy mode.++/Since: 2.16/+-}+data NetworkProxyMode = +      NetworkProxyModeDefault+    {- ^+    Use the default proxy of the system.+    -}+    | NetworkProxyModeNoProxy+    {- ^+    Do not use any proxy.+    -}+    | NetworkProxyModeCustom+    {- ^+    Use custom proxy settings.+    -}+    | AnotherNetworkProxyMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum NetworkProxyMode where+    fromEnum NetworkProxyModeDefault = 0+    fromEnum NetworkProxyModeNoProxy = 1+    fromEnum NetworkProxyModeCustom = 2+    fromEnum (AnotherNetworkProxyMode k) = k++    toEnum 0 = NetworkProxyModeDefault+    toEnum 1 = NetworkProxyModeNoProxy+    toEnum 2 = NetworkProxyModeCustom+    toEnum k = AnotherNetworkProxyMode k++instance P.Ord NetworkProxyMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_network_proxy_mode_get_type" c_webkit_network_proxy_mode_get_type :: +    IO GType++instance BoxedEnum NetworkProxyMode where+    boxedEnumType _ = c_webkit_network_proxy_mode_get_type++-- Enum NetworkError+{- |+Enum values used to denote the various network errors.+-}+data NetworkError = +      NetworkErrorFailed+    {- ^+    Generic load failure+    -}+    | NetworkErrorTransport+    {- ^+    Load failure due to transport error+    -}+    | NetworkErrorUnknownProtocol+    {- ^+    Load failure due to unknown protocol+    -}+    | NetworkErrorCancelled+    {- ^+    Load failure due to cancellation+    -}+    | NetworkErrorFileDoesNotExist+    {- ^+    Load failure due to missing file+    -}+    | AnotherNetworkError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum NetworkError where+    fromEnum NetworkErrorFailed = 399+    fromEnum NetworkErrorTransport = 300+    fromEnum NetworkErrorUnknownProtocol = 301+    fromEnum NetworkErrorCancelled = 302+    fromEnum NetworkErrorFileDoesNotExist = 303+    fromEnum (AnotherNetworkError k) = k++    toEnum 399 = NetworkErrorFailed+    toEnum 300 = NetworkErrorTransport+    toEnum 301 = NetworkErrorUnknownProtocol+    toEnum 302 = NetworkErrorCancelled+    toEnum 303 = NetworkErrorFileDoesNotExist+    toEnum k = AnotherNetworkError k++instance P.Ord NetworkError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass NetworkError where+    gerrorClassDomain _ = "WebKitNetworkError"++-- | Catch exceptions of type `NetworkError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchNetworkError ::+    IO a ->+    (NetworkError -> GErrorMessage -> IO a) ->+    IO a+catchNetworkError = catchGErrorJustDomain++-- | Handle exceptions of type `NetworkError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleNetworkError ::+    (NetworkError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleNetworkError = handleGErrorJustDomain++foreign import ccall "webkit_network_error_get_type" c_webkit_network_error_get_type :: +    IO GType++instance BoxedEnum NetworkError where+    boxedEnumType _ = c_webkit_network_error_get_type++-- Enum NavigationType+{- |+Enum values used to denote the various navigation types.+-}+data NavigationType = +      NavigationTypeLinkClicked+    {- ^+    The navigation was triggered by clicking a link.+    -}+    | NavigationTypeFormSubmitted+    {- ^+    The navigation was triggered by submitting a form.+    -}+    | NavigationTypeBackForward+    {- ^+    The navigation was triggered by navigating forward or backward.+    -}+    | NavigationTypeReload+    {- ^+    The navigation was triggered by reloading.+    -}+    | NavigationTypeFormResubmitted+    {- ^+    The navigation was triggered by resubmitting a form.+    -}+    | NavigationTypeOther+    {- ^+    The navigation was triggered by some other action.+    -}+    | AnotherNavigationType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum NavigationType where+    fromEnum NavigationTypeLinkClicked = 0+    fromEnum NavigationTypeFormSubmitted = 1+    fromEnum NavigationTypeBackForward = 2+    fromEnum NavigationTypeReload = 3+    fromEnum NavigationTypeFormResubmitted = 4+    fromEnum NavigationTypeOther = 5+    fromEnum (AnotherNavigationType k) = k++    toEnum 0 = NavigationTypeLinkClicked+    toEnum 1 = NavigationTypeFormSubmitted+    toEnum 2 = NavigationTypeBackForward+    toEnum 3 = NavigationTypeReload+    toEnum 4 = NavigationTypeFormResubmitted+    toEnum 5 = NavigationTypeOther+    toEnum k = AnotherNavigationType k++instance P.Ord NavigationType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_navigation_type_get_type" c_webkit_navigation_type_get_type :: +    IO GType++instance BoxedEnum NavigationType where+    boxedEnumType _ = c_webkit_navigation_type_get_type++-- Enum LoadEvent+{- |+Enum values used to denote the different events that happen during a+'GI.WebKit2.Objects.WebView.WebView' load operation.+-}+data LoadEvent = +      LoadEventStarted+    {- ^+    A new load request has been made.+    No data has been received yet, empty structures have+    been allocated to perform the load; the load may still+    fail due to transport issues such as not being able to+    resolve a name, or connect to a port.+    -}+    | LoadEventRedirected+    {- ^+    A provisional data source received+    a server redirect.+    -}+    | LoadEventCommitted+    {- ^+    The content started arriving for a page load.+    The necessary transport requirements are established, and the+    load is being performed.+    -}+    | LoadEventFinished+    {- ^+    Load completed. All resources are done loading+    or there was an error during the load operation.+    -}+    | AnotherLoadEvent Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum LoadEvent where+    fromEnum LoadEventStarted = 0+    fromEnum LoadEventRedirected = 1+    fromEnum LoadEventCommitted = 2+    fromEnum LoadEventFinished = 3+    fromEnum (AnotherLoadEvent k) = k++    toEnum 0 = LoadEventStarted+    toEnum 1 = LoadEventRedirected+    toEnum 2 = LoadEventCommitted+    toEnum 3 = LoadEventFinished+    toEnum k = AnotherLoadEvent k++instance P.Ord LoadEvent where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_load_event_get_type" c_webkit_load_event_get_type :: +    IO GType++instance BoxedEnum LoadEvent where+    boxedEnumType _ = c_webkit_load_event_get_type++-- Enum JavascriptError+{- |+Enum values used to denote errors happening when executing JavaScript+-}+data JavascriptError = +      JavascriptErrorFailed+    {- ^+    An exception was raised in JavaScript execution+    -}+    | AnotherJavascriptError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum JavascriptError where+    fromEnum JavascriptErrorFailed = 699+    fromEnum (AnotherJavascriptError k) = k++    toEnum 699 = JavascriptErrorFailed+    toEnum k = AnotherJavascriptError k++instance P.Ord JavascriptError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass JavascriptError where+    gerrorClassDomain _ = "WebKitJavascriptError"++-- | Catch exceptions of type `JavascriptError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchJavascriptError ::+    IO a ->+    (JavascriptError -> GErrorMessage -> IO a) ->+    IO a+catchJavascriptError = catchGErrorJustDomain++-- | Handle exceptions of type `JavascriptError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleJavascriptError ::+    (JavascriptError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleJavascriptError = handleGErrorJustDomain++foreign import ccall "webkit_javascript_error_get_type" c_webkit_javascript_error_get_type :: +    IO GType++instance BoxedEnum JavascriptError where+    boxedEnumType _ = c_webkit_javascript_error_get_type++-- Enum InsecureContentEvent+{- |+Enum values used to denote the different events which can trigger+the detection of insecure content.+-}+data InsecureContentEvent = +      InsecureContentEventRun+    {- ^+    Insecure content has been detected by+    trying to execute any kind of logic (e.g. a script) from an+    untrusted source.+    -}+    | InsecureContentEventDisplayed+    {- ^+    Insecure content has been+    detected by trying to display any kind of resource (e.g. an image)+    from an untrusted source.+    -}+    | AnotherInsecureContentEvent Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum InsecureContentEvent where+    fromEnum InsecureContentEventRun = 0+    fromEnum InsecureContentEventDisplayed = 1+    fromEnum (AnotherInsecureContentEvent k) = k++    toEnum 0 = InsecureContentEventRun+    toEnum 1 = InsecureContentEventDisplayed+    toEnum k = AnotherInsecureContentEvent k++instance P.Ord InsecureContentEvent where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_insecure_content_event_get_type" c_webkit_insecure_content_event_get_type :: +    IO GType++instance BoxedEnum InsecureContentEvent where+    boxedEnumType _ = c_webkit_insecure_content_event_get_type++-- Enum HardwareAccelerationPolicy+{- |+Enum values used for determining the hardware acceleration policy.++/Since: 2.16/+-}+data HardwareAccelerationPolicy = +      HardwareAccelerationPolicyOnDemand+    {- ^+    Hardware acceleration is enabled\/disabled as request by web contents.+    -}+    | HardwareAccelerationPolicyAlways+    {- ^+    Hardware acceleration is always enabled, even for websites not requesting it.+    -}+    | HardwareAccelerationPolicyNever+    {- ^+    Hardware acceleration is always disabled, even for websites requesting it.+    -}+    | AnotherHardwareAccelerationPolicy Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum HardwareAccelerationPolicy where+    fromEnum HardwareAccelerationPolicyOnDemand = 0+    fromEnum HardwareAccelerationPolicyAlways = 1+    fromEnum HardwareAccelerationPolicyNever = 2+    fromEnum (AnotherHardwareAccelerationPolicy k) = k++    toEnum 0 = HardwareAccelerationPolicyOnDemand+    toEnum 1 = HardwareAccelerationPolicyAlways+    toEnum 2 = HardwareAccelerationPolicyNever+    toEnum k = AnotherHardwareAccelerationPolicy k++instance P.Ord HardwareAccelerationPolicy where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_hardware_acceleration_policy_get_type" c_webkit_hardware_acceleration_policy_get_type :: +    IO GType++instance BoxedEnum HardwareAccelerationPolicy where+    boxedEnumType _ = c_webkit_hardware_acceleration_policy_get_type++-- Enum FaviconDatabaseError+{- |+Enum values used to denote the various errors related to the 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase'.+-}+data FaviconDatabaseError = +      FaviconDatabaseErrorNotInitialized+    {- ^+    The 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase' has not been initialized yet+    -}+    | FaviconDatabaseErrorFaviconNotFound+    {- ^+    There is not an icon available for the requested URL+    -}+    | FaviconDatabaseErrorFaviconUnknown+    {- ^+    There might be an icon for the requested URL, but its data is unknown at the moment+    -}+    | AnotherFaviconDatabaseError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FaviconDatabaseError where+    fromEnum FaviconDatabaseErrorNotInitialized = 0+    fromEnum FaviconDatabaseErrorFaviconNotFound = 1+    fromEnum FaviconDatabaseErrorFaviconUnknown = 2+    fromEnum (AnotherFaviconDatabaseError k) = k++    toEnum 0 = FaviconDatabaseErrorNotInitialized+    toEnum 1 = FaviconDatabaseErrorFaviconNotFound+    toEnum 2 = FaviconDatabaseErrorFaviconUnknown+    toEnum k = AnotherFaviconDatabaseError k++instance P.Ord FaviconDatabaseError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass FaviconDatabaseError where+    gerrorClassDomain _ = "WebKitFaviconDatabaseError"++-- | Catch exceptions of type `FaviconDatabaseError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchFaviconDatabaseError ::+    IO a ->+    (FaviconDatabaseError -> GErrorMessage -> IO a) ->+    IO a+catchFaviconDatabaseError = catchGErrorJustDomain++-- | Handle exceptions of type `FaviconDatabaseError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleFaviconDatabaseError ::+    (FaviconDatabaseError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleFaviconDatabaseError = handleGErrorJustDomain++foreign import ccall "webkit_favicon_database_error_get_type" c_webkit_favicon_database_error_get_type :: +    IO GType++instance BoxedEnum FaviconDatabaseError where+    boxedEnumType _ = c_webkit_favicon_database_error_get_type++-- Enum DownloadError+{- |+Enum values used to denote the various download errors.+-}+data DownloadError = +      DownloadErrorNetwork+    {- ^+    Download failure due to network error+    -}+    | DownloadErrorCancelledByUser+    {- ^+    Download was cancelled by user+    -}+    | DownloadErrorDestination+    {- ^+    Download failure due to destination error+    -}+    | AnotherDownloadError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum DownloadError where+    fromEnum DownloadErrorNetwork = 499+    fromEnum DownloadErrorCancelledByUser = 400+    fromEnum DownloadErrorDestination = 401+    fromEnum (AnotherDownloadError k) = k++    toEnum 499 = DownloadErrorNetwork+    toEnum 400 = DownloadErrorCancelledByUser+    toEnum 401 = DownloadErrorDestination+    toEnum k = AnotherDownloadError k++instance P.Ord DownloadError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass DownloadError where+    gerrorClassDomain _ = "WebKitDownloadError"++-- | Catch exceptions of type `DownloadError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchDownloadError ::+    IO a ->+    (DownloadError -> GErrorMessage -> IO a) ->+    IO a+catchDownloadError = catchGErrorJustDomain++-- | Handle exceptions of type `DownloadError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleDownloadError ::+    (DownloadError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleDownloadError = handleGErrorJustDomain++foreign import ccall "webkit_download_error_get_type" c_webkit_download_error_get_type :: +    IO GType++instance BoxedEnum DownloadError where+    boxedEnumType _ = c_webkit_download_error_get_type++-- Enum CredentialPersistence+{- |+Enum values representing the duration for which a credential persists.++/Since: 2.2/+-}+data CredentialPersistence = +      CredentialPersistenceNone+    {- ^+    Credential does not persist+    -}+    | CredentialPersistenceForSession+    {- ^+    Credential persists for session only+    -}+    | CredentialPersistencePermanent+    {- ^+    Credential persists permanently+    -}+    | AnotherCredentialPersistence Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum CredentialPersistence where+    fromEnum CredentialPersistenceNone = 0+    fromEnum CredentialPersistenceForSession = 1+    fromEnum CredentialPersistencePermanent = 2+    fromEnum (AnotherCredentialPersistence k) = k++    toEnum 0 = CredentialPersistenceNone+    toEnum 1 = CredentialPersistenceForSession+    toEnum 2 = CredentialPersistencePermanent+    toEnum k = AnotherCredentialPersistence k++instance P.Ord CredentialPersistence where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_credential_persistence_get_type" c_webkit_credential_persistence_get_type :: +    IO GType++instance BoxedEnum CredentialPersistence where+    boxedEnumType _ = c_webkit_credential_persistence_get_type++-- Enum CookiePersistentStorage+{- |+Enum values used to denote the cookie persistent storage types.+-}+data CookiePersistentStorage = +      CookiePersistentStorageText+    {- ^+    Cookies are stored in a text+     file in the Mozilla \"cookies.txt\" format.+    -}+    | CookiePersistentStorageSqlite+    {- ^+    Cookies are stored in a SQLite+     file in the current Mozilla format.+    -}+    | AnotherCookiePersistentStorage Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum CookiePersistentStorage where+    fromEnum CookiePersistentStorageText = 0+    fromEnum CookiePersistentStorageSqlite = 1+    fromEnum (AnotherCookiePersistentStorage k) = k++    toEnum 0 = CookiePersistentStorageText+    toEnum 1 = CookiePersistentStorageSqlite+    toEnum k = AnotherCookiePersistentStorage k++instance P.Ord CookiePersistentStorage where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_cookie_persistent_storage_get_type" c_webkit_cookie_persistent_storage_get_type :: +    IO GType++instance BoxedEnum CookiePersistentStorage where+    boxedEnumType _ = c_webkit_cookie_persistent_storage_get_type++-- Enum CookieAcceptPolicy+{- |+Enum values used to denote the cookie acceptance policies.+-}+data CookieAcceptPolicy = +      CookieAcceptPolicyAlways+    {- ^+    Accept all cookies unconditionally.+    -}+    | CookieAcceptPolicyNever+    {- ^+    Reject all cookies unconditionally.+    -}+    | CookieAcceptPolicyNoThirdParty+    {- ^+    Accept only cookies set by the main document loaded.+    -}+    | AnotherCookieAcceptPolicy Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum CookieAcceptPolicy where+    fromEnum CookieAcceptPolicyAlways = 0+    fromEnum CookieAcceptPolicyNever = 1+    fromEnum CookieAcceptPolicyNoThirdParty = 2+    fromEnum (AnotherCookieAcceptPolicy k) = k++    toEnum 0 = CookieAcceptPolicyAlways+    toEnum 1 = CookieAcceptPolicyNever+    toEnum 2 = CookieAcceptPolicyNoThirdParty+    toEnum k = AnotherCookieAcceptPolicy k++instance P.Ord CookieAcceptPolicy where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_cookie_accept_policy_get_type" c_webkit_cookie_accept_policy_get_type :: +    IO GType++instance BoxedEnum CookieAcceptPolicy where+    boxedEnumType _ = c_webkit_cookie_accept_policy_get_type++-- Enum ContextMenuAction+{- |+Enum values used to denote the stock actions for+'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem'\<!-- -->s+-}+data ContextMenuAction = +      ContextMenuActionNoAction+    {- ^+    No action, used by separator menu items.+    -}+    | ContextMenuActionOpenLink+    {- ^+    Open current link.+    -}+    | ContextMenuActionOpenLinkInNewWindow+    {- ^+    Open current link in a new window.+    -}+    | ContextMenuActionDownloadLinkToDisk+    {- ^+    Download link destination.+    -}+    | ContextMenuActionCopyLinkToClipboard+    {- ^+    Copy link location to the clipboard.+    -}+    | ContextMenuActionOpenImageInNewWindow+    {- ^+    Open current image in a new window.+    -}+    | ContextMenuActionDownloadImageToDisk+    {- ^+    Download current image.+    -}+    | ContextMenuActionCopyImageToClipboard+    {- ^+    Copy current image to the clipboard.+    -}+    | ContextMenuActionCopyImageUrlToClipboard+    {- ^+    Copy current image location to the clipboard.+    -}+    | ContextMenuActionOpenFrameInNewWindow+    {- ^+    Open current frame in a new window.+    -}+    | ContextMenuActionGoBack+    {- ^+    Load the previous history item.+    -}+    | ContextMenuActionGoForward+    {- ^+    Load the next history item.+    -}+    | ContextMenuActionStop+    {- ^+    Stop any ongoing loading operation.+    -}+    | ContextMenuActionReload+    {- ^+    Reload the contents of current view.+    -}+    | ContextMenuActionCopy+    {- ^+    Copy current selection the clipboard.+    -}+    | ContextMenuActionCut+    {- ^+    Cut current selection to the clipboard.+    -}+    | ContextMenuActionPaste+    {- ^+    Paste clipboard contents.+    -}+    | ContextMenuActionDelete+    {- ^+    Delete current selection.+    -}+    | ContextMenuActionSelectAll+    {- ^+    Select all text.+    -}+    | ContextMenuActionInputMethods+    {- ^+    Input methods menu.+    -}+    | ContextMenuActionUnicode+    {- ^+    Unicode menu.+    -}+    | ContextMenuActionSpellingGuess+    {- ^+    A proposed replacement for a misspelled word.+    -}+    | ContextMenuActionNoGuessesFound+    {- ^+    An indicator that spellchecking found no proposed replacements.+    -}+    | ContextMenuActionIgnoreSpelling+    {- ^+    Causes the spellchecker to ignore the word for this session.+    -}+    | ContextMenuActionLearnSpelling+    {- ^+    Causes the spellchecker to add the word to the dictionary.+    -}+    | ContextMenuActionIgnoreGrammar+    {- ^+    Ignore grammar.+    -}+    | ContextMenuActionFontMenu+    {- ^+    Font options menu.+    -}+    | ContextMenuActionBold+    {- ^+    Bold.+    -}+    | ContextMenuActionItalic+    {- ^+    Italic.+    -}+    | ContextMenuActionUnderline+    {- ^+    Underline.+    -}+    | ContextMenuActionOutline+    {- ^+    Outline.+    -}+    | ContextMenuActionInspectElement+    {- ^+    Open current element in the inspector.+    -}+    | ContextMenuActionOpenVideoInNewWindow+    {- ^+    Open current video element in a new window.+    -}+    | ContextMenuActionOpenAudioInNewWindow+    {- ^+    Open current audio element in a new window.+    -}+    | ContextMenuActionCopyVideoLinkToClipboard+    {- ^+    Copy video link location in to the clipboard.+    -}+    | ContextMenuActionCopyAudioLinkToClipboard+    {- ^+    Copy audio link location in to the clipboard.+    -}+    | ContextMenuActionToggleMediaControls+    {- ^+    Enable or disable media controls.+    -}+    | ContextMenuActionToggleMediaLoop+    {- ^+    Enable or disable media loop.+    -}+    | ContextMenuActionEnterVideoFullscreen+    {- ^+    Show current video element in fullscreen mode.+    -}+    | ContextMenuActionMediaPlay+    {- ^+    Play current media element.+    -}+    | ContextMenuActionMediaPause+    {- ^+    Pause current media element.+    -}+    | ContextMenuActionMediaMute+    {- ^+    Mute current media element.+    -}+    | ContextMenuActionDownloadVideoToDisk+    {- ^+    Download video to disk. Since 2.2+    -}+    | ContextMenuActionDownloadAudioToDisk+    {- ^+    Download audio to disk. Since 2.2+    -}+    | ContextMenuActionCustom+    {- ^+    Custom action defined by applications.+    -}+    | AnotherContextMenuAction Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ContextMenuAction where+    fromEnum ContextMenuActionNoAction = 0+    fromEnum ContextMenuActionOpenLink = 1+    fromEnum ContextMenuActionOpenLinkInNewWindow = 2+    fromEnum ContextMenuActionDownloadLinkToDisk = 3+    fromEnum ContextMenuActionCopyLinkToClipboard = 4+    fromEnum ContextMenuActionOpenImageInNewWindow = 5+    fromEnum ContextMenuActionDownloadImageToDisk = 6+    fromEnum ContextMenuActionCopyImageToClipboard = 7+    fromEnum ContextMenuActionCopyImageUrlToClipboard = 8+    fromEnum ContextMenuActionOpenFrameInNewWindow = 9+    fromEnum ContextMenuActionGoBack = 10+    fromEnum ContextMenuActionGoForward = 11+    fromEnum ContextMenuActionStop = 12+    fromEnum ContextMenuActionReload = 13+    fromEnum ContextMenuActionCopy = 14+    fromEnum ContextMenuActionCut = 15+    fromEnum ContextMenuActionPaste = 16+    fromEnum ContextMenuActionDelete = 17+    fromEnum ContextMenuActionSelectAll = 18+    fromEnum ContextMenuActionInputMethods = 19+    fromEnum ContextMenuActionUnicode = 20+    fromEnum ContextMenuActionSpellingGuess = 21+    fromEnum ContextMenuActionNoGuessesFound = 22+    fromEnum ContextMenuActionIgnoreSpelling = 23+    fromEnum ContextMenuActionLearnSpelling = 24+    fromEnum ContextMenuActionIgnoreGrammar = 25+    fromEnum ContextMenuActionFontMenu = 26+    fromEnum ContextMenuActionBold = 27+    fromEnum ContextMenuActionItalic = 28+    fromEnum ContextMenuActionUnderline = 29+    fromEnum ContextMenuActionOutline = 30+    fromEnum ContextMenuActionInspectElement = 31+    fromEnum ContextMenuActionOpenVideoInNewWindow = 32+    fromEnum ContextMenuActionOpenAudioInNewWindow = 33+    fromEnum ContextMenuActionCopyVideoLinkToClipboard = 34+    fromEnum ContextMenuActionCopyAudioLinkToClipboard = 35+    fromEnum ContextMenuActionToggleMediaControls = 36+    fromEnum ContextMenuActionToggleMediaLoop = 37+    fromEnum ContextMenuActionEnterVideoFullscreen = 38+    fromEnum ContextMenuActionMediaPlay = 39+    fromEnum ContextMenuActionMediaPause = 40+    fromEnum ContextMenuActionMediaMute = 41+    fromEnum ContextMenuActionDownloadVideoToDisk = 42+    fromEnum ContextMenuActionDownloadAudioToDisk = 43+    fromEnum ContextMenuActionCustom = 10000+    fromEnum (AnotherContextMenuAction k) = k++    toEnum 0 = ContextMenuActionNoAction+    toEnum 1 = ContextMenuActionOpenLink+    toEnum 2 = ContextMenuActionOpenLinkInNewWindow+    toEnum 3 = ContextMenuActionDownloadLinkToDisk+    toEnum 4 = ContextMenuActionCopyLinkToClipboard+    toEnum 5 = ContextMenuActionOpenImageInNewWindow+    toEnum 6 = ContextMenuActionDownloadImageToDisk+    toEnum 7 = ContextMenuActionCopyImageToClipboard+    toEnum 8 = ContextMenuActionCopyImageUrlToClipboard+    toEnum 9 = ContextMenuActionOpenFrameInNewWindow+    toEnum 10 = ContextMenuActionGoBack+    toEnum 11 = ContextMenuActionGoForward+    toEnum 12 = ContextMenuActionStop+    toEnum 13 = ContextMenuActionReload+    toEnum 14 = ContextMenuActionCopy+    toEnum 15 = ContextMenuActionCut+    toEnum 16 = ContextMenuActionPaste+    toEnum 17 = ContextMenuActionDelete+    toEnum 18 = ContextMenuActionSelectAll+    toEnum 19 = ContextMenuActionInputMethods+    toEnum 20 = ContextMenuActionUnicode+    toEnum 21 = ContextMenuActionSpellingGuess+    toEnum 22 = ContextMenuActionNoGuessesFound+    toEnum 23 = ContextMenuActionIgnoreSpelling+    toEnum 24 = ContextMenuActionLearnSpelling+    toEnum 25 = ContextMenuActionIgnoreGrammar+    toEnum 26 = ContextMenuActionFontMenu+    toEnum 27 = ContextMenuActionBold+    toEnum 28 = ContextMenuActionItalic+    toEnum 29 = ContextMenuActionUnderline+    toEnum 30 = ContextMenuActionOutline+    toEnum 31 = ContextMenuActionInspectElement+    toEnum 32 = ContextMenuActionOpenVideoInNewWindow+    toEnum 33 = ContextMenuActionOpenAudioInNewWindow+    toEnum 34 = ContextMenuActionCopyVideoLinkToClipboard+    toEnum 35 = ContextMenuActionCopyAudioLinkToClipboard+    toEnum 36 = ContextMenuActionToggleMediaControls+    toEnum 37 = ContextMenuActionToggleMediaLoop+    toEnum 38 = ContextMenuActionEnterVideoFullscreen+    toEnum 39 = ContextMenuActionMediaPlay+    toEnum 40 = ContextMenuActionMediaPause+    toEnum 41 = ContextMenuActionMediaMute+    toEnum 42 = ContextMenuActionDownloadVideoToDisk+    toEnum 43 = ContextMenuActionDownloadAudioToDisk+    toEnum 10000 = ContextMenuActionCustom+    toEnum k = AnotherContextMenuAction k++instance P.Ord ContextMenuAction where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_context_menu_action_get_type" c_webkit_context_menu_action_get_type :: +    IO GType++instance BoxedEnum ContextMenuAction where+    boxedEnumType _ = c_webkit_context_menu_action_get_type++-- Enum CacheModel+{- |+Enum values used for determining the 'GI.WebKit2.Objects.WebContext.WebContext' cache model.+-}+data CacheModel = +      CacheModelDocumentViewer+    {- ^+    Disable the cache completely, which+      substantially reduces memory usage. Useful for applications that only+      access a single local file, with no navigation to other pages. No remote+      resources will be cached.+    -}+    | CacheModelWebBrowser+    {- ^+    Improve document load speed substantially+      by caching a very large number of resources and previously viewed content.+    -}+    | CacheModelDocumentBrowser+    {- ^+    A cache model optimized for viewing+      a series of local files -- for example, a documentation viewer or a website+      designer. WebKit will cache a moderate number of resources.+    -}+    | AnotherCacheModel Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum CacheModel where+    fromEnum CacheModelDocumentViewer = 0+    fromEnum CacheModelWebBrowser = 1+    fromEnum CacheModelDocumentBrowser = 2+    fromEnum (AnotherCacheModel k) = k++    toEnum 0 = CacheModelDocumentViewer+    toEnum 1 = CacheModelWebBrowser+    toEnum 2 = CacheModelDocumentBrowser+    toEnum k = AnotherCacheModel k++instance P.Ord CacheModel where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_cache_model_get_type" c_webkit_cache_model_get_type :: +    IO GType++instance BoxedEnum CacheModel where+    boxedEnumType _ = c_webkit_cache_model_get_type++-- Enum AuthenticationScheme+{- |+Enum values representing the authentication scheme.++/Since: 2.2/+-}+data AuthenticationScheme = +      AuthenticationSchemeDefault+    {- ^+    The default authentication scheme of WebKit.+    -}+    | AuthenticationSchemeHttpBasic+    {- ^+    Basic authentication scheme as defined in RFC 2617.+    -}+    | AuthenticationSchemeHttpDigest+    {- ^+    Digest authentication scheme as defined in RFC 2617.+    -}+    | AuthenticationSchemeHtmlForm+    {- ^+    HTML Form authentication.+    -}+    | AuthenticationSchemeNtlm+    {- ^+    NTLM Microsoft proprietary authentication scheme.+    -}+    | AuthenticationSchemeNegotiate+    {- ^+    Negotiate (or SPNEGO) authentication scheme as defined in RFC 4559.+    -}+    | AuthenticationSchemeClientCertificateRequested+    {- ^+    Client Certificate Authentication (see RFC 2246).+    -}+    | AuthenticationSchemeServerTrustEvaluationRequested+    {- ^+    Server Trust Authentication.+    -}+    | AuthenticationSchemeUnknown+    {- ^+    Authentication scheme unknown.+    -}+    | AnotherAuthenticationScheme Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AuthenticationScheme where+    fromEnum AuthenticationSchemeDefault = 1+    fromEnum AuthenticationSchemeHttpBasic = 2+    fromEnum AuthenticationSchemeHttpDigest = 3+    fromEnum AuthenticationSchemeHtmlForm = 4+    fromEnum AuthenticationSchemeNtlm = 5+    fromEnum AuthenticationSchemeNegotiate = 6+    fromEnum AuthenticationSchemeClientCertificateRequested = 7+    fromEnum AuthenticationSchemeServerTrustEvaluationRequested = 8+    fromEnum AuthenticationSchemeUnknown = 100+    fromEnum (AnotherAuthenticationScheme k) = k++    toEnum 1 = AuthenticationSchemeDefault+    toEnum 2 = AuthenticationSchemeHttpBasic+    toEnum 3 = AuthenticationSchemeHttpDigest+    toEnum 4 = AuthenticationSchemeHtmlForm+    toEnum 5 = AuthenticationSchemeNtlm+    toEnum 6 = AuthenticationSchemeNegotiate+    toEnum 7 = AuthenticationSchemeClientCertificateRequested+    toEnum 8 = AuthenticationSchemeServerTrustEvaluationRequested+    toEnum 100 = AuthenticationSchemeUnknown+    toEnum k = AnotherAuthenticationScheme k++instance P.Ord AuthenticationScheme where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_authentication_scheme_get_type" c_webkit_authentication_scheme_get_type :: +    IO GType++instance BoxedEnum AuthenticationScheme where+    boxedEnumType _ = c_webkit_authentication_scheme_get_type++
+ GI/WebKit2/Enums.hs-boot view
@@ -0,0 +1,117 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Enums 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++data WebProcessTerminationReason+instance P.Enum WebProcessTerminationReason where+instance BoxedEnum WebProcessTerminationReason where+data UserStyleLevel+instance P.Enum UserStyleLevel where+instance BoxedEnum UserStyleLevel where+data UserScriptInjectionTime+instance P.Enum UserScriptInjectionTime where+instance BoxedEnum UserScriptInjectionTime where+data UserContentInjectedFrames+instance P.Enum UserContentInjectedFrames where+instance BoxedEnum UserContentInjectedFrames where+data UserContentFilterError+instance P.Enum UserContentFilterError where+instance BoxedEnum UserContentFilterError where+data TLSErrorsPolicy+instance P.Enum TLSErrorsPolicy where+instance BoxedEnum TLSErrorsPolicy where+data SnapshotRegion+instance P.Enum SnapshotRegion where+instance BoxedEnum SnapshotRegion where+data SnapshotError+instance P.Enum SnapshotError where+instance BoxedEnum SnapshotError where+data ScriptDialogType+instance P.Enum ScriptDialogType where+instance BoxedEnum ScriptDialogType where+data SaveMode+instance P.Enum SaveMode where+instance BoxedEnum SaveMode where+data ProcessModel+instance P.Enum ProcessModel where+instance BoxedEnum ProcessModel where+data PrintOperationResponse+instance P.Enum PrintOperationResponse where+instance BoxedEnum PrintOperationResponse where+data PrintError+instance P.Enum PrintError where+instance BoxedEnum PrintError where+data PolicyError+instance P.Enum PolicyError where+instance BoxedEnum PolicyError where+data PolicyDecisionType+instance P.Enum PolicyDecisionType where+instance BoxedEnum PolicyDecisionType where+data PluginError+instance P.Enum PluginError where+instance BoxedEnum PluginError where+data NetworkProxyMode+instance P.Enum NetworkProxyMode where+instance BoxedEnum NetworkProxyMode where+data NetworkError+instance P.Enum NetworkError where+instance BoxedEnum NetworkError where+data NavigationType+instance P.Enum NavigationType where+instance BoxedEnum NavigationType where+data LoadEvent+instance P.Enum LoadEvent where+instance BoxedEnum LoadEvent where+data JavascriptError+instance P.Enum JavascriptError where+instance BoxedEnum JavascriptError where+data InsecureContentEvent+instance P.Enum InsecureContentEvent where+instance BoxedEnum InsecureContentEvent where+data HardwareAccelerationPolicy+instance P.Enum HardwareAccelerationPolicy where+instance BoxedEnum HardwareAccelerationPolicy where+data FaviconDatabaseError+instance P.Enum FaviconDatabaseError where+instance BoxedEnum FaviconDatabaseError where+data DownloadError+instance P.Enum DownloadError where+instance BoxedEnum DownloadError where+data CredentialPersistence+instance P.Enum CredentialPersistence where+instance BoxedEnum CredentialPersistence where+data CookiePersistentStorage+instance P.Enum CookiePersistentStorage where+instance BoxedEnum CookiePersistentStorage where+data CookieAcceptPolicy+instance P.Enum CookieAcceptPolicy where+instance BoxedEnum CookieAcceptPolicy where+data ContextMenuAction+instance P.Enum ContextMenuAction where+instance BoxedEnum ContextMenuAction where+data CacheModel+instance P.Enum CacheModel where+instance BoxedEnum CacheModel where+data AuthenticationScheme+instance P.Enum AuthenticationScheme where+instance BoxedEnum AuthenticationScheme where
+ GI/WebKit2/Flags.hs view
@@ -0,0 +1,394 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Flags+    ( ++ -- * Flags+-- ** EditorTypingAttributes #flag:EditorTypingAttributes#++    EditorTypingAttributes(..)              ,+++-- ** FindOptions #flag:FindOptions#++    FindOptions(..)                         ,+++-- ** HitTestResultContext #flag:HitTestResultContext#++    HitTestResultContext(..)                ,+++-- ** SnapshotOptions #flag:SnapshotOptions#++    SnapshotOptions(..)                     ,+++-- ** WebsiteDataTypes #flag:WebsiteDataTypes#++    WebsiteDataTypes(..)                    ,+++++    ) 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+++-- Flags WebsiteDataTypes+{- |+Enum values with flags representing types of Website data.++/Since: 2.16/+-}+data WebsiteDataTypes = +      WebsiteDataTypesMemoryCache+    {- ^+    Memory cache.+    -}+    | WebsiteDataTypesDiskCache+    {- ^+    HTTP disk cache.+    -}+    | WebsiteDataTypesOfflineApplicationCache+    {- ^+    Offline web application cache.+    -}+    | WebsiteDataTypesSessionStorage+    {- ^+    Session storage data.+    -}+    | WebsiteDataTypesLocalStorage+    {- ^+    Local storage data.+    -}+    | WebsiteDataTypesWebsqlDatabases+    {- ^+    WebSQL databases.+    -}+    | WebsiteDataTypesIndexeddbDatabases+    {- ^+    IndexedDB databases.+    -}+    | WebsiteDataTypesPluginData+    {- ^+    Plugins data.+    -}+    | WebsiteDataTypesCookies+    {- ^+    Cookies.+    -}+    | WebsiteDataTypesDeviceIdHashSalt+    {- ^+    Hash salt used to generate the device ids used by webpages. Since 2.24+    -}+    | WebsiteDataTypesAll+    {- ^+    All types.+    -}+    | AnotherWebsiteDataTypes Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum WebsiteDataTypes where+    fromEnum WebsiteDataTypesMemoryCache = 1+    fromEnum WebsiteDataTypesDiskCache = 2+    fromEnum WebsiteDataTypesOfflineApplicationCache = 4+    fromEnum WebsiteDataTypesSessionStorage = 8+    fromEnum WebsiteDataTypesLocalStorage = 16+    fromEnum WebsiteDataTypesWebsqlDatabases = 32+    fromEnum WebsiteDataTypesIndexeddbDatabases = 64+    fromEnum WebsiteDataTypesPluginData = 128+    fromEnum WebsiteDataTypesCookies = 256+    fromEnum WebsiteDataTypesDeviceIdHashSalt = 512+    fromEnum WebsiteDataTypesAll = 1023+    fromEnum (AnotherWebsiteDataTypes k) = k++    toEnum 1 = WebsiteDataTypesMemoryCache+    toEnum 2 = WebsiteDataTypesDiskCache+    toEnum 4 = WebsiteDataTypesOfflineApplicationCache+    toEnum 8 = WebsiteDataTypesSessionStorage+    toEnum 16 = WebsiteDataTypesLocalStorage+    toEnum 32 = WebsiteDataTypesWebsqlDatabases+    toEnum 64 = WebsiteDataTypesIndexeddbDatabases+    toEnum 128 = WebsiteDataTypesPluginData+    toEnum 256 = WebsiteDataTypesCookies+    toEnum 512 = WebsiteDataTypesDeviceIdHashSalt+    toEnum 1023 = WebsiteDataTypesAll+    toEnum k = AnotherWebsiteDataTypes k++instance P.Ord WebsiteDataTypes where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_website_data_types_get_type" c_webkit_website_data_types_get_type :: +    IO GType++instance BoxedFlags WebsiteDataTypes where+    boxedFlagsType _ = c_webkit_website_data_types_get_type++instance IsGFlag WebsiteDataTypes++-- Flags SnapshotOptions+{- |+Enum values used to specify options when taking a snapshot+from a 'GI.WebKit2.Objects.WebView.WebView'.+-}+data SnapshotOptions = +      SnapshotOptionsNone+    {- ^+    Do not include any special options.+    -}+    | SnapshotOptionsIncludeSelectionHighlighting+    {- ^+    Whether to include in the+    snapshot the highlight of the selected content.+    -}+    | SnapshotOptionsTransparentBackground+    {- ^+    Do not fill the background with white before+    rendering the snapshot. Since 2.8+    -}+    | AnotherSnapshotOptions Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SnapshotOptions where+    fromEnum SnapshotOptionsNone = 0+    fromEnum SnapshotOptionsIncludeSelectionHighlighting = 1+    fromEnum SnapshotOptionsTransparentBackground = 2+    fromEnum (AnotherSnapshotOptions k) = k++    toEnum 0 = SnapshotOptionsNone+    toEnum 1 = SnapshotOptionsIncludeSelectionHighlighting+    toEnum 2 = SnapshotOptionsTransparentBackground+    toEnum k = AnotherSnapshotOptions k++instance P.Ord SnapshotOptions where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_snapshot_options_get_type" c_webkit_snapshot_options_get_type :: +    IO GType++instance BoxedFlags SnapshotOptions where+    boxedFlagsType _ = c_webkit_snapshot_options_get_type++instance IsGFlag SnapshotOptions++-- Flags HitTestResultContext+{- |+Enum values with flags representing the context of a 'GI.WebKit2.Objects.HitTestResult.HitTestResult'.+-}+data HitTestResultContext = +      HitTestResultContextDocument+    {- ^+    anywhere in the document.+    -}+    | HitTestResultContextLink+    {- ^+    a hyperlink element.+    -}+    | HitTestResultContextImage+    {- ^+    an image element.+    -}+    | HitTestResultContextMedia+    {- ^+    a video or audio element.+    -}+    | HitTestResultContextEditable+    {- ^+    an editable element+    -}+    | HitTestResultContextScrollbar+    {- ^+    a scrollbar element.+    -}+    | HitTestResultContextSelection+    {- ^+    a selected element. Since 2.8+    -}+    | AnotherHitTestResultContext Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum HitTestResultContext where+    fromEnum HitTestResultContextDocument = 2+    fromEnum HitTestResultContextLink = 4+    fromEnum HitTestResultContextImage = 8+    fromEnum HitTestResultContextMedia = 16+    fromEnum HitTestResultContextEditable = 32+    fromEnum HitTestResultContextScrollbar = 64+    fromEnum HitTestResultContextSelection = 128+    fromEnum (AnotherHitTestResultContext k) = k++    toEnum 2 = HitTestResultContextDocument+    toEnum 4 = HitTestResultContextLink+    toEnum 8 = HitTestResultContextImage+    toEnum 16 = HitTestResultContextMedia+    toEnum 32 = HitTestResultContextEditable+    toEnum 64 = HitTestResultContextScrollbar+    toEnum 128 = HitTestResultContextSelection+    toEnum k = AnotherHitTestResultContext k++instance P.Ord HitTestResultContext where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type :: +    IO GType++instance BoxedFlags HitTestResultContext where+    boxedFlagsType _ = c_webkit_hit_test_result_context_get_type++instance IsGFlag HitTestResultContext++-- Flags FindOptions+{- |+Enum values used to specify search options.+-}+data FindOptions = +      FindOptionsNone+    {- ^+    no search flags, this means a case+      sensitive, no wrap, forward only search.+    -}+    | FindOptionsCaseInsensitive+    {- ^+    case insensitive search.+    -}+    | FindOptionsAtWordStarts+    {- ^+    search text only at the+      begining of the words.+    -}+    | FindOptionsTreatMedialCapitalAsWordStart+    {- ^+    treat+      capital letters in the middle of words as word start.+    -}+    | FindOptionsBackwards+    {- ^+    search backwards.+    -}+    | FindOptionsWrapAround+    {- ^+    if not present search will stop+      at the end of the document.+    -}+    | AnotherFindOptions Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FindOptions where+    fromEnum FindOptionsNone = 0+    fromEnum FindOptionsCaseInsensitive = 1+    fromEnum FindOptionsAtWordStarts = 2+    fromEnum FindOptionsTreatMedialCapitalAsWordStart = 4+    fromEnum FindOptionsBackwards = 8+    fromEnum FindOptionsWrapAround = 16+    fromEnum (AnotherFindOptions k) = k++    toEnum 0 = FindOptionsNone+    toEnum 1 = FindOptionsCaseInsensitive+    toEnum 2 = FindOptionsAtWordStarts+    toEnum 4 = FindOptionsTreatMedialCapitalAsWordStart+    toEnum 8 = FindOptionsBackwards+    toEnum 16 = FindOptionsWrapAround+    toEnum k = AnotherFindOptions k++instance P.Ord FindOptions where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_find_options_get_type" c_webkit_find_options_get_type :: +    IO GType++instance BoxedFlags FindOptions where+    boxedFlagsType _ = c_webkit_find_options_get_type++instance IsGFlag FindOptions++-- Flags EditorTypingAttributes+{- |+Enum values with flags representing typing attributes.++/Since: 2.10/+-}+data EditorTypingAttributes = +      EditorTypingAttributesNone+    {- ^+    No typing attributes.+    -}+    | EditorTypingAttributesBold+    {- ^+    Bold typing attribute.+    -}+    | EditorTypingAttributesItalic+    {- ^+    Italic typing attribute.+    -}+    | EditorTypingAttributesUnderline+    {- ^+    Underline typing attribute.+    -}+    | EditorTypingAttributesStrikethrough+    {- ^+    Strikethrough typing attribute.+    -}+    | AnotherEditorTypingAttributes Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum EditorTypingAttributes where+    fromEnum EditorTypingAttributesNone = 2+    fromEnum EditorTypingAttributesBold = 4+    fromEnum EditorTypingAttributesItalic = 8+    fromEnum EditorTypingAttributesUnderline = 16+    fromEnum EditorTypingAttributesStrikethrough = 32+    fromEnum (AnotherEditorTypingAttributes k) = k++    toEnum 2 = EditorTypingAttributesNone+    toEnum 4 = EditorTypingAttributesBold+    toEnum 8 = EditorTypingAttributesItalic+    toEnum 16 = EditorTypingAttributesUnderline+    toEnum 32 = EditorTypingAttributesStrikethrough+    toEnum k = AnotherEditorTypingAttributes k++instance P.Ord EditorTypingAttributes where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "webkit_editor_typing_attributes_get_type" c_webkit_editor_typing_attributes_get_type :: +    IO GType++instance BoxedFlags EditorTypingAttributes where+    boxedFlagsType _ = c_webkit_editor_typing_attributes_get_type++instance IsGFlag EditorTypingAttributes++
+ GI/WebKit2/Flags.hs-boot view
@@ -0,0 +1,44 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Flags 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++data WebsiteDataTypes+instance P.Enum WebsiteDataTypes where+instance BoxedFlags WebsiteDataTypes where+instance IsGFlag WebsiteDataTypes+data SnapshotOptions+instance P.Enum SnapshotOptions where+instance BoxedFlags SnapshotOptions where+instance IsGFlag SnapshotOptions+data HitTestResultContext+instance P.Enum HitTestResultContext where+instance BoxedFlags HitTestResultContext where+instance IsGFlag HitTestResultContext+data FindOptions+instance P.Enum FindOptions where+instance BoxedFlags FindOptions where+instance IsGFlag FindOptions+data EditorTypingAttributes+instance P.Enum EditorTypingAttributes where+instance BoxedFlags EditorTypingAttributes where+instance IsGFlag EditorTypingAttributes
+ GI/WebKit2/Functions.hs view
@@ -0,0 +1,254 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Functions+    ( ++ -- * Methods+-- ** getMajorVersion #method:getMajorVersion#++    getMajorVersion                         ,+++-- ** getMicroVersion #method:getMicroVersion#++    getMicroVersion                         ,+++-- ** getMinorVersion #method:getMinorVersion#++    getMinorVersion                         ,+++-- ** uriForDisplay #method:uriForDisplay#++    uriForDisplay                           ,+++-- ** userMediaPermissionIsForAudioDevice #method:userMediaPermissionIsForAudioDevice#++    userMediaPermissionIsForAudioDevice     ,+++-- ** userMediaPermissionIsForVideoDevice #method:userMediaPermissionIsForVideoDevice#++    userMediaPermissionIsForVideoDevice     ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Objects.UserMediaPermissionRequest as WebKit2.UserMediaPermissionRequest++-- function webkit_user_media_permission_is_for_video_device+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "UserMediaPermissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserMediaPermissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_media_permission_is_for_video_device" webkit_user_media_permission_is_for_video_device :: +    Ptr WebKit2.UserMediaPermissionRequest.UserMediaPermissionRequest -> -- request : TInterface (Name {namespace = "WebKit2", name = "UserMediaPermissionRequest"})+    IO CInt++{- |+/No description available in the introspection data./++/Since: 2.8/+-}+userMediaPermissionIsForVideoDevice ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.UserMediaPermissionRequest.IsUserMediaPermissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if access to a video device was requested. -}+userMediaPermissionIsForVideoDevice request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_user_media_permission_is_for_video_device request'+    let result' = (/= 0) result+    touchManagedPtr request+    return result'+++-- function webkit_user_media_permission_is_for_audio_device+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "UserMediaPermissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserMediaPermissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_media_permission_is_for_audio_device" webkit_user_media_permission_is_for_audio_device :: +    Ptr WebKit2.UserMediaPermissionRequest.UserMediaPermissionRequest -> -- request : TInterface (Name {namespace = "WebKit2", name = "UserMediaPermissionRequest"})+    IO CInt++{- |+/No description available in the introspection data./++/Since: 2.8/+-}+userMediaPermissionIsForAudioDevice ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.UserMediaPermissionRequest.IsUserMediaPermissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.UserMediaPermissionRequest.UserMediaPermissionRequest' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if access to an audio device was requested. -}+userMediaPermissionIsForAudioDevice request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_user_media_permission_is_for_audio_device request'+    let result' = (/= 0) result+    touchManagedPtr request+    return result'+++-- function webkit_uri_for_display+-- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to be converted", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_for_display" webkit_uri_for_display :: +    CString ->                              -- uri : TBasicType TUTF8+    IO CString++{- |+Use this function to format a URI for display. The URIs used internally by+WebKit may contain percent-encoded characters or Punycode, which are not+generally suitable to display to users. This function provides protection+against IDN homograph attacks, so in some cases the host part of the returned+URI may be in Punycode if the safety check fails.++/Since: 2.24/+-}+uriForDisplay ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@uri@/: the URI to be converted -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ /@uri@/ suitable for display, or 'Nothing' in+   case of error. -}+uriForDisplay uri = liftIO $ do+    uri' <- textToCString uri+    result <- webkit_uri_for_display uri'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''+    freeMem uri'+    return maybeResult+++-- function webkit_get_minor_version+-- Args : []+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_get_minor_version" webkit_get_minor_version :: +    IO Word32++{- |+Returns the minor version number of the WebKit library.+(e.g. in WebKit version 1.8.3 this is 8.)++This function is in the library, so it represents the WebKit library+your code is running against. Contrast with the 'GI.WebKit2.Constants.MINOR_VERSION'+macro, which represents the minor version of the WebKit headers you+have included when compiling your code.+-}+getMinorVersion ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m Word32+    {- ^ __Returns:__ the minor version number of the WebKit library -}+getMinorVersion  = liftIO $ do+    result <- webkit_get_minor_version+    return result+++-- function webkit_get_micro_version+-- Args : []+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_get_micro_version" webkit_get_micro_version :: +    IO Word32++{- |+Returns the micro version number of the WebKit library.+(e.g. in WebKit version 1.8.3 this is 3.)++This function is in the library, so it represents the WebKit library+your code is running against. Contrast with the 'GI.WebKit2.Constants.MICRO_VERSION'+macro, which represents the micro version of the WebKit headers you+have included when compiling your code.+-}+getMicroVersion ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m Word32+    {- ^ __Returns:__ the micro version number of the WebKit library -}+getMicroVersion  = liftIO $ do+    result <- webkit_get_micro_version+    return result+++-- function webkit_get_major_version+-- Args : []+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_get_major_version" webkit_get_major_version :: +    IO Word32++{- |+Returns the major version number of the WebKit library.+(e.g. in WebKit version 1.8.3 this is 1.)++This function is in the library, so it represents the WebKit library+your code is running against. Contrast with the 'GI.WebKit2.Constants.MAJOR_VERSION'+macro, which represents the major version of the WebKit headers you+have included when compiling your code.+-}+getMajorVersion ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m Word32+    {- ^ __Returns:__ the major version number of the WebKit library -}+getMajorVersion  = liftIO $ do+    result <- webkit_get_major_version+    return result+++
+ GI/WebKit2/Interfaces.hs view
@@ -0,0 +1,41 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Interfaces+    (     module GI.WebKit2.Interfaces.PermissionRequest,+++    ) where++import GI.WebKit2.Interfaces.PermissionRequest++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+++
+ GI/WebKit2/Interfaces/PermissionRequest.hs view
@@ -0,0 +1,209 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Interfaces.PermissionRequest+    ( ++-- * Exported types+    PermissionRequest(..)                   ,+    noPermissionRequest                     ,+    IsPermissionRequest                     ,+    toPermissionRequest                     ,+++ -- * Methods+-- ** allow #method:allow#++#if ENABLE_OVERLOADING+    PermissionRequestAllowMethodInfo        ,+#endif+    permissionRequestAllow                  ,+++-- ** deny #method:deny#++#if ENABLE_OVERLOADING+    PermissionRequestDenyMethodInfo         ,+#endif+    permissionRequestDeny                   ,+++++    ) 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.GObject.Objects.Object as GObject.Object++-- interface PermissionRequest +-- | Memory-managed wrapper type.+newtype PermissionRequest = PermissionRequest (ManagedPtr PermissionRequest)+-- | A convenience alias for `Nothing` :: `Maybe` `PermissionRequest`.+noPermissionRequest :: Maybe PermissionRequest+noPermissionRequest = Nothing++#if ENABLE_OVERLOADING+type instance O.SignalList PermissionRequest = PermissionRequestSignalList+type PermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++foreign import ccall "webkit_permission_request_get_type"+    c_webkit_permission_request_get_type :: IO GType++instance GObject PermissionRequest where+    gobjectType = c_webkit_permission_request_get_type+    ++-- | Type class for types which can be safely cast to `PermissionRequest`, for instance with `toPermissionRequest`.+class (GObject o, O.IsDescendantOf PermissionRequest o) => IsPermissionRequest o+instance (GObject o, O.IsDescendantOf PermissionRequest o) => IsPermissionRequest o++instance O.HasParentTypes PermissionRequest+type instance O.ParentTypes PermissionRequest = '[GObject.Object.Object]++-- | Cast to `PermissionRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toPermissionRequest :: (MonadIO m, IsPermissionRequest o) => o -> m PermissionRequest+toPermissionRequest = liftIO . unsafeCastTo PermissionRequest++#if ENABLE_OVERLOADING+instance O.HasAttributeList PermissionRequest+type instance O.AttributeList PermissionRequest = PermissionRequestAttributeList+type PermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type family ResolvePermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolvePermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo+    ResolvePermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolvePermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolvePermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo+    ResolvePermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolvePermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolvePermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolvePermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolvePermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolvePermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolvePermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolvePermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolvePermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolvePermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolvePermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolvePermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolvePermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolvePermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolvePermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolvePermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolvePermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolvePermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolvePermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolvePermissionRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, O.MethodInfo info PermissionRequest p) => OL.IsLabel t (PermissionRequest -> 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++-- method PermissionRequest::allow+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "PermissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPermissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_permission_request_allow" webkit_permission_request_allow :: +    Ptr PermissionRequest ->                -- request : TInterface (Name {namespace = "WebKit2", name = "PermissionRequest"})+    IO ()++{- |+Allow the action which triggered this request.+-}+permissionRequestAllow ::+    (B.CallStack.HasCallStack, MonadIO m, IsPermissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' -}+    -> m ()+permissionRequestAllow request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    webkit_permission_request_allow request'+    touchManagedPtr request+    return ()++#if ENABLE_OVERLOADING+data PermissionRequestAllowMethodInfo+instance (signature ~ (m ()), MonadIO m, IsPermissionRequest a) => O.MethodInfo PermissionRequestAllowMethodInfo a signature where+    overloadedMethod _ = permissionRequestAllow++#endif++-- method PermissionRequest::deny+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "PermissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPermissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_permission_request_deny" webkit_permission_request_deny :: +    Ptr PermissionRequest ->                -- request : TInterface (Name {namespace = "WebKit2", name = "PermissionRequest"})+    IO ()++{- |+Deny the action which triggered this request.+-}+permissionRequestDeny ::+    (B.CallStack.HasCallStack, MonadIO m, IsPermissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' -}+    -> m ()+permissionRequestDeny request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    webkit_permission_request_deny request'+    touchManagedPtr request+    return ()++#if ENABLE_OVERLOADING+data PermissionRequestDenyMethodInfo+instance (signature ~ (m ()), MonadIO m, IsPermissionRequest a) => O.MethodInfo PermissionRequestDenyMethodInfo a signature where+    overloadedMethod _ = permissionRequestDeny++#endif++
+ GI/WebKit2/Interfaces/PermissionRequest.hs-boot view
@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Interfaces.PermissionRequest 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++newtype PermissionRequest = PermissionRequest (ManagedPtr PermissionRequest)+instance GObject PermissionRequest where+class (GObject o, O.IsDescendantOf PermissionRequest o) => IsPermissionRequest o+instance (GObject o, O.IsDescendantOf PermissionRequest o) => IsPermissionRequest o+instance O.HasParentTypes PermissionRequest+#if ENABLE_OVERLOADING+data PermissionRequestAllowMethodInfo+#endif+#if ENABLE_OVERLOADING+data PermissionRequestDenyMethodInfo+#endif
+ GI/WebKit2/Objects.hs view
@@ -0,0 +1,123 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects+    (     module GI.WebKit2.Objects.AuthenticationRequest,+    module GI.WebKit2.Objects.AutomationSession,+    module GI.WebKit2.Objects.BackForwardList,+    module GI.WebKit2.Objects.BackForwardListItem,+    module GI.WebKit2.Objects.ColorChooserRequest,+    module GI.WebKit2.Objects.ContextMenu   ,+    module GI.WebKit2.Objects.ContextMenuItem,+    module GI.WebKit2.Objects.CookieManager ,+    module GI.WebKit2.Objects.DeviceInfoPermissionRequest,+    module GI.WebKit2.Objects.Download      ,+    module GI.WebKit2.Objects.EditorState   ,+    module GI.WebKit2.Objects.FaviconDatabase,+    module GI.WebKit2.Objects.FileChooserRequest,+    module GI.WebKit2.Objects.FindController,+    module GI.WebKit2.Objects.FormSubmissionRequest,+    module GI.WebKit2.Objects.GeolocationPermissionRequest,+    module GI.WebKit2.Objects.HitTestResult ,+    module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest,+    module GI.WebKit2.Objects.NavigationPolicyDecision,+    module GI.WebKit2.Objects.Notification  ,+    module GI.WebKit2.Objects.NotificationPermissionRequest,+    module GI.WebKit2.Objects.OptionMenu    ,+    module GI.WebKit2.Objects.Plugin        ,+    module GI.WebKit2.Objects.PolicyDecision,+    module GI.WebKit2.Objects.PrintCustomWidget,+    module GI.WebKit2.Objects.PrintOperation,+    module GI.WebKit2.Objects.ResponsePolicyDecision,+    module GI.WebKit2.Objects.SecurityManager,+    module GI.WebKit2.Objects.Settings      ,+    module GI.WebKit2.Objects.URIRequest    ,+    module GI.WebKit2.Objects.URIResponse   ,+    module GI.WebKit2.Objects.URISchemeRequest,+    module GI.WebKit2.Objects.UserContentFilterStore,+    module GI.WebKit2.Objects.UserContentManager,+    module GI.WebKit2.Objects.UserMediaPermissionRequest,+    module GI.WebKit2.Objects.WebContext    ,+    module GI.WebKit2.Objects.WebInspector  ,+    module GI.WebKit2.Objects.WebResource   ,+    module GI.WebKit2.Objects.WebView       ,+    module GI.WebKit2.Objects.WebViewBase   ,+    module GI.WebKit2.Objects.WebsiteDataManager,+    module GI.WebKit2.Objects.WindowProperties,+++    ) where++import GI.WebKit2.Objects.AuthenticationRequest+import GI.WebKit2.Objects.AutomationSession+import GI.WebKit2.Objects.BackForwardList+import GI.WebKit2.Objects.BackForwardListItem+import GI.WebKit2.Objects.ColorChooserRequest+import GI.WebKit2.Objects.ContextMenu+import GI.WebKit2.Objects.ContextMenuItem+import GI.WebKit2.Objects.CookieManager+import GI.WebKit2.Objects.DeviceInfoPermissionRequest+import GI.WebKit2.Objects.Download+import GI.WebKit2.Objects.EditorState+import GI.WebKit2.Objects.FaviconDatabase+import GI.WebKit2.Objects.FileChooserRequest+import GI.WebKit2.Objects.FindController+import GI.WebKit2.Objects.FormSubmissionRequest+import GI.WebKit2.Objects.GeolocationPermissionRequest+import GI.WebKit2.Objects.HitTestResult+import GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest+import GI.WebKit2.Objects.NavigationPolicyDecision+import GI.WebKit2.Objects.Notification+import GI.WebKit2.Objects.NotificationPermissionRequest+import GI.WebKit2.Objects.OptionMenu+import GI.WebKit2.Objects.Plugin+import GI.WebKit2.Objects.PolicyDecision+import GI.WebKit2.Objects.PrintCustomWidget+import GI.WebKit2.Objects.PrintOperation+import GI.WebKit2.Objects.ResponsePolicyDecision+import GI.WebKit2.Objects.SecurityManager+import GI.WebKit2.Objects.Settings+import GI.WebKit2.Objects.URIRequest+import GI.WebKit2.Objects.URIResponse+import GI.WebKit2.Objects.URISchemeRequest+import GI.WebKit2.Objects.UserContentFilterStore+import GI.WebKit2.Objects.UserContentManager+import GI.WebKit2.Objects.UserMediaPermissionRequest+import GI.WebKit2.Objects.WebContext+import GI.WebKit2.Objects.WebInspector+import GI.WebKit2.Objects.WebResource+import GI.WebKit2.Objects.WebView+import GI.WebKit2.Objects.WebViewBase+import GI.WebKit2.Objects.WebsiteDataManager+import GI.WebKit2.Objects.WindowProperties++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+++
+ GI/WebKit2/Objects/AuthenticationRequest.hs view
@@ -0,0 +1,696 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.AuthenticationRequest+    ( ++-- * Exported types+    AuthenticationRequest(..)               ,+    IsAuthenticationRequest                 ,+    toAuthenticationRequest                 ,+    noAuthenticationRequest                 ,+++ -- * Methods+-- ** authenticate #method:authenticate#++#if ENABLE_OVERLOADING+    AuthenticationRequestAuthenticateMethodInfo,+#endif+    authenticationRequestAuthenticate       ,+++-- ** canSaveCredentials #method:canSaveCredentials#++#if ENABLE_OVERLOADING+    AuthenticationRequestCanSaveCredentialsMethodInfo,+#endif+    authenticationRequestCanSaveCredentials ,+++-- ** cancel #method:cancel#++#if ENABLE_OVERLOADING+    AuthenticationRequestCancelMethodInfo   ,+#endif+    authenticationRequestCancel             ,+++-- ** getHost #method:getHost#++#if ENABLE_OVERLOADING+    AuthenticationRequestGetHostMethodInfo  ,+#endif+    authenticationRequestGetHost            ,+++-- ** getPort #method:getPort#++#if ENABLE_OVERLOADING+    AuthenticationRequestGetPortMethodInfo  ,+#endif+    authenticationRequestGetPort            ,+++-- ** getProposedCredential #method:getProposedCredential#++#if ENABLE_OVERLOADING+    AuthenticationRequestGetProposedCredentialMethodInfo,+#endif+    authenticationRequestGetProposedCredential,+++-- ** getRealm #method:getRealm#++#if ENABLE_OVERLOADING+    AuthenticationRequestGetRealmMethodInfo ,+#endif+    authenticationRequestGetRealm           ,+++-- ** getScheme #method:getScheme#++#if ENABLE_OVERLOADING+    AuthenticationRequestGetSchemeMethodInfo,+#endif+    authenticationRequestGetScheme          ,+++-- ** isForProxy #method:isForProxy#++#if ENABLE_OVERLOADING+    AuthenticationRequestIsForProxyMethodInfo,+#endif+    authenticationRequestIsForProxy         ,+++-- ** isRetry #method:isRetry#++#if ENABLE_OVERLOADING+    AuthenticationRequestIsRetryMethodInfo  ,+#endif+    authenticationRequestIsRetry            ,+++++ -- * Signals+-- ** cancelled #signal:cancelled#++    AuthenticationRequestCancelledCallback  ,+#if ENABLE_OVERLOADING+    AuthenticationRequestCancelledSignalInfo,+#endif+    C_AuthenticationRequestCancelledCallback,+    afterAuthenticationRequestCancelled     ,+    genClosure_AuthenticationRequestCancelled,+    mk_AuthenticationRequestCancelledCallback,+    noAuthenticationRequestCancelledCallback,+    onAuthenticationRequestCancelled        ,+    wrap_AuthenticationRequestCancelledCallback,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums+import {-# SOURCE #-} qualified GI.WebKit2.Structs.Credential as WebKit2.Credential++-- | Memory-managed wrapper type.+newtype AuthenticationRequest = AuthenticationRequest (ManagedPtr AuthenticationRequest)+foreign import ccall "webkit_authentication_request_get_type"+    c_webkit_authentication_request_get_type :: IO GType++instance GObject AuthenticationRequest where+    gobjectType = c_webkit_authentication_request_get_type+    ++-- | Type class for types which can be safely cast to `AuthenticationRequest`, for instance with `toAuthenticationRequest`.+class (GObject o, O.IsDescendantOf AuthenticationRequest o) => IsAuthenticationRequest o+instance (GObject o, O.IsDescendantOf AuthenticationRequest o) => IsAuthenticationRequest o++instance O.HasParentTypes AuthenticationRequest+type instance O.ParentTypes AuthenticationRequest = '[GObject.Object.Object]++-- | Cast to `AuthenticationRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAuthenticationRequest :: (MonadIO m, IsAuthenticationRequest o) => o -> m AuthenticationRequest+toAuthenticationRequest = liftIO . unsafeCastTo AuthenticationRequest++-- | A convenience alias for `Nothing` :: `Maybe` `AuthenticationRequest`.+noAuthenticationRequest :: Maybe AuthenticationRequest+noAuthenticationRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveAuthenticationRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveAuthenticationRequestMethod "authenticate" o = AuthenticationRequestAuthenticateMethodInfo+    ResolveAuthenticationRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAuthenticationRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAuthenticationRequestMethod "canSaveCredentials" o = AuthenticationRequestCanSaveCredentialsMethodInfo+    ResolveAuthenticationRequestMethod "cancel" o = AuthenticationRequestCancelMethodInfo+    ResolveAuthenticationRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAuthenticationRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAuthenticationRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAuthenticationRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAuthenticationRequestMethod "isForProxy" o = AuthenticationRequestIsForProxyMethodInfo+    ResolveAuthenticationRequestMethod "isRetry" o = AuthenticationRequestIsRetryMethodInfo+    ResolveAuthenticationRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAuthenticationRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAuthenticationRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAuthenticationRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAuthenticationRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAuthenticationRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAuthenticationRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAuthenticationRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAuthenticationRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAuthenticationRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAuthenticationRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAuthenticationRequestMethod "getHost" o = AuthenticationRequestGetHostMethodInfo+    ResolveAuthenticationRequestMethod "getPort" o = AuthenticationRequestGetPortMethodInfo+    ResolveAuthenticationRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAuthenticationRequestMethod "getProposedCredential" o = AuthenticationRequestGetProposedCredentialMethodInfo+    ResolveAuthenticationRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAuthenticationRequestMethod "getRealm" o = AuthenticationRequestGetRealmMethodInfo+    ResolveAuthenticationRequestMethod "getScheme" o = AuthenticationRequestGetSchemeMethodInfo+    ResolveAuthenticationRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAuthenticationRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAuthenticationRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, O.MethodInfo info AuthenticationRequest p) => OL.IsLabel t (AuthenticationRequest -> 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++-- signal AuthenticationRequest::cancelled+{- |+This signal is emitted when the user authentication request is+cancelled. It allows the application to dismiss its authentication+dialog in case of page load failure for example.++/Since: 2.2/+-}+type AuthenticationRequestCancelledCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `AuthenticationRequestCancelledCallback`@.+noAuthenticationRequestCancelledCallback :: Maybe AuthenticationRequestCancelledCallback+noAuthenticationRequestCancelledCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_AuthenticationRequestCancelledCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_AuthenticationRequestCancelledCallback`.+foreign import ccall "wrapper"+    mk_AuthenticationRequestCancelledCallback :: C_AuthenticationRequestCancelledCallback -> IO (FunPtr C_AuthenticationRequestCancelledCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_AuthenticationRequestCancelled :: MonadIO m => AuthenticationRequestCancelledCallback -> m (GClosure C_AuthenticationRequestCancelledCallback)+genClosure_AuthenticationRequestCancelled cb = liftIO $ do+    let cb' = wrap_AuthenticationRequestCancelledCallback cb+    mk_AuthenticationRequestCancelledCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `AuthenticationRequestCancelledCallback` into a `C_AuthenticationRequestCancelledCallback`.+wrap_AuthenticationRequestCancelledCallback ::+    AuthenticationRequestCancelledCallback ->+    C_AuthenticationRequestCancelledCallback+wrap_AuthenticationRequestCancelledCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@cancelled@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' authenticationRequest #cancelled callback+@+-}+onAuthenticationRequestCancelled :: (IsAuthenticationRequest a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId+onAuthenticationRequestCancelled obj cb = liftIO $ do+    let cb' = wrap_AuthenticationRequestCancelledCallback cb+    cb'' <- mk_AuthenticationRequestCancelledCallback cb'+    connectSignalFunPtr obj "cancelled" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@cancelled@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' authenticationRequest #cancelled callback+@+-}+afterAuthenticationRequestCancelled :: (IsAuthenticationRequest a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId+afterAuthenticationRequestCancelled obj cb = liftIO $ do+    let cb' = wrap_AuthenticationRequestCancelledCallback cb+    cb'' <- mk_AuthenticationRequestCancelledCallback cb'+    connectSignalFunPtr obj "cancelled" cb'' SignalConnectAfter+++#if ENABLE_OVERLOADING+instance O.HasAttributeList AuthenticationRequest+type instance O.AttributeList AuthenticationRequest = AuthenticationRequestAttributeList+type AuthenticationRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+data AuthenticationRequestCancelledSignalInfo+instance SignalInfo AuthenticationRequestCancelledSignalInfo where+    type HaskellCallbackType AuthenticationRequestCancelledSignalInfo = AuthenticationRequestCancelledCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_AuthenticationRequestCancelledCallback cb+        cb'' <- mk_AuthenticationRequestCancelledCallback cb'+        connectSignalFunPtr obj "cancelled" cb'' connectMode++type instance O.SignalList AuthenticationRequest = AuthenticationRequestSignalList+type AuthenticationRequestSignalList = ('[ '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AuthenticationRequest::authenticate+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "credential", argType = TInterface (Name {namespace = "WebKit2", name = "Credential"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #WebKitCredential, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_authenticate" webkit_authentication_request_authenticate :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    Ptr WebKit2.Credential.Credential ->    -- credential : TInterface (Name {namespace = "WebKit2", name = "Credential"})+    IO ()++{- |+Authenticate the 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' using the 'GI.WebKit2.Structs.Credential.Credential'+supplied. To continue without credentials, pass 'Nothing' as /@credential@/.++/Since: 2.2/+-}+authenticationRequestAuthenticate ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> Maybe (WebKit2.Credential.Credential)+    {- ^ /@credential@/: A 'GI.WebKit2.Structs.Credential.Credential', or 'Nothing' -}+    -> m ()+authenticationRequestAuthenticate request credential = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    maybeCredential <- case credential of+        Nothing -> return nullPtr+        Just jCredential -> do+            jCredential' <- unsafeManagedPtrGetPtr jCredential+            return jCredential'+    webkit_authentication_request_authenticate request' maybeCredential+    touchManagedPtr request+    whenJust credential touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data AuthenticationRequestAuthenticateMethodInfo+instance (signature ~ (Maybe (WebKit2.Credential.Credential) -> m ()), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestAuthenticateMethodInfo a signature where+    overloadedMethod _ = authenticationRequestAuthenticate++#endif++-- method AuthenticationRequest::can_save_credentials+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_can_save_credentials" webkit_authentication_request_can_save_credentials :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO CInt++{- |+Determine whether the authentication method associated with this+'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' should allow the storage of credentials.+This will return 'False' if WebKit doesn\'t support credential storing+or if private browsing is enabled.++/Since: 2.2/+-}+authenticationRequestCanSaveCredentials ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if WebKit can store credentials or 'False' otherwise. -}+authenticationRequestCanSaveCredentials request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_can_save_credentials request'+    let result' = (/= 0) result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data AuthenticationRequestCanSaveCredentialsMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestCanSaveCredentialsMethodInfo a signature where+    overloadedMethod _ = authenticationRequestCanSaveCredentials++#endif++-- method AuthenticationRequest::cancel+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_cancel" webkit_authentication_request_cancel :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO ()++{- |+Cancel the authentication challenge. This will also cancel the page loading and result in a+'GI.WebKit2.Objects.WebView.WebView'::@/load-failed/@ signal with a 'GI.WebKit2.Enums.NetworkError' of type 'GI.WebKit2.Enums.NetworkErrorCancelled' being emitted.++/Since: 2.2/+-}+authenticationRequestCancel ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m ()+authenticationRequestCancel request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    webkit_authentication_request_cancel request'+    touchManagedPtr request+    return ()++#if ENABLE_OVERLOADING+data AuthenticationRequestCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestCancelMethodInfo a signature where+    overloadedMethod _ = authenticationRequestCancel++#endif++-- method AuthenticationRequest::get_host+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_get_host" webkit_authentication_request_get_host :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO CString++{- |+Get the host that this authentication challenge is applicable to.++/Since: 2.2/+-}+authenticationRequestGetHost ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m T.Text+    {- ^ __Returns:__ The host of /@request@/. -}+authenticationRequestGetHost request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_get_host request'+    checkUnexpectedReturnNULL "authenticationRequestGetHost" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data AuthenticationRequestGetHostMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestGetHostMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetHost++#endif++-- method AuthenticationRequest::get_port+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_get_port" webkit_authentication_request_get_port :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO Word32++{- |+Get the port that this authentication challenge is applicable to.++/Since: 2.2/+-}+authenticationRequestGetPort ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m Word32+    {- ^ __Returns:__ The port of /@request@/. -}+authenticationRequestGetPort request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_get_port request'+    touchManagedPtr request+    return result++#if ENABLE_OVERLOADING+data AuthenticationRequestGetPortMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestGetPortMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetPort++#endif++-- method AuthenticationRequest::get_proposed_credential+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Credential"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_get_proposed_credential" webkit_authentication_request_get_proposed_credential :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO (Ptr WebKit2.Credential.Credential)++{- |+Get the 'GI.WebKit2.Structs.Credential.Credential' of the proposed authentication challenge that was+stored from a previous session. The client can use this directly for+authentication or construct their own 'GI.WebKit2.Structs.Credential.Credential'.++/Since: 2.2/+-}+authenticationRequestGetProposedCredential ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m WebKit2.Credential.Credential+    {- ^ __Returns:__ A 'GI.WebKit2.Structs.Credential.Credential' encapsulating credential details+or 'Nothing' if there is no stored credential. -}+authenticationRequestGetProposedCredential request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_get_proposed_credential request'+    checkUnexpectedReturnNULL "authenticationRequestGetProposedCredential" result+    result' <- (wrapBoxed WebKit2.Credential.Credential) result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data AuthenticationRequestGetProposedCredentialMethodInfo+instance (signature ~ (m WebKit2.Credential.Credential), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestGetProposedCredentialMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetProposedCredential++#endif++-- method AuthenticationRequest::get_realm+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_get_realm" webkit_authentication_request_get_realm :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO CString++{- |+Get the realm that this authentication challenge is applicable to.++/Since: 2.2/+-}+authenticationRequestGetRealm ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m T.Text+    {- ^ __Returns:__ The realm of /@request@/. -}+authenticationRequestGetRealm request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_get_realm request'+    checkUnexpectedReturnNULL "authenticationRequestGetRealm" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data AuthenticationRequestGetRealmMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestGetRealmMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetRealm++#endif++-- method AuthenticationRequest::get_scheme+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "AuthenticationScheme"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_get_scheme" webkit_authentication_request_get_scheme :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO CUInt++{- |+Get the authentication scheme of the authentication challenge.++/Since: 2.2/+-}+authenticationRequestGetScheme ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m WebKit2.Enums.AuthenticationScheme+    {- ^ __Returns:__ The 'GI.WebKit2.Enums.AuthenticationScheme' of /@request@/. -}+authenticationRequestGetScheme request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_get_scheme request'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data AuthenticationRequestGetSchemeMethodInfo+instance (signature ~ (m WebKit2.Enums.AuthenticationScheme), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestGetSchemeMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetScheme++#endif++-- method AuthenticationRequest::is_for_proxy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_is_for_proxy" webkit_authentication_request_is_for_proxy :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO CInt++{- |+Determine whether the authentication challenge is associated with a proxy server rather than an \"origin\" server.++/Since: 2.2/+-}+authenticationRequestIsForProxy ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if authentication is for a proxy or 'False' otherwise. -}+authenticationRequestIsForProxy request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_is_for_proxy request'+    let result' = (/= 0) result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data AuthenticationRequestIsForProxyMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestIsForProxyMethodInfo a signature where+    overloadedMethod _ = authenticationRequestIsForProxy++#endif++-- method AuthenticationRequest::is_retry+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAuthenticationRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_authentication_request_is_retry" webkit_authentication_request_is_retry :: +    Ptr AuthenticationRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "AuthenticationRequest"})+    IO CInt++{- |+Determine whether this this is a first attempt or a retry for this authentication challenge.++/Since: 2.2/+-}+authenticationRequestIsRetry ::+    (B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if authentication attempt is a retry or 'False' otherwise. -}+authenticationRequestIsRetry request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_authentication_request_is_retry request'+    let result' = (/= 0) result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data AuthenticationRequestIsRetryMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsAuthenticationRequest a) => O.MethodInfo AuthenticationRequestIsRetryMethodInfo a signature where+    overloadedMethod _ = authenticationRequestIsRetry++#endif++
+ GI/WebKit2/Objects/AuthenticationRequest.hs-boot view
@@ -0,0 +1,62 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.AuthenticationRequest 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++newtype AuthenticationRequest = AuthenticationRequest (ManagedPtr AuthenticationRequest)+instance GObject AuthenticationRequest where+class (GObject o, O.IsDescendantOf AuthenticationRequest o) => IsAuthenticationRequest o+instance (GObject o, O.IsDescendantOf AuthenticationRequest o) => IsAuthenticationRequest o+instance O.HasParentTypes AuthenticationRequest+#if ENABLE_OVERLOADING+data AuthenticationRequestCancelledSignalInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestAuthenticateMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestCanSaveCredentialsMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestCancelMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestGetHostMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestGetPortMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestGetProposedCredentialMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestGetRealmMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestGetSchemeMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestIsForProxyMethodInfo+#endif+#if ENABLE_OVERLOADING+data AuthenticationRequestIsRetryMethodInfo+#endif
+ GI/WebKit2/Objects/AutomationSession.hs view
@@ -0,0 +1,433 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.AutomationSession+    ( ++-- * Exported types+    AutomationSession(..)                   ,+    IsAutomationSession                     ,+    toAutomationSession                     ,+    noAutomationSession                     ,+++ -- * Methods+-- ** getApplicationInfo #method:getApplicationInfo#++#if ENABLE_OVERLOADING+    AutomationSessionGetApplicationInfoMethodInfo,+#endif+    automationSessionGetApplicationInfo     ,+++-- ** getId #method:getId#++#if ENABLE_OVERLOADING+    AutomationSessionGetIdMethodInfo        ,+#endif+    automationSessionGetId                  ,+++-- ** setApplicationInfo #method:setApplicationInfo#++#if ENABLE_OVERLOADING+    AutomationSessionSetApplicationInfoMethodInfo,+#endif+    automationSessionSetApplicationInfo     ,+++++ -- * Properties+-- ** id #attr:id#+{- | The session unique identifier.++/Since: 2.18/+-}+#if ENABLE_OVERLOADING+    AutomationSessionIdPropertyInfo         ,+#endif+#if ENABLE_OVERLOADING+    automationSessionId                     ,+#endif+    constructAutomationSessionId            ,+    getAutomationSessionId                  ,+++++ -- * Signals+-- ** createWebView #signal:createWebView#++    AutomationSessionCreateWebViewCallback  ,+#if ENABLE_OVERLOADING+    AutomationSessionCreateWebViewSignalInfo,+#endif+    C_AutomationSessionCreateWebViewCallback,+    afterAutomationSessionCreateWebView     ,+    genClosure_AutomationSessionCreateWebView,+    mk_AutomationSessionCreateWebViewCallback,+    noAutomationSessionCreateWebViewCallback,+    onAutomationSessionCreateWebView        ,+    wrap_AutomationSessionCreateWebViewCallback,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView+import {-# SOURCE #-} qualified GI.WebKit2.Structs.ApplicationInfo as WebKit2.ApplicationInfo++-- | Memory-managed wrapper type.+newtype AutomationSession = AutomationSession (ManagedPtr AutomationSession)+foreign import ccall "webkit_automation_session_get_type"+    c_webkit_automation_session_get_type :: IO GType++instance GObject AutomationSession where+    gobjectType = c_webkit_automation_session_get_type+    ++-- | Type class for types which can be safely cast to `AutomationSession`, for instance with `toAutomationSession`.+class (GObject o, O.IsDescendantOf AutomationSession o) => IsAutomationSession o+instance (GObject o, O.IsDescendantOf AutomationSession o) => IsAutomationSession o++instance O.HasParentTypes AutomationSession+type instance O.ParentTypes AutomationSession = '[GObject.Object.Object]++-- | Cast to `AutomationSession`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAutomationSession :: (MonadIO m, IsAutomationSession o) => o -> m AutomationSession+toAutomationSession = liftIO . unsafeCastTo AutomationSession++-- | A convenience alias for `Nothing` :: `Maybe` `AutomationSession`.+noAutomationSession :: Maybe AutomationSession+noAutomationSession = Nothing++#if ENABLE_OVERLOADING+type family ResolveAutomationSessionMethod (t :: Symbol) (o :: *) :: * where+    ResolveAutomationSessionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAutomationSessionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAutomationSessionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAutomationSessionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAutomationSessionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAutomationSessionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAutomationSessionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAutomationSessionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAutomationSessionMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAutomationSessionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAutomationSessionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAutomationSessionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAutomationSessionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAutomationSessionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAutomationSessionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAutomationSessionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAutomationSessionMethod "getApplicationInfo" o = AutomationSessionGetApplicationInfoMethodInfo+    ResolveAutomationSessionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAutomationSessionMethod "getId" o = AutomationSessionGetIdMethodInfo+    ResolveAutomationSessionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAutomationSessionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAutomationSessionMethod "setApplicationInfo" o = AutomationSessionSetApplicationInfoMethodInfo+    ResolveAutomationSessionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAutomationSessionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAutomationSessionMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAutomationSessionMethod t AutomationSession, O.MethodInfo info AutomationSession p) => OL.IsLabel t (AutomationSession -> 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++-- signal AutomationSession::create-web-view+{- |+This signal is emitted when the automation client requests a new+browsing context to interact with it. The callback handler should+return a 'GI.WebKit2.Objects.WebView.WebView' created with 'GI.WebKit2.Objects.WebView.WebView':@/is-controlled-by-automation/@+construct property enabled. The returned 'GI.WebKit2.Objects.WebView.WebView' could be an existing+web view or a new one created and added to a new tab or window.++/Since: 2.18/+-}+type AutomationSessionCreateWebViewCallback =+    IO WebKit2.WebView.WebView+    {- ^ __Returns:__ a 'GI.WebKit2.Objects.WebView.WebView' widget. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `AutomationSessionCreateWebViewCallback`@.+noAutomationSessionCreateWebViewCallback :: Maybe AutomationSessionCreateWebViewCallback+noAutomationSessionCreateWebViewCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_AutomationSessionCreateWebViewCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO (Ptr WebKit2.WebView.WebView)++-- | Generate a function pointer callable from C code, from a `C_AutomationSessionCreateWebViewCallback`.+foreign import ccall "wrapper"+    mk_AutomationSessionCreateWebViewCallback :: C_AutomationSessionCreateWebViewCallback -> IO (FunPtr C_AutomationSessionCreateWebViewCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_AutomationSessionCreateWebView :: MonadIO m => AutomationSessionCreateWebViewCallback -> m (GClosure C_AutomationSessionCreateWebViewCallback)+genClosure_AutomationSessionCreateWebView cb = liftIO $ do+    let cb' = wrap_AutomationSessionCreateWebViewCallback cb+    mk_AutomationSessionCreateWebViewCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `AutomationSessionCreateWebViewCallback` into a `C_AutomationSessionCreateWebViewCallback`.+wrap_AutomationSessionCreateWebViewCallback ::+    AutomationSessionCreateWebViewCallback ->+    C_AutomationSessionCreateWebViewCallback+wrap_AutomationSessionCreateWebViewCallback _cb _ _ = do+    result <- _cb +    result' <- unsafeManagedPtrCastPtr result+    return result'+++{- |+Connect a signal handler for the “@create-web-view@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' automationSession #createWebView callback+@+-}+onAutomationSessionCreateWebView :: (IsAutomationSession a, MonadIO m) => a -> AutomationSessionCreateWebViewCallback -> m SignalHandlerId+onAutomationSessionCreateWebView obj cb = liftIO $ do+    let cb' = wrap_AutomationSessionCreateWebViewCallback cb+    cb'' <- mk_AutomationSessionCreateWebViewCallback cb'+    connectSignalFunPtr obj "create-web-view" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@create-web-view@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' automationSession #createWebView callback+@+-}+afterAutomationSessionCreateWebView :: (IsAutomationSession a, MonadIO m) => a -> AutomationSessionCreateWebViewCallback -> m SignalHandlerId+afterAutomationSessionCreateWebView obj cb = liftIO $ do+    let cb' = wrap_AutomationSessionCreateWebViewCallback cb+    cb'' <- mk_AutomationSessionCreateWebViewCallback cb'+    connectSignalFunPtr obj "create-web-view" cb'' SignalConnectAfter+++-- VVV Prop "id"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@id@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' automationSession #id+@+-}+getAutomationSessionId :: (MonadIO m, IsAutomationSession o) => o -> m T.Text+getAutomationSessionId obj = liftIO $ checkUnexpectedNothing "getAutomationSessionId" $ B.Properties.getObjectPropertyString obj "id"++{- |+Construct a `GValueConstruct` with valid value for the “@id@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructAutomationSessionId :: (IsAutomationSession o) => T.Text -> IO (GValueConstruct o)+constructAutomationSessionId val = B.Properties.constructObjectPropertyString "id" (Just val)++#if ENABLE_OVERLOADING+data AutomationSessionIdPropertyInfo+instance AttrInfo AutomationSessionIdPropertyInfo where+    type AttrAllowedOps AutomationSessionIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AutomationSessionIdPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AutomationSessionIdPropertyInfo = IsAutomationSession+    type AttrGetType AutomationSessionIdPropertyInfo = T.Text+    type AttrLabel AutomationSessionIdPropertyInfo = "id"+    type AttrOrigin AutomationSessionIdPropertyInfo = AutomationSession+    attrGet _ = getAutomationSessionId+    attrSet _ = undefined+    attrConstruct _ = constructAutomationSessionId+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList AutomationSession+type instance O.AttributeList AutomationSession = AutomationSessionAttributeList+type AutomationSessionAttributeList = ('[ '("id", AutomationSessionIdPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+automationSessionId :: AttrLabelProxy "id"+automationSessionId = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data AutomationSessionCreateWebViewSignalInfo+instance SignalInfo AutomationSessionCreateWebViewSignalInfo where+    type HaskellCallbackType AutomationSessionCreateWebViewSignalInfo = AutomationSessionCreateWebViewCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_AutomationSessionCreateWebViewCallback cb+        cb'' <- mk_AutomationSessionCreateWebViewCallback cb'+        connectSignalFunPtr obj "create-web-view" cb'' connectMode++type instance O.SignalList AutomationSession = AutomationSessionSignalList+type AutomationSessionSignalList = ('[ '("createWebView", AutomationSessionCreateWebViewSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AutomationSession::get_application_info+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "WebKit2", name = "AutomationSession"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAutomationSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_automation_session_get_application_info" webkit_automation_session_get_application_info :: +    Ptr AutomationSession ->                -- session : TInterface (Name {namespace = "WebKit2", name = "AutomationSession"})+    IO (Ptr WebKit2.ApplicationInfo.ApplicationInfo)++{- |+Get the 'GI.WebKit2.Objects.AutomationSession.AutomationSession' previously set with 'GI.WebKit2.Objects.AutomationSession.automationSessionSetApplicationInfo'.++/Since: 2.18/+-}+automationSessionGetApplicationInfo ::+    (B.CallStack.HasCallStack, MonadIO m, IsAutomationSession a) =>+    a+    {- ^ /@session@/: a 'GI.WebKit2.Objects.AutomationSession.AutomationSession' -}+    -> m (Maybe WebKit2.ApplicationInfo.ApplicationInfo)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.AutomationSession.AutomationSession' of /@session@/, or 'Nothing' if no one has been set. -}+automationSessionGetApplicationInfo session = liftIO $ do+    session' <- unsafeManagedPtrCastPtr session+    result <- webkit_automation_session_get_application_info session'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed WebKit2.ApplicationInfo.ApplicationInfo) result'+        return result''+    touchManagedPtr session+    return maybeResult++#if ENABLE_OVERLOADING+data AutomationSessionGetApplicationInfoMethodInfo+instance (signature ~ (m (Maybe WebKit2.ApplicationInfo.ApplicationInfo)), MonadIO m, IsAutomationSession a) => O.MethodInfo AutomationSessionGetApplicationInfoMethodInfo a signature where+    overloadedMethod _ = automationSessionGetApplicationInfo++#endif++-- method AutomationSession::get_id+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "WebKit2", name = "AutomationSession"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAutomationSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_automation_session_get_id" webkit_automation_session_get_id :: +    Ptr AutomationSession ->                -- session : TInterface (Name {namespace = "WebKit2", name = "AutomationSession"})+    IO CString++{- |+Get the unique identifier of a 'GI.WebKit2.Objects.AutomationSession.AutomationSession'++/Since: 2.18/+-}+automationSessionGetId ::+    (B.CallStack.HasCallStack, MonadIO m, IsAutomationSession a) =>+    a+    {- ^ /@session@/: a 'GI.WebKit2.Objects.AutomationSession.AutomationSession' -}+    -> m T.Text+    {- ^ __Returns:__ the unique identifier of /@session@/ -}+automationSessionGetId session = liftIO $ do+    session' <- unsafeManagedPtrCastPtr session+    result <- webkit_automation_session_get_id session'+    checkUnexpectedReturnNULL "automationSessionGetId" result+    result' <- cstringToText result+    touchManagedPtr session+    return result'++#if ENABLE_OVERLOADING+data AutomationSessionGetIdMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAutomationSession a) => O.MethodInfo AutomationSessionGetIdMethodInfo a signature where+    overloadedMethod _ = automationSessionGetId++#endif++-- method AutomationSession::set_application_info+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "WebKit2", name = "AutomationSession"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitAutomationSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitApplicationInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_automation_session_set_application_info" webkit_automation_session_set_application_info :: +    Ptr AutomationSession ->                -- session : TInterface (Name {namespace = "WebKit2", name = "AutomationSession"})+    Ptr WebKit2.ApplicationInfo.ApplicationInfo -> -- info : TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"})+    IO ()++{- |+Set the application information to /@session@/. This information will be used by the driver service+to match the requested capabilities with the actual application information. If this information+is not provided to the session when a new automation session is requested, the creation might fail+if the client requested a specific browser name or version. This will not have any effect when called+after the automation session has been fully created, so this must be called in the callback of+'GI.WebKit2.Objects.WebContext.WebContext'::@/automation-started/@ signal.++/Since: 2.18/+-}+automationSessionSetApplicationInfo ::+    (B.CallStack.HasCallStack, MonadIO m, IsAutomationSession a) =>+    a+    {- ^ /@session@/: a 'GI.WebKit2.Objects.AutomationSession.AutomationSession' -}+    -> WebKit2.ApplicationInfo.ApplicationInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+    -> m ()+automationSessionSetApplicationInfo session info = liftIO $ do+    session' <- unsafeManagedPtrCastPtr session+    info' <- unsafeManagedPtrGetPtr info+    webkit_automation_session_set_application_info session' info'+    touchManagedPtr session+    touchManagedPtr info+    return ()++#if ENABLE_OVERLOADING+data AutomationSessionSetApplicationInfoMethodInfo+instance (signature ~ (WebKit2.ApplicationInfo.ApplicationInfo -> m ()), MonadIO m, IsAutomationSession a) => O.MethodInfo AutomationSessionSetApplicationInfoMethodInfo a signature where+    overloadedMethod _ = automationSessionSetApplicationInfo++#endif++
+ GI/WebKit2/Objects/AutomationSession.hs-boot view
@@ -0,0 +1,44 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.AutomationSession 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++newtype AutomationSession = AutomationSession (ManagedPtr AutomationSession)+instance GObject AutomationSession where+class (GObject o, O.IsDescendantOf AutomationSession o) => IsAutomationSession o+instance (GObject o, O.IsDescendantOf AutomationSession o) => IsAutomationSession o+instance O.HasParentTypes AutomationSession+#if ENABLE_OVERLOADING+data AutomationSessionIdPropertyInfo+#endif+#if ENABLE_OVERLOADING+data AutomationSessionCreateWebViewSignalInfo+#endif+#if ENABLE_OVERLOADING+data AutomationSessionGetApplicationInfoMethodInfo+#endif+#if ENABLE_OVERLOADING+data AutomationSessionGetIdMethodInfo+#endif+#if ENABLE_OVERLOADING+data AutomationSessionSetApplicationInfoMethodInfo+#endif
+ GI/WebKit2/Objects/BackForwardList.hs view
@@ -0,0 +1,660 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.BackForwardList+    ( ++-- * Exported types+    BackForwardList(..)                     ,+    IsBackForwardList                       ,+    toBackForwardList                       ,+    noBackForwardList                       ,+++ -- * Methods+-- ** getBackItem #method:getBackItem#++#if ENABLE_OVERLOADING+    BackForwardListGetBackItemMethodInfo    ,+#endif+    backForwardListGetBackItem              ,+++-- ** getBackList #method:getBackList#++#if ENABLE_OVERLOADING+    BackForwardListGetBackListMethodInfo    ,+#endif+    backForwardListGetBackList              ,+++-- ** getBackListWithLimit #method:getBackListWithLimit#++#if ENABLE_OVERLOADING+    BackForwardListGetBackListWithLimitMethodInfo,+#endif+    backForwardListGetBackListWithLimit     ,+++-- ** getCurrentItem #method:getCurrentItem#++#if ENABLE_OVERLOADING+    BackForwardListGetCurrentItemMethodInfo ,+#endif+    backForwardListGetCurrentItem           ,+++-- ** getForwardItem #method:getForwardItem#++#if ENABLE_OVERLOADING+    BackForwardListGetForwardItemMethodInfo ,+#endif+    backForwardListGetForwardItem           ,+++-- ** getForwardList #method:getForwardList#++#if ENABLE_OVERLOADING+    BackForwardListGetForwardListMethodInfo ,+#endif+    backForwardListGetForwardList           ,+++-- ** getForwardListWithLimit #method:getForwardListWithLimit#++#if ENABLE_OVERLOADING+    BackForwardListGetForwardListWithLimitMethodInfo,+#endif+    backForwardListGetForwardListWithLimit  ,+++-- ** getLength #method:getLength#++#if ENABLE_OVERLOADING+    BackForwardListGetLengthMethodInfo      ,+#endif+    backForwardListGetLength                ,+++-- ** getNthItem #method:getNthItem#++#if ENABLE_OVERLOADING+    BackForwardListGetNthItemMethodInfo     ,+#endif+    backForwardListGetNthItem               ,+++++ -- * Signals+-- ** changed #signal:changed#++    BackForwardListChangedCallback          ,+#if ENABLE_OVERLOADING+    BackForwardListChangedSignalInfo        ,+#endif+    C_BackForwardListChangedCallback        ,+    afterBackForwardListChanged             ,+    genClosure_BackForwardListChanged       ,+    mk_BackForwardListChangedCallback       ,+    noBackForwardListChangedCallback        ,+    onBackForwardListChanged                ,+    wrap_BackForwardListChangedCallback     ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Objects.BackForwardListItem as WebKit2.BackForwardListItem++-- | Memory-managed wrapper type.+newtype BackForwardList = BackForwardList (ManagedPtr BackForwardList)+foreign import ccall "webkit_back_forward_list_get_type"+    c_webkit_back_forward_list_get_type :: IO GType++instance GObject BackForwardList where+    gobjectType = c_webkit_back_forward_list_get_type+    ++-- | Type class for types which can be safely cast to `BackForwardList`, for instance with `toBackForwardList`.+class (GObject o, O.IsDescendantOf BackForwardList o) => IsBackForwardList o+instance (GObject o, O.IsDescendantOf BackForwardList o) => IsBackForwardList o++instance O.HasParentTypes BackForwardList+type instance O.ParentTypes BackForwardList = '[GObject.Object.Object]++-- | Cast to `BackForwardList`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toBackForwardList :: (MonadIO m, IsBackForwardList o) => o -> m BackForwardList+toBackForwardList = liftIO . unsafeCastTo BackForwardList++-- | A convenience alias for `Nothing` :: `Maybe` `BackForwardList`.+noBackForwardList :: Maybe BackForwardList+noBackForwardList = Nothing++#if ENABLE_OVERLOADING+type family ResolveBackForwardListMethod (t :: Symbol) (o :: *) :: * where+    ResolveBackForwardListMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveBackForwardListMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveBackForwardListMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveBackForwardListMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveBackForwardListMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveBackForwardListMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveBackForwardListMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveBackForwardListMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveBackForwardListMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveBackForwardListMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveBackForwardListMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveBackForwardListMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveBackForwardListMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveBackForwardListMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveBackForwardListMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveBackForwardListMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveBackForwardListMethod "getBackItem" o = BackForwardListGetBackItemMethodInfo+    ResolveBackForwardListMethod "getBackList" o = BackForwardListGetBackListMethodInfo+    ResolveBackForwardListMethod "getBackListWithLimit" o = BackForwardListGetBackListWithLimitMethodInfo+    ResolveBackForwardListMethod "getCurrentItem" o = BackForwardListGetCurrentItemMethodInfo+    ResolveBackForwardListMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveBackForwardListMethod "getForwardItem" o = BackForwardListGetForwardItemMethodInfo+    ResolveBackForwardListMethod "getForwardList" o = BackForwardListGetForwardListMethodInfo+    ResolveBackForwardListMethod "getForwardListWithLimit" o = BackForwardListGetForwardListWithLimitMethodInfo+    ResolveBackForwardListMethod "getLength" o = BackForwardListGetLengthMethodInfo+    ResolveBackForwardListMethod "getNthItem" o = BackForwardListGetNthItemMethodInfo+    ResolveBackForwardListMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveBackForwardListMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveBackForwardListMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveBackForwardListMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveBackForwardListMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveBackForwardListMethod t BackForwardList, O.MethodInfo info BackForwardList p) => OL.IsLabel t (BackForwardList -> 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++-- signal BackForwardList::changed+{- |+This signal is emitted when /@backForwardList@/ changes. This happens+when the current item is updated, a new item is added or one or more+items are removed. Note that both /@itemAdded@/ and /@itemsRemoved@/ can+'Nothing' when only the current item is updated. Items are only removed+when the list is cleared or the maximum items limit is reached.+-}+type BackForwardListChangedCallback =+    Maybe WebKit2.BackForwardListItem.BackForwardListItem+    {- ^ /@itemAdded@/: the 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem' added or 'Nothing' -}+    -> Ptr ()+    {- ^ /@itemsRemoved@/: a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'\<!-- -->s -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `BackForwardListChangedCallback`@.+noBackForwardListChangedCallback :: Maybe BackForwardListChangedCallback+noBackForwardListChangedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_BackForwardListChangedCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.BackForwardListItem.BackForwardListItem ->+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_BackForwardListChangedCallback`.+foreign import ccall "wrapper"+    mk_BackForwardListChangedCallback :: C_BackForwardListChangedCallback -> IO (FunPtr C_BackForwardListChangedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_BackForwardListChanged :: MonadIO m => BackForwardListChangedCallback -> m (GClosure C_BackForwardListChangedCallback)+genClosure_BackForwardListChanged cb = liftIO $ do+    let cb' = wrap_BackForwardListChangedCallback cb+    mk_BackForwardListChangedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `BackForwardListChangedCallback` into a `C_BackForwardListChangedCallback`.+wrap_BackForwardListChangedCallback ::+    BackForwardListChangedCallback ->+    C_BackForwardListChangedCallback+wrap_BackForwardListChangedCallback _cb _ itemAdded itemsRemoved _ = do+    maybeItemAdded <-+        if itemAdded == nullPtr+        then return Nothing+        else do+            itemAdded' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) itemAdded+            return $ Just itemAdded'+    _cb  maybeItemAdded itemsRemoved+++{- |+Connect a signal handler for the “@changed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' backForwardList #changed callback+@+-}+onBackForwardListChanged :: (IsBackForwardList a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId+onBackForwardListChanged obj cb = liftIO $ do+    let cb' = wrap_BackForwardListChangedCallback cb+    cb'' <- mk_BackForwardListChangedCallback cb'+    connectSignalFunPtr obj "changed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@changed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' backForwardList #changed callback+@+-}+afterBackForwardListChanged :: (IsBackForwardList a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId+afterBackForwardListChanged obj cb = liftIO $ do+    let cb' = wrap_BackForwardListChangedCallback cb+    cb'' <- mk_BackForwardListChangedCallback cb'+    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter+++#if ENABLE_OVERLOADING+instance O.HasAttributeList BackForwardList+type instance O.AttributeList BackForwardList = BackForwardListAttributeList+type BackForwardListAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+data BackForwardListChangedSignalInfo+instance SignalInfo BackForwardListChangedSignalInfo where+    type HaskellCallbackType BackForwardListChangedSignalInfo = BackForwardListChangedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_BackForwardListChangedCallback cb+        cb'' <- mk_BackForwardListChangedCallback cb'+        connectSignalFunPtr obj "changed" cb'' connectMode++type instance O.SignalList BackForwardList = BackForwardListSignalList+type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method BackForwardList::get_back_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_back_item" webkit_back_forward_list_get_back_item :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)++{- |+Returns the item that precedes the current item.+-}+backForwardListGetBackItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'+   preceding the current item or 'Nothing'. -}+backForwardListGetBackItem backForwardList = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_back_item backForwardList'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+        return result''+    touchManagedPtr backForwardList+    return maybeResult++#if ENABLE_OVERLOADING+data BackForwardListGetBackItemMethodInfo+instance (signature ~ (m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetBackItem++#endif++-- method BackForwardList::get_back_list+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_back_list" webkit_back_forward_list_get_back_list :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))++{- |+/No description available in the introspection data./+-}+backForwardListGetBackList ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> m [WebKit2.BackForwardListItem.BackForwardListItem]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of+   items preceding the current item. -}+backForwardListGetBackList backForwardList = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_back_list backForwardList'+    result' <- unpackGList result+    result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+    g_list_free result+    touchManagedPtr backForwardList+    return result''++#if ENABLE_OVERLOADING+data BackForwardListGetBackListMethodInfo+instance (signature ~ (m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackListMethodInfo a signature where+    overloadedMethod _ = backForwardListGetBackList++#endif++-- method BackForwardList::get_back_list_with_limit+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items to retrieve", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_back_list_with_limit" webkit_back_forward_list_get_back_list_with_limit :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    Word32 ->                               -- limit : TBasicType TUInt+    IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))++{- |+/No description available in the introspection data./+-}+backForwardListGetBackListWithLimit ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> Word32+    {- ^ /@limit@/: the number of items to retrieve -}+    -> m [WebKit2.BackForwardListItem.BackForwardListItem]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of+   items preceding the current item limited by /@limit@/. -}+backForwardListGetBackListWithLimit backForwardList limit = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_back_list_with_limit backForwardList' limit+    result' <- unpackGList result+    result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+    g_list_free result+    touchManagedPtr backForwardList+    return result''++#if ENABLE_OVERLOADING+data BackForwardListGetBackListWithLimitMethodInfo+instance (signature ~ (Word32 -> m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetBackListWithLimitMethodInfo a signature where+    overloadedMethod _ = backForwardListGetBackListWithLimit++#endif++-- method BackForwardList::get_current_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_current_item" webkit_back_forward_list_get_current_item :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)++{- |+Returns the current item in /@backForwardList@/.+-}+backForwardListGetCurrentItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)+    {- ^ __Returns:__ a 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'+   or 'Nothing' if /@backForwardList@/ is empty. -}+backForwardListGetCurrentItem backForwardList = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_current_item backForwardList'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+        return result''+    touchManagedPtr backForwardList+    return maybeResult++#if ENABLE_OVERLOADING+data BackForwardListGetCurrentItemMethodInfo+instance (signature ~ (m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetCurrentItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetCurrentItem++#endif++-- method BackForwardList::get_forward_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_forward_item" webkit_back_forward_list_get_forward_item :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)++{- |+Returns the item that follows the current item.+-}+backForwardListGetForwardItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'+   following the current item or 'Nothing'. -}+backForwardListGetForwardItem backForwardList = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_forward_item backForwardList'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+        return result''+    touchManagedPtr backForwardList+    return maybeResult++#if ENABLE_OVERLOADING+data BackForwardListGetForwardItemMethodInfo+instance (signature ~ (m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetForwardItem++#endif++-- method BackForwardList::get_forward_list+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_forward_list" webkit_back_forward_list_get_forward_list :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))++{- |+/No description available in the introspection data./+-}+backForwardListGetForwardList ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> m [WebKit2.BackForwardListItem.BackForwardListItem]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of+   items following the current item. -}+backForwardListGetForwardList backForwardList = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_forward_list backForwardList'+    result' <- unpackGList result+    result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+    g_list_free result+    touchManagedPtr backForwardList+    return result''++#if ENABLE_OVERLOADING+data BackForwardListGetForwardListMethodInfo+instance (signature ~ (m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardListMethodInfo a signature where+    overloadedMethod _ = backForwardListGetForwardList++#endif++-- method BackForwardList::get_forward_list_with_limit+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items to retrieve", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_forward_list_with_limit" webkit_back_forward_list_get_forward_list_with_limit :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    Word32 ->                               -- limit : TBasicType TUInt+    IO (Ptr (GList (Ptr WebKit2.BackForwardListItem.BackForwardListItem)))++{- |+/No description available in the introspection data./+-}+backForwardListGetForwardListWithLimit ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> Word32+    {- ^ /@limit@/: the number of items to retrieve -}+    -> m [WebKit2.BackForwardListItem.BackForwardListItem]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of+   items following the current item limited by /@limit@/. -}+backForwardListGetForwardListWithLimit backForwardList limit = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_forward_list_with_limit backForwardList' limit+    result' <- unpackGList result+    result'' <- mapM (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+    g_list_free result+    touchManagedPtr backForwardList+    return result''++#if ENABLE_OVERLOADING+data BackForwardListGetForwardListWithLimitMethodInfo+instance (signature ~ (Word32 -> m [WebKit2.BackForwardListItem.BackForwardListItem]), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetForwardListWithLimitMethodInfo a signature where+    overloadedMethod _ = backForwardListGetForwardListWithLimit++#endif++-- method BackForwardList::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_length" webkit_back_forward_list_get_length :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    IO Word32++{- |+/No description available in the introspection data./+-}+backForwardListGetLength ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> m Word32+    {- ^ __Returns:__ the length of /@backForwardList@/. -}+backForwardListGetLength backForwardList = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_length backForwardList'+    touchManagedPtr backForwardList+    return result++#if ENABLE_OVERLOADING+data BackForwardListGetLengthMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetLengthMethodInfo a signature where+    overloadedMethod _ = backForwardListGetLength++#endif++-- method BackForwardList::get_nth_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "back_forward_list", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_get_nth_item" webkit_back_forward_list_get_nth_item :: +    Ptr BackForwardList ->                  -- back_forward_list : TInterface (Name {namespace = "WebKit2", name = "BackForwardList"})+    Int32 ->                                -- index : TBasicType TInt+    IO (Ptr WebKit2.BackForwardListItem.BackForwardListItem)++{- |+Returns the item at a given index relative to the current item.+-}+backForwardListGetNthItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardList a) =>+    a+    {- ^ /@backForwardList@/: a 'GI.WebKit2.Objects.BackForwardList.BackForwardList' -}+    -> Int32+    {- ^ /@index@/: the index of the item -}+    -> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'+   located at the specified index relative to the current item or 'Nothing'. -}+backForwardListGetNthItem backForwardList index = liftIO $ do+    backForwardList' <- unsafeManagedPtrCastPtr backForwardList+    result <- webkit_back_forward_list_get_nth_item backForwardList' index+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.BackForwardListItem.BackForwardListItem) result'+        return result''+    touchManagedPtr backForwardList+    return maybeResult++#if ENABLE_OVERLOADING+data BackForwardListGetNthItemMethodInfo+instance (signature ~ (Int32 -> m (Maybe WebKit2.BackForwardListItem.BackForwardListItem)), MonadIO m, IsBackForwardList a) => O.MethodInfo BackForwardListGetNthItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetNthItem++#endif++
+ GI/WebKit2/Objects/BackForwardList.hs-boot view
@@ -0,0 +1,59 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.BackForwardList 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++newtype BackForwardList = BackForwardList (ManagedPtr BackForwardList)+instance GObject BackForwardList where+class (GObject o, O.IsDescendantOf BackForwardList o) => IsBackForwardList o+instance (GObject o, O.IsDescendantOf BackForwardList o) => IsBackForwardList o+instance O.HasParentTypes BackForwardList+#if ENABLE_OVERLOADING+data BackForwardListChangedSignalInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetBackItemMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetBackListMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetBackListWithLimitMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetCurrentItemMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetForwardItemMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetForwardListMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetForwardListWithLimitMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetLengthMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListGetNthItemMethodInfo+#endif
+ GI/WebKit2/Objects/BackForwardListItem.hs view
@@ -0,0 +1,267 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.BackForwardListItem+    ( ++-- * Exported types+    BackForwardListItem(..)                 ,+    IsBackForwardListItem                   ,+    toBackForwardListItem                   ,+    noBackForwardListItem                   ,+++ -- * Methods+-- ** getOriginalUri #method:getOriginalUri#++#if ENABLE_OVERLOADING+    BackForwardListItemGetOriginalUriMethodInfo,+#endif+    backForwardListItemGetOriginalUri       ,+++-- ** getTitle #method:getTitle#++#if ENABLE_OVERLOADING+    BackForwardListItemGetTitleMethodInfo   ,+#endif+    backForwardListItemGetTitle             ,+++-- ** getUri #method:getUri#++#if ENABLE_OVERLOADING+    BackForwardListItemGetUriMethodInfo     ,+#endif+    backForwardListItemGetUri               ,+++++    ) 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.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype BackForwardListItem = BackForwardListItem (ManagedPtr BackForwardListItem)+foreign import ccall "webkit_back_forward_list_item_get_type"+    c_webkit_back_forward_list_item_get_type :: IO GType++instance GObject BackForwardListItem where+    gobjectType = c_webkit_back_forward_list_item_get_type+    ++-- | Type class for types which can be safely cast to `BackForwardListItem`, for instance with `toBackForwardListItem`.+class (GObject o, O.IsDescendantOf BackForwardListItem o) => IsBackForwardListItem o+instance (GObject o, O.IsDescendantOf BackForwardListItem o) => IsBackForwardListItem o++instance O.HasParentTypes BackForwardListItem+type instance O.ParentTypes BackForwardListItem = '[GObject.Object.Object]++-- | Cast to `BackForwardListItem`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toBackForwardListItem :: (MonadIO m, IsBackForwardListItem o) => o -> m BackForwardListItem+toBackForwardListItem = liftIO . unsafeCastTo BackForwardListItem++-- | A convenience alias for `Nothing` :: `Maybe` `BackForwardListItem`.+noBackForwardListItem :: Maybe BackForwardListItem+noBackForwardListItem = Nothing++#if ENABLE_OVERLOADING+type family ResolveBackForwardListItemMethod (t :: Symbol) (o :: *) :: * where+    ResolveBackForwardListItemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveBackForwardListItemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveBackForwardListItemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveBackForwardListItemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveBackForwardListItemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveBackForwardListItemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveBackForwardListItemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveBackForwardListItemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveBackForwardListItemMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveBackForwardListItemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveBackForwardListItemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveBackForwardListItemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveBackForwardListItemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveBackForwardListItemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveBackForwardListItemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveBackForwardListItemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveBackForwardListItemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveBackForwardListItemMethod "getOriginalUri" o = BackForwardListItemGetOriginalUriMethodInfo+    ResolveBackForwardListItemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveBackForwardListItemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveBackForwardListItemMethod "getTitle" o = BackForwardListItemGetTitleMethodInfo+    ResolveBackForwardListItemMethod "getUri" o = BackForwardListItemGetUriMethodInfo+    ResolveBackForwardListItemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveBackForwardListItemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveBackForwardListItemMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, O.MethodInfo info BackForwardListItem p) => OL.IsLabel t (BackForwardListItem -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList BackForwardListItem+type instance O.AttributeList BackForwardListItem = BackForwardListItemAttributeList+type BackForwardListItemAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList BackForwardListItem = BackForwardListItemSignalList+type BackForwardListItemSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method BackForwardListItem::get_original_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "list_item", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardListItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_item_get_original_uri" webkit_back_forward_list_item_get_original_uri :: +    Ptr BackForwardListItem ->              -- list_item : TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})+    IO CString++{- |+See also 'GI.WebKit2.Objects.BackForwardListItem.backForwardListItemGetUri'.+-}+backForwardListItemGetOriginalUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardListItem a) =>+    a+    {- ^ /@listItem@/: a 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the original URI of /@listItem@/ or 'Nothing'+   when the original URI is empty. -}+backForwardListItemGetOriginalUri listItem = liftIO $ do+    listItem' <- unsafeManagedPtrCastPtr listItem+    result <- webkit_back_forward_list_item_get_original_uri listItem'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr listItem+    return maybeResult++#if ENABLE_OVERLOADING+data BackForwardListItemGetOriginalUriMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBackForwardListItem a) => O.MethodInfo BackForwardListItemGetOriginalUriMethodInfo a signature where+    overloadedMethod _ = backForwardListItemGetOriginalUri++#endif++-- method BackForwardListItem::get_title+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "list_item", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardListItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_item_get_title" webkit_back_forward_list_item_get_title :: +    Ptr BackForwardListItem ->              -- list_item : TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})+    IO CString++{- |+/No description available in the introspection data./+-}+backForwardListItemGetTitle ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardListItem a) =>+    a+    {- ^ /@listItem@/: a 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the page title of /@listItem@/ or 'Nothing'+   when the title is empty. -}+backForwardListItemGetTitle listItem = liftIO $ do+    listItem' <- unsafeManagedPtrCastPtr listItem+    result <- webkit_back_forward_list_item_get_title listItem'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr listItem+    return maybeResult++#if ENABLE_OVERLOADING+data BackForwardListItemGetTitleMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBackForwardListItem a) => O.MethodInfo BackForwardListItemGetTitleMethodInfo a signature where+    overloadedMethod _ = backForwardListItemGetTitle++#endif++-- method BackForwardListItem::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "list_item", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardListItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_back_forward_list_item_get_uri" webkit_back_forward_list_item_get_uri :: +    Ptr BackForwardListItem ->              -- list_item : TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})+    IO CString++{- |+This URI may differ from the original URI if the page was,+for example, redirected to a new location.+See also 'GI.WebKit2.Objects.BackForwardListItem.backForwardListItemGetOriginalUri'.+-}+backForwardListItemGetUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsBackForwardListItem a) =>+    a+    {- ^ /@listItem@/: a 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the URI of /@listItem@/ or 'Nothing'+   when the URI is empty. -}+backForwardListItemGetUri listItem = liftIO $ do+    listItem' <- unsafeManagedPtrCastPtr listItem+    result <- webkit_back_forward_list_item_get_uri listItem'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr listItem+    return maybeResult++#if ENABLE_OVERLOADING+data BackForwardListItemGetUriMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBackForwardListItem a) => O.MethodInfo BackForwardListItemGetUriMethodInfo a signature where+    overloadedMethod _ = backForwardListItemGetUri++#endif++
+ GI/WebKit2/Objects/BackForwardListItem.hs-boot view
@@ -0,0 +1,38 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.BackForwardListItem 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++newtype BackForwardListItem = BackForwardListItem (ManagedPtr BackForwardListItem)+instance GObject BackForwardListItem where+class (GObject o, O.IsDescendantOf BackForwardListItem o) => IsBackForwardListItem o+instance (GObject o, O.IsDescendantOf BackForwardListItem o) => IsBackForwardListItem o+instance O.HasParentTypes BackForwardListItem+#if ENABLE_OVERLOADING+data BackForwardListItemGetOriginalUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListItemGetTitleMethodInfo+#endif+#if ENABLE_OVERLOADING+data BackForwardListItemGetUriMethodInfo+#endif
+ GI/WebKit2/Objects/ColorChooserRequest.hs view
@@ -0,0 +1,527 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.ColorChooserRequest+    ( ++-- * Exported types+    ColorChooserRequest(..)                 ,+    IsColorChooserRequest                   ,+    toColorChooserRequest                   ,+    noColorChooserRequest                   ,+++ -- * Methods+-- ** cancel #method:cancel#++#if ENABLE_OVERLOADING+    ColorChooserRequestCancelMethodInfo     ,+#endif+    colorChooserRequestCancel               ,+++-- ** finish #method:finish#++#if ENABLE_OVERLOADING+    ColorChooserRequestFinishMethodInfo     ,+#endif+    colorChooserRequestFinish               ,+++-- ** getElementRectangle #method:getElementRectangle#++#if ENABLE_OVERLOADING+    ColorChooserRequestGetElementRectangleMethodInfo,+#endif+    colorChooserRequestGetElementRectangle  ,+++-- ** getRgba #method:getRgba#++#if ENABLE_OVERLOADING+    ColorChooserRequestGetRgbaMethodInfo    ,+#endif+    colorChooserRequestGetRgba              ,+++-- ** setRgba #method:setRgba#++#if ENABLE_OVERLOADING+    ColorChooserRequestSetRgbaMethodInfo    ,+#endif+    colorChooserRequestSetRgba              ,+++++ -- * Properties+-- ** rgba #attr:rgba#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    ColorChooserRequestRgbaPropertyInfo     ,+#endif+#if ENABLE_OVERLOADING+    colorChooserRequestRgba                 ,+#endif+    constructColorChooserRequestRgba        ,+    getColorChooserRequestRgba              ,+    setColorChooserRequestRgba              ,+++++ -- * Signals+-- ** finished #signal:finished#++    C_ColorChooserRequestFinishedCallback   ,+    ColorChooserRequestFinishedCallback     ,+#if ENABLE_OVERLOADING+    ColorChooserRequestFinishedSignalInfo   ,+#endif+    afterColorChooserRequestFinished        ,+    genClosure_ColorChooserRequestFinished  ,+    mk_ColorChooserRequestFinishedCallback  ,+    noColorChooserRequestFinishedCallback   ,+    onColorChooserRequestFinished           ,+    wrap_ColorChooserRequestFinishedCallback,+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA+import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle++-- | Memory-managed wrapper type.+newtype ColorChooserRequest = ColorChooserRequest (ManagedPtr ColorChooserRequest)+foreign import ccall "webkit_color_chooser_request_get_type"+    c_webkit_color_chooser_request_get_type :: IO GType++instance GObject ColorChooserRequest where+    gobjectType = c_webkit_color_chooser_request_get_type+    ++-- | Type class for types which can be safely cast to `ColorChooserRequest`, for instance with `toColorChooserRequest`.+class (GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o+instance (GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o++instance O.HasParentTypes ColorChooserRequest+type instance O.ParentTypes ColorChooserRequest = '[GObject.Object.Object]++-- | Cast to `ColorChooserRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toColorChooserRequest :: (MonadIO m, IsColorChooserRequest o) => o -> m ColorChooserRequest+toColorChooserRequest = liftIO . unsafeCastTo ColorChooserRequest++-- | A convenience alias for `Nothing` :: `Maybe` `ColorChooserRequest`.+noColorChooserRequest :: Maybe ColorChooserRequest+noColorChooserRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveColorChooserRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveColorChooserRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveColorChooserRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveColorChooserRequestMethod "cancel" o = ColorChooserRequestCancelMethodInfo+    ResolveColorChooserRequestMethod "finish" o = ColorChooserRequestFinishMethodInfo+    ResolveColorChooserRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveColorChooserRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveColorChooserRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveColorChooserRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveColorChooserRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveColorChooserRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveColorChooserRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveColorChooserRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveColorChooserRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveColorChooserRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveColorChooserRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveColorChooserRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveColorChooserRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveColorChooserRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveColorChooserRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveColorChooserRequestMethod "getElementRectangle" o = ColorChooserRequestGetElementRectangleMethodInfo+    ResolveColorChooserRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveColorChooserRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveColorChooserRequestMethod "getRgba" o = ColorChooserRequestGetRgbaMethodInfo+    ResolveColorChooserRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveColorChooserRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveColorChooserRequestMethod "setRgba" o = ColorChooserRequestSetRgbaMethodInfo+    ResolveColorChooserRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, O.MethodInfo info ColorChooserRequest p) => OL.IsLabel t (ColorChooserRequest -> 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++-- signal ColorChooserRequest::finished+{- |+Emitted when the /@request@/ finishes. This signal can be emitted because the+user completed the /@request@/ calling 'GI.WebKit2.Objects.ColorChooserRequest.colorChooserRequestFinish',+or cancelled it with 'GI.WebKit2.Objects.ColorChooserRequest.colorChooserRequestCancel' or because the+color input element is removed from the DOM.++/Since: 2.8/+-}+type ColorChooserRequestFinishedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `ColorChooserRequestFinishedCallback`@.+noColorChooserRequestFinishedCallback :: Maybe ColorChooserRequestFinishedCallback+noColorChooserRequestFinishedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_ColorChooserRequestFinishedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_ColorChooserRequestFinishedCallback`.+foreign import ccall "wrapper"+    mk_ColorChooserRequestFinishedCallback :: C_ColorChooserRequestFinishedCallback -> IO (FunPtr C_ColorChooserRequestFinishedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_ColorChooserRequestFinished :: MonadIO m => ColorChooserRequestFinishedCallback -> m (GClosure C_ColorChooserRequestFinishedCallback)+genClosure_ColorChooserRequestFinished cb = liftIO $ do+    let cb' = wrap_ColorChooserRequestFinishedCallback cb+    mk_ColorChooserRequestFinishedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `ColorChooserRequestFinishedCallback` into a `C_ColorChooserRequestFinishedCallback`.+wrap_ColorChooserRequestFinishedCallback ::+    ColorChooserRequestFinishedCallback ->+    C_ColorChooserRequestFinishedCallback+wrap_ColorChooserRequestFinishedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@finished@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' colorChooserRequest #finished callback+@+-}+onColorChooserRequestFinished :: (IsColorChooserRequest a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId+onColorChooserRequestFinished obj cb = liftIO $ do+    let cb' = wrap_ColorChooserRequestFinishedCallback cb+    cb'' <- mk_ColorChooserRequestFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@finished@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' colorChooserRequest #finished callback+@+-}+afterColorChooserRequestFinished :: (IsColorChooserRequest a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId+afterColorChooserRequestFinished obj cb = liftIO $ do+    let cb' = wrap_ColorChooserRequestFinishedCallback cb+    cb'' <- mk_ColorChooserRequestFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectAfter+++-- VVV Prop "rgba"+   -- Type: TInterface (Name {namespace = "Gdk", name = "RGBA"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Nothing,Just False)++{- |+Get the value of the “@rgba@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' colorChooserRequest #rgba+@+-}+getColorChooserRequestRgba :: (MonadIO m, IsColorChooserRequest o) => o -> m (Maybe Gdk.RGBA.RGBA)+getColorChooserRequestRgba obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "rgba" Gdk.RGBA.RGBA++{- |+Set the value of the “@rgba@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' colorChooserRequest [ #rgba 'Data.GI.Base.Attributes.:=' value ]+@+-}+setColorChooserRequestRgba :: (MonadIO m, IsColorChooserRequest o) => o -> Gdk.RGBA.RGBA -> m ()+setColorChooserRequestRgba obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "rgba" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@rgba@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructColorChooserRequestRgba :: (IsColorChooserRequest o) => Gdk.RGBA.RGBA -> IO (GValueConstruct o)+constructColorChooserRequestRgba val = B.Properties.constructObjectPropertyBoxed "rgba" (Just val)++#if ENABLE_OVERLOADING+data ColorChooserRequestRgbaPropertyInfo+instance AttrInfo ColorChooserRequestRgbaPropertyInfo where+    type AttrAllowedOps ColorChooserRequestRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA.RGBA+    type AttrBaseTypeConstraint ColorChooserRequestRgbaPropertyInfo = IsColorChooserRequest+    type AttrGetType ColorChooserRequestRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)+    type AttrLabel ColorChooserRequestRgbaPropertyInfo = "rgba"+    type AttrOrigin ColorChooserRequestRgbaPropertyInfo = ColorChooserRequest+    attrGet _ = getColorChooserRequestRgba+    attrSet _ = setColorChooserRequestRgba+    attrConstruct _ = constructColorChooserRequestRgba+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList ColorChooserRequest+type instance O.AttributeList ColorChooserRequest = ColorChooserRequestAttributeList+type ColorChooserRequestAttributeList = ('[ '("rgba", ColorChooserRequestRgbaPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+colorChooserRequestRgba :: AttrLabelProxy "rgba"+colorChooserRequestRgba = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data ColorChooserRequestFinishedSignalInfo+instance SignalInfo ColorChooserRequestFinishedSignalInfo where+    type HaskellCallbackType ColorChooserRequestFinishedSignalInfo = ColorChooserRequestFinishedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_ColorChooserRequestFinishedCallback cb+        cb'' <- mk_ColorChooserRequestFinishedCallback cb'+        connectSignalFunPtr obj "finished" cb'' connectMode++type instance O.SignalList ColorChooserRequest = ColorChooserRequestSignalList+type ColorChooserRequestSignalList = ('[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method ColorChooserRequest::cancel+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitColorChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_color_chooser_request_cancel" webkit_color_chooser_request_cancel :: +    Ptr ColorChooserRequest ->              -- request : TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"})+    IO ()++{- |+Cancels /@request@/ and the input element changes to use the initial color+it has before the request started.+The signal 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest'::@/finished/@+is emitted to notify that the request has finished.++/Since: 2.8/+-}+colorChooserRequestCancel ::+    (B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' -}+    -> m ()+colorChooserRequestCancel request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    webkit_color_chooser_request_cancel request'+    touchManagedPtr request+    return ()++#if ENABLE_OVERLOADING+data ColorChooserRequestCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestCancelMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestCancel++#endif++-- method ColorChooserRequest::finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitColorChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_color_chooser_request_finish" webkit_color_chooser_request_finish :: +    Ptr ColorChooserRequest ->              -- request : TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"})+    IO ()++{- |+Finishes /@request@/ and the input element keeps the current value of+'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest':@/rgba/@.+The signal 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest'::@/finished/@+is emitted to notify that the request has finished.++/Since: 2.8/+-}+colorChooserRequestFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' -}+    -> m ()+colorChooserRequestFinish request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    webkit_color_chooser_request_finish request'+    touchManagedPtr request+    return ()++#if ENABLE_OVERLOADING+data ColorChooserRequestFinishMethodInfo+instance (signature ~ (m ()), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestFinishMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestFinish++#endif++-- method ColorChooserRequest::get_element_rectangle+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitColorChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkRectangle to fill in with the element area", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_color_chooser_request_get_element_rectangle" webkit_color_chooser_request_get_element_rectangle :: +    Ptr ColorChooserRequest ->              -- request : TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"})+    Ptr Gdk.Rectangle.Rectangle ->          -- rect : TInterface (Name {namespace = "Gdk", name = "Rectangle"})+    IO ()++{- |+Gets the bounding box of the color input element.++/Since: 2.8/+-}+colorChooserRequestGetElementRectangle ::+    (B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' -}+    -> m (Gdk.Rectangle.Rectangle)+colorChooserRequestGetElementRectangle request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)+    webkit_color_chooser_request_get_element_rectangle request' rect+    rect' <- (wrapBoxed Gdk.Rectangle.Rectangle) rect+    touchManagedPtr request+    return rect'++#if ENABLE_OVERLOADING+data ColorChooserRequestGetElementRectangleMethodInfo+instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestGetElementRectangleMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestGetElementRectangle++#endif++-- method ColorChooserRequest::get_rgba+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitColorChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface (Name {namespace = "Gdk", name = "RGBA"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkRGBA to fill in with the current color.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_color_chooser_request_get_rgba" webkit_color_chooser_request_get_rgba :: +    Ptr ColorChooserRequest ->              -- request : TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"})+    Ptr Gdk.RGBA.RGBA ->                    -- rgba : TInterface (Name {namespace = "Gdk", name = "RGBA"})+    IO ()++{- |+Gets the current 'GI.Gdk.Structs.RGBA.RGBA' color of /@request@/++/Since: 2.8/+-}+colorChooserRequestGetRgba ::+    (B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' -}+    -> m (Gdk.RGBA.RGBA)+colorChooserRequestGetRgba request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)+    webkit_color_chooser_request_get_rgba request' rgba+    rgba' <- (wrapBoxed Gdk.RGBA.RGBA) rgba+    touchManagedPtr request+    return rgba'++#if ENABLE_OVERLOADING+data ColorChooserRequestGetRgbaMethodInfo+instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestGetRgbaMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestGetRgba++#endif++-- method ColorChooserRequest::set_rgba+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFileChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface (Name {namespace = "Gdk", name = "RGBA"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer #GdkRGBA", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_color_chooser_request_set_rgba" webkit_color_chooser_request_set_rgba :: +    Ptr ColorChooserRequest ->              -- request : TInterface (Name {namespace = "WebKit2", name = "ColorChooserRequest"})+    Ptr Gdk.RGBA.RGBA ->                    -- rgba : TInterface (Name {namespace = "Gdk", name = "RGBA"})+    IO ()++{- |+Sets the current 'GI.Gdk.Structs.RGBA.RGBA' color of /@request@/++/Since: 2.8/+-}+colorChooserRequestSetRgba ::+    (B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> Gdk.RGBA.RGBA+    {- ^ /@rgba@/: a pointer 'GI.Gdk.Structs.RGBA.RGBA' -}+    -> m ()+colorChooserRequestSetRgba request rgba = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    rgba' <- unsafeManagedPtrGetPtr rgba+    webkit_color_chooser_request_set_rgba request' rgba'+    touchManagedPtr request+    touchManagedPtr rgba+    return ()++#if ENABLE_OVERLOADING+data ColorChooserRequestSetRgbaMethodInfo+instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestSetRgbaMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestSetRgba++#endif++
+ GI/WebKit2/Objects/ColorChooserRequest.hs-boot view
@@ -0,0 +1,50 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.ColorChooserRequest 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++newtype ColorChooserRequest = ColorChooserRequest (ManagedPtr ColorChooserRequest)+instance GObject ColorChooserRequest where+class (GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o+instance (GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o+instance O.HasParentTypes ColorChooserRequest+#if ENABLE_OVERLOADING+data ColorChooserRequestRgbaPropertyInfo+#endif+#if ENABLE_OVERLOADING+data ColorChooserRequestFinishedSignalInfo+#endif+#if ENABLE_OVERLOADING+data ColorChooserRequestCancelMethodInfo+#endif+#if ENABLE_OVERLOADING+data ColorChooserRequestFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data ColorChooserRequestGetElementRectangleMethodInfo+#endif+#if ENABLE_OVERLOADING+data ColorChooserRequestGetRgbaMethodInfo+#endif+#if ENABLE_OVERLOADING+data ColorChooserRequestSetRgbaMethodInfo+#endif
+ GI/WebKit2/Objects/ContextMenu.hs view
@@ -0,0 +1,830 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.ContextMenu+    ( ++-- * Exported types+    ContextMenu(..)                         ,+    IsContextMenu                           ,+    toContextMenu                           ,+    noContextMenu                           ,+++ -- * Methods+-- ** append #method:append#++#if ENABLE_OVERLOADING+    ContextMenuAppendMethodInfo             ,+#endif+    contextMenuAppend                       ,+++-- ** first #method:first#++#if ENABLE_OVERLOADING+    ContextMenuFirstMethodInfo              ,+#endif+    contextMenuFirst                        ,+++-- ** getItemAtPosition #method:getItemAtPosition#++#if ENABLE_OVERLOADING+    ContextMenuGetItemAtPositionMethodInfo  ,+#endif+    contextMenuGetItemAtPosition            ,+++-- ** getItems #method:getItems#++#if ENABLE_OVERLOADING+    ContextMenuGetItemsMethodInfo           ,+#endif+    contextMenuGetItems                     ,+++-- ** getNItems #method:getNItems#++#if ENABLE_OVERLOADING+    ContextMenuGetNItemsMethodInfo          ,+#endif+    contextMenuGetNItems                    ,+++-- ** getUserData #method:getUserData#++#if ENABLE_OVERLOADING+    ContextMenuGetUserDataMethodInfo        ,+#endif+    contextMenuGetUserData                  ,+++-- ** insert #method:insert#++#if ENABLE_OVERLOADING+    ContextMenuInsertMethodInfo             ,+#endif+    contextMenuInsert                       ,+++-- ** last #method:last#++#if ENABLE_OVERLOADING+    ContextMenuLastMethodInfo               ,+#endif+    contextMenuLast                         ,+++-- ** moveItem #method:moveItem#++#if ENABLE_OVERLOADING+    ContextMenuMoveItemMethodInfo           ,+#endif+    contextMenuMoveItem                     ,+++-- ** new #method:new#++    contextMenuNew                          ,+++-- ** newWithItems #method:newWithItems#++    contextMenuNewWithItems                 ,+++-- ** prepend #method:prepend#++#if ENABLE_OVERLOADING+    ContextMenuPrependMethodInfo            ,+#endif+    contextMenuPrepend                      ,+++-- ** remove #method:remove#++#if ENABLE_OVERLOADING+    ContextMenuRemoveMethodInfo             ,+#endif+    contextMenuRemove                       ,+++-- ** removeAll #method:removeAll#++#if ENABLE_OVERLOADING+    ContextMenuRemoveAllMethodInfo          ,+#endif+    contextMenuRemoveAll                    ,+++-- ** setUserData #method:setUserData#++#if ENABLE_OVERLOADING+    ContextMenuSetUserDataMethodInfo        ,+#endif+    contextMenuSetUserData                  ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Objects.ContextMenuItem as WebKit2.ContextMenuItem++-- | Memory-managed wrapper type.+newtype ContextMenu = ContextMenu (ManagedPtr ContextMenu)+foreign import ccall "webkit_context_menu_get_type"+    c_webkit_context_menu_get_type :: IO GType++instance GObject ContextMenu where+    gobjectType = c_webkit_context_menu_get_type+    ++-- | Type class for types which can be safely cast to `ContextMenu`, for instance with `toContextMenu`.+class (GObject o, O.IsDescendantOf ContextMenu o) => IsContextMenu o+instance (GObject o, O.IsDescendantOf ContextMenu o) => IsContextMenu o++instance O.HasParentTypes ContextMenu+type instance O.ParentTypes ContextMenu = '[GObject.Object.Object]++-- | Cast to `ContextMenu`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toContextMenu :: (MonadIO m, IsContextMenu o) => o -> m ContextMenu+toContextMenu = liftIO . unsafeCastTo ContextMenu++-- | A convenience alias for `Nothing` :: `Maybe` `ContextMenu`.+noContextMenu :: Maybe ContextMenu+noContextMenu = Nothing++#if ENABLE_OVERLOADING+type family ResolveContextMenuMethod (t :: Symbol) (o :: *) :: * where+    ResolveContextMenuMethod "append" o = ContextMenuAppendMethodInfo+    ResolveContextMenuMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveContextMenuMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveContextMenuMethod "first" o = ContextMenuFirstMethodInfo+    ResolveContextMenuMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveContextMenuMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveContextMenuMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveContextMenuMethod "insert" o = ContextMenuInsertMethodInfo+    ResolveContextMenuMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveContextMenuMethod "last" o = ContextMenuLastMethodInfo+    ResolveContextMenuMethod "moveItem" o = ContextMenuMoveItemMethodInfo+    ResolveContextMenuMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveContextMenuMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveContextMenuMethod "prepend" o = ContextMenuPrependMethodInfo+    ResolveContextMenuMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveContextMenuMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveContextMenuMethod "remove" o = ContextMenuRemoveMethodInfo+    ResolveContextMenuMethod "removeAll" o = ContextMenuRemoveAllMethodInfo+    ResolveContextMenuMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveContextMenuMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveContextMenuMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveContextMenuMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveContextMenuMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveContextMenuMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveContextMenuMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveContextMenuMethod "getItemAtPosition" o = ContextMenuGetItemAtPositionMethodInfo+    ResolveContextMenuMethod "getItems" o = ContextMenuGetItemsMethodInfo+    ResolveContextMenuMethod "getNItems" o = ContextMenuGetNItemsMethodInfo+    ResolveContextMenuMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveContextMenuMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveContextMenuMethod "getUserData" o = ContextMenuGetUserDataMethodInfo+    ResolveContextMenuMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveContextMenuMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveContextMenuMethod "setUserData" o = ContextMenuSetUserDataMethodInfo+    ResolveContextMenuMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveContextMenuMethod t ContextMenu, O.MethodInfo info ContextMenu p) => OL.IsLabel t (ContextMenu -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList ContextMenu+type instance O.AttributeList ContextMenu = ContextMenuAttributeList+type ContextMenuAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList ContextMenu = ContextMenuSignalList+type ContextMenuSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method ContextMenu::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_new" webkit_context_menu_new :: +    IO (Ptr ContextMenu)++{- |+Creates a new 'GI.WebKit2.Objects.ContextMenu.ContextMenu' object to be used as a submenu of an existing+'GI.WebKit2.Objects.ContextMenu.ContextMenu'. The context menu of a 'GI.WebKit2.Objects.WebView.WebView' is created by the view+and passed as an argument of 'GI.WebKit2.Objects.WebView.WebView'::@/context-menu/@ signal.+To add items to the menu use 'GI.WebKit2.Objects.ContextMenu.contextMenuPrepend',+'GI.WebKit2.Objects.ContextMenu.contextMenuAppend' or 'GI.WebKit2.Objects.ContextMenu.contextMenuInsert'.+See also 'GI.WebKit2.Objects.ContextMenu.contextMenuNewWithItems' to create a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' with+a list of initial items.+-}+contextMenuNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m ContextMenu+    {- ^ __Returns:__ The newly created 'GI.WebKit2.Objects.ContextMenu.ContextMenu' object -}+contextMenuNew  = liftIO $ do+    result <- webkit_context_menu_new+    checkUnexpectedReturnNULL "contextMenuNew" result+    result' <- (wrapObject ContextMenu) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenu::new_with_items+-- method type : Constructor+-- Args : [Arg {argCName = "items", argType = TGList (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GList of #WebKitContextMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_new_with_items" webkit_context_menu_new_with_items :: +    Ptr (GList (Ptr WebKit2.ContextMenuItem.ContextMenuItem)) -> -- items : TGList (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+    IO (Ptr ContextMenu)++{- |+Creates a new 'GI.WebKit2.Objects.ContextMenu.ContextMenu' object to be used as a submenu of an existing+'GI.WebKit2.Objects.ContextMenu.ContextMenu' with the given initial items.+See also 'GI.WebKit2.Objects.ContextMenu.contextMenuNew'+-}+contextMenuNewWithItems ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.ContextMenuItem.IsContextMenuItem a) =>+    [a]+    {- ^ /@items@/: a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' -}+    -> m ContextMenu+    {- ^ __Returns:__ The newly created 'GI.WebKit2.Objects.ContextMenu.ContextMenu' object -}+contextMenuNewWithItems items = liftIO $ do+    items' <- mapM unsafeManagedPtrCastPtr items+    items'' <- packGList items'+    result <- webkit_context_menu_new_with_items items''+    checkUnexpectedReturnNULL "contextMenuNewWithItems" result+    result' <- (wrapObject ContextMenu) result+    mapM_ touchManagedPtr items+    g_list_free items''+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenu::append+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitContextMenuItem to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_append" webkit_context_menu_append :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    Ptr WebKit2.ContextMenuItem.ContextMenuItem -> -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO ()++{- |+Adds /@item@/ at the end of the /@menu@/.+-}+contextMenuAppend ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> b+    {- ^ /@item@/: the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' to add -}+    -> m ()+contextMenuAppend menu item = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    item' <- unsafeManagedPtrCastPtr item+    webkit_context_menu_append menu' item'+    touchManagedPtr menu+    touchManagedPtr item+    return ()++#if ENABLE_OVERLOADING+data ContextMenuAppendMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) => O.MethodInfo ContextMenuAppendMethodInfo a signature where+    overloadedMethod _ = contextMenuAppend++#endif++-- method ContextMenu::first+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_first" webkit_context_menu_first :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO (Ptr WebKit2.ContextMenuItem.ContextMenuItem)++{- |+Gets the first item in the /@menu@/.+-}+contextMenuFirst ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> m (Maybe WebKit2.ContextMenuItem.ContextMenuItem)+    {- ^ __Returns:__ the first 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' of /@menu@/,+   or 'Nothing' if the 'GI.WebKit2.Objects.ContextMenu.ContextMenu' is empty. -}+contextMenuFirst menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_context_menu_first menu'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.ContextMenuItem.ContextMenuItem) result'+        return result''+    touchManagedPtr menu+    return maybeResult++#if ENABLE_OVERLOADING+data ContextMenuFirstMethodInfo+instance (signature ~ (m (Maybe WebKit2.ContextMenuItem.ContextMenuItem)), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuFirstMethodInfo a signature where+    overloadedMethod _ = contextMenuFirst++#endif++-- method ContextMenu::get_item_at_position+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position of the item, counting from 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_get_item_at_position" webkit_context_menu_get_item_at_position :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    Word32 ->                               -- position : TBasicType TUInt+    IO (Ptr WebKit2.ContextMenuItem.ContextMenuItem)++{- |+Gets the item at the given position in the /@menu@/.+-}+contextMenuGetItemAtPosition ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> Word32+    {- ^ /@position@/: the position of the item, counting from 0 -}+    -> m (Maybe WebKit2.ContextMenuItem.ContextMenuItem)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' at position /@position@/ in /@menu@/,+   or 'Nothing' if the position is off the end of the /@menu@/. -}+contextMenuGetItemAtPosition menu position = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_context_menu_get_item_at_position menu' position+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.ContextMenuItem.ContextMenuItem) result'+        return result''+    touchManagedPtr menu+    return maybeResult++#if ENABLE_OVERLOADING+data ContextMenuGetItemAtPositionMethodInfo+instance (signature ~ (Word32 -> m (Maybe WebKit2.ContextMenuItem.ContextMenuItem)), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuGetItemAtPositionMethodInfo a signature where+    overloadedMethod _ = contextMenuGetItemAtPosition++#endif++-- method ContextMenu::get_items+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_get_items" webkit_context_menu_get_items :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO (Ptr (GList (Ptr WebKit2.ContextMenuItem.ContextMenuItem)))++{- |+Returns the item list of /@menu@/.+-}+contextMenuGetItems ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> m [WebKit2.ContextMenuItem.ContextMenuItem]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of+   'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem'\<!-- -->s -}+contextMenuGetItems menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_context_menu_get_items menu'+    result' <- unpackGList result+    result'' <- mapM (newObject WebKit2.ContextMenuItem.ContextMenuItem) result'+    touchManagedPtr menu+    return result''++#if ENABLE_OVERLOADING+data ContextMenuGetItemsMethodInfo+instance (signature ~ (m [WebKit2.ContextMenuItem.ContextMenuItem]), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuGetItemsMethodInfo a signature where+    overloadedMethod _ = contextMenuGetItems++#endif++-- method ContextMenu::get_n_items+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_get_n_items" webkit_context_menu_get_n_items :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO Word32++{- |+Gets the length of the /@menu@/.+-}+contextMenuGetNItems ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> m Word32+    {- ^ __Returns:__ the number of 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem'\<!-- -->s in /@menu@/ -}+contextMenuGetNItems menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_context_menu_get_n_items menu'+    touchManagedPtr menu+    return result++#if ENABLE_OVERLOADING+data ContextMenuGetNItemsMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuGetNItemsMethodInfo a signature where+    overloadedMethod _ = contextMenuGetNItems++#endif++-- method ContextMenu::get_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just TVariant+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_get_user_data" webkit_context_menu_get_user_data :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO (Ptr GVariant)++{- |+Gets the user data of /@menu@/.+This function can be used from the UI Process to get user data previously set+from the Web Process with 'GI.WebKit2.Objects.ContextMenu.contextMenuSetUserData'.++/Since: 2.8/+-}+contextMenuGetUserData ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> m (Maybe GVariant)+    {- ^ __Returns:__ the user data of /@menu@/, or 'Nothing' if /@menu@/ doesn\'t have user data -}+contextMenuGetUserData menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_context_menu_get_user_data menu'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- B.GVariant.newGVariantFromPtr result'+        return result''+    touchManagedPtr menu+    return maybeResult++#if ENABLE_OVERLOADING+data ContextMenuGetUserDataMethodInfo+instance (signature ~ (m (Maybe GVariant)), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuGetUserDataMethodInfo a signature where+    overloadedMethod _ = contextMenuGetUserData++#endif++-- method ContextMenu::insert+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitContextMenuItem to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position to insert the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_insert" webkit_context_menu_insert :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    Ptr WebKit2.ContextMenuItem.ContextMenuItem -> -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    Int32 ->                                -- position : TBasicType TInt+    IO ()++{- |+Inserts /@item@/ into the /@menu@/ at the given position.+If /@position@/ is negative, or is larger than the number of items+in the 'GI.WebKit2.Objects.ContextMenu.ContextMenu', the item is added on to the end of+the /@menu@/. The first position is 0.+-}+contextMenuInsert ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> b+    {- ^ /@item@/: the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' to add -}+    -> Int32+    {- ^ /@position@/: the position to insert the item -}+    -> m ()+contextMenuInsert menu item position = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    item' <- unsafeManagedPtrCastPtr item+    webkit_context_menu_insert menu' item' position+    touchManagedPtr menu+    touchManagedPtr item+    return ()++#if ENABLE_OVERLOADING+data ContextMenuInsertMethodInfo+instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) => O.MethodInfo ContextMenuInsertMethodInfo a signature where+    overloadedMethod _ = contextMenuInsert++#endif++-- method ContextMenu::last+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_last" webkit_context_menu_last :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO (Ptr WebKit2.ContextMenuItem.ContextMenuItem)++{- |+Gets the last item in the /@menu@/.+-}+contextMenuLast ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> m (Maybe WebKit2.ContextMenuItem.ContextMenuItem)+    {- ^ __Returns:__ the last 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' of /@menu@/,+   or 'Nothing' if the 'GI.WebKit2.Objects.ContextMenu.ContextMenu' is empty. -}+contextMenuLast menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_context_menu_last menu'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.ContextMenuItem.ContextMenuItem) result'+        return result''+    touchManagedPtr menu+    return maybeResult++#if ENABLE_OVERLOADING+data ContextMenuLastMethodInfo+instance (signature ~ (m (Maybe WebKit2.ContextMenuItem.ContextMenuItem)), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuLastMethodInfo a signature where+    overloadedMethod _ = contextMenuLast++#endif++-- method ContextMenu::move_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitContextMenuItem to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new position to move the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_move_item" webkit_context_menu_move_item :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    Ptr WebKit2.ContextMenuItem.ContextMenuItem -> -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    Int32 ->                                -- position : TBasicType TInt+    IO ()++{- |+Moves /@item@/ to the given position in the /@menu@/.+If /@position@/ is negative, or is larger than the number of items+in the 'GI.WebKit2.Objects.ContextMenu.ContextMenu', the item is added on to the end of+the /@menu@/.+The first position is 0.+-}+contextMenuMoveItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> b+    {- ^ /@item@/: the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' to add -}+    -> Int32+    {- ^ /@position@/: the new position to move the item -}+    -> m ()+contextMenuMoveItem menu item position = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    item' <- unsafeManagedPtrCastPtr item+    webkit_context_menu_move_item menu' item' position+    touchManagedPtr menu+    touchManagedPtr item+    return ()++#if ENABLE_OVERLOADING+data ContextMenuMoveItemMethodInfo+instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) => O.MethodInfo ContextMenuMoveItemMethodInfo a signature where+    overloadedMethod _ = contextMenuMoveItem++#endif++-- method ContextMenu::prepend+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitContextMenuItem to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_prepend" webkit_context_menu_prepend :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    Ptr WebKit2.ContextMenuItem.ContextMenuItem -> -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO ()++{- |+Adds /@item@/ at the beginning of the /@menu@/.+-}+contextMenuPrepend ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> b+    {- ^ /@item@/: the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' to add -}+    -> m ()+contextMenuPrepend menu item = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    item' <- unsafeManagedPtrCastPtr item+    webkit_context_menu_prepend menu' item'+    touchManagedPtr menu+    touchManagedPtr item+    return ()++#if ENABLE_OVERLOADING+data ContextMenuPrependMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) => O.MethodInfo ContextMenuPrependMethodInfo a signature where+    overloadedMethod _ = contextMenuPrepend++#endif++-- method ContextMenu::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitContextMenuItem to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_remove" webkit_context_menu_remove :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    Ptr WebKit2.ContextMenuItem.ContextMenuItem -> -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO ()++{- |+Removes /@item@/ from the /@menu@/.+See also 'GI.WebKit2.Objects.ContextMenu.contextMenuRemoveAll' to remove all items.+-}+contextMenuRemove ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> b+    {- ^ /@item@/: the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' to remove -}+    -> m ()+contextMenuRemove menu item = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    item' <- unsafeManagedPtrCastPtr item+    webkit_context_menu_remove menu' item'+    touchManagedPtr menu+    touchManagedPtr item+    return ()++#if ENABLE_OVERLOADING+data ContextMenuRemoveMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsContextMenu a, WebKit2.ContextMenuItem.IsContextMenuItem b) => O.MethodInfo ContextMenuRemoveMethodInfo a signature where+    overloadedMethod _ = contextMenuRemove++#endif++-- method ContextMenu::remove_all+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_remove_all" webkit_context_menu_remove_all :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO ()++{- |+Removes all items of the /@menu@/.+-}+contextMenuRemoveAll ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> m ()+contextMenuRemoveAll menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    webkit_context_menu_remove_all menu'+    touchManagedPtr menu+    return ()++#if ENABLE_OVERLOADING+data ContextMenuRemoveAllMethodInfo+instance (signature ~ (m ()), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuRemoveAllMethodInfo a signature where+    overloadedMethod _ = contextMenuRemoveAll++#endif++-- method ContextMenu::set_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_set_user_data" webkit_context_menu_set_user_data :: +    Ptr ContextMenu ->                      -- menu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    Ptr GVariant ->                         -- user_data : TVariant+    IO ()++{- |+Sets user data to /@menu@/.+This function can be used from a Web Process extension to set user data+that can be retrieved from the UI Process using 'GI.WebKit2.Objects.ContextMenu.contextMenuGetUserData'.+If the /@userData@/ 'GVariant' is floating, it is consumed.++/Since: 2.8/+-}+contextMenuSetUserData ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> GVariant+    {- ^ /@userData@/: a 'GVariant' -}+    -> m ()+contextMenuSetUserData menu userData = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    userData' <- unsafeManagedPtrGetPtr userData+    webkit_context_menu_set_user_data menu' userData'+    touchManagedPtr menu+    touchManagedPtr userData+    return ()++#if ENABLE_OVERLOADING+data ContextMenuSetUserDataMethodInfo+instance (signature ~ (GVariant -> m ()), MonadIO m, IsContextMenu a) => O.MethodInfo ContextMenuSetUserDataMethodInfo a signature where+    overloadedMethod _ = contextMenuSetUserData++#endif++
+ GI/WebKit2/Objects/ContextMenu.hs-boot view
@@ -0,0 +1,68 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.ContextMenu 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++newtype ContextMenu = ContextMenu (ManagedPtr ContextMenu)+instance GObject ContextMenu where+class (GObject o, O.IsDescendantOf ContextMenu o) => IsContextMenu o+instance (GObject o, O.IsDescendantOf ContextMenu o) => IsContextMenu o+instance O.HasParentTypes ContextMenu+#if ENABLE_OVERLOADING+data ContextMenuAppendMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuFirstMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuGetItemAtPositionMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuGetItemsMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuGetNItemsMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuGetUserDataMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuInsertMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuLastMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuMoveItemMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuPrependMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuRemoveMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuRemoveAllMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuSetUserDataMethodInfo+#endif
+ GI/WebKit2/Objects/ContextMenuItem.hs view
@@ -0,0 +1,668 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.ContextMenuItem+    ( ++-- * Exported types+    ContextMenuItem(..)                     ,+    IsContextMenuItem                       ,+    toContextMenuItem                       ,+    noContextMenuItem                       ,+++ -- * Methods+-- ** getAction #method:getAction#++#if ENABLE_OVERLOADING+    ContextMenuItemGetActionMethodInfo      ,+#endif+    contextMenuItemGetAction                ,+++-- ** getGaction #method:getGaction#++#if ENABLE_OVERLOADING+    ContextMenuItemGetGactionMethodInfo     ,+#endif+    contextMenuItemGetGaction               ,+++-- ** getStockAction #method:getStockAction#++#if ENABLE_OVERLOADING+    ContextMenuItemGetStockActionMethodInfo ,+#endif+    contextMenuItemGetStockAction           ,+++-- ** getSubmenu #method:getSubmenu#++#if ENABLE_OVERLOADING+    ContextMenuItemGetSubmenuMethodInfo     ,+#endif+    contextMenuItemGetSubmenu               ,+++-- ** isSeparator #method:isSeparator#++#if ENABLE_OVERLOADING+    ContextMenuItemIsSeparatorMethodInfo    ,+#endif+    contextMenuItemIsSeparator              ,+++-- ** new #method:new#++    contextMenuItemNew                      ,+++-- ** newFromGaction #method:newFromGaction#++    contextMenuItemNewFromGaction           ,+++-- ** newFromStockAction #method:newFromStockAction#++    contextMenuItemNewFromStockAction       ,+++-- ** newFromStockActionWithLabel #method:newFromStockActionWithLabel#++    contextMenuItemNewFromStockActionWithLabel,+++-- ** newSeparator #method:newSeparator#++    contextMenuItemNewSeparator             ,+++-- ** newWithSubmenu #method:newWithSubmenu#++    contextMenuItemNewWithSubmenu           ,+++-- ** setSubmenu #method:setSubmenu#++#if ENABLE_OVERLOADING+    ContextMenuItemSetSubmenuMethodInfo     ,+#endif+    contextMenuItemSetSubmenu               ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Interfaces.Action as Gio.Action+import qualified GI.Gtk.Objects.Action as Gtk.Action+import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums+import {-# SOURCE #-} qualified GI.WebKit2.Objects.ContextMenu as WebKit2.ContextMenu++-- | Memory-managed wrapper type.+newtype ContextMenuItem = ContextMenuItem (ManagedPtr ContextMenuItem)+foreign import ccall "webkit_context_menu_item_get_type"+    c_webkit_context_menu_item_get_type :: IO GType++instance GObject ContextMenuItem where+    gobjectType = c_webkit_context_menu_item_get_type+    ++-- | Type class for types which can be safely cast to `ContextMenuItem`, for instance with `toContextMenuItem`.+class (GObject o, O.IsDescendantOf ContextMenuItem o) => IsContextMenuItem o+instance (GObject o, O.IsDescendantOf ContextMenuItem o) => IsContextMenuItem o++instance O.HasParentTypes ContextMenuItem+type instance O.ParentTypes ContextMenuItem = '[GObject.Object.Object]++-- | Cast to `ContextMenuItem`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toContextMenuItem :: (MonadIO m, IsContextMenuItem o) => o -> m ContextMenuItem+toContextMenuItem = liftIO . unsafeCastTo ContextMenuItem++-- | A convenience alias for `Nothing` :: `Maybe` `ContextMenuItem`.+noContextMenuItem :: Maybe ContextMenuItem+noContextMenuItem = Nothing++#if ENABLE_OVERLOADING+type family ResolveContextMenuItemMethod (t :: Symbol) (o :: *) :: * where+    ResolveContextMenuItemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveContextMenuItemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveContextMenuItemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveContextMenuItemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveContextMenuItemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveContextMenuItemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveContextMenuItemMethod "isSeparator" o = ContextMenuItemIsSeparatorMethodInfo+    ResolveContextMenuItemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveContextMenuItemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveContextMenuItemMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveContextMenuItemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveContextMenuItemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveContextMenuItemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveContextMenuItemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveContextMenuItemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveContextMenuItemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveContextMenuItemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveContextMenuItemMethod "getAction" o = ContextMenuItemGetActionMethodInfo+    ResolveContextMenuItemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveContextMenuItemMethod "getGaction" o = ContextMenuItemGetGactionMethodInfo+    ResolveContextMenuItemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveContextMenuItemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveContextMenuItemMethod "getStockAction" o = ContextMenuItemGetStockActionMethodInfo+    ResolveContextMenuItemMethod "getSubmenu" o = ContextMenuItemGetSubmenuMethodInfo+    ResolveContextMenuItemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveContextMenuItemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveContextMenuItemMethod "setSubmenu" o = ContextMenuItemSetSubmenuMethodInfo+    ResolveContextMenuItemMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, O.MethodInfo info ContextMenuItem p) => OL.IsLabel t (ContextMenuItem -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList ContextMenuItem+type instance O.AttributeList ContextMenuItem = ContextMenuItemAttributeList+type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList ContextMenuItem = ContextMenuItemSignalList+type ContextMenuItemSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method ContextMenuItem::new+-- method type : Constructor+-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new" webkit_context_menu_item_new :: +    Ptr Gtk.Action.Action ->                -- action : TInterface (Name {namespace = "Gtk", name = "Action"})+    IO (Ptr ContextMenuItem)++{-# DEPRECATED contextMenuItemNew ["(Since version 2.18)","Use 'GI.WebKit2.Objects.ContextMenuItem.contextMenuItemNewFromGaction' instead."] #-}+{- |+Creates a new 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' for the given /@action@/.+-}+contextMenuItemNew ::+    (B.CallStack.HasCallStack, MonadIO m, Gtk.Action.IsAction a) =>+    a+    {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -}+    -> m ContextMenuItem+    {- ^ __Returns:__ the newly created 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' object. -}+contextMenuItemNew action = liftIO $ do+    action' <- unsafeManagedPtrCastPtr action+    result <- webkit_context_menu_item_new action'+    checkUnexpectedReturnNULL "contextMenuItemNew" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr action+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenuItem::new_from_gaction+-- method type : Constructor+-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the menu item label text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant to use as the action target", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_from_gaction" webkit_context_menu_item_new_from_gaction :: +    Ptr Gio.Action.Action ->                -- action : TInterface (Name {namespace = "Gio", name = "Action"})+    CString ->                              -- label : TBasicType TUTF8+    Ptr GVariant ->                         -- target : TVariant+    IO (Ptr ContextMenuItem)++{- |+Creates a new 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' for the given /@action@/ and /@label@/. On activation+/@target@/ will be passed as parameter to the callback.++/Since: 2.18/+-}+contextMenuItemNewFromGaction ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.Action.IsAction a) =>+    a+    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}+    -> T.Text+    {- ^ /@label@/: the menu item label text -}+    -> Maybe (GVariant)+    {- ^ /@target@/: a 'GVariant' to use as the action target -}+    -> m ContextMenuItem+    {- ^ __Returns:__ the newly created 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' object. -}+contextMenuItemNewFromGaction action label target = liftIO $ do+    action' <- unsafeManagedPtrCastPtr action+    label' <- textToCString label+    maybeTarget <- case target of+        Nothing -> return nullPtr+        Just jTarget -> do+            jTarget' <- unsafeManagedPtrGetPtr jTarget+            return jTarget'+    result <- webkit_context_menu_item_new_from_gaction action' label' maybeTarget+    checkUnexpectedReturnNULL "contextMenuItemNewFromGaction" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr action+    whenJust target touchManagedPtr+    freeMem label'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenuItem::new_from_stock_action+-- method type : Constructor+-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuAction stock action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_from_stock_action" webkit_context_menu_item_new_from_stock_action :: +    CUInt ->                                -- action : TInterface (Name {namespace = "WebKit2", name = "ContextMenuAction"})+    IO (Ptr ContextMenuItem)++{- |+Creates a new 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' for the given stock action.+Stock actions are handled automatically by WebKit so that, for example,+when a menu item created with a 'GI.WebKit2.Enums.ContextMenuActionStop' is+activated the action associated will be handled by WebKit and the current+load operation will be stopped. You can get the 'GI.Gtk.Objects.Action.Action' of a+'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' created with a 'GI.WebKit2.Enums.ContextMenuAction' with+'GI.WebKit2.Objects.ContextMenuItem.contextMenuItemGetAction' and connect to 'GI.Gtk.Objects.Action.Action'::@/activate/@ signal+to be notified when the item is activated. But you can\'t prevent the associated+action from being performed.+-}+contextMenuItemNewFromStockAction ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebKit2.Enums.ContextMenuAction+    {- ^ /@action@/: a 'GI.WebKit2.Enums.ContextMenuAction' stock action -}+    -> m ContextMenuItem+    {- ^ __Returns:__ the newly created 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' object. -}+contextMenuItemNewFromStockAction action = liftIO $ do+    let action' = (fromIntegral . fromEnum) action+    result <- webkit_context_menu_item_new_from_stock_action action'+    checkUnexpectedReturnNULL "contextMenuItemNewFromStockAction" result+    result' <- (newObject ContextMenuItem) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenuItem::new_from_stock_action_with_label+-- method type : Constructor+-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuAction stock action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a custom label text to use instead of the predefined one", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_from_stock_action_with_label" webkit_context_menu_item_new_from_stock_action_with_label :: +    CUInt ->                                -- action : TInterface (Name {namespace = "WebKit2", name = "ContextMenuAction"})+    CString ->                              -- label : TBasicType TUTF8+    IO (Ptr ContextMenuItem)++{- |+Creates a new 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' for the given stock action using the given /@label@/.+Stock actions have a predefined label, this method can be used to create a+'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' for a 'GI.WebKit2.Enums.ContextMenuAction' but using a custom label.+-}+contextMenuItemNewFromStockActionWithLabel ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebKit2.Enums.ContextMenuAction+    {- ^ /@action@/: a 'GI.WebKit2.Enums.ContextMenuAction' stock action -}+    -> T.Text+    {- ^ /@label@/: a custom label text to use instead of the predefined one -}+    -> m ContextMenuItem+    {- ^ __Returns:__ the newly created 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' object. -}+contextMenuItemNewFromStockActionWithLabel action label = liftIO $ do+    let action' = (fromIntegral . fromEnum) action+    label' <- textToCString label+    result <- webkit_context_menu_item_new_from_stock_action_with_label action' label'+    checkUnexpectedReturnNULL "contextMenuItemNewFromStockActionWithLabel" result+    result' <- (newObject ContextMenuItem) result+    freeMem label'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenuItem::new_separator+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_separator" webkit_context_menu_item_new_separator :: +    IO (Ptr ContextMenuItem)++{- |+Creates a new 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' representing a separator.+-}+contextMenuItemNewSeparator ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m ContextMenuItem+    {- ^ __Returns:__ the newly created 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' object. -}+contextMenuItemNewSeparator  = liftIO $ do+    result <- webkit_context_menu_item_new_separator+    checkUnexpectedReturnNULL "contextMenuItemNewSeparator" result+    result' <- (newObject ContextMenuItem) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenuItem::new_with_submenu+-- method type : Constructor+-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the menu item label text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_with_submenu" webkit_context_menu_item_new_with_submenu :: +    CString ->                              -- label : TBasicType TUTF8+    Ptr WebKit2.ContextMenu.ContextMenu ->  -- submenu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO (Ptr ContextMenuItem)++{- |+Creates a new 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' using the given /@label@/ with a submenu.+-}+contextMenuItemNewWithSubmenu ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.ContextMenu.IsContextMenu a) =>+    T.Text+    {- ^ /@label@/: the menu item label text -}+    -> a+    {- ^ /@submenu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' to set -}+    -> m ContextMenuItem+    {- ^ __Returns:__ the newly created 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' object. -}+contextMenuItemNewWithSubmenu label submenu = liftIO $ do+    label' <- textToCString label+    submenu' <- unsafeManagedPtrCastPtr submenu+    result <- webkit_context_menu_item_new_with_submenu label' submenu'+    checkUnexpectedReturnNULL "contextMenuItemNewWithSubmenu" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr submenu+    freeMem label'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ContextMenuItem::get_action+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Action"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action :: +    Ptr ContextMenuItem ->                  -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO (Ptr Gtk.Action.Action)++{-# DEPRECATED contextMenuItemGetAction ["(Since version 2.18)","Use 'GI.WebKit2.Objects.ContextMenuItem.contextMenuItemGetGaction' instead."] #-}+{- |+Gets the action associated to /@item@/ as a 'GI.Gtk.Objects.Action.Action'.+-}+contextMenuItemGetAction ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>+    a+    {- ^ /@item@/: a 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' -}+    -> m (Maybe Gtk.Action.Action)+    {- ^ __Returns:__ the 'GI.Gtk.Objects.Action.Action' associated to the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem',+   or 'Nothing' if /@item@/ is a separator. -}+contextMenuItemGetAction item = liftIO $ do+    item' <- unsafeManagedPtrCastPtr item+    result <- webkit_context_menu_item_get_action item'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Gtk.Action.Action) result'+        return result''+    touchManagedPtr item+    return maybeResult++#if ENABLE_OVERLOADING+data ContextMenuItemGetActionMethodInfo+instance (signature ~ (m (Maybe Gtk.Action.Action)), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetActionMethodInfo a signature where+    overloadedMethod _ = contextMenuItemGetAction++#endif++-- method ContextMenuItem::get_gaction+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Gio", name = "Action"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_get_gaction" webkit_context_menu_item_get_gaction :: +    Ptr ContextMenuItem ->                  -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO (Ptr Gio.Action.Action)++{- |+Gets the action associated to /@item@/ as a 'GI.Gio.Interfaces.Action.Action'.++/Since: 2.18/+-}+contextMenuItemGetGaction ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>+    a+    {- ^ /@item@/: a 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' -}+    -> m (Maybe Gio.Action.Action)+    {- ^ __Returns:__ the 'GI.Gio.Interfaces.Action.Action' associated to the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem',+   or 'Nothing' if /@item@/ is a separator. -}+contextMenuItemGetGaction item = liftIO $ do+    item' <- unsafeManagedPtrCastPtr item+    result <- webkit_context_menu_item_get_gaction item'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Gio.Action.Action) result'+        return result''+    touchManagedPtr item+    return maybeResult++#if ENABLE_OVERLOADING+data ContextMenuItemGetGactionMethodInfo+instance (signature ~ (m (Maybe Gio.Action.Action)), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetGactionMethodInfo a signature where+    overloadedMethod _ = contextMenuItemGetGaction++#endif++-- method ContextMenuItem::get_stock_action+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenuAction"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_get_stock_action" webkit_context_menu_item_get_stock_action :: +    Ptr ContextMenuItem ->                  -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO CUInt++{- |+Gets the 'GI.WebKit2.Enums.ContextMenuAction' of /@item@/. If the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' was not+created for a stock action 'GI.WebKit2.Enums.ContextMenuActionCustom' will be+returned. If the 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' is a separator 'GI.WebKit2.Enums.ContextMenuActionNoAction'+will be returned.+-}+contextMenuItemGetStockAction ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>+    a+    {- ^ /@item@/: a 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' -}+    -> m WebKit2.Enums.ContextMenuAction+    {- ^ __Returns:__ the 'GI.WebKit2.Enums.ContextMenuAction' of /@item@/ -}+contextMenuItemGetStockAction item = liftIO $ do+    item' <- unsafeManagedPtrCastPtr item+    result <- webkit_context_menu_item_get_stock_action item'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data ContextMenuItemGetStockActionMethodInfo+instance (signature ~ (m WebKit2.Enums.ContextMenuAction), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetStockActionMethodInfo a signature where+    overloadedMethod _ = contextMenuItemGetStockAction++#endif++-- method ContextMenuItem::get_submenu+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_get_submenu" webkit_context_menu_item_get_submenu :: +    Ptr ContextMenuItem ->                  -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO (Ptr WebKit2.ContextMenu.ContextMenu)++{- |+Gets the submenu of /@item@/.+-}+contextMenuItemGetSubmenu ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>+    a+    {- ^ /@item@/: a 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' -}+    -> m (Maybe WebKit2.ContextMenu.ContextMenu)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.ContextMenu.ContextMenu' representing the submenu of+   /@item@/ or 'Nothing' if /@item@/ doesn\'t have a submenu. -}+contextMenuItemGetSubmenu item = liftIO $ do+    item' <- unsafeManagedPtrCastPtr item+    result <- webkit_context_menu_item_get_submenu item'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.ContextMenu.ContextMenu) result'+        return result''+    touchManagedPtr item+    return maybeResult++#if ENABLE_OVERLOADING+data ContextMenuItemGetSubmenuMethodInfo+instance (signature ~ (m (Maybe WebKit2.ContextMenu.ContextMenu)), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetSubmenuMethodInfo a signature where+    overloadedMethod _ = contextMenuItemGetSubmenu++#endif++-- method ContextMenuItem::is_separator+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_is_separator" webkit_context_menu_item_is_separator :: +    Ptr ContextMenuItem ->                  -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    IO CInt++{- |+Checks whether /@item@/ is a separator.+-}+contextMenuItemIsSeparator ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>+    a+    {- ^ /@item@/: a 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' -}+    -> m Bool+    {- ^ __Returns:__ 'True' is /@item@/ is a separator or 'False' otherwise -}+contextMenuItemIsSeparator item = liftIO $ do+    item' <- unsafeManagedPtrCastPtr item+    result <- webkit_context_menu_item_is_separator item'+    let result' = (/= 0) result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data ContextMenuItemIsSeparatorMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemIsSeparatorMethodInfo a signature where+    overloadedMethod _ = contextMenuItemIsSeparator++#endif++-- method ContextMenuItem::set_submenu+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface (Name {namespace = "WebKit2", name = "ContextMenu"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #WebKitContextMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_set_submenu" webkit_context_menu_item_set_submenu :: +    Ptr ContextMenuItem ->                  -- item : TInterface (Name {namespace = "WebKit2", name = "ContextMenuItem"})+    Ptr WebKit2.ContextMenu.ContextMenu ->  -- submenu : TInterface (Name {namespace = "WebKit2", name = "ContextMenu"})+    IO ()++{- |+Sets or replaces the /@item@/ submenu. If /@submenu@/ is 'Nothing' the current+submenu of /@item@/ is removed.+-}+contextMenuItemSetSubmenu ::+    (B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a, WebKit2.ContextMenu.IsContextMenu b) =>+    a+    {- ^ /@item@/: a 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem' -}+    -> Maybe (b)+    {- ^ /@submenu@/: a 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> m ()+contextMenuItemSetSubmenu item submenu = liftIO $ do+    item' <- unsafeManagedPtrCastPtr item+    maybeSubmenu <- case submenu of+        Nothing -> return nullPtr+        Just jSubmenu -> do+            jSubmenu' <- unsafeManagedPtrCastPtr jSubmenu+            return jSubmenu'+    webkit_context_menu_item_set_submenu item' maybeSubmenu+    touchManagedPtr item+    whenJust submenu touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data ContextMenuItemSetSubmenuMethodInfo+instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsContextMenuItem a, WebKit2.ContextMenu.IsContextMenu b) => O.MethodInfo ContextMenuItemSetSubmenuMethodInfo a signature where+    overloadedMethod _ = contextMenuItemSetSubmenu++#endif++
+ GI/WebKit2/Objects/ContextMenuItem.hs-boot view
@@ -0,0 +1,47 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.ContextMenuItem 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++newtype ContextMenuItem = ContextMenuItem (ManagedPtr ContextMenuItem)+instance GObject ContextMenuItem where+class (GObject o, O.IsDescendantOf ContextMenuItem o) => IsContextMenuItem o+instance (GObject o, O.IsDescendantOf ContextMenuItem o) => IsContextMenuItem o+instance O.HasParentTypes ContextMenuItem+#if ENABLE_OVERLOADING+data ContextMenuItemGetActionMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuItemGetGactionMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuItemGetStockActionMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuItemGetSubmenuMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuItemIsSeparatorMethodInfo+#endif+#if ENABLE_OVERLOADING+data ContextMenuItemSetSubmenuMethodInfo+#endif
+ GI/WebKit2/Objects/CookieManager.hs view
@@ -0,0 +1,1054 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.CookieManager+    ( ++-- * Exported types+    CookieManager(..)                       ,+    IsCookieManager                         ,+    toCookieManager                         ,+    noCookieManager                         ,+++ -- * Methods+-- ** addCookie #method:addCookie#++#if ENABLE_OVERLOADING+    CookieManagerAddCookieMethodInfo        ,+#endif+    cookieManagerAddCookie                  ,+++-- ** addCookieFinish #method:addCookieFinish#++#if ENABLE_OVERLOADING+    CookieManagerAddCookieFinishMethodInfo  ,+#endif+    cookieManagerAddCookieFinish            ,+++-- ** deleteAllCookies #method:deleteAllCookies#++#if ENABLE_OVERLOADING+    CookieManagerDeleteAllCookiesMethodInfo ,+#endif+    cookieManagerDeleteAllCookies           ,+++-- ** deleteCookie #method:deleteCookie#++#if ENABLE_OVERLOADING+    CookieManagerDeleteCookieMethodInfo     ,+#endif+    cookieManagerDeleteCookie               ,+++-- ** deleteCookieFinish #method:deleteCookieFinish#++#if ENABLE_OVERLOADING+    CookieManagerDeleteCookieFinishMethodInfo,+#endif+    cookieManagerDeleteCookieFinish         ,+++-- ** deleteCookiesForDomain #method:deleteCookiesForDomain#++#if ENABLE_OVERLOADING+    CookieManagerDeleteCookiesForDomainMethodInfo,+#endif+    cookieManagerDeleteCookiesForDomain     ,+++-- ** getAcceptPolicy #method:getAcceptPolicy#++#if ENABLE_OVERLOADING+    CookieManagerGetAcceptPolicyMethodInfo  ,+#endif+    cookieManagerGetAcceptPolicy            ,+++-- ** getAcceptPolicyFinish #method:getAcceptPolicyFinish#++#if ENABLE_OVERLOADING+    CookieManagerGetAcceptPolicyFinishMethodInfo,+#endif+    cookieManagerGetAcceptPolicyFinish      ,+++-- ** getCookies #method:getCookies#++#if ENABLE_OVERLOADING+    CookieManagerGetCookiesMethodInfo       ,+#endif+    cookieManagerGetCookies                 ,+++-- ** getCookiesFinish #method:getCookiesFinish#++#if ENABLE_OVERLOADING+    CookieManagerGetCookiesFinishMethodInfo ,+#endif+    cookieManagerGetCookiesFinish           ,+++-- ** getDomainsWithCookies #method:getDomainsWithCookies#++#if ENABLE_OVERLOADING+    CookieManagerGetDomainsWithCookiesMethodInfo,+#endif+    cookieManagerGetDomainsWithCookies      ,+++-- ** getDomainsWithCookiesFinish #method:getDomainsWithCookiesFinish#++#if ENABLE_OVERLOADING+    CookieManagerGetDomainsWithCookiesFinishMethodInfo,+#endif+    cookieManagerGetDomainsWithCookiesFinish,+++-- ** setAcceptPolicy #method:setAcceptPolicy#++#if ENABLE_OVERLOADING+    CookieManagerSetAcceptPolicyMethodInfo  ,+#endif+    cookieManagerSetAcceptPolicy            ,+++-- ** setPersistentStorage #method:setPersistentStorage#++#if ENABLE_OVERLOADING+    CookieManagerSetPersistentStorageMethodInfo,+#endif+    cookieManagerSetPersistentStorage       ,+++++ -- * Signals+-- ** changed #signal:changed#++    C_CookieManagerChangedCallback          ,+    CookieManagerChangedCallback            ,+#if ENABLE_OVERLOADING+    CookieManagerChangedSignalInfo          ,+#endif+    afterCookieManagerChanged               ,+    genClosure_CookieManagerChanged         ,+    mk_CookieManagerChangedCallback         ,+    noCookieManagerChangedCallback          ,+    onCookieManagerChanged                  ,+    wrap_CookieManagerChangedCallback       ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Callbacks as Gio.Callbacks+import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult+import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable+import qualified GI.Soup.Structs.Cookie as Soup.Cookie+import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums++-- | Memory-managed wrapper type.+newtype CookieManager = CookieManager (ManagedPtr CookieManager)+foreign import ccall "webkit_cookie_manager_get_type"+    c_webkit_cookie_manager_get_type :: IO GType++instance GObject CookieManager where+    gobjectType = c_webkit_cookie_manager_get_type+    ++-- | Type class for types which can be safely cast to `CookieManager`, for instance with `toCookieManager`.+class (GObject o, O.IsDescendantOf CookieManager o) => IsCookieManager o+instance (GObject o, O.IsDescendantOf CookieManager o) => IsCookieManager o++instance O.HasParentTypes CookieManager+type instance O.ParentTypes CookieManager = '[GObject.Object.Object]++-- | Cast to `CookieManager`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toCookieManager :: (MonadIO m, IsCookieManager o) => o -> m CookieManager+toCookieManager = liftIO . unsafeCastTo CookieManager++-- | A convenience alias for `Nothing` :: `Maybe` `CookieManager`.+noCookieManager :: Maybe CookieManager+noCookieManager = Nothing++#if ENABLE_OVERLOADING+type family ResolveCookieManagerMethod (t :: Symbol) (o :: *) :: * where+    ResolveCookieManagerMethod "addCookie" o = CookieManagerAddCookieMethodInfo+    ResolveCookieManagerMethod "addCookieFinish" o = CookieManagerAddCookieFinishMethodInfo+    ResolveCookieManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveCookieManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveCookieManagerMethod "deleteAllCookies" o = CookieManagerDeleteAllCookiesMethodInfo+    ResolveCookieManagerMethod "deleteCookie" o = CookieManagerDeleteCookieMethodInfo+    ResolveCookieManagerMethod "deleteCookieFinish" o = CookieManagerDeleteCookieFinishMethodInfo+    ResolveCookieManagerMethod "deleteCookiesForDomain" o = CookieManagerDeleteCookiesForDomainMethodInfo+    ResolveCookieManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveCookieManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveCookieManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveCookieManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveCookieManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveCookieManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveCookieManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveCookieManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveCookieManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveCookieManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveCookieManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveCookieManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveCookieManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveCookieManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveCookieManagerMethod "getAcceptPolicy" o = CookieManagerGetAcceptPolicyMethodInfo+    ResolveCookieManagerMethod "getAcceptPolicyFinish" o = CookieManagerGetAcceptPolicyFinishMethodInfo+    ResolveCookieManagerMethod "getCookies" o = CookieManagerGetCookiesMethodInfo+    ResolveCookieManagerMethod "getCookiesFinish" o = CookieManagerGetCookiesFinishMethodInfo+    ResolveCookieManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveCookieManagerMethod "getDomainsWithCookies" o = CookieManagerGetDomainsWithCookiesMethodInfo+    ResolveCookieManagerMethod "getDomainsWithCookiesFinish" o = CookieManagerGetDomainsWithCookiesFinishMethodInfo+    ResolveCookieManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveCookieManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveCookieManagerMethod "setAcceptPolicy" o = CookieManagerSetAcceptPolicyMethodInfo+    ResolveCookieManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveCookieManagerMethod "setPersistentStorage" o = CookieManagerSetPersistentStorageMethodInfo+    ResolveCookieManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveCookieManagerMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveCookieManagerMethod t CookieManager, O.MethodInfo info CookieManager p) => OL.IsLabel t (CookieManager -> 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++-- signal CookieManager::changed+{- |+This signal is emitted when cookies are added, removed or modified.+-}+type CookieManagerChangedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `CookieManagerChangedCallback`@.+noCookieManagerChangedCallback :: Maybe CookieManagerChangedCallback+noCookieManagerChangedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_CookieManagerChangedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_CookieManagerChangedCallback`.+foreign import ccall "wrapper"+    mk_CookieManagerChangedCallback :: C_CookieManagerChangedCallback -> IO (FunPtr C_CookieManagerChangedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_CookieManagerChanged :: MonadIO m => CookieManagerChangedCallback -> m (GClosure C_CookieManagerChangedCallback)+genClosure_CookieManagerChanged cb = liftIO $ do+    let cb' = wrap_CookieManagerChangedCallback cb+    mk_CookieManagerChangedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `CookieManagerChangedCallback` into a `C_CookieManagerChangedCallback`.+wrap_CookieManagerChangedCallback ::+    CookieManagerChangedCallback ->+    C_CookieManagerChangedCallback+wrap_CookieManagerChangedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@changed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' cookieManager #changed callback+@+-}+onCookieManagerChanged :: (IsCookieManager a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId+onCookieManagerChanged obj cb = liftIO $ do+    let cb' = wrap_CookieManagerChangedCallback cb+    cb'' <- mk_CookieManagerChangedCallback cb'+    connectSignalFunPtr obj "changed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@changed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' cookieManager #changed callback+@+-}+afterCookieManagerChanged :: (IsCookieManager a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId+afterCookieManagerChanged obj cb = liftIO $ do+    let cb' = wrap_CookieManagerChangedCallback cb+    cb'' <- mk_CookieManagerChangedCallback cb'+    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter+++#if ENABLE_OVERLOADING+instance O.HasAttributeList CookieManager+type instance O.AttributeList CookieManager = CookieManagerAttributeList+type CookieManagerAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+data CookieManagerChangedSignalInfo+instance SignalInfo CookieManagerChangedSignalInfo where+    type HaskellCallbackType CookieManagerChangedSignalInfo = CookieManagerChangedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_CookieManagerChangedCallback cb+        cb'' <- mk_CookieManagerChangedCallback cb'+        connectSignalFunPtr obj "changed" cb'' connectMode++type instance O.SignalList CookieManager = CookieManagerSignalList+type CookieManagerSignalList = ('[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method CookieManager::add_cookie+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupCookie to be added", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_add_cookie" webkit_cookie_manager_add_cookie :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Soup.Cookie.Cookie ->               -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously add a 'GI.Soup.Structs.Cookie.Cookie' to the underlying storage.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.CookieManager.cookieManagerAddCookieFinish' to get the result of the operation.++/Since: 2.20/+-}+cookieManagerAddCookie ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> Soup.Cookie.Cookie+    {- ^ /@cookie@/: the 'GI.Soup.Structs.Cookie.Cookie' to be added -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+cookieManagerAddCookie cookieManager cookie cancellable callback = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    cookie' <- unsafeManagedPtrGetPtr cookie+    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_cookie_manager_add_cookie cookieManager' cookie' maybeCancellable maybeCallback userData+    touchManagedPtr cookieManager+    touchManagedPtr cookie+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data CookieManagerAddCookieMethodInfo+instance (signature ~ (Soup.Cookie.Cookie -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo CookieManagerAddCookieMethodInfo a signature where+    overloadedMethod _ = cookieManagerAddCookie++#endif++-- method CookieManager::add_cookie_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_cookie_manager_add_cookie_finish" webkit_cookie_manager_add_cookie_finish :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.CookieManager.cookieManagerAddCookie'.++/Since: 2.20/+-}+cookieManagerAddCookieFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+cookieManagerAddCookieFinish cookieManager result_ = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        _ <- propagateGError $ webkit_cookie_manager_add_cookie_finish cookieManager' result_'+        touchManagedPtr cookieManager+        touchManagedPtr result_+        return ()+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data CookieManagerAddCookieFinishMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo CookieManagerAddCookieFinishMethodInfo a signature where+    overloadedMethod _ = cookieManagerAddCookieFinish++#endif++-- method CookieManager::delete_all_cookies+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_delete_all_cookies" webkit_cookie_manager_delete_all_cookies :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    IO ()++{-# DEPRECATED cookieManagerDeleteAllCookies ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerClear' instead."] #-}+{- |+Delete all cookies of /@cookieManager@/+-}+cookieManagerDeleteAllCookies ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> m ()+cookieManagerDeleteAllCookies cookieManager = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    webkit_cookie_manager_delete_all_cookies cookieManager'+    touchManagedPtr cookieManager+    return ()++#if ENABLE_OVERLOADING+data CookieManagerDeleteAllCookiesMethodInfo+instance (signature ~ (m ()), MonadIO m, IsCookieManager a) => O.MethodInfo CookieManagerDeleteAllCookiesMethodInfo a signature where+    overloadedMethod _ = cookieManagerDeleteAllCookies++#endif++-- method CookieManager::delete_cookie+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupCookie to be deleted", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_delete_cookie" webkit_cookie_manager_delete_cookie :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Soup.Cookie.Cookie ->               -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously delete a 'GI.Soup.Structs.Cookie.Cookie' from the current session.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.CookieManager.cookieManagerDeleteCookieFinish' to get the result of the operation.++/Since: 2.20/+-}+cookieManagerDeleteCookie ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> Soup.Cookie.Cookie+    {- ^ /@cookie@/: the 'GI.Soup.Structs.Cookie.Cookie' to be deleted -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+cookieManagerDeleteCookie cookieManager cookie cancellable callback = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    cookie' <- unsafeManagedPtrGetPtr cookie+    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_cookie_manager_delete_cookie cookieManager' cookie' maybeCancellable maybeCallback userData+    touchManagedPtr cookieManager+    touchManagedPtr cookie+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data CookieManagerDeleteCookieMethodInfo+instance (signature ~ (Soup.Cookie.Cookie -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo CookieManagerDeleteCookieMethodInfo a signature where+    overloadedMethod _ = cookieManagerDeleteCookie++#endif++-- method CookieManager::delete_cookie_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_cookie_manager_delete_cookie_finish" webkit_cookie_manager_delete_cookie_finish :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.CookieManager.cookieManagerDeleteCookie'.++/Since: 2.20/+-}+cookieManagerDeleteCookieFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+cookieManagerDeleteCookieFinish cookieManager result_ = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        _ <- propagateGError $ webkit_cookie_manager_delete_cookie_finish cookieManager' result_'+        touchManagedPtr cookieManager+        touchManagedPtr result_+        return ()+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data CookieManagerDeleteCookieFinishMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo CookieManagerDeleteCookieFinishMethodInfo a signature where+    overloadedMethod _ = cookieManagerDeleteCookieFinish++#endif++-- method CookieManager::delete_cookies_for_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a domain name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_delete_cookies_for_domain" webkit_cookie_manager_delete_cookies_for_domain :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    CString ->                              -- domain : TBasicType TUTF8+    IO ()++{-# DEPRECATED cookieManagerDeleteCookiesForDomain ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerRemove' instead."] #-}+{- |+Remove all cookies of /@cookieManager@/ for the given /@domain@/.+-}+cookieManagerDeleteCookiesForDomain ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> T.Text+    {- ^ /@domain@/: a domain name -}+    -> m ()+cookieManagerDeleteCookiesForDomain cookieManager domain = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    domain' <- textToCString domain+    webkit_cookie_manager_delete_cookies_for_domain cookieManager' domain'+    touchManagedPtr cookieManager+    freeMem domain'+    return ()++#if ENABLE_OVERLOADING+data CookieManagerDeleteCookiesForDomainMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsCookieManager a) => O.MethodInfo CookieManagerDeleteCookiesForDomainMethodInfo a signature where+    overloadedMethod _ = cookieManagerDeleteCookiesForDomain++#endif++-- method CookieManager::get_accept_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_get_accept_policy" webkit_cookie_manager_get_accept_policy :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously get the cookie acceptance policy of /@cookieManager@/.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.CookieManager.cookieManagerGetAcceptPolicyFinish' to get the result of the operation.+-}+cookieManagerGetAcceptPolicy ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+cookieManagerGetAcceptPolicy cookieManager cancellable callback = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    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_cookie_manager_get_accept_policy cookieManager' maybeCancellable maybeCallback userData+    touchManagedPtr cookieManager+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data CookieManagerGetAcceptPolicyMethodInfo+instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo CookieManagerGetAcceptPolicyMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetAcceptPolicy++#endif++-- method CookieManager::get_accept_policy_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "CookieAcceptPolicy"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_cookie_manager_get_accept_policy_finish" webkit_cookie_manager_get_accept_policy_finish :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CUInt++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.CookieManager.cookieManagerGetAcceptPolicy'.+-}+cookieManagerGetAcceptPolicyFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m WebKit2.Enums.CookieAcceptPolicy+    {- ^ __Returns:__ the cookie acceptance policy of /@cookieManager@/ as a 'GI.WebKit2.Enums.CookieAcceptPolicy'. /(Can throw 'Data.GI.Base.GError.GError')/ -}+cookieManagerGetAcceptPolicyFinish cookieManager result_ = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_cookie_manager_get_accept_policy_finish cookieManager' result_'+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr cookieManager+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data CookieManagerGetAcceptPolicyFinishMethodInfo+instance (signature ~ (b -> m WebKit2.Enums.CookieAcceptPolicy), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo CookieManagerGetAcceptPolicyFinishMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetAcceptPolicyFinish++#endif++-- method CookieManager::get_cookies+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI associated to the cookies to be retrieved", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_get_cookies" webkit_cookie_manager_get_cookies :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    CString ->                              -- uri : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously get a list of 'GI.Soup.Structs.Cookie.Cookie' from /@cookieManager@/ associated with /@uri@/, which+must be either an HTTP or an HTTPS URL.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.CookieManager.cookieManagerGetCookiesFinish' to get the result of the operation.++/Since: 2.20/+-}+cookieManagerGetCookies ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> T.Text+    {- ^ /@uri@/: the URI associated to the cookies to be retrieved -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+cookieManagerGetCookies cookieManager uri cancellable callback = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    uri' <- textToCString uri+    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_cookie_manager_get_cookies cookieManager' uri' maybeCancellable maybeCallback userData+    touchManagedPtr cookieManager+    whenJust cancellable touchManagedPtr+    freeMem uri'+    return ()++#if ENABLE_OVERLOADING+data CookieManagerGetCookiesMethodInfo+instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo CookieManagerGetCookiesMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetCookies++#endif++-- method CookieManager::get_cookies_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "Soup", name = "Cookie"})))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_cookie_manager_get_cookies_finish" webkit_cookie_manager_get_cookies_finish :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr (GList (Ptr Soup.Cookie.Cookie)))++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.CookieManager.cookieManagerGetCookies'.+The return value is a 'GI.GLib.Structs.SList.SList' of 'GI.Soup.Structs.Cookie.Cookie' instances which should be released+with @/g_list_free_full()/@ and 'GI.Soup.Structs.Cookie.cookieFree'.++/Since: 2.20/+-}+cookieManagerGetCookiesFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m [Soup.Cookie.Cookie]+    {- ^ __Returns:__ A 'GI.GLib.Structs.List.List' of 'GI.Soup.Structs.Cookie.Cookie' instances. /(Can throw 'Data.GI.Base.GError.GError')/ -}+cookieManagerGetCookiesFinish cookieManager result_ = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_cookie_manager_get_cookies_finish cookieManager' result_'+        result' <- unpackGList result+        result'' <- mapM (wrapBoxed Soup.Cookie.Cookie) result'+        g_list_free result+        touchManagedPtr cookieManager+        touchManagedPtr result_+        return result''+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data CookieManagerGetCookiesFinishMethodInfo+instance (signature ~ (b -> m [Soup.Cookie.Cookie]), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo CookieManagerGetCookiesFinishMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetCookiesFinish++#endif++-- method CookieManager::get_domains_with_cookies+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_get_domains_with_cookies" webkit_cookie_manager_get_domains_with_cookies :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{-# DEPRECATED cookieManagerGetDomainsWithCookies ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetch' instead."] #-}+{- |+Asynchronously get the list of domains for which /@cookieManager@/ contains cookies.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.CookieManager.cookieManagerGetDomainsWithCookiesFinish' to get the result of the operation.+-}+cookieManagerGetDomainsWithCookies ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+cookieManagerGetDomainsWithCookies cookieManager cancellable callback = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    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_cookie_manager_get_domains_with_cookies cookieManager' maybeCancellable maybeCallback userData+    touchManagedPtr cookieManager+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data CookieManagerGetDomainsWithCookiesMethodInfo+instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo CookieManagerGetDomainsWithCookiesMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetDomainsWithCookies++#endif++-- method CookieManager::get_domains_with_cookies_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_cookie_manager_get_domains_with_cookies_finish" webkit_cookie_manager_get_domains_with_cookies_finish :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)++{-# DEPRECATED cookieManagerGetDomainsWithCookiesFinish ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetchFinish' instead."] #-}+{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.CookieManager.cookieManagerGetDomainsWithCookies'.+The return value is a 'Nothing' terminated list of strings which should+be released with 'GI.GLib.Functions.strfreev'.+-}+cookieManagerGetDomainsWithCookiesFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m [T.Text]+    {- ^ __Returns:__ A 'Nothing' terminated array of domain names+   or 'Nothing' in case of error. /(Can throw 'Data.GI.Base.GError.GError')/ -}+cookieManagerGetDomainsWithCookiesFinish cookieManager result_ = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_cookie_manager_get_domains_with_cookies_finish cookieManager' result_'+        checkUnexpectedReturnNULL "cookieManagerGetDomainsWithCookiesFinish" result+        result' <- unpackZeroTerminatedUTF8CArray result+        mapZeroTerminatedCArray freeMem result+        freeMem result+        touchManagedPtr cookieManager+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data CookieManagerGetDomainsWithCookiesFinishMethodInfo+instance (signature ~ (b -> m [T.Text]), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo CookieManagerGetDomainsWithCookiesFinishMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetDomainsWithCookiesFinish++#endif++-- method CookieManager::set_accept_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface (Name {namespace = "WebKit2", name = "CookieAcceptPolicy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieAcceptPolicy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_set_accept_policy" webkit_cookie_manager_set_accept_policy :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    CUInt ->                                -- policy : TInterface (Name {namespace = "WebKit2", name = "CookieAcceptPolicy"})+    IO ()++{- |+Set the cookie acceptance policy of /@cookieManager@/ as /@policy@/.+-}+cookieManagerSetAcceptPolicy ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> WebKit2.Enums.CookieAcceptPolicy+    {- ^ /@policy@/: a 'GI.WebKit2.Enums.CookieAcceptPolicy' -}+    -> m ()+cookieManagerSetAcceptPolicy cookieManager policy = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    let policy' = (fromIntegral . fromEnum) policy+    webkit_cookie_manager_set_accept_policy cookieManager' policy'+    touchManagedPtr cookieManager+    return ()++#if ENABLE_OVERLOADING+data CookieManagerSetAcceptPolicyMethodInfo+instance (signature ~ (WebKit2.Enums.CookieAcceptPolicy -> m ()), MonadIO m, IsCookieManager a) => O.MethodInfo CookieManagerSetAcceptPolicyMethodInfo a signature where+    overloadedMethod _ = cookieManagerSetAcceptPolicy++#endif++-- method CookieManager::set_persistent_storage+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "cookie_manager", argType = TInterface (Name {namespace = "WebKit2", name = "CookieManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookieManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename to read to/write from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "storage", argType = TInterface (Name {namespace = "WebKit2", name = "CookiePersistentStorage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCookiePersistentStorage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_cookie_manager_set_persistent_storage" webkit_cookie_manager_set_persistent_storage :: +    Ptr CookieManager ->                    -- cookie_manager : TInterface (Name {namespace = "WebKit2", name = "CookieManager"})+    CString ->                              -- filename : TBasicType TUTF8+    CUInt ->                                -- storage : TInterface (Name {namespace = "WebKit2", name = "CookiePersistentStorage"})+    IO ()++{- |+Set the /@filename@/ where non-session cookies are stored persistently using+/@storage@/ as the format to read\/write the cookies.+Cookies are initially read from /@filename@/ to create an initial set of cookies.+Then, non-session cookies will be written to /@filename@/ when the WebKitCookieManager::changed+signal is emitted.+By default, /@cookieManager@/ doesn\'t store the cookies persistently, so you need to call this+method to keep cookies saved across sessions.++This method should never be called on a 'GI.WebKit2.Objects.CookieManager.CookieManager' associated to an ephemeral 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'.+-}+cookieManagerSetPersistentStorage ::+    (B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>+    a+    {- ^ /@cookieManager@/: a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+    -> T.Text+    {- ^ /@filename@/: the filename to read to\/write from -}+    -> WebKit2.Enums.CookiePersistentStorage+    {- ^ /@storage@/: a 'GI.WebKit2.Enums.CookiePersistentStorage' -}+    -> m ()+cookieManagerSetPersistentStorage cookieManager filename storage = liftIO $ do+    cookieManager' <- unsafeManagedPtrCastPtr cookieManager+    filename' <- textToCString filename+    let storage' = (fromIntegral . fromEnum) storage+    webkit_cookie_manager_set_persistent_storage cookieManager' filename' storage'+    touchManagedPtr cookieManager+    freeMem filename'+    return ()++#if ENABLE_OVERLOADING+data CookieManagerSetPersistentStorageMethodInfo+instance (signature ~ (T.Text -> WebKit2.Enums.CookiePersistentStorage -> m ()), MonadIO m, IsCookieManager a) => O.MethodInfo CookieManagerSetPersistentStorageMethodInfo a signature where+    overloadedMethod _ = cookieManagerSetPersistentStorage++#endif++
+ GI/WebKit2/Objects/CookieManager.hs-boot view
@@ -0,0 +1,74 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.CookieManager 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++newtype CookieManager = CookieManager (ManagedPtr CookieManager)+instance GObject CookieManager where+class (GObject o, O.IsDescendantOf CookieManager o) => IsCookieManager o+instance (GObject o, O.IsDescendantOf CookieManager o) => IsCookieManager o+instance O.HasParentTypes CookieManager+#if ENABLE_OVERLOADING+data CookieManagerChangedSignalInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerAddCookieMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerAddCookieFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerDeleteAllCookiesMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerDeleteCookieMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerDeleteCookieFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerDeleteCookiesForDomainMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerGetAcceptPolicyMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerGetAcceptPolicyFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerGetCookiesMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerGetCookiesFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerGetDomainsWithCookiesMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerGetDomainsWithCookiesFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerSetAcceptPolicyMethodInfo+#endif+#if ENABLE_OVERLOADING+data CookieManagerSetPersistentStorageMethodInfo+#endif
+ GI/WebKit2/Objects/DeviceInfoPermissionRequest.hs view
@@ -0,0 +1,124 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.DeviceInfoPermissionRequest+    ( ++-- * Exported types+    DeviceInfoPermissionRequest(..)         ,+    IsDeviceInfoPermissionRequest           ,+    toDeviceInfoPermissionRequest           ,+    noDeviceInfoPermissionRequest           ,+++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest++-- | Memory-managed wrapper type.+newtype DeviceInfoPermissionRequest = DeviceInfoPermissionRequest (ManagedPtr DeviceInfoPermissionRequest)+foreign import ccall "webkit_device_info_permission_request_get_type"+    c_webkit_device_info_permission_request_get_type :: IO GType++instance GObject DeviceInfoPermissionRequest where+    gobjectType = c_webkit_device_info_permission_request_get_type+    ++-- | Type class for types which can be safely cast to `DeviceInfoPermissionRequest`, for instance with `toDeviceInfoPermissionRequest`.+class (GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o+instance (GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o++instance O.HasParentTypes DeviceInfoPermissionRequest+type instance O.ParentTypes DeviceInfoPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]++-- | Cast to `DeviceInfoPermissionRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toDeviceInfoPermissionRequest :: (MonadIO m, IsDeviceInfoPermissionRequest o) => o -> m DeviceInfoPermissionRequest+toDeviceInfoPermissionRequest = liftIO . unsafeCastTo DeviceInfoPermissionRequest++-- | A convenience alias for `Nothing` :: `Maybe` `DeviceInfoPermissionRequest`.+noDeviceInfoPermissionRequest :: Maybe DeviceInfoPermissionRequest+noDeviceInfoPermissionRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveDeviceInfoPermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveDeviceInfoPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveDeviceInfoPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveDeviceInfoPermissionRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveDeviceInfoPermissionRequestMethod t DeviceInfoPermissionRequest, O.MethodInfo info DeviceInfoPermissionRequest p) => OL.IsLabel t (DeviceInfoPermissionRequest -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList DeviceInfoPermissionRequest+type instance O.AttributeList DeviceInfoPermissionRequest = DeviceInfoPermissionRequestAttributeList+type DeviceInfoPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList DeviceInfoPermissionRequest = DeviceInfoPermissionRequestSignalList+type DeviceInfoPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++
+ GI/WebKit2/Objects/DeviceInfoPermissionRequest.hs-boot view
@@ -0,0 +1,29 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.DeviceInfoPermissionRequest 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++newtype DeviceInfoPermissionRequest = DeviceInfoPermissionRequest (ManagedPtr DeviceInfoPermissionRequest)+instance GObject DeviceInfoPermissionRequest where+class (GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o+instance (GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o+instance O.HasParentTypes DeviceInfoPermissionRequest
+ GI/WebKit2/Objects/Download.hs view
@@ -0,0 +1,1347 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.Download+    ( ++-- * Exported types+    Download(..)                            ,+    IsDownload                              ,+    toDownload                              ,+    noDownload                              ,+++ -- * Methods+-- ** cancel #method:cancel#++#if ENABLE_OVERLOADING+    DownloadCancelMethodInfo                ,+#endif+    downloadCancel                          ,+++-- ** getAllowOverwrite #method:getAllowOverwrite#++#if ENABLE_OVERLOADING+    DownloadGetAllowOverwriteMethodInfo     ,+#endif+    downloadGetAllowOverwrite               ,+++-- ** getDestination #method:getDestination#++#if ENABLE_OVERLOADING+    DownloadGetDestinationMethodInfo        ,+#endif+    downloadGetDestination                  ,+++-- ** getElapsedTime #method:getElapsedTime#++#if ENABLE_OVERLOADING+    DownloadGetElapsedTimeMethodInfo        ,+#endif+    downloadGetElapsedTime                  ,+++-- ** getEstimatedProgress #method:getEstimatedProgress#++#if ENABLE_OVERLOADING+    DownloadGetEstimatedProgressMethodInfo  ,+#endif+    downloadGetEstimatedProgress            ,+++-- ** getReceivedDataLength #method:getReceivedDataLength#++#if ENABLE_OVERLOADING+    DownloadGetReceivedDataLengthMethodInfo ,+#endif+    downloadGetReceivedDataLength           ,+++-- ** getRequest #method:getRequest#++#if ENABLE_OVERLOADING+    DownloadGetRequestMethodInfo            ,+#endif+    downloadGetRequest                      ,+++-- ** getResponse #method:getResponse#++#if ENABLE_OVERLOADING+    DownloadGetResponseMethodInfo           ,+#endif+    downloadGetResponse                     ,+++-- ** getWebView #method:getWebView#++#if ENABLE_OVERLOADING+    DownloadGetWebViewMethodInfo            ,+#endif+    downloadGetWebView                      ,+++-- ** setAllowOverwrite #method:setAllowOverwrite#++#if ENABLE_OVERLOADING+    DownloadSetAllowOverwriteMethodInfo     ,+#endif+    downloadSetAllowOverwrite               ,+++-- ** setDestination #method:setDestination#++#if ENABLE_OVERLOADING+    DownloadSetDestinationMethodInfo        ,+#endif+    downloadSetDestination                  ,+++++ -- * Properties+-- ** allowOverwrite #attr:allowOverwrite#+{- | Whether or not the download is allowed to overwrite an existing file on+disk. If this property is 'False' and the destination already exists,+the download will fail.++/Since: 2.6/+-}+#if ENABLE_OVERLOADING+    DownloadAllowOverwritePropertyInfo      ,+#endif+    constructDownloadAllowOverwrite         ,+#if ENABLE_OVERLOADING+    downloadAllowOverwrite                  ,+#endif+    getDownloadAllowOverwrite               ,+    setDownloadAllowOverwrite               ,+++-- ** destination #attr:destination#+{- | The local URI to where the download will be saved.+-}+#if ENABLE_OVERLOADING+    DownloadDestinationPropertyInfo         ,+#endif+#if ENABLE_OVERLOADING+    downloadDestination                     ,+#endif+    getDownloadDestination                  ,+++-- ** estimatedProgress #attr:estimatedProgress#+{- | An estimate of the percent completion for the download operation.+This value will range from 0.0 to 1.0. The value is an estimate+based on the total number of bytes expected to be received for+a download.+If you need a more accurate progress information you can connect to+'GI.WebKit2.Objects.Download.Download'::@/received-data/@ signal to track the progress.+-}+#if ENABLE_OVERLOADING+    DownloadEstimatedProgressPropertyInfo   ,+#endif+#if ENABLE_OVERLOADING+    downloadEstimatedProgress               ,+#endif+    getDownloadEstimatedProgress            ,+++-- ** response #attr:response#+{- | The 'GI.WebKit2.Objects.URIResponse.URIResponse' associated with this download.+-}+#if ENABLE_OVERLOADING+    DownloadResponsePropertyInfo            ,+#endif+#if ENABLE_OVERLOADING+    downloadResponse                        ,+#endif+    getDownloadResponse                     ,+++++ -- * Signals+-- ** createdDestination #signal:createdDestination#++    C_DownloadCreatedDestinationCallback    ,+    DownloadCreatedDestinationCallback      ,+#if ENABLE_OVERLOADING+    DownloadCreatedDestinationSignalInfo    ,+#endif+    afterDownloadCreatedDestination         ,+    genClosure_DownloadCreatedDestination   ,+    mk_DownloadCreatedDestinationCallback   ,+    noDownloadCreatedDestinationCallback    ,+    onDownloadCreatedDestination            ,+    wrap_DownloadCreatedDestinationCallback ,+++-- ** decideDestination #signal:decideDestination#++    C_DownloadDecideDestinationCallback     ,+    DownloadDecideDestinationCallback       ,+#if ENABLE_OVERLOADING+    DownloadDecideDestinationSignalInfo     ,+#endif+    afterDownloadDecideDestination          ,+    genClosure_DownloadDecideDestination    ,+    mk_DownloadDecideDestinationCallback    ,+    noDownloadDecideDestinationCallback     ,+    onDownloadDecideDestination             ,+    wrap_DownloadDecideDestinationCallback  ,+++-- ** failed #signal:failed#++    C_DownloadFailedCallback                ,+    DownloadFailedCallback                  ,+#if ENABLE_OVERLOADING+    DownloadFailedSignalInfo                ,+#endif+    afterDownloadFailed                     ,+    genClosure_DownloadFailed               ,+    mk_DownloadFailedCallback               ,+    noDownloadFailedCallback                ,+    onDownloadFailed                        ,+    wrap_DownloadFailedCallback             ,+++-- ** finished #signal:finished#++    C_DownloadFinishedCallback              ,+    DownloadFinishedCallback                ,+#if ENABLE_OVERLOADING+    DownloadFinishedSignalInfo              ,+#endif+    afterDownloadFinished                   ,+    genClosure_DownloadFinished             ,+    mk_DownloadFinishedCallback             ,+    noDownloadFinishedCallback              ,+    onDownloadFinished                      ,+    wrap_DownloadFinishedCallback           ,+++-- ** receivedData #signal:receivedData#++    C_DownloadReceivedDataCallback          ,+    DownloadReceivedDataCallback            ,+#if ENABLE_OVERLOADING+    DownloadReceivedDataSignalInfo          ,+#endif+    afterDownloadReceivedData               ,+    genClosure_DownloadReceivedData         ,+    mk_DownloadReceivedDataCallback         ,+    noDownloadReceivedDataCallback          ,+    onDownloadReceivedData                  ,+    wrap_DownloadReceivedDataCallback       ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIRequest as WebKit2.URIRequest+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIResponse as WebKit2.URIResponse+import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView++-- | Memory-managed wrapper type.+newtype Download = Download (ManagedPtr Download)+foreign import ccall "webkit_download_get_type"+    c_webkit_download_get_type :: IO GType++instance GObject Download where+    gobjectType = c_webkit_download_get_type+    ++-- | Type class for types which can be safely cast to `Download`, for instance with `toDownload`.+class (GObject o, O.IsDescendantOf Download o) => IsDownload o+instance (GObject o, O.IsDescendantOf Download o) => IsDownload o++instance O.HasParentTypes Download+type instance O.ParentTypes Download = '[GObject.Object.Object]++-- | Cast to `Download`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toDownload :: (MonadIO m, IsDownload o) => o -> m Download+toDownload = liftIO . unsafeCastTo Download++-- | A convenience alias for `Nothing` :: `Maybe` `Download`.+noDownload :: Maybe Download+noDownload = Nothing++#if ENABLE_OVERLOADING+type family ResolveDownloadMethod (t :: Symbol) (o :: *) :: * where+    ResolveDownloadMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveDownloadMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveDownloadMethod "cancel" o = DownloadCancelMethodInfo+    ResolveDownloadMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveDownloadMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveDownloadMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveDownloadMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveDownloadMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveDownloadMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveDownloadMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveDownloadMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveDownloadMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveDownloadMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveDownloadMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveDownloadMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveDownloadMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveDownloadMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveDownloadMethod "getAllowOverwrite" o = DownloadGetAllowOverwriteMethodInfo+    ResolveDownloadMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveDownloadMethod "getDestination" o = DownloadGetDestinationMethodInfo+    ResolveDownloadMethod "getElapsedTime" o = DownloadGetElapsedTimeMethodInfo+    ResolveDownloadMethod "getEstimatedProgress" o = DownloadGetEstimatedProgressMethodInfo+    ResolveDownloadMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveDownloadMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveDownloadMethod "getReceivedDataLength" o = DownloadGetReceivedDataLengthMethodInfo+    ResolveDownloadMethod "getRequest" o = DownloadGetRequestMethodInfo+    ResolveDownloadMethod "getResponse" o = DownloadGetResponseMethodInfo+    ResolveDownloadMethod "getWebView" o = DownloadGetWebViewMethodInfo+    ResolveDownloadMethod "setAllowOverwrite" o = DownloadSetAllowOverwriteMethodInfo+    ResolveDownloadMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveDownloadMethod "setDestination" o = DownloadSetDestinationMethodInfo+    ResolveDownloadMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveDownloadMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveDownloadMethod t Download, O.MethodInfo info Download p) => OL.IsLabel t (Download -> 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++-- signal Download::created-destination+{- |+This signal is emitted after 'GI.WebKit2.Objects.Download.Download'::@/decide-destination/@ and before+'GI.WebKit2.Objects.Download.Download'::@/received-data/@ to notify that destination file has been+created successfully at /@destination@/.+-}+type DownloadCreatedDestinationCallback =+    T.Text+    {- ^ /@destination@/: the destination URI -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `DownloadCreatedDestinationCallback`@.+noDownloadCreatedDestinationCallback :: Maybe DownloadCreatedDestinationCallback+noDownloadCreatedDestinationCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_DownloadCreatedDestinationCallback =+    Ptr () ->                               -- object+    CString ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_DownloadCreatedDestinationCallback`.+foreign import ccall "wrapper"+    mk_DownloadCreatedDestinationCallback :: C_DownloadCreatedDestinationCallback -> IO (FunPtr C_DownloadCreatedDestinationCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_DownloadCreatedDestination :: MonadIO m => DownloadCreatedDestinationCallback -> m (GClosure C_DownloadCreatedDestinationCallback)+genClosure_DownloadCreatedDestination cb = liftIO $ do+    let cb' = wrap_DownloadCreatedDestinationCallback cb+    mk_DownloadCreatedDestinationCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `DownloadCreatedDestinationCallback` into a `C_DownloadCreatedDestinationCallback`.+wrap_DownloadCreatedDestinationCallback ::+    DownloadCreatedDestinationCallback ->+    C_DownloadCreatedDestinationCallback+wrap_DownloadCreatedDestinationCallback _cb _ destination _ = do+    destination' <- cstringToText destination+    _cb  destination'+++{- |+Connect a signal handler for the “@created-destination@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' download #createdDestination callback+@+-}+onDownloadCreatedDestination :: (IsDownload a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId+onDownloadCreatedDestination obj cb = liftIO $ do+    let cb' = wrap_DownloadCreatedDestinationCallback cb+    cb'' <- mk_DownloadCreatedDestinationCallback cb'+    connectSignalFunPtr obj "created-destination" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@created-destination@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' download #createdDestination callback+@+-}+afterDownloadCreatedDestination :: (IsDownload a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId+afterDownloadCreatedDestination obj cb = liftIO $ do+    let cb' = wrap_DownloadCreatedDestinationCallback cb+    cb'' <- mk_DownloadCreatedDestinationCallback cb'+    connectSignalFunPtr obj "created-destination" cb'' SignalConnectAfter+++-- signal Download::decide-destination+{- |+This signal is emitted after response is received to+decide a destination URI for the download. If this signal is not+handled the file will be downloaded to 'GI.GLib.Enums.UserDirectoryDirectoryDownload'+directory using /@suggestedFilename@/.+-}+type DownloadDecideDestinationCallback =+    T.Text+    {- ^ /@suggestedFilename@/: the filename suggested for the download -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `DownloadDecideDestinationCallback`@.+noDownloadDecideDestinationCallback :: Maybe DownloadDecideDestinationCallback+noDownloadDecideDestinationCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_DownloadDecideDestinationCallback =+    Ptr () ->                               -- object+    CString ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_DownloadDecideDestinationCallback`.+foreign import ccall "wrapper"+    mk_DownloadDecideDestinationCallback :: C_DownloadDecideDestinationCallback -> IO (FunPtr C_DownloadDecideDestinationCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_DownloadDecideDestination :: MonadIO m => DownloadDecideDestinationCallback -> m (GClosure C_DownloadDecideDestinationCallback)+genClosure_DownloadDecideDestination cb = liftIO $ do+    let cb' = wrap_DownloadDecideDestinationCallback cb+    mk_DownloadDecideDestinationCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `DownloadDecideDestinationCallback` into a `C_DownloadDecideDestinationCallback`.+wrap_DownloadDecideDestinationCallback ::+    DownloadDecideDestinationCallback ->+    C_DownloadDecideDestinationCallback+wrap_DownloadDecideDestinationCallback _cb _ suggestedFilename _ = do+    suggestedFilename' <- cstringToText suggestedFilename+    result <- _cb  suggestedFilename'+    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@decide-destination@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' download #decideDestination callback+@+-}+onDownloadDecideDestination :: (IsDownload a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId+onDownloadDecideDestination obj cb = liftIO $ do+    let cb' = wrap_DownloadDecideDestinationCallback cb+    cb'' <- mk_DownloadDecideDestinationCallback cb'+    connectSignalFunPtr obj "decide-destination" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@decide-destination@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' download #decideDestination callback+@+-}+afterDownloadDecideDestination :: (IsDownload a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId+afterDownloadDecideDestination obj cb = liftIO $ do+    let cb' = wrap_DownloadDecideDestinationCallback cb+    cb'' <- mk_DownloadDecideDestinationCallback cb'+    connectSignalFunPtr obj "decide-destination" cb'' SignalConnectAfter+++-- signal Download::failed+{- |+This signal is emitted when an error occurs during the download+operation. The given /@error@/, of the domain @/WEBKIT_DOWNLOAD_ERROR/@,+contains further details of the failure. If the download is cancelled+with 'GI.WebKit2.Objects.Download.downloadCancel', this signal is emitted with error+'GI.WebKit2.Enums.DownloadErrorCancelledByUser'. The download operation finishes+after an error and 'GI.WebKit2.Objects.Download.Download'::@/finished/@ signal is emitted after this one.+-}+type DownloadFailedCallback =+    GError+    {- ^ /@error@/: the 'GError' that was triggered -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `DownloadFailedCallback`@.+noDownloadFailedCallback :: Maybe DownloadFailedCallback+noDownloadFailedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_DownloadFailedCallback =+    Ptr () ->                               -- object+    Ptr GError ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_DownloadFailedCallback`.+foreign import ccall "wrapper"+    mk_DownloadFailedCallback :: C_DownloadFailedCallback -> IO (FunPtr C_DownloadFailedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_DownloadFailed :: MonadIO m => DownloadFailedCallback -> m (GClosure C_DownloadFailedCallback)+genClosure_DownloadFailed cb = liftIO $ do+    let cb' = wrap_DownloadFailedCallback cb+    mk_DownloadFailedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `DownloadFailedCallback` into a `C_DownloadFailedCallback`.+wrap_DownloadFailedCallback ::+    DownloadFailedCallback ->+    C_DownloadFailedCallback+wrap_DownloadFailedCallback _cb _ error_ _ = do+    error_' <- (newBoxed GError) error_+    _cb  error_'+++{- |+Connect a signal handler for the “@failed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' download #failed callback+@+-}+onDownloadFailed :: (IsDownload a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId+onDownloadFailed obj cb = liftIO $ do+    let cb' = wrap_DownloadFailedCallback cb+    cb'' <- mk_DownloadFailedCallback cb'+    connectSignalFunPtr obj "failed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@failed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' download #failed callback+@+-}+afterDownloadFailed :: (IsDownload a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId+afterDownloadFailed obj cb = liftIO $ do+    let cb' = wrap_DownloadFailedCallback cb+    cb'' <- mk_DownloadFailedCallback cb'+    connectSignalFunPtr obj "failed" cb'' SignalConnectAfter+++-- signal Download::finished+{- |+This signal is emitted when download finishes successfully or due to an error.+In case of errors 'GI.WebKit2.Objects.Download.Download'::@/failed/@ signal is emitted before this one.+-}+type DownloadFinishedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `DownloadFinishedCallback`@.+noDownloadFinishedCallback :: Maybe DownloadFinishedCallback+noDownloadFinishedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_DownloadFinishedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_DownloadFinishedCallback`.+foreign import ccall "wrapper"+    mk_DownloadFinishedCallback :: C_DownloadFinishedCallback -> IO (FunPtr C_DownloadFinishedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_DownloadFinished :: MonadIO m => DownloadFinishedCallback -> m (GClosure C_DownloadFinishedCallback)+genClosure_DownloadFinished cb = liftIO $ do+    let cb' = wrap_DownloadFinishedCallback cb+    mk_DownloadFinishedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `DownloadFinishedCallback` into a `C_DownloadFinishedCallback`.+wrap_DownloadFinishedCallback ::+    DownloadFinishedCallback ->+    C_DownloadFinishedCallback+wrap_DownloadFinishedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@finished@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' download #finished callback+@+-}+onDownloadFinished :: (IsDownload a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId+onDownloadFinished obj cb = liftIO $ do+    let cb' = wrap_DownloadFinishedCallback cb+    cb'' <- mk_DownloadFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@finished@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' download #finished callback+@+-}+afterDownloadFinished :: (IsDownload a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId+afterDownloadFinished obj cb = liftIO $ do+    let cb' = wrap_DownloadFinishedCallback cb+    cb'' <- mk_DownloadFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectAfter+++-- signal Download::received-data+{- |+This signal is emitted after response is received,+every time new data has been written to the destination. It\'s+useful to know the progress of the download operation.+-}+type DownloadReceivedDataCallback =+    Word64+    {- ^ /@dataLength@/: the length of data received in bytes -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `DownloadReceivedDataCallback`@.+noDownloadReceivedDataCallback :: Maybe DownloadReceivedDataCallback+noDownloadReceivedDataCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_DownloadReceivedDataCallback =+    Ptr () ->                               -- object+    Word64 ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_DownloadReceivedDataCallback`.+foreign import ccall "wrapper"+    mk_DownloadReceivedDataCallback :: C_DownloadReceivedDataCallback -> IO (FunPtr C_DownloadReceivedDataCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_DownloadReceivedData :: MonadIO m => DownloadReceivedDataCallback -> m (GClosure C_DownloadReceivedDataCallback)+genClosure_DownloadReceivedData cb = liftIO $ do+    let cb' = wrap_DownloadReceivedDataCallback cb+    mk_DownloadReceivedDataCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `DownloadReceivedDataCallback` into a `C_DownloadReceivedDataCallback`.+wrap_DownloadReceivedDataCallback ::+    DownloadReceivedDataCallback ->+    C_DownloadReceivedDataCallback+wrap_DownloadReceivedDataCallback _cb _ dataLength _ = do+    _cb  dataLength+++{- |+Connect a signal handler for the “@received-data@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' download #receivedData callback+@+-}+onDownloadReceivedData :: (IsDownload a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId+onDownloadReceivedData obj cb = liftIO $ do+    let cb' = wrap_DownloadReceivedDataCallback cb+    cb'' <- mk_DownloadReceivedDataCallback cb'+    connectSignalFunPtr obj "received-data" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@received-data@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' download #receivedData callback+@+-}+afterDownloadReceivedData :: (IsDownload a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId+afterDownloadReceivedData obj cb = liftIO $ do+    let cb' = wrap_DownloadReceivedDataCallback cb+    cb'' <- mk_DownloadReceivedDataCallback cb'+    connectSignalFunPtr obj "received-data" cb'' SignalConnectAfter+++-- VVV Prop "allow-overwrite"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@allow-overwrite@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' download #allowOverwrite+@+-}+getDownloadAllowOverwrite :: (MonadIO m, IsDownload o) => o -> m Bool+getDownloadAllowOverwrite obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-overwrite"++{- |+Set the value of the “@allow-overwrite@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' download [ #allowOverwrite 'Data.GI.Base.Attributes.:=' value ]+@+-}+setDownloadAllowOverwrite :: (MonadIO m, IsDownload o) => o -> Bool -> m ()+setDownloadAllowOverwrite obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-overwrite" val++{- |+Construct a `GValueConstruct` with valid value for the “@allow-overwrite@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructDownloadAllowOverwrite :: (IsDownload o) => Bool -> IO (GValueConstruct o)+constructDownloadAllowOverwrite val = B.Properties.constructObjectPropertyBool "allow-overwrite" val++#if ENABLE_OVERLOADING+data DownloadAllowOverwritePropertyInfo+instance AttrInfo DownloadAllowOverwritePropertyInfo where+    type AttrAllowedOps DownloadAllowOverwritePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DownloadAllowOverwritePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DownloadAllowOverwritePropertyInfo = IsDownload+    type AttrGetType DownloadAllowOverwritePropertyInfo = Bool+    type AttrLabel DownloadAllowOverwritePropertyInfo = "allow-overwrite"+    type AttrOrigin DownloadAllowOverwritePropertyInfo = Download+    attrGet _ = getDownloadAllowOverwrite+    attrSet _ = setDownloadAllowOverwrite+    attrConstruct _ = constructDownloadAllowOverwrite+    attrClear _ = undefined+#endif++-- VVV Prop "destination"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Just False)++{- |+Get the value of the “@destination@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' download #destination+@+-}+getDownloadDestination :: (MonadIO m, IsDownload o) => o -> m (Maybe T.Text)+getDownloadDestination obj = liftIO $ B.Properties.getObjectPropertyString obj "destination"++#if ENABLE_OVERLOADING+data DownloadDestinationPropertyInfo+instance AttrInfo DownloadDestinationPropertyInfo where+    type AttrAllowedOps DownloadDestinationPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DownloadDestinationPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DownloadDestinationPropertyInfo = IsDownload+    type AttrGetType DownloadDestinationPropertyInfo = (Maybe T.Text)+    type AttrLabel DownloadDestinationPropertyInfo = "destination"+    type AttrOrigin DownloadDestinationPropertyInfo = Download+    attrGet _ = getDownloadDestination+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "estimated-progress"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@estimated-progress@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' download #estimatedProgress+@+-}+getDownloadEstimatedProgress :: (MonadIO m, IsDownload o) => o -> m Double+getDownloadEstimatedProgress obj = liftIO $ B.Properties.getObjectPropertyDouble obj "estimated-progress"++#if ENABLE_OVERLOADING+data DownloadEstimatedProgressPropertyInfo+instance AttrInfo DownloadEstimatedProgressPropertyInfo where+    type AttrAllowedOps DownloadEstimatedProgressPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DownloadEstimatedProgressPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DownloadEstimatedProgressPropertyInfo = IsDownload+    type AttrGetType DownloadEstimatedProgressPropertyInfo = Double+    type AttrLabel DownloadEstimatedProgressPropertyInfo = "estimated-progress"+    type AttrOrigin DownloadEstimatedProgressPropertyInfo = Download+    attrGet _ = getDownloadEstimatedProgress+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "response"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@response@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' download #response+@+-}+getDownloadResponse :: (MonadIO m, IsDownload o) => o -> m (Maybe WebKit2.URIResponse.URIResponse)+getDownloadResponse obj = liftIO $ B.Properties.getObjectPropertyObject obj "response" WebKit2.URIResponse.URIResponse++#if ENABLE_OVERLOADING+data DownloadResponsePropertyInfo+instance AttrInfo DownloadResponsePropertyInfo where+    type AttrAllowedOps DownloadResponsePropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint DownloadResponsePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DownloadResponsePropertyInfo = IsDownload+    type AttrGetType DownloadResponsePropertyInfo = (Maybe WebKit2.URIResponse.URIResponse)+    type AttrLabel DownloadResponsePropertyInfo = "response"+    type AttrOrigin DownloadResponsePropertyInfo = Download+    attrGet _ = getDownloadResponse+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList Download+type instance O.AttributeList Download = DownloadAttributeList+type DownloadAttributeList = ('[ '("allowOverwrite", DownloadAllowOverwritePropertyInfo), '("destination", DownloadDestinationPropertyInfo), '("estimatedProgress", DownloadEstimatedProgressPropertyInfo), '("response", DownloadResponsePropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+downloadAllowOverwrite :: AttrLabelProxy "allowOverwrite"+downloadAllowOverwrite = AttrLabelProxy++downloadDestination :: AttrLabelProxy "destination"+downloadDestination = AttrLabelProxy++downloadEstimatedProgress :: AttrLabelProxy "estimatedProgress"+downloadEstimatedProgress = AttrLabelProxy++downloadResponse :: AttrLabelProxy "response"+downloadResponse = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data DownloadCreatedDestinationSignalInfo+instance SignalInfo DownloadCreatedDestinationSignalInfo where+    type HaskellCallbackType DownloadCreatedDestinationSignalInfo = DownloadCreatedDestinationCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_DownloadCreatedDestinationCallback cb+        cb'' <- mk_DownloadCreatedDestinationCallback cb'+        connectSignalFunPtr obj "created-destination" cb'' connectMode++data DownloadDecideDestinationSignalInfo+instance SignalInfo DownloadDecideDestinationSignalInfo where+    type HaskellCallbackType DownloadDecideDestinationSignalInfo = DownloadDecideDestinationCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_DownloadDecideDestinationCallback cb+        cb'' <- mk_DownloadDecideDestinationCallback cb'+        connectSignalFunPtr obj "decide-destination" cb'' connectMode++data DownloadFailedSignalInfo+instance SignalInfo DownloadFailedSignalInfo where+    type HaskellCallbackType DownloadFailedSignalInfo = DownloadFailedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_DownloadFailedCallback cb+        cb'' <- mk_DownloadFailedCallback cb'+        connectSignalFunPtr obj "failed" cb'' connectMode++data DownloadFinishedSignalInfo+instance SignalInfo DownloadFinishedSignalInfo where+    type HaskellCallbackType DownloadFinishedSignalInfo = DownloadFinishedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_DownloadFinishedCallback cb+        cb'' <- mk_DownloadFinishedCallback cb'+        connectSignalFunPtr obj "finished" cb'' connectMode++data DownloadReceivedDataSignalInfo+instance SignalInfo DownloadReceivedDataSignalInfo where+    type HaskellCallbackType DownloadReceivedDataSignalInfo = DownloadReceivedDataCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_DownloadReceivedDataCallback cb+        cb'' <- mk_DownloadReceivedDataCallback cb'+        connectSignalFunPtr obj "received-data" cb'' connectMode++type instance O.SignalList Download = DownloadSignalList+type DownloadSignalList = ('[ '("createdDestination", DownloadCreatedDestinationSignalInfo), '("decideDestination", DownloadDecideDestinationSignalInfo), '("failed", DownloadFailedSignalInfo), '("finished", DownloadFinishedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("receivedData", DownloadReceivedDataSignalInfo)] :: [(Symbol, *)])++#endif++-- method Download::cancel+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_cancel" webkit_download_cancel :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO ()++{- |+Cancels the download. When the ongoing download+operation is effectively cancelled the signal+'GI.WebKit2.Objects.Download.Download'::@/failed/@ is emitted with+'GI.WebKit2.Enums.DownloadErrorCancelledByUser' error.+-}+downloadCancel ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m ()+downloadCancel download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    webkit_download_cancel download'+    touchManagedPtr download+    return ()++#if ENABLE_OVERLOADING+data DownloadCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, IsDownload a) => O.MethodInfo DownloadCancelMethodInfo a signature where+    overloadedMethod _ = downloadCancel++#endif++-- method Download::get_allow_overwrite+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_allow_overwrite" webkit_download_get_allow_overwrite :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO CInt++{- |+Returns the current value of the 'GI.WebKit2.Objects.Download.Download':@/allow-overwrite/@ property,+which determines whether the download will overwrite an existing file on+disk, or if it will fail if the destination already exists.++/Since: 2.6/+-}+downloadGetAllowOverwrite ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m Bool+    {- ^ __Returns:__ the current value of the 'GI.WebKit2.Objects.Download.Download':@/allow-overwrite/@ property -}+downloadGetAllowOverwrite download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_allow_overwrite download'+    let result' = (/= 0) result+    touchManagedPtr download+    return result'++#if ENABLE_OVERLOADING+data DownloadGetAllowOverwriteMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetAllowOverwriteMethodInfo a signature where+    overloadedMethod _ = downloadGetAllowOverwrite++#endif++-- method Download::get_destination+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_destination" webkit_download_get_destination :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO CString++{- |+Obtains the URI to which the downloaded file will be written. You+can connect to 'GI.WebKit2.Objects.Download.Download'::@/created-destination/@ to make+sure this method returns a valid destination.+-}+downloadGetDestination ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the destination URI or 'Nothing' -}+downloadGetDestination download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_destination download'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr download+    return maybeResult++#if ENABLE_OVERLOADING+data DownloadGetDestinationMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetDestinationMethodInfo a signature where+    overloadedMethod _ = downloadGetDestination++#endif++-- method Download::get_elapsed_time+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TDouble)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_elapsed_time" webkit_download_get_elapsed_time :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO CDouble++{- |+Gets the elapsed time in seconds, including any fractional part.+If the download finished, had an error or was cancelled this is+the time between its start and the event.+-}+downloadGetElapsedTime ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m Double+    {- ^ __Returns:__ seconds since the download was started -}+downloadGetElapsedTime download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_elapsed_time download'+    let result' = realToFrac result+    touchManagedPtr download+    return result'++#if ENABLE_OVERLOADING+data DownloadGetElapsedTimeMethodInfo+instance (signature ~ (m Double), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetElapsedTimeMethodInfo a signature where+    overloadedMethod _ = downloadGetElapsedTime++#endif++-- method Download::get_estimated_progress+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TDouble)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_estimated_progress" webkit_download_get_estimated_progress :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO CDouble++{- |+Gets the value of the 'GI.WebKit2.Objects.Download.Download':@/estimated-progress/@ property.+You can monitor the estimated progress of the download operation by+connecting to the notify::estimated-progress signal of /@download@/.+-}+downloadGetEstimatedProgress ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m Double+    {- ^ __Returns:__ an estimate of the of the percent complete for a download+    as a range from 0.0 to 1.0. -}+downloadGetEstimatedProgress download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_estimated_progress download'+    let result' = realToFrac result+    touchManagedPtr download+    return result'++#if ENABLE_OVERLOADING+data DownloadGetEstimatedProgressMethodInfo+instance (signature ~ (m Double), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetEstimatedProgressMethodInfo a signature where+    overloadedMethod _ = downloadGetEstimatedProgress++#endif++-- method Download::get_received_data_length+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt64)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_received_data_length" webkit_download_get_received_data_length :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO Word64++{- |+Gets the length of the data already downloaded for /@download@/+in bytes.+-}+downloadGetReceivedDataLength ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m Word64+    {- ^ __Returns:__ the amount of bytes already downloaded. -}+downloadGetReceivedDataLength download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_received_data_length download'+    touchManagedPtr download+    return result++#if ENABLE_OVERLOADING+data DownloadGetReceivedDataLengthMethodInfo+instance (signature ~ (m Word64), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetReceivedDataLengthMethodInfo a signature where+    overloadedMethod _ = downloadGetReceivedDataLength++#endif++-- method Download::get_request+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIRequest"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_request" webkit_download_get_request :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO (Ptr WebKit2.URIRequest.URIRequest)++{- |+Retrieves the 'GI.WebKit2.Objects.URIRequest.URIRequest' object that backs the download+process.+-}+downloadGetRequest ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m WebKit2.URIRequest.URIRequest+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.URIRequest.URIRequest' of /@download@/ -}+downloadGetRequest download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_request download'+    checkUnexpectedReturnNULL "downloadGetRequest" result+    result' <- (newObject WebKit2.URIRequest.URIRequest) result+    touchManagedPtr download+    return result'++#if ENABLE_OVERLOADING+data DownloadGetRequestMethodInfo+instance (signature ~ (m WebKit2.URIRequest.URIRequest), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetRequestMethodInfo a signature where+    overloadedMethod _ = downloadGetRequest++#endif++-- method Download::get_response+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIResponse"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_response" webkit_download_get_response :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO (Ptr WebKit2.URIResponse.URIResponse)++{- |+Retrieves the 'GI.WebKit2.Objects.URIResponse.URIResponse' object that backs the download+process. This method returns 'Nothing' if called before the response+is received from the server. You can connect to notify::response+signal to be notified when the response is received.+-}+downloadGetResponse ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m (Maybe WebKit2.URIResponse.URIResponse)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.URIResponse.URIResponse', or 'Nothing' if+    the response hasn\'t been received yet. -}+downloadGetResponse download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_response download'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.URIResponse.URIResponse) result'+        return result''+    touchManagedPtr download+    return maybeResult++#if ENABLE_OVERLOADING+data DownloadGetResponseMethodInfo+instance (signature ~ (m (Maybe WebKit2.URIResponse.URIResponse)), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetResponseMethodInfo a signature where+    overloadedMethod _ = downloadGetResponse++#endif++-- method Download::get_web_view+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_get_web_view" webkit_download_get_web_view :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    IO (Ptr WebKit2.WebView.WebView)++{- |+Get the 'GI.WebKit2.Objects.WebView.WebView' that initiated the download.+-}+downloadGetWebView ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> m (Maybe WebKit2.WebView.WebView)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.WebView.WebView' that initiated /@download@/,+   or 'Nothing' if /@download@/ was not initiated by a 'GI.WebKit2.Objects.WebView.WebView'. -}+downloadGetWebView download = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    result <- webkit_download_get_web_view download'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.WebView.WebView) result'+        return result''+    touchManagedPtr download+    return maybeResult++#if ENABLE_OVERLOADING+data DownloadGetWebViewMethodInfo+instance (signature ~ (m (Maybe WebKit2.WebView.WebView)), MonadIO m, IsDownload a) => O.MethodInfo DownloadGetWebViewMethodInfo a signature where+    overloadedMethod _ = downloadGetWebView++#endif++-- method Download::set_allow_overwrite+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for the #WebKitDownload:allow-overwrite property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_set_allow_overwrite" webkit_download_set_allow_overwrite :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    CInt ->                                 -- allowed : TBasicType TBoolean+    IO ()++{- |+Sets the 'GI.WebKit2.Objects.Download.Download':@/allow-overwrite/@ property, which determines whether+the download may overwrite an existing file on disk, or if it will fail if+the destination already exists.++/Since: 2.6/+-}+downloadSetAllowOverwrite ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> Bool+    {- ^ /@allowed@/: the new value for the 'GI.WebKit2.Objects.Download.Download':@/allow-overwrite/@ property -}+    -> m ()+downloadSetAllowOverwrite download allowed = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    let allowed' = (fromIntegral . fromEnum) allowed+    webkit_download_set_allow_overwrite download' allowed'+    touchManagedPtr download+    return ()++#if ENABLE_OVERLOADING+data DownloadSetAllowOverwriteMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsDownload a) => O.MethodInfo DownloadSetAllowOverwriteMethodInfo a signature where+    overloadedMethod _ = downloadSetAllowOverwrite++#endif++-- method Download::set_destination+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "download", argType = TInterface (Name {namespace = "WebKit2", name = "Download"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitDownload", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the destination URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_download_set_destination" webkit_download_set_destination :: +    Ptr Download ->                         -- download : TInterface (Name {namespace = "WebKit2", name = "Download"})+    CString ->                              -- uri : TBasicType TUTF8+    IO ()++{- |+Sets the URI to which the downloaded file will be written.+This method should be called before the download transfer+starts or it will not have any effect on the ongoing download+operation. To set the destination using the filename suggested+by the server connect to 'GI.WebKit2.Objects.Download.Download'::@/decide-destination/@+signal and call 'GI.WebKit2.Objects.Download.downloadSetDestination'. If you want to+set a fixed destination URI that doesn\'t depend on the suggested+filename you can connect to notify::response signal and call+'GI.WebKit2.Objects.Download.downloadSetDestination'.+If 'GI.WebKit2.Objects.Download.Download'::@/decide-destination/@ signal is not handled+and destination URI is not set when the download transfer starts,+the file will be saved with the filename suggested by the server in+'GI.GLib.Enums.UserDirectoryDirectoryDownload' directory.+-}+downloadSetDestination ::+    (B.CallStack.HasCallStack, MonadIO m, IsDownload a) =>+    a+    {- ^ /@download@/: a 'GI.WebKit2.Objects.Download.Download' -}+    -> T.Text+    {- ^ /@uri@/: the destination URI -}+    -> m ()+downloadSetDestination download uri = liftIO $ do+    download' <- unsafeManagedPtrCastPtr download+    uri' <- textToCString uri+    webkit_download_set_destination download' uri'+    touchManagedPtr download+    freeMem uri'+    return ()++#if ENABLE_OVERLOADING+data DownloadSetDestinationMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsDownload a) => O.MethodInfo DownloadSetDestinationMethodInfo a signature where+    overloadedMethod _ = downloadSetDestination++#endif++
+ GI/WebKit2/Objects/Download.hs-boot view
@@ -0,0 +1,89 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.Download 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++newtype Download = Download (ManagedPtr Download)+instance GObject Download where+class (GObject o, O.IsDescendantOf Download o) => IsDownload o+instance (GObject o, O.IsDescendantOf Download o) => IsDownload o+instance O.HasParentTypes Download+#if ENABLE_OVERLOADING+data DownloadAllowOverwritePropertyInfo+#endif+#if ENABLE_OVERLOADING+data DownloadDestinationPropertyInfo+#endif+#if ENABLE_OVERLOADING+data DownloadEstimatedProgressPropertyInfo+#endif+#if ENABLE_OVERLOADING+data DownloadResponsePropertyInfo+#endif+#if ENABLE_OVERLOADING+data DownloadCreatedDestinationSignalInfo+#endif+#if ENABLE_OVERLOADING+data DownloadDecideDestinationSignalInfo+#endif+#if ENABLE_OVERLOADING+data DownloadFailedSignalInfo+#endif+#if ENABLE_OVERLOADING+data DownloadFinishedSignalInfo+#endif+#if ENABLE_OVERLOADING+data DownloadReceivedDataSignalInfo+#endif+#if ENABLE_OVERLOADING+data DownloadCancelMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetAllowOverwriteMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetDestinationMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetElapsedTimeMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetEstimatedProgressMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetReceivedDataLengthMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetRequestMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetResponseMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadGetWebViewMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadSetAllowOverwriteMethodInfo+#endif+#if ENABLE_OVERLOADING+data DownloadSetDestinationMethodInfo+#endif
+ GI/WebKit2/Objects/EditorState.hs view
@@ -0,0 +1,455 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.EditorState+    ( ++-- * Exported types+    EditorState(..)                         ,+    IsEditorState                           ,+    toEditorState                           ,+    noEditorState                           ,+++ -- * Methods+-- ** getTypingAttributes #method:getTypingAttributes#++#if ENABLE_OVERLOADING+    EditorStateGetTypingAttributesMethodInfo,+#endif+    editorStateGetTypingAttributes          ,+++-- ** isCopyAvailable #method:isCopyAvailable#++#if ENABLE_OVERLOADING+    EditorStateIsCopyAvailableMethodInfo    ,+#endif+    editorStateIsCopyAvailable              ,+++-- ** isCutAvailable #method:isCutAvailable#++#if ENABLE_OVERLOADING+    EditorStateIsCutAvailableMethodInfo     ,+#endif+    editorStateIsCutAvailable               ,+++-- ** isPasteAvailable #method:isPasteAvailable#++#if ENABLE_OVERLOADING+    EditorStateIsPasteAvailableMethodInfo   ,+#endif+    editorStateIsPasteAvailable             ,+++-- ** isRedoAvailable #method:isRedoAvailable#++#if ENABLE_OVERLOADING+    EditorStateIsRedoAvailableMethodInfo    ,+#endif+    editorStateIsRedoAvailable              ,+++-- ** isUndoAvailable #method:isUndoAvailable#++#if ENABLE_OVERLOADING+    EditorStateIsUndoAvailableMethodInfo    ,+#endif+    editorStateIsUndoAvailable              ,+++++ -- * Properties+-- ** typingAttributes #attr:typingAttributes#+{- | Bitmask of 'GI.WebKit2.Flags.EditorTypingAttributes' flags.+See 'GI.WebKit2.Objects.EditorState.editorStateGetTypingAttributes' for more information.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    EditorStateTypingAttributesPropertyInfo ,+#endif+#if ENABLE_OVERLOADING+    editorStateTypingAttributes             ,+#endif+    getEditorStateTypingAttributes          ,+++++    ) 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.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype EditorState = EditorState (ManagedPtr EditorState)+foreign import ccall "webkit_editor_state_get_type"+    c_webkit_editor_state_get_type :: IO GType++instance GObject EditorState where+    gobjectType = c_webkit_editor_state_get_type+    ++-- | Type class for types which can be safely cast to `EditorState`, for instance with `toEditorState`.+class (GObject o, O.IsDescendantOf EditorState o) => IsEditorState o+instance (GObject o, O.IsDescendantOf EditorState o) => IsEditorState o++instance O.HasParentTypes EditorState+type instance O.ParentTypes EditorState = '[GObject.Object.Object]++-- | Cast to `EditorState`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toEditorState :: (MonadIO m, IsEditorState o) => o -> m EditorState+toEditorState = liftIO . unsafeCastTo EditorState++-- | A convenience alias for `Nothing` :: `Maybe` `EditorState`.+noEditorState :: Maybe EditorState+noEditorState = Nothing++#if ENABLE_OVERLOADING+type family ResolveEditorStateMethod (t :: Symbol) (o :: *) :: * where+    ResolveEditorStateMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveEditorStateMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveEditorStateMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveEditorStateMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveEditorStateMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveEditorStateMethod "isCopyAvailable" o = EditorStateIsCopyAvailableMethodInfo+    ResolveEditorStateMethod "isCutAvailable" o = EditorStateIsCutAvailableMethodInfo+    ResolveEditorStateMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveEditorStateMethod "isPasteAvailable" o = EditorStateIsPasteAvailableMethodInfo+    ResolveEditorStateMethod "isRedoAvailable" o = EditorStateIsRedoAvailableMethodInfo+    ResolveEditorStateMethod "isUndoAvailable" o = EditorStateIsUndoAvailableMethodInfo+    ResolveEditorStateMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveEditorStateMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveEditorStateMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveEditorStateMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveEditorStateMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveEditorStateMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveEditorStateMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveEditorStateMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveEditorStateMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveEditorStateMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveEditorStateMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveEditorStateMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveEditorStateMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveEditorStateMethod "getTypingAttributes" o = EditorStateGetTypingAttributesMethodInfo+    ResolveEditorStateMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveEditorStateMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveEditorStateMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveEditorStateMethod t EditorState, O.MethodInfo info EditorState p) => OL.IsLabel t (EditorState -> 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++-- VVV Prop "typing-attributes"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@typing-attributes@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' editorState #typingAttributes+@+-}+getEditorStateTypingAttributes :: (MonadIO m, IsEditorState o) => o -> m Word32+getEditorStateTypingAttributes obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "typing-attributes"++#if ENABLE_OVERLOADING+data EditorStateTypingAttributesPropertyInfo+instance AttrInfo EditorStateTypingAttributesPropertyInfo where+    type AttrAllowedOps EditorStateTypingAttributesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint EditorStateTypingAttributesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint EditorStateTypingAttributesPropertyInfo = IsEditorState+    type AttrGetType EditorStateTypingAttributesPropertyInfo = Word32+    type AttrLabel EditorStateTypingAttributesPropertyInfo = "typing-attributes"+    type AttrOrigin EditorStateTypingAttributesPropertyInfo = EditorState+    attrGet _ = getEditorStateTypingAttributes+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList EditorState+type instance O.AttributeList EditorState = EditorStateAttributeList+type EditorStateAttributeList = ('[ '("typingAttributes", EditorStateTypingAttributesPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+editorStateTypingAttributes :: AttrLabelProxy "typingAttributes"+editorStateTypingAttributes = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList EditorState = EditorStateSignalList+type EditorStateSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method EditorState::get_typing_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "editor_state", argType = TInterface (Name {namespace = "WebKit2", name = "EditorState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitEditorState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_editor_state_get_typing_attributes" webkit_editor_state_get_typing_attributes :: +    Ptr EditorState ->                      -- editor_state : TInterface (Name {namespace = "WebKit2", name = "EditorState"})+    IO Word32++{- |+Gets the typing attributes at the current cursor position.+If there is a selection, this returns the typing attributes+of the selected text. Note that in case of a selection,+typing attributes are considered active only when they are+present throughout the selection.++/Since: 2.10/+-}+editorStateGetTypingAttributes ::+    (B.CallStack.HasCallStack, MonadIO m, IsEditorState a) =>+    a+    {- ^ /@editorState@/: a 'GI.WebKit2.Objects.EditorState.EditorState' -}+    -> m Word32+    {- ^ __Returns:__ a bitmask of 'GI.WebKit2.Flags.EditorTypingAttributes' flags -}+editorStateGetTypingAttributes editorState = liftIO $ do+    editorState' <- unsafeManagedPtrCastPtr editorState+    result <- webkit_editor_state_get_typing_attributes editorState'+    touchManagedPtr editorState+    return result++#if ENABLE_OVERLOADING+data EditorStateGetTypingAttributesMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateGetTypingAttributesMethodInfo a signature where+    overloadedMethod _ = editorStateGetTypingAttributes++#endif++-- method EditorState::is_copy_available+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "editor_state", argType = TInterface (Name {namespace = "WebKit2", name = "EditorState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitEditorState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_editor_state_is_copy_available" webkit_editor_state_is_copy_available :: +    Ptr EditorState ->                      -- editor_state : TInterface (Name {namespace = "WebKit2", name = "EditorState"})+    IO CInt++{- |+Gets whether a copy command can be issued.++/Since: 2.20/+-}+editorStateIsCopyAvailable ::+    (B.CallStack.HasCallStack, MonadIO m, IsEditorState a) =>+    a+    {- ^ /@editorState@/: a 'GI.WebKit2.Objects.EditorState.EditorState' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if copy is currently available -}+editorStateIsCopyAvailable editorState = liftIO $ do+    editorState' <- unsafeManagedPtrCastPtr editorState+    result <- webkit_editor_state_is_copy_available editorState'+    let result' = (/= 0) result+    touchManagedPtr editorState+    return result'++#if ENABLE_OVERLOADING+data EditorStateIsCopyAvailableMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateIsCopyAvailableMethodInfo a signature where+    overloadedMethod _ = editorStateIsCopyAvailable++#endif++-- method EditorState::is_cut_available+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "editor_state", argType = TInterface (Name {namespace = "WebKit2", name = "EditorState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitEditorState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_editor_state_is_cut_available" webkit_editor_state_is_cut_available :: +    Ptr EditorState ->                      -- editor_state : TInterface (Name {namespace = "WebKit2", name = "EditorState"})+    IO CInt++{- |+Gets whether a cut command can be issued.++/Since: 2.20/+-}+editorStateIsCutAvailable ::+    (B.CallStack.HasCallStack, MonadIO m, IsEditorState a) =>+    a+    {- ^ /@editorState@/: a 'GI.WebKit2.Objects.EditorState.EditorState' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if cut is currently available -}+editorStateIsCutAvailable editorState = liftIO $ do+    editorState' <- unsafeManagedPtrCastPtr editorState+    result <- webkit_editor_state_is_cut_available editorState'+    let result' = (/= 0) result+    touchManagedPtr editorState+    return result'++#if ENABLE_OVERLOADING+data EditorStateIsCutAvailableMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateIsCutAvailableMethodInfo a signature where+    overloadedMethod _ = editorStateIsCutAvailable++#endif++-- method EditorState::is_paste_available+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "editor_state", argType = TInterface (Name {namespace = "WebKit2", name = "EditorState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitEditorState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_editor_state_is_paste_available" webkit_editor_state_is_paste_available :: +    Ptr EditorState ->                      -- editor_state : TInterface (Name {namespace = "WebKit2", name = "EditorState"})+    IO CInt++{- |+Gets whether a paste command can be issued.++/Since: 2.20/+-}+editorStateIsPasteAvailable ::+    (B.CallStack.HasCallStack, MonadIO m, IsEditorState a) =>+    a+    {- ^ /@editorState@/: a 'GI.WebKit2.Objects.EditorState.EditorState' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if paste is currently available -}+editorStateIsPasteAvailable editorState = liftIO $ do+    editorState' <- unsafeManagedPtrCastPtr editorState+    result <- webkit_editor_state_is_paste_available editorState'+    let result' = (/= 0) result+    touchManagedPtr editorState+    return result'++#if ENABLE_OVERLOADING+data EditorStateIsPasteAvailableMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateIsPasteAvailableMethodInfo a signature where+    overloadedMethod _ = editorStateIsPasteAvailable++#endif++-- method EditorState::is_redo_available+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "editor_state", argType = TInterface (Name {namespace = "WebKit2", name = "EditorState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitEditorState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_editor_state_is_redo_available" webkit_editor_state_is_redo_available :: +    Ptr EditorState ->                      -- editor_state : TInterface (Name {namespace = "WebKit2", name = "EditorState"})+    IO CInt++{- |+Gets whether a redo command can be issued.++/Since: 2.20/+-}+editorStateIsRedoAvailable ::+    (B.CallStack.HasCallStack, MonadIO m, IsEditorState a) =>+    a+    {- ^ /@editorState@/: a 'GI.WebKit2.Objects.EditorState.EditorState' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if redo is currently available -}+editorStateIsRedoAvailable editorState = liftIO $ do+    editorState' <- unsafeManagedPtrCastPtr editorState+    result <- webkit_editor_state_is_redo_available editorState'+    let result' = (/= 0) result+    touchManagedPtr editorState+    return result'++#if ENABLE_OVERLOADING+data EditorStateIsRedoAvailableMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateIsRedoAvailableMethodInfo a signature where+    overloadedMethod _ = editorStateIsRedoAvailable++#endif++-- method EditorState::is_undo_available+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "editor_state", argType = TInterface (Name {namespace = "WebKit2", name = "EditorState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitEditorState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_editor_state_is_undo_available" webkit_editor_state_is_undo_available :: +    Ptr EditorState ->                      -- editor_state : TInterface (Name {namespace = "WebKit2", name = "EditorState"})+    IO CInt++{- |+Gets whether an undo command can be issued.++/Since: 2.20/+-}+editorStateIsUndoAvailable ::+    (B.CallStack.HasCallStack, MonadIO m, IsEditorState a) =>+    a+    {- ^ /@editorState@/: a 'GI.WebKit2.Objects.EditorState.EditorState' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if undo is currently available -}+editorStateIsUndoAvailable editorState = liftIO $ do+    editorState' <- unsafeManagedPtrCastPtr editorState+    result <- webkit_editor_state_is_undo_available editorState'+    let result' = (/= 0) result+    touchManagedPtr editorState+    return result'++#if ENABLE_OVERLOADING+data EditorStateIsUndoAvailableMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateIsUndoAvailableMethodInfo a signature where+    overloadedMethod _ = editorStateIsUndoAvailable++#endif++
+ GI/WebKit2/Objects/EditorState.hs-boot view
@@ -0,0 +1,50 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.EditorState 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++newtype EditorState = EditorState (ManagedPtr EditorState)+instance GObject EditorState where+class (GObject o, O.IsDescendantOf EditorState o) => IsEditorState o+instance (GObject o, O.IsDescendantOf EditorState o) => IsEditorState o+instance O.HasParentTypes EditorState+#if ENABLE_OVERLOADING+data EditorStateTypingAttributesPropertyInfo+#endif+#if ENABLE_OVERLOADING+data EditorStateGetTypingAttributesMethodInfo+#endif+#if ENABLE_OVERLOADING+data EditorStateIsCopyAvailableMethodInfo+#endif+#if ENABLE_OVERLOADING+data EditorStateIsCutAvailableMethodInfo+#endif+#if ENABLE_OVERLOADING+data EditorStateIsPasteAvailableMethodInfo+#endif+#if ENABLE_OVERLOADING+data EditorStateIsRedoAvailableMethodInfo+#endif+#if ENABLE_OVERLOADING+data EditorStateIsUndoAvailableMethodInfo+#endif
+ GI/WebKit2/Objects/FaviconDatabase.hs view
@@ -0,0 +1,464 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.FaviconDatabase+    ( ++-- * Exported types+    FaviconDatabase(..)                     ,+    IsFaviconDatabase                       ,+    toFaviconDatabase                       ,+    noFaviconDatabase                       ,+++ -- * Methods+-- ** clear #method:clear#++#if ENABLE_OVERLOADING+    FaviconDatabaseClearMethodInfo          ,+#endif+    faviconDatabaseClear                    ,+++-- ** getFavicon #method:getFavicon#++#if ENABLE_OVERLOADING+    FaviconDatabaseGetFaviconMethodInfo     ,+#endif+    faviconDatabaseGetFavicon               ,+++-- ** getFaviconFinish #method:getFaviconFinish#++#if ENABLE_OVERLOADING+    FaviconDatabaseGetFaviconFinishMethodInfo,+#endif+    faviconDatabaseGetFaviconFinish         ,+++-- ** getFaviconUri #method:getFaviconUri#++#if ENABLE_OVERLOADING+    FaviconDatabaseGetFaviconUriMethodInfo  ,+#endif+    faviconDatabaseGetFaviconUri            ,+++++ -- * Signals+-- ** faviconChanged #signal:faviconChanged#++    C_FaviconDatabaseFaviconChangedCallback ,+    FaviconDatabaseFaviconChangedCallback   ,+#if ENABLE_OVERLOADING+    FaviconDatabaseFaviconChangedSignalInfo ,+#endif+    afterFaviconDatabaseFaviconChanged      ,+    genClosure_FaviconDatabaseFaviconChanged,+    mk_FaviconDatabaseFaviconChangedCallback,+    noFaviconDatabaseFaviconChangedCallback ,+    onFaviconDatabaseFaviconChanged         ,+    wrap_FaviconDatabaseFaviconChangedCallback,+++++    ) 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.Cairo.Structs.Surface as Cairo.Surface+import qualified GI.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Callbacks as Gio.Callbacks+import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult+import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable++-- | Memory-managed wrapper type.+newtype FaviconDatabase = FaviconDatabase (ManagedPtr FaviconDatabase)+foreign import ccall "webkit_favicon_database_get_type"+    c_webkit_favicon_database_get_type :: IO GType++instance GObject FaviconDatabase where+    gobjectType = c_webkit_favicon_database_get_type+    ++-- | Type class for types which can be safely cast to `FaviconDatabase`, for instance with `toFaviconDatabase`.+class (GObject o, O.IsDescendantOf FaviconDatabase o) => IsFaviconDatabase o+instance (GObject o, O.IsDescendantOf FaviconDatabase o) => IsFaviconDatabase o++instance O.HasParentTypes FaviconDatabase+type instance O.ParentTypes FaviconDatabase = '[GObject.Object.Object]++-- | Cast to `FaviconDatabase`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toFaviconDatabase :: (MonadIO m, IsFaviconDatabase o) => o -> m FaviconDatabase+toFaviconDatabase = liftIO . unsafeCastTo FaviconDatabase++-- | A convenience alias for `Nothing` :: `Maybe` `FaviconDatabase`.+noFaviconDatabase :: Maybe FaviconDatabase+noFaviconDatabase = Nothing++#if ENABLE_OVERLOADING+type family ResolveFaviconDatabaseMethod (t :: Symbol) (o :: *) :: * where+    ResolveFaviconDatabaseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveFaviconDatabaseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveFaviconDatabaseMethod "clear" o = FaviconDatabaseClearMethodInfo+    ResolveFaviconDatabaseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveFaviconDatabaseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveFaviconDatabaseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveFaviconDatabaseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveFaviconDatabaseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveFaviconDatabaseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveFaviconDatabaseMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveFaviconDatabaseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveFaviconDatabaseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveFaviconDatabaseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveFaviconDatabaseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveFaviconDatabaseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveFaviconDatabaseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveFaviconDatabaseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveFaviconDatabaseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveFaviconDatabaseMethod "getFavicon" o = FaviconDatabaseGetFaviconMethodInfo+    ResolveFaviconDatabaseMethod "getFaviconFinish" o = FaviconDatabaseGetFaviconFinishMethodInfo+    ResolveFaviconDatabaseMethod "getFaviconUri" o = FaviconDatabaseGetFaviconUriMethodInfo+    ResolveFaviconDatabaseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveFaviconDatabaseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveFaviconDatabaseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveFaviconDatabaseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveFaviconDatabaseMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveFaviconDatabaseMethod t FaviconDatabase, O.MethodInfo info FaviconDatabase p) => OL.IsLabel t (FaviconDatabase -> 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++-- signal FaviconDatabase::favicon-changed+{- |+This signal is emitted when the favicon URI of /@pageUri@/ has+been changed to /@faviconUri@/ in the database. You can connect+to this signal and call 'GI.WebKit2.Objects.FaviconDatabase.faviconDatabaseGetFavicon'+to get the favicon. If you are interested in the favicon of a+'GI.WebKit2.Objects.WebView.WebView' it\'s easier to use the 'GI.WebKit2.Objects.WebView.WebView':@/favicon/@+property. See 'GI.WebKit2.Objects.WebView.webViewGetFavicon' for more details.+-}+type FaviconDatabaseFaviconChangedCallback =+    T.Text+    {- ^ /@pageUri@/: the URI of the Web page containing the icon -}+    -> T.Text+    {- ^ /@faviconUri@/: the URI of the favicon -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `FaviconDatabaseFaviconChangedCallback`@.+noFaviconDatabaseFaviconChangedCallback :: Maybe FaviconDatabaseFaviconChangedCallback+noFaviconDatabaseFaviconChangedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_FaviconDatabaseFaviconChangedCallback =+    Ptr () ->                               -- object+    CString ->+    CString ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_FaviconDatabaseFaviconChangedCallback`.+foreign import ccall "wrapper"+    mk_FaviconDatabaseFaviconChangedCallback :: C_FaviconDatabaseFaviconChangedCallback -> IO (FunPtr C_FaviconDatabaseFaviconChangedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_FaviconDatabaseFaviconChanged :: MonadIO m => FaviconDatabaseFaviconChangedCallback -> m (GClosure C_FaviconDatabaseFaviconChangedCallback)+genClosure_FaviconDatabaseFaviconChanged cb = liftIO $ do+    let cb' = wrap_FaviconDatabaseFaviconChangedCallback cb+    mk_FaviconDatabaseFaviconChangedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `FaviconDatabaseFaviconChangedCallback` into a `C_FaviconDatabaseFaviconChangedCallback`.+wrap_FaviconDatabaseFaviconChangedCallback ::+    FaviconDatabaseFaviconChangedCallback ->+    C_FaviconDatabaseFaviconChangedCallback+wrap_FaviconDatabaseFaviconChangedCallback _cb _ pageUri faviconUri _ = do+    pageUri' <- cstringToText pageUri+    faviconUri' <- cstringToText faviconUri+    _cb  pageUri' faviconUri'+++{- |+Connect a signal handler for the “@favicon-changed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' faviconDatabase #faviconChanged callback+@+-}+onFaviconDatabaseFaviconChanged :: (IsFaviconDatabase a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId+onFaviconDatabaseFaviconChanged obj cb = liftIO $ do+    let cb' = wrap_FaviconDatabaseFaviconChangedCallback cb+    cb'' <- mk_FaviconDatabaseFaviconChangedCallback cb'+    connectSignalFunPtr obj "favicon-changed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@favicon-changed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' faviconDatabase #faviconChanged callback+@+-}+afterFaviconDatabaseFaviconChanged :: (IsFaviconDatabase a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId+afterFaviconDatabaseFaviconChanged obj cb = liftIO $ do+    let cb' = wrap_FaviconDatabaseFaviconChangedCallback cb+    cb'' <- mk_FaviconDatabaseFaviconChangedCallback cb'+    connectSignalFunPtr obj "favicon-changed" cb'' SignalConnectAfter+++#if ENABLE_OVERLOADING+instance O.HasAttributeList FaviconDatabase+type instance O.AttributeList FaviconDatabase = FaviconDatabaseAttributeList+type FaviconDatabaseAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+data FaviconDatabaseFaviconChangedSignalInfo+instance SignalInfo FaviconDatabaseFaviconChangedSignalInfo where+    type HaskellCallbackType FaviconDatabaseFaviconChangedSignalInfo = FaviconDatabaseFaviconChangedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_FaviconDatabaseFaviconChangedCallback cb+        cb'' <- mk_FaviconDatabaseFaviconChangedCallback cb'+        connectSignalFunPtr obj "favicon-changed" cb'' connectMode++type instance O.SignalList FaviconDatabase = FaviconDatabaseSignalList+type FaviconDatabaseSignalList = ('[ '("faviconChanged", FaviconDatabaseFaviconChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method FaviconDatabase::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "database", argType = TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFaviconDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_favicon_database_clear" webkit_favicon_database_clear :: +    Ptr FaviconDatabase ->                  -- database : TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"})+    IO ()++{- |+Clears all icons from the database.+-}+faviconDatabaseClear ::+    (B.CallStack.HasCallStack, MonadIO m, IsFaviconDatabase a) =>+    a+    {- ^ /@database@/: a 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase' -}+    -> m ()+faviconDatabaseClear database = liftIO $ do+    database' <- unsafeManagedPtrCastPtr database+    webkit_favicon_database_clear database'+    touchManagedPtr database+    return ()++#if ENABLE_OVERLOADING+data FaviconDatabaseClearMethodInfo+instance (signature ~ (m ()), MonadIO m, IsFaviconDatabase a) => O.MethodInfo FaviconDatabaseClearMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseClear++#endif++-- method FaviconDatabase::get_favicon+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "database", argType = TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFaviconDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "URI of the page for which we want to retrieve the favicon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GCancellable or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GAsyncReadyCallback to call when the request is\n           satisfied or %NULL if you don't care about the result.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The data to pass to @callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_favicon_database_get_favicon" webkit_favicon_database_get_favicon :: +    Ptr FaviconDatabase ->                  -- database : TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"})+    CString ->                              -- page_uri : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously obtains a 'GI.Cairo.Structs.Surface.Surface' of the favicon for the+given page URI. It returns the cached icon if it\'s in the database+asynchronously waiting for the icon to be read from the database.++This is an asynchronous method. When the operation is finished, callback will+be invoked. You can then call 'GI.WebKit2.Objects.FaviconDatabase.faviconDatabaseGetFaviconFinish'+to get the result of the operation.++You must call 'GI.WebKit2.Objects.WebContext.webContextSetFaviconDatabaseDirectory' for+the 'GI.WebKit2.Objects.WebContext.WebContext' associated with this 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase'+before attempting to use this function; otherwise,+'GI.WebKit2.Objects.FaviconDatabase.faviconDatabaseGetFaviconFinish' will return+'GI.WebKit2.Enums.FaviconDatabaseErrorNotInitialized'.+-}+faviconDatabaseGetFavicon ::+    (B.CallStack.HasCallStack, MonadIO m, IsFaviconDatabase a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@database@/: a 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase' -}+    -> T.Text+    {- ^ /@pageUri@/: URI of the page for which we want to retrieve the favicon -}+    -> Maybe (b)+    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: A 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is+           satisfied or 'Nothing' if you don\'t care about the result. -}+    -> m ()+faviconDatabaseGetFavicon database pageUri cancellable callback = liftIO $ do+    database' <- unsafeManagedPtrCastPtr database+    pageUri' <- textToCString pageUri+    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_favicon_database_get_favicon database' pageUri' maybeCancellable maybeCallback userData+    touchManagedPtr database+    whenJust cancellable touchManagedPtr+    freeMem pageUri'+    return ()++#if ENABLE_OVERLOADING+data FaviconDatabaseGetFaviconMethodInfo+instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFaviconDatabase a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FaviconDatabaseGetFaviconMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseGetFavicon++#endif++-- method FaviconDatabase::get_favicon_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "database", argType = TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFaviconDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to webkit_favicon_database_get_favicon()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "cairo", name = "Surface"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_favicon_database_get_favicon_finish" webkit_favicon_database_get_favicon_finish :: +    Ptr FaviconDatabase ->                  -- database : TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Cairo.Surface.Surface)++{- |+Finishes an operation started with 'GI.WebKit2.Objects.FaviconDatabase.faviconDatabaseGetFavicon'.+-}+faviconDatabaseGetFaviconFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsFaviconDatabase a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@database@/: a 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase' -}+    -> b+    {- ^ /@result@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to 'GI.WebKit2.Objects.FaviconDatabase.faviconDatabaseGetFavicon' -}+    -> m Cairo.Surface.Surface+    {- ^ __Returns:__ a new reference to a 'GI.Cairo.Structs.Surface.Surface', or+'Nothing' in case of error. /(Can throw 'Data.GI.Base.GError.GError')/ -}+faviconDatabaseGetFaviconFinish database result_ = liftIO $ do+    database' <- unsafeManagedPtrCastPtr database+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_favicon_database_get_favicon_finish database' result_'+        checkUnexpectedReturnNULL "faviconDatabaseGetFaviconFinish" result+        result' <- (wrapBoxed Cairo.Surface.Surface) result+        touchManagedPtr database+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data FaviconDatabaseGetFaviconFinishMethodInfo+instance (signature ~ (b -> m Cairo.Surface.Surface), MonadIO m, IsFaviconDatabase a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FaviconDatabaseGetFaviconFinishMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseGetFaviconFinish++#endif++-- method FaviconDatabase::get_favicon_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "database", argType = TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFaviconDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "URI of the page containing the icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_favicon_database_get_favicon_uri" webkit_favicon_database_get_favicon_uri :: +    Ptr FaviconDatabase ->                  -- database : TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"})+    CString ->                              -- page_uri : TBasicType TUTF8+    IO CString++{- |+Obtains the URI of the favicon for the given /@pageUri@/.+-}+faviconDatabaseGetFaviconUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsFaviconDatabase a) =>+    a+    {- ^ /@database@/: a 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase' -}+    -> T.Text+    {- ^ /@pageUri@/: URI of the page containing the icon -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ a newly allocated URI for the favicon, or 'Nothing' if the+database doesn\'t have a favicon for /@pageUri@/. -}+faviconDatabaseGetFaviconUri database pageUri = liftIO $ do+    database' <- unsafeManagedPtrCastPtr database+    pageUri' <- textToCString pageUri+    result <- webkit_favicon_database_get_favicon_uri database' pageUri'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''+    touchManagedPtr database+    freeMem pageUri'+    return maybeResult++#if ENABLE_OVERLOADING+data FaviconDatabaseGetFaviconUriMethodInfo+instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsFaviconDatabase a) => O.MethodInfo FaviconDatabaseGetFaviconUriMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseGetFaviconUri++#endif++
+ GI/WebKit2/Objects/FaviconDatabase.hs-boot view
@@ -0,0 +1,44 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.FaviconDatabase 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++newtype FaviconDatabase = FaviconDatabase (ManagedPtr FaviconDatabase)+instance GObject FaviconDatabase where+class (GObject o, O.IsDescendantOf FaviconDatabase o) => IsFaviconDatabase o+instance (GObject o, O.IsDescendantOf FaviconDatabase o) => IsFaviconDatabase o+instance O.HasParentTypes FaviconDatabase+#if ENABLE_OVERLOADING+data FaviconDatabaseFaviconChangedSignalInfo+#endif+#if ENABLE_OVERLOADING+data FaviconDatabaseClearMethodInfo+#endif+#if ENABLE_OVERLOADING+data FaviconDatabaseGetFaviconMethodInfo+#endif+#if ENABLE_OVERLOADING+data FaviconDatabaseGetFaviconFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data FaviconDatabaseGetFaviconUriMethodInfo+#endif
+ GI/WebKit2/Objects/FileChooserRequest.hs view
@@ -0,0 +1,630 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.FileChooserRequest+    ( ++-- * Exported types+    FileChooserRequest(..)                  ,+    IsFileChooserRequest                    ,+    toFileChooserRequest                    ,+    noFileChooserRequest                    ,+++ -- * Methods+-- ** cancel #method:cancel#++#if ENABLE_OVERLOADING+    FileChooserRequestCancelMethodInfo      ,+#endif+    fileChooserRequestCancel                ,+++-- ** getMimeTypes #method:getMimeTypes#++#if ENABLE_OVERLOADING+    FileChooserRequestGetMimeTypesMethodInfo,+#endif+    fileChooserRequestGetMimeTypes          ,+++-- ** getMimeTypesFilter #method:getMimeTypesFilter#++#if ENABLE_OVERLOADING+    FileChooserRequestGetMimeTypesFilterMethodInfo,+#endif+    fileChooserRequestGetMimeTypesFilter    ,+++-- ** getSelectMultiple #method:getSelectMultiple#++#if ENABLE_OVERLOADING+    FileChooserRequestGetSelectMultipleMethodInfo,+#endif+    fileChooserRequestGetSelectMultiple     ,+++-- ** getSelectedFiles #method:getSelectedFiles#++#if ENABLE_OVERLOADING+    FileChooserRequestGetSelectedFilesMethodInfo,+#endif+    fileChooserRequestGetSelectedFiles      ,+++-- ** selectFiles #method:selectFiles#++#if ENABLE_OVERLOADING+    FileChooserRequestSelectFilesMethodInfo ,+#endif+    fileChooserRequestSelectFiles           ,+++++ -- * Properties+-- ** filter #attr:filter#+{- | The filter currently associated with the request. See+'GI.WebKit2.Objects.FileChooserRequest.fileChooserRequestGetMimeTypesFilter' for more+details.+-}+#if ENABLE_OVERLOADING+    FileChooserRequestFilterPropertyInfo    ,+#endif+#if ENABLE_OVERLOADING+    fileChooserRequestFilter                ,+#endif+    getFileChooserRequestFilter             ,+++-- ** mimeTypes #attr:mimeTypes#+{- | A 'Nothing'-terminated array of strings containing the list of MIME+types the file chooser dialog should handle. See+'GI.WebKit2.Objects.FileChooserRequest.fileChooserRequestGetMimeTypes' for more details.+-}+#if ENABLE_OVERLOADING+    FileChooserRequestMimeTypesPropertyInfo ,+#endif+#if ENABLE_OVERLOADING+    fileChooserRequestMimeTypes             ,+#endif+    getFileChooserRequestMimeTypes          ,+++-- ** selectMultiple #attr:selectMultiple#+{- | Whether the file chooser should allow selecting multiple+files. See+'GI.WebKit2.Objects.FileChooserRequest.fileChooserRequestGetSelectMultiple' for+more details.+-}+#if ENABLE_OVERLOADING+    FileChooserRequestSelectMultiplePropertyInfo,+#endif+#if ENABLE_OVERLOADING+    fileChooserRequestSelectMultiple        ,+#endif+    getFileChooserRequestSelectMultiple     ,+++-- ** selectedFiles #attr:selectedFiles#+{- | A 'Nothing'-terminated array of strings containing the list of+selected files associated to the current request. See+'GI.WebKit2.Objects.FileChooserRequest.fileChooserRequestGetSelectedFiles' for more details.+-}+#if ENABLE_OVERLOADING+    FileChooserRequestSelectedFilesPropertyInfo,+#endif+#if ENABLE_OVERLOADING+    fileChooserRequestSelectedFiles         ,+#endif+    getFileChooserRequestSelectedFiles      ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gtk.Objects.FileFilter as Gtk.FileFilter++-- | Memory-managed wrapper type.+newtype FileChooserRequest = FileChooserRequest (ManagedPtr FileChooserRequest)+foreign import ccall "webkit_file_chooser_request_get_type"+    c_webkit_file_chooser_request_get_type :: IO GType++instance GObject FileChooserRequest where+    gobjectType = c_webkit_file_chooser_request_get_type+    ++-- | Type class for types which can be safely cast to `FileChooserRequest`, for instance with `toFileChooserRequest`.+class (GObject o, O.IsDescendantOf FileChooserRequest o) => IsFileChooserRequest o+instance (GObject o, O.IsDescendantOf FileChooserRequest o) => IsFileChooserRequest o++instance O.HasParentTypes FileChooserRequest+type instance O.ParentTypes FileChooserRequest = '[GObject.Object.Object]++-- | Cast to `FileChooserRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toFileChooserRequest :: (MonadIO m, IsFileChooserRequest o) => o -> m FileChooserRequest+toFileChooserRequest = liftIO . unsafeCastTo FileChooserRequest++-- | A convenience alias for `Nothing` :: `Maybe` `FileChooserRequest`.+noFileChooserRequest :: Maybe FileChooserRequest+noFileChooserRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveFileChooserRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveFileChooserRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveFileChooserRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveFileChooserRequestMethod "cancel" o = FileChooserRequestCancelMethodInfo+    ResolveFileChooserRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveFileChooserRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveFileChooserRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveFileChooserRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveFileChooserRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveFileChooserRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveFileChooserRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveFileChooserRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveFileChooserRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveFileChooserRequestMethod "selectFiles" o = FileChooserRequestSelectFilesMethodInfo+    ResolveFileChooserRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveFileChooserRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveFileChooserRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveFileChooserRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveFileChooserRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveFileChooserRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveFileChooserRequestMethod "getMimeTypes" o = FileChooserRequestGetMimeTypesMethodInfo+    ResolveFileChooserRequestMethod "getMimeTypesFilter" o = FileChooserRequestGetMimeTypesFilterMethodInfo+    ResolveFileChooserRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveFileChooserRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveFileChooserRequestMethod "getSelectMultiple" o = FileChooserRequestGetSelectMultipleMethodInfo+    ResolveFileChooserRequestMethod "getSelectedFiles" o = FileChooserRequestGetSelectedFilesMethodInfo+    ResolveFileChooserRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveFileChooserRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveFileChooserRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, O.MethodInfo info FileChooserRequest p) => OL.IsLabel t (FileChooserRequest -> 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++-- VVV Prop "filter"+   -- Type: TInterface (Name {namespace = "Gtk", name = "FileFilter"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@filter@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' fileChooserRequest #filter+@+-}+getFileChooserRequestFilter :: (MonadIO m, IsFileChooserRequest o) => o -> m (Maybe Gtk.FileFilter.FileFilter)+getFileChooserRequestFilter obj = liftIO $ B.Properties.getObjectPropertyObject obj "filter" Gtk.FileFilter.FileFilter++#if ENABLE_OVERLOADING+data FileChooserRequestFilterPropertyInfo+instance AttrInfo FileChooserRequestFilterPropertyInfo where+    type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = IsFileChooserRequest+    type AttrGetType FileChooserRequestFilterPropertyInfo = (Maybe Gtk.FileFilter.FileFilter)+    type AttrLabel FileChooserRequestFilterPropertyInfo = "filter"+    type AttrOrigin FileChooserRequestFilterPropertyInfo = FileChooserRequest+    attrGet _ = getFileChooserRequestFilter+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "mime-types"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@mime-types@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' fileChooserRequest #mimeTypes+@+-}+getFileChooserRequestMimeTypes :: (MonadIO m, IsFileChooserRequest o) => o -> m [T.Text]+getFileChooserRequestMimeTypes obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestMimeTypes" $ B.Properties.getObjectPropertyStringArray obj "mime-types"++#if ENABLE_OVERLOADING+data FileChooserRequestMimeTypesPropertyInfo+instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where+    type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = IsFileChooserRequest+    type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text]+    type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "mime-types"+    type AttrOrigin FileChooserRequestMimeTypesPropertyInfo = FileChooserRequest+    attrGet _ = getFileChooserRequestMimeTypes+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "select-multiple"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@select-multiple@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' fileChooserRequest #selectMultiple+@+-}+getFileChooserRequestSelectMultiple :: (MonadIO m, IsFileChooserRequest o) => o -> m Bool+getFileChooserRequestSelectMultiple obj = liftIO $ B.Properties.getObjectPropertyBool obj "select-multiple"++#if ENABLE_OVERLOADING+data FileChooserRequestSelectMultiplePropertyInfo+instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where+    type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = IsFileChooserRequest+    type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool+    type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "select-multiple"+    type AttrOrigin FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequest+    attrGet _ = getFileChooserRequestSelectMultiple+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "selected-files"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@selected-files@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' fileChooserRequest #selectedFiles+@+-}+getFileChooserRequestSelectedFiles :: (MonadIO m, IsFileChooserRequest o) => o -> m (Maybe [T.Text])+getFileChooserRequestSelectedFiles obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "selected-files"++#if ENABLE_OVERLOADING+data FileChooserRequestSelectedFilesPropertyInfo+instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where+    type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = IsFileChooserRequest+    type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = (Maybe [T.Text])+    type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "selected-files"+    type AttrOrigin FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequest+    attrGet _ = getFileChooserRequestSelectedFiles+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList FileChooserRequest+type instance O.AttributeList FileChooserRequest = FileChooserRequestAttributeList+type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mimeTypes", FileChooserRequestMimeTypesPropertyInfo), '("selectMultiple", FileChooserRequestSelectMultiplePropertyInfo), '("selectedFiles", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+fileChooserRequestFilter :: AttrLabelProxy "filter"+fileChooserRequestFilter = AttrLabelProxy++fileChooserRequestMimeTypes :: AttrLabelProxy "mimeTypes"+fileChooserRequestMimeTypes = AttrLabelProxy++fileChooserRequestSelectMultiple :: AttrLabelProxy "selectMultiple"+fileChooserRequestSelectMultiple = AttrLabelProxy++fileChooserRequestSelectedFiles :: AttrLabelProxy "selectedFiles"+fileChooserRequestSelectedFiles = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList FileChooserRequest = FileChooserRequestSignalList+type FileChooserRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method FileChooserRequest::cancel+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFileChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_file_chooser_request_cancel" webkit_file_chooser_request_cancel :: +    Ptr FileChooserRequest ->               -- request : TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"})+    IO ()++{- |+Ask WebKit to cancel the request. It\'s important to do this in case+no selection has been made in the client, otherwise the request+won\'t be properly completed and the browser will keep the request+pending forever, which might cause the browser to hang.+-}+fileChooserRequestCancel ::+    (B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> m ()+fileChooserRequestCancel request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    webkit_file_chooser_request_cancel request'+    touchManagedPtr request+    return ()++#if ENABLE_OVERLOADING+data FileChooserRequestCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestCancelMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestCancel++#endif++-- method FileChooserRequest::get_mime_types+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFileChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types :: +    Ptr FileChooserRequest ->               -- request : TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"})+    IO (Ptr CString)++{- |+Get the list of MIME types the file chooser dialog should handle,+in the format specified in RFC 2046 for \"media types\". Its contents+depend on the value of the \'accept\' attribute for HTML input+elements. This function should normally be called before presenting+the file chooser dialog to the user, to decide whether to allow the+user to select multiple files at once or only one.+-}+fileChooserRequestGetMimeTypes ::+    (B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> m [T.Text]+    {- ^ __Returns:__ a+'Nothing'-terminated array of strings if a list of accepted MIME types+is defined or 'Nothing' otherwise, meaning that any MIME type should be+accepted. This array and its contents are owned by WebKit and+should not be modified or freed. -}+fileChooserRequestGetMimeTypes request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_file_chooser_request_get_mime_types request'+    checkUnexpectedReturnNULL "fileChooserRequestGetMimeTypes" result+    result' <- unpackZeroTerminatedUTF8CArray result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data FileChooserRequestGetMimeTypesMethodInfo+instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetMimeTypesMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetMimeTypes++#endif++-- method FileChooserRequest::get_mime_types_filter+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFileChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "FileFilter"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_file_chooser_request_get_mime_types_filter" webkit_file_chooser_request_get_mime_types_filter :: +    Ptr FileChooserRequest ->               -- request : TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"})+    IO (Ptr Gtk.FileFilter.FileFilter)++{- |+Get the filter currently associated with the request, ready to be+used by 'GI.Gtk.Interfaces.FileChooser.FileChooser'. This function should normally be called+before presenting the file chooser dialog to the user, to decide+whether to apply a filter so the user would not be allowed to+select files with other MIME types.++See 'GI.WebKit2.Objects.FileChooserRequest.fileChooserRequestGetMimeTypes' if you are+interested in getting the list of accepted MIME types.+-}+fileChooserRequestGetMimeTypesFilter ::+    (B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> m (Maybe Gtk.FileFilter.FileFilter)+    {- ^ __Returns:__ a 'GI.Gtk.Objects.FileFilter.FileFilter' if a list of accepted+MIME types is defined or 'Nothing' otherwise. The returned object is+owned by WebKit should not be modified or freed. -}+fileChooserRequestGetMimeTypesFilter request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_file_chooser_request_get_mime_types_filter request'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Gtk.FileFilter.FileFilter) result'+        return result''+    touchManagedPtr request+    return maybeResult++#if ENABLE_OVERLOADING+data FileChooserRequestGetMimeTypesFilterMethodInfo+instance (signature ~ (m (Maybe Gtk.FileFilter.FileFilter)), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetMimeTypesFilterMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetMimeTypesFilter++#endif++-- method FileChooserRequest::get_select_multiple+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFileChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple :: +    Ptr FileChooserRequest ->               -- request : TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"})+    IO CInt++{- |+Determine whether the file chooser associated to this+'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' should allow selecting multiple files,+which depends on the HTML input element having a \'multiple\'+attribute defined.+-}+fileChooserRequestGetSelectMultiple ::+    (B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the file chooser should allow selecting multiple files or 'False' otherwise. -}+fileChooserRequestGetSelectMultiple request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_file_chooser_request_get_select_multiple request'+    let result' = (/= 0) result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data FileChooserRequestGetSelectMultipleMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetSelectMultipleMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetSelectMultiple++#endif++-- method FileChooserRequest::get_selected_files+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFileChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files :: +    Ptr FileChooserRequest ->               -- request : TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"})+    IO (Ptr CString)++{- |+Get the list of selected files currently associated to the+request. Initially, the return value of this method contains any+files selected in previous file chooser requests for this HTML+input element. Once webkit_file_chooser_request_select_files, the+value will reflect whatever files are given.++This function should normally be called only before presenting the+file chooser dialog to the user, to decide whether to perform some+extra action, like pre-selecting the files from a previous request.+-}+fileChooserRequestGetSelectedFiles ::+    (B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> m (Maybe [T.Text])+    {- ^ __Returns:__ a+'Nothing'-terminated array of strings if there are selected files+associated with the request or 'Nothing' otherwise. This array and its+contents are owned by WebKit and should not be modified or+freed. -}+fileChooserRequestGetSelectedFiles request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_file_chooser_request_get_selected_files request'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- unpackZeroTerminatedUTF8CArray result'+        return result''+    touchManagedPtr request+    return maybeResult++#if ENABLE_OVERLOADING+data FileChooserRequestGetSelectedFilesMethodInfo+instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetSelectedFilesMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetSelectedFiles++#endif++-- method FileChooserRequest::select_files+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFileChooserRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a\n%NULL-terminated array of strings, containing paths to local files.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_file_chooser_request_select_files" webkit_file_chooser_request_select_files :: +    Ptr FileChooserRequest ->               -- request : TInterface (Name {namespace = "WebKit2", name = "FileChooserRequest"})+    Ptr CString ->                          -- files : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO ()++{- |+Ask WebKit to select local files for upload and complete the+request.+-}+fileChooserRequestSelectFiles ::+    (B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> [T.Text]+    {- ^ /@files@/: a+'Nothing'-terminated array of strings, containing paths to local files. -}+    -> m ()+fileChooserRequestSelectFiles request files = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    files' <- packZeroTerminatedUTF8CArray files+    webkit_file_chooser_request_select_files request' files'+    touchManagedPtr request+    mapZeroTerminatedCArray freeMem files'+    freeMem files'+    return ()++#if ENABLE_OVERLOADING+data FileChooserRequestSelectFilesMethodInfo+instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestSelectFilesMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestSelectFiles++#endif++
+ GI/WebKit2/Objects/FileChooserRequest.hs-boot view
@@ -0,0 +1,59 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.FileChooserRequest 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++newtype FileChooserRequest = FileChooserRequest (ManagedPtr FileChooserRequest)+instance GObject FileChooserRequest where+class (GObject o, O.IsDescendantOf FileChooserRequest o) => IsFileChooserRequest o+instance (GObject o, O.IsDescendantOf FileChooserRequest o) => IsFileChooserRequest o+instance O.HasParentTypes FileChooserRequest+#if ENABLE_OVERLOADING+data FileChooserRequestFilterPropertyInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestMimeTypesPropertyInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestSelectMultiplePropertyInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestSelectedFilesPropertyInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestCancelMethodInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestGetMimeTypesMethodInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestGetMimeTypesFilterMethodInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestGetSelectMultipleMethodInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestGetSelectedFilesMethodInfo+#endif+#if ENABLE_OVERLOADING+data FileChooserRequestSelectFilesMethodInfo+#endif
+ GI/WebKit2/Objects/FindController.hs view
@@ -0,0 +1,1053 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.FindController+    ( ++-- * Exported types+    FindController(..)                      ,+    IsFindController                        ,+    toFindController                        ,+    noFindController                        ,+++ -- * Methods+-- ** countMatches #method:countMatches#++#if ENABLE_OVERLOADING+    FindControllerCountMatchesMethodInfo    ,+#endif+    findControllerCountMatches              ,+++-- ** getMaxMatchCount #method:getMaxMatchCount#++#if ENABLE_OVERLOADING+    FindControllerGetMaxMatchCountMethodInfo,+#endif+    findControllerGetMaxMatchCount          ,+++-- ** getOptions #method:getOptions#++#if ENABLE_OVERLOADING+    FindControllerGetOptionsMethodInfo      ,+#endif+    findControllerGetOptions                ,+++-- ** getSearchText #method:getSearchText#++#if ENABLE_OVERLOADING+    FindControllerGetSearchTextMethodInfo   ,+#endif+    findControllerGetSearchText             ,+++-- ** getWebView #method:getWebView#++#if ENABLE_OVERLOADING+    FindControllerGetWebViewMethodInfo      ,+#endif+    findControllerGetWebView                ,+++-- ** search #method:search#++#if ENABLE_OVERLOADING+    FindControllerSearchMethodInfo          ,+#endif+    findControllerSearch                    ,+++-- ** searchFinish #method:searchFinish#++#if ENABLE_OVERLOADING+    FindControllerSearchFinishMethodInfo    ,+#endif+    findControllerSearchFinish              ,+++-- ** searchNext #method:searchNext#++#if ENABLE_OVERLOADING+    FindControllerSearchNextMethodInfo      ,+#endif+    findControllerSearchNext                ,+++-- ** searchPrevious #method:searchPrevious#++#if ENABLE_OVERLOADING+    FindControllerSearchPreviousMethodInfo  ,+#endif+    findControllerSearchPrevious            ,+++++ -- * Properties+-- ** maxMatchCount #attr:maxMatchCount#+{- | The maximum number of matches to report for a given search.+-}+#if ENABLE_OVERLOADING+    FindControllerMaxMatchCountPropertyInfo ,+#endif+#if ENABLE_OVERLOADING+    findControllerMaxMatchCount             ,+#endif+    getFindControllerMaxMatchCount          ,+++-- ** options #attr:options#+{- | The options to be used in the search operation.+-}+#if ENABLE_OVERLOADING+    FindControllerOptionsPropertyInfo       ,+#endif+#if ENABLE_OVERLOADING+    findControllerOptions                   ,+#endif+    getFindControllerOptions                ,+++-- ** text #attr:text#+{- | The current search text for this 'GI.WebKit2.Objects.FindController.FindController'.+-}+#if ENABLE_OVERLOADING+    FindControllerTextPropertyInfo          ,+#endif+#if ENABLE_OVERLOADING+    findControllerText                      ,+#endif+    getFindControllerText                   ,+++-- ** webView #attr:webView#+{- | The 'GI.WebKit2.Objects.WebView.WebView' this controller is associated to.+-}+#if ENABLE_OVERLOADING+    FindControllerWebViewPropertyInfo       ,+#endif+    constructFindControllerWebView          ,+#if ENABLE_OVERLOADING+    findControllerWebView                   ,+#endif+    getFindControllerWebView                ,+++++ -- * Signals+-- ** countedMatches #signal:countedMatches#++    C_FindControllerCountedMatchesCallback  ,+    FindControllerCountedMatchesCallback    ,+#if ENABLE_OVERLOADING+    FindControllerCountedMatchesSignalInfo  ,+#endif+    afterFindControllerCountedMatches       ,+    genClosure_FindControllerCountedMatches ,+    mk_FindControllerCountedMatchesCallback ,+    noFindControllerCountedMatchesCallback  ,+    onFindControllerCountedMatches          ,+    wrap_FindControllerCountedMatchesCallback,+++-- ** failedToFindText #signal:failedToFindText#++    C_FindControllerFailedToFindTextCallback,+    FindControllerFailedToFindTextCallback  ,+#if ENABLE_OVERLOADING+    FindControllerFailedToFindTextSignalInfo,+#endif+    afterFindControllerFailedToFindText     ,+    genClosure_FindControllerFailedToFindText,+    mk_FindControllerFailedToFindTextCallback,+    noFindControllerFailedToFindTextCallback,+    onFindControllerFailedToFindText        ,+    wrap_FindControllerFailedToFindTextCallback,+++-- ** foundText #signal:foundText#++    C_FindControllerFoundTextCallback       ,+    FindControllerFoundTextCallback         ,+#if ENABLE_OVERLOADING+    FindControllerFoundTextSignalInfo       ,+#endif+    afterFindControllerFoundText            ,+    genClosure_FindControllerFoundText      ,+    mk_FindControllerFoundTextCallback      ,+    noFindControllerFoundTextCallback       ,+    onFindControllerFoundText               ,+    wrap_FindControllerFoundTextCallback    ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Flags as WebKit2.Flags+import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView++-- | Memory-managed wrapper type.+newtype FindController = FindController (ManagedPtr FindController)+foreign import ccall "webkit_find_controller_get_type"+    c_webkit_find_controller_get_type :: IO GType++instance GObject FindController where+    gobjectType = c_webkit_find_controller_get_type+    ++-- | Type class for types which can be safely cast to `FindController`, for instance with `toFindController`.+class (GObject o, O.IsDescendantOf FindController o) => IsFindController o+instance (GObject o, O.IsDescendantOf FindController o) => IsFindController o++instance O.HasParentTypes FindController+type instance O.ParentTypes FindController = '[GObject.Object.Object]++-- | Cast to `FindController`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toFindController :: (MonadIO m, IsFindController o) => o -> m FindController+toFindController = liftIO . unsafeCastTo FindController++-- | A convenience alias for `Nothing` :: `Maybe` `FindController`.+noFindController :: Maybe FindController+noFindController = Nothing++#if ENABLE_OVERLOADING+type family ResolveFindControllerMethod (t :: Symbol) (o :: *) :: * where+    ResolveFindControllerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveFindControllerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveFindControllerMethod "countMatches" o = FindControllerCountMatchesMethodInfo+    ResolveFindControllerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveFindControllerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveFindControllerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveFindControllerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveFindControllerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveFindControllerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveFindControllerMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveFindControllerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveFindControllerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveFindControllerMethod "search" o = FindControllerSearchMethodInfo+    ResolveFindControllerMethod "searchFinish" o = FindControllerSearchFinishMethodInfo+    ResolveFindControllerMethod "searchNext" o = FindControllerSearchNextMethodInfo+    ResolveFindControllerMethod "searchPrevious" o = FindControllerSearchPreviousMethodInfo+    ResolveFindControllerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveFindControllerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveFindControllerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveFindControllerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveFindControllerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveFindControllerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveFindControllerMethod "getMaxMatchCount" o = FindControllerGetMaxMatchCountMethodInfo+    ResolveFindControllerMethod "getOptions" o = FindControllerGetOptionsMethodInfo+    ResolveFindControllerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveFindControllerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveFindControllerMethod "getSearchText" o = FindControllerGetSearchTextMethodInfo+    ResolveFindControllerMethod "getWebView" o = FindControllerGetWebViewMethodInfo+    ResolveFindControllerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveFindControllerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveFindControllerMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveFindControllerMethod t FindController, O.MethodInfo info FindController p) => OL.IsLabel t (FindController -> 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++-- signal FindController::counted-matches+{- |+This signal is emitted when the 'GI.WebKit2.Objects.FindController.FindController' has+counted the number of matches for a given text after a call+to 'GI.WebKit2.Objects.FindController.findControllerCountMatches'.+-}+type FindControllerCountedMatchesCallback =+    Word32+    {- ^ /@matchCount@/: the number of matches of the search text -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `FindControllerCountedMatchesCallback`@.+noFindControllerCountedMatchesCallback :: Maybe FindControllerCountedMatchesCallback+noFindControllerCountedMatchesCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_FindControllerCountedMatchesCallback =+    Ptr () ->                               -- object+    Word32 ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_FindControllerCountedMatchesCallback`.+foreign import ccall "wrapper"+    mk_FindControllerCountedMatchesCallback :: C_FindControllerCountedMatchesCallback -> IO (FunPtr C_FindControllerCountedMatchesCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_FindControllerCountedMatches :: MonadIO m => FindControllerCountedMatchesCallback -> m (GClosure C_FindControllerCountedMatchesCallback)+genClosure_FindControllerCountedMatches cb = liftIO $ do+    let cb' = wrap_FindControllerCountedMatchesCallback cb+    mk_FindControllerCountedMatchesCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `FindControllerCountedMatchesCallback` into a `C_FindControllerCountedMatchesCallback`.+wrap_FindControllerCountedMatchesCallback ::+    FindControllerCountedMatchesCallback ->+    C_FindControllerCountedMatchesCallback+wrap_FindControllerCountedMatchesCallback _cb _ matchCount _ = do+    _cb  matchCount+++{- |+Connect a signal handler for the “@counted-matches@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' findController #countedMatches callback+@+-}+onFindControllerCountedMatches :: (IsFindController a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId+onFindControllerCountedMatches obj cb = liftIO $ do+    let cb' = wrap_FindControllerCountedMatchesCallback cb+    cb'' <- mk_FindControllerCountedMatchesCallback cb'+    connectSignalFunPtr obj "counted-matches" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@counted-matches@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' findController #countedMatches callback+@+-}+afterFindControllerCountedMatches :: (IsFindController a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId+afterFindControllerCountedMatches obj cb = liftIO $ do+    let cb' = wrap_FindControllerCountedMatchesCallback cb+    cb'' <- mk_FindControllerCountedMatchesCallback cb'+    connectSignalFunPtr obj "counted-matches" cb'' SignalConnectAfter+++-- signal FindController::failed-to-find-text+{- |+This signal is emitted when a search operation does not find+any result for the given text. It will be issued if the text+is not found asynchronously after a call to+'GI.WebKit2.Objects.FindController.findControllerSearch', 'GI.WebKit2.Objects.FindController.findControllerSearchNext'+or 'GI.WebKit2.Objects.FindController.findControllerSearchPrevious'.+-}+type FindControllerFailedToFindTextCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `FindControllerFailedToFindTextCallback`@.+noFindControllerFailedToFindTextCallback :: Maybe FindControllerFailedToFindTextCallback+noFindControllerFailedToFindTextCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_FindControllerFailedToFindTextCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_FindControllerFailedToFindTextCallback`.+foreign import ccall "wrapper"+    mk_FindControllerFailedToFindTextCallback :: C_FindControllerFailedToFindTextCallback -> IO (FunPtr C_FindControllerFailedToFindTextCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_FindControllerFailedToFindText :: MonadIO m => FindControllerFailedToFindTextCallback -> m (GClosure C_FindControllerFailedToFindTextCallback)+genClosure_FindControllerFailedToFindText cb = liftIO $ do+    let cb' = wrap_FindControllerFailedToFindTextCallback cb+    mk_FindControllerFailedToFindTextCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `FindControllerFailedToFindTextCallback` into a `C_FindControllerFailedToFindTextCallback`.+wrap_FindControllerFailedToFindTextCallback ::+    FindControllerFailedToFindTextCallback ->+    C_FindControllerFailedToFindTextCallback+wrap_FindControllerFailedToFindTextCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@failed-to-find-text@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' findController #failedToFindText callback+@+-}+onFindControllerFailedToFindText :: (IsFindController a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId+onFindControllerFailedToFindText obj cb = liftIO $ do+    let cb' = wrap_FindControllerFailedToFindTextCallback cb+    cb'' <- mk_FindControllerFailedToFindTextCallback cb'+    connectSignalFunPtr obj "failed-to-find-text" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@failed-to-find-text@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' findController #failedToFindText callback+@+-}+afterFindControllerFailedToFindText :: (IsFindController a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId+afterFindControllerFailedToFindText obj cb = liftIO $ do+    let cb' = wrap_FindControllerFailedToFindTextCallback cb+    cb'' <- mk_FindControllerFailedToFindTextCallback cb'+    connectSignalFunPtr obj "failed-to-find-text" cb'' SignalConnectAfter+++-- signal FindController::found-text+{- |+This signal is emitted when a given text is found in the web+page text. It will be issued if the text is found+asynchronously after a call to 'GI.WebKit2.Objects.FindController.findControllerSearch',+'GI.WebKit2.Objects.FindController.findControllerSearchNext' or+'GI.WebKit2.Objects.FindController.findControllerSearchPrevious'.+-}+type FindControllerFoundTextCallback =+    Word32+    {- ^ /@matchCount@/: the number of matches found of the search text -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `FindControllerFoundTextCallback`@.+noFindControllerFoundTextCallback :: Maybe FindControllerFoundTextCallback+noFindControllerFoundTextCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_FindControllerFoundTextCallback =+    Ptr () ->                               -- object+    Word32 ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_FindControllerFoundTextCallback`.+foreign import ccall "wrapper"+    mk_FindControllerFoundTextCallback :: C_FindControllerFoundTextCallback -> IO (FunPtr C_FindControllerFoundTextCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_FindControllerFoundText :: MonadIO m => FindControllerFoundTextCallback -> m (GClosure C_FindControllerFoundTextCallback)+genClosure_FindControllerFoundText cb = liftIO $ do+    let cb' = wrap_FindControllerFoundTextCallback cb+    mk_FindControllerFoundTextCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `FindControllerFoundTextCallback` into a `C_FindControllerFoundTextCallback`.+wrap_FindControllerFoundTextCallback ::+    FindControllerFoundTextCallback ->+    C_FindControllerFoundTextCallback+wrap_FindControllerFoundTextCallback _cb _ matchCount _ = do+    _cb  matchCount+++{- |+Connect a signal handler for the “@found-text@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' findController #foundText callback+@+-}+onFindControllerFoundText :: (IsFindController a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId+onFindControllerFoundText obj cb = liftIO $ do+    let cb' = wrap_FindControllerFoundTextCallback cb+    cb'' <- mk_FindControllerFoundTextCallback cb'+    connectSignalFunPtr obj "found-text" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@found-text@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' findController #foundText callback+@+-}+afterFindControllerFoundText :: (IsFindController a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId+afterFindControllerFoundText obj cb = liftIO $ do+    let cb' = wrap_FindControllerFoundTextCallback cb+    cb'' <- mk_FindControllerFoundTextCallback cb'+    connectSignalFunPtr obj "found-text" cb'' SignalConnectAfter+++-- VVV Prop "max-match-count"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@max-match-count@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' findController #maxMatchCount+@+-}+getFindControllerMaxMatchCount :: (MonadIO m, IsFindController o) => o -> m Word32+getFindControllerMaxMatchCount obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "max-match-count"++#if ENABLE_OVERLOADING+data FindControllerMaxMatchCountPropertyInfo+instance AttrInfo FindControllerMaxMatchCountPropertyInfo where+    type AttrAllowedOps FindControllerMaxMatchCountPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FindControllerMaxMatchCountPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FindControllerMaxMatchCountPropertyInfo = IsFindController+    type AttrGetType FindControllerMaxMatchCountPropertyInfo = Word32+    type AttrLabel FindControllerMaxMatchCountPropertyInfo = "max-match-count"+    type AttrOrigin FindControllerMaxMatchCountPropertyInfo = FindController+    attrGet _ = getFindControllerMaxMatchCount+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "options"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "FindOptions"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@options@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' findController #options+@+-}+getFindControllerOptions :: (MonadIO m, IsFindController o) => o -> m [WebKit2.Flags.FindOptions]+getFindControllerOptions obj = liftIO $ B.Properties.getObjectPropertyFlags obj "options"++#if ENABLE_OVERLOADING+data FindControllerOptionsPropertyInfo+instance AttrInfo FindControllerOptionsPropertyInfo where+    type AttrAllowedOps FindControllerOptionsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FindControllerOptionsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FindControllerOptionsPropertyInfo = IsFindController+    type AttrGetType FindControllerOptionsPropertyInfo = [WebKit2.Flags.FindOptions]+    type AttrLabel FindControllerOptionsPropertyInfo = "options"+    type AttrOrigin FindControllerOptionsPropertyInfo = FindController+    attrGet _ = getFindControllerOptions+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@text@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' findController #text+@+-}+getFindControllerText :: (MonadIO m, IsFindController o) => o -> m (Maybe T.Text)+getFindControllerText obj = liftIO $ B.Properties.getObjectPropertyString obj "text"++#if ENABLE_OVERLOADING+data FindControllerTextPropertyInfo+instance AttrInfo FindControllerTextPropertyInfo where+    type AttrAllowedOps FindControllerTextPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FindControllerTextPropertyInfo = IsFindController+    type AttrGetType FindControllerTextPropertyInfo = (Maybe T.Text)+    type AttrLabel FindControllerTextPropertyInfo = "text"+    type AttrOrigin FindControllerTextPropertyInfo = FindController+    attrGet _ = getFindControllerText+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "web-view"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "WebView"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@web-view@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' findController #webView+@+-}+getFindControllerWebView :: (MonadIO m, IsFindController o) => o -> m WebKit2.WebView.WebView+getFindControllerWebView obj = liftIO $ checkUnexpectedNothing "getFindControllerWebView" $ B.Properties.getObjectPropertyObject obj "web-view" WebKit2.WebView.WebView++{- |+Construct a `GValueConstruct` with valid value for the “@web-view@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructFindControllerWebView :: (IsFindController o, WebKit2.WebView.IsWebView a) => a -> IO (GValueConstruct o)+constructFindControllerWebView val = B.Properties.constructObjectPropertyObject "web-view" (Just val)++#if ENABLE_OVERLOADING+data FindControllerWebViewPropertyInfo+instance AttrInfo FindControllerWebViewPropertyInfo where+    type AttrAllowedOps FindControllerWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebKit2.WebView.IsWebView+    type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = IsFindController+    type AttrGetType FindControllerWebViewPropertyInfo = WebKit2.WebView.WebView+    type AttrLabel FindControllerWebViewPropertyInfo = "web-view"+    type AttrOrigin FindControllerWebViewPropertyInfo = FindController+    attrGet _ = getFindControllerWebView+    attrSet _ = undefined+    attrConstruct _ = constructFindControllerWebView+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList FindController+type instance O.AttributeList FindController = FindControllerAttributeList+type FindControllerAttributeList = ('[ '("maxMatchCount", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("webView", FindControllerWebViewPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+findControllerMaxMatchCount :: AttrLabelProxy "maxMatchCount"+findControllerMaxMatchCount = AttrLabelProxy++findControllerOptions :: AttrLabelProxy "options"+findControllerOptions = AttrLabelProxy++findControllerText :: AttrLabelProxy "text"+findControllerText = AttrLabelProxy++findControllerWebView :: AttrLabelProxy "webView"+findControllerWebView = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data FindControllerCountedMatchesSignalInfo+instance SignalInfo FindControllerCountedMatchesSignalInfo where+    type HaskellCallbackType FindControllerCountedMatchesSignalInfo = FindControllerCountedMatchesCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_FindControllerCountedMatchesCallback cb+        cb'' <- mk_FindControllerCountedMatchesCallback cb'+        connectSignalFunPtr obj "counted-matches" cb'' connectMode++data FindControllerFailedToFindTextSignalInfo+instance SignalInfo FindControllerFailedToFindTextSignalInfo where+    type HaskellCallbackType FindControllerFailedToFindTextSignalInfo = FindControllerFailedToFindTextCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_FindControllerFailedToFindTextCallback cb+        cb'' <- mk_FindControllerFailedToFindTextCallback cb'+        connectSignalFunPtr obj "failed-to-find-text" cb'' connectMode++data FindControllerFoundTextSignalInfo+instance SignalInfo FindControllerFoundTextSignalInfo where+    type HaskellCallbackType FindControllerFoundTextSignalInfo = FindControllerFoundTextCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_FindControllerFoundTextCallback cb+        cb'' <- mk_FindControllerFoundTextCallback cb'+        connectSignalFunPtr obj "found-text" cb'' connectMode++type instance O.SignalList FindController = FindControllerSignalList+type FindControllerSignalList = ('[ '("countedMatches", FindControllerCountedMatchesSignalInfo), '("failedToFindText", FindControllerFailedToFindTextSignalInfo), '("foundText", FindControllerFoundTextSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method FindController::count_matches+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the text to look for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a bitmask with the #WebKitFindOptions used in the search", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum number of matches allowed in the search", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_count_matches" webkit_find_controller_count_matches :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    CString ->                              -- search_text : TBasicType TUTF8+    Word32 ->                               -- find_options : TBasicType TUInt32+    Word32 ->                               -- max_match_count : TBasicType TUInt+    IO ()++{- |+Counts the number of matches for /@searchText@/ found in the+'GI.WebKit2.Objects.WebView.WebView' with the provided /@findOptions@/. The number of+matches will be provided by the+'GI.WebKit2.Objects.FindController.FindController'::@/counted-matches/@ signal.+-}+findControllerCountMatches ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> T.Text+    {- ^ /@searchText@/: the text to look for -}+    -> Word32+    {- ^ /@findOptions@/: a bitmask with the 'GI.WebKit2.Flags.FindOptions' used in the search -}+    -> Word32+    {- ^ /@maxMatchCount@/: the maximum number of matches allowed in the search -}+    -> m ()+findControllerCountMatches findController searchText findOptions maxMatchCount = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    searchText' <- textToCString searchText+    webkit_find_controller_count_matches findController' searchText' findOptions maxMatchCount+    touchManagedPtr findController+    freeMem searchText'+    return ()++#if ENABLE_OVERLOADING+data FindControllerCountMatchesMethodInfo+instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerCountMatchesMethodInfo a signature where+    overloadedMethod _ = findControllerCountMatches++#endif++-- method FindController::get_max_match_count+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_get_max_match_count" webkit_find_controller_get_max_match_count :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    IO Word32++{- |+Gets the maximum number of matches to report during a text+lookup. This number is passed as the last argument of+'GI.WebKit2.Objects.FindController.findControllerSearch' or+'GI.WebKit2.Objects.FindController.findControllerCountMatches'.+-}+findControllerGetMaxMatchCount ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> m Word32+    {- ^ __Returns:__ the maximum number of matches to report. -}+findControllerGetMaxMatchCount findController = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    result <- webkit_find_controller_get_max_match_count findController'+    touchManagedPtr findController+    return result++#if ENABLE_OVERLOADING+data FindControllerGetMaxMatchCountMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetMaxMatchCountMethodInfo a signature where+    overloadedMethod _ = findControllerGetMaxMatchCount++#endif++-- method FindController::get_options+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt32)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_get_options" webkit_find_controller_get_options :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    IO Word32++{- |+Gets a bitmask containing the 'GI.WebKit2.Flags.FindOptions' associated with+the current search.+-}+findControllerGetOptions ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> m Word32+    {- ^ __Returns:__ a bitmask containing the 'GI.WebKit2.Flags.FindOptions' associated+with the current search. -}+findControllerGetOptions findController = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    result <- webkit_find_controller_get_options findController'+    touchManagedPtr findController+    return result++#if ENABLE_OVERLOADING+data FindControllerGetOptionsMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetOptionsMethodInfo a signature where+    overloadedMethod _ = findControllerGetOptions++#endif++-- method FindController::get_search_text+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_get_search_text" webkit_find_controller_get_search_text :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    IO CString++{- |+Gets the text that /@findController@/ is currently searching+for. This text is passed to either+'GI.WebKit2.Objects.FindController.findControllerSearch' or+'GI.WebKit2.Objects.FindController.findControllerCountMatches'.+-}+findControllerGetSearchText ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> m T.Text+    {- ^ __Returns:__ the text to look for in the 'GI.WebKit2.Objects.WebView.WebView'. -}+findControllerGetSearchText findController = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    result <- webkit_find_controller_get_search_text findController'+    checkUnexpectedReturnNULL "findControllerGetSearchText" result+    result' <- cstringToText result+    touchManagedPtr findController+    return result'++#if ENABLE_OVERLOADING+data FindControllerGetSearchTextMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetSearchTextMethodInfo a signature where+    overloadedMethod _ = findControllerGetSearchText++#endif++-- method FindController::get_web_view+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_get_web_view" webkit_find_controller_get_web_view :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    IO (Ptr WebKit2.WebView.WebView)++{- |+Gets the 'GI.WebKit2.Objects.WebView.WebView' this find controller is associated to. Do+not dereference the returned instance as it belongs to the+'GI.WebKit2.Objects.FindController.FindController'.+-}+findControllerGetWebView ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> m WebKit2.WebView.WebView+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.WebView.WebView'. -}+findControllerGetWebView findController = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    result <- webkit_find_controller_get_web_view findController'+    checkUnexpectedReturnNULL "findControllerGetWebView" result+    result' <- (newObject WebKit2.WebView.WebView) result+    touchManagedPtr findController+    return result'++#if ENABLE_OVERLOADING+data FindControllerGetWebViewMethodInfo+instance (signature ~ (m WebKit2.WebView.WebView), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetWebViewMethodInfo a signature where+    overloadedMethod _ = findControllerGetWebView++#endif++-- method FindController::search+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the text to look for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a bitmask with the #WebKitFindOptions used in the search", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum number of matches allowed in the search", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_search" webkit_find_controller_search :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    CString ->                              -- search_text : TBasicType TUTF8+    Word32 ->                               -- find_options : TBasicType TUInt32+    Word32 ->                               -- max_match_count : TBasicType TUInt+    IO ()++{- |+Looks for /@searchText@/ in the 'GI.WebKit2.Objects.WebView.WebView' associated with+/@findController@/ since the beginning of the document highlighting+up to /@maxMatchCount@/ matches. The outcome of the search will be+asynchronously provided by the 'GI.WebKit2.Objects.FindController.FindController'::@/found-text/@+and 'GI.WebKit2.Objects.FindController.FindController'::@/failed-to-find-text/@ signals.++To look for the next or previous occurrences of the same text+with the same find options use 'GI.WebKit2.Objects.FindController.findControllerSearchNext'+and\/or 'GI.WebKit2.Objects.FindController.findControllerSearchPrevious'. The+'GI.WebKit2.Objects.FindController.FindController' will use the same text and options for the+following searches unless they are modified by another call to this+method.++Note that if the number of matches is higher than /@maxMatchCount@/+then 'GI.WebKit2.Objects.FindController.FindController'::@/found-text/@ will report @/G_MAXUINT/@ matches+instead of the actual number.++Callers should call 'GI.WebKit2.Objects.FindController.findControllerSearchFinish' to+finish the current search operation.+-}+findControllerSearch ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> T.Text+    {- ^ /@searchText@/: the text to look for -}+    -> Word32+    {- ^ /@findOptions@/: a bitmask with the 'GI.WebKit2.Flags.FindOptions' used in the search -}+    -> Word32+    {- ^ /@maxMatchCount@/: the maximum number of matches allowed in the search -}+    -> m ()+findControllerSearch findController searchText findOptions maxMatchCount = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    searchText' <- textToCString searchText+    webkit_find_controller_search findController' searchText' findOptions maxMatchCount+    touchManagedPtr findController+    freeMem searchText'+    return ()++#if ENABLE_OVERLOADING+data FindControllerSearchMethodInfo+instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchMethodInfo a signature where+    overloadedMethod _ = findControllerSearch++#endif++-- method FindController::search_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_search_finish" webkit_find_controller_search_finish :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    IO ()++{- |+Finishes a find operation started by+'GI.WebKit2.Objects.FindController.findControllerSearch'. It will basically unhighlight+every text match found.++This method will be typically called when the search UI is+closed\/hidden by the client application.+-}+findControllerSearchFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: a 'GI.WebKit2.Objects.FindController.FindController' -}+    -> m ()+findControllerSearchFinish findController = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    webkit_find_controller_search_finish findController'+    touchManagedPtr findController+    return ()++#if ENABLE_OVERLOADING+data FindControllerSearchFinishMethodInfo+instance (signature ~ (m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchFinishMethodInfo a signature where+    overloadedMethod _ = findControllerSearchFinish++#endif++-- method FindController::search_next+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_search_next" webkit_find_controller_search_next :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    IO ()++{- |+Looks for the next occurrence of the search text.++Calling this method before 'GI.WebKit2.Objects.FindController.findControllerSearch' or+'GI.WebKit2.Objects.FindController.findControllerCountMatches' is a programming error.+-}+findControllerSearchNext ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> m ()+findControllerSearchNext findController = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    webkit_find_controller_search_next findController'+    touchManagedPtr findController+    return ()++#if ENABLE_OVERLOADING+data FindControllerSearchNextMethodInfo+instance (signature ~ (m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchNextMethodInfo a signature where+    overloadedMethod _ = findControllerSearchNext++#endif++-- method FindController::search_previous+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "find_controller", argType = TInterface (Name {namespace = "WebKit2", name = "FindController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitFindController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_find_controller_search_previous" webkit_find_controller_search_previous :: +    Ptr FindController ->                   -- find_controller : TInterface (Name {namespace = "WebKit2", name = "FindController"})+    IO ()++{- |+Looks for the previous occurrence of the search text.++Calling this method before 'GI.WebKit2.Objects.FindController.findControllerSearch' or+'GI.WebKit2.Objects.FindController.findControllerCountMatches' is a programming error.+-}+findControllerSearchPrevious ::+    (B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>+    a+    {- ^ /@findController@/: the 'GI.WebKit2.Objects.FindController.FindController' -}+    -> m ()+findControllerSearchPrevious findController = liftIO $ do+    findController' <- unsafeManagedPtrCastPtr findController+    webkit_find_controller_search_previous findController'+    touchManagedPtr findController+    return ()++#if ENABLE_OVERLOADING+data FindControllerSearchPreviousMethodInfo+instance (signature ~ (m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchPreviousMethodInfo a signature where+    overloadedMethod _ = findControllerSearchPrevious++#endif++
+ GI/WebKit2/Objects/FindController.hs-boot view
@@ -0,0 +1,77 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.FindController 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++newtype FindController = FindController (ManagedPtr FindController)+instance GObject FindController where+class (GObject o, O.IsDescendantOf FindController o) => IsFindController o+instance (GObject o, O.IsDescendantOf FindController o) => IsFindController o+instance O.HasParentTypes FindController+#if ENABLE_OVERLOADING+data FindControllerMaxMatchCountPropertyInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerOptionsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerTextPropertyInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerWebViewPropertyInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerCountedMatchesSignalInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerFailedToFindTextSignalInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerFoundTextSignalInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerCountMatchesMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerGetMaxMatchCountMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerGetOptionsMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerGetSearchTextMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerGetWebViewMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerSearchMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerSearchFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerSearchNextMethodInfo+#endif+#if ENABLE_OVERLOADING+data FindControllerSearchPreviousMethodInfo+#endif
+ GI/WebKit2/Objects/FormSubmissionRequest.hs view
@@ -0,0 +1,283 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.FormSubmissionRequest+    ( ++-- * Exported types+    FormSubmissionRequest(..)               ,+    IsFormSubmissionRequest                 ,+    toFormSubmissionRequest                 ,+    noFormSubmissionRequest                 ,+++ -- * Methods+-- ** getTextFields #method:getTextFields#++#if ENABLE_OVERLOADING+    FormSubmissionRequestGetTextFieldsMethodInfo,+#endif+    formSubmissionRequestGetTextFields      ,+++-- ** listTextFields #method:listTextFields#++#if ENABLE_OVERLOADING+    FormSubmissionRequestListTextFieldsMethodInfo,+#endif+    formSubmissionRequestListTextFields     ,+++-- ** submit #method:submit#++#if ENABLE_OVERLOADING+    FormSubmissionRequestSubmitMethodInfo   ,+#endif+    formSubmissionRequestSubmit             ,+++++    ) 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.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype FormSubmissionRequest = FormSubmissionRequest (ManagedPtr FormSubmissionRequest)+foreign import ccall "webkit_form_submission_request_get_type"+    c_webkit_form_submission_request_get_type :: IO GType++instance GObject FormSubmissionRequest where+    gobjectType = c_webkit_form_submission_request_get_type+    ++-- | Type class for types which can be safely cast to `FormSubmissionRequest`, for instance with `toFormSubmissionRequest`.+class (GObject o, O.IsDescendantOf FormSubmissionRequest o) => IsFormSubmissionRequest o+instance (GObject o, O.IsDescendantOf FormSubmissionRequest o) => IsFormSubmissionRequest o++instance O.HasParentTypes FormSubmissionRequest+type instance O.ParentTypes FormSubmissionRequest = '[GObject.Object.Object]++-- | Cast to `FormSubmissionRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toFormSubmissionRequest :: (MonadIO m, IsFormSubmissionRequest o) => o -> m FormSubmissionRequest+toFormSubmissionRequest = liftIO . unsafeCastTo FormSubmissionRequest++-- | A convenience alias for `Nothing` :: `Maybe` `FormSubmissionRequest`.+noFormSubmissionRequest :: Maybe FormSubmissionRequest+noFormSubmissionRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveFormSubmissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveFormSubmissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveFormSubmissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveFormSubmissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveFormSubmissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveFormSubmissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveFormSubmissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveFormSubmissionRequestMethod "listTextFields" o = FormSubmissionRequestListTextFieldsMethodInfo+    ResolveFormSubmissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveFormSubmissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveFormSubmissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveFormSubmissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveFormSubmissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveFormSubmissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveFormSubmissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveFormSubmissionRequestMethod "submit" o = FormSubmissionRequestSubmitMethodInfo+    ResolveFormSubmissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveFormSubmissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveFormSubmissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveFormSubmissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveFormSubmissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveFormSubmissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveFormSubmissionRequestMethod "getTextFields" o = FormSubmissionRequestGetTextFieldsMethodInfo+    ResolveFormSubmissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveFormSubmissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveFormSubmissionRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, O.MethodInfo info FormSubmissionRequest p) => OL.IsLabel t (FormSubmissionRequest -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList FormSubmissionRequest+type instance O.AttributeList FormSubmissionRequest = FormSubmissionRequestAttributeList+type FormSubmissionRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList FormSubmissionRequest = FormSubmissionRequestSignalList+type FormSubmissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method FormSubmissionRequest::get_text_fields+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FormSubmissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFormSubmissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGHash (TBasicType TPtr) (TBasicType TPtr))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_form_submission_request_get_text_fields" webkit_form_submission_request_get_text_fields :: +    Ptr FormSubmissionRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "FormSubmissionRequest"})+    IO (Ptr (GHashTable (Ptr ()) (Ptr ())))++{-# DEPRECATED formSubmissionRequestGetTextFields ["(Since version 2.20.)","Use 'GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestListTextFields' instead."] #-}+{- |+Get a 'GI.GLib.Structs.HashTable.HashTable' with the values of the text fields contained in the form+associated to /@request@/. Note that fields will be missing if the form+contains multiple text input elements with the same name, so this+function does not reliably return all text fields.+-}+formSubmissionRequestGetTextFields ::+    (B.CallStack.HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest' -}+    -> m (Maybe (Map.Map (Ptr ()) (Ptr ())))+    {- ^ __Returns:__ a 'GI.GLib.Structs.HashTable.HashTable' with the form+   text fields, or 'Nothing' if the form doesn\'t contain text fields. -}+formSubmissionRequestGetTextFields request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_form_submission_request_get_text_fields request'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- unpackGHashTable result'+        let result''' = mapFirst ptrUnpackPtr result''+        let result'''' = mapSecond ptrUnpackPtr result'''+        let result''''' = Map.fromList result''''+        return result'''''+    touchManagedPtr request+    return maybeResult++#if ENABLE_OVERLOADING+data FormSubmissionRequestGetTextFieldsMethodInfo+instance (signature ~ (m (Maybe (Map.Map (Ptr ()) (Ptr ())))), MonadIO m, IsFormSubmissionRequest a) => O.MethodInfo FormSubmissionRequestGetTextFieldsMethodInfo a signature where+    overloadedMethod _ = formSubmissionRequestGetTextFields++#endif++-- method FormSubmissionRequest::list_text_fields+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FormSubmissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFormSubmissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "field_names", argType = TPtrArray (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "\n   names of the text fields in the form", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "field_values", argType = TPtrArray (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "\n   values of the text fields in the form", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_form_submission_request_list_text_fields" webkit_form_submission_request_list_text_fields :: +    Ptr FormSubmissionRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "FormSubmissionRequest"})+    Ptr (Ptr (GPtrArray CString)) ->        -- field_names : TPtrArray (TBasicType TUTF8)+    Ptr (Ptr (GPtrArray CString)) ->        -- field_values : TPtrArray (TBasicType TUTF8)+    IO CInt++{- |+Get lists with the names and values of the text fields contained in+the form associated to /@request@/. Note that names and values may be+'Nothing'.++If this function returns 'False', then both /@fieldNames@/ and+/@fieldValues@/ will be empty.++/Since: 2.20/+-}+formSubmissionRequestListTextFields ::+    (B.CallStack.HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest' -}+    -> m ((Bool, [T.Text], [T.Text]))+    {- ^ __Returns:__ 'True' if the form contains text fields, or 'False' otherwise -}+formSubmissionRequestListTextFields request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    fieldNames <- allocMem :: IO (Ptr (Ptr (GPtrArray CString)))+    fieldValues <- allocMem :: IO (Ptr (Ptr (GPtrArray CString)))+    result <- webkit_form_submission_request_list_text_fields request' fieldNames fieldValues+    let result' = (/= 0) result+    fieldNames' <- peek fieldNames+    fieldNames'' <- unpackGPtrArray fieldNames'+    fieldNames''' <- mapM cstringToText fieldNames''+    fieldValues' <- peek fieldValues+    fieldValues'' <- unpackGPtrArray fieldValues'+    fieldValues''' <- mapM cstringToText fieldValues''+    touchManagedPtr request+    freeMem fieldNames+    freeMem fieldValues+    return (result', fieldNames''', fieldValues''')++#if ENABLE_OVERLOADING+data FormSubmissionRequestListTextFieldsMethodInfo+instance (signature ~ (m ((Bool, [T.Text], [T.Text]))), MonadIO m, IsFormSubmissionRequest a) => O.MethodInfo FormSubmissionRequestListTextFieldsMethodInfo a signature where+    overloadedMethod _ = formSubmissionRequestListTextFields++#endif++-- method FormSubmissionRequest::submit+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "FormSubmissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitFormSubmissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_form_submission_request_submit" webkit_form_submission_request_submit :: +    Ptr FormSubmissionRequest ->            -- request : TInterface (Name {namespace = "WebKit2", name = "FormSubmissionRequest"})+    IO ()++{- |+Continue the form submission.+-}+formSubmissionRequestSubmit ::+    (B.CallStack.HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest' -}+    -> m ()+formSubmissionRequestSubmit request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    webkit_form_submission_request_submit request'+    touchManagedPtr request+    return ()++#if ENABLE_OVERLOADING+data FormSubmissionRequestSubmitMethodInfo+instance (signature ~ (m ()), MonadIO m, IsFormSubmissionRequest a) => O.MethodInfo FormSubmissionRequestSubmitMethodInfo a signature where+    overloadedMethod _ = formSubmissionRequestSubmit++#endif++
+ GI/WebKit2/Objects/FormSubmissionRequest.hs-boot view
@@ -0,0 +1,38 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.FormSubmissionRequest 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++newtype FormSubmissionRequest = FormSubmissionRequest (ManagedPtr FormSubmissionRequest)+instance GObject FormSubmissionRequest where+class (GObject o, O.IsDescendantOf FormSubmissionRequest o) => IsFormSubmissionRequest o+instance (GObject o, O.IsDescendantOf FormSubmissionRequest o) => IsFormSubmissionRequest o+instance O.HasParentTypes FormSubmissionRequest+#if ENABLE_OVERLOADING+data FormSubmissionRequestGetTextFieldsMethodInfo+#endif+#if ENABLE_OVERLOADING+data FormSubmissionRequestListTextFieldsMethodInfo+#endif+#if ENABLE_OVERLOADING+data FormSubmissionRequestSubmitMethodInfo+#endif
+ GI/WebKit2/Objects/GeolocationPermissionRequest.hs view
@@ -0,0 +1,124 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.GeolocationPermissionRequest+    ( ++-- * Exported types+    GeolocationPermissionRequest(..)        ,+    IsGeolocationPermissionRequest          ,+    toGeolocationPermissionRequest          ,+    noGeolocationPermissionRequest          ,+++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest++-- | Memory-managed wrapper type.+newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ManagedPtr GeolocationPermissionRequest)+foreign import ccall "webkit_geolocation_permission_request_get_type"+    c_webkit_geolocation_permission_request_get_type :: IO GType++instance GObject GeolocationPermissionRequest where+    gobjectType = c_webkit_geolocation_permission_request_get_type+    ++-- | Type class for types which can be safely cast to `GeolocationPermissionRequest`, for instance with `toGeolocationPermissionRequest`.+class (GObject o, O.IsDescendantOf GeolocationPermissionRequest o) => IsGeolocationPermissionRequest o+instance (GObject o, O.IsDescendantOf GeolocationPermissionRequest o) => IsGeolocationPermissionRequest o++instance O.HasParentTypes GeolocationPermissionRequest+type instance O.ParentTypes GeolocationPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]++-- | Cast to `GeolocationPermissionRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toGeolocationPermissionRequest :: (MonadIO m, IsGeolocationPermissionRequest o) => o -> m GeolocationPermissionRequest+toGeolocationPermissionRequest = liftIO . unsafeCastTo GeolocationPermissionRequest++-- | A convenience alias for `Nothing` :: `Maybe` `GeolocationPermissionRequest`.+noGeolocationPermissionRequest :: Maybe GeolocationPermissionRequest+noGeolocationPermissionRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveGeolocationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveGeolocationPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo+    ResolveGeolocationPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveGeolocationPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveGeolocationPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo+    ResolveGeolocationPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveGeolocationPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveGeolocationPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveGeolocationPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveGeolocationPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveGeolocationPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveGeolocationPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveGeolocationPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveGeolocationPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveGeolocationPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveGeolocationPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveGeolocationPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveGeolocationPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveGeolocationPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveGeolocationPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveGeolocationPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveGeolocationPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveGeolocationPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveGeolocationPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveGeolocationPermissionRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveGeolocationPermissionRequestMethod t GeolocationPermissionRequest, O.MethodInfo info GeolocationPermissionRequest p) => OL.IsLabel t (GeolocationPermissionRequest -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList GeolocationPermissionRequest+type instance O.AttributeList GeolocationPermissionRequest = GeolocationPermissionRequestAttributeList+type GeolocationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList GeolocationPermissionRequest = GeolocationPermissionRequestSignalList+type GeolocationPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++
+ GI/WebKit2/Objects/GeolocationPermissionRequest.hs-boot view
@@ -0,0 +1,29 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.GeolocationPermissionRequest 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++newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ManagedPtr GeolocationPermissionRequest)+instance GObject GeolocationPermissionRequest where+class (GObject o, O.IsDescendantOf GeolocationPermissionRequest o) => IsGeolocationPermissionRequest o+instance (GObject o, O.IsDescendantOf GeolocationPermissionRequest o) => IsGeolocationPermissionRequest o+instance O.HasParentTypes GeolocationPermissionRequest
+ GI/WebKit2/Objects/HitTestResult.hs view
@@ -0,0 +1,1009 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.HitTestResult+    ( ++-- * Exported types+    HitTestResult(..)                       ,+    IsHitTestResult                         ,+    toHitTestResult                         ,+    noHitTestResult                         ,+++ -- * Methods+-- ** contextIsEditable #method:contextIsEditable#++#if ENABLE_OVERLOADING+    HitTestResultContextIsEditableMethodInfo,+#endif+    hitTestResultContextIsEditable          ,+++-- ** contextIsImage #method:contextIsImage#++#if ENABLE_OVERLOADING+    HitTestResultContextIsImageMethodInfo   ,+#endif+    hitTestResultContextIsImage             ,+++-- ** contextIsLink #method:contextIsLink#++#if ENABLE_OVERLOADING+    HitTestResultContextIsLinkMethodInfo    ,+#endif+    hitTestResultContextIsLink              ,+++-- ** contextIsMedia #method:contextIsMedia#++#if ENABLE_OVERLOADING+    HitTestResultContextIsMediaMethodInfo   ,+#endif+    hitTestResultContextIsMedia             ,+++-- ** contextIsScrollbar #method:contextIsScrollbar#++#if ENABLE_OVERLOADING+    HitTestResultContextIsScrollbarMethodInfo,+#endif+    hitTestResultContextIsScrollbar         ,+++-- ** contextIsSelection #method:contextIsSelection#++#if ENABLE_OVERLOADING+    HitTestResultContextIsSelectionMethodInfo,+#endif+    hitTestResultContextIsSelection         ,+++-- ** getContext #method:getContext#++#if ENABLE_OVERLOADING+    HitTestResultGetContextMethodInfo       ,+#endif+    hitTestResultGetContext                 ,+++-- ** getImageUri #method:getImageUri#++#if ENABLE_OVERLOADING+    HitTestResultGetImageUriMethodInfo      ,+#endif+    hitTestResultGetImageUri                ,+++-- ** getLinkLabel #method:getLinkLabel#++#if ENABLE_OVERLOADING+    HitTestResultGetLinkLabelMethodInfo     ,+#endif+    hitTestResultGetLinkLabel               ,+++-- ** getLinkTitle #method:getLinkTitle#++#if ENABLE_OVERLOADING+    HitTestResultGetLinkTitleMethodInfo     ,+#endif+    hitTestResultGetLinkTitle               ,+++-- ** getLinkUri #method:getLinkUri#++#if ENABLE_OVERLOADING+    HitTestResultGetLinkUriMethodInfo       ,+#endif+    hitTestResultGetLinkUri                 ,+++-- ** getMediaUri #method:getMediaUri#++#if ENABLE_OVERLOADING+    HitTestResultGetMediaUriMethodInfo      ,+#endif+    hitTestResultGetMediaUri                ,+++++ -- * Properties+-- ** context #attr:context#+{- | Bitmask of 'GI.WebKit2.Flags.HitTestResultContext' flags representing+the context of the 'GI.WebKit2.Objects.HitTestResult.HitTestResult'.+-}+#if ENABLE_OVERLOADING+    HitTestResultContextPropertyInfo        ,+#endif+    constructHitTestResultContext           ,+    getHitTestResultContext                 ,+#if ENABLE_OVERLOADING+    hitTestResultContext                    ,+#endif+++-- ** imageUri #attr:imageUri#+{- | The URI of the image if flag 'GI.WebKit2.Flags.HitTestResultContextImage'+is present in 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@+-}+#if ENABLE_OVERLOADING+    HitTestResultImageUriPropertyInfo       ,+#endif+    constructHitTestResultImageUri          ,+    getHitTestResultImageUri                ,+#if ENABLE_OVERLOADING+    hitTestResultImageUri                   ,+#endif+++-- ** linkLabel #attr:linkLabel#+{- | The label of the link if flag 'GI.WebKit2.Flags.HitTestResultContextLink'+is present in 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@+-}+#if ENABLE_OVERLOADING+    HitTestResultLinkLabelPropertyInfo      ,+#endif+    constructHitTestResultLinkLabel         ,+    getHitTestResultLinkLabel               ,+#if ENABLE_OVERLOADING+    hitTestResultLinkLabel                  ,+#endif+++-- ** linkTitle #attr:linkTitle#+{- | The title of the link if flag 'GI.WebKit2.Flags.HitTestResultContextLink'+is present in 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@+-}+#if ENABLE_OVERLOADING+    HitTestResultLinkTitlePropertyInfo      ,+#endif+    constructHitTestResultLinkTitle         ,+    getHitTestResultLinkTitle               ,+#if ENABLE_OVERLOADING+    hitTestResultLinkTitle                  ,+#endif+++-- ** linkUri #attr:linkUri#+{- | The URI of the link if flag 'GI.WebKit2.Flags.HitTestResultContextLink'+is present in 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@+-}+#if ENABLE_OVERLOADING+    HitTestResultLinkUriPropertyInfo        ,+#endif+    constructHitTestResultLinkUri           ,+    getHitTestResultLinkUri                 ,+#if ENABLE_OVERLOADING+    hitTestResultLinkUri                    ,+#endif+++-- ** mediaUri #attr:mediaUri#+{- | The URI of the media if flag 'GI.WebKit2.Flags.HitTestResultContextMedia'+is present in 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@+-}+#if ENABLE_OVERLOADING+    HitTestResultMediaUriPropertyInfo       ,+#endif+    constructHitTestResultMediaUri          ,+    getHitTestResultMediaUri                ,+#if ENABLE_OVERLOADING+    hitTestResultMediaUri                   ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype HitTestResult = HitTestResult (ManagedPtr HitTestResult)+foreign import ccall "webkit_hit_test_result_get_type"+    c_webkit_hit_test_result_get_type :: IO GType++instance GObject HitTestResult where+    gobjectType = c_webkit_hit_test_result_get_type+    ++-- | Type class for types which can be safely cast to `HitTestResult`, for instance with `toHitTestResult`.+class (GObject o, O.IsDescendantOf HitTestResult o) => IsHitTestResult o+instance (GObject o, O.IsDescendantOf HitTestResult o) => IsHitTestResult o++instance O.HasParentTypes HitTestResult+type instance O.ParentTypes HitTestResult = '[GObject.Object.Object]++-- | Cast to `HitTestResult`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toHitTestResult :: (MonadIO m, IsHitTestResult o) => o -> m HitTestResult+toHitTestResult = liftIO . unsafeCastTo HitTestResult++-- | A convenience alias for `Nothing` :: `Maybe` `HitTestResult`.+noHitTestResult :: Maybe HitTestResult+noHitTestResult = Nothing++#if ENABLE_OVERLOADING+type family ResolveHitTestResultMethod (t :: Symbol) (o :: *) :: * where+    ResolveHitTestResultMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveHitTestResultMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveHitTestResultMethod "contextIsEditable" o = HitTestResultContextIsEditableMethodInfo+    ResolveHitTestResultMethod "contextIsImage" o = HitTestResultContextIsImageMethodInfo+    ResolveHitTestResultMethod "contextIsLink" o = HitTestResultContextIsLinkMethodInfo+    ResolveHitTestResultMethod "contextIsMedia" o = HitTestResultContextIsMediaMethodInfo+    ResolveHitTestResultMethod "contextIsScrollbar" o = HitTestResultContextIsScrollbarMethodInfo+    ResolveHitTestResultMethod "contextIsSelection" o = HitTestResultContextIsSelectionMethodInfo+    ResolveHitTestResultMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveHitTestResultMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveHitTestResultMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveHitTestResultMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveHitTestResultMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveHitTestResultMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveHitTestResultMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveHitTestResultMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveHitTestResultMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveHitTestResultMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveHitTestResultMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveHitTestResultMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveHitTestResultMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveHitTestResultMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveHitTestResultMethod "getContext" o = HitTestResultGetContextMethodInfo+    ResolveHitTestResultMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveHitTestResultMethod "getImageUri" o = HitTestResultGetImageUriMethodInfo+    ResolveHitTestResultMethod "getLinkLabel" o = HitTestResultGetLinkLabelMethodInfo+    ResolveHitTestResultMethod "getLinkTitle" o = HitTestResultGetLinkTitleMethodInfo+    ResolveHitTestResultMethod "getLinkUri" o = HitTestResultGetLinkUriMethodInfo+    ResolveHitTestResultMethod "getMediaUri" o = HitTestResultGetMediaUriMethodInfo+    ResolveHitTestResultMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveHitTestResultMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveHitTestResultMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveHitTestResultMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveHitTestResultMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveHitTestResultMethod t HitTestResult, O.MethodInfo info HitTestResult p) => OL.IsLabel t (HitTestResult -> 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++-- VVV Prop "context"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@context@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' hitTestResult #context+@+-}+getHitTestResultContext :: (MonadIO m, IsHitTestResult o) => o -> m Word32+getHitTestResultContext obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "context"++{- |+Construct a `GValueConstruct` with valid value for the “@context@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructHitTestResultContext :: (IsHitTestResult o) => Word32 -> IO (GValueConstruct o)+constructHitTestResultContext val = B.Properties.constructObjectPropertyUInt32 "context" val++#if ENABLE_OVERLOADING+data HitTestResultContextPropertyInfo+instance AttrInfo HitTestResultContextPropertyInfo where+    type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) Word32+    type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = IsHitTestResult+    type AttrGetType HitTestResultContextPropertyInfo = Word32+    type AttrLabel HitTestResultContextPropertyInfo = "context"+    type AttrOrigin HitTestResultContextPropertyInfo = HitTestResult+    attrGet _ = getHitTestResultContext+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultContext+    attrClear _ = undefined+#endif++-- VVV Prop "image-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@image-uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' hitTestResult #imageUri+@+-}+getHitTestResultImageUri :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)+getHitTestResultImageUri obj = liftIO $ B.Properties.getObjectPropertyString obj "image-uri"++{- |+Construct a `GValueConstruct` with valid value for the “@image-uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructHitTestResultImageUri :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)+constructHitTestResultImageUri val = B.Properties.constructObjectPropertyString "image-uri" (Just val)++#if ENABLE_OVERLOADING+data HitTestResultImageUriPropertyInfo+instance AttrInfo HitTestResultImageUriPropertyInfo where+    type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = IsHitTestResult+    type AttrGetType HitTestResultImageUriPropertyInfo = (Maybe T.Text)+    type AttrLabel HitTestResultImageUriPropertyInfo = "image-uri"+    type AttrOrigin HitTestResultImageUriPropertyInfo = HitTestResult+    attrGet _ = getHitTestResultImageUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultImageUri+    attrClear _ = undefined+#endif++-- VVV Prop "link-label"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@link-label@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' hitTestResult #linkLabel+@+-}+getHitTestResultLinkLabel :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)+getHitTestResultLinkLabel obj = liftIO $ B.Properties.getObjectPropertyString obj "link-label"++{- |+Construct a `GValueConstruct` with valid value for the “@link-label@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructHitTestResultLinkLabel :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)+constructHitTestResultLinkLabel val = B.Properties.constructObjectPropertyString "link-label" (Just val)++#if ENABLE_OVERLOADING+data HitTestResultLinkLabelPropertyInfo+instance AttrInfo HitTestResultLinkLabelPropertyInfo where+    type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = IsHitTestResult+    type AttrGetType HitTestResultLinkLabelPropertyInfo = (Maybe T.Text)+    type AttrLabel HitTestResultLinkLabelPropertyInfo = "link-label"+    type AttrOrigin HitTestResultLinkLabelPropertyInfo = HitTestResult+    attrGet _ = getHitTestResultLinkLabel+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkLabel+    attrClear _ = undefined+#endif++-- VVV Prop "link-title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@link-title@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' hitTestResult #linkTitle+@+-}+getHitTestResultLinkTitle :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)+getHitTestResultLinkTitle obj = liftIO $ B.Properties.getObjectPropertyString obj "link-title"++{- |+Construct a `GValueConstruct` with valid value for the “@link-title@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructHitTestResultLinkTitle :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)+constructHitTestResultLinkTitle val = B.Properties.constructObjectPropertyString "link-title" (Just val)++#if ENABLE_OVERLOADING+data HitTestResultLinkTitlePropertyInfo+instance AttrInfo HitTestResultLinkTitlePropertyInfo where+    type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = IsHitTestResult+    type AttrGetType HitTestResultLinkTitlePropertyInfo = (Maybe T.Text)+    type AttrLabel HitTestResultLinkTitlePropertyInfo = "link-title"+    type AttrOrigin HitTestResultLinkTitlePropertyInfo = HitTestResult+    attrGet _ = getHitTestResultLinkTitle+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkTitle+    attrClear _ = undefined+#endif++-- VVV Prop "link-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@link-uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' hitTestResult #linkUri+@+-}+getHitTestResultLinkUri :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)+getHitTestResultLinkUri obj = liftIO $ B.Properties.getObjectPropertyString obj "link-uri"++{- |+Construct a `GValueConstruct` with valid value for the “@link-uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructHitTestResultLinkUri :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)+constructHitTestResultLinkUri val = B.Properties.constructObjectPropertyString "link-uri" (Just val)++#if ENABLE_OVERLOADING+data HitTestResultLinkUriPropertyInfo+instance AttrInfo HitTestResultLinkUriPropertyInfo where+    type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = IsHitTestResult+    type AttrGetType HitTestResultLinkUriPropertyInfo = (Maybe T.Text)+    type AttrLabel HitTestResultLinkUriPropertyInfo = "link-uri"+    type AttrOrigin HitTestResultLinkUriPropertyInfo = HitTestResult+    attrGet _ = getHitTestResultLinkUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkUri+    attrClear _ = undefined+#endif++-- VVV Prop "media-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@media-uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' hitTestResult #mediaUri+@+-}+getHitTestResultMediaUri :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)+getHitTestResultMediaUri obj = liftIO $ B.Properties.getObjectPropertyString obj "media-uri"++{- |+Construct a `GValueConstruct` with valid value for the “@media-uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructHitTestResultMediaUri :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)+constructHitTestResultMediaUri val = B.Properties.constructObjectPropertyString "media-uri" (Just val)++#if ENABLE_OVERLOADING+data HitTestResultMediaUriPropertyInfo+instance AttrInfo HitTestResultMediaUriPropertyInfo where+    type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = IsHitTestResult+    type AttrGetType HitTestResultMediaUriPropertyInfo = (Maybe T.Text)+    type AttrLabel HitTestResultMediaUriPropertyInfo = "media-uri"+    type AttrOrigin HitTestResultMediaUriPropertyInfo = HitTestResult+    attrGet _ = getHitTestResultMediaUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultMediaUri+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList HitTestResult+type instance O.AttributeList HitTestResult = HitTestResultAttributeList+type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+hitTestResultContext :: AttrLabelProxy "context"+hitTestResultContext = AttrLabelProxy++hitTestResultImageUri :: AttrLabelProxy "imageUri"+hitTestResultImageUri = AttrLabelProxy++hitTestResultLinkLabel :: AttrLabelProxy "linkLabel"+hitTestResultLinkLabel = AttrLabelProxy++hitTestResultLinkTitle :: AttrLabelProxy "linkTitle"+hitTestResultLinkTitle = AttrLabelProxy++hitTestResultLinkUri :: AttrLabelProxy "linkUri"+hitTestResultLinkUri = AttrLabelProxy++hitTestResultMediaUri :: AttrLabelProxy "mediaUri"+hitTestResultMediaUri = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList HitTestResult = HitTestResultSignalList+type HitTestResultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method HitTestResult::context_is_editable+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_editable" webkit_hit_test_result_context_is_editable :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CInt++{- |+Gets whether 'GI.WebKit2.Flags.HitTestResultContextEditable' flag is present in+'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@.+-}+hitTestResultContextIsEditable ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if there\'s an editable element at the coordinates of the /@hitTestResult@/,+   or 'False' otherwise -}+hitTestResultContextIsEditable hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_context_is_editable hitTestResult'+    let result' = (/= 0) result+    touchManagedPtr hitTestResult+    return result'++#if ENABLE_OVERLOADING+data HitTestResultContextIsEditableMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsEditableMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsEditable++#endif++-- method HitTestResult::context_is_image+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_image" webkit_hit_test_result_context_is_image :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CInt++{- |+Gets whether 'GI.WebKit2.Flags.HitTestResultContextImage' flag is present in+'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@.+-}+hitTestResultContextIsImage ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if there\'s an image element in the coordinates of the Hit Test,+   or 'False' otherwise -}+hitTestResultContextIsImage hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_context_is_image hitTestResult'+    let result' = (/= 0) result+    touchManagedPtr hitTestResult+    return result'++#if ENABLE_OVERLOADING+data HitTestResultContextIsImageMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsImageMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsImage++#endif++-- method HitTestResult::context_is_link+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_link" webkit_hit_test_result_context_is_link :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CInt++{- |+Gets whether 'GI.WebKit2.Flags.HitTestResultContextLink' flag is present in+'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@.+-}+hitTestResultContextIsLink ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if there\'s a link element in the coordinates of the Hit Test,+   or 'False' otherwise -}+hitTestResultContextIsLink hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_context_is_link hitTestResult'+    let result' = (/= 0) result+    touchManagedPtr hitTestResult+    return result'++#if ENABLE_OVERLOADING+data HitTestResultContextIsLinkMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsLinkMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsLink++#endif++-- method HitTestResult::context_is_media+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_media" webkit_hit_test_result_context_is_media :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CInt++{- |+Gets whether 'GI.WebKit2.Flags.HitTestResultContextMedia' flag is present in+'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@.+-}+hitTestResultContextIsMedia ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if there\'s a media element in the coordinates of the Hit Test,+   or 'False' otherwise -}+hitTestResultContextIsMedia hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_context_is_media hitTestResult'+    let result' = (/= 0) result+    touchManagedPtr hitTestResult+    return result'++#if ENABLE_OVERLOADING+data HitTestResultContextIsMediaMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsMediaMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsMedia++#endif++-- method HitTestResult::context_is_scrollbar+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_scrollbar" webkit_hit_test_result_context_is_scrollbar :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CInt++{- |+Gets whether 'GI.WebKit2.Flags.HitTestResultContextScrollbar' flag is present in+'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@.+-}+hitTestResultContextIsScrollbar ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if there\'s a scrollbar element at the coordinates of the /@hitTestResult@/,+   or 'False' otherwise -}+hitTestResultContextIsScrollbar hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_context_is_scrollbar hitTestResult'+    let result' = (/= 0) result+    touchManagedPtr hitTestResult+    return result'++#if ENABLE_OVERLOADING+data HitTestResultContextIsScrollbarMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsScrollbarMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsScrollbar++#endif++-- method HitTestResult::context_is_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_selection" webkit_hit_test_result_context_is_selection :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CInt++{- |+Gets whether 'GI.WebKit2.Flags.HitTestResultContextSelection' flag is present in+'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@.++/Since: 2.8/+-}+hitTestResultContextIsSelection ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if there\'s a selected element at the coordinates of the /@hitTestResult@/,+   or 'False' otherwise -}+hitTestResultContextIsSelection hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_context_is_selection hitTestResult'+    let result' = (/= 0) result+    touchManagedPtr hitTestResult+    return result'++#if ENABLE_OVERLOADING+data HitTestResultContextIsSelectionMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsSelectionMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsSelection++#endif++-- method HitTestResult::get_context+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_context" webkit_hit_test_result_get_context :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO Word32++{- |+Gets the value of the 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/context/@ property.+-}+hitTestResultGetContext ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m Word32+    {- ^ __Returns:__ a bitmask of 'GI.WebKit2.Flags.HitTestResultContext' flags -}+hitTestResultGetContext hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_get_context hitTestResult'+    touchManagedPtr hitTestResult+    return result++#if ENABLE_OVERLOADING+data HitTestResultGetContextMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetContextMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetContext++#endif++-- method HitTestResult::get_image_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_image_uri" webkit_hit_test_result_get_image_uri :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CString++{- |+Gets the value of the 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/image-uri/@ property.+-}+hitTestResultGetImageUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the URI of the image element in the coordinates of the Hit Test,+   or 'Nothing' if there isn\'t an image element in /@hitTestResult@/ context -}+hitTestResultGetImageUri hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_get_image_uri hitTestResult'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr hitTestResult+    return maybeResult++#if ENABLE_OVERLOADING+data HitTestResultGetImageUriMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetImageUriMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetImageUri++#endif++-- method HitTestResult::get_link_label+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_link_label" webkit_hit_test_result_get_link_label :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CString++{- |+Gets the value of the 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/link-label/@ property.+-}+hitTestResultGetLinkLabel ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the label of the link element in the coordinates of the Hit Test,+   or 'Nothing' if there isn\'t a link element in /@hitTestResult@/ context or the+   link element doesn\'t have a label -}+hitTestResultGetLinkLabel hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_get_link_label hitTestResult'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr hitTestResult+    return maybeResult++#if ENABLE_OVERLOADING+data HitTestResultGetLinkLabelMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetLinkLabelMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetLinkLabel++#endif++-- method HitTestResult::get_link_title+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_link_title" webkit_hit_test_result_get_link_title :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CString++{- |+Gets the value of the 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/link-title/@ property.+-}+hitTestResultGetLinkTitle ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the title of the link element in the coordinates of the Hit Test,+   or 'Nothing' if there isn\'t a link element in /@hitTestResult@/ context or the+   link element doesn\'t have a title -}+hitTestResultGetLinkTitle hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_get_link_title hitTestResult'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr hitTestResult+    return maybeResult++#if ENABLE_OVERLOADING+data HitTestResultGetLinkTitleMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetLinkTitleMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetLinkTitle++#endif++-- method HitTestResult::get_link_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_link_uri" webkit_hit_test_result_get_link_uri :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CString++{- |+Gets the value of the 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/link-uri/@ property.+-}+hitTestResultGetLinkUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the URI of the link element in the coordinates of the Hit Test,+   or 'Nothing' if there isn\'t a link element in /@hitTestResult@/ context -}+hitTestResultGetLinkUri hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_get_link_uri hitTestResult'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr hitTestResult+    return maybeResult++#if ENABLE_OVERLOADING+data HitTestResultGetLinkUriMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetLinkUriMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetLinkUri++#endif++-- method HitTestResult::get_media_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "hit_test_result", argType = TInterface (Name {namespace = "WebKit2", name = "HitTestResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHitTestResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_media_uri" webkit_hit_test_result_get_media_uri :: +    Ptr HitTestResult ->                    -- hit_test_result : TInterface (Name {namespace = "WebKit2", name = "HitTestResult"})+    IO CString++{- |+Gets the value of the 'GI.WebKit2.Objects.HitTestResult.HitTestResult':@/media-uri/@ property.+-}+hitTestResultGetMediaUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>+    a+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the URI of the media element in the coordinates of the Hit Test,+   or 'Nothing' if there isn\'t a media element in /@hitTestResult@/ context -}+hitTestResultGetMediaUri hitTestResult = liftIO $ do+    hitTestResult' <- unsafeManagedPtrCastPtr hitTestResult+    result <- webkit_hit_test_result_get_media_uri hitTestResult'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr hitTestResult+    return maybeResult++#if ENABLE_OVERLOADING+data HitTestResultGetMediaUriMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetMediaUriMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetMediaUri++#endif++
+ GI/WebKit2/Objects/HitTestResult.hs-boot view
@@ -0,0 +1,83 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.HitTestResult 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++newtype HitTestResult = HitTestResult (ManagedPtr HitTestResult)+instance GObject HitTestResult where+class (GObject o, O.IsDescendantOf HitTestResult o) => IsHitTestResult o+instance (GObject o, O.IsDescendantOf HitTestResult o) => IsHitTestResult o+instance O.HasParentTypes HitTestResult+#if ENABLE_OVERLOADING+data HitTestResultContextPropertyInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultImageUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultLinkLabelPropertyInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultLinkTitlePropertyInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultLinkUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultMediaUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultContextIsEditableMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultContextIsImageMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultContextIsLinkMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultContextIsMediaMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultContextIsScrollbarMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultContextIsSelectionMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultGetContextMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultGetImageUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultGetLinkLabelMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultGetLinkTitleMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultGetLinkUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data HitTestResultGetMediaUriMethodInfo+#endif
+ GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs view
@@ -0,0 +1,174 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest+    ( ++-- * Exported types+    InstallMissingMediaPluginsPermissionRequest(..),+    IsInstallMissingMediaPluginsPermissionRequest,+    toInstallMissingMediaPluginsPermissionRequest,+    noInstallMissingMediaPluginsPermissionRequest,+++ -- * Methods+-- ** getDescription #method:getDescription#++#if ENABLE_OVERLOADING+    InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo,+#endif+    installMissingMediaPluginsPermissionRequestGetDescription,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest++-- | Memory-managed wrapper type.+newtype InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequest (ManagedPtr InstallMissingMediaPluginsPermissionRequest)+foreign import ccall "webkit_install_missing_media_plugins_permission_request_get_type"+    c_webkit_install_missing_media_plugins_permission_request_get_type :: IO GType++instance GObject InstallMissingMediaPluginsPermissionRequest where+    gobjectType = c_webkit_install_missing_media_plugins_permission_request_get_type+    ++-- | Type class for types which can be safely cast to `InstallMissingMediaPluginsPermissionRequest`, for instance with `toInstallMissingMediaPluginsPermissionRequest`.+class (GObject o, O.IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => IsInstallMissingMediaPluginsPermissionRequest o+instance (GObject o, O.IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => IsInstallMissingMediaPluginsPermissionRequest o++instance O.HasParentTypes InstallMissingMediaPluginsPermissionRequest+type instance O.ParentTypes InstallMissingMediaPluginsPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]++-- | Cast to `InstallMissingMediaPluginsPermissionRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toInstallMissingMediaPluginsPermissionRequest :: (MonadIO m, IsInstallMissingMediaPluginsPermissionRequest o) => o -> m InstallMissingMediaPluginsPermissionRequest+toInstallMissingMediaPluginsPermissionRequest = liftIO . unsafeCastTo InstallMissingMediaPluginsPermissionRequest++-- | A convenience alias for `Nothing` :: `Maybe` `InstallMissingMediaPluginsPermissionRequest`.+noInstallMissingMediaPluginsPermissionRequest :: Maybe InstallMissingMediaPluginsPermissionRequest+noInstallMissingMediaPluginsPermissionRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveInstallMissingMediaPluginsPermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getDescription" o = InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveInstallMissingMediaPluginsPermissionRequestMethod t InstallMissingMediaPluginsPermissionRequest, O.MethodInfo info InstallMissingMediaPluginsPermissionRequest p) => OL.IsLabel t (InstallMissingMediaPluginsPermissionRequest -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList InstallMissingMediaPluginsPermissionRequest+type instance O.AttributeList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestAttributeList+type InstallMissingMediaPluginsPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestSignalList+type InstallMissingMediaPluginsPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method InstallMissingMediaPluginsPermissionRequest::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "InstallMissingMediaPluginsPermissionRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitInstallMissingMediaPluginsPermissionRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_install_missing_media_plugins_permission_request_get_description" webkit_install_missing_media_plugins_permission_request_get_description :: +    Ptr InstallMissingMediaPluginsPermissionRequest -> -- request : TInterface (Name {namespace = "WebKit2", name = "InstallMissingMediaPluginsPermissionRequest"})+    IO CString++{- |+Gets the description about the missing plugins provided by the media backend when a media couldn\'t be played.++/Since: 2.10/+-}+installMissingMediaPluginsPermissionRequestGetDescription ::+    (B.CallStack.HasCallStack, MonadIO m, IsInstallMissingMediaPluginsPermissionRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest.InstallMissingMediaPluginsPermissionRequest' -}+    -> m T.Text+    {- ^ __Returns:__ a string with the description provided by the media backend. -}+installMissingMediaPluginsPermissionRequestGetDescription request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_install_missing_media_plugins_permission_request_get_description request'+    checkUnexpectedReturnNULL "installMissingMediaPluginsPermissionRequestGetDescription" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsInstallMissingMediaPluginsPermissionRequest a) => O.MethodInfo InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo a signature where+    overloadedMethod _ = installMissingMediaPluginsPermissionRequestGetDescription++#endif++
+ GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot view
@@ -0,0 +1,32 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest 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++newtype InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequest (ManagedPtr InstallMissingMediaPluginsPermissionRequest)+instance GObject InstallMissingMediaPluginsPermissionRequest where+class (GObject o, O.IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => IsInstallMissingMediaPluginsPermissionRequest o+instance (GObject o, O.IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => IsInstallMissingMediaPluginsPermissionRequest o+instance O.HasParentTypes InstallMissingMediaPluginsPermissionRequest+#if ENABLE_OVERLOADING+data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo+#endif
+ GI/WebKit2/Objects/NavigationPolicyDecision.hs view
@@ -0,0 +1,698 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.NavigationPolicyDecision+    ( ++-- * Exported types+    NavigationPolicyDecision(..)            ,+    IsNavigationPolicyDecision              ,+    toNavigationPolicyDecision              ,+    noNavigationPolicyDecision              ,+++ -- * Methods+-- ** getFrameName #method:getFrameName#++#if ENABLE_OVERLOADING+    NavigationPolicyDecisionGetFrameNameMethodInfo,+#endif+    navigationPolicyDecisionGetFrameName    ,+++-- ** getModifiers #method:getModifiers#++#if ENABLE_OVERLOADING+    NavigationPolicyDecisionGetModifiersMethodInfo,+#endif+    navigationPolicyDecisionGetModifiers    ,+++-- ** getMouseButton #method:getMouseButton#++#if ENABLE_OVERLOADING+    NavigationPolicyDecisionGetMouseButtonMethodInfo,+#endif+    navigationPolicyDecisionGetMouseButton  ,+++-- ** getNavigationAction #method:getNavigationAction#++#if ENABLE_OVERLOADING+    NavigationPolicyDecisionGetNavigationActionMethodInfo,+#endif+    navigationPolicyDecisionGetNavigationAction,+++-- ** getNavigationType #method:getNavigationType#++#if ENABLE_OVERLOADING+    NavigationPolicyDecisionGetNavigationTypeMethodInfo,+#endif+    navigationPolicyDecisionGetNavigationType,+++-- ** getRequest #method:getRequest#++#if ENABLE_OVERLOADING+    NavigationPolicyDecisionGetRequestMethodInfo,+#endif+    navigationPolicyDecisionGetRequest      ,+++++ -- * Properties+-- ** frameName #attr:frameName#+{- | If this navigation request targets a new frame, this property contains+the name of that frame. For example if the decision was triggered by clicking a+link with a target attribute equal to \"_blank\", this property will contain the+value of that attribute. In all other cases, this value will be 'Nothing'.+-}+#if ENABLE_OVERLOADING+    NavigationPolicyDecisionFrameNamePropertyInfo,+#endif+    getNavigationPolicyDecisionFrameName    ,+#if ENABLE_OVERLOADING+    navigationPolicyDecisionFrameName       ,+#endif+++-- ** modifiers #attr:modifiers#+{- | If the navigation associated with this policy decision was originally+triggered by a mouse event, this property contains a bitmask of various+'GI.Gdk.Flags.ModifierType' values describing the modifiers used for that click.+If the navigation was not triggered by a mouse event or no modifiers+were active, the value of this property will be zero.+-}+#if ENABLE_OVERLOADING+    NavigationPolicyDecisionModifiersPropertyInfo,+#endif+    getNavigationPolicyDecisionModifiers    ,+#if ENABLE_OVERLOADING+    navigationPolicyDecisionModifiers       ,+#endif+++-- ** mouseButton #attr:mouseButton#+{- | If the navigation associated with this policy decision was originally+triggered by a mouse event, this property contains non-zero button number+of the button triggering that event. The button numbers match those from GDK.+If the navigation was not triggered by a mouse event, the value of this+property will be 0.+-}+#if ENABLE_OVERLOADING+    NavigationPolicyDecisionMouseButtonPropertyInfo,+#endif+    getNavigationPolicyDecisionMouseButton  ,+#if ENABLE_OVERLOADING+    navigationPolicyDecisionMouseButton     ,+#endif+++-- ** navigationAction #attr:navigationAction#+{- | The 'GI.WebKit2.Structs.NavigationAction.NavigationAction' that triggered this policy decision.++/Since: 2.6/+-}+#if ENABLE_OVERLOADING+    NavigationPolicyDecisionNavigationActionPropertyInfo,+#endif+    getNavigationPolicyDecisionNavigationAction,+#if ENABLE_OVERLOADING+    navigationPolicyDecisionNavigationAction,+#endif+++-- ** navigationType #attr:navigationType#+{- | The type of navigation that triggered this policy decision. This is+useful for enacting different policies depending on what type of user+action caused the navigation.+-}+#if ENABLE_OVERLOADING+    NavigationPolicyDecisionNavigationTypePropertyInfo,+#endif+    getNavigationPolicyDecisionNavigationType,+#if ENABLE_OVERLOADING+    navigationPolicyDecisionNavigationType  ,+#endif+++-- ** request #attr:request#+{- | This property contains the 'GI.WebKit2.Objects.URIRequest.URIRequest' associated with this+navigation.+-}+#if ENABLE_OVERLOADING+    NavigationPolicyDecisionRequestPropertyInfo,+#endif+    getNavigationPolicyDecisionRequest      ,+#if ENABLE_OVERLOADING+    navigationPolicyDecisionRequest         ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums+import {-# SOURCE #-} qualified GI.WebKit2.Objects.PolicyDecision as WebKit2.PolicyDecision+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIRequest as WebKit2.URIRequest+import {-# SOURCE #-} qualified GI.WebKit2.Structs.NavigationAction as WebKit2.NavigationAction++-- | Memory-managed wrapper type.+newtype NavigationPolicyDecision = NavigationPolicyDecision (ManagedPtr NavigationPolicyDecision)+foreign import ccall "webkit_navigation_policy_decision_get_type"+    c_webkit_navigation_policy_decision_get_type :: IO GType++instance GObject NavigationPolicyDecision where+    gobjectType = c_webkit_navigation_policy_decision_get_type+    ++-- | Type class for types which can be safely cast to `NavigationPolicyDecision`, for instance with `toNavigationPolicyDecision`.+class (GObject o, O.IsDescendantOf NavigationPolicyDecision o) => IsNavigationPolicyDecision o+instance (GObject o, O.IsDescendantOf NavigationPolicyDecision o) => IsNavigationPolicyDecision o++instance O.HasParentTypes NavigationPolicyDecision+type instance O.ParentTypes NavigationPolicyDecision = '[WebKit2.PolicyDecision.PolicyDecision, GObject.Object.Object]++-- | Cast to `NavigationPolicyDecision`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toNavigationPolicyDecision :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m NavigationPolicyDecision+toNavigationPolicyDecision = liftIO . unsafeCastTo NavigationPolicyDecision++-- | A convenience alias for `Nothing` :: `Maybe` `NavigationPolicyDecision`.+noNavigationPolicyDecision :: Maybe NavigationPolicyDecision+noNavigationPolicyDecision = Nothing++#if ENABLE_OVERLOADING+type family ResolveNavigationPolicyDecisionMethod (t :: Symbol) (o :: *) :: * where+    ResolveNavigationPolicyDecisionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveNavigationPolicyDecisionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveNavigationPolicyDecisionMethod "download" o = WebKit2.PolicyDecision.PolicyDecisionDownloadMethodInfo+    ResolveNavigationPolicyDecisionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveNavigationPolicyDecisionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveNavigationPolicyDecisionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveNavigationPolicyDecisionMethod "ignore" o = WebKit2.PolicyDecision.PolicyDecisionIgnoreMethodInfo+    ResolveNavigationPolicyDecisionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveNavigationPolicyDecisionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveNavigationPolicyDecisionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveNavigationPolicyDecisionMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveNavigationPolicyDecisionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveNavigationPolicyDecisionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveNavigationPolicyDecisionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveNavigationPolicyDecisionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveNavigationPolicyDecisionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveNavigationPolicyDecisionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveNavigationPolicyDecisionMethod "use" o = WebKit2.PolicyDecision.PolicyDecisionUseMethodInfo+    ResolveNavigationPolicyDecisionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveNavigationPolicyDecisionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveNavigationPolicyDecisionMethod "getFrameName" o = NavigationPolicyDecisionGetFrameNameMethodInfo+    ResolveNavigationPolicyDecisionMethod "getModifiers" o = NavigationPolicyDecisionGetModifiersMethodInfo+    ResolveNavigationPolicyDecisionMethod "getMouseButton" o = NavigationPolicyDecisionGetMouseButtonMethodInfo+    ResolveNavigationPolicyDecisionMethod "getNavigationAction" o = NavigationPolicyDecisionGetNavigationActionMethodInfo+    ResolveNavigationPolicyDecisionMethod "getNavigationType" o = NavigationPolicyDecisionGetNavigationTypeMethodInfo+    ResolveNavigationPolicyDecisionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveNavigationPolicyDecisionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveNavigationPolicyDecisionMethod "getRequest" o = NavigationPolicyDecisionGetRequestMethodInfo+    ResolveNavigationPolicyDecisionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveNavigationPolicyDecisionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveNavigationPolicyDecisionMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, O.MethodInfo info NavigationPolicyDecision p) => OL.IsLabel t (NavigationPolicyDecision -> 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++-- VVV Prop "frame-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@frame-name@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' navigationPolicyDecision #frameName+@+-}+getNavigationPolicyDecisionFrameName :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m (Maybe T.Text)+getNavigationPolicyDecisionFrameName obj = liftIO $ B.Properties.getObjectPropertyString obj "frame-name"++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionFrameNamePropertyInfo+instance AttrInfo NavigationPolicyDecisionFrameNamePropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionFrameNamePropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = IsNavigationPolicyDecision+    type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = (Maybe T.Text)+    type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "frame-name"+    type AttrOrigin NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecision+    attrGet _ = getNavigationPolicyDecisionFrameName+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "modifiers"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@modifiers@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' navigationPolicyDecision #modifiers+@+-}+getNavigationPolicyDecisionModifiers :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m Word32+getNavigationPolicyDecisionModifiers obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "modifiers"++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionModifiersPropertyInfo+instance AttrInfo NavigationPolicyDecisionModifiersPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionModifiersPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = IsNavigationPolicyDecision+    type AttrGetType NavigationPolicyDecisionModifiersPropertyInfo = Word32+    type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "modifiers"+    type AttrOrigin NavigationPolicyDecisionModifiersPropertyInfo = NavigationPolicyDecision+    attrGet _ = getNavigationPolicyDecisionModifiers+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "mouse-button"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@mouse-button@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' navigationPolicyDecision #mouseButton+@+-}+getNavigationPolicyDecisionMouseButton :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m Word32+getNavigationPolicyDecisionMouseButton obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "mouse-button"++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionMouseButtonPropertyInfo+instance AttrInfo NavigationPolicyDecisionMouseButtonPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionMouseButtonPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = IsNavigationPolicyDecision+    type AttrGetType NavigationPolicyDecisionMouseButtonPropertyInfo = Word32+    type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "mouse-button"+    type AttrOrigin NavigationPolicyDecisionMouseButtonPropertyInfo = NavigationPolicyDecision+    attrGet _ = getNavigationPolicyDecisionMouseButton+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "navigation-action"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@navigation-action@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' navigationPolicyDecision #navigationAction+@+-}+getNavigationPolicyDecisionNavigationAction :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m WebKit2.NavigationAction.NavigationAction+getNavigationPolicyDecisionNavigationAction obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionNavigationAction" $ B.Properties.getObjectPropertyBoxed obj "navigation-action" WebKit2.NavigationAction.NavigationAction++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionNavigationActionPropertyInfo+instance AttrInfo NavigationPolicyDecisionNavigationActionPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionNavigationActionPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = IsNavigationPolicyDecision+    type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = WebKit2.NavigationAction.NavigationAction+    type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "navigation-action"+    type AttrOrigin NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecision+    attrGet _ = getNavigationPolicyDecisionNavigationAction+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "navigation-type"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "NavigationType"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@navigation-type@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' navigationPolicyDecision #navigationType+@+-}+getNavigationPolicyDecisionNavigationType :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m WebKit2.Enums.NavigationType+getNavigationPolicyDecisionNavigationType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "navigation-type"++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionNavigationTypePropertyInfo+instance AttrInfo NavigationPolicyDecisionNavigationTypePropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionNavigationTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = IsNavigationPolicyDecision+    type AttrGetType NavigationPolicyDecisionNavigationTypePropertyInfo = WebKit2.Enums.NavigationType+    type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "navigation-type"+    type AttrOrigin NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationPolicyDecision+    attrGet _ = getNavigationPolicyDecisionNavigationType+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "request"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "URIRequest"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@request@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' navigationPolicyDecision #request+@+-}+getNavigationPolicyDecisionRequest :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m WebKit2.URIRequest.URIRequest+getNavigationPolicyDecisionRequest obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionRequest" $ B.Properties.getObjectPropertyObject obj "request" WebKit2.URIRequest.URIRequest++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionRequestPropertyInfo+instance AttrInfo NavigationPolicyDecisionRequestPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = IsNavigationPolicyDecision+    type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = WebKit2.URIRequest.URIRequest+    type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "request"+    type AttrOrigin NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecision+    attrGet _ = getNavigationPolicyDecisionRequest+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList NavigationPolicyDecision+type instance O.AttributeList NavigationPolicyDecision = NavigationPolicyDecisionAttributeList+type NavigationPolicyDecisionAttributeList = ('[ '("frameName", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouseButton", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigationAction", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigationType", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+navigationPolicyDecisionFrameName :: AttrLabelProxy "frameName"+navigationPolicyDecisionFrameName = AttrLabelProxy++navigationPolicyDecisionModifiers :: AttrLabelProxy "modifiers"+navigationPolicyDecisionModifiers = AttrLabelProxy++navigationPolicyDecisionMouseButton :: AttrLabelProxy "mouseButton"+navigationPolicyDecisionMouseButton = AttrLabelProxy++navigationPolicyDecisionNavigationAction :: AttrLabelProxy "navigationAction"+navigationPolicyDecisionNavigationAction = AttrLabelProxy++navigationPolicyDecisionNavigationType :: AttrLabelProxy "navigationType"+navigationPolicyDecisionNavigationType = AttrLabelProxy++navigationPolicyDecisionRequest :: AttrLabelProxy "request"+navigationPolicyDecisionRequest = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList NavigationPolicyDecision = NavigationPolicyDecisionSignalList+type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method NavigationPolicyDecision::get_frame_name+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_policy_decision_get_frame_name" webkit_navigation_policy_decision_get_frame_name :: +    Ptr NavigationPolicyDecision ->         -- decision : TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"})+    IO CString++{- |+Gets the value of the 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision':@/frame-name/@ property.+-}+navigationPolicyDecisionGetFrameName ::+    (B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ The name of the new frame this navigation action targets or 'Nothing' -}+navigationPolicyDecisionGetFrameName decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_navigation_policy_decision_get_frame_name decision'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr decision+    return maybeResult++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetFrameNameMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNavigationPolicyDecision a) => O.MethodInfo NavigationPolicyDecisionGetFrameNameMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetFrameName++#endif++-- method NavigationPolicyDecision::get_modifiers+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_policy_decision_get_modifiers" webkit_navigation_policy_decision_get_modifiers :: +    Ptr NavigationPolicyDecision ->         -- decision : TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"})+    IO Word32++{-# DEPRECATED navigationPolicyDecisionGetModifiers ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}+{- |+Gets the value of the 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision':@/modifiers/@ property.+-}+navigationPolicyDecisionGetModifiers ::+    (B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision' -}+    -> m Word32+    {- ^ __Returns:__ The modifiers active if this decision was triggered by a mouse event -}+navigationPolicyDecisionGetModifiers decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_navigation_policy_decision_get_modifiers decision'+    touchManagedPtr decision+    return result++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetModifiersMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsNavigationPolicyDecision a) => O.MethodInfo NavigationPolicyDecisionGetModifiersMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetModifiers++#endif++-- method NavigationPolicyDecision::get_mouse_button+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_policy_decision_get_mouse_button" webkit_navigation_policy_decision_get_mouse_button :: +    Ptr NavigationPolicyDecision ->         -- decision : TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"})+    IO Word32++{-# DEPRECATED navigationPolicyDecisionGetMouseButton ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}+{- |+Gets the value of the 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision':@/mouse-button/@ property.+-}+navigationPolicyDecisionGetMouseButton ::+    (B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision' -}+    -> m Word32+    {- ^ __Returns:__ The mouse button used if this decision was triggered by a mouse event or 0 otherwise -}+navigationPolicyDecisionGetMouseButton decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_navigation_policy_decision_get_mouse_button decision'+    touchManagedPtr decision+    return result++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetMouseButtonMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsNavigationPolicyDecision a) => O.MethodInfo NavigationPolicyDecisionGetMouseButtonMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetMouseButton++#endif++-- method NavigationPolicyDecision::get_navigation_action+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_policy_decision_get_navigation_action" webkit_navigation_policy_decision_get_navigation_action :: +    Ptr NavigationPolicyDecision ->         -- decision : TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"})+    IO (Ptr WebKit2.NavigationAction.NavigationAction)++{- |+Gets the value of the 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision':@/navigation-action/@ property.++/Since: 2.6/+-}+navigationPolicyDecisionGetNavigationAction ::+    (B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision' -}+    -> m WebKit2.NavigationAction.NavigationAction+    {- ^ __Returns:__ The 'GI.WebKit2.Structs.NavigationAction.NavigationAction' triggering this policy decision. -}+navigationPolicyDecisionGetNavigationAction decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_navigation_policy_decision_get_navigation_action decision'+    checkUnexpectedReturnNULL "navigationPolicyDecisionGetNavigationAction" result+    result' <- (newBoxed WebKit2.NavigationAction.NavigationAction) result+    touchManagedPtr decision+    return result'++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetNavigationActionMethodInfo+instance (signature ~ (m WebKit2.NavigationAction.NavigationAction), MonadIO m, IsNavigationPolicyDecision a) => O.MethodInfo NavigationPolicyDecisionGetNavigationActionMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetNavigationAction++#endif++-- method NavigationPolicyDecision::get_navigation_type+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NavigationType"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_policy_decision_get_navigation_type" webkit_navigation_policy_decision_get_navigation_type :: +    Ptr NavigationPolicyDecision ->         -- decision : TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"})+    IO CUInt++{-# DEPRECATED navigationPolicyDecisionGetNavigationType ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}+{- |+Gets the value of the 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision':@/navigation-type/@ property.+-}+navigationPolicyDecisionGetNavigationType ::+    (B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision' -}+    -> m WebKit2.Enums.NavigationType+    {- ^ __Returns:__ The type of navigation triggering this policy decision. -}+navigationPolicyDecisionGetNavigationType decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_navigation_policy_decision_get_navigation_type decision'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr decision+    return result'++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetNavigationTypeMethodInfo+instance (signature ~ (m WebKit2.Enums.NavigationType), MonadIO m, IsNavigationPolicyDecision a) => O.MethodInfo NavigationPolicyDecisionGetNavigationTypeMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetNavigationType++#endif++-- method NavigationPolicyDecision::get_request+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIRequest"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_policy_decision_get_request" webkit_navigation_policy_decision_get_request :: +    Ptr NavigationPolicyDecision ->         -- decision : TInterface (Name {namespace = "WebKit2", name = "NavigationPolicyDecision"})+    IO (Ptr WebKit2.URIRequest.URIRequest)++{-# DEPRECATED navigationPolicyDecisionGetRequest ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}+{- |+Gets the value of the 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision':@/request/@ property.+-}+navigationPolicyDecisionGetRequest ::+    (B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision' -}+    -> m WebKit2.URIRequest.URIRequest+    {- ^ __Returns:__ The URI request that is associated with this navigation -}+navigationPolicyDecisionGetRequest decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_navigation_policy_decision_get_request decision'+    checkUnexpectedReturnNULL "navigationPolicyDecisionGetRequest" result+    result' <- (newObject WebKit2.URIRequest.URIRequest) result+    touchManagedPtr decision+    return result'++#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetRequestMethodInfo+instance (signature ~ (m WebKit2.URIRequest.URIRequest), MonadIO m, IsNavigationPolicyDecision a) => O.MethodInfo NavigationPolicyDecisionGetRequestMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetRequest++#endif++
+ GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot view
@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.NavigationPolicyDecision 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++newtype NavigationPolicyDecision = NavigationPolicyDecision (ManagedPtr NavigationPolicyDecision)+instance GObject NavigationPolicyDecision where+class (GObject o, O.IsDescendantOf NavigationPolicyDecision o) => IsNavigationPolicyDecision o+instance (GObject o, O.IsDescendantOf NavigationPolicyDecision o) => IsNavigationPolicyDecision o+instance O.HasParentTypes NavigationPolicyDecision+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionFrameNamePropertyInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionModifiersPropertyInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionMouseButtonPropertyInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionNavigationActionPropertyInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionNavigationTypePropertyInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionRequestPropertyInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetFrameNameMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetModifiersMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetMouseButtonMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetNavigationActionMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetNavigationTypeMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationPolicyDecisionGetRequestMethodInfo+#endif
+ GI/WebKit2/Objects/Notification.hs view
@@ -0,0 +1,781 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.Notification+    ( ++-- * Exported types+    Notification(..)                        ,+    IsNotification                          ,+    toNotification                          ,+    noNotification                          ,+++ -- * Methods+-- ** clicked #method:clicked#++#if ENABLE_OVERLOADING+    NotificationClickedMethodInfo           ,+#endif+    notificationClicked                     ,+++-- ** close #method:close#++#if ENABLE_OVERLOADING+    NotificationCloseMethodInfo             ,+#endif+    notificationClose                       ,+++-- ** getBody #method:getBody#++#if ENABLE_OVERLOADING+    NotificationGetBodyMethodInfo           ,+#endif+    notificationGetBody                     ,+++-- ** getId #method:getId#++#if ENABLE_OVERLOADING+    NotificationGetIdMethodInfo             ,+#endif+    notificationGetId                       ,+++-- ** getTag #method:getTag#++#if ENABLE_OVERLOADING+    NotificationGetTagMethodInfo            ,+#endif+    notificationGetTag                      ,+++-- ** getTitle #method:getTitle#++#if ENABLE_OVERLOADING+    NotificationGetTitleMethodInfo          ,+#endif+    notificationGetTitle                    ,+++++ -- * Properties+-- ** body #attr:body#+{- | The body for the notification.++/Since: 2.8/+-}+#if ENABLE_OVERLOADING+    NotificationBodyPropertyInfo            ,+#endif+    getNotificationBody                     ,+#if ENABLE_OVERLOADING+    notificationBody                        ,+#endif+++-- ** id #attr:id#+{- | The unique id for the notification.++/Since: 2.8/+-}+#if ENABLE_OVERLOADING+    NotificationIdPropertyInfo              ,+#endif+    getNotificationId                       ,+#if ENABLE_OVERLOADING+    notificationId                          ,+#endif+++-- ** tag #attr:tag#+{- | The tag identifier for the notification.++/Since: 2.16/+-}+#if ENABLE_OVERLOADING+    NotificationTagPropertyInfo             ,+#endif+    getNotificationTag                      ,+#if ENABLE_OVERLOADING+    notificationTag                         ,+#endif+++-- ** title #attr:title#+{- | The title for the notification.++/Since: 2.8/+-}+#if ENABLE_OVERLOADING+    NotificationTitlePropertyInfo           ,+#endif+    getNotificationTitle                    ,+#if ENABLE_OVERLOADING+    notificationTitle                       ,+#endif+++++ -- * Signals+-- ** clicked #signal:clicked#++    C_NotificationClickedCallback           ,+    NotificationClickedCallback             ,+#if ENABLE_OVERLOADING+    NotificationClickedSignalInfo           ,+#endif+    afterNotificationClicked                ,+    genClosure_NotificationClicked          ,+    mk_NotificationClickedCallback          ,+    noNotificationClickedCallback           ,+    onNotificationClicked                   ,+    wrap_NotificationClickedCallback        ,+++-- ** closed #signal:closed#++    C_NotificationClosedCallback            ,+    NotificationClosedCallback              ,+#if ENABLE_OVERLOADING+    NotificationClosedSignalInfo            ,+#endif+    afterNotificationClosed                 ,+    genClosure_NotificationClosed           ,+    mk_NotificationClosedCallback           ,+    noNotificationClosedCallback            ,+    onNotificationClosed                    ,+    wrap_NotificationClosedCallback         ,+++++    ) 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.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype Notification = Notification (ManagedPtr Notification)+foreign import ccall "webkit_notification_get_type"+    c_webkit_notification_get_type :: IO GType++instance GObject Notification where+    gobjectType = c_webkit_notification_get_type+    ++-- | Type class for types which can be safely cast to `Notification`, for instance with `toNotification`.+class (GObject o, O.IsDescendantOf Notification o) => IsNotification o+instance (GObject o, O.IsDescendantOf Notification o) => IsNotification o++instance O.HasParentTypes Notification+type instance O.ParentTypes Notification = '[GObject.Object.Object]++-- | Cast to `Notification`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toNotification :: (MonadIO m, IsNotification o) => o -> m Notification+toNotification = liftIO . unsafeCastTo Notification++-- | A convenience alias for `Nothing` :: `Maybe` `Notification`.+noNotification :: Maybe Notification+noNotification = Nothing++#if ENABLE_OVERLOADING+type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where+    ResolveNotificationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveNotificationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveNotificationMethod "clicked" o = NotificationClickedMethodInfo+    ResolveNotificationMethod "close" o = NotificationCloseMethodInfo+    ResolveNotificationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveNotificationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveNotificationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveNotificationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveNotificationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveNotificationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveNotificationMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveNotificationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveNotificationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveNotificationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveNotificationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveNotificationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveNotificationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveNotificationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveNotificationMethod "getBody" o = NotificationGetBodyMethodInfo+    ResolveNotificationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveNotificationMethod "getId" o = NotificationGetIdMethodInfo+    ResolveNotificationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveNotificationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveNotificationMethod "getTag" o = NotificationGetTagMethodInfo+    ResolveNotificationMethod "getTitle" o = NotificationGetTitleMethodInfo+    ResolveNotificationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveNotificationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveNotificationMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveNotificationMethod t Notification, O.MethodInfo info Notification p) => OL.IsLabel t (Notification -> 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++-- signal Notification::clicked+{- |+Emitted when a notification has been clicked. See 'GI.WebKit2.Objects.Notification.notificationClicked'.++/Since: 2.12/+-}+type NotificationClickedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `NotificationClickedCallback`@.+noNotificationClickedCallback :: Maybe NotificationClickedCallback+noNotificationClickedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_NotificationClickedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_NotificationClickedCallback`.+foreign import ccall "wrapper"+    mk_NotificationClickedCallback :: C_NotificationClickedCallback -> IO (FunPtr C_NotificationClickedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_NotificationClicked :: MonadIO m => NotificationClickedCallback -> m (GClosure C_NotificationClickedCallback)+genClosure_NotificationClicked cb = liftIO $ do+    let cb' = wrap_NotificationClickedCallback cb+    mk_NotificationClickedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `NotificationClickedCallback` into a `C_NotificationClickedCallback`.+wrap_NotificationClickedCallback ::+    NotificationClickedCallback ->+    C_NotificationClickedCallback+wrap_NotificationClickedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@clicked@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' notification #clicked callback+@+-}+onNotificationClicked :: (IsNotification a, MonadIO m) => a -> NotificationClickedCallback -> m SignalHandlerId+onNotificationClicked obj cb = liftIO $ do+    let cb' = wrap_NotificationClickedCallback cb+    cb'' <- mk_NotificationClickedCallback cb'+    connectSignalFunPtr obj "clicked" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@clicked@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' notification #clicked callback+@+-}+afterNotificationClicked :: (IsNotification a, MonadIO m) => a -> NotificationClickedCallback -> m SignalHandlerId+afterNotificationClicked obj cb = liftIO $ do+    let cb' = wrap_NotificationClickedCallback cb+    cb'' <- mk_NotificationClickedCallback cb'+    connectSignalFunPtr obj "clicked" cb'' SignalConnectAfter+++-- signal Notification::closed+{- |+Emitted when a notification has been withdrawn.++The default handler will close the notification using libnotify, if built with+support for it.++/Since: 2.8/+-}+type NotificationClosedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `NotificationClosedCallback`@.+noNotificationClosedCallback :: Maybe NotificationClosedCallback+noNotificationClosedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_NotificationClosedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_NotificationClosedCallback`.+foreign import ccall "wrapper"+    mk_NotificationClosedCallback :: C_NotificationClosedCallback -> IO (FunPtr C_NotificationClosedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_NotificationClosed :: MonadIO m => NotificationClosedCallback -> m (GClosure C_NotificationClosedCallback)+genClosure_NotificationClosed cb = liftIO $ do+    let cb' = wrap_NotificationClosedCallback cb+    mk_NotificationClosedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `NotificationClosedCallback` into a `C_NotificationClosedCallback`.+wrap_NotificationClosedCallback ::+    NotificationClosedCallback ->+    C_NotificationClosedCallback+wrap_NotificationClosedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@closed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' notification #closed callback+@+-}+onNotificationClosed :: (IsNotification a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId+onNotificationClosed obj cb = liftIO $ do+    let cb' = wrap_NotificationClosedCallback cb+    cb'' <- mk_NotificationClosedCallback cb'+    connectSignalFunPtr obj "closed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@closed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' notification #closed callback+@+-}+afterNotificationClosed :: (IsNotification a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId+afterNotificationClosed obj cb = liftIO $ do+    let cb' = wrap_NotificationClosedCallback cb+    cb'' <- mk_NotificationClosedCallback cb'+    connectSignalFunPtr obj "closed" cb'' SignalConnectAfter+++-- VVV Prop "body"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@body@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' notification #body+@+-}+getNotificationBody :: (MonadIO m, IsNotification o) => o -> m T.Text+getNotificationBody obj = liftIO $ checkUnexpectedNothing "getNotificationBody" $ B.Properties.getObjectPropertyString obj "body"++#if ENABLE_OVERLOADING+data NotificationBodyPropertyInfo+instance AttrInfo NotificationBodyPropertyInfo where+    type AttrAllowedOps NotificationBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NotificationBodyPropertyInfo = IsNotification+    type AttrGetType NotificationBodyPropertyInfo = T.Text+    type AttrLabel NotificationBodyPropertyInfo = "body"+    type AttrOrigin NotificationBodyPropertyInfo = Notification+    attrGet _ = getNotificationBody+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "id"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@id@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' notification #id+@+-}+getNotificationId :: (MonadIO m, IsNotification o) => o -> m Word64+getNotificationId obj = liftIO $ B.Properties.getObjectPropertyUInt64 obj "id"++#if ENABLE_OVERLOADING+data NotificationIdPropertyInfo+instance AttrInfo NotificationIdPropertyInfo where+    type AttrAllowedOps NotificationIdPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NotificationIdPropertyInfo = IsNotification+    type AttrGetType NotificationIdPropertyInfo = Word64+    type AttrLabel NotificationIdPropertyInfo = "id"+    type AttrOrigin NotificationIdPropertyInfo = Notification+    attrGet _ = getNotificationId+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "tag"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@tag@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' notification #tag+@+-}+getNotificationTag :: (MonadIO m, IsNotification o) => o -> m (Maybe T.Text)+getNotificationTag obj = liftIO $ B.Properties.getObjectPropertyString obj "tag"++#if ENABLE_OVERLOADING+data NotificationTagPropertyInfo+instance AttrInfo NotificationTagPropertyInfo where+    type AttrAllowedOps NotificationTagPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint NotificationTagPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NotificationTagPropertyInfo = IsNotification+    type AttrGetType NotificationTagPropertyInfo = (Maybe T.Text)+    type AttrLabel NotificationTagPropertyInfo = "tag"+    type AttrOrigin NotificationTagPropertyInfo = Notification+    attrGet _ = getNotificationTag+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@title@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' notification #title+@+-}+getNotificationTitle :: (MonadIO m, IsNotification o) => o -> m T.Text+getNotificationTitle obj = liftIO $ checkUnexpectedNothing "getNotificationTitle" $ B.Properties.getObjectPropertyString obj "title"++#if ENABLE_OVERLOADING+data NotificationTitlePropertyInfo+instance AttrInfo NotificationTitlePropertyInfo where+    type AttrAllowedOps NotificationTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint NotificationTitlePropertyInfo = (~) ()+    type AttrBaseTypeConstraint NotificationTitlePropertyInfo = IsNotification+    type AttrGetType NotificationTitlePropertyInfo = T.Text+    type AttrLabel NotificationTitlePropertyInfo = "title"+    type AttrOrigin NotificationTitlePropertyInfo = Notification+    attrGet _ = getNotificationTitle+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList Notification+type instance O.AttributeList Notification = NotificationAttributeList+type NotificationAttributeList = ('[ '("body", NotificationBodyPropertyInfo), '("id", NotificationIdPropertyInfo), '("tag", NotificationTagPropertyInfo), '("title", NotificationTitlePropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+notificationBody :: AttrLabelProxy "body"+notificationBody = AttrLabelProxy++notificationId :: AttrLabelProxy "id"+notificationId = AttrLabelProxy++notificationTag :: AttrLabelProxy "tag"+notificationTag = AttrLabelProxy++notificationTitle :: AttrLabelProxy "title"+notificationTitle = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data NotificationClickedSignalInfo+instance SignalInfo NotificationClickedSignalInfo where+    type HaskellCallbackType NotificationClickedSignalInfo = NotificationClickedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_NotificationClickedCallback cb+        cb'' <- mk_NotificationClickedCallback cb'+        connectSignalFunPtr obj "clicked" cb'' connectMode++data NotificationClosedSignalInfo+instance SignalInfo NotificationClosedSignalInfo where+    type HaskellCallbackType NotificationClosedSignalInfo = NotificationClosedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_NotificationClosedCallback cb+        cb'' <- mk_NotificationClosedCallback cb'+        connectSignalFunPtr obj "closed" cb'' connectMode++type instance O.SignalList Notification = NotificationSignalList+type NotificationSignalList = ('[ '("clicked", NotificationClickedSignalInfo), '("closed", NotificationClosedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method Notification::clicked+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "WebKit2", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_notification_clicked" webkit_notification_clicked :: +    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "WebKit2", name = "Notification"})+    IO ()++{- |+Tells WebKit the notification has been clicked. This will emit the+'GI.WebKit2.Objects.Notification.Notification'::@/clicked/@ signal.++/Since: 2.12/+-}+notificationClicked ::+    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>+    a+    {- ^ /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -}+    -> m ()+notificationClicked notification = liftIO $ do+    notification' <- unsafeManagedPtrCastPtr notification+    webkit_notification_clicked notification'+    touchManagedPtr notification+    return ()++#if ENABLE_OVERLOADING+data NotificationClickedMethodInfo+instance (signature ~ (m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationClickedMethodInfo a signature where+    overloadedMethod _ = notificationClicked++#endif++-- method Notification::close+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "WebKit2", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_notification_close" webkit_notification_close :: +    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "WebKit2", name = "Notification"})+    IO ()++{- |+Closes the notification.++/Since: 2.8/+-}+notificationClose ::+    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>+    a+    {- ^ /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -}+    -> m ()+notificationClose notification = liftIO $ do+    notification' <- unsafeManagedPtrCastPtr notification+    webkit_notification_close notification'+    touchManagedPtr notification+    return ()++#if ENABLE_OVERLOADING+data NotificationCloseMethodInfo+instance (signature ~ (m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationCloseMethodInfo a signature where+    overloadedMethod _ = notificationClose++#endif++-- method Notification::get_body+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "WebKit2", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_notification_get_body" webkit_notification_get_body :: +    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "WebKit2", name = "Notification"})+    IO CString++{- |+Obtains the body for the notification.++/Since: 2.8/+-}+notificationGetBody ::+    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>+    a+    {- ^ /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -}+    -> m T.Text+    {- ^ __Returns:__ the body for the notification -}+notificationGetBody notification = liftIO $ do+    notification' <- unsafeManagedPtrCastPtr notification+    result <- webkit_notification_get_body notification'+    checkUnexpectedReturnNULL "notificationGetBody" result+    result' <- cstringToText result+    touchManagedPtr notification+    return result'++#if ENABLE_OVERLOADING+data NotificationGetBodyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsNotification a) => O.MethodInfo NotificationGetBodyMethodInfo a signature where+    overloadedMethod _ = notificationGetBody++#endif++-- method Notification::get_id+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "WebKit2", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt64)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_notification_get_id" webkit_notification_get_id :: +    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "WebKit2", name = "Notification"})+    IO Word64++{- |+Obtains the unique id for the notification.++/Since: 2.8/+-}+notificationGetId ::+    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>+    a+    {- ^ /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -}+    -> m Word64+    {- ^ __Returns:__ the unique id for the notification -}+notificationGetId notification = liftIO $ do+    notification' <- unsafeManagedPtrCastPtr notification+    result <- webkit_notification_get_id notification'+    touchManagedPtr notification+    return result++#if ENABLE_OVERLOADING+data NotificationGetIdMethodInfo+instance (signature ~ (m Word64), MonadIO m, IsNotification a) => O.MethodInfo NotificationGetIdMethodInfo a signature where+    overloadedMethod _ = notificationGetId++#endif++-- method Notification::get_tag+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "WebKit2", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_notification_get_tag" webkit_notification_get_tag :: +    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "WebKit2", name = "Notification"})+    IO CString++{- |+Obtains the tag identifier for the notification.++/Since: 2.16/+-}+notificationGetTag ::+    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>+    a+    {- ^ /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the tag for the notification -}+notificationGetTag notification = liftIO $ do+    notification' <- unsafeManagedPtrCastPtr notification+    result <- webkit_notification_get_tag notification'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr notification+    return maybeResult++#if ENABLE_OVERLOADING+data NotificationGetTagMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNotification a) => O.MethodInfo NotificationGetTagMethodInfo a signature where+    overloadedMethod _ = notificationGetTag++#endif++-- method Notification::get_title+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "WebKit2", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_notification_get_title" webkit_notification_get_title :: +    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "WebKit2", name = "Notification"})+    IO CString++{- |+Obtains the title for the notification.++/Since: 2.8/+-}+notificationGetTitle ::+    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>+    a+    {- ^ /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -}+    -> m T.Text+    {- ^ __Returns:__ the title for the notification -}+notificationGetTitle notification = liftIO $ do+    notification' <- unsafeManagedPtrCastPtr notification+    result <- webkit_notification_get_title notification'+    checkUnexpectedReturnNULL "notificationGetTitle" result+    result' <- cstringToText result+    touchManagedPtr notification+    return result'++#if ENABLE_OVERLOADING+data NotificationGetTitleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsNotification a) => O.MethodInfo NotificationGetTitleMethodInfo a signature where+    overloadedMethod _ = notificationGetTitle++#endif++
+ GI/WebKit2/Objects/Notification.hs-boot view
@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.Notification 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++newtype Notification = Notification (ManagedPtr Notification)+instance GObject Notification where+class (GObject o, O.IsDescendantOf Notification o) => IsNotification o+instance (GObject o, O.IsDescendantOf Notification o) => IsNotification o+instance O.HasParentTypes Notification+#if ENABLE_OVERLOADING+data NotificationBodyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data NotificationIdPropertyInfo+#endif+#if ENABLE_OVERLOADING+data NotificationTagPropertyInfo+#endif+#if ENABLE_OVERLOADING+data NotificationTitlePropertyInfo+#endif+#if ENABLE_OVERLOADING+data NotificationClickedSignalInfo+#endif+#if ENABLE_OVERLOADING+data NotificationClosedSignalInfo+#endif+#if ENABLE_OVERLOADING+data NotificationClickedMethodInfo+#endif+#if ENABLE_OVERLOADING+data NotificationCloseMethodInfo+#endif+#if ENABLE_OVERLOADING+data NotificationGetBodyMethodInfo+#endif+#if ENABLE_OVERLOADING+data NotificationGetIdMethodInfo+#endif+#if ENABLE_OVERLOADING+data NotificationGetTagMethodInfo+#endif+#if ENABLE_OVERLOADING+data NotificationGetTitleMethodInfo+#endif
+ GI/WebKit2/Objects/NotificationPermissionRequest.hs view
@@ -0,0 +1,124 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.NotificationPermissionRequest+    ( ++-- * Exported types+    NotificationPermissionRequest(..)       ,+    IsNotificationPermissionRequest         ,+    toNotificationPermissionRequest         ,+    noNotificationPermissionRequest         ,+++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest++-- | Memory-managed wrapper type.+newtype NotificationPermissionRequest = NotificationPermissionRequest (ManagedPtr NotificationPermissionRequest)+foreign import ccall "webkit_notification_permission_request_get_type"+    c_webkit_notification_permission_request_get_type :: IO GType++instance GObject NotificationPermissionRequest where+    gobjectType = c_webkit_notification_permission_request_get_type+    ++-- | Type class for types which can be safely cast to `NotificationPermissionRequest`, for instance with `toNotificationPermissionRequest`.+class (GObject o, O.IsDescendantOf NotificationPermissionRequest o) => IsNotificationPermissionRequest o+instance (GObject o, O.IsDescendantOf NotificationPermissionRequest o) => IsNotificationPermissionRequest o++instance O.HasParentTypes NotificationPermissionRequest+type instance O.ParentTypes NotificationPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]++-- | Cast to `NotificationPermissionRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toNotificationPermissionRequest :: (MonadIO m, IsNotificationPermissionRequest o) => o -> m NotificationPermissionRequest+toNotificationPermissionRequest = liftIO . unsafeCastTo NotificationPermissionRequest++-- | A convenience alias for `Nothing` :: `Maybe` `NotificationPermissionRequest`.+noNotificationPermissionRequest :: Maybe NotificationPermissionRequest+noNotificationPermissionRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveNotificationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveNotificationPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo+    ResolveNotificationPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveNotificationPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveNotificationPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo+    ResolveNotificationPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveNotificationPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveNotificationPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveNotificationPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveNotificationPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveNotificationPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveNotificationPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveNotificationPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveNotificationPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveNotificationPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveNotificationPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveNotificationPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveNotificationPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveNotificationPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveNotificationPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveNotificationPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveNotificationPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveNotificationPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveNotificationPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveNotificationPermissionRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveNotificationPermissionRequestMethod t NotificationPermissionRequest, O.MethodInfo info NotificationPermissionRequest p) => OL.IsLabel t (NotificationPermissionRequest -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList NotificationPermissionRequest+type instance O.AttributeList NotificationPermissionRequest = NotificationPermissionRequestAttributeList+type NotificationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList NotificationPermissionRequest = NotificationPermissionRequestSignalList+type NotificationPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++
+ GI/WebKit2/Objects/NotificationPermissionRequest.hs-boot view
@@ -0,0 +1,29 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.NotificationPermissionRequest 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++newtype NotificationPermissionRequest = NotificationPermissionRequest (ManagedPtr NotificationPermissionRequest)+instance GObject NotificationPermissionRequest where+class (GObject o, O.IsDescendantOf NotificationPermissionRequest o) => IsNotificationPermissionRequest o+instance (GObject o, O.IsDescendantOf NotificationPermissionRequest o) => IsNotificationPermissionRequest o+instance O.HasParentTypes NotificationPermissionRequest
+ GI/WebKit2/Objects/OptionMenu.hs view
@@ -0,0 +1,464 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.OptionMenu+    ( ++-- * Exported types+    OptionMenu(..)                          ,+    IsOptionMenu                            ,+    toOptionMenu                            ,+    noOptionMenu                            ,+++ -- * Methods+-- ** activateItem #method:activateItem#++#if ENABLE_OVERLOADING+    OptionMenuActivateItemMethodInfo        ,+#endif+    optionMenuActivateItem                  ,+++-- ** close #method:close#++#if ENABLE_OVERLOADING+    OptionMenuCloseMethodInfo               ,+#endif+    optionMenuClose                         ,+++-- ** getItem #method:getItem#++#if ENABLE_OVERLOADING+    OptionMenuGetItemMethodInfo             ,+#endif+    optionMenuGetItem                       ,+++-- ** getNItems #method:getNItems#++#if ENABLE_OVERLOADING+    OptionMenuGetNItemsMethodInfo           ,+#endif+    optionMenuGetNItems                     ,+++-- ** selectItem #method:selectItem#++#if ENABLE_OVERLOADING+    OptionMenuSelectItemMethodInfo          ,+#endif+    optionMenuSelectItem                    ,+++++ -- * Signals+-- ** close #signal:close#++    C_OptionMenuCloseCallback               ,+    OptionMenuCloseCallback                 ,+#if ENABLE_OVERLOADING+    OptionMenuCloseSignalInfo               ,+#endif+    afterOptionMenuClose                    ,+    genClosure_OptionMenuClose              ,+    mk_OptionMenuCloseCallback              ,+    noOptionMenuCloseCallback               ,+    onOptionMenuClose                       ,+    wrap_OptionMenuCloseCallback            ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Structs.OptionMenuItem as WebKit2.OptionMenuItem++-- | Memory-managed wrapper type.+newtype OptionMenu = OptionMenu (ManagedPtr OptionMenu)+foreign import ccall "webkit_option_menu_get_type"+    c_webkit_option_menu_get_type :: IO GType++instance GObject OptionMenu where+    gobjectType = c_webkit_option_menu_get_type+    ++-- | Type class for types which can be safely cast to `OptionMenu`, for instance with `toOptionMenu`.+class (GObject o, O.IsDescendantOf OptionMenu o) => IsOptionMenu o+instance (GObject o, O.IsDescendantOf OptionMenu o) => IsOptionMenu o++instance O.HasParentTypes OptionMenu+type instance O.ParentTypes OptionMenu = '[GObject.Object.Object]++-- | Cast to `OptionMenu`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toOptionMenu :: (MonadIO m, IsOptionMenu o) => o -> m OptionMenu+toOptionMenu = liftIO . unsafeCastTo OptionMenu++-- | A convenience alias for `Nothing` :: `Maybe` `OptionMenu`.+noOptionMenu :: Maybe OptionMenu+noOptionMenu = Nothing++#if ENABLE_OVERLOADING+type family ResolveOptionMenuMethod (t :: Symbol) (o :: *) :: * where+    ResolveOptionMenuMethod "activateItem" o = OptionMenuActivateItemMethodInfo+    ResolveOptionMenuMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveOptionMenuMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveOptionMenuMethod "close" o = OptionMenuCloseMethodInfo+    ResolveOptionMenuMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveOptionMenuMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveOptionMenuMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveOptionMenuMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveOptionMenuMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveOptionMenuMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveOptionMenuMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveOptionMenuMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveOptionMenuMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveOptionMenuMethod "selectItem" o = OptionMenuSelectItemMethodInfo+    ResolveOptionMenuMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveOptionMenuMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveOptionMenuMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveOptionMenuMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveOptionMenuMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveOptionMenuMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveOptionMenuMethod "getItem" o = OptionMenuGetItemMethodInfo+    ResolveOptionMenuMethod "getNItems" o = OptionMenuGetNItemsMethodInfo+    ResolveOptionMenuMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveOptionMenuMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveOptionMenuMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveOptionMenuMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveOptionMenuMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveOptionMenuMethod t OptionMenu, O.MethodInfo info OptionMenu p) => OL.IsLabel t (OptionMenu -> 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++-- signal OptionMenu::close+{- |+Emitted when closing a 'GI.WebKit2.Objects.OptionMenu.OptionMenu' is requested. This can happen+when the user explicitly calls 'GI.WebKit2.Objects.OptionMenu.optionMenuClose' or when the+element is detached from the current page.++/Since: 2.18/+-}+type OptionMenuCloseCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `OptionMenuCloseCallback`@.+noOptionMenuCloseCallback :: Maybe OptionMenuCloseCallback+noOptionMenuCloseCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_OptionMenuCloseCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_OptionMenuCloseCallback`.+foreign import ccall "wrapper"+    mk_OptionMenuCloseCallback :: C_OptionMenuCloseCallback -> IO (FunPtr C_OptionMenuCloseCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_OptionMenuClose :: MonadIO m => OptionMenuCloseCallback -> m (GClosure C_OptionMenuCloseCallback)+genClosure_OptionMenuClose cb = liftIO $ do+    let cb' = wrap_OptionMenuCloseCallback cb+    mk_OptionMenuCloseCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `OptionMenuCloseCallback` into a `C_OptionMenuCloseCallback`.+wrap_OptionMenuCloseCallback ::+    OptionMenuCloseCallback ->+    C_OptionMenuCloseCallback+wrap_OptionMenuCloseCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@close@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' optionMenu #close callback+@+-}+onOptionMenuClose :: (IsOptionMenu a, MonadIO m) => a -> OptionMenuCloseCallback -> m SignalHandlerId+onOptionMenuClose obj cb = liftIO $ do+    let cb' = wrap_OptionMenuCloseCallback cb+    cb'' <- mk_OptionMenuCloseCallback cb'+    connectSignalFunPtr obj "close" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@close@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' optionMenu #close callback+@+-}+afterOptionMenuClose :: (IsOptionMenu a, MonadIO m) => a -> OptionMenuCloseCallback -> m SignalHandlerId+afterOptionMenuClose obj cb = liftIO $ do+    let cb' = wrap_OptionMenuCloseCallback cb+    cb'' <- mk_OptionMenuCloseCallback cb'+    connectSignalFunPtr obj "close" cb'' SignalConnectAfter+++#if ENABLE_OVERLOADING+instance O.HasAttributeList OptionMenu+type instance O.AttributeList OptionMenu = OptionMenuAttributeList+type OptionMenuAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+data OptionMenuCloseSignalInfo+instance SignalInfo OptionMenuCloseSignalInfo where+    type HaskellCallbackType OptionMenuCloseSignalInfo = OptionMenuCloseCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_OptionMenuCloseCallback cb+        cb'' <- mk_OptionMenuCloseCallback cb'+        connectSignalFunPtr obj "close" cb'' connectMode++type instance O.SignalList OptionMenu = OptionMenuSignalList+type OptionMenuSignalList = ('[ '("close", OptionMenuCloseSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method OptionMenu::activate_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_activate_item" webkit_option_menu_activate_item :: +    Ptr OptionMenu ->                       -- menu : TInterface (Name {namespace = "WebKit2", name = "OptionMenu"})+    Word32 ->                               -- index : TBasicType TUInt+    IO ()++{- |+Activates the 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' at /@index@/ in /@menu@/. Activating an item changes the value+of the element making the item the active one. You are expected to close the menu with+'GI.WebKit2.Objects.OptionMenu.optionMenuClose' after activating an item, calling this function again will have no+effect.++/Since: 2.18/+-}+optionMenuActivateItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsOptionMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.OptionMenu.OptionMenu' -}+    -> Word32+    {- ^ /@index@/: the index of the item -}+    -> m ()+optionMenuActivateItem menu index = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    webkit_option_menu_activate_item menu' index+    touchManagedPtr menu+    return ()++#if ENABLE_OVERLOADING+data OptionMenuActivateItemMethodInfo+instance (signature ~ (Word32 -> m ()), MonadIO m, IsOptionMenu a) => O.MethodInfo OptionMenuActivateItemMethodInfo a signature where+    overloadedMethod _ = optionMenuActivateItem++#endif++-- method OptionMenu::close+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_close" webkit_option_menu_close :: +    Ptr OptionMenu ->                       -- menu : TInterface (Name {namespace = "WebKit2", name = "OptionMenu"})+    IO ()++{- |+Request to close a 'GI.WebKit2.Objects.OptionMenu.OptionMenu'. This emits WebKitOptionMenu::close signal.+This function should always be called to notify WebKit that the associated+menu has been closed. If the menu is closed and neither 'GI.WebKit2.Objects.OptionMenu.optionMenuSelectItem'+nor 'GI.WebKit2.Objects.OptionMenu.optionMenuActivateItem' have been called, the element value remains+unchanged.++/Since: 2.18/+-}+optionMenuClose ::+    (B.CallStack.HasCallStack, MonadIO m, IsOptionMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.OptionMenu.OptionMenu' -}+    -> m ()+optionMenuClose menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    webkit_option_menu_close menu'+    touchManagedPtr menu+    return ()++#if ENABLE_OVERLOADING+data OptionMenuCloseMethodInfo+instance (signature ~ (m ()), MonadIO m, IsOptionMenu a) => O.MethodInfo OptionMenuCloseMethodInfo a signature where+    overloadedMethod _ = optionMenuClose++#endif++-- method OptionMenu::get_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_get_item" webkit_option_menu_get_item :: +    Ptr OptionMenu ->                       -- menu : TInterface (Name {namespace = "WebKit2", name = "OptionMenu"})+    Word32 ->                               -- index : TBasicType TUInt+    IO (Ptr WebKit2.OptionMenuItem.OptionMenuItem)++{- |+Returns the 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' at /@index@/ in /@menu@/.++/Since: 2.18/+-}+optionMenuGetItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsOptionMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.OptionMenu.OptionMenu' -}+    -> Word32+    {- ^ /@index@/: the index of the item -}+    -> m (Maybe WebKit2.OptionMenuItem.OptionMenuItem)+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' of /@menu@/. -}+optionMenuGetItem menu index = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_option_menu_get_item menu' index+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed WebKit2.OptionMenuItem.OptionMenuItem) result'+        return result''+    touchManagedPtr menu+    return maybeResult++#if ENABLE_OVERLOADING+data OptionMenuGetItemMethodInfo+instance (signature ~ (Word32 -> m (Maybe WebKit2.OptionMenuItem.OptionMenuItem)), MonadIO m, IsOptionMenu a) => O.MethodInfo OptionMenuGetItemMethodInfo a signature where+    overloadedMethod _ = optionMenuGetItem++#endif++-- method OptionMenu::get_n_items+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_get_n_items" webkit_option_menu_get_n_items :: +    Ptr OptionMenu ->                       -- menu : TInterface (Name {namespace = "WebKit2", name = "OptionMenu"})+    IO Word32++{- |+Gets the length of the /@menu@/.++/Since: 2.18/+-}+optionMenuGetNItems ::+    (B.CallStack.HasCallStack, MonadIO m, IsOptionMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.OptionMenu.OptionMenu' -}+    -> m Word32+    {- ^ __Returns:__ the number of 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem'\<!-- -->s in /@menu@/ -}+optionMenuGetNItems menu = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    result <- webkit_option_menu_get_n_items menu'+    touchManagedPtr menu+    return result++#if ENABLE_OVERLOADING+data OptionMenuGetNItemsMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsOptionMenu a) => O.MethodInfo OptionMenuGetNItemsMethodInfo a signature where+    overloadedMethod _ = optionMenuGetNItems++#endif++-- method OptionMenu::select_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_select_item" webkit_option_menu_select_item :: +    Ptr OptionMenu ->                       -- menu : TInterface (Name {namespace = "WebKit2", name = "OptionMenu"})+    Word32 ->                               -- index : TBasicType TUInt+    IO ()++{- |+Selects the 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' at /@index@/ in /@menu@/. Selecting an item changes the+text shown by the combo button, but it doesn\'t change the value of the element. You need to+explicitly activate the item with 'GI.WebKit2.Objects.OptionMenu.optionMenuSelectItem' or close the menu with+'GI.WebKit2.Objects.OptionMenu.optionMenuClose' in which case the currently selected item will be activated.++/Since: 2.18/+-}+optionMenuSelectItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsOptionMenu a) =>+    a+    {- ^ /@menu@/: a 'GI.WebKit2.Objects.OptionMenu.OptionMenu' -}+    -> Word32+    {- ^ /@index@/: the index of the item -}+    -> m ()+optionMenuSelectItem menu index = liftIO $ do+    menu' <- unsafeManagedPtrCastPtr menu+    webkit_option_menu_select_item menu' index+    touchManagedPtr menu+    return ()++#if ENABLE_OVERLOADING+data OptionMenuSelectItemMethodInfo+instance (signature ~ (Word32 -> m ()), MonadIO m, IsOptionMenu a) => O.MethodInfo OptionMenuSelectItemMethodInfo a signature where+    overloadedMethod _ = optionMenuSelectItem++#endif++
+ GI/WebKit2/Objects/OptionMenu.hs-boot view
@@ -0,0 +1,47 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.OptionMenu 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++newtype OptionMenu = OptionMenu (ManagedPtr OptionMenu)+instance GObject OptionMenu where+class (GObject o, O.IsDescendantOf OptionMenu o) => IsOptionMenu o+instance (GObject o, O.IsDescendantOf OptionMenu o) => IsOptionMenu o+instance O.HasParentTypes OptionMenu+#if ENABLE_OVERLOADING+data OptionMenuCloseSignalInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuActivateItemMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuCloseMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuGetItemMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuGetNItemsMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuSelectItemMethodInfo+#endif
+ GI/WebKit2/Objects/Plugin.hs view
@@ -0,0 +1,306 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.Plugin+    ( ++-- * Exported types+    Plugin(..)                              ,+    IsPlugin                                ,+    toPlugin                                ,+    noPlugin                                ,+++ -- * Methods+-- ** getDescription #method:getDescription#++#if ENABLE_OVERLOADING+    PluginGetDescriptionMethodInfo          ,+#endif+    pluginGetDescription                    ,+++-- ** getMimeInfoList #method:getMimeInfoList#++#if ENABLE_OVERLOADING+    PluginGetMimeInfoListMethodInfo         ,+#endif+    pluginGetMimeInfoList                   ,+++-- ** getName #method:getName#++#if ENABLE_OVERLOADING+    PluginGetNameMethodInfo                 ,+#endif+    pluginGetName                           ,+++-- ** getPath #method:getPath#++#if ENABLE_OVERLOADING+    PluginGetPathMethodInfo                 ,+#endif+    pluginGetPath                           ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Structs.MimeInfo as WebKit2.MimeInfo++-- | Memory-managed wrapper type.+newtype Plugin = Plugin (ManagedPtr Plugin)+foreign import ccall "webkit_plugin_get_type"+    c_webkit_plugin_get_type :: IO GType++instance GObject Plugin where+    gobjectType = c_webkit_plugin_get_type+    ++-- | Type class for types which can be safely cast to `Plugin`, for instance with `toPlugin`.+class (GObject o, O.IsDescendantOf Plugin o) => IsPlugin o+instance (GObject o, O.IsDescendantOf Plugin o) => IsPlugin o++instance O.HasParentTypes Plugin+type instance O.ParentTypes Plugin = '[GObject.Object.Object]++-- | Cast to `Plugin`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toPlugin :: (MonadIO m, IsPlugin o) => o -> m Plugin+toPlugin = liftIO . unsafeCastTo Plugin++-- | A convenience alias for `Nothing` :: `Maybe` `Plugin`.+noPlugin :: Maybe Plugin+noPlugin = Nothing++#if ENABLE_OVERLOADING+type family ResolvePluginMethod (t :: Symbol) (o :: *) :: * where+    ResolvePluginMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolvePluginMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolvePluginMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolvePluginMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolvePluginMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolvePluginMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolvePluginMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolvePluginMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolvePluginMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolvePluginMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolvePluginMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolvePluginMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolvePluginMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolvePluginMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolvePluginMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolvePluginMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolvePluginMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolvePluginMethod "getDescription" o = PluginGetDescriptionMethodInfo+    ResolvePluginMethod "getMimeInfoList" o = PluginGetMimeInfoListMethodInfo+    ResolvePluginMethod "getName" o = PluginGetNameMethodInfo+    ResolvePluginMethod "getPath" o = PluginGetPathMethodInfo+    ResolvePluginMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolvePluginMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolvePluginMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolvePluginMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolvePluginMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolvePluginMethod t Plugin, O.MethodInfo info Plugin p) => OL.IsLabel t (Plugin -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList Plugin+type instance O.AttributeList Plugin = PluginAttributeList+type PluginAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList Plugin = PluginSignalList+type PluginSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method Plugin::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "plugin", argType = TInterface (Name {namespace = "WebKit2", name = "Plugin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPlugin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_plugin_get_description" webkit_plugin_get_description :: +    Ptr Plugin ->                           -- plugin : TInterface (Name {namespace = "WebKit2", name = "Plugin"})+    IO CString++{- |+/No description available in the introspection data./+-}+pluginGetDescription ::+    (B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>+    a+    {- ^ /@plugin@/: a 'GI.WebKit2.Objects.Plugin.Plugin' -}+    -> m T.Text+    {- ^ __Returns:__ the description of the plugin. -}+pluginGetDescription plugin = liftIO $ do+    plugin' <- unsafeManagedPtrCastPtr plugin+    result <- webkit_plugin_get_description plugin'+    checkUnexpectedReturnNULL "pluginGetDescription" result+    result' <- cstringToText result+    touchManagedPtr plugin+    return result'++#if ENABLE_OVERLOADING+data PluginGetDescriptionMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetDescriptionMethodInfo a signature where+    overloadedMethod _ = pluginGetDescription++#endif++-- method Plugin::get_mime_info_list+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "plugin", argType = TInterface (Name {namespace = "WebKit2", name = "Plugin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPlugin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "MimeInfo"})))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_plugin_get_mime_info_list" webkit_plugin_get_mime_info_list :: +    Ptr Plugin ->                           -- plugin : TInterface (Name {namespace = "WebKit2", name = "Plugin"})+    IO (Ptr (GList (Ptr WebKit2.MimeInfo.MimeInfo)))++{- |+Get information about MIME types handled by the plugin,+as a list of 'GI.WebKit2.Structs.MimeInfo.MimeInfo'.+-}+pluginGetMimeInfoList ::+    (B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>+    a+    {- ^ /@plugin@/: a 'GI.WebKit2.Objects.Plugin.Plugin' -}+    -> m [WebKit2.MimeInfo.MimeInfo]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Structs.MimeInfo.MimeInfo'. -}+pluginGetMimeInfoList plugin = liftIO $ do+    plugin' <- unsafeManagedPtrCastPtr plugin+    result <- webkit_plugin_get_mime_info_list plugin'+    result' <- unpackGList result+    result'' <- mapM (newBoxed WebKit2.MimeInfo.MimeInfo) result'+    touchManagedPtr plugin+    return result''++#if ENABLE_OVERLOADING+data PluginGetMimeInfoListMethodInfo+instance (signature ~ (m [WebKit2.MimeInfo.MimeInfo]), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetMimeInfoListMethodInfo a signature where+    overloadedMethod _ = pluginGetMimeInfoList++#endif++-- method Plugin::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "plugin", argType = TInterface (Name {namespace = "WebKit2", name = "Plugin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPlugin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_plugin_get_name" webkit_plugin_get_name :: +    Ptr Plugin ->                           -- plugin : TInterface (Name {namespace = "WebKit2", name = "Plugin"})+    IO CString++{- |+/No description available in the introspection data./+-}+pluginGetName ::+    (B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>+    a+    {- ^ /@plugin@/: a 'GI.WebKit2.Objects.Plugin.Plugin' -}+    -> m T.Text+    {- ^ __Returns:__ the name of the plugin. -}+pluginGetName plugin = liftIO $ do+    plugin' <- unsafeManagedPtrCastPtr plugin+    result <- webkit_plugin_get_name plugin'+    checkUnexpectedReturnNULL "pluginGetName" result+    result' <- cstringToText result+    touchManagedPtr plugin+    return result'++#if ENABLE_OVERLOADING+data PluginGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetNameMethodInfo a signature where+    overloadedMethod _ = pluginGetName++#endif++-- method Plugin::get_path+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "plugin", argType = TInterface (Name {namespace = "WebKit2", name = "Plugin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPlugin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_plugin_get_path" webkit_plugin_get_path :: +    Ptr Plugin ->                           -- plugin : TInterface (Name {namespace = "WebKit2", name = "Plugin"})+    IO CString++{- |+/No description available in the introspection data./+-}+pluginGetPath ::+    (B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>+    a+    {- ^ /@plugin@/: a 'GI.WebKit2.Objects.Plugin.Plugin' -}+    -> m T.Text+    {- ^ __Returns:__ the absolute path where the plugin is installed. -}+pluginGetPath plugin = liftIO $ do+    plugin' <- unsafeManagedPtrCastPtr plugin+    result <- webkit_plugin_get_path plugin'+    checkUnexpectedReturnNULL "pluginGetPath" result+    result' <- cstringToText result+    touchManagedPtr plugin+    return result'++#if ENABLE_OVERLOADING+data PluginGetPathMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetPathMethodInfo a signature where+    overloadedMethod _ = pluginGetPath++#endif++
+ GI/WebKit2/Objects/Plugin.hs-boot view
@@ -0,0 +1,41 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.Plugin 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++newtype Plugin = Plugin (ManagedPtr Plugin)+instance GObject Plugin where+class (GObject o, O.IsDescendantOf Plugin o) => IsPlugin o+instance (GObject o, O.IsDescendantOf Plugin o) => IsPlugin o+instance O.HasParentTypes Plugin+#if ENABLE_OVERLOADING+data PluginGetDescriptionMethodInfo+#endif+#if ENABLE_OVERLOADING+data PluginGetMimeInfoListMethodInfo+#endif+#if ENABLE_OVERLOADING+data PluginGetNameMethodInfo+#endif+#if ENABLE_OVERLOADING+data PluginGetPathMethodInfo+#endif
+ GI/WebKit2/Objects/PolicyDecision.hs view
@@ -0,0 +1,251 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.PolicyDecision+    ( ++-- * Exported types+    PolicyDecision(..)                      ,+    IsPolicyDecision                        ,+    toPolicyDecision                        ,+    noPolicyDecision                        ,+++ -- * Methods+-- ** download #method:download#++#if ENABLE_OVERLOADING+    PolicyDecisionDownloadMethodInfo        ,+#endif+    policyDecisionDownload                  ,+++-- ** ignore #method:ignore#++#if ENABLE_OVERLOADING+    PolicyDecisionIgnoreMethodInfo          ,+#endif+    policyDecisionIgnore                    ,+++-- ** use #method:use#++#if ENABLE_OVERLOADING+    PolicyDecisionUseMethodInfo             ,+#endif+    policyDecisionUse                       ,+++++    ) 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.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype PolicyDecision = PolicyDecision (ManagedPtr PolicyDecision)+foreign import ccall "webkit_policy_decision_get_type"+    c_webkit_policy_decision_get_type :: IO GType++instance GObject PolicyDecision where+    gobjectType = c_webkit_policy_decision_get_type+    ++-- | Type class for types which can be safely cast to `PolicyDecision`, for instance with `toPolicyDecision`.+class (GObject o, O.IsDescendantOf PolicyDecision o) => IsPolicyDecision o+instance (GObject o, O.IsDescendantOf PolicyDecision o) => IsPolicyDecision o++instance O.HasParentTypes PolicyDecision+type instance O.ParentTypes PolicyDecision = '[GObject.Object.Object]++-- | Cast to `PolicyDecision`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toPolicyDecision :: (MonadIO m, IsPolicyDecision o) => o -> m PolicyDecision+toPolicyDecision = liftIO . unsafeCastTo PolicyDecision++-- | A convenience alias for `Nothing` :: `Maybe` `PolicyDecision`.+noPolicyDecision :: Maybe PolicyDecision+noPolicyDecision = Nothing++#if ENABLE_OVERLOADING+type family ResolvePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where+    ResolvePolicyDecisionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolvePolicyDecisionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolvePolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo+    ResolvePolicyDecisionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolvePolicyDecisionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolvePolicyDecisionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolvePolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo+    ResolvePolicyDecisionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolvePolicyDecisionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolvePolicyDecisionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolvePolicyDecisionMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolvePolicyDecisionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolvePolicyDecisionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolvePolicyDecisionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolvePolicyDecisionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolvePolicyDecisionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolvePolicyDecisionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolvePolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo+    ResolvePolicyDecisionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolvePolicyDecisionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolvePolicyDecisionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolvePolicyDecisionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolvePolicyDecisionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolvePolicyDecisionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolvePolicyDecisionMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolvePolicyDecisionMethod t PolicyDecision, O.MethodInfo info PolicyDecision p) => OL.IsLabel t (PolicyDecision -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList PolicyDecision+type instance O.AttributeList PolicyDecision = PolicyDecisionAttributeList+type PolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList PolicyDecision = PolicyDecisionSignalList+type PolicyDecisionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method PolicyDecision::download+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "PolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_policy_decision_download" webkit_policy_decision_download :: +    Ptr PolicyDecision ->                   -- decision : TInterface (Name {namespace = "WebKit2", name = "PolicyDecision"})+    IO ()++{- |+Spawn a download from this decision.+-}+policyDecisionDownload ::+    (B.CallStack.HasCallStack, MonadIO m, IsPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' -}+    -> m ()+policyDecisionDownload decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    webkit_policy_decision_download decision'+    touchManagedPtr decision+    return ()++#if ENABLE_OVERLOADING+data PolicyDecisionDownloadMethodInfo+instance (signature ~ (m ()), MonadIO m, IsPolicyDecision a) => O.MethodInfo PolicyDecisionDownloadMethodInfo a signature where+    overloadedMethod _ = policyDecisionDownload++#endif++-- method PolicyDecision::ignore+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "PolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_policy_decision_ignore" webkit_policy_decision_ignore :: +    Ptr PolicyDecision ->                   -- decision : TInterface (Name {namespace = "WebKit2", name = "PolicyDecision"})+    IO ()++{- |+Ignore the action which triggered this decision. For instance, for a+'GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision', this would cancel the request.+-}+policyDecisionIgnore ::+    (B.CallStack.HasCallStack, MonadIO m, IsPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' -}+    -> m ()+policyDecisionIgnore decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    webkit_policy_decision_ignore decision'+    touchManagedPtr decision+    return ()++#if ENABLE_OVERLOADING+data PolicyDecisionIgnoreMethodInfo+instance (signature ~ (m ()), MonadIO m, IsPolicyDecision a) => O.MethodInfo PolicyDecisionIgnoreMethodInfo a signature where+    overloadedMethod _ = policyDecisionIgnore++#endif++-- method PolicyDecision::use+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "PolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_policy_decision_use" webkit_policy_decision_use :: +    Ptr PolicyDecision ->                   -- decision : TInterface (Name {namespace = "WebKit2", name = "PolicyDecision"})+    IO ()++{- |+Accept the action which triggered this decision.+-}+policyDecisionUse ::+    (B.CallStack.HasCallStack, MonadIO m, IsPolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' -}+    -> m ()+policyDecisionUse decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    webkit_policy_decision_use decision'+    touchManagedPtr decision+    return ()++#if ENABLE_OVERLOADING+data PolicyDecisionUseMethodInfo+instance (signature ~ (m ()), MonadIO m, IsPolicyDecision a) => O.MethodInfo PolicyDecisionUseMethodInfo a signature where+    overloadedMethod _ = policyDecisionUse++#endif++
+ GI/WebKit2/Objects/PolicyDecision.hs-boot view
@@ -0,0 +1,38 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.PolicyDecision 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++newtype PolicyDecision = PolicyDecision (ManagedPtr PolicyDecision)+instance GObject PolicyDecision where+class (GObject o, O.IsDescendantOf PolicyDecision o) => IsPolicyDecision o+instance (GObject o, O.IsDescendantOf PolicyDecision o) => IsPolicyDecision o+instance O.HasParentTypes PolicyDecision+#if ENABLE_OVERLOADING+data PolicyDecisionDownloadMethodInfo+#endif+#if ENABLE_OVERLOADING+data PolicyDecisionIgnoreMethodInfo+#endif+#if ENABLE_OVERLOADING+data PolicyDecisionUseMethodInfo+#endif
+ GI/WebKit2/Objects/PrintCustomWidget.hs view
@@ -0,0 +1,582 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.PrintCustomWidget+    ( ++-- * Exported types+    PrintCustomWidget(..)                   ,+    IsPrintCustomWidget                     ,+    toPrintCustomWidget                     ,+    noPrintCustomWidget                     ,+++ -- * Methods+-- ** getTitle #method:getTitle#++#if ENABLE_OVERLOADING+    PrintCustomWidgetGetTitleMethodInfo     ,+#endif+    printCustomWidgetGetTitle               ,+++-- ** getWidget #method:getWidget#++#if ENABLE_OVERLOADING+    PrintCustomWidgetGetWidgetMethodInfo    ,+#endif+    printCustomWidgetGetWidget              ,+++-- ** new #method:new#++    printCustomWidgetNew                    ,+++++ -- * Properties+-- ** title #attr:title#+{- | The title of the custom widget.++/Since: 2.16/+-}+#if ENABLE_OVERLOADING+    PrintCustomWidgetTitlePropertyInfo      ,+#endif+    constructPrintCustomWidgetTitle         ,+    getPrintCustomWidgetTitle               ,+#if ENABLE_OVERLOADING+    printCustomWidgetTitle                  ,+#endif+++-- ** widget #attr:widget#+{- | The custom 'GI.Gtk.Objects.Widget.Widget' that will be embedded in the dialog.++/Since: 2.16/+-}+#if ENABLE_OVERLOADING+    PrintCustomWidgetWidgetPropertyInfo     ,+#endif+    constructPrintCustomWidgetWidget        ,+    getPrintCustomWidgetWidget              ,+#if ENABLE_OVERLOADING+    printCustomWidgetWidget                 ,+#endif+++++ -- * Signals+-- ** apply #signal:apply#++    C_PrintCustomWidgetApplyCallback        ,+    PrintCustomWidgetApplyCallback          ,+#if ENABLE_OVERLOADING+    PrintCustomWidgetApplySignalInfo        ,+#endif+    afterPrintCustomWidgetApply             ,+    genClosure_PrintCustomWidgetApply       ,+    mk_PrintCustomWidgetApplyCallback       ,+    noPrintCustomWidgetApplyCallback        ,+    onPrintCustomWidgetApply                ,+    wrap_PrintCustomWidgetApplyCallback     ,+++-- ** update #signal:update#++    C_PrintCustomWidgetUpdateCallback       ,+    PrintCustomWidgetUpdateCallback         ,+#if ENABLE_OVERLOADING+    PrintCustomWidgetUpdateSignalInfo       ,+#endif+    afterPrintCustomWidgetUpdate            ,+    genClosure_PrintCustomWidgetUpdate      ,+    mk_PrintCustomWidgetUpdateCallback      ,+    noPrintCustomWidgetUpdateCallback       ,+    onPrintCustomWidgetUpdate               ,+    wrap_PrintCustomWidgetUpdateCallback    ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup+import qualified GI.Gtk.Objects.PrintSettings as Gtk.PrintSettings+import qualified GI.Gtk.Objects.Widget as Gtk.Widget++-- | Memory-managed wrapper type.+newtype PrintCustomWidget = PrintCustomWidget (ManagedPtr PrintCustomWidget)+foreign import ccall "webkit_print_custom_widget_get_type"+    c_webkit_print_custom_widget_get_type :: IO GType++instance GObject PrintCustomWidget where+    gobjectType = c_webkit_print_custom_widget_get_type+    ++-- | Type class for types which can be safely cast to `PrintCustomWidget`, for instance with `toPrintCustomWidget`.+class (GObject o, O.IsDescendantOf PrintCustomWidget o) => IsPrintCustomWidget o+instance (GObject o, O.IsDescendantOf PrintCustomWidget o) => IsPrintCustomWidget o++instance O.HasParentTypes PrintCustomWidget+type instance O.ParentTypes PrintCustomWidget = '[GObject.Object.Object]++-- | Cast to `PrintCustomWidget`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toPrintCustomWidget :: (MonadIO m, IsPrintCustomWidget o) => o -> m PrintCustomWidget+toPrintCustomWidget = liftIO . unsafeCastTo PrintCustomWidget++-- | A convenience alias for `Nothing` :: `Maybe` `PrintCustomWidget`.+noPrintCustomWidget :: Maybe PrintCustomWidget+noPrintCustomWidget = Nothing++#if ENABLE_OVERLOADING+type family ResolvePrintCustomWidgetMethod (t :: Symbol) (o :: *) :: * where+    ResolvePrintCustomWidgetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolvePrintCustomWidgetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolvePrintCustomWidgetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolvePrintCustomWidgetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolvePrintCustomWidgetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolvePrintCustomWidgetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolvePrintCustomWidgetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolvePrintCustomWidgetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolvePrintCustomWidgetMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolvePrintCustomWidgetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolvePrintCustomWidgetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolvePrintCustomWidgetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolvePrintCustomWidgetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolvePrintCustomWidgetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolvePrintCustomWidgetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolvePrintCustomWidgetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolvePrintCustomWidgetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolvePrintCustomWidgetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolvePrintCustomWidgetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolvePrintCustomWidgetMethod "getTitle" o = PrintCustomWidgetGetTitleMethodInfo+    ResolvePrintCustomWidgetMethod "getWidget" o = PrintCustomWidgetGetWidgetMethodInfo+    ResolvePrintCustomWidgetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolvePrintCustomWidgetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolvePrintCustomWidgetMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolvePrintCustomWidgetMethod t PrintCustomWidget, O.MethodInfo info PrintCustomWidget p) => OL.IsLabel t (PrintCustomWidget -> 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++-- signal PrintCustomWidget::apply+{- |+Emitted right before the printing will start. You should read the information+from the widget and update the content based on it if necessary. The widget+is not guaranteed to be valid at a later time.++/Since: 2.16/+-}+type PrintCustomWidgetApplyCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintCustomWidgetApplyCallback`@.+noPrintCustomWidgetApplyCallback :: Maybe PrintCustomWidgetApplyCallback+noPrintCustomWidgetApplyCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_PrintCustomWidgetApplyCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_PrintCustomWidgetApplyCallback`.+foreign import ccall "wrapper"+    mk_PrintCustomWidgetApplyCallback :: C_PrintCustomWidgetApplyCallback -> IO (FunPtr C_PrintCustomWidgetApplyCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_PrintCustomWidgetApply :: MonadIO m => PrintCustomWidgetApplyCallback -> m (GClosure C_PrintCustomWidgetApplyCallback)+genClosure_PrintCustomWidgetApply cb = liftIO $ do+    let cb' = wrap_PrintCustomWidgetApplyCallback cb+    mk_PrintCustomWidgetApplyCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `PrintCustomWidgetApplyCallback` into a `C_PrintCustomWidgetApplyCallback`.+wrap_PrintCustomWidgetApplyCallback ::+    PrintCustomWidgetApplyCallback ->+    C_PrintCustomWidgetApplyCallback+wrap_PrintCustomWidgetApplyCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@apply@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' printCustomWidget #apply callback+@+-}+onPrintCustomWidgetApply :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetApplyCallback -> m SignalHandlerId+onPrintCustomWidgetApply obj cb = liftIO $ do+    let cb' = wrap_PrintCustomWidgetApplyCallback cb+    cb'' <- mk_PrintCustomWidgetApplyCallback cb'+    connectSignalFunPtr obj "apply" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@apply@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' printCustomWidget #apply callback+@+-}+afterPrintCustomWidgetApply :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetApplyCallback -> m SignalHandlerId+afterPrintCustomWidgetApply obj cb = liftIO $ do+    let cb' = wrap_PrintCustomWidgetApplyCallback cb+    cb'' <- mk_PrintCustomWidgetApplyCallback cb'+    connectSignalFunPtr obj "apply" cb'' SignalConnectAfter+++-- signal PrintCustomWidget::update+{- |+Emitted after change of selected printer in the dialog. The actual page setup+and print settings are available and the custom widget can actualize itself+according to their values.++/Since: 2.16/+-}+type PrintCustomWidgetUpdateCallback =+    Gtk.PageSetup.PageSetup+    {- ^ /@pageSetup@/: actual page setup -}+    -> Gtk.PrintSettings.PrintSettings+    {- ^ /@printSettings@/: actual print settings -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintCustomWidgetUpdateCallback`@.+noPrintCustomWidgetUpdateCallback :: Maybe PrintCustomWidgetUpdateCallback+noPrintCustomWidgetUpdateCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_PrintCustomWidgetUpdateCallback =+    Ptr () ->                               -- object+    Ptr Gtk.PageSetup.PageSetup ->+    Ptr Gtk.PrintSettings.PrintSettings ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_PrintCustomWidgetUpdateCallback`.+foreign import ccall "wrapper"+    mk_PrintCustomWidgetUpdateCallback :: C_PrintCustomWidgetUpdateCallback -> IO (FunPtr C_PrintCustomWidgetUpdateCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_PrintCustomWidgetUpdate :: MonadIO m => PrintCustomWidgetUpdateCallback -> m (GClosure C_PrintCustomWidgetUpdateCallback)+genClosure_PrintCustomWidgetUpdate cb = liftIO $ do+    let cb' = wrap_PrintCustomWidgetUpdateCallback cb+    mk_PrintCustomWidgetUpdateCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `PrintCustomWidgetUpdateCallback` into a `C_PrintCustomWidgetUpdateCallback`.+wrap_PrintCustomWidgetUpdateCallback ::+    PrintCustomWidgetUpdateCallback ->+    C_PrintCustomWidgetUpdateCallback+wrap_PrintCustomWidgetUpdateCallback _cb _ pageSetup printSettings _ = do+    pageSetup' <- (newObject Gtk.PageSetup.PageSetup) pageSetup+    printSettings' <- (newObject Gtk.PrintSettings.PrintSettings) printSettings+    _cb  pageSetup' printSettings'+++{- |+Connect a signal handler for the “@update@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' printCustomWidget #update callback+@+-}+onPrintCustomWidgetUpdate :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetUpdateCallback -> m SignalHandlerId+onPrintCustomWidgetUpdate obj cb = liftIO $ do+    let cb' = wrap_PrintCustomWidgetUpdateCallback cb+    cb'' <- mk_PrintCustomWidgetUpdateCallback cb'+    connectSignalFunPtr obj "update" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@update@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' printCustomWidget #update callback+@+-}+afterPrintCustomWidgetUpdate :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetUpdateCallback -> m SignalHandlerId+afterPrintCustomWidgetUpdate obj cb = liftIO $ do+    let cb' = wrap_PrintCustomWidgetUpdateCallback cb+    cb'' <- mk_PrintCustomWidgetUpdateCallback cb'+    connectSignalFunPtr obj "update" cb'' SignalConnectAfter+++-- VVV Prop "title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@title@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' printCustomWidget #title+@+-}+getPrintCustomWidgetTitle :: (MonadIO m, IsPrintCustomWidget o) => o -> m T.Text+getPrintCustomWidgetTitle obj = liftIO $ checkUnexpectedNothing "getPrintCustomWidgetTitle" $ B.Properties.getObjectPropertyString obj "title"++{- |+Construct a `GValueConstruct` with valid value for the “@title@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructPrintCustomWidgetTitle :: (IsPrintCustomWidget o) => T.Text -> IO (GValueConstruct o)+constructPrintCustomWidgetTitle val = B.Properties.constructObjectPropertyString "title" (Just val)++#if ENABLE_OVERLOADING+data PrintCustomWidgetTitlePropertyInfo+instance AttrInfo PrintCustomWidgetTitlePropertyInfo where+    type AttrAllowedOps PrintCustomWidgetTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint PrintCustomWidgetTitlePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint PrintCustomWidgetTitlePropertyInfo = IsPrintCustomWidget+    type AttrGetType PrintCustomWidgetTitlePropertyInfo = T.Text+    type AttrLabel PrintCustomWidgetTitlePropertyInfo = "title"+    type AttrOrigin PrintCustomWidgetTitlePropertyInfo = PrintCustomWidget+    attrGet _ = getPrintCustomWidgetTitle+    attrSet _ = undefined+    attrConstruct _ = constructPrintCustomWidgetTitle+    attrClear _ = undefined+#endif++-- VVV Prop "widget"+   -- Type: TInterface (Name {namespace = "Gtk", name = "Widget"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@widget@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' printCustomWidget #widget+@+-}+getPrintCustomWidgetWidget :: (MonadIO m, IsPrintCustomWidget o) => o -> m (Maybe Gtk.Widget.Widget)+getPrintCustomWidgetWidget obj = liftIO $ B.Properties.getObjectPropertyObject obj "widget" Gtk.Widget.Widget++{- |+Construct a `GValueConstruct` with valid value for the “@widget@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructPrintCustomWidgetWidget :: (IsPrintCustomWidget o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)+constructPrintCustomWidgetWidget val = B.Properties.constructObjectPropertyObject "widget" (Just val)++#if ENABLE_OVERLOADING+data PrintCustomWidgetWidgetPropertyInfo+instance AttrInfo PrintCustomWidgetWidgetPropertyInfo where+    type AttrAllowedOps PrintCustomWidgetWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint PrintCustomWidgetWidgetPropertyInfo = Gtk.Widget.IsWidget+    type AttrBaseTypeConstraint PrintCustomWidgetWidgetPropertyInfo = IsPrintCustomWidget+    type AttrGetType PrintCustomWidgetWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)+    type AttrLabel PrintCustomWidgetWidgetPropertyInfo = "widget"+    type AttrOrigin PrintCustomWidgetWidgetPropertyInfo = PrintCustomWidget+    attrGet _ = getPrintCustomWidgetWidget+    attrSet _ = undefined+    attrConstruct _ = constructPrintCustomWidgetWidget+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList PrintCustomWidget+type instance O.AttributeList PrintCustomWidget = PrintCustomWidgetAttributeList+type PrintCustomWidgetAttributeList = ('[ '("title", PrintCustomWidgetTitlePropertyInfo), '("widget", PrintCustomWidgetWidgetPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+printCustomWidgetTitle :: AttrLabelProxy "title"+printCustomWidgetTitle = AttrLabelProxy++printCustomWidgetWidget :: AttrLabelProxy "widget"+printCustomWidgetWidget = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data PrintCustomWidgetApplySignalInfo+instance SignalInfo PrintCustomWidgetApplySignalInfo where+    type HaskellCallbackType PrintCustomWidgetApplySignalInfo = PrintCustomWidgetApplyCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_PrintCustomWidgetApplyCallback cb+        cb'' <- mk_PrintCustomWidgetApplyCallback cb'+        connectSignalFunPtr obj "apply" cb'' connectMode++data PrintCustomWidgetUpdateSignalInfo+instance SignalInfo PrintCustomWidgetUpdateSignalInfo where+    type HaskellCallbackType PrintCustomWidgetUpdateSignalInfo = PrintCustomWidgetUpdateCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_PrintCustomWidgetUpdateCallback cb+        cb'' <- mk_PrintCustomWidgetUpdateCallback cb'+        connectSignalFunPtr obj "update" cb'' connectMode++type instance O.SignalList PrintCustomWidget = PrintCustomWidgetSignalList+type PrintCustomWidgetSignalList = ('[ '("apply", PrintCustomWidgetApplySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("update", PrintCustomWidgetUpdateSignalInfo)] :: [(Symbol, *)])++#endif++-- method PrintCustomWidget::new+-- method type : Constructor+-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a @widget's title", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "PrintCustomWidget"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_custom_widget_new" webkit_print_custom_widget_new :: +    Ptr Gtk.Widget.Widget ->                -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"})+    CString ->                              -- title : TBasicType TUTF8+    IO (Ptr PrintCustomWidget)++{- |+Create a new 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget' with given /@widget@/ and /@title@/. The /@widget@/+ownership is taken and it is destroyed together with the dialog even if this+object could still be alive at that point. You typically want to pass a container+widget with multiple widgets in it.++/Since: 2.16/+-}+printCustomWidgetNew ::+    (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>+    a+    {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -}+    -> T.Text+    {- ^ /@title@/: a /@widget@/\'s title -}+    -> m PrintCustomWidget+    {- ^ __Returns:__ a new 'GI.WebKit2.Objects.PrintOperation.PrintOperation'. -}+printCustomWidgetNew widget title = liftIO $ do+    widget' <- unsafeManagedPtrCastPtr widget+    title' <- textToCString title+    result <- webkit_print_custom_widget_new widget' title'+    checkUnexpectedReturnNULL "printCustomWidgetNew" result+    result' <- (wrapObject PrintCustomWidget) result+    touchManagedPtr widget+    freeMem title'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method PrintCustomWidget::get_title+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_custom_widget", argType = TInterface (Name {namespace = "WebKit2", name = "PrintCustomWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintCustomWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_custom_widget_get_title" webkit_print_custom_widget_get_title :: +    Ptr PrintCustomWidget ->                -- print_custom_widget : TInterface (Name {namespace = "WebKit2", name = "PrintCustomWidget"})+    IO CString++{- |+Return the value of 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget':@/title/@ property for the given+/@printCustomWidget@/ object.++/Since: 2.16/+-}+printCustomWidgetGetTitle ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintCustomWidget a) =>+    a+    {- ^ /@printCustomWidget@/: a 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget' -}+    -> m T.Text+    {- ^ __Returns:__ Title of the /@printCustomWidget@/. -}+printCustomWidgetGetTitle printCustomWidget = liftIO $ do+    printCustomWidget' <- unsafeManagedPtrCastPtr printCustomWidget+    result <- webkit_print_custom_widget_get_title printCustomWidget'+    checkUnexpectedReturnNULL "printCustomWidgetGetTitle" result+    result' <- cstringToText result+    touchManagedPtr printCustomWidget+    return result'++#if ENABLE_OVERLOADING+data PrintCustomWidgetGetTitleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsPrintCustomWidget a) => O.MethodInfo PrintCustomWidgetGetTitleMethodInfo a signature where+    overloadedMethod _ = printCustomWidgetGetTitle++#endif++-- method PrintCustomWidget::get_widget+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_custom_widget", argType = TInterface (Name {namespace = "WebKit2", name = "PrintCustomWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintCustomWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_custom_widget_get_widget" webkit_print_custom_widget_get_widget :: +    Ptr PrintCustomWidget ->                -- print_custom_widget : TInterface (Name {namespace = "WebKit2", name = "PrintCustomWidget"})+    IO (Ptr Gtk.Widget.Widget)++{- |+Return the value of 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget':@/widget/@ property for the given+/@printCustomWidget@/ object. The returned value will always be valid if called+from 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget'::@/apply/@ or 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget'::@/update/@+callbacks, but it will be 'Nothing' if called after the+'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget'::@/apply/@ signal is emitted.++/Since: 2.16/+-}+printCustomWidgetGetWidget ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintCustomWidget a) =>+    a+    {- ^ /@printCustomWidget@/: a 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget' -}+    -> m (Maybe Gtk.Widget.Widget)+    {- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget'. -}+printCustomWidgetGetWidget printCustomWidget = liftIO $ do+    printCustomWidget' <- unsafeManagedPtrCastPtr printCustomWidget+    result <- webkit_print_custom_widget_get_widget printCustomWidget'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Gtk.Widget.Widget) result'+        return result''+    touchManagedPtr printCustomWidget+    return maybeResult++#if ENABLE_OVERLOADING+data PrintCustomWidgetGetWidgetMethodInfo+instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsPrintCustomWidget a) => O.MethodInfo PrintCustomWidgetGetWidgetMethodInfo a signature where+    overloadedMethod _ = printCustomWidgetGetWidget++#endif++
+ GI/WebKit2/Objects/PrintCustomWidget.hs-boot view
@@ -0,0 +1,47 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.PrintCustomWidget 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++newtype PrintCustomWidget = PrintCustomWidget (ManagedPtr PrintCustomWidget)+instance GObject PrintCustomWidget where+class (GObject o, O.IsDescendantOf PrintCustomWidget o) => IsPrintCustomWidget o+instance (GObject o, O.IsDescendantOf PrintCustomWidget o) => IsPrintCustomWidget o+instance O.HasParentTypes PrintCustomWidget+#if ENABLE_OVERLOADING+data PrintCustomWidgetTitlePropertyInfo+#endif+#if ENABLE_OVERLOADING+data PrintCustomWidgetWidgetPropertyInfo+#endif+#if ENABLE_OVERLOADING+data PrintCustomWidgetApplySignalInfo+#endif+#if ENABLE_OVERLOADING+data PrintCustomWidgetUpdateSignalInfo+#endif+#if ENABLE_OVERLOADING+data PrintCustomWidgetGetTitleMethodInfo+#endif+#if ENABLE_OVERLOADING+data PrintCustomWidgetGetWidgetMethodInfo+#endif
+ GI/WebKit2/Objects/PrintOperation.hs view
@@ -0,0 +1,940 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.PrintOperation+    ( ++-- * Exported types+    PrintOperation(..)                      ,+    IsPrintOperation                        ,+    toPrintOperation                        ,+    noPrintOperation                        ,+++ -- * Methods+-- ** getPageSetup #method:getPageSetup#++#if ENABLE_OVERLOADING+    PrintOperationGetPageSetupMethodInfo    ,+#endif+    printOperationGetPageSetup              ,+++-- ** getPrintSettings #method:getPrintSettings#++#if ENABLE_OVERLOADING+    PrintOperationGetPrintSettingsMethodInfo,+#endif+    printOperationGetPrintSettings          ,+++-- ** new #method:new#++    printOperationNew                       ,+++-- ** print #method:print#++#if ENABLE_OVERLOADING+    PrintOperationPrintMethodInfo           ,+#endif+    printOperationPrint                     ,+++-- ** runDialog #method:runDialog#++#if ENABLE_OVERLOADING+    PrintOperationRunDialogMethodInfo       ,+#endif+    printOperationRunDialog                 ,+++-- ** setPageSetup #method:setPageSetup#++#if ENABLE_OVERLOADING+    PrintOperationSetPageSetupMethodInfo    ,+#endif+    printOperationSetPageSetup              ,+++-- ** setPrintSettings #method:setPrintSettings#++#if ENABLE_OVERLOADING+    PrintOperationSetPrintSettingsMethodInfo,+#endif+    printOperationSetPrintSettings          ,+++++ -- * Properties+-- ** pageSetup #attr:pageSetup#+{- | The initial 'GI.Gtk.Objects.PageSetup.PageSetup' for the print operation.+-}+#if ENABLE_OVERLOADING+    PrintOperationPageSetupPropertyInfo     ,+#endif+    constructPrintOperationPageSetup        ,+    getPrintOperationPageSetup              ,+#if ENABLE_OVERLOADING+    printOperationPageSetup                 ,+#endif+    setPrintOperationPageSetup              ,+++-- ** printSettings #attr:printSettings#+{- | The initial 'GI.Gtk.Objects.PrintSettings.PrintSettings' for the print operation.+-}+#if ENABLE_OVERLOADING+    PrintOperationPrintSettingsPropertyInfo ,+#endif+    constructPrintOperationPrintSettings    ,+    getPrintOperationPrintSettings          ,+#if ENABLE_OVERLOADING+    printOperationPrintSettings             ,+#endif+    setPrintOperationPrintSettings          ,+++-- ** webView #attr:webView#+{- | The 'GI.WebKit2.Objects.WebView.WebView' that will be printed.+-}+#if ENABLE_OVERLOADING+    PrintOperationWebViewPropertyInfo       ,+#endif+    constructPrintOperationWebView          ,+    getPrintOperationWebView                ,+#if ENABLE_OVERLOADING+    printOperationWebView                   ,+#endif+++++ -- * Signals+-- ** createCustomWidget #signal:createCustomWidget#++    C_PrintOperationCreateCustomWidgetCallback,+    PrintOperationCreateCustomWidgetCallback,+#if ENABLE_OVERLOADING+    PrintOperationCreateCustomWidgetSignalInfo,+#endif+    afterPrintOperationCreateCustomWidget   ,+    genClosure_PrintOperationCreateCustomWidget,+    mk_PrintOperationCreateCustomWidgetCallback,+    noPrintOperationCreateCustomWidgetCallback,+    onPrintOperationCreateCustomWidget      ,+    wrap_PrintOperationCreateCustomWidgetCallback,+++-- ** failed #signal:failed#++    C_PrintOperationFailedCallback          ,+    PrintOperationFailedCallback            ,+#if ENABLE_OVERLOADING+    PrintOperationFailedSignalInfo          ,+#endif+    afterPrintOperationFailed               ,+    genClosure_PrintOperationFailed         ,+    mk_PrintOperationFailedCallback         ,+    noPrintOperationFailedCallback          ,+    onPrintOperationFailed                  ,+    wrap_PrintOperationFailedCallback       ,+++-- ** finished #signal:finished#++    C_PrintOperationFinishedCallback        ,+    PrintOperationFinishedCallback          ,+#if ENABLE_OVERLOADING+    PrintOperationFinishedSignalInfo        ,+#endif+    afterPrintOperationFinished             ,+    genClosure_PrintOperationFinished       ,+    mk_PrintOperationFinishedCallback       ,+    noPrintOperationFinishedCallback        ,+    onPrintOperationFinished                ,+    wrap_PrintOperationFinishedCallback     ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup+import qualified GI.Gtk.Objects.PrintSettings as Gtk.PrintSettings+import qualified GI.Gtk.Objects.Window as Gtk.Window+import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums+import {-# SOURCE #-} qualified GI.WebKit2.Objects.PrintCustomWidget as WebKit2.PrintCustomWidget+import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView++-- | Memory-managed wrapper type.+newtype PrintOperation = PrintOperation (ManagedPtr PrintOperation)+foreign import ccall "webkit_print_operation_get_type"+    c_webkit_print_operation_get_type :: IO GType++instance GObject PrintOperation where+    gobjectType = c_webkit_print_operation_get_type+    ++-- | Type class for types which can be safely cast to `PrintOperation`, for instance with `toPrintOperation`.+class (GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o+instance (GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o++instance O.HasParentTypes PrintOperation+type instance O.ParentTypes PrintOperation = '[GObject.Object.Object]++-- | Cast to `PrintOperation`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toPrintOperation :: (MonadIO m, IsPrintOperation o) => o -> m PrintOperation+toPrintOperation = liftIO . unsafeCastTo PrintOperation++-- | A convenience alias for `Nothing` :: `Maybe` `PrintOperation`.+noPrintOperation :: Maybe PrintOperation+noPrintOperation = Nothing++#if ENABLE_OVERLOADING+type family ResolvePrintOperationMethod (t :: Symbol) (o :: *) :: * where+    ResolvePrintOperationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolvePrintOperationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolvePrintOperationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolvePrintOperationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolvePrintOperationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolvePrintOperationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolvePrintOperationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolvePrintOperationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolvePrintOperationMethod "print" o = PrintOperationPrintMethodInfo+    ResolvePrintOperationMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolvePrintOperationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolvePrintOperationMethod "runDialog" o = PrintOperationRunDialogMethodInfo+    ResolvePrintOperationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolvePrintOperationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolvePrintOperationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolvePrintOperationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolvePrintOperationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolvePrintOperationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolvePrintOperationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolvePrintOperationMethod "getPageSetup" o = PrintOperationGetPageSetupMethodInfo+    ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo+    ResolvePrintOperationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolvePrintOperationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolvePrintOperationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolvePrintOperationMethod "setPageSetup" o = PrintOperationSetPageSetupMethodInfo+    ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo+    ResolvePrintOperationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolvePrintOperationMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolvePrintOperationMethod t PrintOperation, O.MethodInfo info PrintOperation p) => OL.IsLabel t (PrintOperation -> 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++-- signal PrintOperation::create-custom-widget+{- |+Emitted when displaying the print dialog with 'GI.WebKit2.Objects.PrintOperation.printOperationRunDialog'.+The returned 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget' will be added to the print dialog and+it will be owned by the /@printOperation@/. However, the object is guaranteed+to be alive until the 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget'::@/apply/@ is emitted.++/Since: 2.16/+-}+type PrintOperationCreateCustomWidgetCallback =+    IO WebKit2.PrintCustomWidget.PrintCustomWidget+    {- ^ __Returns:__ A 'GI.WebKit2.Objects.PrintCustomWidget.PrintCustomWidget' that will be embedded in the dialog. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintOperationCreateCustomWidgetCallback`@.+noPrintOperationCreateCustomWidgetCallback :: Maybe PrintOperationCreateCustomWidgetCallback+noPrintOperationCreateCustomWidgetCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_PrintOperationCreateCustomWidgetCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO (Ptr WebKit2.PrintCustomWidget.PrintCustomWidget)++-- | Generate a function pointer callable from C code, from a `C_PrintOperationCreateCustomWidgetCallback`.+foreign import ccall "wrapper"+    mk_PrintOperationCreateCustomWidgetCallback :: C_PrintOperationCreateCustomWidgetCallback -> IO (FunPtr C_PrintOperationCreateCustomWidgetCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_PrintOperationCreateCustomWidget :: MonadIO m => PrintOperationCreateCustomWidgetCallback -> m (GClosure C_PrintOperationCreateCustomWidgetCallback)+genClosure_PrintOperationCreateCustomWidget cb = liftIO $ do+    let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb+    mk_PrintOperationCreateCustomWidgetCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `PrintOperationCreateCustomWidgetCallback` into a `C_PrintOperationCreateCustomWidgetCallback`.+wrap_PrintOperationCreateCustomWidgetCallback ::+    PrintOperationCreateCustomWidgetCallback ->+    C_PrintOperationCreateCustomWidgetCallback+wrap_PrintOperationCreateCustomWidgetCallback _cb _ _ = do+    result <- _cb +    result' <- B.ManagedPtr.disownObject result+    return result'+++{- |+Connect a signal handler for the “@create-custom-widget@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' printOperation #createCustomWidget callback+@+-}+onPrintOperationCreateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId+onPrintOperationCreateCustomWidget obj cb = liftIO $ do+    let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb+    cb'' <- mk_PrintOperationCreateCustomWidgetCallback cb'+    connectSignalFunPtr obj "create-custom-widget" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@create-custom-widget@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' printOperation #createCustomWidget callback+@+-}+afterPrintOperationCreateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId+afterPrintOperationCreateCustomWidget obj cb = liftIO $ do+    let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb+    cb'' <- mk_PrintOperationCreateCustomWidgetCallback cb'+    connectSignalFunPtr obj "create-custom-widget" cb'' SignalConnectAfter+++-- signal PrintOperation::failed+{- |+Emitted when an error occurs while printing. The given /@error@/, of the domain+@/WEBKIT_PRINT_ERROR/@, contains further details of the failure.+The 'GI.WebKit2.Objects.PrintOperation.PrintOperation'::@/finished/@ signal is emitted after this one.+-}+type PrintOperationFailedCallback =+    GError+    {- ^ /@error@/: the 'GError' that was triggered -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintOperationFailedCallback`@.+noPrintOperationFailedCallback :: Maybe PrintOperationFailedCallback+noPrintOperationFailedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_PrintOperationFailedCallback =+    Ptr () ->                               -- object+    Ptr GError ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_PrintOperationFailedCallback`.+foreign import ccall "wrapper"+    mk_PrintOperationFailedCallback :: C_PrintOperationFailedCallback -> IO (FunPtr C_PrintOperationFailedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_PrintOperationFailed :: MonadIO m => PrintOperationFailedCallback -> m (GClosure C_PrintOperationFailedCallback)+genClosure_PrintOperationFailed cb = liftIO $ do+    let cb' = wrap_PrintOperationFailedCallback cb+    mk_PrintOperationFailedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `PrintOperationFailedCallback` into a `C_PrintOperationFailedCallback`.+wrap_PrintOperationFailedCallback ::+    PrintOperationFailedCallback ->+    C_PrintOperationFailedCallback+wrap_PrintOperationFailedCallback _cb _ error_ _ = do+    error_' <- (newBoxed GError) error_+    _cb  error_'+++{- |+Connect a signal handler for the “@failed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' printOperation #failed callback+@+-}+onPrintOperationFailed :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId+onPrintOperationFailed obj cb = liftIO $ do+    let cb' = wrap_PrintOperationFailedCallback cb+    cb'' <- mk_PrintOperationFailedCallback cb'+    connectSignalFunPtr obj "failed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@failed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' printOperation #failed callback+@+-}+afterPrintOperationFailed :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId+afterPrintOperationFailed obj cb = liftIO $ do+    let cb' = wrap_PrintOperationFailedCallback cb+    cb'' <- mk_PrintOperationFailedCallback cb'+    connectSignalFunPtr obj "failed" cb'' SignalConnectAfter+++-- signal PrintOperation::finished+{- |+Emitted when the print operation has finished doing everything+required for printing.+-}+type PrintOperationFinishedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintOperationFinishedCallback`@.+noPrintOperationFinishedCallback :: Maybe PrintOperationFinishedCallback+noPrintOperationFinishedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_PrintOperationFinishedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_PrintOperationFinishedCallback`.+foreign import ccall "wrapper"+    mk_PrintOperationFinishedCallback :: C_PrintOperationFinishedCallback -> IO (FunPtr C_PrintOperationFinishedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_PrintOperationFinished :: MonadIO m => PrintOperationFinishedCallback -> m (GClosure C_PrintOperationFinishedCallback)+genClosure_PrintOperationFinished cb = liftIO $ do+    let cb' = wrap_PrintOperationFinishedCallback cb+    mk_PrintOperationFinishedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `PrintOperationFinishedCallback` into a `C_PrintOperationFinishedCallback`.+wrap_PrintOperationFinishedCallback ::+    PrintOperationFinishedCallback ->+    C_PrintOperationFinishedCallback+wrap_PrintOperationFinishedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@finished@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' printOperation #finished callback+@+-}+onPrintOperationFinished :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId+onPrintOperationFinished obj cb = liftIO $ do+    let cb' = wrap_PrintOperationFinishedCallback cb+    cb'' <- mk_PrintOperationFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@finished@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' printOperation #finished callback+@+-}+afterPrintOperationFinished :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId+afterPrintOperationFinished obj cb = liftIO $ do+    let cb' = wrap_PrintOperationFinishedCallback cb+    cb'' <- mk_PrintOperationFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectAfter+++-- VVV Prop "page-setup"+   -- Type: TInterface (Name {namespace = "Gtk", name = "PageSetup"})+   -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just True,Just False)++{- |+Get the value of the “@page-setup@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' printOperation #pageSetup+@+-}+getPrintOperationPageSetup :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe Gtk.PageSetup.PageSetup)+getPrintOperationPageSetup obj = liftIO $ B.Properties.getObjectPropertyObject obj "page-setup" Gtk.PageSetup.PageSetup++{- |+Set the value of the “@page-setup@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' printOperation [ #pageSetup 'Data.GI.Base.Attributes.:=' value ]+@+-}+setPrintOperationPageSetup :: (MonadIO m, IsPrintOperation o, Gtk.PageSetup.IsPageSetup a) => o -> a -> m ()+setPrintOperationPageSetup obj val = liftIO $ B.Properties.setObjectPropertyObject obj "page-setup" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@page-setup@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructPrintOperationPageSetup :: (IsPrintOperation o, Gtk.PageSetup.IsPageSetup a) => a -> IO (GValueConstruct o)+constructPrintOperationPageSetup val = B.Properties.constructObjectPropertyObject "page-setup" (Just val)++#if ENABLE_OVERLOADING+data PrintOperationPageSetupPropertyInfo+instance AttrInfo PrintOperationPageSetupPropertyInfo where+    type AttrAllowedOps PrintOperationPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint PrintOperationPageSetupPropertyInfo = Gtk.PageSetup.IsPageSetup+    type AttrBaseTypeConstraint PrintOperationPageSetupPropertyInfo = IsPrintOperation+    type AttrGetType PrintOperationPageSetupPropertyInfo = (Maybe Gtk.PageSetup.PageSetup)+    type AttrLabel PrintOperationPageSetupPropertyInfo = "page-setup"+    type AttrOrigin PrintOperationPageSetupPropertyInfo = PrintOperation+    attrGet _ = getPrintOperationPageSetup+    attrSet _ = setPrintOperationPageSetup+    attrConstruct _ = constructPrintOperationPageSetup+    attrClear _ = undefined+#endif++-- VVV Prop "print-settings"+   -- Type: TInterface (Name {namespace = "Gtk", name = "PrintSettings"})+   -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just True,Just False)++{- |+Get the value of the “@print-settings@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' printOperation #printSettings+@+-}+getPrintOperationPrintSettings :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe Gtk.PrintSettings.PrintSettings)+getPrintOperationPrintSettings obj = liftIO $ B.Properties.getObjectPropertyObject obj "print-settings" Gtk.PrintSettings.PrintSettings++{- |+Set the value of the “@print-settings@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' printOperation [ #printSettings 'Data.GI.Base.Attributes.:=' value ]+@+-}+setPrintOperationPrintSettings :: (MonadIO m, IsPrintOperation o, Gtk.PrintSettings.IsPrintSettings a) => o -> a -> m ()+setPrintOperationPrintSettings obj val = liftIO $ B.Properties.setObjectPropertyObject obj "print-settings" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@print-settings@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructPrintOperationPrintSettings :: (IsPrintOperation o, Gtk.PrintSettings.IsPrintSettings a) => a -> IO (GValueConstruct o)+constructPrintOperationPrintSettings val = B.Properties.constructObjectPropertyObject "print-settings" (Just val)++#if ENABLE_OVERLOADING+data PrintOperationPrintSettingsPropertyInfo+instance AttrInfo PrintOperationPrintSettingsPropertyInfo where+    type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings.IsPrintSettings+    type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = IsPrintOperation+    type AttrGetType PrintOperationPrintSettingsPropertyInfo = (Maybe Gtk.PrintSettings.PrintSettings)+    type AttrLabel PrintOperationPrintSettingsPropertyInfo = "print-settings"+    type AttrOrigin PrintOperationPrintSettingsPropertyInfo = PrintOperation+    attrGet _ = getPrintOperationPrintSettings+    attrSet _ = setPrintOperationPrintSettings+    attrConstruct _ = constructPrintOperationPrintSettings+    attrClear _ = undefined+#endif++-- VVV Prop "web-view"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "WebView"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@web-view@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' printOperation #webView+@+-}+getPrintOperationWebView :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe WebKit2.WebView.WebView)+getPrintOperationWebView obj = liftIO $ B.Properties.getObjectPropertyObject obj "web-view" WebKit2.WebView.WebView++{- |+Construct a `GValueConstruct` with valid value for the “@web-view@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructPrintOperationWebView :: (IsPrintOperation o, WebKit2.WebView.IsWebView a) => a -> IO (GValueConstruct o)+constructPrintOperationWebView val = B.Properties.constructObjectPropertyObject "web-view" (Just val)++#if ENABLE_OVERLOADING+data PrintOperationWebViewPropertyInfo+instance AttrInfo PrintOperationWebViewPropertyInfo where+    type AttrAllowedOps PrintOperationWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint PrintOperationWebViewPropertyInfo = WebKit2.WebView.IsWebView+    type AttrBaseTypeConstraint PrintOperationWebViewPropertyInfo = IsPrintOperation+    type AttrGetType PrintOperationWebViewPropertyInfo = (Maybe WebKit2.WebView.WebView)+    type AttrLabel PrintOperationWebViewPropertyInfo = "web-view"+    type AttrOrigin PrintOperationWebViewPropertyInfo = PrintOperation+    attrGet _ = getPrintOperationWebView+    attrSet _ = undefined+    attrConstruct _ = constructPrintOperationWebView+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList PrintOperation+type instance O.AttributeList PrintOperation = PrintOperationAttributeList+type PrintOperationAttributeList = ('[ '("pageSetup", PrintOperationPageSetupPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("webView", PrintOperationWebViewPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+printOperationPageSetup :: AttrLabelProxy "pageSetup"+printOperationPageSetup = AttrLabelProxy++printOperationPrintSettings :: AttrLabelProxy "printSettings"+printOperationPrintSettings = AttrLabelProxy++printOperationWebView :: AttrLabelProxy "webView"+printOperationWebView = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data PrintOperationCreateCustomWidgetSignalInfo+instance SignalInfo PrintOperationCreateCustomWidgetSignalInfo where+    type HaskellCallbackType PrintOperationCreateCustomWidgetSignalInfo = PrintOperationCreateCustomWidgetCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb+        cb'' <- mk_PrintOperationCreateCustomWidgetCallback cb'+        connectSignalFunPtr obj "create-custom-widget" cb'' connectMode++data PrintOperationFailedSignalInfo+instance SignalInfo PrintOperationFailedSignalInfo where+    type HaskellCallbackType PrintOperationFailedSignalInfo = PrintOperationFailedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_PrintOperationFailedCallback cb+        cb'' <- mk_PrintOperationFailedCallback cb'+        connectSignalFunPtr obj "failed" cb'' connectMode++data PrintOperationFinishedSignalInfo+instance SignalInfo PrintOperationFinishedSignalInfo where+    type HaskellCallbackType PrintOperationFinishedSignalInfo = PrintOperationFinishedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_PrintOperationFinishedCallback cb+        cb'' <- mk_PrintOperationFinishedCallback cb'+        connectSignalFunPtr obj "finished" cb'' connectMode++type instance O.SignalList PrintOperation = PrintOperationSignalList+type PrintOperationSignalList = ('[ '("createCustomWidget", PrintOperationCreateCustomWidgetSignalInfo), '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method PrintOperation::new+-- method type : Constructor+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "PrintOperation"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_operation_new" webkit_print_operation_new :: +    Ptr WebKit2.WebView.WebView ->          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr PrintOperation)++{- |+Create a new 'GI.WebKit2.Objects.PrintOperation.PrintOperation' to print /@webView@/ contents.+-}+printOperationNew ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.WebView.IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m PrintOperation+    {- ^ __Returns:__ a new 'GI.WebKit2.Objects.PrintOperation.PrintOperation'. -}+printOperationNew webView = liftIO $ do+    webView' <- unsafeManagedPtrCastPtr webView+    result <- webkit_print_operation_new webView'+    checkUnexpectedReturnNULL "printOperationNew" result+    result' <- (wrapObject PrintOperation) result+    touchManagedPtr webView+    return result'++#if ENABLE_OVERLOADING+#endif++-- method PrintOperation::get_page_setup+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_operation", argType = TInterface (Name {namespace = "WebKit2", name = "PrintOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintOperation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "PageSetup"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_operation_get_page_setup" webkit_print_operation_get_page_setup :: +    Ptr PrintOperation ->                   -- print_operation : TInterface (Name {namespace = "WebKit2", name = "PrintOperation"})+    IO (Ptr Gtk.PageSetup.PageSetup)++{- |+Return the current page setup of /@printOperation@/. It returns 'Nothing' until+either 'GI.WebKit2.Objects.PrintOperation.printOperationSetPageSetup' or 'GI.WebKit2.Objects.PrintOperation.printOperationRunDialog'+have been called.+-}+printOperationGetPageSetup ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>+    a+    {- ^ /@printOperation@/: a 'GI.WebKit2.Objects.PrintOperation.PrintOperation' -}+    -> m (Maybe Gtk.PageSetup.PageSetup)+    {- ^ __Returns:__ the current 'GI.Gtk.Objects.PageSetup.PageSetup' of /@printOperation@/. -}+printOperationGetPageSetup printOperation = liftIO $ do+    printOperation' <- unsafeManagedPtrCastPtr printOperation+    result <- webkit_print_operation_get_page_setup printOperation'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Gtk.PageSetup.PageSetup) result'+        return result''+    touchManagedPtr printOperation+    return maybeResult++#if ENABLE_OVERLOADING+data PrintOperationGetPageSetupMethodInfo+instance (signature ~ (m (Maybe Gtk.PageSetup.PageSetup)), MonadIO m, IsPrintOperation a) => O.MethodInfo PrintOperationGetPageSetupMethodInfo a signature where+    overloadedMethod _ = printOperationGetPageSetup++#endif++-- method PrintOperation::get_print_settings+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_operation", argType = TInterface (Name {namespace = "WebKit2", name = "PrintOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintOperation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "PrintSettings"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_operation_get_print_settings" webkit_print_operation_get_print_settings :: +    Ptr PrintOperation ->                   -- print_operation : TInterface (Name {namespace = "WebKit2", name = "PrintOperation"})+    IO (Ptr Gtk.PrintSettings.PrintSettings)++{- |+Return the current print settings of /@printOperation@/. It returns 'Nothing' until+either 'GI.WebKit2.Objects.PrintOperation.printOperationSetPrintSettings' or 'GI.WebKit2.Objects.PrintOperation.printOperationRunDialog'+have been called.+-}+printOperationGetPrintSettings ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>+    a+    {- ^ /@printOperation@/: a 'GI.WebKit2.Objects.PrintOperation.PrintOperation' -}+    -> m (Maybe Gtk.PrintSettings.PrintSettings)+    {- ^ __Returns:__ the current 'GI.Gtk.Objects.PrintSettings.PrintSettings' of /@printOperation@/. -}+printOperationGetPrintSettings printOperation = liftIO $ do+    printOperation' <- unsafeManagedPtrCastPtr printOperation+    result <- webkit_print_operation_get_print_settings printOperation'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Gtk.PrintSettings.PrintSettings) result'+        return result''+    touchManagedPtr printOperation+    return maybeResult++#if ENABLE_OVERLOADING+data PrintOperationGetPrintSettingsMethodInfo+instance (signature ~ (m (Maybe Gtk.PrintSettings.PrintSettings)), MonadIO m, IsPrintOperation a) => O.MethodInfo PrintOperationGetPrintSettingsMethodInfo a signature where+    overloadedMethod _ = printOperationGetPrintSettings++#endif++-- method PrintOperation::print+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_operation", argType = TInterface (Name {namespace = "WebKit2", name = "PrintOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintOperation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_operation_print" webkit_print_operation_print :: +    Ptr PrintOperation ->                   -- print_operation : TInterface (Name {namespace = "WebKit2", name = "PrintOperation"})+    IO ()++{- |+Start a print operation using current print settings and page setup+without showing the print dialog. If either print settings or page setup+are not set with 'GI.WebKit2.Objects.PrintOperation.printOperationSetPrintSettings' and+'GI.WebKit2.Objects.PrintOperation.printOperationSetPageSetup', the default options will be used+and the print job will be sent to the default printer.+The 'GI.WebKit2.Objects.PrintOperation.PrintOperation'::@/finished/@ signal is emitted when the printing+operation finishes. If an error occurs while printing the signal+'GI.WebKit2.Objects.PrintOperation.PrintOperation'::@/failed/@ is emitted before 'GI.WebKit2.Objects.PrintOperation.PrintOperation'::@/finished/@.+-}+printOperationPrint ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>+    a+    {- ^ /@printOperation@/: a 'GI.WebKit2.Objects.PrintOperation.PrintOperation' -}+    -> m ()+printOperationPrint printOperation = liftIO $ do+    printOperation' <- unsafeManagedPtrCastPtr printOperation+    webkit_print_operation_print printOperation'+    touchManagedPtr printOperation+    return ()++#if ENABLE_OVERLOADING+data PrintOperationPrintMethodInfo+instance (signature ~ (m ()), MonadIO m, IsPrintOperation a) => O.MethodInfo PrintOperationPrintMethodInfo a signature where+    overloadedMethod _ = printOperationPrint++#endif++-- method PrintOperation::run_dialog+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_operation", argType = TInterface (Name {namespace = "WebKit2", name = "PrintOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintOperation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "transient parent of the print dialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "PrintOperationResponse"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_operation_run_dialog" webkit_print_operation_run_dialog :: +    Ptr PrintOperation ->                   -- print_operation : TInterface (Name {namespace = "WebKit2", name = "PrintOperation"})+    Ptr Gtk.Window.Window ->                -- parent : TInterface (Name {namespace = "Gtk", name = "Window"})+    IO CUInt++{- |+Run the print dialog and start printing using the options selected by+the user. This method returns when the print dialog is closed.+If the print dialog is cancelled 'GI.WebKit2.Enums.PrintOperationResponseCancel'+is returned. If the user clicks on the print button, 'GI.WebKit2.Enums.PrintOperationResponsePrint'+is returned and the print operation starts. In this case, the 'GI.WebKit2.Objects.PrintOperation.PrintOperation'::@/finished/@+signal is emitted when the operation finishes. If an error occurs while printing, the signal+'GI.WebKit2.Objects.PrintOperation.PrintOperation'::@/failed/@ is emitted before 'GI.WebKit2.Objects.PrintOperation.PrintOperation'::@/finished/@.+If the print dialog is not cancelled current print settings and page setup of /@printOperation@/+are updated with options selected by the user when Print button is pressed in print dialog.+You can get the updated print settings and page setup by calling+'GI.WebKit2.Objects.PrintOperation.printOperationGetPrintSettings' and 'GI.WebKit2.Objects.PrintOperation.printOperationGetPageSetup'+after this method.+-}+printOperationRunDialog ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.Window.IsWindow b) =>+    a+    {- ^ /@printOperation@/: a 'GI.WebKit2.Objects.PrintOperation.PrintOperation' -}+    -> Maybe (b)+    {- ^ /@parent@/: transient parent of the print dialog -}+    -> m WebKit2.Enums.PrintOperationResponse+    {- ^ __Returns:__ the 'GI.WebKit2.Enums.PrintOperationResponse' of the print dialog -}+printOperationRunDialog printOperation parent = liftIO $ do+    printOperation' <- unsafeManagedPtrCastPtr printOperation+    maybeParent <- case parent of+        Nothing -> return nullPtr+        Just jParent -> do+            jParent' <- unsafeManagedPtrCastPtr jParent+            return jParent'+    result <- webkit_print_operation_run_dialog printOperation' maybeParent+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr printOperation+    whenJust parent touchManagedPtr+    return result'++#if ENABLE_OVERLOADING+data PrintOperationRunDialogMethodInfo+instance (signature ~ (Maybe (b) -> m WebKit2.Enums.PrintOperationResponse), MonadIO m, IsPrintOperation a, Gtk.Window.IsWindow b) => O.MethodInfo PrintOperationRunDialogMethodInfo a signature where+    overloadedMethod _ = printOperationRunDialog++#endif++-- method PrintOperation::set_page_setup+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_operation", argType = TInterface (Name {namespace = "WebKit2", name = "PrintOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintOperation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface (Name {namespace = "Gtk", name = "PageSetup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPageSetup to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_operation_set_page_setup" webkit_print_operation_set_page_setup :: +    Ptr PrintOperation ->                   -- print_operation : TInterface (Name {namespace = "WebKit2", name = "PrintOperation"})+    Ptr Gtk.PageSetup.PageSetup ->          -- page_setup : TInterface (Name {namespace = "Gtk", name = "PageSetup"})+    IO ()++{- |+Set the current page setup of /@printOperation@/. Current page setup is used for the+initial values of the print dialog when 'GI.WebKit2.Objects.PrintOperation.printOperationRunDialog' is called.+-}+printOperationSetPageSetup ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.PageSetup.IsPageSetup b) =>+    a+    {- ^ /@printOperation@/: a 'GI.WebKit2.Objects.PrintOperation.PrintOperation' -}+    -> b+    {- ^ /@pageSetup@/: a 'GI.Gtk.Objects.PageSetup.PageSetup' to set -}+    -> m ()+printOperationSetPageSetup printOperation pageSetup = liftIO $ do+    printOperation' <- unsafeManagedPtrCastPtr printOperation+    pageSetup' <- unsafeManagedPtrCastPtr pageSetup+    webkit_print_operation_set_page_setup printOperation' pageSetup'+    touchManagedPtr printOperation+    touchManagedPtr pageSetup+    return ()++#if ENABLE_OVERLOADING+data PrintOperationSetPageSetupMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsPrintOperation a, Gtk.PageSetup.IsPageSetup b) => O.MethodInfo PrintOperationSetPageSetupMethodInfo a signature where+    overloadedMethod _ = printOperationSetPageSetup++#endif++-- method PrintOperation::set_print_settings+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "print_operation", argType = TInterface (Name {namespace = "WebKit2", name = "PrintOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitPrintOperation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface (Name {namespace = "Gtk", name = "PrintSettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPrintSettings to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_print_operation_set_print_settings" webkit_print_operation_set_print_settings :: +    Ptr PrintOperation ->                   -- print_operation : TInterface (Name {namespace = "WebKit2", name = "PrintOperation"})+    Ptr Gtk.PrintSettings.PrintSettings ->  -- print_settings : TInterface (Name {namespace = "Gtk", name = "PrintSettings"})+    IO ()++{- |+Set the current print settings of /@printOperation@/. Current print settings are used for+the initial values of the print dialog when 'GI.WebKit2.Objects.PrintOperation.printOperationRunDialog' is called.+-}+printOperationSetPrintSettings ::+    (B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.PrintSettings.IsPrintSettings b) =>+    a+    {- ^ /@printOperation@/: a 'GI.WebKit2.Objects.PrintOperation.PrintOperation' -}+    -> b+    {- ^ /@printSettings@/: a 'GI.Gtk.Objects.PrintSettings.PrintSettings' to set -}+    -> m ()+printOperationSetPrintSettings printOperation printSettings = liftIO $ do+    printOperation' <- unsafeManagedPtrCastPtr printOperation+    printSettings' <- unsafeManagedPtrCastPtr printSettings+    webkit_print_operation_set_print_settings printOperation' printSettings'+    touchManagedPtr printOperation+    touchManagedPtr printSettings+    return ()++#if ENABLE_OVERLOADING+data PrintOperationSetPrintSettingsMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsPrintOperation a, Gtk.PrintSettings.IsPrintSettings b) => O.MethodInfo PrintOperationSetPrintSettingsMethodInfo a signature where+    overloadedMethod _ = printOperationSetPrintSettings++#endif++
+ GI/WebKit2/Objects/PrintOperation.hs-boot view
@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.PrintOperation 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++newtype PrintOperation = PrintOperation (ManagedPtr PrintOperation)+instance GObject PrintOperation where+class (GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o+instance (GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o+instance O.HasParentTypes PrintOperation+#if ENABLE_OVERLOADING+data PrintOperationPageSetupPropertyInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationPrintSettingsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationWebViewPropertyInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationCreateCustomWidgetSignalInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationFailedSignalInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationFinishedSignalInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationGetPageSetupMethodInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationGetPrintSettingsMethodInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationPrintMethodInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationRunDialogMethodInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationSetPageSetupMethodInfo+#endif+#if ENABLE_OVERLOADING+data PrintOperationSetPrintSettingsMethodInfo+#endif
+ GI/WebKit2/Objects/ResponsePolicyDecision.hs view
@@ -0,0 +1,369 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.ResponsePolicyDecision+    ( ++-- * Exported types+    ResponsePolicyDecision(..)              ,+    IsResponsePolicyDecision                ,+    toResponsePolicyDecision                ,+    noResponsePolicyDecision                ,+++ -- * Methods+-- ** getRequest #method:getRequest#++#if ENABLE_OVERLOADING+    ResponsePolicyDecisionGetRequestMethodInfo,+#endif+    responsePolicyDecisionGetRequest        ,+++-- ** getResponse #method:getResponse#++#if ENABLE_OVERLOADING+    ResponsePolicyDecisionGetResponseMethodInfo,+#endif+    responsePolicyDecisionGetResponse       ,+++-- ** isMimeTypeSupported #method:isMimeTypeSupported#++#if ENABLE_OVERLOADING+    ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo,+#endif+    responsePolicyDecisionIsMimeTypeSupported,+++++ -- * Properties+-- ** request #attr:request#+{- | This property contains the 'GI.WebKit2.Objects.URIRequest.URIRequest' associated with this+policy decision.+-}+#if ENABLE_OVERLOADING+    ResponsePolicyDecisionRequestPropertyInfo,+#endif+    getResponsePolicyDecisionRequest        ,+#if ENABLE_OVERLOADING+    responsePolicyDecisionRequest           ,+#endif+++-- ** response #attr:response#+{- | This property contains the 'GI.WebKit2.Objects.URIResponse.URIResponse' associated with this+policy decision.+-}+#if ENABLE_OVERLOADING+    ResponsePolicyDecisionResponsePropertyInfo,+#endif+    getResponsePolicyDecisionResponse       ,+#if ENABLE_OVERLOADING+    responsePolicyDecisionResponse          ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Objects.PolicyDecision as WebKit2.PolicyDecision+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIRequest as WebKit2.URIRequest+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIResponse as WebKit2.URIResponse++-- | Memory-managed wrapper type.+newtype ResponsePolicyDecision = ResponsePolicyDecision (ManagedPtr ResponsePolicyDecision)+foreign import ccall "webkit_response_policy_decision_get_type"+    c_webkit_response_policy_decision_get_type :: IO GType++instance GObject ResponsePolicyDecision where+    gobjectType = c_webkit_response_policy_decision_get_type+    ++-- | Type class for types which can be safely cast to `ResponsePolicyDecision`, for instance with `toResponsePolicyDecision`.+class (GObject o, O.IsDescendantOf ResponsePolicyDecision o) => IsResponsePolicyDecision o+instance (GObject o, O.IsDescendantOf ResponsePolicyDecision o) => IsResponsePolicyDecision o++instance O.HasParentTypes ResponsePolicyDecision+type instance O.ParentTypes ResponsePolicyDecision = '[WebKit2.PolicyDecision.PolicyDecision, GObject.Object.Object]++-- | Cast to `ResponsePolicyDecision`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toResponsePolicyDecision :: (MonadIO m, IsResponsePolicyDecision o) => o -> m ResponsePolicyDecision+toResponsePolicyDecision = liftIO . unsafeCastTo ResponsePolicyDecision++-- | A convenience alias for `Nothing` :: `Maybe` `ResponsePolicyDecision`.+noResponsePolicyDecision :: Maybe ResponsePolicyDecision+noResponsePolicyDecision = Nothing++#if ENABLE_OVERLOADING+type family ResolveResponsePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where+    ResolveResponsePolicyDecisionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveResponsePolicyDecisionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveResponsePolicyDecisionMethod "download" o = WebKit2.PolicyDecision.PolicyDecisionDownloadMethodInfo+    ResolveResponsePolicyDecisionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveResponsePolicyDecisionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveResponsePolicyDecisionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveResponsePolicyDecisionMethod "ignore" o = WebKit2.PolicyDecision.PolicyDecisionIgnoreMethodInfo+    ResolveResponsePolicyDecisionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveResponsePolicyDecisionMethod "isMimeTypeSupported" o = ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo+    ResolveResponsePolicyDecisionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveResponsePolicyDecisionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveResponsePolicyDecisionMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveResponsePolicyDecisionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveResponsePolicyDecisionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveResponsePolicyDecisionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveResponsePolicyDecisionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveResponsePolicyDecisionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveResponsePolicyDecisionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveResponsePolicyDecisionMethod "use" o = WebKit2.PolicyDecision.PolicyDecisionUseMethodInfo+    ResolveResponsePolicyDecisionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveResponsePolicyDecisionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveResponsePolicyDecisionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveResponsePolicyDecisionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveResponsePolicyDecisionMethod "getRequest" o = ResponsePolicyDecisionGetRequestMethodInfo+    ResolveResponsePolicyDecisionMethod "getResponse" o = ResponsePolicyDecisionGetResponseMethodInfo+    ResolveResponsePolicyDecisionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveResponsePolicyDecisionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveResponsePolicyDecisionMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, O.MethodInfo info ResponsePolicyDecision p) => OL.IsLabel t (ResponsePolicyDecision -> 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++-- VVV Prop "request"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "URIRequest"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@request@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' responsePolicyDecision #request+@+-}+getResponsePolicyDecisionRequest :: (MonadIO m, IsResponsePolicyDecision o) => o -> m WebKit2.URIRequest.URIRequest+getResponsePolicyDecisionRequest obj = liftIO $ checkUnexpectedNothing "getResponsePolicyDecisionRequest" $ B.Properties.getObjectPropertyObject obj "request" WebKit2.URIRequest.URIRequest++#if ENABLE_OVERLOADING+data ResponsePolicyDecisionRequestPropertyInfo+instance AttrInfo ResponsePolicyDecisionRequestPropertyInfo where+    type AttrAllowedOps ResponsePolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) ()+    type AttrBaseTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = IsResponsePolicyDecision+    type AttrGetType ResponsePolicyDecisionRequestPropertyInfo = WebKit2.URIRequest.URIRequest+    type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "request"+    type AttrOrigin ResponsePolicyDecisionRequestPropertyInfo = ResponsePolicyDecision+    attrGet _ = getResponsePolicyDecisionRequest+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "response"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@response@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' responsePolicyDecision #response+@+-}+getResponsePolicyDecisionResponse :: (MonadIO m, IsResponsePolicyDecision o) => o -> m WebKit2.URIResponse.URIResponse+getResponsePolicyDecisionResponse obj = liftIO $ checkUnexpectedNothing "getResponsePolicyDecisionResponse" $ B.Properties.getObjectPropertyObject obj "response" WebKit2.URIResponse.URIResponse++#if ENABLE_OVERLOADING+data ResponsePolicyDecisionResponsePropertyInfo+instance AttrInfo ResponsePolicyDecisionResponsePropertyInfo where+    type AttrAllowedOps ResponsePolicyDecisionResponsePropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) ()+    type AttrBaseTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = IsResponsePolicyDecision+    type AttrGetType ResponsePolicyDecisionResponsePropertyInfo = WebKit2.URIResponse.URIResponse+    type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "response"+    type AttrOrigin ResponsePolicyDecisionResponsePropertyInfo = ResponsePolicyDecision+    attrGet _ = getResponsePolicyDecisionResponse+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList ResponsePolicyDecision+type instance O.AttributeList ResponsePolicyDecision = ResponsePolicyDecisionAttributeList+type ResponsePolicyDecisionAttributeList = ('[ '("request", ResponsePolicyDecisionRequestPropertyInfo), '("response", ResponsePolicyDecisionResponsePropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+responsePolicyDecisionRequest :: AttrLabelProxy "request"+responsePolicyDecisionRequest = AttrLabelProxy++responsePolicyDecisionResponse :: AttrLabelProxy "response"+responsePolicyDecisionResponse = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList ResponsePolicyDecision = ResponsePolicyDecisionSignalList+type ResponsePolicyDecisionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method ResponsePolicyDecision::get_request+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "ResponsePolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitResponsePolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIRequest"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_response_policy_decision_get_request" webkit_response_policy_decision_get_request :: +    Ptr ResponsePolicyDecision ->           -- decision : TInterface (Name {namespace = "WebKit2", name = "ResponsePolicyDecision"})+    IO (Ptr WebKit2.URIRequest.URIRequest)++{- |+Return the 'GI.WebKit2.Objects.URIRequest.URIRequest' associated with the response decision.+Modifications to the returned object are \<emphasis>not\<\/emphasis> taken+into account when the request is sent over the network, and is intended+only to aid in evaluating whether a response decision should be taken or+not. To modify requests before they are sent over the network the+@/WebKitPage::send-request/@ signal can be used instead.+-}+responsePolicyDecisionGetRequest ::+    (B.CallStack.HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision' -}+    -> m WebKit2.URIRequest.URIRequest+    {- ^ __Returns:__ The URI request that is associated with this policy decision. -}+responsePolicyDecisionGetRequest decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_response_policy_decision_get_request decision'+    checkUnexpectedReturnNULL "responsePolicyDecisionGetRequest" result+    result' <- (newObject WebKit2.URIRequest.URIRequest) result+    touchManagedPtr decision+    return result'++#if ENABLE_OVERLOADING+data ResponsePolicyDecisionGetRequestMethodInfo+instance (signature ~ (m WebKit2.URIRequest.URIRequest), MonadIO m, IsResponsePolicyDecision a) => O.MethodInfo ResponsePolicyDecisionGetRequestMethodInfo a signature where+    overloadedMethod _ = responsePolicyDecisionGetRequest++#endif++-- method ResponsePolicyDecision::get_response+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "ResponsePolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitResponsePolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIResponse"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_response_policy_decision_get_response" webkit_response_policy_decision_get_response :: +    Ptr ResponsePolicyDecision ->           -- decision : TInterface (Name {namespace = "WebKit2", name = "ResponsePolicyDecision"})+    IO (Ptr WebKit2.URIResponse.URIResponse)++{- |+Gets the value of the 'GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision':@/response/@ property.+-}+responsePolicyDecisionGetResponse ::+    (B.CallStack.HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision' -}+    -> m WebKit2.URIResponse.URIResponse+    {- ^ __Returns:__ The URI response that is associated with this policy decision. -}+responsePolicyDecisionGetResponse decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_response_policy_decision_get_response decision'+    checkUnexpectedReturnNULL "responsePolicyDecisionGetResponse" result+    result' <- (newObject WebKit2.URIResponse.URIResponse) result+    touchManagedPtr decision+    return result'++#if ENABLE_OVERLOADING+data ResponsePolicyDecisionGetResponseMethodInfo+instance (signature ~ (m WebKit2.URIResponse.URIResponse), MonadIO m, IsResponsePolicyDecision a) => O.MethodInfo ResponsePolicyDecisionGetResponseMethodInfo a signature where+    overloadedMethod _ = responsePolicyDecisionGetResponse++#endif++-- method ResponsePolicyDecision::is_mime_type_supported+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "decision", argType = TInterface (Name {namespace = "WebKit2", name = "ResponsePolicyDecision"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitResponsePolicyDecision", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_response_policy_decision_is_mime_type_supported" webkit_response_policy_decision_is_mime_type_supported :: +    Ptr ResponsePolicyDecision ->           -- decision : TInterface (Name {namespace = "WebKit2", name = "ResponsePolicyDecision"})+    IO CInt++{- |+Gets whether the MIME type of the response can be displayed in the 'GI.WebKit2.Objects.WebView.WebView'+that triggered this policy decision request. See also 'GI.WebKit2.Objects.WebView.webViewCanShowMimeType'.++/Since: 2.4/+-}+responsePolicyDecisionIsMimeTypeSupported ::+    (B.CallStack.HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>+    a+    {- ^ /@decision@/: a 'GI.WebKit2.Objects.ResponsePolicyDecision.ResponsePolicyDecision' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the MIME type of the response is supported or 'False' otherwise -}+responsePolicyDecisionIsMimeTypeSupported decision = liftIO $ do+    decision' <- unsafeManagedPtrCastPtr decision+    result <- webkit_response_policy_decision_is_mime_type_supported decision'+    let result' = (/= 0) result+    touchManagedPtr decision+    return result'++#if ENABLE_OVERLOADING+data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsResponsePolicyDecision a) => O.MethodInfo ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo a signature where+    overloadedMethod _ = responsePolicyDecisionIsMimeTypeSupported++#endif++
+ GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot view
@@ -0,0 +1,44 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.ResponsePolicyDecision 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++newtype ResponsePolicyDecision = ResponsePolicyDecision (ManagedPtr ResponsePolicyDecision)+instance GObject ResponsePolicyDecision where+class (GObject o, O.IsDescendantOf ResponsePolicyDecision o) => IsResponsePolicyDecision o+instance (GObject o, O.IsDescendantOf ResponsePolicyDecision o) => IsResponsePolicyDecision o+instance O.HasParentTypes ResponsePolicyDecision+#if ENABLE_OVERLOADING+data ResponsePolicyDecisionRequestPropertyInfo+#endif+#if ENABLE_OVERLOADING+data ResponsePolicyDecisionResponsePropertyInfo+#endif+#if ENABLE_OVERLOADING+data ResponsePolicyDecisionGetRequestMethodInfo+#endif+#if ENABLE_OVERLOADING+data ResponsePolicyDecisionGetResponseMethodInfo+#endif+#if ENABLE_OVERLOADING+data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo+#endif
+ GI/WebKit2/Objects/SecurityManager.hs view
@@ -0,0 +1,714 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.SecurityManager+    ( ++-- * Exported types+    SecurityManager(..)                     ,+    IsSecurityManager                       ,+    toSecurityManager                       ,+    noSecurityManager                       ,+++ -- * Methods+-- ** registerUriSchemeAsCorsEnabled #method:registerUriSchemeAsCorsEnabled#++#if ENABLE_OVERLOADING+    SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo,+#endif+    securityManagerRegisterUriSchemeAsCorsEnabled,+++-- ** registerUriSchemeAsDisplayIsolated #method:registerUriSchemeAsDisplayIsolated#++#if ENABLE_OVERLOADING+    SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo,+#endif+    securityManagerRegisterUriSchemeAsDisplayIsolated,+++-- ** registerUriSchemeAsEmptyDocument #method:registerUriSchemeAsEmptyDocument#++#if ENABLE_OVERLOADING+    SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo,+#endif+    securityManagerRegisterUriSchemeAsEmptyDocument,+++-- ** registerUriSchemeAsLocal #method:registerUriSchemeAsLocal#++#if ENABLE_OVERLOADING+    SecurityManagerRegisterUriSchemeAsLocalMethodInfo,+#endif+    securityManagerRegisterUriSchemeAsLocal ,+++-- ** registerUriSchemeAsNoAccess #method:registerUriSchemeAsNoAccess#++#if ENABLE_OVERLOADING+    SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo,+#endif+    securityManagerRegisterUriSchemeAsNoAccess,+++-- ** registerUriSchemeAsSecure #method:registerUriSchemeAsSecure#++#if ENABLE_OVERLOADING+    SecurityManagerRegisterUriSchemeAsSecureMethodInfo,+#endif+    securityManagerRegisterUriSchemeAsSecure,+++-- ** uriSchemeIsCorsEnabled #method:uriSchemeIsCorsEnabled#++#if ENABLE_OVERLOADING+    SecurityManagerUriSchemeIsCorsEnabledMethodInfo,+#endif+    securityManagerUriSchemeIsCorsEnabled   ,+++-- ** uriSchemeIsDisplayIsolated #method:uriSchemeIsDisplayIsolated#++#if ENABLE_OVERLOADING+    SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo,+#endif+    securityManagerUriSchemeIsDisplayIsolated,+++-- ** uriSchemeIsEmptyDocument #method:uriSchemeIsEmptyDocument#++#if ENABLE_OVERLOADING+    SecurityManagerUriSchemeIsEmptyDocumentMethodInfo,+#endif+    securityManagerUriSchemeIsEmptyDocument ,+++-- ** uriSchemeIsLocal #method:uriSchemeIsLocal#++#if ENABLE_OVERLOADING+    SecurityManagerUriSchemeIsLocalMethodInfo,+#endif+    securityManagerUriSchemeIsLocal         ,+++-- ** uriSchemeIsNoAccess #method:uriSchemeIsNoAccess#++#if ENABLE_OVERLOADING+    SecurityManagerUriSchemeIsNoAccessMethodInfo,+#endif+    securityManagerUriSchemeIsNoAccess      ,+++-- ** uriSchemeIsSecure #method:uriSchemeIsSecure#++#if ENABLE_OVERLOADING+    SecurityManagerUriSchemeIsSecureMethodInfo,+#endif+    securityManagerUriSchemeIsSecure        ,+++++    ) 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.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype SecurityManager = SecurityManager (ManagedPtr SecurityManager)+foreign import ccall "webkit_security_manager_get_type"+    c_webkit_security_manager_get_type :: IO GType++instance GObject SecurityManager where+    gobjectType = c_webkit_security_manager_get_type+    ++-- | Type class for types which can be safely cast to `SecurityManager`, for instance with `toSecurityManager`.+class (GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o+instance (GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o++instance O.HasParentTypes SecurityManager+type instance O.ParentTypes SecurityManager = '[GObject.Object.Object]++-- | Cast to `SecurityManager`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toSecurityManager :: (MonadIO m, IsSecurityManager o) => o -> m SecurityManager+toSecurityManager = liftIO . unsafeCastTo SecurityManager++-- | A convenience alias for `Nothing` :: `Maybe` `SecurityManager`.+noSecurityManager :: Maybe SecurityManager+noSecurityManager = Nothing++#if ENABLE_OVERLOADING+type family ResolveSecurityManagerMethod (t :: Symbol) (o :: *) :: * where+    ResolveSecurityManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveSecurityManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveSecurityManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveSecurityManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveSecurityManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveSecurityManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveSecurityManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveSecurityManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveSecurityManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveSecurityManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveSecurityManagerMethod "registerUriSchemeAsCorsEnabled" o = SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo+    ResolveSecurityManagerMethod "registerUriSchemeAsDisplayIsolated" o = SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo+    ResolveSecurityManagerMethod "registerUriSchemeAsEmptyDocument" o = SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo+    ResolveSecurityManagerMethod "registerUriSchemeAsLocal" o = SecurityManagerRegisterUriSchemeAsLocalMethodInfo+    ResolveSecurityManagerMethod "registerUriSchemeAsNoAccess" o = SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo+    ResolveSecurityManagerMethod "registerUriSchemeAsSecure" o = SecurityManagerRegisterUriSchemeAsSecureMethodInfo+    ResolveSecurityManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveSecurityManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveSecurityManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveSecurityManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveSecurityManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveSecurityManagerMethod "uriSchemeIsCorsEnabled" o = SecurityManagerUriSchemeIsCorsEnabledMethodInfo+    ResolveSecurityManagerMethod "uriSchemeIsDisplayIsolated" o = SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo+    ResolveSecurityManagerMethod "uriSchemeIsEmptyDocument" o = SecurityManagerUriSchemeIsEmptyDocumentMethodInfo+    ResolveSecurityManagerMethod "uriSchemeIsLocal" o = SecurityManagerUriSchemeIsLocalMethodInfo+    ResolveSecurityManagerMethod "uriSchemeIsNoAccess" o = SecurityManagerUriSchemeIsNoAccessMethodInfo+    ResolveSecurityManagerMethod "uriSchemeIsSecure" o = SecurityManagerUriSchemeIsSecureMethodInfo+    ResolveSecurityManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveSecurityManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveSecurityManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveSecurityManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveSecurityManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveSecurityManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveSecurityManagerMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveSecurityManagerMethod t SecurityManager, O.MethodInfo info SecurityManager p) => OL.IsLabel t (SecurityManager -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList SecurityManager+type instance O.AttributeList SecurityManager = SecurityManagerAttributeList+type SecurityManagerAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList SecurityManager = SecurityManagerSignalList+type SecurityManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method SecurityManager::register_uri_scheme_as_cors_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_register_uri_scheme_as_cors_enabled" webkit_security_manager_register_uri_scheme_as_cors_enabled :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()++{- |+Register /@scheme@/ as a CORS (Cross-origin resource sharing) enabled scheme.+This means that CORS requests are allowed. See W3C CORS specification+http:\/\/www.w3.org\/TR\/cors\/.+-}+securityManagerRegisterUriSchemeAsCorsEnabled ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m ()+securityManagerRegisterUriSchemeAsCorsEnabled securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_cors_enabled securityManager' scheme'+    touchManagedPtr securityManager+    freeMem scheme'+    return ()++#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo a signature where+    overloadedMethod _ = securityManagerRegisterUriSchemeAsCorsEnabled++#endif++-- method SecurityManager::register_uri_scheme_as_display_isolated+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_register_uri_scheme_as_display_isolated" webkit_security_manager_register_uri_scheme_as_display_isolated :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()++{- |+Register /@scheme@/ as a display isolated scheme. This means that pages cannot+display these URIs unless they are from the same scheme.+-}+securityManagerRegisterUriSchemeAsDisplayIsolated ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m ()+securityManagerRegisterUriSchemeAsDisplayIsolated securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_display_isolated securityManager' scheme'+    touchManagedPtr securityManager+    freeMem scheme'+    return ()++#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo a signature where+    overloadedMethod _ = securityManagerRegisterUriSchemeAsDisplayIsolated++#endif++-- method SecurityManager::register_uri_scheme_as_empty_document+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_register_uri_scheme_as_empty_document" webkit_security_manager_register_uri_scheme_as_empty_document :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()++{- |+Register /@scheme@/ as an empty document scheme. This means that+they are allowed to commit synchronously.+-}+securityManagerRegisterUriSchemeAsEmptyDocument ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m ()+securityManagerRegisterUriSchemeAsEmptyDocument securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_empty_document securityManager' scheme'+    touchManagedPtr securityManager+    freeMem scheme'+    return ()++#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo a signature where+    overloadedMethod _ = securityManagerRegisterUriSchemeAsEmptyDocument++#endif++-- method SecurityManager::register_uri_scheme_as_local+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_register_uri_scheme_as_local" webkit_security_manager_register_uri_scheme_as_local :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()++{- |+Register /@scheme@/ as a local scheme. This means that other non-local pages+cannot link to or access URIs of this scheme.+-}+securityManagerRegisterUriSchemeAsLocal ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m ()+securityManagerRegisterUriSchemeAsLocal securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_local securityManager' scheme'+    touchManagedPtr securityManager+    freeMem scheme'+    return ()++#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsLocalMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsLocalMethodInfo a signature where+    overloadedMethod _ = securityManagerRegisterUriSchemeAsLocal++#endif++-- method SecurityManager::register_uri_scheme_as_no_access+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_register_uri_scheme_as_no_access" webkit_security_manager_register_uri_scheme_as_no_access :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()++{- |+Register /@scheme@/ as a no-access scheme. This means that pages loaded+with this URI scheme cannot access pages loaded with any other URI scheme.+-}+securityManagerRegisterUriSchemeAsNoAccess ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m ()+securityManagerRegisterUriSchemeAsNoAccess securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_no_access securityManager' scheme'+    touchManagedPtr securityManager+    freeMem scheme'+    return ()++#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo a signature where+    overloadedMethod _ = securityManagerRegisterUriSchemeAsNoAccess++#endif++-- method SecurityManager::register_uri_scheme_as_secure+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_register_uri_scheme_as_secure" webkit_security_manager_register_uri_scheme_as_secure :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()++{- |+Register /@scheme@/ as a secure scheme. This means that mixed+content warnings won\'t be generated for this scheme when+included by an HTTPS page.+-}+securityManagerRegisterUriSchemeAsSecure ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m ()+securityManagerRegisterUriSchemeAsSecure securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_secure securityManager' scheme'+    touchManagedPtr securityManager+    freeMem scheme'+    return ()++#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsSecureMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsSecureMethodInfo a signature where+    overloadedMethod _ = securityManagerRegisterUriSchemeAsSecure++#endif++-- method SecurityManager::uri_scheme_is_cors_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_uri_scheme_is_cors_enabled" webkit_security_manager_uri_scheme_is_cors_enabled :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt++{- |+Whether /@scheme@/ is considered as a CORS enabled scheme.+See also 'GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsCorsEnabled'.+-}+securityManagerUriSchemeIsCorsEnabled ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@scheme@/ is a CORS enabled scheme or 'False' otherwise. -}+securityManagerUriSchemeIsCorsEnabled securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_cors_enabled securityManager' scheme'+    let result' = (/= 0) result+    touchManagedPtr securityManager+    freeMem scheme'+    return result'++#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsCorsEnabledMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsCorsEnabledMethodInfo a signature where+    overloadedMethod _ = securityManagerUriSchemeIsCorsEnabled++#endif++-- method SecurityManager::uri_scheme_is_display_isolated+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_uri_scheme_is_display_isolated" webkit_security_manager_uri_scheme_is_display_isolated :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt++{- |+Whether /@scheme@/ is considered as a display isolated scheme.+See also 'GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsDisplayIsolated'.+-}+securityManagerUriSchemeIsDisplayIsolated ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@scheme@/ is a display isolated scheme or 'False' otherwise. -}+securityManagerUriSchemeIsDisplayIsolated securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_display_isolated securityManager' scheme'+    let result' = (/= 0) result+    touchManagedPtr securityManager+    freeMem scheme'+    return result'++#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo a signature where+    overloadedMethod _ = securityManagerUriSchemeIsDisplayIsolated++#endif++-- method SecurityManager::uri_scheme_is_empty_document+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_uri_scheme_is_empty_document" webkit_security_manager_uri_scheme_is_empty_document :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt++{- |+Whether /@scheme@/ is considered as an empty document scheme.+See also 'GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsEmptyDocument'.+-}+securityManagerUriSchemeIsEmptyDocument ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@scheme@/ is an empty document scheme or 'False' otherwise. -}+securityManagerUriSchemeIsEmptyDocument securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_empty_document securityManager' scheme'+    let result' = (/= 0) result+    touchManagedPtr securityManager+    freeMem scheme'+    return result'++#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsEmptyDocumentMethodInfo a signature where+    overloadedMethod _ = securityManagerUriSchemeIsEmptyDocument++#endif++-- method SecurityManager::uri_scheme_is_local+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_uri_scheme_is_local" webkit_security_manager_uri_scheme_is_local :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt++{- |+Whether /@scheme@/ is considered as a local scheme.+See also 'GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsLocal'.+-}+securityManagerUriSchemeIsLocal ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@scheme@/ is a local scheme or 'False' otherwise. -}+securityManagerUriSchemeIsLocal securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_local securityManager' scheme'+    let result' = (/= 0) result+    touchManagedPtr securityManager+    freeMem scheme'+    return result'++#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsLocalMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsLocalMethodInfo a signature where+    overloadedMethod _ = securityManagerUriSchemeIsLocal++#endif++-- method SecurityManager::uri_scheme_is_no_access+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_uri_scheme_is_no_access" webkit_security_manager_uri_scheme_is_no_access :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt++{- |+Whether /@scheme@/ is considered as a no-access scheme.+See also 'GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsNoAccess'.+-}+securityManagerUriSchemeIsNoAccess ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@scheme@/ is a no-access scheme or 'False' otherwise. -}+securityManagerUriSchemeIsNoAccess securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_no_access securityManager' scheme'+    let result' = (/= 0) result+    touchManagedPtr securityManager+    freeMem scheme'+    return result'++#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsNoAccessMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsNoAccessMethodInfo a signature where+    overloadedMethod _ = securityManagerUriSchemeIsNoAccess++#endif++-- method SecurityManager::uri_scheme_is_secure+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "security_manager", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_manager_uri_scheme_is_secure" webkit_security_manager_uri_scheme_is_secure :: +    Ptr SecurityManager ->                  -- security_manager : TInterface (Name {namespace = "WebKit2", name = "SecurityManager"})+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt++{- |+Whether /@scheme@/ is considered as a secure scheme.+See also 'GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsSecure'.+-}+securityManagerUriSchemeIsSecure ::+    (B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>+    a+    {- ^ /@securityManager@/: a 'GI.WebKit2.Objects.SecurityManager.SecurityManager' -}+    -> T.Text+    {- ^ /@scheme@/: a URI scheme -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@scheme@/ is a secure scheme or 'False' otherwise. -}+securityManagerUriSchemeIsSecure securityManager scheme = liftIO $ do+    securityManager' <- unsafeManagedPtrCastPtr securityManager+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_secure securityManager' scheme'+    let result' = (/= 0) result+    touchManagedPtr securityManager+    freeMem scheme'+    return result'++#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsSecureMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsSecureMethodInfo a signature where+    overloadedMethod _ = securityManagerUriSchemeIsSecure++#endif++
+ GI/WebKit2/Objects/SecurityManager.hs-boot view
@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.SecurityManager 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++newtype SecurityManager = SecurityManager (ManagedPtr SecurityManager)+instance GObject SecurityManager where+class (GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o+instance (GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o+instance O.HasParentTypes SecurityManager+#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsLocalMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerRegisterUriSchemeAsSecureMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsCorsEnabledMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsLocalMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsNoAccessMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityManagerUriSchemeIsSecureMethodInfo+#endif
+ GI/WebKit2/Objects/Settings.hs view
@@ -0,0 +1,9222 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.Settings+    ( ++-- * Exported types+    Settings(..)                            ,+    IsSettings                              ,+    toSettings                              ,+    noSettings                              ,+++ -- * Methods+-- ** fontSizeToPixels #method:fontSizeToPixels#++    settingsFontSizeToPixels                ,+++-- ** fontSizeToPoints #method:fontSizeToPoints#++    settingsFontSizeToPoints                ,+++-- ** getAllowFileAccessFromFileUrls #method:getAllowFileAccessFromFileUrls#++#if ENABLE_OVERLOADING+    SettingsGetAllowFileAccessFromFileUrlsMethodInfo,+#endif+    settingsGetAllowFileAccessFromFileUrls  ,+++-- ** getAllowModalDialogs #method:getAllowModalDialogs#++#if ENABLE_OVERLOADING+    SettingsGetAllowModalDialogsMethodInfo  ,+#endif+    settingsGetAllowModalDialogs            ,+++-- ** getAllowUniversalAccessFromFileUrls #method:getAllowUniversalAccessFromFileUrls#++#if ENABLE_OVERLOADING+    SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo,+#endif+    settingsGetAllowUniversalAccessFromFileUrls,+++-- ** getAutoLoadImages #method:getAutoLoadImages#++#if ENABLE_OVERLOADING+    SettingsGetAutoLoadImagesMethodInfo     ,+#endif+    settingsGetAutoLoadImages               ,+++-- ** getCursiveFontFamily #method:getCursiveFontFamily#++#if ENABLE_OVERLOADING+    SettingsGetCursiveFontFamilyMethodInfo  ,+#endif+    settingsGetCursiveFontFamily            ,+++-- ** getDefaultCharset #method:getDefaultCharset#++#if ENABLE_OVERLOADING+    SettingsGetDefaultCharsetMethodInfo     ,+#endif+    settingsGetDefaultCharset               ,+++-- ** getDefaultFontFamily #method:getDefaultFontFamily#++#if ENABLE_OVERLOADING+    SettingsGetDefaultFontFamilyMethodInfo  ,+#endif+    settingsGetDefaultFontFamily            ,+++-- ** getDefaultFontSize #method:getDefaultFontSize#++#if ENABLE_OVERLOADING+    SettingsGetDefaultFontSizeMethodInfo    ,+#endif+    settingsGetDefaultFontSize              ,+++-- ** getDefaultMonospaceFontSize #method:getDefaultMonospaceFontSize#++#if ENABLE_OVERLOADING+    SettingsGetDefaultMonospaceFontSizeMethodInfo,+#endif+    settingsGetDefaultMonospaceFontSize     ,+++-- ** getDrawCompositingIndicators #method:getDrawCompositingIndicators#++#if ENABLE_OVERLOADING+    SettingsGetDrawCompositingIndicatorsMethodInfo,+#endif+    settingsGetDrawCompositingIndicators    ,+++-- ** getEnableAccelerated2dCanvas #method:getEnableAccelerated2dCanvas#++#if ENABLE_OVERLOADING+    SettingsGetEnableAccelerated2dCanvasMethodInfo,+#endif+    settingsGetEnableAccelerated2dCanvas    ,+++-- ** getEnableBackForwardNavigationGestures #method:getEnableBackForwardNavigationGestures#++#if ENABLE_OVERLOADING+    SettingsGetEnableBackForwardNavigationGesturesMethodInfo,+#endif+    settingsGetEnableBackForwardNavigationGestures,+++-- ** getEnableCaretBrowsing #method:getEnableCaretBrowsing#++#if ENABLE_OVERLOADING+    SettingsGetEnableCaretBrowsingMethodInfo,+#endif+    settingsGetEnableCaretBrowsing          ,+++-- ** getEnableDeveloperExtras #method:getEnableDeveloperExtras#++#if ENABLE_OVERLOADING+    SettingsGetEnableDeveloperExtrasMethodInfo,+#endif+    settingsGetEnableDeveloperExtras        ,+++-- ** getEnableDnsPrefetching #method:getEnableDnsPrefetching#++#if ENABLE_OVERLOADING+    SettingsGetEnableDnsPrefetchingMethodInfo,+#endif+    settingsGetEnableDnsPrefetching         ,+++-- ** getEnableEncryptedMedia #method:getEnableEncryptedMedia#++#if ENABLE_OVERLOADING+    SettingsGetEnableEncryptedMediaMethodInfo,+#endif+    settingsGetEnableEncryptedMedia         ,+++-- ** getEnableFrameFlattening #method:getEnableFrameFlattening#++#if ENABLE_OVERLOADING+    SettingsGetEnableFrameFlatteningMethodInfo,+#endif+    settingsGetEnableFrameFlattening        ,+++-- ** getEnableFullscreen #method:getEnableFullscreen#++#if ENABLE_OVERLOADING+    SettingsGetEnableFullscreenMethodInfo   ,+#endif+    settingsGetEnableFullscreen             ,+++-- ** getEnableHtml5Database #method:getEnableHtml5Database#++#if ENABLE_OVERLOADING+    SettingsGetEnableHtml5DatabaseMethodInfo,+#endif+    settingsGetEnableHtml5Database          ,+++-- ** getEnableHtml5LocalStorage #method:getEnableHtml5LocalStorage#++#if ENABLE_OVERLOADING+    SettingsGetEnableHtml5LocalStorageMethodInfo,+#endif+    settingsGetEnableHtml5LocalStorage      ,+++-- ** getEnableHyperlinkAuditing #method:getEnableHyperlinkAuditing#++#if ENABLE_OVERLOADING+    SettingsGetEnableHyperlinkAuditingMethodInfo,+#endif+    settingsGetEnableHyperlinkAuditing      ,+++-- ** getEnableJava #method:getEnableJava#++#if ENABLE_OVERLOADING+    SettingsGetEnableJavaMethodInfo         ,+#endif+    settingsGetEnableJava                   ,+++-- ** getEnableJavascript #method:getEnableJavascript#++#if ENABLE_OVERLOADING+    SettingsGetEnableJavascriptMethodInfo   ,+#endif+    settingsGetEnableJavascript             ,+++-- ** getEnableJavascriptMarkup #method:getEnableJavascriptMarkup#++#if ENABLE_OVERLOADING+    SettingsGetEnableJavascriptMarkupMethodInfo,+#endif+    settingsGetEnableJavascriptMarkup       ,+++-- ** getEnableMediaCapabilities #method:getEnableMediaCapabilities#++#if ENABLE_OVERLOADING+    SettingsGetEnableMediaCapabilitiesMethodInfo,+#endif+    settingsGetEnableMediaCapabilities      ,+++-- ** getEnableMediaStream #method:getEnableMediaStream#++#if ENABLE_OVERLOADING+    SettingsGetEnableMediaStreamMethodInfo  ,+#endif+    settingsGetEnableMediaStream            ,+++-- ** getEnableMediasource #method:getEnableMediasource#++#if ENABLE_OVERLOADING+    SettingsGetEnableMediasourceMethodInfo  ,+#endif+    settingsGetEnableMediasource            ,+++-- ** getEnableMockCaptureDevices #method:getEnableMockCaptureDevices#++#if ENABLE_OVERLOADING+    SettingsGetEnableMockCaptureDevicesMethodInfo,+#endif+    settingsGetEnableMockCaptureDevices     ,+++-- ** getEnableOfflineWebApplicationCache #method:getEnableOfflineWebApplicationCache#++#if ENABLE_OVERLOADING+    SettingsGetEnableOfflineWebApplicationCacheMethodInfo,+#endif+    settingsGetEnableOfflineWebApplicationCache,+++-- ** getEnablePageCache #method:getEnablePageCache#++#if ENABLE_OVERLOADING+    SettingsGetEnablePageCacheMethodInfo    ,+#endif+    settingsGetEnablePageCache              ,+++-- ** getEnablePlugins #method:getEnablePlugins#++#if ENABLE_OVERLOADING+    SettingsGetEnablePluginsMethodInfo      ,+#endif+    settingsGetEnablePlugins                ,+++-- ** getEnablePrivateBrowsing #method:getEnablePrivateBrowsing#++#if ENABLE_OVERLOADING+    SettingsGetEnablePrivateBrowsingMethodInfo,+#endif+    settingsGetEnablePrivateBrowsing        ,+++-- ** getEnableResizableTextAreas #method:getEnableResizableTextAreas#++#if ENABLE_OVERLOADING+    SettingsGetEnableResizableTextAreasMethodInfo,+#endif+    settingsGetEnableResizableTextAreas     ,+++-- ** getEnableSiteSpecificQuirks #method:getEnableSiteSpecificQuirks#++#if ENABLE_OVERLOADING+    SettingsGetEnableSiteSpecificQuirksMethodInfo,+#endif+    settingsGetEnableSiteSpecificQuirks     ,+++-- ** getEnableSmoothScrolling #method:getEnableSmoothScrolling#++#if ENABLE_OVERLOADING+    SettingsGetEnableSmoothScrollingMethodInfo,+#endif+    settingsGetEnableSmoothScrolling        ,+++-- ** getEnableSpatialNavigation #method:getEnableSpatialNavigation#++#if ENABLE_OVERLOADING+    SettingsGetEnableSpatialNavigationMethodInfo,+#endif+    settingsGetEnableSpatialNavigation      ,+++-- ** getEnableTabsToLinks #method:getEnableTabsToLinks#++#if ENABLE_OVERLOADING+    SettingsGetEnableTabsToLinksMethodInfo  ,+#endif+    settingsGetEnableTabsToLinks            ,+++-- ** getEnableWebaudio #method:getEnableWebaudio#++#if ENABLE_OVERLOADING+    SettingsGetEnableWebaudioMethodInfo     ,+#endif+    settingsGetEnableWebaudio               ,+++-- ** getEnableWebgl #method:getEnableWebgl#++#if ENABLE_OVERLOADING+    SettingsGetEnableWebglMethodInfo        ,+#endif+    settingsGetEnableWebgl                  ,+++-- ** getEnableWriteConsoleMessagesToStdout #method:getEnableWriteConsoleMessagesToStdout#++#if ENABLE_OVERLOADING+    SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo,+#endif+    settingsGetEnableWriteConsoleMessagesToStdout,+++-- ** getEnableXssAuditor #method:getEnableXssAuditor#++#if ENABLE_OVERLOADING+    SettingsGetEnableXssAuditorMethodInfo   ,+#endif+    settingsGetEnableXssAuditor             ,+++-- ** getFantasyFontFamily #method:getFantasyFontFamily#++#if ENABLE_OVERLOADING+    SettingsGetFantasyFontFamilyMethodInfo  ,+#endif+    settingsGetFantasyFontFamily            ,+++-- ** getHardwareAccelerationPolicy #method:getHardwareAccelerationPolicy#++#if ENABLE_OVERLOADING+    SettingsGetHardwareAccelerationPolicyMethodInfo,+#endif+    settingsGetHardwareAccelerationPolicy   ,+++-- ** getJavascriptCanAccessClipboard #method:getJavascriptCanAccessClipboard#++#if ENABLE_OVERLOADING+    SettingsGetJavascriptCanAccessClipboardMethodInfo,+#endif+    settingsGetJavascriptCanAccessClipboard ,+++-- ** getJavascriptCanOpenWindowsAutomatically #method:getJavascriptCanOpenWindowsAutomatically#++#if ENABLE_OVERLOADING+    SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo,+#endif+    settingsGetJavascriptCanOpenWindowsAutomatically,+++-- ** getLoadIconsIgnoringImageLoadSetting #method:getLoadIconsIgnoringImageLoadSetting#++#if ENABLE_OVERLOADING+    SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo,+#endif+    settingsGetLoadIconsIgnoringImageLoadSetting,+++-- ** getMediaPlaybackAllowsInline #method:getMediaPlaybackAllowsInline#++#if ENABLE_OVERLOADING+    SettingsGetMediaPlaybackAllowsInlineMethodInfo,+#endif+    settingsGetMediaPlaybackAllowsInline    ,+++-- ** getMediaPlaybackRequiresUserGesture #method:getMediaPlaybackRequiresUserGesture#++#if ENABLE_OVERLOADING+    SettingsGetMediaPlaybackRequiresUserGestureMethodInfo,+#endif+    settingsGetMediaPlaybackRequiresUserGesture,+++-- ** getMinimumFontSize #method:getMinimumFontSize#++#if ENABLE_OVERLOADING+    SettingsGetMinimumFontSizeMethodInfo    ,+#endif+    settingsGetMinimumFontSize              ,+++-- ** getMonospaceFontFamily #method:getMonospaceFontFamily#++#if ENABLE_OVERLOADING+    SettingsGetMonospaceFontFamilyMethodInfo,+#endif+    settingsGetMonospaceFontFamily          ,+++-- ** getPictographFontFamily #method:getPictographFontFamily#++#if ENABLE_OVERLOADING+    SettingsGetPictographFontFamilyMethodInfo,+#endif+    settingsGetPictographFontFamily         ,+++-- ** getPrintBackgrounds #method:getPrintBackgrounds#++#if ENABLE_OVERLOADING+    SettingsGetPrintBackgroundsMethodInfo   ,+#endif+    settingsGetPrintBackgrounds             ,+++-- ** getSansSerifFontFamily #method:getSansSerifFontFamily#++#if ENABLE_OVERLOADING+    SettingsGetSansSerifFontFamilyMethodInfo,+#endif+    settingsGetSansSerifFontFamily          ,+++-- ** getSerifFontFamily #method:getSerifFontFamily#++#if ENABLE_OVERLOADING+    SettingsGetSerifFontFamilyMethodInfo    ,+#endif+    settingsGetSerifFontFamily              ,+++-- ** getUserAgent #method:getUserAgent#++#if ENABLE_OVERLOADING+    SettingsGetUserAgentMethodInfo          ,+#endif+    settingsGetUserAgent                    ,+++-- ** getZoomTextOnly #method:getZoomTextOnly#++#if ENABLE_OVERLOADING+    SettingsGetZoomTextOnlyMethodInfo       ,+#endif+    settingsGetZoomTextOnly                 ,+++-- ** new #method:new#++    settingsNew                             ,+++-- ** setAllowFileAccessFromFileUrls #method:setAllowFileAccessFromFileUrls#++#if ENABLE_OVERLOADING+    SettingsSetAllowFileAccessFromFileUrlsMethodInfo,+#endif+    settingsSetAllowFileAccessFromFileUrls  ,+++-- ** setAllowModalDialogs #method:setAllowModalDialogs#++#if ENABLE_OVERLOADING+    SettingsSetAllowModalDialogsMethodInfo  ,+#endif+    settingsSetAllowModalDialogs            ,+++-- ** setAllowUniversalAccessFromFileUrls #method:setAllowUniversalAccessFromFileUrls#++#if ENABLE_OVERLOADING+    SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo,+#endif+    settingsSetAllowUniversalAccessFromFileUrls,+++-- ** setAutoLoadImages #method:setAutoLoadImages#++#if ENABLE_OVERLOADING+    SettingsSetAutoLoadImagesMethodInfo     ,+#endif+    settingsSetAutoLoadImages               ,+++-- ** setCursiveFontFamily #method:setCursiveFontFamily#++#if ENABLE_OVERLOADING+    SettingsSetCursiveFontFamilyMethodInfo  ,+#endif+    settingsSetCursiveFontFamily            ,+++-- ** setDefaultCharset #method:setDefaultCharset#++#if ENABLE_OVERLOADING+    SettingsSetDefaultCharsetMethodInfo     ,+#endif+    settingsSetDefaultCharset               ,+++-- ** setDefaultFontFamily #method:setDefaultFontFamily#++#if ENABLE_OVERLOADING+    SettingsSetDefaultFontFamilyMethodInfo  ,+#endif+    settingsSetDefaultFontFamily            ,+++-- ** setDefaultFontSize #method:setDefaultFontSize#++#if ENABLE_OVERLOADING+    SettingsSetDefaultFontSizeMethodInfo    ,+#endif+    settingsSetDefaultFontSize              ,+++-- ** setDefaultMonospaceFontSize #method:setDefaultMonospaceFontSize#++#if ENABLE_OVERLOADING+    SettingsSetDefaultMonospaceFontSizeMethodInfo,+#endif+    settingsSetDefaultMonospaceFontSize     ,+++-- ** setDrawCompositingIndicators #method:setDrawCompositingIndicators#++#if ENABLE_OVERLOADING+    SettingsSetDrawCompositingIndicatorsMethodInfo,+#endif+    settingsSetDrawCompositingIndicators    ,+++-- ** setEnableAccelerated2dCanvas #method:setEnableAccelerated2dCanvas#++#if ENABLE_OVERLOADING+    SettingsSetEnableAccelerated2dCanvasMethodInfo,+#endif+    settingsSetEnableAccelerated2dCanvas    ,+++-- ** setEnableBackForwardNavigationGestures #method:setEnableBackForwardNavigationGestures#++#if ENABLE_OVERLOADING+    SettingsSetEnableBackForwardNavigationGesturesMethodInfo,+#endif+    settingsSetEnableBackForwardNavigationGestures,+++-- ** setEnableCaretBrowsing #method:setEnableCaretBrowsing#++#if ENABLE_OVERLOADING+    SettingsSetEnableCaretBrowsingMethodInfo,+#endif+    settingsSetEnableCaretBrowsing          ,+++-- ** setEnableDeveloperExtras #method:setEnableDeveloperExtras#++#if ENABLE_OVERLOADING+    SettingsSetEnableDeveloperExtrasMethodInfo,+#endif+    settingsSetEnableDeveloperExtras        ,+++-- ** setEnableDnsPrefetching #method:setEnableDnsPrefetching#++#if ENABLE_OVERLOADING+    SettingsSetEnableDnsPrefetchingMethodInfo,+#endif+    settingsSetEnableDnsPrefetching         ,+++-- ** setEnableEncryptedMedia #method:setEnableEncryptedMedia#++#if ENABLE_OVERLOADING+    SettingsSetEnableEncryptedMediaMethodInfo,+#endif+    settingsSetEnableEncryptedMedia         ,+++-- ** setEnableFrameFlattening #method:setEnableFrameFlattening#++#if ENABLE_OVERLOADING+    SettingsSetEnableFrameFlatteningMethodInfo,+#endif+    settingsSetEnableFrameFlattening        ,+++-- ** setEnableFullscreen #method:setEnableFullscreen#++#if ENABLE_OVERLOADING+    SettingsSetEnableFullscreenMethodInfo   ,+#endif+    settingsSetEnableFullscreen             ,+++-- ** setEnableHtml5Database #method:setEnableHtml5Database#++#if ENABLE_OVERLOADING+    SettingsSetEnableHtml5DatabaseMethodInfo,+#endif+    settingsSetEnableHtml5Database          ,+++-- ** setEnableHtml5LocalStorage #method:setEnableHtml5LocalStorage#++#if ENABLE_OVERLOADING+    SettingsSetEnableHtml5LocalStorageMethodInfo,+#endif+    settingsSetEnableHtml5LocalStorage      ,+++-- ** setEnableHyperlinkAuditing #method:setEnableHyperlinkAuditing#++#if ENABLE_OVERLOADING+    SettingsSetEnableHyperlinkAuditingMethodInfo,+#endif+    settingsSetEnableHyperlinkAuditing      ,+++-- ** setEnableJava #method:setEnableJava#++#if ENABLE_OVERLOADING+    SettingsSetEnableJavaMethodInfo         ,+#endif+    settingsSetEnableJava                   ,+++-- ** setEnableJavascript #method:setEnableJavascript#++#if ENABLE_OVERLOADING+    SettingsSetEnableJavascriptMethodInfo   ,+#endif+    settingsSetEnableJavascript             ,+++-- ** setEnableJavascriptMarkup #method:setEnableJavascriptMarkup#++#if ENABLE_OVERLOADING+    SettingsSetEnableJavascriptMarkupMethodInfo,+#endif+    settingsSetEnableJavascriptMarkup       ,+++-- ** setEnableMediaCapabilities #method:setEnableMediaCapabilities#++#if ENABLE_OVERLOADING+    SettingsSetEnableMediaCapabilitiesMethodInfo,+#endif+    settingsSetEnableMediaCapabilities      ,+++-- ** setEnableMediaStream #method:setEnableMediaStream#++#if ENABLE_OVERLOADING+    SettingsSetEnableMediaStreamMethodInfo  ,+#endif+    settingsSetEnableMediaStream            ,+++-- ** setEnableMediasource #method:setEnableMediasource#++#if ENABLE_OVERLOADING+    SettingsSetEnableMediasourceMethodInfo  ,+#endif+    settingsSetEnableMediasource            ,+++-- ** setEnableMockCaptureDevices #method:setEnableMockCaptureDevices#++#if ENABLE_OVERLOADING+    SettingsSetEnableMockCaptureDevicesMethodInfo,+#endif+    settingsSetEnableMockCaptureDevices     ,+++-- ** setEnableOfflineWebApplicationCache #method:setEnableOfflineWebApplicationCache#++#if ENABLE_OVERLOADING+    SettingsSetEnableOfflineWebApplicationCacheMethodInfo,+#endif+    settingsSetEnableOfflineWebApplicationCache,+++-- ** setEnablePageCache #method:setEnablePageCache#++#if ENABLE_OVERLOADING+    SettingsSetEnablePageCacheMethodInfo    ,+#endif+    settingsSetEnablePageCache              ,+++-- ** setEnablePlugins #method:setEnablePlugins#++#if ENABLE_OVERLOADING+    SettingsSetEnablePluginsMethodInfo      ,+#endif+    settingsSetEnablePlugins                ,+++-- ** setEnablePrivateBrowsing #method:setEnablePrivateBrowsing#++#if ENABLE_OVERLOADING+    SettingsSetEnablePrivateBrowsingMethodInfo,+#endif+    settingsSetEnablePrivateBrowsing        ,+++-- ** setEnableResizableTextAreas #method:setEnableResizableTextAreas#++#if ENABLE_OVERLOADING+    SettingsSetEnableResizableTextAreasMethodInfo,+#endif+    settingsSetEnableResizableTextAreas     ,+++-- ** setEnableSiteSpecificQuirks #method:setEnableSiteSpecificQuirks#++#if ENABLE_OVERLOADING+    SettingsSetEnableSiteSpecificQuirksMethodInfo,+#endif+    settingsSetEnableSiteSpecificQuirks     ,+++-- ** setEnableSmoothScrolling #method:setEnableSmoothScrolling#++#if ENABLE_OVERLOADING+    SettingsSetEnableSmoothScrollingMethodInfo,+#endif+    settingsSetEnableSmoothScrolling        ,+++-- ** setEnableSpatialNavigation #method:setEnableSpatialNavigation#++#if ENABLE_OVERLOADING+    SettingsSetEnableSpatialNavigationMethodInfo,+#endif+    settingsSetEnableSpatialNavigation      ,+++-- ** setEnableTabsToLinks #method:setEnableTabsToLinks#++#if ENABLE_OVERLOADING+    SettingsSetEnableTabsToLinksMethodInfo  ,+#endif+    settingsSetEnableTabsToLinks            ,+++-- ** setEnableWebaudio #method:setEnableWebaudio#++#if ENABLE_OVERLOADING+    SettingsSetEnableWebaudioMethodInfo     ,+#endif+    settingsSetEnableWebaudio               ,+++-- ** setEnableWebgl #method:setEnableWebgl#++#if ENABLE_OVERLOADING+    SettingsSetEnableWebglMethodInfo        ,+#endif+    settingsSetEnableWebgl                  ,+++-- ** setEnableWriteConsoleMessagesToStdout #method:setEnableWriteConsoleMessagesToStdout#++#if ENABLE_OVERLOADING+    SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo,+#endif+    settingsSetEnableWriteConsoleMessagesToStdout,+++-- ** setEnableXssAuditor #method:setEnableXssAuditor#++#if ENABLE_OVERLOADING+    SettingsSetEnableXssAuditorMethodInfo   ,+#endif+    settingsSetEnableXssAuditor             ,+++-- ** setFantasyFontFamily #method:setFantasyFontFamily#++#if ENABLE_OVERLOADING+    SettingsSetFantasyFontFamilyMethodInfo  ,+#endif+    settingsSetFantasyFontFamily            ,+++-- ** setHardwareAccelerationPolicy #method:setHardwareAccelerationPolicy#++#if ENABLE_OVERLOADING+    SettingsSetHardwareAccelerationPolicyMethodInfo,+#endif+    settingsSetHardwareAccelerationPolicy   ,+++-- ** setJavascriptCanAccessClipboard #method:setJavascriptCanAccessClipboard#++#if ENABLE_OVERLOADING+    SettingsSetJavascriptCanAccessClipboardMethodInfo,+#endif+    settingsSetJavascriptCanAccessClipboard ,+++-- ** setJavascriptCanOpenWindowsAutomatically #method:setJavascriptCanOpenWindowsAutomatically#++#if ENABLE_OVERLOADING+    SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo,+#endif+    settingsSetJavascriptCanOpenWindowsAutomatically,+++-- ** setLoadIconsIgnoringImageLoadSetting #method:setLoadIconsIgnoringImageLoadSetting#++#if ENABLE_OVERLOADING+    SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo,+#endif+    settingsSetLoadIconsIgnoringImageLoadSetting,+++-- ** setMediaPlaybackAllowsInline #method:setMediaPlaybackAllowsInline#++#if ENABLE_OVERLOADING+    SettingsSetMediaPlaybackAllowsInlineMethodInfo,+#endif+    settingsSetMediaPlaybackAllowsInline    ,+++-- ** setMediaPlaybackRequiresUserGesture #method:setMediaPlaybackRequiresUserGesture#++#if ENABLE_OVERLOADING+    SettingsSetMediaPlaybackRequiresUserGestureMethodInfo,+#endif+    settingsSetMediaPlaybackRequiresUserGesture,+++-- ** setMinimumFontSize #method:setMinimumFontSize#++#if ENABLE_OVERLOADING+    SettingsSetMinimumFontSizeMethodInfo    ,+#endif+    settingsSetMinimumFontSize              ,+++-- ** setMonospaceFontFamily #method:setMonospaceFontFamily#++#if ENABLE_OVERLOADING+    SettingsSetMonospaceFontFamilyMethodInfo,+#endif+    settingsSetMonospaceFontFamily          ,+++-- ** setPictographFontFamily #method:setPictographFontFamily#++#if ENABLE_OVERLOADING+    SettingsSetPictographFontFamilyMethodInfo,+#endif+    settingsSetPictographFontFamily         ,+++-- ** setPrintBackgrounds #method:setPrintBackgrounds#++#if ENABLE_OVERLOADING+    SettingsSetPrintBackgroundsMethodInfo   ,+#endif+    settingsSetPrintBackgrounds             ,+++-- ** setSansSerifFontFamily #method:setSansSerifFontFamily#++#if ENABLE_OVERLOADING+    SettingsSetSansSerifFontFamilyMethodInfo,+#endif+    settingsSetSansSerifFontFamily          ,+++-- ** setSerifFontFamily #method:setSerifFontFamily#++#if ENABLE_OVERLOADING+    SettingsSetSerifFontFamilyMethodInfo    ,+#endif+    settingsSetSerifFontFamily              ,+++-- ** setUserAgent #method:setUserAgent#++#if ENABLE_OVERLOADING+    SettingsSetUserAgentMethodInfo          ,+#endif+    settingsSetUserAgent                    ,+++-- ** setUserAgentWithApplicationDetails #method:setUserAgentWithApplicationDetails#++#if ENABLE_OVERLOADING+    SettingsSetUserAgentWithApplicationDetailsMethodInfo,+#endif+    settingsSetUserAgentWithApplicationDetails,+++-- ** setZoomTextOnly #method:setZoomTextOnly#++#if ENABLE_OVERLOADING+    SettingsSetZoomTextOnlyMethodInfo       ,+#endif+    settingsSetZoomTextOnly                 ,+++++ -- * Properties+-- ** allowFileAccessFromFileUrls #attr:allowFileAccessFromFileUrls#+{- | Whether file access is allowed from file URLs. By default, when+something is loaded in a 'GI.WebKit2.Objects.WebView.WebView' using a file URI, cross+origin requests to other file resources are not allowed. This+setting allows you to change that behaviour, so that it would be+possible to do a XMLHttpRequest of a local file, for example.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    SettingsAllowFileAccessFromFileUrlsPropertyInfo,+#endif+    constructSettingsAllowFileAccessFromFileUrls,+    getSettingsAllowFileAccessFromFileUrls  ,+    setSettingsAllowFileAccessFromFileUrls  ,+#if ENABLE_OVERLOADING+    settingsAllowFileAccessFromFileUrls     ,+#endif+++-- ** allowModalDialogs #attr:allowModalDialogs#+{- | Determine whether it\'s allowed to create and run modal dialogs+from a 'GI.WebKit2.Objects.WebView.WebView' through JavaScript with+\<function>window.showModalDialog\<\/function>. If it\'s set to+'False', the associated 'GI.WebKit2.Objects.WebView.WebView' won\'t be able to create+new modal dialogs, so not even the 'GI.WebKit2.Objects.WebView.WebView'::@/create/@+signal will be emitted.+-}+#if ENABLE_OVERLOADING+    SettingsAllowModalDialogsPropertyInfo   ,+#endif+    constructSettingsAllowModalDialogs      ,+    getSettingsAllowModalDialogs            ,+    setSettingsAllowModalDialogs            ,+#if ENABLE_OVERLOADING+    settingsAllowModalDialogs               ,+#endif+++-- ** allowUniversalAccessFromFileUrls #attr:allowUniversalAccessFromFileUrls#+{- | Whether or not JavaScript running in the context of a file scheme URL+should be allowed to access content from any origin.  By default, when+something is loaded in a 'GI.WebKit2.Objects.WebView.WebView' using a file scheme URL,+access to the local file system and arbitrary local storage is not+allowed. This setting allows you to change that behaviour, so that+it would be possible to use local storage, for example.++/Since: 2.14/+-}+#if ENABLE_OVERLOADING+    SettingsAllowUniversalAccessFromFileUrlsPropertyInfo,+#endif+    constructSettingsAllowUniversalAccessFromFileUrls,+    getSettingsAllowUniversalAccessFromFileUrls,+    setSettingsAllowUniversalAccessFromFileUrls,+#if ENABLE_OVERLOADING+    settingsAllowUniversalAccessFromFileUrls,+#endif+++-- ** autoLoadImages #attr:autoLoadImages#+{- | Determines whether images should be automatically loaded or not.+On devices where network bandwidth is of concern, it might be+useful to turn this property off.+-}+#if ENABLE_OVERLOADING+    SettingsAutoLoadImagesPropertyInfo      ,+#endif+    constructSettingsAutoLoadImages         ,+    getSettingsAutoLoadImages               ,+    setSettingsAutoLoadImages               ,+#if ENABLE_OVERLOADING+    settingsAutoLoadImages                  ,+#endif+++-- ** cursiveFontFamily #attr:cursiveFontFamily#+{- | The font family used as the default for content using a cursive font.+-}+#if ENABLE_OVERLOADING+    SettingsCursiveFontFamilyPropertyInfo   ,+#endif+    constructSettingsCursiveFontFamily      ,+    getSettingsCursiveFontFamily            ,+    setSettingsCursiveFontFamily            ,+#if ENABLE_OVERLOADING+    settingsCursiveFontFamily               ,+#endif+++-- ** defaultCharset #attr:defaultCharset#+{- | The default text charset used when interpreting content with an unspecified charset.+-}+#if ENABLE_OVERLOADING+    SettingsDefaultCharsetPropertyInfo      ,+#endif+    constructSettingsDefaultCharset         ,+    getSettingsDefaultCharset               ,+    setSettingsDefaultCharset               ,+#if ENABLE_OVERLOADING+    settingsDefaultCharset                  ,+#endif+++-- ** defaultFontFamily #attr:defaultFontFamily#+{- | The font family to use as the default for content that does not specify a font.+-}+#if ENABLE_OVERLOADING+    SettingsDefaultFontFamilyPropertyInfo   ,+#endif+    constructSettingsDefaultFontFamily      ,+    getSettingsDefaultFontFamily            ,+    setSettingsDefaultFontFamily            ,+#if ENABLE_OVERLOADING+    settingsDefaultFontFamily               ,+#endif+++-- ** defaultFontSize #attr:defaultFontSize#+{- | The default font size in pixels to use for content displayed if+no font size is specified.+-}+#if ENABLE_OVERLOADING+    SettingsDefaultFontSizePropertyInfo     ,+#endif+    constructSettingsDefaultFontSize        ,+    getSettingsDefaultFontSize              ,+    setSettingsDefaultFontSize              ,+#if ENABLE_OVERLOADING+    settingsDefaultFontSize                 ,+#endif+++-- ** defaultMonospaceFontSize #attr:defaultMonospaceFontSize#+{- | The default font size in pixels to use for content displayed in+monospace font if no font size is specified.+-}+#if ENABLE_OVERLOADING+    SettingsDefaultMonospaceFontSizePropertyInfo,+#endif+    constructSettingsDefaultMonospaceFontSize,+    getSettingsDefaultMonospaceFontSize     ,+    setSettingsDefaultMonospaceFontSize     ,+#if ENABLE_OVERLOADING+    settingsDefaultMonospaceFontSize        ,+#endif+++-- ** drawCompositingIndicators #attr:drawCompositingIndicators#+{- | Whether to draw compositing borders and repaint counters on layers drawn+with accelerated compositing. This is useful for debugging issues related+to web content that is composited with the GPU.+-}+#if ENABLE_OVERLOADING+    SettingsDrawCompositingIndicatorsPropertyInfo,+#endif+    constructSettingsDrawCompositingIndicators,+    getSettingsDrawCompositingIndicators    ,+    setSettingsDrawCompositingIndicators    ,+#if ENABLE_OVERLOADING+    settingsDrawCompositingIndicators       ,+#endif+++-- ** enableAccelerated2dCanvas #attr:enableAccelerated2dCanvas#+{- | Enable or disable accelerated 2D canvas. Accelerated 2D canvas is only available+if WebKit was compiled with a version of Cairo including the unstable CairoGL API.+When accelerated 2D canvas is enabled, WebKit may render some 2D canvas content+using hardware accelerated drawing operations.++/Since: 2.2/+-}+#if ENABLE_OVERLOADING+    SettingsEnableAccelerated2dCanvasPropertyInfo,+#endif+    constructSettingsEnableAccelerated2dCanvas,+    getSettingsEnableAccelerated2dCanvas    ,+    setSettingsEnableAccelerated2dCanvas    ,+#if ENABLE_OVERLOADING+    settingsEnableAccelerated2dCanvas       ,+#endif+++-- ** enableBackForwardNavigationGestures #attr:enableBackForwardNavigationGestures#+{- | Enable or disable horizontal swipe gesture for back-forward navigation.++/Since: 2.24/+-}+#if ENABLE_OVERLOADING+    SettingsEnableBackForwardNavigationGesturesPropertyInfo,+#endif+    constructSettingsEnableBackForwardNavigationGestures,+    getSettingsEnableBackForwardNavigationGestures,+    setSettingsEnableBackForwardNavigationGestures,+#if ENABLE_OVERLOADING+    settingsEnableBackForwardNavigationGestures,+#endif+++-- ** enableCaretBrowsing #attr:enableCaretBrowsing#+{- | Whether to enable accessibility enhanced keyboard navigation.+-}+#if ENABLE_OVERLOADING+    SettingsEnableCaretBrowsingPropertyInfo ,+#endif+    constructSettingsEnableCaretBrowsing    ,+    getSettingsEnableCaretBrowsing          ,+    setSettingsEnableCaretBrowsing          ,+#if ENABLE_OVERLOADING+    settingsEnableCaretBrowsing             ,+#endif+++-- ** enableDeveloperExtras #attr:enableDeveloperExtras#+{- | Determines whether or not developer tools, such as the Web Inspector, are enabled.+-}+#if ENABLE_OVERLOADING+    SettingsEnableDeveloperExtrasPropertyInfo,+#endif+    constructSettingsEnableDeveloperExtras  ,+    getSettingsEnableDeveloperExtras        ,+    setSettingsEnableDeveloperExtras        ,+#if ENABLE_OVERLOADING+    settingsEnableDeveloperExtras           ,+#endif+++-- ** enableDnsPrefetching #attr:enableDnsPrefetching#+{- | Determines whether or not to prefetch domain names. DNS prefetching attempts+to resolve domain names before a user tries to follow a link.+-}+#if ENABLE_OVERLOADING+    SettingsEnableDnsPrefetchingPropertyInfo,+#endif+    constructSettingsEnableDnsPrefetching   ,+    getSettingsEnableDnsPrefetching         ,+    setSettingsEnableDnsPrefetching         ,+#if ENABLE_OVERLOADING+    settingsEnableDnsPrefetching            ,+#endif+++-- ** enableEncryptedMedia #attr:enableEncryptedMedia#+{- | Enable or disable support for Encrypted Media API on pages.+EncryptedMedia is an experimental JavaScript API for playing encrypted media in HTML.+This property will only work as intended if the EncryptedMedia feature is enabled at build time+with the ENABLE_ENCRYPTED_MEDIA flag.++See https:\/\/www.w3.org\/TR\/encrypted-media\/++/Since: 2.20/+-}+#if ENABLE_OVERLOADING+    SettingsEnableEncryptedMediaPropertyInfo,+#endif+    constructSettingsEnableEncryptedMedia   ,+    getSettingsEnableEncryptedMedia         ,+    setSettingsEnableEncryptedMedia         ,+#if ENABLE_OVERLOADING+    settingsEnableEncryptedMedia            ,+#endif+++-- ** enableFrameFlattening #attr:enableFrameFlattening#+{- | Whether to enable the frame flattening. With this setting each subframe is expanded+to its contents, which will flatten all the frames to become one scrollable page.+On touch devices scrollable subframes on a page can result in a confusing user experience.+-}+#if ENABLE_OVERLOADING+    SettingsEnableFrameFlatteningPropertyInfo,+#endif+    constructSettingsEnableFrameFlattening  ,+    getSettingsEnableFrameFlattening        ,+    setSettingsEnableFrameFlattening        ,+#if ENABLE_OVERLOADING+    settingsEnableFrameFlattening           ,+#endif+++-- ** enableFullscreen #attr:enableFullscreen#+{- | Whether to enable the Javascript Fullscreen API. The API+allows any HTML element to request fullscreen display. See also+the current draft of the spec:+http:\/\/www.w3.org\/TR\/fullscreen\/+-}+#if ENABLE_OVERLOADING+    SettingsEnableFullscreenPropertyInfo    ,+#endif+    constructSettingsEnableFullscreen       ,+    getSettingsEnableFullscreen             ,+    setSettingsEnableFullscreen             ,+#if ENABLE_OVERLOADING+    settingsEnableFullscreen                ,+#endif+++-- ** enableHtml5Database #attr:enableHtml5Database#+{- | Whether to enable HTML5 client-side SQL database support. Client-side+SQL database allows web pages to store structured data and be able to+use SQL to manipulate that data asynchronously.++HTML5 database specification is available at+http:\/\/www.w3.org\/TR\/webdatabase\/.+-}+#if ENABLE_OVERLOADING+    SettingsEnableHtml5DatabasePropertyInfo ,+#endif+    constructSettingsEnableHtml5Database    ,+    getSettingsEnableHtml5Database          ,+    setSettingsEnableHtml5Database          ,+#if ENABLE_OVERLOADING+    settingsEnableHtml5Database             ,+#endif+++-- ** enableHtml5LocalStorage #attr:enableHtml5LocalStorage#+{- | Whether to enable HTML5 local storage support. Local storage provides+simple synchronous storage access.++HTML5 local storage specification is available at+http:\/\/dev.w3.org\/html5\/webstorage\/.+-}+#if ENABLE_OVERLOADING+    SettingsEnableHtml5LocalStoragePropertyInfo,+#endif+    constructSettingsEnableHtml5LocalStorage,+    getSettingsEnableHtml5LocalStorage      ,+    setSettingsEnableHtml5LocalStorage      ,+#if ENABLE_OVERLOADING+    settingsEnableHtml5LocalStorage         ,+#endif+++-- ** enableHyperlinkAuditing #attr:enableHyperlinkAuditing#+{- | Determines whether or not hyperlink auditing is enabled.++The hyperlink auditing specification is available at+http:\/\/www.whatwg.org\/specs\/web-apps\/current-work\/multipage\/links.html@/hyperlink/@-auditing.+-}+#if ENABLE_OVERLOADING+    SettingsEnableHyperlinkAuditingPropertyInfo,+#endif+    constructSettingsEnableHyperlinkAuditing,+    getSettingsEnableHyperlinkAuditing      ,+    setSettingsEnableHyperlinkAuditing      ,+#if ENABLE_OVERLOADING+    settingsEnableHyperlinkAuditing         ,+#endif+++-- ** enableJava #attr:enableJava#+{- | Determines whether or not Java is enabled on the page.+-}+#if ENABLE_OVERLOADING+    SettingsEnableJavaPropertyInfo          ,+#endif+    constructSettingsEnableJava             ,+    getSettingsEnableJava                   ,+    setSettingsEnableJava                   ,+#if ENABLE_OVERLOADING+    settingsEnableJava                      ,+#endif+++-- ** enableJavascript #attr:enableJavascript#+{- | Determines whether or not JavaScript executes within a page.+-}+#if ENABLE_OVERLOADING+    SettingsEnableJavascriptPropertyInfo    ,+#endif+    constructSettingsEnableJavascript       ,+    getSettingsEnableJavascript             ,+    setSettingsEnableJavascript             ,+#if ENABLE_OVERLOADING+    settingsEnableJavascript                ,+#endif+++-- ** enableJavascriptMarkup #attr:enableJavascriptMarkup#+{- | Determines whether or not JavaScript markup is allowed in document. When this setting is disabled,+all JavaScript-related elements and attributes are removed from the document during parsing. Note that+executing JavaScript is still allowed if 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ is 'True'.++/Since: 2.24/+-}+#if ENABLE_OVERLOADING+    SettingsEnableJavascriptMarkupPropertyInfo,+#endif+    constructSettingsEnableJavascriptMarkup ,+    getSettingsEnableJavascriptMarkup       ,+    setSettingsEnableJavascriptMarkup       ,+#if ENABLE_OVERLOADING+    settingsEnableJavascriptMarkup          ,+#endif+++-- ** enableMediaCapabilities #attr:enableMediaCapabilities#+{- | Enable or disable support for MediaCapabilities on pages. This+specification intends to provide APIs to allow websites to make an optimal+decision when picking media content for the user. The APIs will expose+information about the decoding and encoding capabilities for a given format+but also output capabilities to find the best match based on the device’s+display.++See also https:\/\/wicg.github.io\/media-capabilities\/++/Since: 2.22/+-}+#if ENABLE_OVERLOADING+    SettingsEnableMediaCapabilitiesPropertyInfo,+#endif+    constructSettingsEnableMediaCapabilities,+    getSettingsEnableMediaCapabilities      ,+    setSettingsEnableMediaCapabilities      ,+#if ENABLE_OVERLOADING+    settingsEnableMediaCapabilities         ,+#endif+++-- ** enableMediaStream #attr:enableMediaStream#+{- | Enable or disable support for MediaStream on pages. MediaStream+is an experimental proposal for allowing web pages to access+audio and video devices for capture.++See also http:\/\/dev.w3.org\/2011\/webrtc\/editor\/getusermedia.html++/Since: 2.4/+-}+#if ENABLE_OVERLOADING+    SettingsEnableMediaStreamPropertyInfo   ,+#endif+    constructSettingsEnableMediaStream      ,+    getSettingsEnableMediaStream            ,+    setSettingsEnableMediaStream            ,+#if ENABLE_OVERLOADING+    settingsEnableMediaStream               ,+#endif+++-- ** enableMediasource #attr:enableMediasource#+{- | Enable or disable support for MediaSource on pages. MediaSource+extends HTMLMediaElement to allow JavaScript to generate media+streams for playback.++See also http:\/\/www.w3.org\/TR\/media-source\/++/Since: 2.4/+-}+#if ENABLE_OVERLOADING+    SettingsEnableMediasourcePropertyInfo   ,+#endif+    constructSettingsEnableMediasource      ,+    getSettingsEnableMediasource            ,+    setSettingsEnableMediasource            ,+#if ENABLE_OVERLOADING+    settingsEnableMediasource               ,+#endif+++-- ** enableMockCaptureDevices #attr:enableMockCaptureDevices#+{- | Enable or disable the Mock Capture Devices. Those are fake+Microphone and Camera devices to be used as MediaStream+sources.++/Since: 2.24/+-}+#if ENABLE_OVERLOADING+    SettingsEnableMockCaptureDevicesPropertyInfo,+#endif+    constructSettingsEnableMockCaptureDevices,+    getSettingsEnableMockCaptureDevices     ,+    setSettingsEnableMockCaptureDevices     ,+#if ENABLE_OVERLOADING+    settingsEnableMockCaptureDevices        ,+#endif+++-- ** enableOfflineWebApplicationCache #attr:enableOfflineWebApplicationCache#+{- | Whether to enable HTML5 offline web application cache support. Offline+web application cache allows web applications to run even when+the user is not connected to the network.++HTML5 offline web application specification is available at+http:\/\/dev.w3.org\/html5\/spec\/offline.html.+-}+#if ENABLE_OVERLOADING+    SettingsEnableOfflineWebApplicationCachePropertyInfo,+#endif+    constructSettingsEnableOfflineWebApplicationCache,+    getSettingsEnableOfflineWebApplicationCache,+    setSettingsEnableOfflineWebApplicationCache,+#if ENABLE_OVERLOADING+    settingsEnableOfflineWebApplicationCache,+#endif+++-- ** enablePageCache #attr:enablePageCache#+{- | Enable or disable the page cache. Disabling the page cache is+generally only useful for special circumstances like low-memory+scenarios or special purpose applications like static HTML+viewers. This setting only controls the Page Cache, this cache+is different than the disk-based or memory-based traditional+resource caches, its point is to make going back and forth+between pages much faster. For details about the different types+of caches and their purposes see:+http:\/\/webkit.org\/blog\/427\/webkit-page-cache-i-the-basics\/+-}+#if ENABLE_OVERLOADING+    SettingsEnablePageCachePropertyInfo     ,+#endif+    constructSettingsEnablePageCache        ,+    getSettingsEnablePageCache              ,+    setSettingsEnablePageCache              ,+#if ENABLE_OVERLOADING+    settingsEnablePageCache                 ,+#endif+++-- ** enablePlugins #attr:enablePlugins#+{- | Determines whether or not plugins on the page are enabled.+-}+#if ENABLE_OVERLOADING+    SettingsEnablePluginsPropertyInfo       ,+#endif+    constructSettingsEnablePlugins          ,+    getSettingsEnablePlugins                ,+    setSettingsEnablePlugins                ,+#if ENABLE_OVERLOADING+    settingsEnablePlugins                   ,+#endif+++-- ** enablePrivateBrowsing #attr:enablePrivateBrowsing#+{- | Determines whether or not private browsing is enabled. Private browsing+will disable history, cache and form auto-fill for any pages visited.+-}+#if ENABLE_OVERLOADING+    SettingsEnablePrivateBrowsingPropertyInfo,+#endif+    constructSettingsEnablePrivateBrowsing  ,+    getSettingsEnablePrivateBrowsing        ,+    setSettingsEnablePrivateBrowsing        ,+#if ENABLE_OVERLOADING+    settingsEnablePrivateBrowsing           ,+#endif+++-- ** enableResizableTextAreas #attr:enableResizableTextAreas#+{- | Determines whether or not text areas can be resized.+-}+#if ENABLE_OVERLOADING+    SettingsEnableResizableTextAreasPropertyInfo,+#endif+    constructSettingsEnableResizableTextAreas,+    getSettingsEnableResizableTextAreas     ,+    setSettingsEnableResizableTextAreas     ,+#if ENABLE_OVERLOADING+    settingsEnableResizableTextAreas        ,+#endif+++-- ** enableSiteSpecificQuirks #attr:enableSiteSpecificQuirks#+{- | Whether to turn on site-specific quirks. Turning this on will+tell WebKit to use some site-specific workarounds for+better web compatibility. For example, older versions of+MediaWiki will incorrectly send to WebKit a CSS file with KHTML+workarounds. By turning on site-specific quirks, WebKit will+special-case this and other cases to make some specific sites work.+-}+#if ENABLE_OVERLOADING+    SettingsEnableSiteSpecificQuirksPropertyInfo,+#endif+    constructSettingsEnableSiteSpecificQuirks,+    getSettingsEnableSiteSpecificQuirks     ,+    setSettingsEnableSiteSpecificQuirks     ,+#if ENABLE_OVERLOADING+    settingsEnableSiteSpecificQuirks        ,+#endif+++-- ** enableSmoothScrolling #attr:enableSmoothScrolling#+{- | Enable or disable smooth scrolling.+-}+#if ENABLE_OVERLOADING+    SettingsEnableSmoothScrollingPropertyInfo,+#endif+    constructSettingsEnableSmoothScrolling  ,+    getSettingsEnableSmoothScrolling        ,+    setSettingsEnableSmoothScrolling        ,+#if ENABLE_OVERLOADING+    settingsEnableSmoothScrolling           ,+#endif+++-- ** enableSpatialNavigation #attr:enableSpatialNavigation#+{- | Whether to enable Spatial Navigation. This feature consists in the ability+to navigate between focusable elements in a Web page, such as hyperlinks+and form controls, by using Left, Right, Up and Down arrow keys.+For example, if an user presses the Right key, heuristics determine whether+there is an element they might be trying to reach towards the right, and if+there are multiple elements, which element they probably wants.++/Since: 2.4/+-}+#if ENABLE_OVERLOADING+    SettingsEnableSpatialNavigationPropertyInfo,+#endif+    constructSettingsEnableSpatialNavigation,+    getSettingsEnableSpatialNavigation      ,+    setSettingsEnableSpatialNavigation      ,+#if ENABLE_OVERLOADING+    settingsEnableSpatialNavigation         ,+#endif+++-- ** enableTabsToLinks #attr:enableTabsToLinks#+{- | Determines whether the tab key cycles through the elements on the page.+When this setting is enabled, users will be able to focus the next element+in the page by pressing the tab key. If the selected element is editable,+then pressing tab key will insert the tab character.+-}+#if ENABLE_OVERLOADING+    SettingsEnableTabsToLinksPropertyInfo   ,+#endif+    constructSettingsEnableTabsToLinks      ,+    getSettingsEnableTabsToLinks            ,+    setSettingsEnableTabsToLinks            ,+#if ENABLE_OVERLOADING+    settingsEnableTabsToLinks               ,+#endif+++-- ** enableWebaudio #attr:enableWebaudio#+{- | Enable or disable support for WebAudio on pages. WebAudio is an+experimental proposal for allowing web pages to generate Audio+WAVE data from JavaScript. The standard is currently a+work-in-progress by the W3C Audio Working Group.++See also https:\/\/dvcs.w3.org\/hg\/audio\/raw-file\/tip\/webaudio\/specification.html+-}+#if ENABLE_OVERLOADING+    SettingsEnableWebaudioPropertyInfo      ,+#endif+    constructSettingsEnableWebaudio         ,+    getSettingsEnableWebaudio               ,+    setSettingsEnableWebaudio               ,+#if ENABLE_OVERLOADING+    settingsEnableWebaudio                  ,+#endif+++-- ** enableWebgl #attr:enableWebgl#+{- | Enable or disable support for WebGL on pages. WebGL is an experimental+proposal for allowing web pages to use OpenGL ES-like calls directly. The+standard is currently a work-in-progress by the Khronos Group.+-}+#if ENABLE_OVERLOADING+    SettingsEnableWebglPropertyInfo         ,+#endif+    constructSettingsEnableWebgl            ,+    getSettingsEnableWebgl                  ,+    setSettingsEnableWebgl                  ,+#if ENABLE_OVERLOADING+    settingsEnableWebgl                     ,+#endif+++-- ** enableWriteConsoleMessagesToStdout #attr:enableWriteConsoleMessagesToStdout#+{- | Enable or disable writing console messages to stdout. These are messages+sent to the console with console.log and related methods.++/Since: 2.2/+-}+#if ENABLE_OVERLOADING+    SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo,+#endif+    constructSettingsEnableWriteConsoleMessagesToStdout,+    getSettingsEnableWriteConsoleMessagesToStdout,+    setSettingsEnableWriteConsoleMessagesToStdout,+#if ENABLE_OVERLOADING+    settingsEnableWriteConsoleMessagesToStdout,+#endif+++-- ** enableXssAuditor #attr:enableXssAuditor#+{- | Whether to enable the XSS auditor. This feature filters some kinds of+reflective XSS attacks on vulnerable web sites.+-}+#if ENABLE_OVERLOADING+    SettingsEnableXssAuditorPropertyInfo    ,+#endif+    constructSettingsEnableXssAuditor       ,+    getSettingsEnableXssAuditor             ,+    setSettingsEnableXssAuditor             ,+#if ENABLE_OVERLOADING+    settingsEnableXssAuditor                ,+#endif+++-- ** fantasyFontFamily #attr:fantasyFontFamily#+{- | The font family used as the default for content using a fantasy font.+-}+#if ENABLE_OVERLOADING+    SettingsFantasyFontFamilyPropertyInfo   ,+#endif+    constructSettingsFantasyFontFamily      ,+    getSettingsFantasyFontFamily            ,+    setSettingsFantasyFontFamily            ,+#if ENABLE_OVERLOADING+    settingsFantasyFontFamily               ,+#endif+++-- ** hardwareAccelerationPolicy #attr:hardwareAccelerationPolicy#+{- | The 'GI.WebKit2.Enums.HardwareAccelerationPolicy' to decide how to enable and disable+hardware acceleration. The default value 'GI.WebKit2.Enums.HardwareAccelerationPolicyOnDemand'+enables the hardware acceleration when the web contents request it, disabling it again+when no longer needed. It\'s possible to enforce hardware acceleration to be always enabled+by using 'GI.WebKit2.Enums.HardwareAccelerationPolicyAlways'. And it\'s also possible to disable it+completely using 'GI.WebKit2.Enums.HardwareAccelerationPolicyNever'. Note that disabling hardware+acceleration might cause some websites to not render correctly or consume more CPU.++Note that changing this setting might not be possible if hardware acceleration is not+supported by the hardware or the system. In that case you can get the value to know the+actual policy being used, but changing the setting will not have any effect.++/Since: 2.16/+-}+#if ENABLE_OVERLOADING+    SettingsHardwareAccelerationPolicyPropertyInfo,+#endif+    constructSettingsHardwareAccelerationPolicy,+    getSettingsHardwareAccelerationPolicy   ,+    setSettingsHardwareAccelerationPolicy   ,+#if ENABLE_OVERLOADING+    settingsHardwareAccelerationPolicy      ,+#endif+++-- ** javascriptCanAccessClipboard #attr:javascriptCanAccessClipboard#+{- | Whether JavaScript can access the clipboard. The default value is 'False'. If+set to 'True', document.@/execCommand()/@ allows cut, copy and paste commands.+-}+#if ENABLE_OVERLOADING+    SettingsJavascriptCanAccessClipboardPropertyInfo,+#endif+    constructSettingsJavascriptCanAccessClipboard,+    getSettingsJavascriptCanAccessClipboard ,+    setSettingsJavascriptCanAccessClipboard ,+#if ENABLE_OVERLOADING+    settingsJavascriptCanAccessClipboard    ,+#endif+++-- ** javascriptCanOpenWindowsAutomatically #attr:javascriptCanOpenWindowsAutomatically#+{- | Whether JavaScript can open popup windows automatically without user+intervention.+-}+#if ENABLE_OVERLOADING+    SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo,+#endif+    constructSettingsJavascriptCanOpenWindowsAutomatically,+    getSettingsJavascriptCanOpenWindowsAutomatically,+    setSettingsJavascriptCanOpenWindowsAutomatically,+#if ENABLE_OVERLOADING+    settingsJavascriptCanOpenWindowsAutomatically,+#endif+++-- ** loadIconsIgnoringImageLoadSetting #attr:loadIconsIgnoringImageLoadSetting#+{- | Determines whether a site can load favicons irrespective+of the value of 'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@.+-}+#if ENABLE_OVERLOADING+    SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo,+#endif+    constructSettingsLoadIconsIgnoringImageLoadSetting,+    getSettingsLoadIconsIgnoringImageLoadSetting,+    setSettingsLoadIconsIgnoringImageLoadSetting,+#if ENABLE_OVERLOADING+    settingsLoadIconsIgnoringImageLoadSetting,+#endif+++-- ** mediaPlaybackAllowsInline #attr:mediaPlaybackAllowsInline#+{- | Whether media playback is full-screen only or inline playback is allowed.+This is 'True' by default, so media playback can be inline. Setting it to+'False' allows specifying that media playback should be always fullscreen.+-}+#if ENABLE_OVERLOADING+    SettingsMediaPlaybackAllowsInlinePropertyInfo,+#endif+    constructSettingsMediaPlaybackAllowsInline,+    getSettingsMediaPlaybackAllowsInline    ,+    setSettingsMediaPlaybackAllowsInline    ,+#if ENABLE_OVERLOADING+    settingsMediaPlaybackAllowsInline       ,+#endif+++-- ** mediaPlaybackRequiresUserGesture #attr:mediaPlaybackRequiresUserGesture#+{- | Whether a user gesture (such as clicking the play button)+would be required to start media playback or load media. This is off+by default, so media playback could start automatically.+Setting it on requires a gesture by the user to start playback, or to+load the media.+-}+#if ENABLE_OVERLOADING+    SettingsMediaPlaybackRequiresUserGesturePropertyInfo,+#endif+    constructSettingsMediaPlaybackRequiresUserGesture,+    getSettingsMediaPlaybackRequiresUserGesture,+    setSettingsMediaPlaybackRequiresUserGesture,+#if ENABLE_OVERLOADING+    settingsMediaPlaybackRequiresUserGesture,+#endif+++-- ** minimumFontSize #attr:minimumFontSize#+{- | The minimum font size in pixels used to display text. This setting+controls the absolute smallest size. Values other than 0 can+potentially break page layouts.+-}+#if ENABLE_OVERLOADING+    SettingsMinimumFontSizePropertyInfo     ,+#endif+    constructSettingsMinimumFontSize        ,+    getSettingsMinimumFontSize              ,+    setSettingsMinimumFontSize              ,+#if ENABLE_OVERLOADING+    settingsMinimumFontSize                 ,+#endif+++-- ** monospaceFontFamily #attr:monospaceFontFamily#+{- | The font family used as the default for content using a monospace font.+-}+#if ENABLE_OVERLOADING+    SettingsMonospaceFontFamilyPropertyInfo ,+#endif+    constructSettingsMonospaceFontFamily    ,+    getSettingsMonospaceFontFamily          ,+    setSettingsMonospaceFontFamily          ,+#if ENABLE_OVERLOADING+    settingsMonospaceFontFamily             ,+#endif+++-- ** pictographFontFamily #attr:pictographFontFamily#+{- | The font family used as the default for content using a pictograph font.+-}+#if ENABLE_OVERLOADING+    SettingsPictographFontFamilyPropertyInfo,+#endif+    constructSettingsPictographFontFamily   ,+    getSettingsPictographFontFamily         ,+    setSettingsPictographFontFamily         ,+#if ENABLE_OVERLOADING+    settingsPictographFontFamily            ,+#endif+++-- ** printBackgrounds #attr:printBackgrounds#+{- | Whether background images should be drawn during printing.+-}+#if ENABLE_OVERLOADING+    SettingsPrintBackgroundsPropertyInfo    ,+#endif+    constructSettingsPrintBackgrounds       ,+    getSettingsPrintBackgrounds             ,+    setSettingsPrintBackgrounds             ,+#if ENABLE_OVERLOADING+    settingsPrintBackgrounds                ,+#endif+++-- ** sansSerifFontFamily #attr:sansSerifFontFamily#+{- | The font family used as the default for content using a sans-serif font.+-}+#if ENABLE_OVERLOADING+    SettingsSansSerifFontFamilyPropertyInfo ,+#endif+    constructSettingsSansSerifFontFamily    ,+    getSettingsSansSerifFontFamily          ,+    setSettingsSansSerifFontFamily          ,+#if ENABLE_OVERLOADING+    settingsSansSerifFontFamily             ,+#endif+++-- ** serifFontFamily #attr:serifFontFamily#+{- | The font family used as the default for content using a serif font.+-}+#if ENABLE_OVERLOADING+    SettingsSerifFontFamilyPropertyInfo     ,+#endif+    constructSettingsSerifFontFamily        ,+    getSettingsSerifFontFamily              ,+    setSettingsSerifFontFamily              ,+#if ENABLE_OVERLOADING+    settingsSerifFontFamily                 ,+#endif+++-- ** userAgent #attr:userAgent#+{- | The user-agent string used by WebKit. Unusual user-agent strings may cause web+content to render incorrectly or fail to run, as many web pages are written to+parse the user-agent strings of only the most popular browsers. Therefore, it\'s+typically better to not completely override the standard user-agent, but to use+'GI.WebKit2.Objects.Settings.settingsSetUserAgentWithApplicationDetails' instead.++If this property is set to the empty string or 'Nothing', it will revert to the standard+user-agent.+-}+#if ENABLE_OVERLOADING+    SettingsUserAgentPropertyInfo           ,+#endif+    clearSettingsUserAgent                  ,+    constructSettingsUserAgent              ,+    getSettingsUserAgent                    ,+    setSettingsUserAgent                    ,+#if ENABLE_OVERLOADING+    settingsUserAgent                       ,+#endif+++-- ** zoomTextOnly #attr:zoomTextOnly#+{- | Whether 'GI.WebKit2.Objects.WebView.WebView':@/zoom-level/@ affects only the+text of the page or all the contents. Other contents containing text+like form controls will be also affected by zoom factor when+this property is enabled.+-}+#if ENABLE_OVERLOADING+    SettingsZoomTextOnlyPropertyInfo        ,+#endif+    constructSettingsZoomTextOnly           ,+    getSettingsZoomTextOnly                 ,+    setSettingsZoomTextOnly                 ,+#if ENABLE_OVERLOADING+    settingsZoomTextOnly                    ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums++-- | Memory-managed wrapper type.+newtype Settings = Settings (ManagedPtr Settings)+foreign import ccall "webkit_settings_get_type"+    c_webkit_settings_get_type :: IO GType++instance GObject Settings where+    gobjectType = c_webkit_settings_get_type+    ++-- | Type class for types which can be safely cast to `Settings`, for instance with `toSettings`.+class (GObject o, O.IsDescendantOf Settings o) => IsSettings o+instance (GObject o, O.IsDescendantOf Settings o) => IsSettings o++instance O.HasParentTypes Settings+type instance O.ParentTypes Settings = '[GObject.Object.Object]++-- | Cast to `Settings`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toSettings :: (MonadIO m, IsSettings o) => o -> m Settings+toSettings = liftIO . unsafeCastTo Settings++-- | A convenience alias for `Nothing` :: `Maybe` `Settings`.+noSettings :: Maybe Settings+noSettings = Nothing++#if ENABLE_OVERLOADING+type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where+    ResolveSettingsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveSettingsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveSettingsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveSettingsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveSettingsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveSettingsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveSettingsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveSettingsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveSettingsMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveSettingsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveSettingsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveSettingsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveSettingsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveSettingsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveSettingsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveSettingsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveSettingsMethod "getAllowFileAccessFromFileUrls" o = SettingsGetAllowFileAccessFromFileUrlsMethodInfo+    ResolveSettingsMethod "getAllowModalDialogs" o = SettingsGetAllowModalDialogsMethodInfo+    ResolveSettingsMethod "getAllowUniversalAccessFromFileUrls" o = SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo+    ResolveSettingsMethod "getAutoLoadImages" o = SettingsGetAutoLoadImagesMethodInfo+    ResolveSettingsMethod "getCursiveFontFamily" o = SettingsGetCursiveFontFamilyMethodInfo+    ResolveSettingsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveSettingsMethod "getDefaultCharset" o = SettingsGetDefaultCharsetMethodInfo+    ResolveSettingsMethod "getDefaultFontFamily" o = SettingsGetDefaultFontFamilyMethodInfo+    ResolveSettingsMethod "getDefaultFontSize" o = SettingsGetDefaultFontSizeMethodInfo+    ResolveSettingsMethod "getDefaultMonospaceFontSize" o = SettingsGetDefaultMonospaceFontSizeMethodInfo+    ResolveSettingsMethod "getDrawCompositingIndicators" o = SettingsGetDrawCompositingIndicatorsMethodInfo+    ResolveSettingsMethod "getEnableAccelerated2dCanvas" o = SettingsGetEnableAccelerated2dCanvasMethodInfo+    ResolveSettingsMethod "getEnableBackForwardNavigationGestures" o = SettingsGetEnableBackForwardNavigationGesturesMethodInfo+    ResolveSettingsMethod "getEnableCaretBrowsing" o = SettingsGetEnableCaretBrowsingMethodInfo+    ResolveSettingsMethod "getEnableDeveloperExtras" o = SettingsGetEnableDeveloperExtrasMethodInfo+    ResolveSettingsMethod "getEnableDnsPrefetching" o = SettingsGetEnableDnsPrefetchingMethodInfo+    ResolveSettingsMethod "getEnableEncryptedMedia" o = SettingsGetEnableEncryptedMediaMethodInfo+    ResolveSettingsMethod "getEnableFrameFlattening" o = SettingsGetEnableFrameFlatteningMethodInfo+    ResolveSettingsMethod "getEnableFullscreen" o = SettingsGetEnableFullscreenMethodInfo+    ResolveSettingsMethod "getEnableHtml5Database" o = SettingsGetEnableHtml5DatabaseMethodInfo+    ResolveSettingsMethod "getEnableHtml5LocalStorage" o = SettingsGetEnableHtml5LocalStorageMethodInfo+    ResolveSettingsMethod "getEnableHyperlinkAuditing" o = SettingsGetEnableHyperlinkAuditingMethodInfo+    ResolveSettingsMethod "getEnableJava" o = SettingsGetEnableJavaMethodInfo+    ResolveSettingsMethod "getEnableJavascript" o = SettingsGetEnableJavascriptMethodInfo+    ResolveSettingsMethod "getEnableJavascriptMarkup" o = SettingsGetEnableJavascriptMarkupMethodInfo+    ResolveSettingsMethod "getEnableMediaCapabilities" o = SettingsGetEnableMediaCapabilitiesMethodInfo+    ResolveSettingsMethod "getEnableMediaStream" o = SettingsGetEnableMediaStreamMethodInfo+    ResolveSettingsMethod "getEnableMediasource" o = SettingsGetEnableMediasourceMethodInfo+    ResolveSettingsMethod "getEnableMockCaptureDevices" o = SettingsGetEnableMockCaptureDevicesMethodInfo+    ResolveSettingsMethod "getEnableOfflineWebApplicationCache" o = SettingsGetEnableOfflineWebApplicationCacheMethodInfo+    ResolveSettingsMethod "getEnablePageCache" o = SettingsGetEnablePageCacheMethodInfo+    ResolveSettingsMethod "getEnablePlugins" o = SettingsGetEnablePluginsMethodInfo+    ResolveSettingsMethod "getEnablePrivateBrowsing" o = SettingsGetEnablePrivateBrowsingMethodInfo+    ResolveSettingsMethod "getEnableResizableTextAreas" o = SettingsGetEnableResizableTextAreasMethodInfo+    ResolveSettingsMethod "getEnableSiteSpecificQuirks" o = SettingsGetEnableSiteSpecificQuirksMethodInfo+    ResolveSettingsMethod "getEnableSmoothScrolling" o = SettingsGetEnableSmoothScrollingMethodInfo+    ResolveSettingsMethod "getEnableSpatialNavigation" o = SettingsGetEnableSpatialNavigationMethodInfo+    ResolveSettingsMethod "getEnableTabsToLinks" o = SettingsGetEnableTabsToLinksMethodInfo+    ResolveSettingsMethod "getEnableWebaudio" o = SettingsGetEnableWebaudioMethodInfo+    ResolveSettingsMethod "getEnableWebgl" o = SettingsGetEnableWebglMethodInfo+    ResolveSettingsMethod "getEnableWriteConsoleMessagesToStdout" o = SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo+    ResolveSettingsMethod "getEnableXssAuditor" o = SettingsGetEnableXssAuditorMethodInfo+    ResolveSettingsMethod "getFantasyFontFamily" o = SettingsGetFantasyFontFamilyMethodInfo+    ResolveSettingsMethod "getHardwareAccelerationPolicy" o = SettingsGetHardwareAccelerationPolicyMethodInfo+    ResolveSettingsMethod "getJavascriptCanAccessClipboard" o = SettingsGetJavascriptCanAccessClipboardMethodInfo+    ResolveSettingsMethod "getJavascriptCanOpenWindowsAutomatically" o = SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo+    ResolveSettingsMethod "getLoadIconsIgnoringImageLoadSetting" o = SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo+    ResolveSettingsMethod "getMediaPlaybackAllowsInline" o = SettingsGetMediaPlaybackAllowsInlineMethodInfo+    ResolveSettingsMethod "getMediaPlaybackRequiresUserGesture" o = SettingsGetMediaPlaybackRequiresUserGestureMethodInfo+    ResolveSettingsMethod "getMinimumFontSize" o = SettingsGetMinimumFontSizeMethodInfo+    ResolveSettingsMethod "getMonospaceFontFamily" o = SettingsGetMonospaceFontFamilyMethodInfo+    ResolveSettingsMethod "getPictographFontFamily" o = SettingsGetPictographFontFamilyMethodInfo+    ResolveSettingsMethod "getPrintBackgrounds" o = SettingsGetPrintBackgroundsMethodInfo+    ResolveSettingsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveSettingsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveSettingsMethod "getSansSerifFontFamily" o = SettingsGetSansSerifFontFamilyMethodInfo+    ResolveSettingsMethod "getSerifFontFamily" o = SettingsGetSerifFontFamilyMethodInfo+    ResolveSettingsMethod "getUserAgent" o = SettingsGetUserAgentMethodInfo+    ResolveSettingsMethod "getZoomTextOnly" o = SettingsGetZoomTextOnlyMethodInfo+    ResolveSettingsMethod "setAllowFileAccessFromFileUrls" o = SettingsSetAllowFileAccessFromFileUrlsMethodInfo+    ResolveSettingsMethod "setAllowModalDialogs" o = SettingsSetAllowModalDialogsMethodInfo+    ResolveSettingsMethod "setAllowUniversalAccessFromFileUrls" o = SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo+    ResolveSettingsMethod "setAutoLoadImages" o = SettingsSetAutoLoadImagesMethodInfo+    ResolveSettingsMethod "setCursiveFontFamily" o = SettingsSetCursiveFontFamilyMethodInfo+    ResolveSettingsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveSettingsMethod "setDefaultCharset" o = SettingsSetDefaultCharsetMethodInfo+    ResolveSettingsMethod "setDefaultFontFamily" o = SettingsSetDefaultFontFamilyMethodInfo+    ResolveSettingsMethod "setDefaultFontSize" o = SettingsSetDefaultFontSizeMethodInfo+    ResolveSettingsMethod "setDefaultMonospaceFontSize" o = SettingsSetDefaultMonospaceFontSizeMethodInfo+    ResolveSettingsMethod "setDrawCompositingIndicators" o = SettingsSetDrawCompositingIndicatorsMethodInfo+    ResolveSettingsMethod "setEnableAccelerated2dCanvas" o = SettingsSetEnableAccelerated2dCanvasMethodInfo+    ResolveSettingsMethod "setEnableBackForwardNavigationGestures" o = SettingsSetEnableBackForwardNavigationGesturesMethodInfo+    ResolveSettingsMethod "setEnableCaretBrowsing" o = SettingsSetEnableCaretBrowsingMethodInfo+    ResolveSettingsMethod "setEnableDeveloperExtras" o = SettingsSetEnableDeveloperExtrasMethodInfo+    ResolveSettingsMethod "setEnableDnsPrefetching" o = SettingsSetEnableDnsPrefetchingMethodInfo+    ResolveSettingsMethod "setEnableEncryptedMedia" o = SettingsSetEnableEncryptedMediaMethodInfo+    ResolveSettingsMethod "setEnableFrameFlattening" o = SettingsSetEnableFrameFlatteningMethodInfo+    ResolveSettingsMethod "setEnableFullscreen" o = SettingsSetEnableFullscreenMethodInfo+    ResolveSettingsMethod "setEnableHtml5Database" o = SettingsSetEnableHtml5DatabaseMethodInfo+    ResolveSettingsMethod "setEnableHtml5LocalStorage" o = SettingsSetEnableHtml5LocalStorageMethodInfo+    ResolveSettingsMethod "setEnableHyperlinkAuditing" o = SettingsSetEnableHyperlinkAuditingMethodInfo+    ResolveSettingsMethod "setEnableJava" o = SettingsSetEnableJavaMethodInfo+    ResolveSettingsMethod "setEnableJavascript" o = SettingsSetEnableJavascriptMethodInfo+    ResolveSettingsMethod "setEnableJavascriptMarkup" o = SettingsSetEnableJavascriptMarkupMethodInfo+    ResolveSettingsMethod "setEnableMediaCapabilities" o = SettingsSetEnableMediaCapabilitiesMethodInfo+    ResolveSettingsMethod "setEnableMediaStream" o = SettingsSetEnableMediaStreamMethodInfo+    ResolveSettingsMethod "setEnableMediasource" o = SettingsSetEnableMediasourceMethodInfo+    ResolveSettingsMethod "setEnableMockCaptureDevices" o = SettingsSetEnableMockCaptureDevicesMethodInfo+    ResolveSettingsMethod "setEnableOfflineWebApplicationCache" o = SettingsSetEnableOfflineWebApplicationCacheMethodInfo+    ResolveSettingsMethod "setEnablePageCache" o = SettingsSetEnablePageCacheMethodInfo+    ResolveSettingsMethod "setEnablePlugins" o = SettingsSetEnablePluginsMethodInfo+    ResolveSettingsMethod "setEnablePrivateBrowsing" o = SettingsSetEnablePrivateBrowsingMethodInfo+    ResolveSettingsMethod "setEnableResizableTextAreas" o = SettingsSetEnableResizableTextAreasMethodInfo+    ResolveSettingsMethod "setEnableSiteSpecificQuirks" o = SettingsSetEnableSiteSpecificQuirksMethodInfo+    ResolveSettingsMethod "setEnableSmoothScrolling" o = SettingsSetEnableSmoothScrollingMethodInfo+    ResolveSettingsMethod "setEnableSpatialNavigation" o = SettingsSetEnableSpatialNavigationMethodInfo+    ResolveSettingsMethod "setEnableTabsToLinks" o = SettingsSetEnableTabsToLinksMethodInfo+    ResolveSettingsMethod "setEnableWebaudio" o = SettingsSetEnableWebaudioMethodInfo+    ResolveSettingsMethod "setEnableWebgl" o = SettingsSetEnableWebglMethodInfo+    ResolveSettingsMethod "setEnableWriteConsoleMessagesToStdout" o = SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo+    ResolveSettingsMethod "setEnableXssAuditor" o = SettingsSetEnableXssAuditorMethodInfo+    ResolveSettingsMethod "setFantasyFontFamily" o = SettingsSetFantasyFontFamilyMethodInfo+    ResolveSettingsMethod "setHardwareAccelerationPolicy" o = SettingsSetHardwareAccelerationPolicyMethodInfo+    ResolveSettingsMethod "setJavascriptCanAccessClipboard" o = SettingsSetJavascriptCanAccessClipboardMethodInfo+    ResolveSettingsMethod "setJavascriptCanOpenWindowsAutomatically" o = SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo+    ResolveSettingsMethod "setLoadIconsIgnoringImageLoadSetting" o = SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo+    ResolveSettingsMethod "setMediaPlaybackAllowsInline" o = SettingsSetMediaPlaybackAllowsInlineMethodInfo+    ResolveSettingsMethod "setMediaPlaybackRequiresUserGesture" o = SettingsSetMediaPlaybackRequiresUserGestureMethodInfo+    ResolveSettingsMethod "setMinimumFontSize" o = SettingsSetMinimumFontSizeMethodInfo+    ResolveSettingsMethod "setMonospaceFontFamily" o = SettingsSetMonospaceFontFamilyMethodInfo+    ResolveSettingsMethod "setPictographFontFamily" o = SettingsSetPictographFontFamilyMethodInfo+    ResolveSettingsMethod "setPrintBackgrounds" o = SettingsSetPrintBackgroundsMethodInfo+    ResolveSettingsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveSettingsMethod "setSansSerifFontFamily" o = SettingsSetSansSerifFontFamilyMethodInfo+    ResolveSettingsMethod "setSerifFontFamily" o = SettingsSetSerifFontFamilyMethodInfo+    ResolveSettingsMethod "setUserAgent" o = SettingsSetUserAgentMethodInfo+    ResolveSettingsMethod "setUserAgentWithApplicationDetails" o = SettingsSetUserAgentWithApplicationDetailsMethodInfo+    ResolveSettingsMethod "setZoomTextOnly" o = SettingsSetZoomTextOnlyMethodInfo+    ResolveSettingsMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveSettingsMethod t Settings, O.MethodInfo info Settings p) => OL.IsLabel t (Settings -> 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++-- VVV Prop "allow-file-access-from-file-urls"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@allow-file-access-from-file-urls@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #allowFileAccessFromFileUrls+@+-}+getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsAllowFileAccessFromFileUrls obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-file-access-from-file-urls"++{- |+Set the value of the “@allow-file-access-from-file-urls@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #allowFileAccessFromFileUrls 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-file-access-from-file-urls" val++{- |+Construct a `GValueConstruct` with valid value for the “@allow-file-access-from-file-urls@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsAllowFileAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsAllowFileAccessFromFileUrls val = B.Properties.constructObjectPropertyBool "allow-file-access-from-file-urls" val++#if ENABLE_OVERLOADING+data SettingsAllowFileAccessFromFileUrlsPropertyInfo+instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where+    type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = IsSettings+    type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool+    type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls"+    type AttrOrigin SettingsAllowFileAccessFromFileUrlsPropertyInfo = Settings+    attrGet _ = getSettingsAllowFileAccessFromFileUrls+    attrSet _ = setSettingsAllowFileAccessFromFileUrls+    attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls+    attrClear _ = undefined+#endif++-- VVV Prop "allow-modal-dialogs"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@allow-modal-dialogs@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #allowModalDialogs+@+-}+getSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsAllowModalDialogs obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-modal-dialogs"++{- |+Set the value of the “@allow-modal-dialogs@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #allowModalDialogs 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsAllowModalDialogs :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsAllowModalDialogs obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-modal-dialogs" val++{- |+Construct a `GValueConstruct` with valid value for the “@allow-modal-dialogs@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsAllowModalDialogs :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsAllowModalDialogs val = B.Properties.constructObjectPropertyBool "allow-modal-dialogs" val++#if ENABLE_OVERLOADING+data SettingsAllowModalDialogsPropertyInfo+instance AttrInfo SettingsAllowModalDialogsPropertyInfo where+    type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = IsSettings+    type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool+    type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs"+    type AttrOrigin SettingsAllowModalDialogsPropertyInfo = Settings+    attrGet _ = getSettingsAllowModalDialogs+    attrSet _ = setSettingsAllowModalDialogs+    attrConstruct _ = constructSettingsAllowModalDialogs+    attrClear _ = undefined+#endif++-- VVV Prop "allow-universal-access-from-file-urls"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@allow-universal-access-from-file-urls@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #allowUniversalAccessFromFileUrls+@+-}+getSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsAllowUniversalAccessFromFileUrls obj = liftIO $ B.Properties.getObjectPropertyBool obj "allow-universal-access-from-file-urls"++{- |+Set the value of the “@allow-universal-access-from-file-urls@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #allowUniversalAccessFromFileUrls 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsAllowUniversalAccessFromFileUrls :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsAllowUniversalAccessFromFileUrls obj val = liftIO $ B.Properties.setObjectPropertyBool obj "allow-universal-access-from-file-urls" val++{- |+Construct a `GValueConstruct` with valid value for the “@allow-universal-access-from-file-urls@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsAllowUniversalAccessFromFileUrls :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsAllowUniversalAccessFromFileUrls val = B.Properties.constructObjectPropertyBool "allow-universal-access-from-file-urls" val++#if ENABLE_OVERLOADING+data SettingsAllowUniversalAccessFromFileUrlsPropertyInfo+instance AttrInfo SettingsAllowUniversalAccessFromFileUrlsPropertyInfo where+    type AttrAllowedOps SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = IsSettings+    type AttrGetType SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Bool+    type AttrLabel SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = "allow-universal-access-from-file-urls"+    type AttrOrigin SettingsAllowUniversalAccessFromFileUrlsPropertyInfo = Settings+    attrGet _ = getSettingsAllowUniversalAccessFromFileUrls+    attrSet _ = setSettingsAllowUniversalAccessFromFileUrls+    attrConstruct _ = constructSettingsAllowUniversalAccessFromFileUrls+    attrClear _ = undefined+#endif++-- VVV Prop "auto-load-images"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@auto-load-images@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #autoLoadImages+@+-}+getSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsAutoLoadImages obj = liftIO $ B.Properties.getObjectPropertyBool obj "auto-load-images"++{- |+Set the value of the “@auto-load-images@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #autoLoadImages 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsAutoLoadImages :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsAutoLoadImages obj val = liftIO $ B.Properties.setObjectPropertyBool obj "auto-load-images" val++{- |+Construct a `GValueConstruct` with valid value for the “@auto-load-images@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsAutoLoadImages :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsAutoLoadImages val = B.Properties.constructObjectPropertyBool "auto-load-images" val++#if ENABLE_OVERLOADING+data SettingsAutoLoadImagesPropertyInfo+instance AttrInfo SettingsAutoLoadImagesPropertyInfo where+    type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = IsSettings+    type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool+    type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images"+    type AttrOrigin SettingsAutoLoadImagesPropertyInfo = Settings+    attrGet _ = getSettingsAutoLoadImages+    attrSet _ = setSettingsAutoLoadImages+    attrConstruct _ = constructSettingsAutoLoadImages+    attrClear _ = undefined+#endif++-- VVV Prop "cursive-font-family"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@cursive-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #cursiveFontFamily+@+-}+getSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsCursiveFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsCursiveFontFamily" $ B.Properties.getObjectPropertyString obj "cursive-font-family"++{- |+Set the value of the “@cursive-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #cursiveFontFamily 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsCursiveFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsCursiveFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "cursive-font-family" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@cursive-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsCursiveFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsCursiveFontFamily val = B.Properties.constructObjectPropertyString "cursive-font-family" (Just val)++#if ENABLE_OVERLOADING+data SettingsCursiveFontFamilyPropertyInfo+instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where+    type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = IsSettings+    type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text+    type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family"+    type AttrOrigin SettingsCursiveFontFamilyPropertyInfo = Settings+    attrGet _ = getSettingsCursiveFontFamily+    attrSet _ = setSettingsCursiveFontFamily+    attrConstruct _ = constructSettingsCursiveFontFamily+    attrClear _ = undefined+#endif++-- VVV Prop "default-charset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@default-charset@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #defaultCharset+@+-}+getSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsDefaultCharset obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultCharset" $ B.Properties.getObjectPropertyString obj "default-charset"++{- |+Set the value of the “@default-charset@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #defaultCharset 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsDefaultCharset :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsDefaultCharset obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-charset" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@default-charset@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsDefaultCharset :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsDefaultCharset val = B.Properties.constructObjectPropertyString "default-charset" (Just val)++#if ENABLE_OVERLOADING+data SettingsDefaultCharsetPropertyInfo+instance AttrInfo SettingsDefaultCharsetPropertyInfo where+    type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = IsSettings+    type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text+    type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset"+    type AttrOrigin SettingsDefaultCharsetPropertyInfo = Settings+    attrGet _ = getSettingsDefaultCharset+    attrSet _ = setSettingsDefaultCharset+    attrConstruct _ = constructSettingsDefaultCharset+    attrClear _ = undefined+#endif++-- VVV Prop "default-font-family"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@default-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #defaultFontFamily+@+-}+getSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsDefaultFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultFontFamily" $ B.Properties.getObjectPropertyString obj "default-font-family"++{- |+Set the value of the “@default-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #defaultFontFamily 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsDefaultFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsDefaultFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-font-family" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@default-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsDefaultFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsDefaultFontFamily val = B.Properties.constructObjectPropertyString "default-font-family" (Just val)++#if ENABLE_OVERLOADING+data SettingsDefaultFontFamilyPropertyInfo+instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where+    type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = IsSettings+    type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text+    type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family"+    type AttrOrigin SettingsDefaultFontFamilyPropertyInfo = Settings+    attrGet _ = getSettingsDefaultFontFamily+    attrSet _ = setSettingsDefaultFontFamily+    attrConstruct _ = constructSettingsDefaultFontFamily+    attrClear _ = undefined+#endif++-- VVV Prop "default-font-size"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@default-font-size@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #defaultFontSize+@+-}+getSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> m Word32+getSettingsDefaultFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "default-font-size"++{- |+Set the value of the “@default-font-size@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #defaultFontSize 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsDefaultFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()+setSettingsDefaultFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "default-font-size" val++{- |+Construct a `GValueConstruct` with valid value for the “@default-font-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsDefaultFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)+constructSettingsDefaultFontSize val = B.Properties.constructObjectPropertyUInt32 "default-font-size" val++#if ENABLE_OVERLOADING+data SettingsDefaultFontSizePropertyInfo+instance AttrInfo SettingsDefaultFontSizePropertyInfo where+    type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32+    type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = IsSettings+    type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32+    type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size"+    type AttrOrigin SettingsDefaultFontSizePropertyInfo = Settings+    attrGet _ = getSettingsDefaultFontSize+    attrSet _ = setSettingsDefaultFontSize+    attrConstruct _ = constructSettingsDefaultFontSize+    attrClear _ = undefined+#endif++-- VVV Prop "default-monospace-font-size"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@default-monospace-font-size@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #defaultMonospaceFontSize+@+-}+getSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> m Word32+getSettingsDefaultMonospaceFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "default-monospace-font-size"++{- |+Set the value of the “@default-monospace-font-size@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #defaultMonospaceFontSize 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsDefaultMonospaceFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()+setSettingsDefaultMonospaceFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "default-monospace-font-size" val++{- |+Construct a `GValueConstruct` with valid value for the “@default-monospace-font-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsDefaultMonospaceFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)+constructSettingsDefaultMonospaceFontSize val = B.Properties.constructObjectPropertyUInt32 "default-monospace-font-size" val++#if ENABLE_OVERLOADING+data SettingsDefaultMonospaceFontSizePropertyInfo+instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where+    type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32+    type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = IsSettings+    type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32+    type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size"+    type AttrOrigin SettingsDefaultMonospaceFontSizePropertyInfo = Settings+    attrGet _ = getSettingsDefaultMonospaceFontSize+    attrSet _ = setSettingsDefaultMonospaceFontSize+    attrConstruct _ = constructSettingsDefaultMonospaceFontSize+    attrClear _ = undefined+#endif++-- VVV Prop "draw-compositing-indicators"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@draw-compositing-indicators@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #drawCompositingIndicators+@+-}+getSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsDrawCompositingIndicators obj = liftIO $ B.Properties.getObjectPropertyBool obj "draw-compositing-indicators"++{- |+Set the value of the “@draw-compositing-indicators@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #drawCompositingIndicators 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsDrawCompositingIndicators :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsDrawCompositingIndicators obj val = liftIO $ B.Properties.setObjectPropertyBool obj "draw-compositing-indicators" val++{- |+Construct a `GValueConstruct` with valid value for the “@draw-compositing-indicators@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsDrawCompositingIndicators :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsDrawCompositingIndicators val = B.Properties.constructObjectPropertyBool "draw-compositing-indicators" val++#if ENABLE_OVERLOADING+data SettingsDrawCompositingIndicatorsPropertyInfo+instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where+    type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = IsSettings+    type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool+    type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators"+    type AttrOrigin SettingsDrawCompositingIndicatorsPropertyInfo = Settings+    attrGet _ = getSettingsDrawCompositingIndicators+    attrSet _ = setSettingsDrawCompositingIndicators+    attrConstruct _ = constructSettingsDrawCompositingIndicators+    attrClear _ = undefined+#endif++-- VVV Prop "enable-accelerated-2d-canvas"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-accelerated-2d-canvas@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableAccelerated2dCanvas+@+-}+getSettingsEnableAccelerated2dCanvas :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableAccelerated2dCanvas obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-accelerated-2d-canvas"++{- |+Set the value of the “@enable-accelerated-2d-canvas@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableAccelerated2dCanvas 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableAccelerated2dCanvas :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableAccelerated2dCanvas obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-accelerated-2d-canvas" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-accelerated-2d-canvas@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableAccelerated2dCanvas :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableAccelerated2dCanvas val = B.Properties.constructObjectPropertyBool "enable-accelerated-2d-canvas" val++#if ENABLE_OVERLOADING+data SettingsEnableAccelerated2dCanvasPropertyInfo+instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where+    type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = IsSettings+    type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool+    type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas"+    type AttrOrigin SettingsEnableAccelerated2dCanvasPropertyInfo = Settings+    attrGet _ = getSettingsEnableAccelerated2dCanvas+    attrSet _ = setSettingsEnableAccelerated2dCanvas+    attrConstruct _ = constructSettingsEnableAccelerated2dCanvas+    attrClear _ = undefined+#endif++-- VVV Prop "enable-back-forward-navigation-gestures"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-back-forward-navigation-gestures@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableBackForwardNavigationGestures+@+-}+getSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableBackForwardNavigationGestures obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-back-forward-navigation-gestures"++{- |+Set the value of the “@enable-back-forward-navigation-gestures@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableBackForwardNavigationGestures 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableBackForwardNavigationGestures :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableBackForwardNavigationGestures obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-back-forward-navigation-gestures" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-back-forward-navigation-gestures@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableBackForwardNavigationGestures :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableBackForwardNavigationGestures val = B.Properties.constructObjectPropertyBool "enable-back-forward-navigation-gestures" val++#if ENABLE_OVERLOADING+data SettingsEnableBackForwardNavigationGesturesPropertyInfo+instance AttrInfo SettingsEnableBackForwardNavigationGesturesPropertyInfo where+    type AttrAllowedOps SettingsEnableBackForwardNavigationGesturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableBackForwardNavigationGesturesPropertyInfo = IsSettings+    type AttrGetType SettingsEnableBackForwardNavigationGesturesPropertyInfo = Bool+    type AttrLabel SettingsEnableBackForwardNavigationGesturesPropertyInfo = "enable-back-forward-navigation-gestures"+    type AttrOrigin SettingsEnableBackForwardNavigationGesturesPropertyInfo = Settings+    attrGet _ = getSettingsEnableBackForwardNavigationGestures+    attrSet _ = setSettingsEnableBackForwardNavigationGestures+    attrConstruct _ = constructSettingsEnableBackForwardNavigationGestures+    attrClear _ = undefined+#endif++-- VVV Prop "enable-caret-browsing"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-caret-browsing@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableCaretBrowsing+@+-}+getSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableCaretBrowsing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-caret-browsing"++{- |+Set the value of the “@enable-caret-browsing@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableCaretBrowsing 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableCaretBrowsing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableCaretBrowsing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-caret-browsing" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-caret-browsing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableCaretBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableCaretBrowsing val = B.Properties.constructObjectPropertyBool "enable-caret-browsing" val++#if ENABLE_OVERLOADING+data SettingsEnableCaretBrowsingPropertyInfo+instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where+    type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = IsSettings+    type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool+    type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing"+    type AttrOrigin SettingsEnableCaretBrowsingPropertyInfo = Settings+    attrGet _ = getSettingsEnableCaretBrowsing+    attrSet _ = setSettingsEnableCaretBrowsing+    attrConstruct _ = constructSettingsEnableCaretBrowsing+    attrClear _ = undefined+#endif++-- VVV Prop "enable-developer-extras"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-developer-extras@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableDeveloperExtras+@+-}+getSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableDeveloperExtras obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-developer-extras"++{- |+Set the value of the “@enable-developer-extras@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableDeveloperExtras 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableDeveloperExtras :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableDeveloperExtras obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-developer-extras" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-developer-extras@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableDeveloperExtras :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableDeveloperExtras val = B.Properties.constructObjectPropertyBool "enable-developer-extras" val++#if ENABLE_OVERLOADING+data SettingsEnableDeveloperExtrasPropertyInfo+instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where+    type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = IsSettings+    type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool+    type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras"+    type AttrOrigin SettingsEnableDeveloperExtrasPropertyInfo = Settings+    attrGet _ = getSettingsEnableDeveloperExtras+    attrSet _ = setSettingsEnableDeveloperExtras+    attrConstruct _ = constructSettingsEnableDeveloperExtras+    attrClear _ = undefined+#endif++-- VVV Prop "enable-dns-prefetching"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-dns-prefetching@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableDnsPrefetching+@+-}+getSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableDnsPrefetching obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-dns-prefetching"++{- |+Set the value of the “@enable-dns-prefetching@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableDnsPrefetching 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableDnsPrefetching :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableDnsPrefetching obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-dns-prefetching" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-dns-prefetching@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableDnsPrefetching :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableDnsPrefetching val = B.Properties.constructObjectPropertyBool "enable-dns-prefetching" val++#if ENABLE_OVERLOADING+data SettingsEnableDnsPrefetchingPropertyInfo+instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where+    type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = IsSettings+    type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool+    type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching"+    type AttrOrigin SettingsEnableDnsPrefetchingPropertyInfo = Settings+    attrGet _ = getSettingsEnableDnsPrefetching+    attrSet _ = setSettingsEnableDnsPrefetching+    attrConstruct _ = constructSettingsEnableDnsPrefetching+    attrClear _ = undefined+#endif++-- VVV Prop "enable-encrypted-media"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-encrypted-media@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableEncryptedMedia+@+-}+getSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableEncryptedMedia obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-encrypted-media"++{- |+Set the value of the “@enable-encrypted-media@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableEncryptedMedia 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableEncryptedMedia :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableEncryptedMedia obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-encrypted-media" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-encrypted-media@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableEncryptedMedia :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableEncryptedMedia val = B.Properties.constructObjectPropertyBool "enable-encrypted-media" val++#if ENABLE_OVERLOADING+data SettingsEnableEncryptedMediaPropertyInfo+instance AttrInfo SettingsEnableEncryptedMediaPropertyInfo where+    type AttrAllowedOps SettingsEnableEncryptedMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableEncryptedMediaPropertyInfo = IsSettings+    type AttrGetType SettingsEnableEncryptedMediaPropertyInfo = Bool+    type AttrLabel SettingsEnableEncryptedMediaPropertyInfo = "enable-encrypted-media"+    type AttrOrigin SettingsEnableEncryptedMediaPropertyInfo = Settings+    attrGet _ = getSettingsEnableEncryptedMedia+    attrSet _ = setSettingsEnableEncryptedMedia+    attrConstruct _ = constructSettingsEnableEncryptedMedia+    attrClear _ = undefined+#endif++-- VVV Prop "enable-frame-flattening"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-frame-flattening@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableFrameFlattening+@+-}+getSettingsEnableFrameFlattening :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableFrameFlattening obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-frame-flattening"++{- |+Set the value of the “@enable-frame-flattening@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableFrameFlattening 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableFrameFlattening :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableFrameFlattening obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-frame-flattening" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-frame-flattening@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableFrameFlattening :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableFrameFlattening val = B.Properties.constructObjectPropertyBool "enable-frame-flattening" val++#if ENABLE_OVERLOADING+data SettingsEnableFrameFlatteningPropertyInfo+instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where+    type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = IsSettings+    type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool+    type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening"+    type AttrOrigin SettingsEnableFrameFlatteningPropertyInfo = Settings+    attrGet _ = getSettingsEnableFrameFlattening+    attrSet _ = setSettingsEnableFrameFlattening+    attrConstruct _ = constructSettingsEnableFrameFlattening+    attrClear _ = undefined+#endif++-- VVV Prop "enable-fullscreen"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-fullscreen@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableFullscreen+@+-}+getSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableFullscreen obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-fullscreen"++{- |+Set the value of the “@enable-fullscreen@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableFullscreen 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableFullscreen :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableFullscreen obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-fullscreen" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-fullscreen@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableFullscreen :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableFullscreen val = B.Properties.constructObjectPropertyBool "enable-fullscreen" val++#if ENABLE_OVERLOADING+data SettingsEnableFullscreenPropertyInfo+instance AttrInfo SettingsEnableFullscreenPropertyInfo where+    type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = IsSettings+    type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool+    type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen"+    type AttrOrigin SettingsEnableFullscreenPropertyInfo = Settings+    attrGet _ = getSettingsEnableFullscreen+    attrSet _ = setSettingsEnableFullscreen+    attrConstruct _ = constructSettingsEnableFullscreen+    attrClear _ = undefined+#endif++-- VVV Prop "enable-html5-database"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-html5-database@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableHtml5Database+@+-}+getSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableHtml5Database obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-html5-database"++{- |+Set the value of the “@enable-html5-database@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableHtml5Database 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableHtml5Database :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableHtml5Database obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-html5-database" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-html5-database@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableHtml5Database :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableHtml5Database val = B.Properties.constructObjectPropertyBool "enable-html5-database" val++#if ENABLE_OVERLOADING+data SettingsEnableHtml5DatabasePropertyInfo+instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where+    type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = IsSettings+    type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool+    type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database"+    type AttrOrigin SettingsEnableHtml5DatabasePropertyInfo = Settings+    attrGet _ = getSettingsEnableHtml5Database+    attrSet _ = setSettingsEnableHtml5Database+    attrConstruct _ = constructSettingsEnableHtml5Database+    attrClear _ = undefined+#endif++-- VVV Prop "enable-html5-local-storage"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-html5-local-storage@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableHtml5LocalStorage+@+-}+getSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableHtml5LocalStorage obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-html5-local-storage"++{- |+Set the value of the “@enable-html5-local-storage@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableHtml5LocalStorage 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableHtml5LocalStorage :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableHtml5LocalStorage obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-html5-local-storage" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-html5-local-storage@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableHtml5LocalStorage :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableHtml5LocalStorage val = B.Properties.constructObjectPropertyBool "enable-html5-local-storage" val++#if ENABLE_OVERLOADING+data SettingsEnableHtml5LocalStoragePropertyInfo+instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where+    type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = IsSettings+    type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool+    type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage"+    type AttrOrigin SettingsEnableHtml5LocalStoragePropertyInfo = Settings+    attrGet _ = getSettingsEnableHtml5LocalStorage+    attrSet _ = setSettingsEnableHtml5LocalStorage+    attrConstruct _ = constructSettingsEnableHtml5LocalStorage+    attrClear _ = undefined+#endif++-- VVV Prop "enable-hyperlink-auditing"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-hyperlink-auditing@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableHyperlinkAuditing+@+-}+getSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableHyperlinkAuditing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-hyperlink-auditing"++{- |+Set the value of the “@enable-hyperlink-auditing@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableHyperlinkAuditing 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableHyperlinkAuditing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableHyperlinkAuditing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-hyperlink-auditing" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-hyperlink-auditing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableHyperlinkAuditing :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableHyperlinkAuditing val = B.Properties.constructObjectPropertyBool "enable-hyperlink-auditing" val++#if ENABLE_OVERLOADING+data SettingsEnableHyperlinkAuditingPropertyInfo+instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where+    type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = IsSettings+    type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool+    type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing"+    type AttrOrigin SettingsEnableHyperlinkAuditingPropertyInfo = Settings+    attrGet _ = getSettingsEnableHyperlinkAuditing+    attrSet _ = setSettingsEnableHyperlinkAuditing+    attrConstruct _ = constructSettingsEnableHyperlinkAuditing+    attrClear _ = undefined+#endif++-- VVV Prop "enable-java"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-java@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableJava+@+-}+getSettingsEnableJava :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableJava obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-java"++{- |+Set the value of the “@enable-java@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableJava 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableJava :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableJava obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-java" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-java@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableJava :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableJava val = B.Properties.constructObjectPropertyBool "enable-java" val++#if ENABLE_OVERLOADING+data SettingsEnableJavaPropertyInfo+instance AttrInfo SettingsEnableJavaPropertyInfo where+    type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = IsSettings+    type AttrGetType SettingsEnableJavaPropertyInfo = Bool+    type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java"+    type AttrOrigin SettingsEnableJavaPropertyInfo = Settings+    attrGet _ = getSettingsEnableJava+    attrSet _ = setSettingsEnableJava+    attrConstruct _ = constructSettingsEnableJava+    attrClear _ = undefined+#endif++-- VVV Prop "enable-javascript"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-javascript@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableJavascript+@+-}+getSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableJavascript obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-javascript"++{- |+Set the value of the “@enable-javascript@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableJavascript 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableJavascript :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableJavascript obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-javascript" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-javascript@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableJavascript :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableJavascript val = B.Properties.constructObjectPropertyBool "enable-javascript" val++#if ENABLE_OVERLOADING+data SettingsEnableJavascriptPropertyInfo+instance AttrInfo SettingsEnableJavascriptPropertyInfo where+    type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = IsSettings+    type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool+    type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript"+    type AttrOrigin SettingsEnableJavascriptPropertyInfo = Settings+    attrGet _ = getSettingsEnableJavascript+    attrSet _ = setSettingsEnableJavascript+    attrConstruct _ = constructSettingsEnableJavascript+    attrClear _ = undefined+#endif++-- VVV Prop "enable-javascript-markup"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-javascript-markup@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableJavascriptMarkup+@+-}+getSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableJavascriptMarkup obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-javascript-markup"++{- |+Set the value of the “@enable-javascript-markup@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableJavascriptMarkup 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableJavascriptMarkup :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableJavascriptMarkup obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-javascript-markup" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-javascript-markup@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableJavascriptMarkup :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableJavascriptMarkup val = B.Properties.constructObjectPropertyBool "enable-javascript-markup" val++#if ENABLE_OVERLOADING+data SettingsEnableJavascriptMarkupPropertyInfo+instance AttrInfo SettingsEnableJavascriptMarkupPropertyInfo where+    type AttrAllowedOps SettingsEnableJavascriptMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableJavascriptMarkupPropertyInfo = IsSettings+    type AttrGetType SettingsEnableJavascriptMarkupPropertyInfo = Bool+    type AttrLabel SettingsEnableJavascriptMarkupPropertyInfo = "enable-javascript-markup"+    type AttrOrigin SettingsEnableJavascriptMarkupPropertyInfo = Settings+    attrGet _ = getSettingsEnableJavascriptMarkup+    attrSet _ = setSettingsEnableJavascriptMarkup+    attrConstruct _ = constructSettingsEnableJavascriptMarkup+    attrClear _ = undefined+#endif++-- VVV Prop "enable-media-capabilities"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-media-capabilities@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableMediaCapabilities+@+-}+getSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableMediaCapabilities obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-media-capabilities"++{- |+Set the value of the “@enable-media-capabilities@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableMediaCapabilities 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableMediaCapabilities :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableMediaCapabilities obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-media-capabilities" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-media-capabilities@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableMediaCapabilities :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableMediaCapabilities val = B.Properties.constructObjectPropertyBool "enable-media-capabilities" val++#if ENABLE_OVERLOADING+data SettingsEnableMediaCapabilitiesPropertyInfo+instance AttrInfo SettingsEnableMediaCapabilitiesPropertyInfo where+    type AttrAllowedOps SettingsEnableMediaCapabilitiesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableMediaCapabilitiesPropertyInfo = IsSettings+    type AttrGetType SettingsEnableMediaCapabilitiesPropertyInfo = Bool+    type AttrLabel SettingsEnableMediaCapabilitiesPropertyInfo = "enable-media-capabilities"+    type AttrOrigin SettingsEnableMediaCapabilitiesPropertyInfo = Settings+    attrGet _ = getSettingsEnableMediaCapabilities+    attrSet _ = setSettingsEnableMediaCapabilities+    attrConstruct _ = constructSettingsEnableMediaCapabilities+    attrClear _ = undefined+#endif++-- VVV Prop "enable-media-stream"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-media-stream@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableMediaStream+@+-}+getSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableMediaStream obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-media-stream"++{- |+Set the value of the “@enable-media-stream@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableMediaStream 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableMediaStream :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableMediaStream obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-media-stream" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-media-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableMediaStream :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableMediaStream val = B.Properties.constructObjectPropertyBool "enable-media-stream" val++#if ENABLE_OVERLOADING+data SettingsEnableMediaStreamPropertyInfo+instance AttrInfo SettingsEnableMediaStreamPropertyInfo where+    type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = IsSettings+    type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool+    type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream"+    type AttrOrigin SettingsEnableMediaStreamPropertyInfo = Settings+    attrGet _ = getSettingsEnableMediaStream+    attrSet _ = setSettingsEnableMediaStream+    attrConstruct _ = constructSettingsEnableMediaStream+    attrClear _ = undefined+#endif++-- VVV Prop "enable-mediasource"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-mediasource@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableMediasource+@+-}+getSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableMediasource obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-mediasource"++{- |+Set the value of the “@enable-mediasource@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableMediasource 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableMediasource :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableMediasource obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-mediasource" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-mediasource@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableMediasource :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableMediasource val = B.Properties.constructObjectPropertyBool "enable-mediasource" val++#if ENABLE_OVERLOADING+data SettingsEnableMediasourcePropertyInfo+instance AttrInfo SettingsEnableMediasourcePropertyInfo where+    type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = IsSettings+    type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool+    type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource"+    type AttrOrigin SettingsEnableMediasourcePropertyInfo = Settings+    attrGet _ = getSettingsEnableMediasource+    attrSet _ = setSettingsEnableMediasource+    attrConstruct _ = constructSettingsEnableMediasource+    attrClear _ = undefined+#endif++-- VVV Prop "enable-mock-capture-devices"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-mock-capture-devices@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableMockCaptureDevices+@+-}+getSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableMockCaptureDevices obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-mock-capture-devices"++{- |+Set the value of the “@enable-mock-capture-devices@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableMockCaptureDevices 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableMockCaptureDevices :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableMockCaptureDevices obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-mock-capture-devices" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-mock-capture-devices@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableMockCaptureDevices :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableMockCaptureDevices val = B.Properties.constructObjectPropertyBool "enable-mock-capture-devices" val++#if ENABLE_OVERLOADING+data SettingsEnableMockCaptureDevicesPropertyInfo+instance AttrInfo SettingsEnableMockCaptureDevicesPropertyInfo where+    type AttrAllowedOps SettingsEnableMockCaptureDevicesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableMockCaptureDevicesPropertyInfo = IsSettings+    type AttrGetType SettingsEnableMockCaptureDevicesPropertyInfo = Bool+    type AttrLabel SettingsEnableMockCaptureDevicesPropertyInfo = "enable-mock-capture-devices"+    type AttrOrigin SettingsEnableMockCaptureDevicesPropertyInfo = Settings+    attrGet _ = getSettingsEnableMockCaptureDevices+    attrSet _ = setSettingsEnableMockCaptureDevices+    attrConstruct _ = constructSettingsEnableMockCaptureDevices+    attrClear _ = undefined+#endif++-- VVV Prop "enable-offline-web-application-cache"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-offline-web-application-cache@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableOfflineWebApplicationCache+@+-}+getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableOfflineWebApplicationCache obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-offline-web-application-cache"++{- |+Set the value of the “@enable-offline-web-application-cache@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableOfflineWebApplicationCache 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-offline-web-application-cache" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-offline-web-application-cache@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableOfflineWebApplicationCache :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableOfflineWebApplicationCache val = B.Properties.constructObjectPropertyBool "enable-offline-web-application-cache" val++#if ENABLE_OVERLOADING+data SettingsEnableOfflineWebApplicationCachePropertyInfo+instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where+    type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = IsSettings+    type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool+    type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache"+    type AttrOrigin SettingsEnableOfflineWebApplicationCachePropertyInfo = Settings+    attrGet _ = getSettingsEnableOfflineWebApplicationCache+    attrSet _ = setSettingsEnableOfflineWebApplicationCache+    attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache+    attrClear _ = undefined+#endif++-- VVV Prop "enable-page-cache"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-page-cache@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enablePageCache+@+-}+getSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnablePageCache obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-page-cache"++{- |+Set the value of the “@enable-page-cache@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enablePageCache 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnablePageCache :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnablePageCache obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-page-cache" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-page-cache@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnablePageCache :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnablePageCache val = B.Properties.constructObjectPropertyBool "enable-page-cache" val++#if ENABLE_OVERLOADING+data SettingsEnablePageCachePropertyInfo+instance AttrInfo SettingsEnablePageCachePropertyInfo where+    type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = IsSettings+    type AttrGetType SettingsEnablePageCachePropertyInfo = Bool+    type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache"+    type AttrOrigin SettingsEnablePageCachePropertyInfo = Settings+    attrGet _ = getSettingsEnablePageCache+    attrSet _ = setSettingsEnablePageCache+    attrConstruct _ = constructSettingsEnablePageCache+    attrClear _ = undefined+#endif++-- VVV Prop "enable-plugins"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-plugins@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enablePlugins+@+-}+getSettingsEnablePlugins :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnablePlugins obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-plugins"++{- |+Set the value of the “@enable-plugins@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enablePlugins 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnablePlugins :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnablePlugins obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-plugins" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-plugins@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnablePlugins :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnablePlugins val = B.Properties.constructObjectPropertyBool "enable-plugins" val++#if ENABLE_OVERLOADING+data SettingsEnablePluginsPropertyInfo+instance AttrInfo SettingsEnablePluginsPropertyInfo where+    type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = IsSettings+    type AttrGetType SettingsEnablePluginsPropertyInfo = Bool+    type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins"+    type AttrOrigin SettingsEnablePluginsPropertyInfo = Settings+    attrGet _ = getSettingsEnablePlugins+    attrSet _ = setSettingsEnablePlugins+    attrConstruct _ = constructSettingsEnablePlugins+    attrClear _ = undefined+#endif++-- VVV Prop "enable-private-browsing"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-private-browsing@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enablePrivateBrowsing+@+-}+getSettingsEnablePrivateBrowsing :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnablePrivateBrowsing obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-private-browsing"++{- |+Set the value of the “@enable-private-browsing@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enablePrivateBrowsing 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnablePrivateBrowsing :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnablePrivateBrowsing obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-private-browsing" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-private-browsing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnablePrivateBrowsing :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnablePrivateBrowsing val = B.Properties.constructObjectPropertyBool "enable-private-browsing" val++#if ENABLE_OVERLOADING+data SettingsEnablePrivateBrowsingPropertyInfo+instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where+    type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = IsSettings+    type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool+    type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing"+    type AttrOrigin SettingsEnablePrivateBrowsingPropertyInfo = Settings+    attrGet _ = getSettingsEnablePrivateBrowsing+    attrSet _ = setSettingsEnablePrivateBrowsing+    attrConstruct _ = constructSettingsEnablePrivateBrowsing+    attrClear _ = undefined+#endif++-- VVV Prop "enable-resizable-text-areas"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-resizable-text-areas@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableResizableTextAreas+@+-}+getSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableResizableTextAreas obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-resizable-text-areas"++{- |+Set the value of the “@enable-resizable-text-areas@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableResizableTextAreas 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableResizableTextAreas :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableResizableTextAreas obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-resizable-text-areas" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-resizable-text-areas@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableResizableTextAreas :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableResizableTextAreas val = B.Properties.constructObjectPropertyBool "enable-resizable-text-areas" val++#if ENABLE_OVERLOADING+data SettingsEnableResizableTextAreasPropertyInfo+instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where+    type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = IsSettings+    type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool+    type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas"+    type AttrOrigin SettingsEnableResizableTextAreasPropertyInfo = Settings+    attrGet _ = getSettingsEnableResizableTextAreas+    attrSet _ = setSettingsEnableResizableTextAreas+    attrConstruct _ = constructSettingsEnableResizableTextAreas+    attrClear _ = undefined+#endif++-- VVV Prop "enable-site-specific-quirks"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-site-specific-quirks@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableSiteSpecificQuirks+@+-}+getSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableSiteSpecificQuirks obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-site-specific-quirks"++{- |+Set the value of the “@enable-site-specific-quirks@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableSiteSpecificQuirks 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableSiteSpecificQuirks :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableSiteSpecificQuirks obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-site-specific-quirks" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-site-specific-quirks@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableSiteSpecificQuirks :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableSiteSpecificQuirks val = B.Properties.constructObjectPropertyBool "enable-site-specific-quirks" val++#if ENABLE_OVERLOADING+data SettingsEnableSiteSpecificQuirksPropertyInfo+instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where+    type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = IsSettings+    type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool+    type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks"+    type AttrOrigin SettingsEnableSiteSpecificQuirksPropertyInfo = Settings+    attrGet _ = getSettingsEnableSiteSpecificQuirks+    attrSet _ = setSettingsEnableSiteSpecificQuirks+    attrConstruct _ = constructSettingsEnableSiteSpecificQuirks+    attrClear _ = undefined+#endif++-- VVV Prop "enable-smooth-scrolling"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-smooth-scrolling@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableSmoothScrolling+@+-}+getSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableSmoothScrolling obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-smooth-scrolling"++{- |+Set the value of the “@enable-smooth-scrolling@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableSmoothScrolling 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableSmoothScrolling :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableSmoothScrolling obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-smooth-scrolling" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-smooth-scrolling@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableSmoothScrolling :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableSmoothScrolling val = B.Properties.constructObjectPropertyBool "enable-smooth-scrolling" val++#if ENABLE_OVERLOADING+data SettingsEnableSmoothScrollingPropertyInfo+instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where+    type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = IsSettings+    type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool+    type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling"+    type AttrOrigin SettingsEnableSmoothScrollingPropertyInfo = Settings+    attrGet _ = getSettingsEnableSmoothScrolling+    attrSet _ = setSettingsEnableSmoothScrolling+    attrConstruct _ = constructSettingsEnableSmoothScrolling+    attrClear _ = undefined+#endif++-- VVV Prop "enable-spatial-navigation"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-spatial-navigation@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableSpatialNavigation+@+-}+getSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableSpatialNavigation obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-spatial-navigation"++{- |+Set the value of the “@enable-spatial-navigation@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableSpatialNavigation 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableSpatialNavigation :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableSpatialNavigation obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-spatial-navigation" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-spatial-navigation@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableSpatialNavigation :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableSpatialNavigation val = B.Properties.constructObjectPropertyBool "enable-spatial-navigation" val++#if ENABLE_OVERLOADING+data SettingsEnableSpatialNavigationPropertyInfo+instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where+    type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = IsSettings+    type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool+    type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation"+    type AttrOrigin SettingsEnableSpatialNavigationPropertyInfo = Settings+    attrGet _ = getSettingsEnableSpatialNavigation+    attrSet _ = setSettingsEnableSpatialNavigation+    attrConstruct _ = constructSettingsEnableSpatialNavigation+    attrClear _ = undefined+#endif++-- VVV Prop "enable-tabs-to-links"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-tabs-to-links@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableTabsToLinks+@+-}+getSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableTabsToLinks obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-tabs-to-links"++{- |+Set the value of the “@enable-tabs-to-links@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableTabsToLinks 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableTabsToLinks :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableTabsToLinks obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-tabs-to-links" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-tabs-to-links@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableTabsToLinks :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableTabsToLinks val = B.Properties.constructObjectPropertyBool "enable-tabs-to-links" val++#if ENABLE_OVERLOADING+data SettingsEnableTabsToLinksPropertyInfo+instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where+    type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = IsSettings+    type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool+    type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links"+    type AttrOrigin SettingsEnableTabsToLinksPropertyInfo = Settings+    attrGet _ = getSettingsEnableTabsToLinks+    attrSet _ = setSettingsEnableTabsToLinks+    attrConstruct _ = constructSettingsEnableTabsToLinks+    attrClear _ = undefined+#endif++-- VVV Prop "enable-webaudio"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-webaudio@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableWebaudio+@+-}+getSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableWebaudio obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-webaudio"++{- |+Set the value of the “@enable-webaudio@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableWebaudio 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableWebaudio :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableWebaudio obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-webaudio" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-webaudio@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableWebaudio :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableWebaudio val = B.Properties.constructObjectPropertyBool "enable-webaudio" val++#if ENABLE_OVERLOADING+data SettingsEnableWebaudioPropertyInfo+instance AttrInfo SettingsEnableWebaudioPropertyInfo where+    type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = IsSettings+    type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool+    type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio"+    type AttrOrigin SettingsEnableWebaudioPropertyInfo = Settings+    attrGet _ = getSettingsEnableWebaudio+    attrSet _ = setSettingsEnableWebaudio+    attrConstruct _ = constructSettingsEnableWebaudio+    attrClear _ = undefined+#endif++-- VVV Prop "enable-webgl"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-webgl@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableWebgl+@+-}+getSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableWebgl obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-webgl"++{- |+Set the value of the “@enable-webgl@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableWebgl 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableWebgl :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableWebgl obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-webgl" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-webgl@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableWebgl :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableWebgl val = B.Properties.constructObjectPropertyBool "enable-webgl" val++#if ENABLE_OVERLOADING+data SettingsEnableWebglPropertyInfo+instance AttrInfo SettingsEnableWebglPropertyInfo where+    type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = IsSettings+    type AttrGetType SettingsEnableWebglPropertyInfo = Bool+    type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl"+    type AttrOrigin SettingsEnableWebglPropertyInfo = Settings+    attrGet _ = getSettingsEnableWebgl+    attrSet _ = setSettingsEnableWebgl+    attrConstruct _ = constructSettingsEnableWebgl+    attrClear _ = undefined+#endif++-- VVV Prop "enable-write-console-messages-to-stdout"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-write-console-messages-to-stdout@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableWriteConsoleMessagesToStdout+@+-}+getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-write-console-messages-to-stdout"++{- |+Set the value of the “@enable-write-console-messages-to-stdout@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableWriteConsoleMessagesToStdout 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-write-console-messages-to-stdout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableWriteConsoleMessagesToStdout :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableWriteConsoleMessagesToStdout val = B.Properties.constructObjectPropertyBool "enable-write-console-messages-to-stdout" val++#if ENABLE_OVERLOADING+data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo+instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where+    type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = IsSettings+    type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool+    type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout"+    type AttrOrigin SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Settings+    attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout+    attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout+    attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout+    attrClear _ = undefined+#endif++-- VVV Prop "enable-xss-auditor"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@enable-xss-auditor@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #enableXssAuditor+@+-}+getSettingsEnableXssAuditor :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsEnableXssAuditor obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-xss-auditor"++{- |+Set the value of the “@enable-xss-auditor@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #enableXssAuditor 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsEnableXssAuditor :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsEnableXssAuditor obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-xss-auditor" val++{- |+Construct a `GValueConstruct` with valid value for the “@enable-xss-auditor@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsEnableXssAuditor :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsEnableXssAuditor val = B.Properties.constructObjectPropertyBool "enable-xss-auditor" val++#if ENABLE_OVERLOADING+data SettingsEnableXssAuditorPropertyInfo+instance AttrInfo SettingsEnableXssAuditorPropertyInfo where+    type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = IsSettings+    type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool+    type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor"+    type AttrOrigin SettingsEnableXssAuditorPropertyInfo = Settings+    attrGet _ = getSettingsEnableXssAuditor+    attrSet _ = setSettingsEnableXssAuditor+    attrConstruct _ = constructSettingsEnableXssAuditor+    attrClear _ = undefined+#endif++-- VVV Prop "fantasy-font-family"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@fantasy-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #fantasyFontFamily+@+-}+getSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsFantasyFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsFantasyFontFamily" $ B.Properties.getObjectPropertyString obj "fantasy-font-family"++{- |+Set the value of the “@fantasy-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #fantasyFontFamily 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsFantasyFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsFantasyFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "fantasy-font-family" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@fantasy-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsFantasyFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsFantasyFontFamily val = B.Properties.constructObjectPropertyString "fantasy-font-family" (Just val)++#if ENABLE_OVERLOADING+data SettingsFantasyFontFamilyPropertyInfo+instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where+    type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = IsSettings+    type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text+    type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family"+    type AttrOrigin SettingsFantasyFontFamilyPropertyInfo = Settings+    attrGet _ = getSettingsFantasyFontFamily+    attrSet _ = setSettingsFantasyFontFamily+    attrConstruct _ = constructSettingsFantasyFontFamily+    attrClear _ = undefined+#endif++-- VVV Prop "hardware-acceleration-policy"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@hardware-acceleration-policy@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #hardwareAccelerationPolicy+@+-}+getSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> m WebKit2.Enums.HardwareAccelerationPolicy+getSettingsHardwareAccelerationPolicy obj = liftIO $ B.Properties.getObjectPropertyEnum obj "hardware-acceleration-policy"++{- |+Set the value of the “@hardware-acceleration-policy@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #hardwareAccelerationPolicy 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsHardwareAccelerationPolicy :: (MonadIO m, IsSettings o) => o -> WebKit2.Enums.HardwareAccelerationPolicy -> m ()+setSettingsHardwareAccelerationPolicy obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "hardware-acceleration-policy" val++{- |+Construct a `GValueConstruct` with valid value for the “@hardware-acceleration-policy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsHardwareAccelerationPolicy :: (IsSettings o) => WebKit2.Enums.HardwareAccelerationPolicy -> IO (GValueConstruct o)+constructSettingsHardwareAccelerationPolicy val = B.Properties.constructObjectPropertyEnum "hardware-acceleration-policy" val++#if ENABLE_OVERLOADING+data SettingsHardwareAccelerationPolicyPropertyInfo+instance AttrInfo SettingsHardwareAccelerationPolicyPropertyInfo where+    type AttrAllowedOps SettingsHardwareAccelerationPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = (~) WebKit2.Enums.HardwareAccelerationPolicy+    type AttrBaseTypeConstraint SettingsHardwareAccelerationPolicyPropertyInfo = IsSettings+    type AttrGetType SettingsHardwareAccelerationPolicyPropertyInfo = WebKit2.Enums.HardwareAccelerationPolicy+    type AttrLabel SettingsHardwareAccelerationPolicyPropertyInfo = "hardware-acceleration-policy"+    type AttrOrigin SettingsHardwareAccelerationPolicyPropertyInfo = Settings+    attrGet _ = getSettingsHardwareAccelerationPolicy+    attrSet _ = setSettingsHardwareAccelerationPolicy+    attrConstruct _ = constructSettingsHardwareAccelerationPolicy+    attrClear _ = undefined+#endif++-- VVV Prop "javascript-can-access-clipboard"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@javascript-can-access-clipboard@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #javascriptCanAccessClipboard+@+-}+getSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsJavascriptCanAccessClipboard obj = liftIO $ B.Properties.getObjectPropertyBool obj "javascript-can-access-clipboard"++{- |+Set the value of the “@javascript-can-access-clipboard@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #javascriptCanAccessClipboard 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsJavascriptCanAccessClipboard :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsJavascriptCanAccessClipboard obj val = liftIO $ B.Properties.setObjectPropertyBool obj "javascript-can-access-clipboard" val++{- |+Construct a `GValueConstruct` with valid value for the “@javascript-can-access-clipboard@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsJavascriptCanAccessClipboard :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsJavascriptCanAccessClipboard val = B.Properties.constructObjectPropertyBool "javascript-can-access-clipboard" val++#if ENABLE_OVERLOADING+data SettingsJavascriptCanAccessClipboardPropertyInfo+instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where+    type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = IsSettings+    type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool+    type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard"+    type AttrOrigin SettingsJavascriptCanAccessClipboardPropertyInfo = Settings+    attrGet _ = getSettingsJavascriptCanAccessClipboard+    attrSet _ = setSettingsJavascriptCanAccessClipboard+    attrConstruct _ = constructSettingsJavascriptCanAccessClipboard+    attrClear _ = undefined+#endif++-- VVV Prop "javascript-can-open-windows-automatically"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@javascript-can-open-windows-automatically@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #javascriptCanOpenWindowsAutomatically+@+-}+getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ B.Properties.getObjectPropertyBool obj "javascript-can-open-windows-automatically"++{- |+Set the value of the “@javascript-can-open-windows-automatically@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #javascriptCanOpenWindowsAutomatically 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ B.Properties.setObjectPropertyBool obj "javascript-can-open-windows-automatically" val++{- |+Construct a `GValueConstruct` with valid value for the “@javascript-can-open-windows-automatically@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsJavascriptCanOpenWindowsAutomatically :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsJavascriptCanOpenWindowsAutomatically val = B.Properties.constructObjectPropertyBool "javascript-can-open-windows-automatically" val++#if ENABLE_OVERLOADING+data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo+instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where+    type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = IsSettings+    type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool+    type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically"+    type AttrOrigin SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Settings+    attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically+    attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically+    attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically+    attrClear _ = undefined+#endif++-- VVV Prop "load-icons-ignoring-image-load-setting"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@load-icons-ignoring-image-load-setting@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #loadIconsIgnoringImageLoadSetting+@+-}+getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ B.Properties.getObjectPropertyBool obj "load-icons-ignoring-image-load-setting"++{- |+Set the value of the “@load-icons-ignoring-image-load-setting@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #loadIconsIgnoringImageLoadSetting 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ B.Properties.setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val++{- |+Construct a `GValueConstruct` with valid value for the “@load-icons-ignoring-image-load-setting@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsLoadIconsIgnoringImageLoadSetting :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsLoadIconsIgnoringImageLoadSetting val = B.Properties.constructObjectPropertyBool "load-icons-ignoring-image-load-setting" val++#if ENABLE_OVERLOADING+data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo+instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where+    type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = IsSettings+    type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool+    type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting"+    type AttrOrigin SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Settings+    attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting+    attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting+    attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting+    attrClear _ = undefined+#endif++-- VVV Prop "media-playback-allows-inline"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@media-playback-allows-inline@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #mediaPlaybackAllowsInline+@+-}+getSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsMediaPlaybackAllowsInline obj = liftIO $ B.Properties.getObjectPropertyBool obj "media-playback-allows-inline"++{- |+Set the value of the “@media-playback-allows-inline@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #mediaPlaybackAllowsInline 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsMediaPlaybackAllowsInline :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsMediaPlaybackAllowsInline obj val = liftIO $ B.Properties.setObjectPropertyBool obj "media-playback-allows-inline" val++{- |+Construct a `GValueConstruct` with valid value for the “@media-playback-allows-inline@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsMediaPlaybackAllowsInline :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsMediaPlaybackAllowsInline val = B.Properties.constructObjectPropertyBool "media-playback-allows-inline" val++#if ENABLE_OVERLOADING+data SettingsMediaPlaybackAllowsInlinePropertyInfo+instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where+    type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = IsSettings+    type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool+    type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline"+    type AttrOrigin SettingsMediaPlaybackAllowsInlinePropertyInfo = Settings+    attrGet _ = getSettingsMediaPlaybackAllowsInline+    attrSet _ = setSettingsMediaPlaybackAllowsInline+    attrConstruct _ = constructSettingsMediaPlaybackAllowsInline+    attrClear _ = undefined+#endif++-- VVV Prop "media-playback-requires-user-gesture"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@media-playback-requires-user-gesture@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #mediaPlaybackRequiresUserGesture+@+-}+getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ B.Properties.getObjectPropertyBool obj "media-playback-requires-user-gesture"++{- |+Set the value of the “@media-playback-requires-user-gesture@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #mediaPlaybackRequiresUserGesture 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ B.Properties.setObjectPropertyBool obj "media-playback-requires-user-gesture" val++{- |+Construct a `GValueConstruct` with valid value for the “@media-playback-requires-user-gesture@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsMediaPlaybackRequiresUserGesture :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsMediaPlaybackRequiresUserGesture val = B.Properties.constructObjectPropertyBool "media-playback-requires-user-gesture" val++#if ENABLE_OVERLOADING+data SettingsMediaPlaybackRequiresUserGesturePropertyInfo+instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where+    type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = IsSettings+    type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool+    type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture"+    type AttrOrigin SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Settings+    attrGet _ = getSettingsMediaPlaybackRequiresUserGesture+    attrSet _ = setSettingsMediaPlaybackRequiresUserGesture+    attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture+    attrClear _ = undefined+#endif++-- VVV Prop "minimum-font-size"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@minimum-font-size@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #minimumFontSize+@+-}+getSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> m Word32+getSettingsMinimumFontSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "minimum-font-size"++{- |+Set the value of the “@minimum-font-size@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #minimumFontSize 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsMinimumFontSize :: (MonadIO m, IsSettings o) => o -> Word32 -> m ()+setSettingsMinimumFontSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "minimum-font-size" val++{- |+Construct a `GValueConstruct` with valid value for the “@minimum-font-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsMinimumFontSize :: (IsSettings o) => Word32 -> IO (GValueConstruct o)+constructSettingsMinimumFontSize val = B.Properties.constructObjectPropertyUInt32 "minimum-font-size" val++#if ENABLE_OVERLOADING+data SettingsMinimumFontSizePropertyInfo+instance AttrInfo SettingsMinimumFontSizePropertyInfo where+    type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32+    type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = IsSettings+    type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32+    type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size"+    type AttrOrigin SettingsMinimumFontSizePropertyInfo = Settings+    attrGet _ = getSettingsMinimumFontSize+    attrSet _ = setSettingsMinimumFontSize+    attrConstruct _ = constructSettingsMinimumFontSize+    attrClear _ = undefined+#endif++-- VVV Prop "monospace-font-family"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@monospace-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #monospaceFontFamily+@+-}+getSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsMonospaceFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsMonospaceFontFamily" $ B.Properties.getObjectPropertyString obj "monospace-font-family"++{- |+Set the value of the “@monospace-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #monospaceFontFamily 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsMonospaceFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsMonospaceFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "monospace-font-family" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@monospace-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsMonospaceFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsMonospaceFontFamily val = B.Properties.constructObjectPropertyString "monospace-font-family" (Just val)++#if ENABLE_OVERLOADING+data SettingsMonospaceFontFamilyPropertyInfo+instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where+    type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = IsSettings+    type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text+    type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family"+    type AttrOrigin SettingsMonospaceFontFamilyPropertyInfo = Settings+    attrGet _ = getSettingsMonospaceFontFamily+    attrSet _ = setSettingsMonospaceFontFamily+    attrConstruct _ = constructSettingsMonospaceFontFamily+    attrClear _ = undefined+#endif++-- VVV Prop "pictograph-font-family"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@pictograph-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #pictographFontFamily+@+-}+getSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsPictographFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsPictographFontFamily" $ B.Properties.getObjectPropertyString obj "pictograph-font-family"++{- |+Set the value of the “@pictograph-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #pictographFontFamily 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsPictographFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsPictographFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "pictograph-font-family" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@pictograph-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsPictographFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsPictographFontFamily val = B.Properties.constructObjectPropertyString "pictograph-font-family" (Just val)++#if ENABLE_OVERLOADING+data SettingsPictographFontFamilyPropertyInfo+instance AttrInfo SettingsPictographFontFamilyPropertyInfo where+    type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = IsSettings+    type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text+    type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family"+    type AttrOrigin SettingsPictographFontFamilyPropertyInfo = Settings+    attrGet _ = getSettingsPictographFontFamily+    attrSet _ = setSettingsPictographFontFamily+    attrConstruct _ = constructSettingsPictographFontFamily+    attrClear _ = undefined+#endif++-- VVV Prop "print-backgrounds"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@print-backgrounds@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #printBackgrounds+@+-}+getSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsPrintBackgrounds obj = liftIO $ B.Properties.getObjectPropertyBool obj "print-backgrounds"++{- |+Set the value of the “@print-backgrounds@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #printBackgrounds 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsPrintBackgrounds :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsPrintBackgrounds obj val = liftIO $ B.Properties.setObjectPropertyBool obj "print-backgrounds" val++{- |+Construct a `GValueConstruct` with valid value for the “@print-backgrounds@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsPrintBackgrounds :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsPrintBackgrounds val = B.Properties.constructObjectPropertyBool "print-backgrounds" val++#if ENABLE_OVERLOADING+data SettingsPrintBackgroundsPropertyInfo+instance AttrInfo SettingsPrintBackgroundsPropertyInfo where+    type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = IsSettings+    type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool+    type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds"+    type AttrOrigin SettingsPrintBackgroundsPropertyInfo = Settings+    attrGet _ = getSettingsPrintBackgrounds+    attrSet _ = setSettingsPrintBackgrounds+    attrConstruct _ = constructSettingsPrintBackgrounds+    attrClear _ = undefined+#endif++-- VVV Prop "sans-serif-font-family"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@sans-serif-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #sansSerifFontFamily+@+-}+getSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsSansSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSansSerifFontFamily" $ B.Properties.getObjectPropertyString obj "sans-serif-font-family"++{- |+Set the value of the “@sans-serif-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #sansSerifFontFamily 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsSansSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsSansSerifFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "sans-serif-font-family" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@sans-serif-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsSansSerifFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsSansSerifFontFamily val = B.Properties.constructObjectPropertyString "sans-serif-font-family" (Just val)++#if ENABLE_OVERLOADING+data SettingsSansSerifFontFamilyPropertyInfo+instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where+    type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = IsSettings+    type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text+    type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family"+    type AttrOrigin SettingsSansSerifFontFamilyPropertyInfo = Settings+    attrGet _ = getSettingsSansSerifFontFamily+    attrSet _ = setSettingsSansSerifFontFamily+    attrConstruct _ = constructSettingsSansSerifFontFamily+    attrClear _ = undefined+#endif++-- VVV Prop "serif-font-family"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@serif-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #serifFontFamily+@+-}+getSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSerifFontFamily" $ B.Properties.getObjectPropertyString obj "serif-font-family"++{- |+Set the value of the “@serif-font-family@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #serifFontFamily 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsSerifFontFamily :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsSerifFontFamily obj val = liftIO $ B.Properties.setObjectPropertyString obj "serif-font-family" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@serif-font-family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsSerifFontFamily :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsSerifFontFamily val = B.Properties.constructObjectPropertyString "serif-font-family" (Just val)++#if ENABLE_OVERLOADING+data SettingsSerifFontFamilyPropertyInfo+instance AttrInfo SettingsSerifFontFamilyPropertyInfo where+    type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = IsSettings+    type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text+    type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family"+    type AttrOrigin SettingsSerifFontFamilyPropertyInfo = Settings+    attrGet _ = getSettingsSerifFontFamily+    attrSet _ = setSettingsSerifFontFamily+    attrConstruct _ = constructSettingsSerifFontFamily+    attrClear _ = undefined+#endif++-- VVV Prop "user-agent"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just True)++{- |+Get the value of the “@user-agent@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #userAgent+@+-}+getSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m T.Text+getSettingsUserAgent obj = liftIO $ checkUnexpectedNothing "getSettingsUserAgent" $ B.Properties.getObjectPropertyString obj "user-agent"++{- |+Set the value of the “@user-agent@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #userAgent 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> T.Text -> m ()+setSettingsUserAgent obj val = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@user-agent@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsUserAgent :: (IsSettings o) => T.Text -> IO (GValueConstruct o)+constructSettingsUserAgent val = B.Properties.constructObjectPropertyString "user-agent" (Just val)++{- |+Set the value of the “@user-agent@” property to `Nothing`.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.clear' #userAgent+@+-}+clearSettingsUserAgent :: (MonadIO m, IsSettings o) => o -> m ()+clearSettingsUserAgent obj = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text)++#if ENABLE_OVERLOADING+data SettingsUserAgentPropertyInfo+instance AttrInfo SettingsUserAgentPropertyInfo where+    type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = IsSettings+    type AttrGetType SettingsUserAgentPropertyInfo = T.Text+    type AttrLabel SettingsUserAgentPropertyInfo = "user-agent"+    type AttrOrigin SettingsUserAgentPropertyInfo = Settings+    attrGet _ = getSettingsUserAgent+    attrSet _ = setSettingsUserAgent+    attrConstruct _ = constructSettingsUserAgent+    attrClear _ = clearSettingsUserAgent+#endif++-- VVV Prop "zoom-text-only"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@zoom-text-only@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' settings #zoomTextOnly+@+-}+getSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> m Bool+getSettingsZoomTextOnly obj = liftIO $ B.Properties.getObjectPropertyBool obj "zoom-text-only"++{- |+Set the value of the “@zoom-text-only@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' settings [ #zoomTextOnly 'Data.GI.Base.Attributes.:=' value ]+@+-}+setSettingsZoomTextOnly :: (MonadIO m, IsSettings o) => o -> Bool -> m ()+setSettingsZoomTextOnly obj val = liftIO $ B.Properties.setObjectPropertyBool obj "zoom-text-only" val++{- |+Construct a `GValueConstruct` with valid value for the “@zoom-text-only@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructSettingsZoomTextOnly :: (IsSettings o) => Bool -> IO (GValueConstruct o)+constructSettingsZoomTextOnly val = B.Properties.constructObjectPropertyBool "zoom-text-only" val++#if ENABLE_OVERLOADING+data SettingsZoomTextOnlyPropertyInfo+instance AttrInfo SettingsZoomTextOnlyPropertyInfo where+    type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = IsSettings+    type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool+    type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only"+    type AttrOrigin SettingsZoomTextOnlyPropertyInfo = Settings+    attrGet _ = getSettingsZoomTextOnly+    attrSet _ = setSettingsZoomTextOnly+    attrConstruct _ = constructSettingsZoomTextOnly+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList Settings+type instance O.AttributeList Settings = SettingsAttributeList+type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("allowUniversalAccessFromFileUrls", SettingsAllowUniversalAccessFromFileUrlsPropertyInfo), '("autoLoadImages", SettingsAutoLoadImagesPropertyInfo), '("cursiveFontFamily", SettingsCursiveFontFamilyPropertyInfo), '("defaultCharset", SettingsDefaultCharsetPropertyInfo), '("defaultFontFamily", SettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", SettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", SettingsDefaultMonospaceFontSizePropertyInfo), '("drawCompositingIndicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enableAccelerated2dCanvas", SettingsEnableAccelerated2dCanvasPropertyInfo), '("enableBackForwardNavigationGestures", SettingsEnableBackForwardNavigationGesturesPropertyInfo), '("enableCaretBrowsing", SettingsEnableCaretBrowsingPropertyInfo), '("enableDeveloperExtras", SettingsEnableDeveloperExtrasPropertyInfo), '("enableDnsPrefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enableEncryptedMedia", SettingsEnableEncryptedMediaPropertyInfo), '("enableFrameFlattening", SettingsEnableFrameFlatteningPropertyInfo), '("enableFullscreen", SettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", SettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enableJava", SettingsEnableJavaPropertyInfo), '("enableJavascript", SettingsEnableJavascriptPropertyInfo), '("enableJavascriptMarkup", SettingsEnableJavascriptMarkupPropertyInfo), '("enableMediaCapabilities", SettingsEnableMediaCapabilitiesPropertyInfo), '("enableMediaStream", SettingsEnableMediaStreamPropertyInfo), '("enableMediasource", SettingsEnableMediasourcePropertyInfo), '("enableMockCaptureDevices", SettingsEnableMockCaptureDevicesPropertyInfo), '("enableOfflineWebApplicationCache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", SettingsEnablePageCachePropertyInfo), '("enablePlugins", SettingsEnablePluginsPropertyInfo), '("enablePrivateBrowsing", SettingsEnablePrivateBrowsingPropertyInfo), '("enableResizableTextAreas", SettingsEnableResizableTextAreasPropertyInfo), '("enableSiteSpecificQuirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", SettingsEnableSpatialNavigationPropertyInfo), '("enableTabsToLinks", SettingsEnableTabsToLinksPropertyInfo), '("enableWebaudio", SettingsEnableWebaudioPropertyInfo), '("enableWebgl", SettingsEnableWebglPropertyInfo), '("enableWriteConsoleMessagesToStdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("enableXssAuditor", SettingsEnableXssAuditorPropertyInfo), '("fantasyFontFamily", SettingsFantasyFontFamilyPropertyInfo), '("hardwareAccelerationPolicy", SettingsHardwareAccelerationPolicyPropertyInfo), '("javascriptCanAccessClipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("loadIconsIgnoringImageLoadSetting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("mediaPlaybackAllowsInline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", SettingsMinimumFontSizePropertyInfo), '("monospaceFontFamily", SettingsMonospaceFontFamilyPropertyInfo), '("pictographFontFamily", SettingsPictographFontFamilyPropertyInfo), '("printBackgrounds", SettingsPrintBackgroundsPropertyInfo), '("sansSerifFontFamily", SettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", SettingsSerifFontFamilyPropertyInfo), '("userAgent", SettingsUserAgentPropertyInfo), '("zoomTextOnly", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+settingsAllowFileAccessFromFileUrls :: AttrLabelProxy "allowFileAccessFromFileUrls"+settingsAllowFileAccessFromFileUrls = AttrLabelProxy++settingsAllowModalDialogs :: AttrLabelProxy "allowModalDialogs"+settingsAllowModalDialogs = AttrLabelProxy++settingsAllowUniversalAccessFromFileUrls :: AttrLabelProxy "allowUniversalAccessFromFileUrls"+settingsAllowUniversalAccessFromFileUrls = AttrLabelProxy++settingsAutoLoadImages :: AttrLabelProxy "autoLoadImages"+settingsAutoLoadImages = AttrLabelProxy++settingsCursiveFontFamily :: AttrLabelProxy "cursiveFontFamily"+settingsCursiveFontFamily = AttrLabelProxy++settingsDefaultCharset :: AttrLabelProxy "defaultCharset"+settingsDefaultCharset = AttrLabelProxy++settingsDefaultFontFamily :: AttrLabelProxy "defaultFontFamily"+settingsDefaultFontFamily = AttrLabelProxy++settingsDefaultFontSize :: AttrLabelProxy "defaultFontSize"+settingsDefaultFontSize = AttrLabelProxy++settingsDefaultMonospaceFontSize :: AttrLabelProxy "defaultMonospaceFontSize"+settingsDefaultMonospaceFontSize = AttrLabelProxy++settingsDrawCompositingIndicators :: AttrLabelProxy "drawCompositingIndicators"+settingsDrawCompositingIndicators = AttrLabelProxy++settingsEnableAccelerated2dCanvas :: AttrLabelProxy "enableAccelerated2dCanvas"+settingsEnableAccelerated2dCanvas = AttrLabelProxy++settingsEnableBackForwardNavigationGestures :: AttrLabelProxy "enableBackForwardNavigationGestures"+settingsEnableBackForwardNavigationGestures = AttrLabelProxy++settingsEnableCaretBrowsing :: AttrLabelProxy "enableCaretBrowsing"+settingsEnableCaretBrowsing = AttrLabelProxy++settingsEnableDeveloperExtras :: AttrLabelProxy "enableDeveloperExtras"+settingsEnableDeveloperExtras = AttrLabelProxy++settingsEnableDnsPrefetching :: AttrLabelProxy "enableDnsPrefetching"+settingsEnableDnsPrefetching = AttrLabelProxy++settingsEnableEncryptedMedia :: AttrLabelProxy "enableEncryptedMedia"+settingsEnableEncryptedMedia = AttrLabelProxy++settingsEnableFrameFlattening :: AttrLabelProxy "enableFrameFlattening"+settingsEnableFrameFlattening = AttrLabelProxy++settingsEnableFullscreen :: AttrLabelProxy "enableFullscreen"+settingsEnableFullscreen = AttrLabelProxy++settingsEnableHtml5Database :: AttrLabelProxy "enableHtml5Database"+settingsEnableHtml5Database = AttrLabelProxy++settingsEnableHtml5LocalStorage :: AttrLabelProxy "enableHtml5LocalStorage"+settingsEnableHtml5LocalStorage = AttrLabelProxy++settingsEnableHyperlinkAuditing :: AttrLabelProxy "enableHyperlinkAuditing"+settingsEnableHyperlinkAuditing = AttrLabelProxy++settingsEnableJava :: AttrLabelProxy "enableJava"+settingsEnableJava = AttrLabelProxy++settingsEnableJavascript :: AttrLabelProxy "enableJavascript"+settingsEnableJavascript = AttrLabelProxy++settingsEnableJavascriptMarkup :: AttrLabelProxy "enableJavascriptMarkup"+settingsEnableJavascriptMarkup = AttrLabelProxy++settingsEnableMediaCapabilities :: AttrLabelProxy "enableMediaCapabilities"+settingsEnableMediaCapabilities = AttrLabelProxy++settingsEnableMediaStream :: AttrLabelProxy "enableMediaStream"+settingsEnableMediaStream = AttrLabelProxy++settingsEnableMediasource :: AttrLabelProxy "enableMediasource"+settingsEnableMediasource = AttrLabelProxy++settingsEnableMockCaptureDevices :: AttrLabelProxy "enableMockCaptureDevices"+settingsEnableMockCaptureDevices = AttrLabelProxy++settingsEnableOfflineWebApplicationCache :: AttrLabelProxy "enableOfflineWebApplicationCache"+settingsEnableOfflineWebApplicationCache = AttrLabelProxy++settingsEnablePageCache :: AttrLabelProxy "enablePageCache"+settingsEnablePageCache = AttrLabelProxy++settingsEnablePlugins :: AttrLabelProxy "enablePlugins"+settingsEnablePlugins = AttrLabelProxy++settingsEnablePrivateBrowsing :: AttrLabelProxy "enablePrivateBrowsing"+settingsEnablePrivateBrowsing = AttrLabelProxy++settingsEnableResizableTextAreas :: AttrLabelProxy "enableResizableTextAreas"+settingsEnableResizableTextAreas = AttrLabelProxy++settingsEnableSiteSpecificQuirks :: AttrLabelProxy "enableSiteSpecificQuirks"+settingsEnableSiteSpecificQuirks = AttrLabelProxy++settingsEnableSmoothScrolling :: AttrLabelProxy "enableSmoothScrolling"+settingsEnableSmoothScrolling = AttrLabelProxy++settingsEnableSpatialNavigation :: AttrLabelProxy "enableSpatialNavigation"+settingsEnableSpatialNavigation = AttrLabelProxy++settingsEnableTabsToLinks :: AttrLabelProxy "enableTabsToLinks"+settingsEnableTabsToLinks = AttrLabelProxy++settingsEnableWebaudio :: AttrLabelProxy "enableWebaudio"+settingsEnableWebaudio = AttrLabelProxy++settingsEnableWebgl :: AttrLabelProxy "enableWebgl"+settingsEnableWebgl = AttrLabelProxy++settingsEnableWriteConsoleMessagesToStdout :: AttrLabelProxy "enableWriteConsoleMessagesToStdout"+settingsEnableWriteConsoleMessagesToStdout = AttrLabelProxy++settingsEnableXssAuditor :: AttrLabelProxy "enableXssAuditor"+settingsEnableXssAuditor = AttrLabelProxy++settingsFantasyFontFamily :: AttrLabelProxy "fantasyFontFamily"+settingsFantasyFontFamily = AttrLabelProxy++settingsHardwareAccelerationPolicy :: AttrLabelProxy "hardwareAccelerationPolicy"+settingsHardwareAccelerationPolicy = AttrLabelProxy++settingsJavascriptCanAccessClipboard :: AttrLabelProxy "javascriptCanAccessClipboard"+settingsJavascriptCanAccessClipboard = AttrLabelProxy++settingsJavascriptCanOpenWindowsAutomatically :: AttrLabelProxy "javascriptCanOpenWindowsAutomatically"+settingsJavascriptCanOpenWindowsAutomatically = AttrLabelProxy++settingsLoadIconsIgnoringImageLoadSetting :: AttrLabelProxy "loadIconsIgnoringImageLoadSetting"+settingsLoadIconsIgnoringImageLoadSetting = AttrLabelProxy++settingsMediaPlaybackAllowsInline :: AttrLabelProxy "mediaPlaybackAllowsInline"+settingsMediaPlaybackAllowsInline = AttrLabelProxy++settingsMediaPlaybackRequiresUserGesture :: AttrLabelProxy "mediaPlaybackRequiresUserGesture"+settingsMediaPlaybackRequiresUserGesture = AttrLabelProxy++settingsMinimumFontSize :: AttrLabelProxy "minimumFontSize"+settingsMinimumFontSize = AttrLabelProxy++settingsMonospaceFontFamily :: AttrLabelProxy "monospaceFontFamily"+settingsMonospaceFontFamily = AttrLabelProxy++settingsPictographFontFamily :: AttrLabelProxy "pictographFontFamily"+settingsPictographFontFamily = AttrLabelProxy++settingsPrintBackgrounds :: AttrLabelProxy "printBackgrounds"+settingsPrintBackgrounds = AttrLabelProxy++settingsSansSerifFontFamily :: AttrLabelProxy "sansSerifFontFamily"+settingsSansSerifFontFamily = AttrLabelProxy++settingsSerifFontFamily :: AttrLabelProxy "serifFontFamily"+settingsSerifFontFamily = AttrLabelProxy++settingsUserAgent :: AttrLabelProxy "userAgent"+settingsUserAgent = AttrLabelProxy++settingsZoomTextOnly :: AttrLabelProxy "zoomTextOnly"+settingsZoomTextOnly = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList Settings = SettingsSignalList+type SettingsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method Settings::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Settings"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_new" webkit_settings_new :: +    IO (Ptr Settings)++{- |+Creates a new 'GI.WebKit2.Objects.Settings.Settings' instance with default values. It must+be manually attached to a 'GI.WebKit2.Objects.WebView.WebView'.+See also @/webkit_settings_new_with_settings()/@.+-}+settingsNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m Settings+    {- ^ __Returns:__ a new 'GI.WebKit2.Objects.Settings.Settings' instance. -}+settingsNew  = liftIO $ do+    result <- webkit_settings_new+    checkUnexpectedReturnNULL "settingsNew" result+    result' <- (wrapObject Settings) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method Settings::get_allow_file_access_from_file_urls+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/allow-file-access-from-file-urls/@ property.++/Since: 2.10/+-}+settingsGetAllowFileAccessFromFileUrls ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If file access from file URLs is allowed or 'False' otherwise. -}+settingsGetAllowFileAccessFromFileUrls settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_allow_file_access_from_file_urls settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetAllowFileAccessFromFileUrlsMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where+    overloadedMethod _ = settingsGetAllowFileAccessFromFileUrls++#endif++-- method Settings::get_allow_modal_dialogs+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/allow-modal-dialogs/@ property.+-}+settingsGetAllowModalDialogs ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if it\'s allowed to create and run modal dialogs or 'False' otherwise. -}+settingsGetAllowModalDialogs settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_allow_modal_dialogs settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetAllowModalDialogsMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowModalDialogsMethodInfo a signature where+    overloadedMethod _ = settingsGetAllowModalDialogs++#endif++-- method Settings::get_allow_universal_access_from_file_urls+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_allow_universal_access_from_file_urls" webkit_settings_get_allow_universal_access_from_file_urls :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/allow-universal-access-from-file-urls/@ property.++/Since: 2.14/+-}+settingsGetAllowUniversalAccessFromFileUrls ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If universal access from file URLs is allowed or 'False' otherwise. -}+settingsGetAllowUniversalAccessFromFileUrls settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_allow_universal_access_from_file_urls settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo a signature where+    overloadedMethod _ = settingsGetAllowUniversalAccessFromFileUrls++#endif++-- method Settings::get_auto_load_images+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@ property.+-}+settingsGetAutoLoadImages ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If auto loading of images is enabled or 'False' otherwise. -}+settingsGetAutoLoadImages settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_auto_load_images settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetAutoLoadImagesMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetAutoLoadImagesMethodInfo a signature where+    overloadedMethod _ = settingsGetAutoLoadImages++#endif++-- method Settings::get_cursive_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/cursive-font-family/@ property.+-}+settingsGetCursiveFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ The default font family used to display content marked with cursive font. -}+settingsGetCursiveFontFamily settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_cursive_font_family settings'+    checkUnexpectedReturnNULL "settingsGetCursiveFontFamily" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetCursiveFontFamilyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetCursiveFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsGetCursiveFontFamily++#endif++-- method Settings::get_default_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/default-charset/@ property.+-}+settingsGetDefaultCharset ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ Default charset. -}+settingsGetDefaultCharset settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_default_charset settings'+    checkUnexpectedReturnNULL "settingsGetDefaultCharset" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetDefaultCharsetMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultCharsetMethodInfo a signature where+    overloadedMethod _ = settingsGetDefaultCharset++#endif++-- method Settings::get_default_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+/No description available in the introspection data./+-}+settingsGetDefaultFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    -> m T.Text+settingsGetDefaultFontFamily settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_default_font_family settings'+    checkUnexpectedReturnNULL "settingsGetDefaultFontFamily" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetDefaultFontFamilyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsGetDefaultFontFamily++#endif++-- method Settings::get_default_font_size+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt32)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO Word32++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/default-font-size/@ property.+-}+settingsGetDefaultFontSize ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Word32+    {- ^ __Returns:__ The default font size, in pixels. -}+settingsGetDefaultFontSize settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_default_font_size settings'+    touchManagedPtr settings+    return result++#if ENABLE_OVERLOADING+data SettingsGetDefaultFontSizeMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultFontSizeMethodInfo a signature where+    overloadedMethod _ = settingsGetDefaultFontSize++#endif++-- method Settings::get_default_monospace_font_size+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt32)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO Word32++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/default-monospace-font-size/@ property.+-}+settingsGetDefaultMonospaceFontSize ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Word32+    {- ^ __Returns:__ Default monospace font size, in pixels. -}+settingsGetDefaultMonospaceFontSize settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_default_monospace_font_size settings'+    touchManagedPtr settings+    return result++#if ENABLE_OVERLOADING+data SettingsGetDefaultMonospaceFontSizeMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where+    overloadedMethod _ = settingsGetDefaultMonospaceFontSize++#endif++-- method Settings::get_draw_compositing_indicators+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/draw-compositing-indicators/@ property.+-}+settingsGetDrawCompositingIndicators ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If compositing borders are drawn or 'False' otherwise. -}+settingsGetDrawCompositingIndicators settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_draw_compositing_indicators settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetDrawCompositingIndicatorsMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a signature where+    overloadedMethod _ = settingsGetDrawCompositingIndicators++#endif++-- method Settings::get_enable_accelerated_2d_canvas+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-accelerated-2d-canvas/@ property.++/Since: 2.2/+-}+settingsGetEnableAccelerated2dCanvas ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if accelerated 2D canvas is enabled or 'False' otherwise. -}+settingsGetEnableAccelerated2dCanvas settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_accelerated_2d_canvas settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableAccelerated2dCanvasMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableAccelerated2dCanvasMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableAccelerated2dCanvas++#endif++-- method Settings::get_enable_back_forward_navigation_gestures+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_back_forward_navigation_gestures" webkit_settings_get_enable_back_forward_navigation_gestures :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-back-forward-navigation-gestures/@ property.++/Since: 2.24/+-}+settingsGetEnableBackForwardNavigationGestures ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if horizontal swipe gesture will trigger back-forward navigaiton or 'False' otherwise. -}+settingsGetEnableBackForwardNavigationGestures settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_back_forward_navigation_gestures settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableBackForwardNavigationGesturesMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableBackForwardNavigationGesturesMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableBackForwardNavigationGestures++#endif++-- method Settings::get_enable_caret_browsing+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-caret-browsing/@ property.+-}+settingsGetEnableCaretBrowsing ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If caret browsing is enabled or 'False' otherwise. -}+settingsGetEnableCaretBrowsing settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_caret_browsing settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableCaretBrowsingMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableCaretBrowsingMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableCaretBrowsing++#endif++-- method Settings::get_enable_developer_extras+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-developer-extras/@ property.+-}+settingsGetEnableDeveloperExtras ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If developer extras is enabled or 'False' otherwise. -}+settingsGetEnableDeveloperExtras settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_developer_extras settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableDeveloperExtrasMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableDeveloperExtras++#endif++-- method Settings::get_enable_dns_prefetching+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-dns-prefetching/@ property.+-}+settingsGetEnableDnsPrefetching ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If DNS prefetching is enabled or 'False' otherwise. -}+settingsGetEnableDnsPrefetching settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_dns_prefetching settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableDnsPrefetchingMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableDnsPrefetching++#endif++-- method Settings::get_enable_encrypted_media+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_encrypted_media" webkit_settings_get_enable_encrypted_media :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-encrypted-media/@ property.++/Since: 2.20/+-}+settingsGetEnableEncryptedMedia ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if EncryptedMedia support is enabled or 'False' otherwise. -}+settingsGetEnableEncryptedMedia settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_encrypted_media settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableEncryptedMediaMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableEncryptedMediaMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableEncryptedMedia++#endif++-- method Settings::get_enable_frame_flattening+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-frame-flattening/@ property.+-}+settingsGetEnableFrameFlattening ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If frame flattening is enabled or 'False' otherwise. -}+settingsGetEnableFrameFlattening settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_frame_flattening settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableFrameFlatteningMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableFrameFlatteningMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableFrameFlattening++#endif++-- method Settings::get_enable_fullscreen+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-fullscreen/@ property.+-}+settingsGetEnableFullscreen ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If fullscreen support is enabled or 'False' otherwise. -}+settingsGetEnableFullscreen settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_fullscreen settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableFullscreenMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableFullscreenMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableFullscreen++#endif++-- method Settings::get_enable_html5_database+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-database/@ property.+-}+settingsGetEnableHtml5Database ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If HTML5 database support is enabled or 'False' otherwise. -}+settingsGetEnableHtml5Database settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_html5_database settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableHtml5DatabaseMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableHtml5Database++#endif++-- method Settings::get_enable_html5_local_storage+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-local-storage/@ property.+-}+settingsGetEnableHtml5LocalStorage ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If HTML5 local storage support is enabled or 'False' otherwise. -}+settingsGetEnableHtml5LocalStorage settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_html5_local_storage settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableHtml5LocalStorageMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableHtml5LocalStorage++#endif++-- method Settings::get_enable_hyperlink_auditing+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-hyperlink-auditing/@ property.+-}+settingsGetEnableHyperlinkAuditing ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If hyper link auditing is enabled or 'False' otherwise. -}+settingsGetEnableHyperlinkAuditing settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_hyperlink_auditing settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableHyperlinkAuditingMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableHyperlinkAuditing++#endif++-- method Settings::get_enable_java+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-java/@ property.+-}+settingsGetEnableJava ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If Java is enabled or 'False' otherwise. -}+settingsGetEnableJava settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_java settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableJavaMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavaMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableJava++#endif++-- method Settings::get_enable_javascript+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ property.+-}+settingsGetEnableJavascript ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If JavaScript is enabled or 'False' otherwise. -}+settingsGetEnableJavascript settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_javascript settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableJavascriptMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavascriptMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableJavascript++#endif++-- method Settings::get_enable_javascript_markup+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_javascript_markup" webkit_settings_get_enable_javascript_markup :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript-markup/@ property.++/Since: 2.24/+-}+settingsGetEnableJavascriptMarkup ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if JavaScript markup is enabled or 'False' otherwise. -}+settingsGetEnableJavascriptMarkup settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_javascript_markup settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableJavascriptMarkupMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableJavascriptMarkupMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableJavascriptMarkup++#endif++-- method Settings::get_enable_media_capabilities+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_media_capabilities" webkit_settings_get_enable_media_capabilities :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-capabilities/@ property.++/Since: 2.22/+-}+settingsGetEnableMediaCapabilities ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if MediaCapabilities support is enabled or 'False' otherwise. -}+settingsGetEnableMediaCapabilities settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_media_capabilities settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableMediaCapabilitiesMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediaCapabilitiesMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableMediaCapabilities++#endif++-- method Settings::get_enable_media_stream+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-stream/@ property.++/Since: 2.4/+-}+settingsGetEnableMediaStream ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If mediastream support is enabled or 'False' otherwise. -}+settingsGetEnableMediaStream settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_media_stream settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableMediaStreamMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediaStreamMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableMediaStream++#endif++-- method Settings::get_enable_mediasource+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mediasource/@ property.++/Since: 2.4/+-}+settingsGetEnableMediasource ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If MediaSource support is enabled or 'False' otherwise. -}+settingsGetEnableMediasource settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_mediasource settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableMediasourceMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMediasourceMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableMediasource++#endif++-- method Settings::get_enable_mock_capture_devices+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_mock_capture_devices" webkit_settings_get_enable_mock_capture_devices :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mock-capture-devices/@ property.++/Since: 2.24/+-}+settingsGetEnableMockCaptureDevices ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If mock capture devices is enabled or 'False' otherwise. -}+settingsGetEnableMockCaptureDevices settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_mock_capture_devices settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableMockCaptureDevicesMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableMockCaptureDevicesMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableMockCaptureDevices++#endif++-- method Settings::get_enable_offline_web_application_cache+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-offline-web-application-cache/@ property.+-}+settingsGetEnableOfflineWebApplicationCache ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If HTML5 offline web application cache support is enabled or 'False' otherwise. -}+settingsGetEnableOfflineWebApplicationCache settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_offline_web_application_cache settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableOfflineWebApplicationCacheMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableOfflineWebApplicationCache++#endif++-- method Settings::get_enable_page_cache+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-page-cache/@ property.+-}+settingsGetEnablePageCache ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if page cache enabled or 'False' otherwise. -}+settingsGetEnablePageCache settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_page_cache settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnablePageCacheMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePageCacheMethodInfo a signature where+    overloadedMethod _ = settingsGetEnablePageCache++#endif++-- method Settings::get_enable_plugins+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-plugins/@ property.+-}+settingsGetEnablePlugins ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If plugins are enabled or 'False' otherwise. -}+settingsGetEnablePlugins settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_plugins settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnablePluginsMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePluginsMethodInfo a signature where+    overloadedMethod _ = settingsGetEnablePlugins++#endif++-- method Settings::get_enable_private_browsing+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{-# DEPRECATED settingsGetEnablePrivateBrowsing ["(Since version 2.16.)","Use 'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or 'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-}+{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-private-browsing/@ property.+-}+settingsGetEnablePrivateBrowsing ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If private browsing is enabled or 'False' otherwise. -}+settingsGetEnablePrivateBrowsing settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_private_browsing settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnablePrivateBrowsingMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnablePrivateBrowsingMethodInfo a signature where+    overloadedMethod _ = settingsGetEnablePrivateBrowsing++#endif++-- method Settings::get_enable_resizable_text_areas+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-resizable-text-areas/@ property.+-}+settingsGetEnableResizableTextAreas ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If text areas can be resized or 'False' otherwise. -}+settingsGetEnableResizableTextAreas settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_resizable_text_areas settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableResizableTextAreasMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableResizableTextAreasMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableResizableTextAreas++#endif++-- method Settings::get_enable_site_specific_quirks+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-site-specific-quirks/@ property.+-}+settingsGetEnableSiteSpecificQuirks ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if site specific quirks are enabled or 'False' otherwise. -}+settingsGetEnableSiteSpecificQuirks settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_site_specific_quirks settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableSiteSpecificQuirksMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableSiteSpecificQuirks++#endif++-- method Settings::get_enable_smooth_scrolling+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-smooth-scrolling/@ property.+-}+settingsGetEnableSmoothScrolling ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if smooth scrolling is enabled or 'False' otherwise. -}+settingsGetEnableSmoothScrolling settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_smooth_scrolling settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableSmoothScrollingMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSmoothScrollingMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableSmoothScrolling++#endif++-- method Settings::get_enable_spatial_navigation+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-spatial-navigation/@ property.++/Since: 2.2/+-}+settingsGetEnableSpatialNavigation ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If HTML5 spatial navigation support is enabled or 'False' otherwise. -}+settingsGetEnableSpatialNavigation settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_spatial_navigation settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableSpatialNavigationMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableSpatialNavigationMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableSpatialNavigation++#endif++-- method Settings::get_enable_tabs_to_links+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-tabs-to-links/@ property.+-}+settingsGetEnableTabsToLinks ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If tabs to link is enabled or 'False' otherwise. -}+settingsGetEnableTabsToLinks settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_tabs_to_links settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableTabsToLinksMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableTabsToLinksMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableTabsToLinks++#endif++-- method Settings::get_enable_webaudio+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webaudio/@ property.+-}+settingsGetEnableWebaudio ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If webaudio support is enabled or 'False' otherwise. -}+settingsGetEnableWebaudio settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_webaudio settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableWebaudioMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWebaudioMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableWebaudio++#endif++-- method Settings::get_enable_webgl+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webgl/@ property.+-}+settingsGetEnableWebgl ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If WebGL support is enabled or 'False' otherwise. -}+settingsGetEnableWebgl settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_webgl settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableWebglMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWebglMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableWebgl++#endif++-- method Settings::get_enable_write_console_messages_to_stdout+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-write-console-messages-to-stdout/@ property.++/Since: 2.2/+-}+settingsGetEnableWriteConsoleMessagesToStdout ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if writing console messages to stdout is enabled or 'False'+otherwise. -}+settingsGetEnableWriteConsoleMessagesToStdout settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_write_console_messages_to_stdout settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableWriteConsoleMessagesToStdout++#endif++-- method Settings::get_enable_xss_auditor+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/enable-xss-auditor/@ property.+-}+settingsGetEnableXssAuditor ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If XSS auditing is enabled or 'False' otherwise. -}+settingsGetEnableXssAuditor settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_enable_xss_auditor settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetEnableXssAuditorMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnableXssAuditorMethodInfo a signature where+    overloadedMethod _ = settingsGetEnableXssAuditor++#endif++-- method Settings::get_fantasy_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/fantasy-font-family/@ property.+-}+settingsGetFantasyFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ The default font family used to display content marked with fantasy font. -}+settingsGetFantasyFontFamily settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_fantasy_font_family settings'+    checkUnexpectedReturnNULL "settingsGetFantasyFontFamily" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetFantasyFontFamilyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetFantasyFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsGetFantasyFontFamily++#endif++-- method Settings::get_hardware_acceleration_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_hardware_acceleration_policy" webkit_settings_get_hardware_acceleration_policy :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CUInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/hardware-acceleration-policy/@ property.++/Since: 2.16/+-}+settingsGetHardwareAccelerationPolicy ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m WebKit2.Enums.HardwareAccelerationPolicy+    {- ^ __Returns:__ a 'GI.WebKit2.Enums.HardwareAccelerationPolicy' -}+settingsGetHardwareAccelerationPolicy settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_hardware_acceleration_policy settings'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetHardwareAccelerationPolicyMethodInfo+instance (signature ~ (m WebKit2.Enums.HardwareAccelerationPolicy), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetHardwareAccelerationPolicyMethodInfo a signature where+    overloadedMethod _ = settingsGetHardwareAccelerationPolicy++#endif++-- method Settings::get_javascript_can_access_clipboard+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-access-clipboard/@ property.+-}+settingsGetJavascriptCanAccessClipboard ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If javascript-can-access-clipboard is enabled or 'False' otherwise. -}+settingsGetJavascriptCanAccessClipboard settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_javascript_can_access_clipboard settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetJavascriptCanAccessClipboardMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where+    overloadedMethod _ = settingsGetJavascriptCanAccessClipboard++#endif++-- method Settings::get_javascript_can_open_windows_automatically+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-open-windows-automatically/@ property.+-}+settingsGetJavascriptCanOpenWindowsAutomatically ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If JavaScript can open window automatically or 'False' otherwise. -}+settingsGetJavascriptCanOpenWindowsAutomatically settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_javascript_can_open_windows_automatically settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where+    overloadedMethod _ = settingsGetJavascriptCanOpenWindowsAutomatically++#endif++-- method Settings::get_load_icons_ignoring_image_load_setting+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/load-icons-ignoring-image-load-setting/@ property.+-}+settingsGetLoadIconsIgnoringImageLoadSetting ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If site icon can be loaded irrespective of image loading preference or 'False' otherwise. -}+settingsGetLoadIconsIgnoringImageLoadSetting settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_load_icons_ignoring_image_load_setting settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where+    overloadedMethod _ = settingsGetLoadIconsIgnoringImageLoadSetting++#endif++-- method Settings::get_media_playback_allows_inline+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-allows-inline/@ property.+-}+settingsGetMediaPlaybackAllowsInline ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If inline playback is allowed for media+   or 'False' if only fullscreen playback is allowed. -}+settingsGetMediaPlaybackAllowsInline settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_media_playback_allows_inline settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetMediaPlaybackAllowsInlineMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where+    overloadedMethod _ = settingsGetMediaPlaybackAllowsInline++#endif++-- method Settings::get_media_playback_requires_user_gesture+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-requires-user-gesture/@ property.+-}+settingsGetMediaPlaybackRequiresUserGesture ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If an user gesture is needed to play or load media+   or 'False' if no user gesture is needed. -}+settingsGetMediaPlaybackRequiresUserGesture settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_media_playback_requires_user_gesture settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where+    overloadedMethod _ = settingsGetMediaPlaybackRequiresUserGesture++#endif++-- method Settings::get_minimum_font_size+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt32)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO Word32++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/minimum-font-size/@ property.+-}+settingsGetMinimumFontSize ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Word32+    {- ^ __Returns:__ Minimum font size, in pixels. -}+settingsGetMinimumFontSize settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_minimum_font_size settings'+    touchManagedPtr settings+    return result++#if ENABLE_OVERLOADING+data SettingsGetMinimumFontSizeMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMinimumFontSizeMethodInfo a signature where+    overloadedMethod _ = settingsGetMinimumFontSize++#endif++-- method Settings::get_monospace_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/monospace-font-family/@ property.+-}+settingsGetMonospaceFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ Default font family used to display content marked with monospace font. -}+settingsGetMonospaceFontFamily settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_monospace_font_family settings'+    checkUnexpectedReturnNULL "settingsGetMonospaceFontFamily" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetMonospaceFontFamilyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMonospaceFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsGetMonospaceFontFamily++#endif++-- method Settings::get_pictograph_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/pictograph-font-family/@ property.+-}+settingsGetPictographFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ The default font family used to display content marked with pictograph font. -}+settingsGetPictographFontFamily settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_pictograph_font_family settings'+    checkUnexpectedReturnNULL "settingsGetPictographFontFamily" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetPictographFontFamilyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetPictographFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsGetPictographFontFamily++#endif++-- method Settings::get_print_backgrounds+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/print-backgrounds/@ property.+-}+settingsGetPrintBackgrounds ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If background images should be printed or 'False' otherwise. -}+settingsGetPrintBackgrounds settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_print_backgrounds settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetPrintBackgroundsMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetPrintBackgroundsMethodInfo a signature where+    overloadedMethod _ = settingsGetPrintBackgrounds++#endif++-- method Settings::get_sans_serif_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/sans-serif-font-family/@ property.+-}+settingsGetSansSerifFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ The default font family used to display content marked with sans-serif font. -}+settingsGetSansSerifFontFamily settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_sans_serif_font_family settings'+    checkUnexpectedReturnNULL "settingsGetSansSerifFontFamily" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetSansSerifFontFamilyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetSansSerifFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsGetSansSerifFontFamily++#endif++-- method Settings::get_serif_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings':@/serif-font-family/@ property.+-}+settingsGetSerifFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ The default font family used to display content marked with serif font. -}+settingsGetSerifFontFamily settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_serif_font_family settings'+    checkUnexpectedReturnNULL "settingsGetSerifFontFamily" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetSerifFontFamilyMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetSerifFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsGetSerifFontFamily++#endif++-- method Settings::get_user_agent+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property.+-}+settingsGetUserAgent ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m T.Text+    {- ^ __Returns:__ The current value of the user-agent property. -}+settingsGetUserAgent settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_user_agent settings'+    checkUnexpectedReturnNULL "settingsGetUserAgent" result+    result' <- cstringToText result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetUserAgentMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetUserAgentMethodInfo a signature where+    overloadedMethod _ = settingsGetUserAgent++#endif++-- method Settings::get_zoom_text_only+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO CInt++{- |+Get the 'GI.WebKit2.Objects.Settings.Settings':@/zoom-text-only/@ property.+-}+settingsGetZoomTextOnly ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If zoom level of the view should only affect the text+   or 'False' if all view contents should be scaled. -}+settingsGetZoomTextOnly settings = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    result <- webkit_settings_get_zoom_text_only settings'+    let result' = (/= 0) result+    touchManagedPtr settings+    return result'++#if ENABLE_OVERLOADING+data SettingsGetZoomTextOnlyMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetZoomTextOnlyMethodInfo a signature where+    overloadedMethod _ = settingsGetZoomTextOnly++#endif++-- method Settings::set_allow_file_access_from_file_urls+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- allowed : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/allow-file-access-from-file-urls/@ property.++/Since: 2.10/+-}+settingsSetAllowFileAccessFromFileUrls ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@allowed@/: Value to be set -}+    -> m ()+settingsSetAllowFileAccessFromFileUrls settings allowed = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let allowed' = (fromIntegral . fromEnum) allowed+    webkit_settings_set_allow_file_access_from_file_urls settings' allowed'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetAllowFileAccessFromFileUrlsMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where+    overloadedMethod _ = settingsSetAllowFileAccessFromFileUrls++#endif++-- method Settings::set_allow_modal_dialogs+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- allowed : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/allow-modal-dialogs/@ property.+-}+settingsSetAllowModalDialogs ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@allowed@/: Value to be set -}+    -> m ()+settingsSetAllowModalDialogs settings allowed = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let allowed' = (fromIntegral . fromEnum) allowed+    webkit_settings_set_allow_modal_dialogs settings' allowed'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetAllowModalDialogsMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowModalDialogsMethodInfo a signature where+    overloadedMethod _ = settingsSetAllowModalDialogs++#endif++-- method Settings::set_allow_universal_access_from_file_urls+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_allow_universal_access_from_file_urls" webkit_settings_set_allow_universal_access_from_file_urls :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- allowed : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/allow-universal-access-from-file-urls/@ property.++/Since: 2.14/+-}+settingsSetAllowUniversalAccessFromFileUrls ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@allowed@/: Value to be set -}+    -> m ()+settingsSetAllowUniversalAccessFromFileUrls settings allowed = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let allowed' = (fromIntegral . fromEnum) allowed+    webkit_settings_set_allow_universal_access_from_file_urls settings' allowed'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo a signature where+    overloadedMethod _ = settingsSetAllowUniversalAccessFromFileUrls++#endif++-- method Settings::set_auto_load_images+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/auto-load-images/@ property.+-}+settingsSetAutoLoadImages ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetAutoLoadImages settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_auto_load_images settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetAutoLoadImagesMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetAutoLoadImagesMethodInfo a signature where+    overloadedMethod _ = settingsSetAutoLoadImages++#endif++-- method Settings::set_cursive_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default cursive font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- cursive_font_family : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/cursive-font-family/@ property.+-}+settingsSetCursiveFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@cursiveFontFamily@/: the new default cursive font family -}+    -> m ()+settingsSetCursiveFontFamily settings cursiveFontFamily = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    cursiveFontFamily' <- textToCString cursiveFontFamily+    webkit_settings_set_cursive_font_family settings' cursiveFontFamily'+    touchManagedPtr settings+    freeMem cursiveFontFamily'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetCursiveFontFamilyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetCursiveFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsSetCursiveFontFamily++#endif++-- method Settings::set_default_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "default charset to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- default_charset : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-charset/@ property.+-}+settingsSetDefaultCharset ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@defaultCharset@/: default charset to be set -}+    -> m ()+settingsSetDefaultCharset settings defaultCharset = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    defaultCharset' <- textToCString defaultCharset+    webkit_settings_set_default_charset settings' defaultCharset'+    touchManagedPtr settings+    freeMem defaultCharset'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetDefaultCharsetMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultCharsetMethodInfo a signature where+    overloadedMethod _ = settingsSetDefaultCharset++#endif++-- method Settings::set_default_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- default_font_family : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-font-family/@ property.+-}+settingsSetDefaultFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@defaultFontFamily@/: the new default font family -}+    -> m ()+settingsSetDefaultFontFamily settings defaultFontFamily = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    defaultFontFamily' <- textToCString defaultFontFamily+    webkit_settings_set_default_font_family settings' defaultFontFamily'+    touchManagedPtr settings+    freeMem defaultFontFamily'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetDefaultFontFamilyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsSetDefaultFontFamily++#endif++-- method Settings::set_default_font_size+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "default font size to be set in pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    Word32 ->                               -- font_size : TBasicType TUInt32+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-font-size/@ property.+-}+settingsSetDefaultFontSize ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Word32+    {- ^ /@fontSize@/: default font size to be set in pixels -}+    -> m ()+settingsSetDefaultFontSize settings fontSize = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    webkit_settings_set_default_font_size settings' fontSize+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetDefaultFontSizeMethodInfo+instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultFontSizeMethodInfo a signature where+    overloadedMethod _ = settingsSetDefaultFontSize++#endif++-- method Settings::set_default_monospace_font_size+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "default monospace font size to be set in pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    Word32 ->                               -- font_size : TBasicType TUInt32+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/default-monospace-font-size/@ property.+-}+settingsSetDefaultMonospaceFontSize ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Word32+    {- ^ /@fontSize@/: default monospace font size to be set in pixels -}+    -> m ()+settingsSetDefaultMonospaceFontSize settings fontSize = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    webkit_settings_set_default_monospace_font_size settings' fontSize+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetDefaultMonospaceFontSizeMethodInfo+instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where+    overloadedMethod _ = settingsSetDefaultMonospaceFontSize++#endif++-- method Settings::set_draw_compositing_indicators+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/draw-compositing-indicators/@ property.+-}+settingsSetDrawCompositingIndicators ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetDrawCompositingIndicators settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_draw_compositing_indicators settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetDrawCompositingIndicatorsMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a signature where+    overloadedMethod _ = settingsSetDrawCompositingIndicators++#endif++-- method Settings::set_enable_accelerated_2d_canvas+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-accelerated-2d-canvas/@ property.++/Since: 2.2/+-}+settingsSetEnableAccelerated2dCanvas ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableAccelerated2dCanvas settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_accelerated_2d_canvas settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableAccelerated2dCanvasMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableAccelerated2dCanvasMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableAccelerated2dCanvas++#endif++-- method Settings::set_enable_back_forward_navigation_gestures+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_back_forward_navigation_gestures" webkit_settings_set_enable_back_forward_navigation_gestures :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-back-forward-navigation-gestures/@ property.++/Since: 2.24/+-}+settingsSetEnableBackForwardNavigationGestures ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: value to be set -}+    -> m ()+settingsSetEnableBackForwardNavigationGestures settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_back_forward_navigation_gestures settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableBackForwardNavigationGesturesMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableBackForwardNavigationGesturesMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableBackForwardNavigationGestures++#endif++-- method Settings::set_enable_caret_browsing+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-caret-browsing/@ property.+-}+settingsSetEnableCaretBrowsing ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableCaretBrowsing settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_caret_browsing settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableCaretBrowsingMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableCaretBrowsingMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableCaretBrowsing++#endif++-- method Settings::set_enable_developer_extras+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-developer-extras/@ property.+-}+settingsSetEnableDeveloperExtras ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableDeveloperExtras settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_developer_extras settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableDeveloperExtrasMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableDeveloperExtras++#endif++-- method Settings::set_enable_dns_prefetching+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-dns-prefetching/@ property.+-}+settingsSetEnableDnsPrefetching ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableDnsPrefetching settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_dns_prefetching settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableDnsPrefetchingMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableDnsPrefetching++#endif++-- method Settings::set_enable_encrypted_media+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_encrypted_media" webkit_settings_set_enable_encrypted_media :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-encrypted-media/@ property.++/Since: 2.20/+-}+settingsSetEnableEncryptedMedia ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableEncryptedMedia settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_encrypted_media settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableEncryptedMediaMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableEncryptedMediaMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableEncryptedMedia++#endif++-- method Settings::set_enable_frame_flattening+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-frame-flattening/@ property.+-}+settingsSetEnableFrameFlattening ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableFrameFlattening settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_frame_flattening settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableFrameFlatteningMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableFrameFlatteningMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableFrameFlattening++#endif++-- method Settings::set_enable_fullscreen+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-fullscreen/@ property.+-}+settingsSetEnableFullscreen ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableFullscreen settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_fullscreen settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableFullscreenMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableFullscreenMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableFullscreen++#endif++-- method Settings::set_enable_html5_database+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-database/@ property.+-}+settingsSetEnableHtml5Database ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableHtml5Database settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_html5_database settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableHtml5DatabaseMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableHtml5Database++#endif++-- method Settings::set_enable_html5_local_storage+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-html5-local-storage/@ property.+-}+settingsSetEnableHtml5LocalStorage ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableHtml5LocalStorage settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_html5_local_storage settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableHtml5LocalStorageMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableHtml5LocalStorage++#endif++-- method Settings::set_enable_hyperlink_auditing+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-hyperlink-auditing/@ property.+-}+settingsSetEnableHyperlinkAuditing ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableHyperlinkAuditing settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_hyperlink_auditing settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableHyperlinkAuditingMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableHyperlinkAuditing++#endif++-- method Settings::set_enable_java+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-java/@ property.+-}+settingsSetEnableJava ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableJava settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_java settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableJavaMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavaMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableJava++#endif++-- method Settings::set_enable_javascript+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript/@ property.+-}+settingsSetEnableJavascript ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableJavascript settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_javascript settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableJavascriptMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavascriptMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableJavascript++#endif++-- method Settings::set_enable_javascript_markup+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_javascript_markup" webkit_settings_set_enable_javascript_markup :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-javascript-markup/@ property.++/Since: 2.24/+-}+settingsSetEnableJavascriptMarkup ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableJavascriptMarkup settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_javascript_markup settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableJavascriptMarkupMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableJavascriptMarkupMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableJavascriptMarkup++#endif++-- method Settings::set_enable_media_capabilities+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_media_capabilities" webkit_settings_set_enable_media_capabilities :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-capabilities/@ property.++/Since: 2.22/+-}+settingsSetEnableMediaCapabilities ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableMediaCapabilities settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_media_capabilities settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableMediaCapabilitiesMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediaCapabilitiesMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableMediaCapabilities++#endif++-- method Settings::set_enable_media_stream+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-media-stream/@ property.++/Since: 2.4/+-}+settingsSetEnableMediaStream ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableMediaStream settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_media_stream settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableMediaStreamMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediaStreamMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableMediaStream++#endif++-- method Settings::set_enable_mediasource+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mediasource/@ property.++/Since: 2.4/+-}+settingsSetEnableMediasource ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableMediasource settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_mediasource settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableMediasourceMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMediasourceMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableMediasource++#endif++-- method Settings::set_enable_mock_capture_devices+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_mock_capture_devices" webkit_settings_set_enable_mock_capture_devices :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-mock-capture-devices/@ property.++/Since: 2.4/+-}+settingsSetEnableMockCaptureDevices ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableMockCaptureDevices settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_mock_capture_devices settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableMockCaptureDevicesMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableMockCaptureDevicesMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableMockCaptureDevices++#endif++-- method Settings::set_enable_offline_web_application_cache+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-offline-web-application-cache/@ property.+-}+settingsSetEnableOfflineWebApplicationCache ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableOfflineWebApplicationCache settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_offline_web_application_cache settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableOfflineWebApplicationCacheMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableOfflineWebApplicationCache++#endif++-- method Settings::set_enable_page_cache+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-page-cache/@ property.+-}+settingsSetEnablePageCache ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnablePageCache settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_page_cache settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnablePageCacheMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePageCacheMethodInfo a signature where+    overloadedMethod _ = settingsSetEnablePageCache++#endif++-- method Settings::set_enable_plugins+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-plugins/@ property.+-}+settingsSetEnablePlugins ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnablePlugins settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_plugins settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnablePluginsMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePluginsMethodInfo a signature where+    overloadedMethod _ = settingsSetEnablePlugins++#endif++-- method Settings::set_enable_private_browsing+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{-# DEPRECATED settingsSetEnablePrivateBrowsing ["(Since version 2.16.)","Use 'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ or 'GI.WebKit2.Objects.WebContext.WebContext':@/is-ephemeral/@ instead."] #-}+{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-private-browsing/@ property.+-}+settingsSetEnablePrivateBrowsing ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnablePrivateBrowsing settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_private_browsing settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnablePrivateBrowsingMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnablePrivateBrowsingMethodInfo a signature where+    overloadedMethod _ = settingsSetEnablePrivateBrowsing++#endif++-- method Settings::set_enable_resizable_text_areas+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-resizable-text-areas/@ property.+-}+settingsSetEnableResizableTextAreas ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableResizableTextAreas settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_resizable_text_areas settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableResizableTextAreasMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableResizableTextAreasMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableResizableTextAreas++#endif++-- method Settings::set_enable_site_specific_quirks+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-site-specific-quirks/@ property.+-}+settingsSetEnableSiteSpecificQuirks ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableSiteSpecificQuirks settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_site_specific_quirks settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableSiteSpecificQuirksMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableSiteSpecificQuirks++#endif++-- method Settings::set_enable_smooth_scrolling+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-smooth-scrolling/@ property.+-}+settingsSetEnableSmoothScrolling ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableSmoothScrolling settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_smooth_scrolling settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableSmoothScrollingMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSmoothScrollingMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableSmoothScrolling++#endif++-- method Settings::set_enable_spatial_navigation+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-spatial-navigation/@ property.++/Since: 2.2/+-}+settingsSetEnableSpatialNavigation ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableSpatialNavigation settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_spatial_navigation settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableSpatialNavigationMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableSpatialNavigationMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableSpatialNavigation++#endif++-- method Settings::set_enable_tabs_to_links+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-tabs-to-links/@ property.+-}+settingsSetEnableTabsToLinks ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableTabsToLinks settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_tabs_to_links settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableTabsToLinksMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableTabsToLinksMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableTabsToLinks++#endif++-- method Settings::set_enable_webaudio+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webaudio/@ property.+-}+settingsSetEnableWebaudio ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableWebaudio settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_webaudio settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableWebaudioMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWebaudioMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableWebaudio++#endif++-- method Settings::set_enable_webgl+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-webgl/@ property.+-}+settingsSetEnableWebgl ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableWebgl settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_webgl settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableWebglMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWebglMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableWebgl++#endif++-- method Settings::set_enable_write_console_messages_to_stdout+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-write-console-messages-to-stdout/@ property.++/Since: 2.2/+-}+settingsSetEnableWriteConsoleMessagesToStdout ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableWriteConsoleMessagesToStdout settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_write_console_messages_to_stdout settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableWriteConsoleMessagesToStdout++#endif++-- method Settings::set_enable_xss_auditor+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/enable-xss-auditor/@ property.+-}+settingsSetEnableXssAuditor ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetEnableXssAuditor settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_enable_xss_auditor settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetEnableXssAuditorMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnableXssAuditorMethodInfo a signature where+    overloadedMethod _ = settingsSetEnableXssAuditor++#endif++-- method Settings::set_fantasy_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default fantasy font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- fantasy_font_family : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/fantasy-font-family/@ property.+-}+settingsSetFantasyFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@fantasyFontFamily@/: the new default fantasy font family -}+    -> m ()+settingsSetFantasyFontFamily settings fantasyFontFamily = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    fantasyFontFamily' <- textToCString fantasyFontFamily+    webkit_settings_set_fantasy_font_family settings' fantasyFontFamily'+    touchManagedPtr settings+    freeMem fantasyFontFamily'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetFantasyFontFamilyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetFantasyFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsSetFantasyFontFamily++#endif++-- method Settings::set_hardware_acceleration_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitHardwareAccelerationPolicy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_hardware_acceleration_policy" webkit_settings_set_hardware_acceleration_policy :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CUInt ->                                -- policy : TInterface (Name {namespace = "WebKit2", name = "HardwareAccelerationPolicy"})+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/hardware-acceleration-policy/@ property.++/Since: 2.16/+-}+settingsSetHardwareAccelerationPolicy ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> WebKit2.Enums.HardwareAccelerationPolicy+    {- ^ /@policy@/: a 'GI.WebKit2.Enums.HardwareAccelerationPolicy' -}+    -> m ()+settingsSetHardwareAccelerationPolicy settings policy = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let policy' = (fromIntegral . fromEnum) policy+    webkit_settings_set_hardware_acceleration_policy settings' policy'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetHardwareAccelerationPolicyMethodInfo+instance (signature ~ (WebKit2.Enums.HardwareAccelerationPolicy -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetHardwareAccelerationPolicyMethodInfo a signature where+    overloadedMethod _ = settingsSetHardwareAccelerationPolicy++#endif++-- method Settings::set_javascript_can_access_clipboard+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-access-clipboard/@ property.+-}+settingsSetJavascriptCanAccessClipboard ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetJavascriptCanAccessClipboard settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_javascript_can_access_clipboard settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetJavascriptCanAccessClipboardMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where+    overloadedMethod _ = settingsSetJavascriptCanAccessClipboard++#endif++-- method Settings::set_javascript_can_open_windows_automatically+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/javascript-can-open-windows-automatically/@ property.+-}+settingsSetJavascriptCanOpenWindowsAutomatically ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetJavascriptCanOpenWindowsAutomatically settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_javascript_can_open_windows_automatically settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where+    overloadedMethod _ = settingsSetJavascriptCanOpenWindowsAutomatically++#endif++-- method Settings::set_load_icons_ignoring_image_load_setting+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/load-icons-ignoring-image-load-setting/@ property.+-}+settingsSetLoadIconsIgnoringImageLoadSetting ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetLoadIconsIgnoringImageLoadSetting settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_load_icons_ignoring_image_load_setting settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where+    overloadedMethod _ = settingsSetLoadIconsIgnoringImageLoadSetting++#endif++-- method Settings::set_media_playback_allows_inline+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-allows-inline/@ property.+-}+settingsSetMediaPlaybackAllowsInline ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetMediaPlaybackAllowsInline settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_media_playback_allows_inline settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetMediaPlaybackAllowsInlineMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where+    overloadedMethod _ = settingsSetMediaPlaybackAllowsInline++#endif++-- method Settings::set_media_playback_requires_user_gesture+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/media-playback-requires-user-gesture/@ property.+-}+settingsSetMediaPlaybackRequiresUserGesture ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+settingsSetMediaPlaybackRequiresUserGesture settings enabled = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_settings_set_media_playback_requires_user_gesture settings' enabled'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where+    overloadedMethod _ = settingsSetMediaPlaybackRequiresUserGesture++#endif++-- method Settings::set_minimum_font_size+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "minimum font size to be set in pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    Word32 ->                               -- font_size : TBasicType TUInt32+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/minimum-font-size/@ property.+-}+settingsSetMinimumFontSize ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Word32+    {- ^ /@fontSize@/: minimum font size to be set in pixels -}+    -> m ()+settingsSetMinimumFontSize settings fontSize = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    webkit_settings_set_minimum_font_size settings' fontSize+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetMinimumFontSizeMethodInfo+instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMinimumFontSizeMethodInfo a signature where+    overloadedMethod _ = settingsSetMinimumFontSize++#endif++-- method Settings::set_monospace_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default monospace font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- monospace_font_family : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/monospace-font-family/@ property.+-}+settingsSetMonospaceFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@monospaceFontFamily@/: the new default monospace font family -}+    -> m ()+settingsSetMonospaceFontFamily settings monospaceFontFamily = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    monospaceFontFamily' <- textToCString monospaceFontFamily+    webkit_settings_set_monospace_font_family settings' monospaceFontFamily'+    touchManagedPtr settings+    freeMem monospaceFontFamily'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetMonospaceFontFamilyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetMonospaceFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsSetMonospaceFontFamily++#endif++-- method Settings::set_pictograph_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default pictograph font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- pictograph_font_family : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/pictograph-font-family/@ property.+-}+settingsSetPictographFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@pictographFontFamily@/: the new default pictograph font family -}+    -> m ()+settingsSetPictographFontFamily settings pictographFontFamily = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    pictographFontFamily' <- textToCString pictographFontFamily+    webkit_settings_set_pictograph_font_family settings' pictographFontFamily'+    touchManagedPtr settings+    freeMem pictographFontFamily'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetPictographFontFamilyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetPictographFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsSetPictographFontFamily++#endif++-- method Settings::set_print_backgrounds+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- print_backgrounds : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/print-backgrounds/@ property.+-}+settingsSetPrintBackgrounds ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@printBackgrounds@/: Value to be set -}+    -> m ()+settingsSetPrintBackgrounds settings printBackgrounds = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let printBackgrounds' = (fromIntegral . fromEnum) printBackgrounds+    webkit_settings_set_print_backgrounds settings' printBackgrounds'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetPrintBackgroundsMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetPrintBackgroundsMethodInfo a signature where+    overloadedMethod _ = settingsSetPrintBackgrounds++#endif++-- method Settings::set_sans_serif_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default sans-serif font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- sans_serif_font_family : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/sans-serif-font-family/@ property.+-}+settingsSetSansSerifFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@sansSerifFontFamily@/: the new default sans-serif font family -}+    -> m ()+settingsSetSansSerifFontFamily settings sansSerifFontFamily = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    sansSerifFontFamily' <- textToCString sansSerifFontFamily+    webkit_settings_set_sans_serif_font_family settings' sansSerifFontFamily'+    touchManagedPtr settings+    freeMem sansSerifFontFamily'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetSansSerifFontFamilyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetSansSerifFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsSetSansSerifFontFamily++#endif++-- method Settings::set_serif_font_family+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default serif font family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- serif_font_family : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/serif-font-family/@ property.+-}+settingsSetSerifFontFamily ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> T.Text+    {- ^ /@serifFontFamily@/: the new default serif font family -}+    -> m ()+settingsSetSerifFontFamily settings serifFontFamily = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    serifFontFamily' <- textToCString serifFontFamily+    webkit_settings_set_serif_font_family settings' serifFontFamily'+    touchManagedPtr settings+    freeMem serifFontFamily'+    return ()++#if ENABLE_OVERLOADING+data SettingsSetSerifFontFamilyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetSerifFontFamilyMethodInfo a signature where+    overloadedMethod _ = settingsSetSerifFontFamily++#endif++-- method Settings::set_user_agent+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The new custom user agent string or %NULL to use the default user agent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- user_agent : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property.+-}+settingsSetUserAgent ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Maybe (T.Text)+    {- ^ /@userAgent@/: The new custom user agent string or 'Nothing' to use the default user agent -}+    -> m ()+settingsSetUserAgent settings userAgent = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    maybeUserAgent <- case userAgent of+        Nothing -> return nullPtr+        Just jUserAgent -> do+            jUserAgent' <- textToCString jUserAgent+            return jUserAgent'+    webkit_settings_set_user_agent settings' maybeUserAgent+    touchManagedPtr settings+    freeMem maybeUserAgent+    return ()++#if ENABLE_OVERLOADING+data SettingsSetUserAgentMethodInfo+instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUserAgentMethodInfo a signature where+    overloadedMethod _ = settingsSetUserAgent++#endif++-- method Settings::set_user_agent_with_application_details+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The application name used for the user agent or %NULL to use the default user agent.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The application version for the user agent or %NULL to user the default version.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CString ->                              -- application_name : TBasicType TUTF8+    CString ->                              -- application_version : TBasicType TUTF8+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/user-agent/@ property by appending the application details to the default user+agent. If no application name or version is given, the default user agent used will be used. If only+the version is given, the default engine version is used with the given application name.+-}+settingsSetUserAgentWithApplicationDetails ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Maybe (T.Text)+    {- ^ /@applicationName@/: The application name used for the user agent or 'Nothing' to use the default user agent. -}+    -> Maybe (T.Text)+    {- ^ /@applicationVersion@/: The application version for the user agent or 'Nothing' to user the default version. -}+    -> m ()+settingsSetUserAgentWithApplicationDetails settings applicationName applicationVersion = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    maybeApplicationName <- case applicationName of+        Nothing -> return nullPtr+        Just jApplicationName -> do+            jApplicationName' <- textToCString jApplicationName+            return jApplicationName'+    maybeApplicationVersion <- case applicationVersion of+        Nothing -> return nullPtr+        Just jApplicationVersion -> do+            jApplicationVersion' <- textToCString jApplicationVersion+            return jApplicationVersion'+    webkit_settings_set_user_agent_with_application_details settings' maybeApplicationName maybeApplicationVersion+    touchManagedPtr settings+    freeMem maybeApplicationName+    freeMem maybeApplicationVersion+    return ()++#if ENABLE_OVERLOADING+data SettingsSetUserAgentWithApplicationDetailsMethodInfo+instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where+    overloadedMethod _ = settingsSetUserAgentWithApplicationDetails++#endif++-- method Settings::set_zoom_text_only+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only :: +    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    CInt ->                                 -- zoom_text_only : TBasicType TBoolean+    IO ()++{- |+Set the 'GI.WebKit2.Objects.Settings.Settings':@/zoom-text-only/@ property.+-}+settingsSetZoomTextOnly ::+    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> Bool+    {- ^ /@zoomTextOnly@/: Value to be set -}+    -> m ()+settingsSetZoomTextOnly settings zoomTextOnly = liftIO $ do+    settings' <- unsafeManagedPtrCastPtr settings+    let zoomTextOnly' = (fromIntegral . fromEnum) zoomTextOnly+    webkit_settings_set_zoom_text_only settings' zoomTextOnly'+    touchManagedPtr settings+    return ()++#if ENABLE_OVERLOADING+data SettingsSetZoomTextOnlyMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetZoomTextOnlyMethodInfo a signature where+    overloadedMethod _ = settingsSetZoomTextOnly++#endif++-- method Settings::font_size_to_pixels+-- method type : MemberFunction+-- Args : [Arg {argCName = "points", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the font size in points to convert to pixels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt32)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_font_size_to_pixels" webkit_settings_font_size_to_pixels :: +    Word32 ->                               -- points : TBasicType TUInt32+    IO Word32++{- |+Convert /@points@/ to the equivalent value in pixels, based on the current+screen DPI. Applications can use this function to convert font size values+in points to font size values in pixels when setting the font size properties+of 'GI.WebKit2.Objects.Settings.Settings'.++/Since: 2.20/+-}+settingsFontSizeToPixels ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Word32+    {- ^ /@points@/: the font size in points to convert to pixels -}+    -> m Word32+    {- ^ __Returns:__ the equivalent font size in pixels. -}+settingsFontSizeToPixels points = liftIO $ do+    result <- webkit_settings_font_size_to_pixels points+    return result++#if ENABLE_OVERLOADING+#endif++-- method Settings::font_size_to_points+-- method type : MemberFunction+-- Args : [Arg {argCName = "pixels", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the font size in pixels to convert to points", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt32)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_settings_font_size_to_points" webkit_settings_font_size_to_points :: +    Word32 ->                               -- pixels : TBasicType TUInt32+    IO Word32++{- |+Convert /@pixels@/ to the equivalent value in points, based on the current+screen DPI. Applications can use this function to convert font size values+in pixels to font size values in points when getting the font size properties+of 'GI.WebKit2.Objects.Settings.Settings'.++/Since: 2.20/+-}+settingsFontSizeToPoints ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Word32+    {- ^ /@pixels@/: the font size in pixels to convert to points -}+    -> m Word32+    {- ^ __Returns:__ the equivalent font size in points. -}+settingsFontSizeToPoints pixels = liftIO $ do+    result <- webkit_settings_font_size_to_points pixels+    return result++#if ENABLE_OVERLOADING+#endif++
+ GI/WebKit2/Objects/Settings.hs-boot view
@@ -0,0 +1,536 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.Settings 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++newtype Settings = Settings (ManagedPtr Settings)+instance GObject Settings where+class (GObject o, O.IsDescendantOf Settings o) => IsSettings o+instance (GObject o, O.IsDescendantOf Settings o) => IsSettings o+instance O.HasParentTypes Settings+#if ENABLE_OVERLOADING+data SettingsAllowFileAccessFromFileUrlsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsAllowModalDialogsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsAllowUniversalAccessFromFileUrlsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsAutoLoadImagesPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsCursiveFontFamilyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsDefaultCharsetPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsDefaultFontFamilyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsDefaultFontSizePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsDefaultMonospaceFontSizePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsDrawCompositingIndicatorsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableAccelerated2dCanvasPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableBackForwardNavigationGesturesPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableCaretBrowsingPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableDeveloperExtrasPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableDnsPrefetchingPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableEncryptedMediaPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableFrameFlatteningPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableFullscreenPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableHtml5DatabasePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableHtml5LocalStoragePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableHyperlinkAuditingPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableJavaPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableJavascriptPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableJavascriptMarkupPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableMediaCapabilitiesPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableMediaStreamPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableMediasourcePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableMockCaptureDevicesPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableOfflineWebApplicationCachePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnablePageCachePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnablePluginsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnablePrivateBrowsingPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableResizableTextAreasPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableSiteSpecificQuirksPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableSmoothScrollingPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableSpatialNavigationPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableTabsToLinksPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableWebaudioPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableWebglPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsEnableXssAuditorPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsFantasyFontFamilyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsHardwareAccelerationPolicyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsJavascriptCanAccessClipboardPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsMediaPlaybackAllowsInlinePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsMediaPlaybackRequiresUserGesturePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsMinimumFontSizePropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsMonospaceFontFamilyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsPictographFontFamilyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsPrintBackgroundsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSansSerifFontFamilyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSerifFontFamilyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsUserAgentPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsZoomTextOnlyPropertyInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetAllowFileAccessFromFileUrlsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetAllowModalDialogsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetAllowUniversalAccessFromFileUrlsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetAutoLoadImagesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetCursiveFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetDefaultCharsetMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetDefaultFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetDefaultFontSizeMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetDefaultMonospaceFontSizeMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetDrawCompositingIndicatorsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableAccelerated2dCanvasMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableBackForwardNavigationGesturesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableCaretBrowsingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableDeveloperExtrasMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableDnsPrefetchingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableEncryptedMediaMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableFrameFlatteningMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableFullscreenMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableHtml5DatabaseMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableHtml5LocalStorageMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableHyperlinkAuditingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableJavaMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableJavascriptMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableJavascriptMarkupMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableMediaCapabilitiesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableMediaStreamMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableMediasourceMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableMockCaptureDevicesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableOfflineWebApplicationCacheMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnablePageCacheMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnablePluginsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnablePrivateBrowsingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableResizableTextAreasMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableSiteSpecificQuirksMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableSmoothScrollingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableSpatialNavigationMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableTabsToLinksMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableWebaudioMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableWebglMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetEnableXssAuditorMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetFantasyFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetHardwareAccelerationPolicyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetJavascriptCanAccessClipboardMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetMediaPlaybackAllowsInlineMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetMinimumFontSizeMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetMonospaceFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetPictographFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetPrintBackgroundsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetSansSerifFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetSerifFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetUserAgentMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsGetZoomTextOnlyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetAllowFileAccessFromFileUrlsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetAllowModalDialogsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetAllowUniversalAccessFromFileUrlsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetAutoLoadImagesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetCursiveFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetDefaultCharsetMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetDefaultFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetDefaultFontSizeMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetDefaultMonospaceFontSizeMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetDrawCompositingIndicatorsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableAccelerated2dCanvasMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableBackForwardNavigationGesturesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableCaretBrowsingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableDeveloperExtrasMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableDnsPrefetchingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableEncryptedMediaMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableFrameFlatteningMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableFullscreenMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableHtml5DatabaseMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableHtml5LocalStorageMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableHyperlinkAuditingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableJavaMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableJavascriptMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableJavascriptMarkupMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableMediaCapabilitiesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableMediaStreamMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableMediasourceMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableMockCaptureDevicesMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableOfflineWebApplicationCacheMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnablePageCacheMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnablePluginsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnablePrivateBrowsingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableResizableTextAreasMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableSiteSpecificQuirksMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableSmoothScrollingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableSpatialNavigationMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableTabsToLinksMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableWebaudioMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableWebglMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetEnableXssAuditorMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetFantasyFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetHardwareAccelerationPolicyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetJavascriptCanAccessClipboardMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetMediaPlaybackAllowsInlineMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetMinimumFontSizeMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetMonospaceFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetPictographFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetPrintBackgroundsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetSansSerifFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetSerifFontFamilyMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetUserAgentMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetUserAgentWithApplicationDetailsMethodInfo+#endif+#if ENABLE_OVERLOADING+data SettingsSetZoomTextOnlyMethodInfo+#endif
+ GI/WebKit2/Objects/URIRequest.hs view
@@ -0,0 +1,417 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.URIRequest+    ( ++-- * Exported types+    URIRequest(..)                          ,+    IsURIRequest                            ,+    toURIRequest                            ,+    noURIRequest                            ,+++ -- * Methods+-- ** getHttpHeaders #method:getHttpHeaders#++#if ENABLE_OVERLOADING+    URIRequestGetHttpHeadersMethodInfo      ,+#endif+    uRIRequestGetHttpHeaders                ,+++-- ** getHttpMethod #method:getHttpMethod#++#if ENABLE_OVERLOADING+    URIRequestGetHttpMethodMethodInfo       ,+#endif+    uRIRequestGetHttpMethod                 ,+++-- ** getUri #method:getUri#++#if ENABLE_OVERLOADING+    URIRequestGetUriMethodInfo              ,+#endif+    uRIRequestGetUri                        ,+++-- ** new #method:new#++    uRIRequestNew                           ,+++-- ** setUri #method:setUri#++#if ENABLE_OVERLOADING+    URIRequestSetUriMethodInfo              ,+#endif+    uRIRequestSetUri                        ,+++++ -- * Properties+-- ** uri #attr:uri#+{- | The URI to which the request will be made.+-}+#if ENABLE_OVERLOADING+    URIRequestUriPropertyInfo               ,+#endif+    constructURIRequestUri                  ,+    getURIRequestUri                        ,+    setURIRequestUri                        ,+#if ENABLE_OVERLOADING+    uRIRequestUri                           ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders++-- | Memory-managed wrapper type.+newtype URIRequest = URIRequest (ManagedPtr URIRequest)+foreign import ccall "webkit_uri_request_get_type"+    c_webkit_uri_request_get_type :: IO GType++instance GObject URIRequest where+    gobjectType = c_webkit_uri_request_get_type+    ++-- | Type class for types which can be safely cast to `URIRequest`, for instance with `toURIRequest`.+class (GObject o, O.IsDescendantOf URIRequest o) => IsURIRequest o+instance (GObject o, O.IsDescendantOf URIRequest o) => IsURIRequest o++instance O.HasParentTypes URIRequest+type instance O.ParentTypes URIRequest = '[GObject.Object.Object]++-- | Cast to `URIRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toURIRequest :: (MonadIO m, IsURIRequest o) => o -> m URIRequest+toURIRequest = liftIO . unsafeCastTo URIRequest++-- | A convenience alias for `Nothing` :: `Maybe` `URIRequest`.+noURIRequest :: Maybe URIRequest+noURIRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveURIRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveURIRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveURIRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveURIRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveURIRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveURIRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveURIRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveURIRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveURIRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveURIRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveURIRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveURIRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveURIRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveURIRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveURIRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveURIRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveURIRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveURIRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveURIRequestMethod "getHttpHeaders" o = URIRequestGetHttpHeadersMethodInfo+    ResolveURIRequestMethod "getHttpMethod" o = URIRequestGetHttpMethodMethodInfo+    ResolveURIRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveURIRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveURIRequestMethod "getUri" o = URIRequestGetUriMethodInfo+    ResolveURIRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveURIRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveURIRequestMethod "setUri" o = URIRequestSetUriMethodInfo+    ResolveURIRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveURIRequestMethod t URIRequest, O.MethodInfo info URIRequest p) => OL.IsLabel t (URIRequest -> 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++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' uRIRequest #uri+@+-}+getURIRequestUri :: (MonadIO m, IsURIRequest o) => o -> m T.Text+getURIRequestUri obj = liftIO $ checkUnexpectedNothing "getURIRequestUri" $ B.Properties.getObjectPropertyString obj "uri"++{- |+Set the value of the “@uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' uRIRequest [ #uri 'Data.GI.Base.Attributes.:=' value ]+@+-}+setURIRequestUri :: (MonadIO m, IsURIRequest o) => o -> T.Text -> m ()+setURIRequestUri obj val = liftIO $ B.Properties.setObjectPropertyString obj "uri" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructURIRequestUri :: (IsURIRequest o) => T.Text -> IO (GValueConstruct o)+constructURIRequestUri val = B.Properties.constructObjectPropertyString "uri" (Just val)++#if ENABLE_OVERLOADING+data URIRequestUriPropertyInfo+instance AttrInfo URIRequestUriPropertyInfo where+    type AttrAllowedOps URIRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint URIRequestUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint URIRequestUriPropertyInfo = IsURIRequest+    type AttrGetType URIRequestUriPropertyInfo = T.Text+    type AttrLabel URIRequestUriPropertyInfo = "uri"+    type AttrOrigin URIRequestUriPropertyInfo = URIRequest+    attrGet _ = getURIRequestUri+    attrSet _ = setURIRequestUri+    attrConstruct _ = constructURIRequestUri+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList URIRequest+type instance O.AttributeList URIRequest = URIRequestAttributeList+type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+uRIRequestUri :: AttrLabelProxy "uri"+uRIRequestUri = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList URIRequest = URIRequestSignalList+type URIRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method URIRequest::new+-- method type : Constructor+-- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIRequest"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_new" webkit_uri_request_new :: +    CString ->                              -- uri : TBasicType TUTF8+    IO (Ptr URIRequest)++{- |+Creates a new 'GI.WebKit2.Objects.URIRequest.URIRequest' for the given URI.+-}+uRIRequestNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@uri@/: an URI -}+    -> m URIRequest+    {- ^ __Returns:__ a new 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+uRIRequestNew uri = liftIO $ do+    uri' <- textToCString uri+    result <- webkit_uri_request_new uri'+    checkUnexpectedReturnNULL "uRIRequestNew" result+    result' <- (wrapObject URIRequest) result+    freeMem uri'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method URIRequest::get_http_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URIRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessageHeaders"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_get_http_headers" webkit_uri_request_get_http_headers :: +    Ptr URIRequest ->                       -- request : TInterface (Name {namespace = "WebKit2", name = "URIRequest"})+    IO (Ptr Soup.MessageHeaders.MessageHeaders)++{- |+Get the HTTP headers of a 'GI.WebKit2.Objects.URIRequest.URIRequest' as a 'GI.Soup.Structs.MessageHeaders.MessageHeaders'.+-}+uRIRequestGetHttpHeaders ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+    -> m (Maybe Soup.MessageHeaders.MessageHeaders)+    {- ^ __Returns:__ a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' with the HTTP headers of /@request@/+   or 'Nothing' if /@request@/ is not an HTTP request. -}+uRIRequestGetHttpHeaders request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_uri_request_get_http_headers request'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed Soup.MessageHeaders.MessageHeaders) result'+        return result''+    touchManagedPtr request+    return maybeResult++#if ENABLE_OVERLOADING+data URIRequestGetHttpHeadersMethodInfo+instance (signature ~ (m (Maybe Soup.MessageHeaders.MessageHeaders)), MonadIO m, IsURIRequest a) => O.MethodInfo URIRequestGetHttpHeadersMethodInfo a signature where+    overloadedMethod _ = uRIRequestGetHttpHeaders++#endif++-- method URIRequest::get_http_method+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URIRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_get_http_method" webkit_uri_request_get_http_method :: +    Ptr URIRequest ->                       -- request : TInterface (Name {namespace = "WebKit2", name = "URIRequest"})+    IO CString++{- |+Get the HTTP method of the 'GI.WebKit2.Objects.URIRequest.URIRequest'.++/Since: 2.12/+-}+uRIRequestGetHttpMethod ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+    -> m T.Text+    {- ^ __Returns:__ the HTTP method of the 'GI.WebKit2.Objects.URIRequest.URIRequest' or 'Nothing' if /@request@/ is not+   an HTTP request. -}+uRIRequestGetHttpMethod request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_uri_request_get_http_method request'+    checkUnexpectedReturnNULL "uRIRequestGetHttpMethod" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data URIRequestGetHttpMethodMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsURIRequest a) => O.MethodInfo URIRequestGetHttpMethodMethodInfo a signature where+    overloadedMethod _ = uRIRequestGetHttpMethod++#endif++-- method URIRequest::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URIRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_get_uri" webkit_uri_request_get_uri :: +    Ptr URIRequest ->                       -- request : TInterface (Name {namespace = "WebKit2", name = "URIRequest"})+    IO CString++{- |+/No description available in the introspection data./+-}+uRIRequestGetUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+    -> m T.Text+    {- ^ __Returns:__ the uri of the 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+uRIRequestGetUri request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_uri_request_get_uri request'+    checkUnexpectedReturnNULL "uRIRequestGetUri" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data URIRequestGetUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsURIRequest a) => O.MethodInfo URIRequestGetUriMethodInfo a signature where+    overloadedMethod _ = uRIRequestGetUri++#endif++-- method URIRequest::set_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URIRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_set_uri" webkit_uri_request_set_uri :: +    Ptr URIRequest ->                       -- request : TInterface (Name {namespace = "WebKit2", name = "URIRequest"})+    CString ->                              -- uri : TBasicType TUTF8+    IO ()++{- |+Set the URI of /@request@/+-}+uRIRequestSetUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+    -> T.Text+    {- ^ /@uri@/: an URI -}+    -> m ()+uRIRequestSetUri request uri = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    uri' <- textToCString uri+    webkit_uri_request_set_uri request' uri'+    touchManagedPtr request+    freeMem uri'+    return ()++#if ENABLE_OVERLOADING+data URIRequestSetUriMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsURIRequest a) => O.MethodInfo URIRequestSetUriMethodInfo a signature where+    overloadedMethod _ = uRIRequestSetUri++#endif++
+ GI/WebKit2/Objects/URIRequest.hs-boot view
@@ -0,0 +1,44 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.URIRequest 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++newtype URIRequest = URIRequest (ManagedPtr URIRequest)+instance GObject URIRequest where+class (GObject o, O.IsDescendantOf URIRequest o) => IsURIRequest o+instance (GObject o, O.IsDescendantOf URIRequest o) => IsURIRequest o+instance O.HasParentTypes URIRequest+#if ENABLE_OVERLOADING+data URIRequestUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data URIRequestGetHttpHeadersMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIRequestGetHttpMethodMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIRequestGetUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIRequestSetUriMethodInfo+#endif
+ GI/WebKit2/Objects/URIResponse.hs view
@@ -0,0 +1,684 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.URIResponse+    ( ++-- * Exported types+    URIResponse(..)                         ,+    IsURIResponse                           ,+    toURIResponse                           ,+    noURIResponse                           ,+++ -- * Methods+-- ** getContentLength #method:getContentLength#++#if ENABLE_OVERLOADING+    URIResponseGetContentLengthMethodInfo   ,+#endif+    uRIResponseGetContentLength             ,+++-- ** getHttpHeaders #method:getHttpHeaders#++#if ENABLE_OVERLOADING+    URIResponseGetHttpHeadersMethodInfo     ,+#endif+    uRIResponseGetHttpHeaders               ,+++-- ** getMimeType #method:getMimeType#++#if ENABLE_OVERLOADING+    URIResponseGetMimeTypeMethodInfo        ,+#endif+    uRIResponseGetMimeType                  ,+++-- ** getStatusCode #method:getStatusCode#++#if ENABLE_OVERLOADING+    URIResponseGetStatusCodeMethodInfo      ,+#endif+    uRIResponseGetStatusCode                ,+++-- ** getSuggestedFilename #method:getSuggestedFilename#++#if ENABLE_OVERLOADING+    URIResponseGetSuggestedFilenameMethodInfo,+#endif+    uRIResponseGetSuggestedFilename         ,+++-- ** getUri #method:getUri#++#if ENABLE_OVERLOADING+    URIResponseGetUriMethodInfo             ,+#endif+    uRIResponseGetUri                       ,+++++ -- * Properties+-- ** contentLength #attr:contentLength#+{- | The expected content length of the response.+-}+#if ENABLE_OVERLOADING+    URIResponseContentLengthPropertyInfo    ,+#endif+    getURIResponseContentLength             ,+#if ENABLE_OVERLOADING+    uRIResponseContentLength                ,+#endif+++-- ** httpHeaders #attr:httpHeaders#+{- | The HTTP headers of the response, or 'Nothing' if the response is not an HTTP response.++/Since: 2.6/+-}+#if ENABLE_OVERLOADING+    URIResponseHttpHeadersPropertyInfo      ,+#endif+    getURIResponseHttpHeaders               ,+#if ENABLE_OVERLOADING+    uRIResponseHttpHeaders                  ,+#endif+++-- ** mimeType #attr:mimeType#+{- | The MIME type of the response.+-}+#if ENABLE_OVERLOADING+    URIResponseMimeTypePropertyInfo         ,+#endif+    getURIResponseMimeType                  ,+#if ENABLE_OVERLOADING+    uRIResponseMimeType                     ,+#endif+++-- ** statusCode #attr:statusCode#+{- | The status code of the response as returned by the server.+-}+#if ENABLE_OVERLOADING+    URIResponseStatusCodePropertyInfo       ,+#endif+    getURIResponseStatusCode                ,+#if ENABLE_OVERLOADING+    uRIResponseStatusCode                   ,+#endif+++-- ** suggestedFilename #attr:suggestedFilename#+{- | The suggested filename for the URI response.+-}+#if ENABLE_OVERLOADING+    URIResponseSuggestedFilenamePropertyInfo,+#endif+    getURIResponseSuggestedFilename         ,+#if ENABLE_OVERLOADING+    uRIResponseSuggestedFilename            ,+#endif+++-- ** uri #attr:uri#+{- | The URI for which the response was made.+-}+#if ENABLE_OVERLOADING+    URIResponseUriPropertyInfo              ,+#endif+    getURIResponseUri                       ,+#if ENABLE_OVERLOADING+    uRIResponseUri                          ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders++-- | Memory-managed wrapper type.+newtype URIResponse = URIResponse (ManagedPtr URIResponse)+foreign import ccall "webkit_uri_response_get_type"+    c_webkit_uri_response_get_type :: IO GType++instance GObject URIResponse where+    gobjectType = c_webkit_uri_response_get_type+    ++-- | Type class for types which can be safely cast to `URIResponse`, for instance with `toURIResponse`.+class (GObject o, O.IsDescendantOf URIResponse o) => IsURIResponse o+instance (GObject o, O.IsDescendantOf URIResponse o) => IsURIResponse o++instance O.HasParentTypes URIResponse+type instance O.ParentTypes URIResponse = '[GObject.Object.Object]++-- | Cast to `URIResponse`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toURIResponse :: (MonadIO m, IsURIResponse o) => o -> m URIResponse+toURIResponse = liftIO . unsafeCastTo URIResponse++-- | A convenience alias for `Nothing` :: `Maybe` `URIResponse`.+noURIResponse :: Maybe URIResponse+noURIResponse = Nothing++#if ENABLE_OVERLOADING+type family ResolveURIResponseMethod (t :: Symbol) (o :: *) :: * where+    ResolveURIResponseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveURIResponseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveURIResponseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveURIResponseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveURIResponseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveURIResponseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveURIResponseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveURIResponseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveURIResponseMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveURIResponseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveURIResponseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveURIResponseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveURIResponseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveURIResponseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveURIResponseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveURIResponseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveURIResponseMethod "getContentLength" o = URIResponseGetContentLengthMethodInfo+    ResolveURIResponseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveURIResponseMethod "getHttpHeaders" o = URIResponseGetHttpHeadersMethodInfo+    ResolveURIResponseMethod "getMimeType" o = URIResponseGetMimeTypeMethodInfo+    ResolveURIResponseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveURIResponseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveURIResponseMethod "getStatusCode" o = URIResponseGetStatusCodeMethodInfo+    ResolveURIResponseMethod "getSuggestedFilename" o = URIResponseGetSuggestedFilenameMethodInfo+    ResolveURIResponseMethod "getUri" o = URIResponseGetUriMethodInfo+    ResolveURIResponseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveURIResponseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveURIResponseMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveURIResponseMethod t URIResponse, O.MethodInfo info URIResponse p) => OL.IsLabel t (URIResponse -> 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++-- VVV Prop "content-length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@content-length@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' uRIResponse #contentLength+@+-}+getURIResponseContentLength :: (MonadIO m, IsURIResponse o) => o -> m Word64+getURIResponseContentLength obj = liftIO $ B.Properties.getObjectPropertyUInt64 obj "content-length"++#if ENABLE_OVERLOADING+data URIResponseContentLengthPropertyInfo+instance AttrInfo URIResponseContentLengthPropertyInfo where+    type AttrAllowedOps URIResponseContentLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseContentLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseContentLengthPropertyInfo = IsURIResponse+    type AttrGetType URIResponseContentLengthPropertyInfo = Word64+    type AttrLabel URIResponseContentLengthPropertyInfo = "content-length"+    type AttrOrigin URIResponseContentLengthPropertyInfo = URIResponse+    attrGet _ = getURIResponseContentLength+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "http-headers"+   -- Type: TInterface (Name {namespace = "Soup", name = "MessageHeaders"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@http-headers@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' uRIResponse #httpHeaders+@+-}+getURIResponseHttpHeaders :: (MonadIO m, IsURIResponse o) => o -> m (Maybe Soup.MessageHeaders.MessageHeaders)+getURIResponseHttpHeaders obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders.MessageHeaders++#if ENABLE_OVERLOADING+data URIResponseHttpHeadersPropertyInfo+instance AttrInfo URIResponseHttpHeadersPropertyInfo where+    type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = IsURIResponse+    type AttrGetType URIResponseHttpHeadersPropertyInfo = (Maybe Soup.MessageHeaders.MessageHeaders)+    type AttrLabel URIResponseHttpHeadersPropertyInfo = "http-headers"+    type AttrOrigin URIResponseHttpHeadersPropertyInfo = URIResponse+    attrGet _ = getURIResponseHttpHeaders+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "mime-type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@mime-type@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' uRIResponse #mimeType+@+-}+getURIResponseMimeType :: (MonadIO m, IsURIResponse o) => o -> m T.Text+getURIResponseMimeType obj = liftIO $ checkUnexpectedNothing "getURIResponseMimeType" $ B.Properties.getObjectPropertyString obj "mime-type"++#if ENABLE_OVERLOADING+data URIResponseMimeTypePropertyInfo+instance AttrInfo URIResponseMimeTypePropertyInfo where+    type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = IsURIResponse+    type AttrGetType URIResponseMimeTypePropertyInfo = T.Text+    type AttrLabel URIResponseMimeTypePropertyInfo = "mime-type"+    type AttrOrigin URIResponseMimeTypePropertyInfo = URIResponse+    attrGet _ = getURIResponseMimeType+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "status-code"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@status-code@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' uRIResponse #statusCode+@+-}+getURIResponseStatusCode :: (MonadIO m, IsURIResponse o) => o -> m Word32+getURIResponseStatusCode obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "status-code"++#if ENABLE_OVERLOADING+data URIResponseStatusCodePropertyInfo+instance AttrInfo URIResponseStatusCodePropertyInfo where+    type AttrAllowedOps URIResponseStatusCodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseStatusCodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseStatusCodePropertyInfo = IsURIResponse+    type AttrGetType URIResponseStatusCodePropertyInfo = Word32+    type AttrLabel URIResponseStatusCodePropertyInfo = "status-code"+    type AttrOrigin URIResponseStatusCodePropertyInfo = URIResponse+    attrGet _ = getURIResponseStatusCode+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "suggested-filename"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@suggested-filename@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' uRIResponse #suggestedFilename+@+-}+getURIResponseSuggestedFilename :: (MonadIO m, IsURIResponse o) => o -> m (Maybe T.Text)+getURIResponseSuggestedFilename obj = liftIO $ B.Properties.getObjectPropertyString obj "suggested-filename"++#if ENABLE_OVERLOADING+data URIResponseSuggestedFilenamePropertyInfo+instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where+    type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = IsURIResponse+    type AttrGetType URIResponseSuggestedFilenamePropertyInfo = (Maybe T.Text)+    type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "suggested-filename"+    type AttrOrigin URIResponseSuggestedFilenamePropertyInfo = URIResponse+    attrGet _ = getURIResponseSuggestedFilename+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' uRIResponse #uri+@+-}+getURIResponseUri :: (MonadIO m, IsURIResponse o) => o -> m T.Text+getURIResponseUri obj = liftIO $ checkUnexpectedNothing "getURIResponseUri" $ B.Properties.getObjectPropertyString obj "uri"++#if ENABLE_OVERLOADING+data URIResponseUriPropertyInfo+instance AttrInfo URIResponseUriPropertyInfo where+    type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseUriPropertyInfo = IsURIResponse+    type AttrGetType URIResponseUriPropertyInfo = T.Text+    type AttrLabel URIResponseUriPropertyInfo = "uri"+    type AttrOrigin URIResponseUriPropertyInfo = URIResponse+    attrGet _ = getURIResponseUri+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList URIResponse+type instance O.AttributeList URIResponse = URIResponseAttributeList+type URIResponseAttributeList = ('[ '("contentLength", URIResponseContentLengthPropertyInfo), '("httpHeaders", URIResponseHttpHeadersPropertyInfo), '("mimeType", URIResponseMimeTypePropertyInfo), '("statusCode", URIResponseStatusCodePropertyInfo), '("suggestedFilename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+uRIResponseContentLength :: AttrLabelProxy "contentLength"+uRIResponseContentLength = AttrLabelProxy++uRIResponseHttpHeaders :: AttrLabelProxy "httpHeaders"+uRIResponseHttpHeaders = AttrLabelProxy++uRIResponseMimeType :: AttrLabelProxy "mimeType"+uRIResponseMimeType = AttrLabelProxy++uRIResponseStatusCode :: AttrLabelProxy "statusCode"+uRIResponseStatusCode = AttrLabelProxy++uRIResponseSuggestedFilename :: AttrLabelProxy "suggestedFilename"+uRIResponseSuggestedFilename = AttrLabelProxy++uRIResponseUri :: AttrLabelProxy "uri"+uRIResponseUri = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList URIResponse = URIResponseSignalList+type URIResponseSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method URIResponse::get_content_length+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "response", argType = TInterface (Name {namespace = "WebKit2", name = "URIResponse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIResponse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt64)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_content_length" webkit_uri_response_get_content_length :: +    Ptr URIResponse ->                      -- response : TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+    IO Word64++{- |+Get the expected content length of the 'GI.WebKit2.Objects.URIResponse.URIResponse'. It can+be 0 if the server provided an incorrect or missing Content-Length.+-}+uRIResponseGetContentLength ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIResponse a) =>+    a+    {- ^ /@response@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+    -> m Word64+    {- ^ __Returns:__ the expected content length of /@response@/. -}+uRIResponseGetContentLength response = liftIO $ do+    response' <- unsafeManagedPtrCastPtr response+    result <- webkit_uri_response_get_content_length response'+    touchManagedPtr response+    return result++#if ENABLE_OVERLOADING+data URIResponseGetContentLengthMethodInfo+instance (signature ~ (m Word64), MonadIO m, IsURIResponse a) => O.MethodInfo URIResponseGetContentLengthMethodInfo a signature where+    overloadedMethod _ = uRIResponseGetContentLength++#endif++-- method URIResponse::get_http_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "response", argType = TInterface (Name {namespace = "WebKit2", name = "URIResponse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIResponse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessageHeaders"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_http_headers" webkit_uri_response_get_http_headers :: +    Ptr URIResponse ->                      -- response : TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+    IO (Ptr Soup.MessageHeaders.MessageHeaders)++{- |+Get the HTTP headers of a 'GI.WebKit2.Objects.URIResponse.URIResponse' as a 'GI.Soup.Structs.MessageHeaders.MessageHeaders'.++/Since: 2.6/+-}+uRIResponseGetHttpHeaders ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIResponse a) =>+    a+    {- ^ /@response@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+    -> m (Maybe Soup.MessageHeaders.MessageHeaders)+    {- ^ __Returns:__ a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' with the HTTP headers of /@response@/+   or 'Nothing' if /@response@/ is not an HTTP response. -}+uRIResponseGetHttpHeaders response = liftIO $ do+    response' <- unsafeManagedPtrCastPtr response+    result <- webkit_uri_response_get_http_headers response'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed Soup.MessageHeaders.MessageHeaders) result'+        return result''+    touchManagedPtr response+    return maybeResult++#if ENABLE_OVERLOADING+data URIResponseGetHttpHeadersMethodInfo+instance (signature ~ (m (Maybe Soup.MessageHeaders.MessageHeaders)), MonadIO m, IsURIResponse a) => O.MethodInfo URIResponseGetHttpHeadersMethodInfo a signature where+    overloadedMethod _ = uRIResponseGetHttpHeaders++#endif++-- method URIResponse::get_mime_type+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "response", argType = TInterface (Name {namespace = "WebKit2", name = "URIResponse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIResponse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_mime_type" webkit_uri_response_get_mime_type :: +    Ptr URIResponse ->                      -- response : TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+    IO CString++{- |+/No description available in the introspection data./+-}+uRIResponseGetMimeType ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIResponse a) =>+    a+    {- ^ /@response@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+    -> m T.Text+    {- ^ __Returns:__ the MIME type of the 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+uRIResponseGetMimeType response = liftIO $ do+    response' <- unsafeManagedPtrCastPtr response+    result <- webkit_uri_response_get_mime_type response'+    checkUnexpectedReturnNULL "uRIResponseGetMimeType" result+    result' <- cstringToText result+    touchManagedPtr response+    return result'++#if ENABLE_OVERLOADING+data URIResponseGetMimeTypeMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsURIResponse a) => O.MethodInfo URIResponseGetMimeTypeMethodInfo a signature where+    overloadedMethod _ = uRIResponseGetMimeType++#endif++-- method URIResponse::get_status_code+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "response", argType = TInterface (Name {namespace = "WebKit2", name = "URIResponse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIResponse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_status_code" webkit_uri_response_get_status_code :: +    Ptr URIResponse ->                      -- response : TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+    IO Word32++{- |+Get the status code of the 'GI.WebKit2.Objects.URIResponse.URIResponse' as returned by+the server. It will normally be a 'GI.Soup.Enums.KnownStatusCode', for+example 'GI.Soup.Enums.StatusOk', though the server can respond with any+unsigned integer.+-}+uRIResponseGetStatusCode ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIResponse a) =>+    a+    {- ^ /@response@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+    -> m Word32+    {- ^ __Returns:__ the status code of /@response@/ -}+uRIResponseGetStatusCode response = liftIO $ do+    response' <- unsafeManagedPtrCastPtr response+    result <- webkit_uri_response_get_status_code response'+    touchManagedPtr response+    return result++#if ENABLE_OVERLOADING+data URIResponseGetStatusCodeMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsURIResponse a) => O.MethodInfo URIResponseGetStatusCodeMethodInfo a signature where+    overloadedMethod _ = uRIResponseGetStatusCode++#endif++-- method URIResponse::get_suggested_filename+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "response", argType = TInterface (Name {namespace = "WebKit2", name = "URIResponse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIResponse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_suggested_filename" webkit_uri_response_get_suggested_filename :: +    Ptr URIResponse ->                      -- response : TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+    IO CString++{- |+Get the suggested filename for /@response@/, as specified by+the \'Content-Disposition\' HTTP header, or 'Nothing' if it\'s not+present.+-}+uRIResponseGetSuggestedFilename ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIResponse a) =>+    a+    {- ^ /@response@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the suggested filename or 'Nothing' if+   the \'Content-Disposition\' HTTP header is not present. -}+uRIResponseGetSuggestedFilename response = liftIO $ do+    response' <- unsafeManagedPtrCastPtr response+    result <- webkit_uri_response_get_suggested_filename response'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr response+    return maybeResult++#if ENABLE_OVERLOADING+data URIResponseGetSuggestedFilenameMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsURIResponse a) => O.MethodInfo URIResponseGetSuggestedFilenameMethodInfo a signature where+    overloadedMethod _ = uRIResponseGetSuggestedFilename++#endif++-- method URIResponse::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "response", argType = TInterface (Name {namespace = "WebKit2", name = "URIResponse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIResponse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_uri" webkit_uri_response_get_uri :: +    Ptr URIResponse ->                      -- response : TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+    IO CString++{- |+/No description available in the introspection data./+-}+uRIResponseGetUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsURIResponse a) =>+    a+    {- ^ /@response@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+    -> m T.Text+    {- ^ __Returns:__ the uri of the 'GI.WebKit2.Objects.URIResponse.URIResponse' -}+uRIResponseGetUri response = liftIO $ do+    response' <- unsafeManagedPtrCastPtr response+    result <- webkit_uri_response_get_uri response'+    checkUnexpectedReturnNULL "uRIResponseGetUri" result+    result' <- cstringToText result+    touchManagedPtr response+    return result'++#if ENABLE_OVERLOADING+data URIResponseGetUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsURIResponse a) => O.MethodInfo URIResponseGetUriMethodInfo a signature where+    overloadedMethod _ = uRIResponseGetUri++#endif++
+ GI/WebKit2/Objects/URIResponse.hs-boot view
@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.URIResponse 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++newtype URIResponse = URIResponse (ManagedPtr URIResponse)+instance GObject URIResponse where+class (GObject o, O.IsDescendantOf URIResponse o) => IsURIResponse o+instance (GObject o, O.IsDescendantOf URIResponse o) => IsURIResponse o+instance O.HasParentTypes URIResponse+#if ENABLE_OVERLOADING+data URIResponseContentLengthPropertyInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseHttpHeadersPropertyInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseMimeTypePropertyInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseStatusCodePropertyInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseSuggestedFilenamePropertyInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseGetContentLengthMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseGetHttpHeadersMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseGetMimeTypeMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseGetStatusCodeMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseGetSuggestedFilenameMethodInfo+#endif+#if ENABLE_OVERLOADING+data URIResponseGetUriMethodInfo+#endif
+ GI/WebKit2/Objects/URISchemeRequest.hs view
@@ -0,0 +1,414 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.URISchemeRequest+    ( ++-- * Exported types+    URISchemeRequest(..)                    ,+    IsURISchemeRequest                      ,+    toURISchemeRequest                      ,+    noURISchemeRequest                      ,+++ -- * Methods+-- ** finish #method:finish#++#if ENABLE_OVERLOADING+    URISchemeRequestFinishMethodInfo        ,+#endif+    uRISchemeRequestFinish                  ,+++-- ** finishError #method:finishError#++#if ENABLE_OVERLOADING+    URISchemeRequestFinishErrorMethodInfo   ,+#endif+    uRISchemeRequestFinishError             ,+++-- ** getPath #method:getPath#++#if ENABLE_OVERLOADING+    URISchemeRequestGetPathMethodInfo       ,+#endif+    uRISchemeRequestGetPath                 ,+++-- ** getScheme #method:getScheme#++#if ENABLE_OVERLOADING+    URISchemeRequestGetSchemeMethodInfo     ,+#endif+    uRISchemeRequestGetScheme               ,+++-- ** getUri #method:getUri#++#if ENABLE_OVERLOADING+    URISchemeRequestGetUriMethodInfo        ,+#endif+    uRISchemeRequestGetUri                  ,+++-- ** getWebView #method:getWebView#++#if ENABLE_OVERLOADING+    URISchemeRequestGetWebViewMethodInfo    ,+#endif+    uRISchemeRequestGetWebView              ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Objects.InputStream as Gio.InputStream+import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView++-- | Memory-managed wrapper type.+newtype URISchemeRequest = URISchemeRequest (ManagedPtr URISchemeRequest)+foreign import ccall "webkit_uri_scheme_request_get_type"+    c_webkit_uri_scheme_request_get_type :: IO GType++instance GObject URISchemeRequest where+    gobjectType = c_webkit_uri_scheme_request_get_type+    ++-- | Type class for types which can be safely cast to `URISchemeRequest`, for instance with `toURISchemeRequest`.+class (GObject o, O.IsDescendantOf URISchemeRequest o) => IsURISchemeRequest o+instance (GObject o, O.IsDescendantOf URISchemeRequest o) => IsURISchemeRequest o++instance O.HasParentTypes URISchemeRequest+type instance O.ParentTypes URISchemeRequest = '[GObject.Object.Object]++-- | Cast to `URISchemeRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toURISchemeRequest :: (MonadIO m, IsURISchemeRequest o) => o -> m URISchemeRequest+toURISchemeRequest = liftIO . unsafeCastTo URISchemeRequest++-- | A convenience alias for `Nothing` :: `Maybe` `URISchemeRequest`.+noURISchemeRequest :: Maybe URISchemeRequest+noURISchemeRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveURISchemeRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveURISchemeRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveURISchemeRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveURISchemeRequestMethod "finish" o = URISchemeRequestFinishMethodInfo+    ResolveURISchemeRequestMethod "finishError" o = URISchemeRequestFinishErrorMethodInfo+    ResolveURISchemeRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveURISchemeRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveURISchemeRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveURISchemeRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveURISchemeRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveURISchemeRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveURISchemeRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveURISchemeRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveURISchemeRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveURISchemeRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveURISchemeRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveURISchemeRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveURISchemeRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveURISchemeRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveURISchemeRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveURISchemeRequestMethod "getPath" o = URISchemeRequestGetPathMethodInfo+    ResolveURISchemeRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveURISchemeRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveURISchemeRequestMethod "getScheme" o = URISchemeRequestGetSchemeMethodInfo+    ResolveURISchemeRequestMethod "getUri" o = URISchemeRequestGetUriMethodInfo+    ResolveURISchemeRequestMethod "getWebView" o = URISchemeRequestGetWebViewMethodInfo+    ResolveURISchemeRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveURISchemeRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveURISchemeRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, O.MethodInfo info URISchemeRequest p) => OL.IsLabel t (URISchemeRequest -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList URISchemeRequest+type instance O.AttributeList URISchemeRequest = URISchemeRequestAttributeList+type URISchemeRequestAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList URISchemeRequest = URISchemeRequestSignalList+type URISchemeRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method URISchemeRequest::finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream to read the contents of the request", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the stream or -1 if not known", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the content type of the stream or %NULL if not known", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_scheme_request_finish" webkit_uri_scheme_request_finish :: +    Ptr URISchemeRequest ->                 -- request : TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"})+    Ptr Gio.InputStream.InputStream ->      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Int64 ->                                -- stream_length : TBasicType TInt64+    CString ->                              -- mime_type : TBasicType TUTF8+    IO ()++{- |+Finish a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' by setting the contents of the request and its mime type.+-}+uRISchemeRequestFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a, Gio.InputStream.IsInputStream b) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> b+    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream' to read the contents of the request -}+    -> Int64+    {- ^ /@streamLength@/: the length of the stream or -1 if not known -}+    -> Maybe (T.Text)+    {- ^ /@mimeType@/: the content type of the stream or 'Nothing' if not known -}+    -> m ()+uRISchemeRequestFinish request stream streamLength mimeType = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    stream' <- unsafeManagedPtrCastPtr stream+    maybeMimeType <- case mimeType of+        Nothing -> return nullPtr+        Just jMimeType -> do+            jMimeType' <- textToCString jMimeType+            return jMimeType'+    webkit_uri_scheme_request_finish request' stream' streamLength maybeMimeType+    touchManagedPtr request+    touchManagedPtr stream+    freeMem maybeMimeType+    return ()++#if ENABLE_OVERLOADING+data URISchemeRequestFinishMethodInfo+instance (signature ~ (b -> Int64 -> Maybe (T.Text) -> m ()), MonadIO m, IsURISchemeRequest a, Gio.InputStream.IsInputStream b) => O.MethodInfo URISchemeRequestFinishMethodInfo a signature where+    overloadedMethod _ = uRISchemeRequestFinish++#endif++-- method URISchemeRequest::finish_error+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GError that will be passed to the #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_scheme_request_finish_error" webkit_uri_scheme_request_finish_error :: +    Ptr URISchemeRequest ->                 -- request : TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"})+    Ptr GError ->                           -- error : TError+    IO ()++{- |+Finish a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' with a 'GError'.++/Since: 2.2/+-}+uRISchemeRequestFinishError ::+    (B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> GError+    {- ^ /@error@/: a 'GError' that will be passed to the 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m ()+uRISchemeRequestFinishError request error_ = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    error_' <- unsafeManagedPtrGetPtr error_+    webkit_uri_scheme_request_finish_error request' error_'+    touchManagedPtr request+    touchManagedPtr error_+    return ()++#if ENABLE_OVERLOADING+data URISchemeRequestFinishErrorMethodInfo+instance (signature ~ (GError -> m ()), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestFinishErrorMethodInfo a signature where+    overloadedMethod _ = uRISchemeRequestFinishError++#endif++-- method URISchemeRequest::get_path+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_scheme_request_get_path" webkit_uri_scheme_request_get_path :: +    Ptr URISchemeRequest ->                 -- request : TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"})+    IO CString++{- |+Get the URI path of /@request@/+-}+uRISchemeRequestGetPath ::+    (B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> m T.Text+    {- ^ __Returns:__ the URI path of /@request@/ -}+uRISchemeRequestGetPath request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_uri_scheme_request_get_path request'+    checkUnexpectedReturnNULL "uRISchemeRequestGetPath" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data URISchemeRequestGetPathMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetPathMethodInfo a signature where+    overloadedMethod _ = uRISchemeRequestGetPath++#endif++-- method URISchemeRequest::get_scheme+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_scheme_request_get_scheme" webkit_uri_scheme_request_get_scheme :: +    Ptr URISchemeRequest ->                 -- request : TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"})+    IO CString++{- |+Get the URI scheme of /@request@/+-}+uRISchemeRequestGetScheme ::+    (B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> m T.Text+    {- ^ __Returns:__ the URI scheme of /@request@/ -}+uRISchemeRequestGetScheme request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_uri_scheme_request_get_scheme request'+    checkUnexpectedReturnNULL "uRISchemeRequestGetScheme" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data URISchemeRequestGetSchemeMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetSchemeMethodInfo a signature where+    overloadedMethod _ = uRISchemeRequestGetScheme++#endif++-- method URISchemeRequest::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_scheme_request_get_uri" webkit_uri_scheme_request_get_uri :: +    Ptr URISchemeRequest ->                 -- request : TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"})+    IO CString++{- |+Get the URI of /@request@/+-}+uRISchemeRequestGetUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> m T.Text+    {- ^ __Returns:__ the full URI of /@request@/ -}+uRISchemeRequestGetUri request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_uri_scheme_request_get_uri request'+    checkUnexpectedReturnNULL "uRISchemeRequestGetUri" result+    result' <- cstringToText result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data URISchemeRequestGetUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetUriMethodInfo a signature where+    overloadedMethod _ = uRISchemeRequestGetUri++#endif++-- method URISchemeRequest::get_web_view+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURISchemeRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_scheme_request_get_web_view" webkit_uri_scheme_request_get_web_view :: +    Ptr URISchemeRequest ->                 -- request : TInterface (Name {namespace = "WebKit2", name = "URISchemeRequest"})+    IO (Ptr WebKit2.WebView.WebView)++{- |+Get the 'GI.WebKit2.Objects.WebView.WebView' that initiated the request.+-}+uRISchemeRequestGetWebView ::+    (B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>+    a+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' -}+    -> m WebKit2.WebView.WebView+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.WebView.WebView' that initiated /@request@/. -}+uRISchemeRequestGetWebView request = liftIO $ do+    request' <- unsafeManagedPtrCastPtr request+    result <- webkit_uri_scheme_request_get_web_view request'+    checkUnexpectedReturnNULL "uRISchemeRequestGetWebView" result+    result' <- (newObject WebKit2.WebView.WebView) result+    touchManagedPtr request+    return result'++#if ENABLE_OVERLOADING+data URISchemeRequestGetWebViewMethodInfo+instance (signature ~ (m WebKit2.WebView.WebView), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetWebViewMethodInfo a signature where+    overloadedMethod _ = uRISchemeRequestGetWebView++#endif++
+ GI/WebKit2/Objects/URISchemeRequest.hs-boot view
@@ -0,0 +1,47 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.URISchemeRequest 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++newtype URISchemeRequest = URISchemeRequest (ManagedPtr URISchemeRequest)+instance GObject URISchemeRequest where+class (GObject o, O.IsDescendantOf URISchemeRequest o) => IsURISchemeRequest o+instance (GObject o, O.IsDescendantOf URISchemeRequest o) => IsURISchemeRequest o+instance O.HasParentTypes URISchemeRequest+#if ENABLE_OVERLOADING+data URISchemeRequestFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data URISchemeRequestFinishErrorMethodInfo+#endif+#if ENABLE_OVERLOADING+data URISchemeRequestGetPathMethodInfo+#endif+#if ENABLE_OVERLOADING+data URISchemeRequestGetSchemeMethodInfo+#endif+#if ENABLE_OVERLOADING+data URISchemeRequestGetUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data URISchemeRequestGetWebViewMethodInfo+#endif
+ GI/WebKit2/Objects/UserContentFilterStore.hs view
@@ -0,0 +1,942 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.UserContentFilterStore+    ( ++-- * Exported types+    UserContentFilterStore(..)              ,+    IsUserContentFilterStore                ,+    toUserContentFilterStore                ,+    noUserContentFilterStore                ,+++ -- * Methods+-- ** fetchIdentifiers #method:fetchIdentifiers#++#if ENABLE_OVERLOADING+    UserContentFilterStoreFetchIdentifiersMethodInfo,+#endif+    userContentFilterStoreFetchIdentifiers  ,+++-- ** fetchIdentifiersFinish #method:fetchIdentifiersFinish#++#if ENABLE_OVERLOADING+    UserContentFilterStoreFetchIdentifiersFinishMethodInfo,+#endif+    userContentFilterStoreFetchIdentifiersFinish,+++-- ** getPath #method:getPath#++#if ENABLE_OVERLOADING+    UserContentFilterStoreGetPathMethodInfo ,+#endif+    userContentFilterStoreGetPath           ,+++-- ** load #method:load#++#if ENABLE_OVERLOADING+    UserContentFilterStoreLoadMethodInfo    ,+#endif+    userContentFilterStoreLoad              ,+++-- ** loadFinish #method:loadFinish#++#if ENABLE_OVERLOADING+    UserContentFilterStoreLoadFinishMethodInfo,+#endif+    userContentFilterStoreLoadFinish        ,+++-- ** new #method:new#++    userContentFilterStoreNew               ,+++-- ** remove #method:remove#++#if ENABLE_OVERLOADING+    UserContentFilterStoreRemoveMethodInfo  ,+#endif+    userContentFilterStoreRemove            ,+++-- ** removeFinish #method:removeFinish#++#if ENABLE_OVERLOADING+    UserContentFilterStoreRemoveFinishMethodInfo,+#endif+    userContentFilterStoreRemoveFinish      ,+++-- ** save #method:save#++#if ENABLE_OVERLOADING+    UserContentFilterStoreSaveMethodInfo    ,+#endif+    userContentFilterStoreSave              ,+++-- ** saveFinish #method:saveFinish#++#if ENABLE_OVERLOADING+    UserContentFilterStoreSaveFinishMethodInfo,+#endif+    userContentFilterStoreSaveFinish        ,+++-- ** saveFromFile #method:saveFromFile#++#if ENABLE_OVERLOADING+    UserContentFilterStoreSaveFromFileMethodInfo,+#endif+    userContentFilterStoreSaveFromFile      ,+++-- ** saveFromFileFinish #method:saveFromFileFinish#++#if ENABLE_OVERLOADING+    UserContentFilterStoreSaveFromFileFinishMethodInfo,+#endif+    userContentFilterStoreSaveFromFileFinish,+++++ -- * Properties+-- ** path #attr:path#+{- | The directory used for filter storage. This path is used as the base+directory where user content filters are stored on disk.++/Since: 2.24/+-}+#if ENABLE_OVERLOADING+    UserContentFilterStorePathPropertyInfo  ,+#endif+    constructUserContentFilterStorePath     ,+    getUserContentFilterStorePath           ,+#if ENABLE_OVERLOADING+    userContentFilterStorePath              ,+#endif+++++    ) 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.GLib.Structs.Bytes as GLib.Bytes+import qualified GI.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Callbacks as Gio.Callbacks+import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult+import qualified GI.Gio.Interfaces.File as Gio.File+import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable+import {-# SOURCE #-} qualified GI.WebKit2.Structs.UserContentFilter as WebKit2.UserContentFilter++-- | Memory-managed wrapper type.+newtype UserContentFilterStore = UserContentFilterStore (ManagedPtr UserContentFilterStore)+foreign import ccall "webkit_user_content_filter_store_get_type"+    c_webkit_user_content_filter_store_get_type :: IO GType++instance GObject UserContentFilterStore where+    gobjectType = c_webkit_user_content_filter_store_get_type+    ++-- | Type class for types which can be safely cast to `UserContentFilterStore`, for instance with `toUserContentFilterStore`.+class (GObject o, O.IsDescendantOf UserContentFilterStore o) => IsUserContentFilterStore o+instance (GObject o, O.IsDescendantOf UserContentFilterStore o) => IsUserContentFilterStore o++instance O.HasParentTypes UserContentFilterStore+type instance O.ParentTypes UserContentFilterStore = '[GObject.Object.Object]++-- | Cast to `UserContentFilterStore`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toUserContentFilterStore :: (MonadIO m, IsUserContentFilterStore o) => o -> m UserContentFilterStore+toUserContentFilterStore = liftIO . unsafeCastTo UserContentFilterStore++-- | A convenience alias for `Nothing` :: `Maybe` `UserContentFilterStore`.+noUserContentFilterStore :: Maybe UserContentFilterStore+noUserContentFilterStore = Nothing++#if ENABLE_OVERLOADING+type family ResolveUserContentFilterStoreMethod (t :: Symbol) (o :: *) :: * where+    ResolveUserContentFilterStoreMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveUserContentFilterStoreMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveUserContentFilterStoreMethod "fetchIdentifiers" o = UserContentFilterStoreFetchIdentifiersMethodInfo+    ResolveUserContentFilterStoreMethod "fetchIdentifiersFinish" o = UserContentFilterStoreFetchIdentifiersFinishMethodInfo+    ResolveUserContentFilterStoreMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveUserContentFilterStoreMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveUserContentFilterStoreMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveUserContentFilterStoreMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveUserContentFilterStoreMethod "load" o = UserContentFilterStoreLoadMethodInfo+    ResolveUserContentFilterStoreMethod "loadFinish" o = UserContentFilterStoreLoadFinishMethodInfo+    ResolveUserContentFilterStoreMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveUserContentFilterStoreMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveUserContentFilterStoreMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveUserContentFilterStoreMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveUserContentFilterStoreMethod "remove" o = UserContentFilterStoreRemoveMethodInfo+    ResolveUserContentFilterStoreMethod "removeFinish" o = UserContentFilterStoreRemoveFinishMethodInfo+    ResolveUserContentFilterStoreMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveUserContentFilterStoreMethod "save" o = UserContentFilterStoreSaveMethodInfo+    ResolveUserContentFilterStoreMethod "saveFinish" o = UserContentFilterStoreSaveFinishMethodInfo+    ResolveUserContentFilterStoreMethod "saveFromFile" o = UserContentFilterStoreSaveFromFileMethodInfo+    ResolveUserContentFilterStoreMethod "saveFromFileFinish" o = UserContentFilterStoreSaveFromFileFinishMethodInfo+    ResolveUserContentFilterStoreMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveUserContentFilterStoreMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveUserContentFilterStoreMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveUserContentFilterStoreMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveUserContentFilterStoreMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveUserContentFilterStoreMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveUserContentFilterStoreMethod "getPath" o = UserContentFilterStoreGetPathMethodInfo+    ResolveUserContentFilterStoreMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveUserContentFilterStoreMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveUserContentFilterStoreMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveUserContentFilterStoreMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveUserContentFilterStoreMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveUserContentFilterStoreMethod t UserContentFilterStore, O.MethodInfo info UserContentFilterStore p) => OL.IsLabel t (UserContentFilterStore -> 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++-- VVV Prop "path"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@path@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' userContentFilterStore #path+@+-}+getUserContentFilterStorePath :: (MonadIO m, IsUserContentFilterStore o) => o -> m T.Text+getUserContentFilterStorePath obj = liftIO $ checkUnexpectedNothing "getUserContentFilterStorePath" $ B.Properties.getObjectPropertyString obj "path"++{- |+Construct a `GValueConstruct` with valid value for the “@path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructUserContentFilterStorePath :: (IsUserContentFilterStore o) => T.Text -> IO (GValueConstruct o)+constructUserContentFilterStorePath val = B.Properties.constructObjectPropertyString "path" (Just val)++#if ENABLE_OVERLOADING+data UserContentFilterStorePathPropertyInfo+instance AttrInfo UserContentFilterStorePathPropertyInfo where+    type AttrAllowedOps UserContentFilterStorePathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint UserContentFilterStorePathPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint UserContentFilterStorePathPropertyInfo = IsUserContentFilterStore+    type AttrGetType UserContentFilterStorePathPropertyInfo = T.Text+    type AttrLabel UserContentFilterStorePathPropertyInfo = "path"+    type AttrOrigin UserContentFilterStorePathPropertyInfo = UserContentFilterStore+    attrGet _ = getUserContentFilterStorePath+    attrSet _ = undefined+    attrConstruct _ = constructUserContentFilterStorePath+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList UserContentFilterStore+type instance O.AttributeList UserContentFilterStore = UserContentFilterStoreAttributeList+type UserContentFilterStoreAttributeList = ('[ '("path", UserContentFilterStorePathPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+userContentFilterStorePath :: AttrLabelProxy "path"+userContentFilterStorePath = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList UserContentFilterStore = UserContentFilterStoreSignalList+type UserContentFilterStoreSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method UserContentFilterStore::new+-- method type : Constructor+-- Args : [Arg {argCName = "storage_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path where data for filters will be stored on disk", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_new" webkit_user_content_filter_store_new :: +    CString ->                              -- storage_path : TBasicType TUTF8+    IO (Ptr UserContentFilterStore)++{- |+Create a new 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' to manipulate filters stored at /@storagePath@/.+The path must point to a local filesystem, and will be created if needed.++/Since: 2.24/+-}+userContentFilterStoreNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@storagePath@/: path where data for filters will be stored on disk -}+    -> m UserContentFilterStore+    {- ^ __Returns:__ a newly created 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+userContentFilterStoreNew storagePath = liftIO $ do+    storagePath' <- textToCString storagePath+    result <- webkit_user_content_filter_store_new storagePath'+    checkUnexpectedReturnNULL "userContentFilterStoreNew" result+    result' <- (wrapObject UserContentFilterStore) result+    freeMem storagePath'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method UserContentFilterStore::fetch_identifiers+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the removal is completed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_fetch_identifiers" webkit_user_content_filter_store_fetch_identifiers :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously retrieve a list of the identifiers for all the stored filters.++When the operation is finished, /@callback@/ will be invoked, which then can use+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreFetchIdentifiersFinish' to obtain the list of+filter identifiers.++/Since: 2.24/+-}+userContentFilterStoreFetchIdentifiers ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the removal is completed -}+    -> m ()+userContentFilterStoreFetchIdentifiers store cancellable callback = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    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_user_content_filter_store_fetch_identifiers store' maybeCancellable maybeCallback userData+    touchManagedPtr store+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data UserContentFilterStoreFetchIdentifiersMethodInfo+instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UserContentFilterStoreFetchIdentifiersMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreFetchIdentifiers++#endif++-- method UserContentFilterStore::fetch_identifiers_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_fetch_identifiers_finish" webkit_user_content_filter_store_fetch_identifiers_finish :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    IO (Ptr CString)++{- |+Finishes an asynchronous fetch of the list of identifiers for the stored filters previously+started with 'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreFetchIdentifiers'.++/Since: 2.24/+-}+userContentFilterStoreFetchIdentifiersFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m [T.Text]+    {- ^ __Returns:__ a 'Nothing'-terminated list of filter identifiers. -}+userContentFilterStoreFetchIdentifiersFinish store result_ = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    result_' <- unsafeManagedPtrCastPtr result_+    result <- webkit_user_content_filter_store_fetch_identifiers_finish store' result_'+    checkUnexpectedReturnNULL "userContentFilterStoreFetchIdentifiersFinish" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    touchManagedPtr store+    touchManagedPtr result_+    return result'++#if ENABLE_OVERLOADING+data UserContentFilterStoreFetchIdentifiersFinishMethodInfo+instance (signature ~ (b -> m [T.Text]), MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo UserContentFilterStoreFetchIdentifiersFinishMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreFetchIdentifiersFinish++#endif++-- method UserContentFilterStore::get_path+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_get_path" webkit_user_content_filter_store_get_path :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    IO CString++{- |+/No description available in the introspection data./++/Since: 2.24/+-}+userContentFilterStoreGetPath ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> m T.Text+    {- ^ __Returns:__ The storage path for user content filters. -}+userContentFilterStoreGetPath store = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    result <- webkit_user_content_filter_store_get_path store'+    checkUnexpectedReturnNULL "userContentFilterStoreGetPath" result+    result' <- cstringToText result+    touchManagedPtr store+    return result'++#if ENABLE_OVERLOADING+data UserContentFilterStoreGetPathMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsUserContentFilterStore a) => O.MethodInfo UserContentFilterStoreGetPathMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreGetPath++#endif++-- method UserContentFilterStore::load+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a filter identifier", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the load is completed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_load" webkit_user_content_filter_store_load :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    CString ->                              -- identifier : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously load a content filter given its /@identifier@/. The filter must have been+previously stored using 'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreSave'.++When the operation is finished, /@callback@/ will be invoked, which then can use+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreLoadFinish' to obtain the resulting filter.++/Since: 2.24/+-}+userContentFilterStoreLoad ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> T.Text+    {- ^ /@identifier@/: a filter identifier -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the load is completed -}+    -> m ()+userContentFilterStoreLoad store identifier cancellable callback = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    identifier' <- textToCString identifier+    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_user_content_filter_store_load store' identifier' maybeCancellable maybeCallback userData+    touchManagedPtr store+    whenJust cancellable touchManagedPtr+    freeMem identifier'+    return ()++#if ENABLE_OVERLOADING+data UserContentFilterStoreLoadMethodInfo+instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UserContentFilterStoreLoadMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreLoad++#endif++-- method UserContentFilterStore::load_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_load_finish" webkit_user_content_filter_store_load_finish :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr WebKit2.UserContentFilter.UserContentFilter)++{- |+Finishes an asynchronous filter load previously started with+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreLoad'.++/Since: 2.24/+-}+userContentFilterStoreLoadFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m WebKit2.UserContentFilter.UserContentFilter+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter', or 'Nothing' if the load failed /(Can throw 'Data.GI.Base.GError.GError')/ -}+userContentFilterStoreLoadFinish store result_ = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_user_content_filter_store_load_finish store' result_'+        checkUnexpectedReturnNULL "userContentFilterStoreLoadFinish" result+        result' <- (wrapBoxed WebKit2.UserContentFilter.UserContentFilter) result+        touchManagedPtr store+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data UserContentFilterStoreLoadFinishMethodInfo+instance (signature ~ (b -> m WebKit2.UserContentFilter.UserContentFilter), MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo UserContentFilterStoreLoadFinishMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreLoadFinish++#endif++-- method UserContentFilterStore::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a filter identifier", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the removal is completed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_remove" webkit_user_content_filter_store_remove :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    CString ->                              -- identifier : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously remove a content filter given its /@identifier@/.++When the operation is finished, /@callback@/ will be invoked, which then can use+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreRemoveFinish' to check whether the removal was+successful.++/Since: 2.24/+-}+userContentFilterStoreRemove ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> T.Text+    {- ^ /@identifier@/: a filter identifier -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the removal is completed -}+    -> m ()+userContentFilterStoreRemove store identifier cancellable callback = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    identifier' <- textToCString identifier+    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_user_content_filter_store_remove store' identifier' maybeCancellable maybeCallback userData+    touchManagedPtr store+    whenJust cancellable touchManagedPtr+    freeMem identifier'+    return ()++#if ENABLE_OVERLOADING+data UserContentFilterStoreRemoveMethodInfo+instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UserContentFilterStoreRemoveMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreRemove++#endif++-- method UserContentFilterStore::remove_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_remove_finish" webkit_user_content_filter_store_remove_finish :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finishes an asynchronous filter removal previously started with+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreRemove'.++/Since: 2.24/+-}+userContentFilterStoreRemoveFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+userContentFilterStoreRemoveFinish store result_ = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        _ <- propagateGError $ webkit_user_content_filter_store_remove_finish store' result_'+        touchManagedPtr store+        touchManagedPtr result_+        return ()+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data UserContentFilterStoreRemoveFinishMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo UserContentFilterStoreRemoveFinishMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreRemoveFinish++#endif++-- method UserContentFilterStore::save+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string used to identify the saved filter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GBytes containing the rule set in JSON format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when saving is completed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_save" webkit_user_content_filter_store_save :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    CString ->                              -- identifier : TBasicType TUTF8+    Ptr GLib.Bytes.Bytes ->                 -- source : TInterface (Name {namespace = "GLib", name = "Bytes"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously save a content filter from a source rule set in the+<https://webkit.org/blog/3476/content-blockers-first-look/ WebKit content extesions JSON format>.++The /@identifier@/ can be used afterwards to refer to the filter when using+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreRemove' and 'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreLoad'.+When the /@identifier@/ has been used in the past, the new filter source will replace+the one saved beforehand for the same identifier.++When the operation is finished, /@callback@/ will be invoked, which then can use+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreSaveFinish' to obtain the resulting filter.++/Since: 2.24/+-}+userContentFilterStoreSave ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> T.Text+    {- ^ /@identifier@/: a string used to identify the saved filter -}+    -> GLib.Bytes.Bytes+    {- ^ /@source@/: 'GI.GLib.Structs.Bytes.Bytes' containing the rule set in JSON format -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when saving is completed -}+    -> m ()+userContentFilterStoreSave store identifier source cancellable callback = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    identifier' <- textToCString identifier+    source' <- unsafeManagedPtrGetPtr source+    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_user_content_filter_store_save store' identifier' source' maybeCancellable maybeCallback userData+    touchManagedPtr store+    touchManagedPtr source+    whenJust cancellable touchManagedPtr+    freeMem identifier'+    return ()++#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveMethodInfo+instance (signature ~ (T.Text -> GLib.Bytes.Bytes -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsUserContentFilterStore a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UserContentFilterStoreSaveMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreSave++#endif++-- method UserContentFilterStore::save_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_save_finish" webkit_user_content_filter_store_save_finish :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr WebKit2.UserContentFilter.UserContentFilter)++{- |+Finishes an asynchronous filter save previously started with+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreSave'.++/Since: 2.24/+-}+userContentFilterStoreSaveFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m WebKit2.UserContentFilter.UserContentFilter+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter', or 'Nothing' if saving failed /(Can throw 'Data.GI.Base.GError.GError')/ -}+userContentFilterStoreSaveFinish store result_ = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_user_content_filter_store_save_finish store' result_'+        checkUnexpectedReturnNULL "userContentFilterStoreSaveFinish" result+        result' <- (wrapBoxed WebKit2.UserContentFilter.UserContentFilter) result+        touchManagedPtr store+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveFinishMethodInfo+instance (signature ~ (b -> m WebKit2.UserContentFilter.UserContentFilter), MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo UserContentFilterStoreSaveFinishMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreSaveFinish++#endif++-- method UserContentFilterStore::save_from_file+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string used to identify the saved filter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile containing the rule set in JSON format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when saving is completed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_save_from_file" webkit_user_content_filter_store_save_from_file :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    CString ->                              -- identifier : TBasicType TUTF8+    Ptr Gio.File.File ->                    -- file : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously save a content filter from the contents of a file, which must be+native to the platform, as checked by 'GI.Gio.Interfaces.File.fileIsNative'. See+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreSave' for more details.++When the operation is finished, /@callback@/ will be invoked, which then can use+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreSaveFinish' to obtain the resulting filter.++/Since: 2.24/+-}+userContentFilterStoreSaveFromFile ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.File.IsFile b, Gio.Cancellable.IsCancellable c) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> T.Text+    {- ^ /@identifier@/: a string used to identify the saved filter -}+    -> b+    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' containing the rule set in JSON format -}+    -> Maybe (c)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when saving is completed -}+    -> m ()+userContentFilterStoreSaveFromFile store identifier file cancellable callback = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    identifier' <- textToCString identifier+    file' <- unsafeManagedPtrCastPtr file+    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_user_content_filter_store_save_from_file store' identifier' file' maybeCancellable maybeCallback userData+    touchManagedPtr store+    touchManagedPtr file+    whenJust cancellable touchManagedPtr+    freeMem identifier'+    return ()++#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveFromFileMethodInfo+instance (signature ~ (T.Text -> b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsUserContentFilterStore a, Gio.File.IsFile b, Gio.Cancellable.IsCancellable c) => O.MethodInfo UserContentFilterStoreSaveFromFileMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreSaveFromFile++#endif++-- method UserContentFilterStore::save_from_file_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentFilterStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_user_content_filter_store_save_from_file_finish" webkit_user_content_filter_store_save_from_file_finish :: +    Ptr UserContentFilterStore ->           -- store : TInterface (Name {namespace = "WebKit2", name = "UserContentFilterStore"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr WebKit2.UserContentFilter.UserContentFilter)++{- |+Finishes and asynchronous filter save previously started with+'GI.WebKit2.Objects.UserContentFilterStore.userContentFilterStoreSaveFromFile'.++/Since: 2.24/+-}+userContentFilterStoreSaveFromFileFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@store@/: a 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m WebKit2.UserContentFilter.UserContentFilter+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter', or 'Nothing' if saving failed. /(Can throw 'Data.GI.Base.GError.GError')/ -}+userContentFilterStoreSaveFromFileFinish store result_ = liftIO $ do+    store' <- unsafeManagedPtrCastPtr store+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_user_content_filter_store_save_from_file_finish store' result_'+        checkUnexpectedReturnNULL "userContentFilterStoreSaveFromFileFinish" result+        result' <- (wrapBoxed WebKit2.UserContentFilter.UserContentFilter) result+        touchManagedPtr store+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveFromFileFinishMethodInfo+instance (signature ~ (b -> m WebKit2.UserContentFilter.UserContentFilter), MonadIO m, IsUserContentFilterStore a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo UserContentFilterStoreSaveFromFileFinishMethodInfo a signature where+    overloadedMethod _ = userContentFilterStoreSaveFromFileFinish++#endif++
+ GI/WebKit2/Objects/UserContentFilterStore.hs-boot view
@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.UserContentFilterStore 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++newtype UserContentFilterStore = UserContentFilterStore (ManagedPtr UserContentFilterStore)+instance GObject UserContentFilterStore where+class (GObject o, O.IsDescendantOf UserContentFilterStore o) => IsUserContentFilterStore o+instance (GObject o, O.IsDescendantOf UserContentFilterStore o) => IsUserContentFilterStore o+instance O.HasParentTypes UserContentFilterStore+#if ENABLE_OVERLOADING+data UserContentFilterStorePathPropertyInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreFetchIdentifiersMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreFetchIdentifiersFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreGetPathMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreLoadMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreLoadFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreRemoveMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreRemoveFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveFromFileMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterStoreSaveFromFileFinishMethodInfo+#endif
+ GI/WebKit2/Objects/UserContentManager.hs view
@@ -0,0 +1,844 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.UserContentManager+    ( ++-- * Exported types+    UserContentManager(..)                  ,+    IsUserContentManager                    ,+    toUserContentManager                    ,+    noUserContentManager                    ,+++ -- * Methods+-- ** addFilter #method:addFilter#++#if ENABLE_OVERLOADING+    UserContentManagerAddFilterMethodInfo   ,+#endif+    userContentManagerAddFilter             ,+++-- ** addScript #method:addScript#++#if ENABLE_OVERLOADING+    UserContentManagerAddScriptMethodInfo   ,+#endif+    userContentManagerAddScript             ,+++-- ** addStyleSheet #method:addStyleSheet#++#if ENABLE_OVERLOADING+    UserContentManagerAddStyleSheetMethodInfo,+#endif+    userContentManagerAddStyleSheet         ,+++-- ** new #method:new#++    userContentManagerNew                   ,+++-- ** registerScriptMessageHandler #method:registerScriptMessageHandler#++#if ENABLE_OVERLOADING+    UserContentManagerRegisterScriptMessageHandlerMethodInfo,+#endif+    userContentManagerRegisterScriptMessageHandler,+++-- ** registerScriptMessageHandlerInWorld #method:registerScriptMessageHandlerInWorld#++#if ENABLE_OVERLOADING+    UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo,+#endif+    userContentManagerRegisterScriptMessageHandlerInWorld,+++-- ** removeAllFilters #method:removeAllFilters#++#if ENABLE_OVERLOADING+    UserContentManagerRemoveAllFiltersMethodInfo,+#endif+    userContentManagerRemoveAllFilters      ,+++-- ** removeAllScripts #method:removeAllScripts#++#if ENABLE_OVERLOADING+    UserContentManagerRemoveAllScriptsMethodInfo,+#endif+    userContentManagerRemoveAllScripts      ,+++-- ** removeAllStyleSheets #method:removeAllStyleSheets#++#if ENABLE_OVERLOADING+    UserContentManagerRemoveAllStyleSheetsMethodInfo,+#endif+    userContentManagerRemoveAllStyleSheets  ,+++-- ** removeFilter #method:removeFilter#++#if ENABLE_OVERLOADING+    UserContentManagerRemoveFilterMethodInfo,+#endif+    userContentManagerRemoveFilter          ,+++-- ** unregisterScriptMessageHandler #method:unregisterScriptMessageHandler#++#if ENABLE_OVERLOADING+    UserContentManagerUnregisterScriptMessageHandlerMethodInfo,+#endif+    userContentManagerUnregisterScriptMessageHandler,+++-- ** unregisterScriptMessageHandlerInWorld #method:unregisterScriptMessageHandlerInWorld#++#if ENABLE_OVERLOADING+    UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo,+#endif+    userContentManagerUnregisterScriptMessageHandlerInWorld,+++++ -- * Signals+-- ** scriptMessageReceived #signal:scriptMessageReceived#++    C_UserContentManagerScriptMessageReceivedCallback,+    UserContentManagerScriptMessageReceivedCallback,+#if ENABLE_OVERLOADING+    UserContentManagerScriptMessageReceivedSignalInfo,+#endif+    afterUserContentManagerScriptMessageReceived,+    genClosure_UserContentManagerScriptMessageReceived,+    mk_UserContentManagerScriptMessageReceivedCallback,+    noUserContentManagerScriptMessageReceivedCallback,+    onUserContentManagerScriptMessageReceived,+    wrap_UserContentManagerScriptMessageReceivedCallback,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Structs.JavascriptResult as WebKit2.JavascriptResult+import {-# SOURCE #-} qualified GI.WebKit2.Structs.UserContentFilter as WebKit2.UserContentFilter+import {-# SOURCE #-} qualified GI.WebKit2.Structs.UserScript as WebKit2.UserScript+import {-# SOURCE #-} qualified GI.WebKit2.Structs.UserStyleSheet as WebKit2.UserStyleSheet++-- | Memory-managed wrapper type.+newtype UserContentManager = UserContentManager (ManagedPtr UserContentManager)+foreign import ccall "webkit_user_content_manager_get_type"+    c_webkit_user_content_manager_get_type :: IO GType++instance GObject UserContentManager where+    gobjectType = c_webkit_user_content_manager_get_type+    ++-- | Type class for types which can be safely cast to `UserContentManager`, for instance with `toUserContentManager`.+class (GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o+instance (GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o++instance O.HasParentTypes UserContentManager+type instance O.ParentTypes UserContentManager = '[GObject.Object.Object]++-- | Cast to `UserContentManager`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toUserContentManager :: (MonadIO m, IsUserContentManager o) => o -> m UserContentManager+toUserContentManager = liftIO . unsafeCastTo UserContentManager++-- | A convenience alias for `Nothing` :: `Maybe` `UserContentManager`.+noUserContentManager :: Maybe UserContentManager+noUserContentManager = Nothing++#if ENABLE_OVERLOADING+type family ResolveUserContentManagerMethod (t :: Symbol) (o :: *) :: * where+    ResolveUserContentManagerMethod "addFilter" o = UserContentManagerAddFilterMethodInfo+    ResolveUserContentManagerMethod "addScript" o = UserContentManagerAddScriptMethodInfo+    ResolveUserContentManagerMethod "addStyleSheet" o = UserContentManagerAddStyleSheetMethodInfo+    ResolveUserContentManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveUserContentManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveUserContentManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveUserContentManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveUserContentManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveUserContentManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveUserContentManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveUserContentManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveUserContentManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveUserContentManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveUserContentManagerMethod "registerScriptMessageHandler" o = UserContentManagerRegisterScriptMessageHandlerMethodInfo+    ResolveUserContentManagerMethod "registerScriptMessageHandlerInWorld" o = UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo+    ResolveUserContentManagerMethod "removeAllFilters" o = UserContentManagerRemoveAllFiltersMethodInfo+    ResolveUserContentManagerMethod "removeAllScripts" o = UserContentManagerRemoveAllScriptsMethodInfo+    ResolveUserContentManagerMethod "removeAllStyleSheets" o = UserContentManagerRemoveAllStyleSheetsMethodInfo+    ResolveUserContentManagerMethod "removeFilter" o = UserContentManagerRemoveFilterMethodInfo+    ResolveUserContentManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveUserContentManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveUserContentManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveUserContentManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveUserContentManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveUserContentManagerMethod "unregisterScriptMessageHandler" o = UserContentManagerUnregisterScriptMessageHandlerMethodInfo+    ResolveUserContentManagerMethod "unregisterScriptMessageHandlerInWorld" o = UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo+    ResolveUserContentManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveUserContentManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveUserContentManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveUserContentManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveUserContentManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveUserContentManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveUserContentManagerMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveUserContentManagerMethod t UserContentManager, O.MethodInfo info UserContentManager p) => OL.IsLabel t (UserContentManager -> 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++-- signal UserContentManager::script-message-received+{- |+This signal is emitted when JavaScript in a web view calls+\<code>window.webkit.messageHandlers.&lt;name&gt;.@/postMessage()/@\<\/code>, after registering+\<code>&lt;name&gt;\<\/code> using+'GI.WebKit2.Objects.UserContentManager.userContentManagerRegisterScriptMessageHandler'++/Since: 2.8/+-}+type UserContentManagerScriptMessageReceivedCallback =+    WebKit2.JavascriptResult.JavascriptResult+    {- ^ /@jsResult@/: the 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' holding the value received from the JavaScript world. -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `UserContentManagerScriptMessageReceivedCallback`@.+noUserContentManagerScriptMessageReceivedCallback :: Maybe UserContentManagerScriptMessageReceivedCallback+noUserContentManagerScriptMessageReceivedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_UserContentManagerScriptMessageReceivedCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.JavascriptResult.JavascriptResult ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_UserContentManagerScriptMessageReceivedCallback`.+foreign import ccall "wrapper"+    mk_UserContentManagerScriptMessageReceivedCallback :: C_UserContentManagerScriptMessageReceivedCallback -> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_UserContentManagerScriptMessageReceived :: MonadIO m => UserContentManagerScriptMessageReceivedCallback -> m (GClosure C_UserContentManagerScriptMessageReceivedCallback)+genClosure_UserContentManagerScriptMessageReceived cb = liftIO $ do+    let cb' = wrap_UserContentManagerScriptMessageReceivedCallback cb+    mk_UserContentManagerScriptMessageReceivedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `UserContentManagerScriptMessageReceivedCallback` into a `C_UserContentManagerScriptMessageReceivedCallback`.+wrap_UserContentManagerScriptMessageReceivedCallback ::+    UserContentManagerScriptMessageReceivedCallback ->+    C_UserContentManagerScriptMessageReceivedCallback+wrap_UserContentManagerScriptMessageReceivedCallback _cb _ jsResult _ = do+    B.ManagedPtr.withTransient WebKit2.JavascriptResult.JavascriptResult jsResult $ \jsResult' -> do+        _cb  jsResult'+++{- |+Connect a signal handler for the “@script-message-received@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' userContentManager #scriptMessageReceived callback+@+-}+onUserContentManagerScriptMessageReceived :: (IsUserContentManager a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId+onUserContentManagerScriptMessageReceived obj cb = liftIO $ do+    let cb' = wrap_UserContentManagerScriptMessageReceivedCallback cb+    cb'' <- mk_UserContentManagerScriptMessageReceivedCallback cb'+    connectSignalFunPtr obj "script-message-received" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@script-message-received@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' userContentManager #scriptMessageReceived callback+@+-}+afterUserContentManagerScriptMessageReceived :: (IsUserContentManager a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId+afterUserContentManagerScriptMessageReceived obj cb = liftIO $ do+    let cb' = wrap_UserContentManagerScriptMessageReceivedCallback cb+    cb'' <- mk_UserContentManagerScriptMessageReceivedCallback cb'+    connectSignalFunPtr obj "script-message-received" cb'' SignalConnectAfter+++#if ENABLE_OVERLOADING+instance O.HasAttributeList UserContentManager+type instance O.AttributeList UserContentManager = UserContentManagerAttributeList+type UserContentManagerAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+data UserContentManagerScriptMessageReceivedSignalInfo+instance SignalInfo UserContentManagerScriptMessageReceivedSignalInfo where+    type HaskellCallbackType UserContentManagerScriptMessageReceivedSignalInfo = UserContentManagerScriptMessageReceivedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_UserContentManagerScriptMessageReceivedCallback cb+        cb'' <- mk_UserContentManagerScriptMessageReceivedCallback cb'+        connectSignalFunPtr obj "script-message-received" cb'' connectMode++type instance O.SignalList UserContentManager = UserContentManagerSignalList+type UserContentManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("scriptMessageReceived", UserContentManagerScriptMessageReceivedSignalInfo)] :: [(Symbol, *)])++#endif++-- method UserContentManager::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_new" webkit_user_content_manager_new :: +    IO (Ptr UserContentManager)++{- |+Creates a new user content manager.++/Since: 2.6/+-}+userContentManagerNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m UserContentManager+    {- ^ __Returns:__ A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+userContentManagerNew  = liftIO $ do+    result <- webkit_user_content_manager_new+    checkUnexpectedReturnNULL "userContentManagerNew" result+    result' <- (wrapObject UserContentManager) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method UserContentManager::add_filter+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_add_filter" webkit_user_content_manager_add_filter :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    Ptr WebKit2.UserContentFilter.UserContentFilter -> -- filter : TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"})+    IO ()++{- |+Adds a 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' to the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'.+The same 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' can be reused with multiple+'GI.WebKit2.Objects.UserContentManager.UserContentManager' instances.++Filters need to be saved and loaded from 'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore'.++/Since: 2.24/+-}+userContentManagerAddFilter ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> WebKit2.UserContentFilter.UserContentFilter+    {- ^ /@filter@/: A 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' -}+    -> m ()+userContentManagerAddFilter manager filter = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    filter' <- unsafeManagedPtrGetPtr filter+    webkit_user_content_manager_add_filter manager' filter'+    touchManagedPtr manager+    touchManagedPtr filter+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerAddFilterMethodInfo+instance (signature ~ (WebKit2.UserContentFilter.UserContentFilter -> m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerAddFilterMethodInfo a signature where+    overloadedMethod _ = userContentManagerAddFilter++#endif++-- method UserContentManager::add_script+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TInterface (Name {namespace = "WebKit2", name = "UserScript"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserScript", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_add_script" webkit_user_content_manager_add_script :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    Ptr WebKit2.UserScript.UserScript ->    -- script : TInterface (Name {namespace = "WebKit2", name = "UserScript"})+    IO ()++{- |+Adds a 'GI.WebKit2.Structs.UserScript.UserScript' to the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'.+The same 'GI.WebKit2.Structs.UserScript.UserScript' can be reused with multiple+'GI.WebKit2.Objects.UserContentManager.UserContentManager' instances.++/Since: 2.6/+-}+userContentManagerAddScript ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> WebKit2.UserScript.UserScript+    {- ^ /@script@/: A 'GI.WebKit2.Structs.UserScript.UserScript' -}+    -> m ()+userContentManagerAddScript manager script = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    script' <- unsafeManagedPtrGetPtr script+    webkit_user_content_manager_add_script manager' script'+    touchManagedPtr manager+    touchManagedPtr script+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerAddScriptMethodInfo+instance (signature ~ (WebKit2.UserScript.UserScript -> m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerAddScriptMethodInfo a signature where+    overloadedMethod _ = userContentManagerAddScript++#endif++-- method UserContentManager::add_style_sheet+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stylesheet", argType = TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserStyleSheet", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_add_style_sheet" webkit_user_content_manager_add_style_sheet :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    Ptr WebKit2.UserStyleSheet.UserStyleSheet -> -- stylesheet : TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"})+    IO ()++{- |+Adds a 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' to the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'.+The same 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' can be reused with multiple+'GI.WebKit2.Objects.UserContentManager.UserContentManager' instances.++/Since: 2.6/+-}+userContentManagerAddStyleSheet ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> WebKit2.UserStyleSheet.UserStyleSheet+    {- ^ /@stylesheet@/: A 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' -}+    -> m ()+userContentManagerAddStyleSheet manager stylesheet = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    stylesheet' <- unsafeManagedPtrGetPtr stylesheet+    webkit_user_content_manager_add_style_sheet manager' stylesheet'+    touchManagedPtr manager+    touchManagedPtr stylesheet+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerAddStyleSheetMethodInfo+instance (signature ~ (WebKit2.UserStyleSheet.UserStyleSheet -> m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerAddStyleSheetMethodInfo a signature where+    overloadedMethod _ = userContentManagerAddStyleSheet++#endif++-- method UserContentManager::register_script_message_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of the script message channel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_register_script_message_handler" webkit_user_content_manager_register_script_message_handler :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    CString ->                              -- name : TBasicType TUTF8+    IO CInt++{- |+Registers a new user script message handler. After it is registered,+scripts can use @window.webkit.messageHandlers.&lt;name&gt;.postMessage(value)@+to send messages. Those messages are received by connecting handlers+to the 'GI.WebKit2.Objects.UserContentManager.UserContentManager'::@/script-message-received/@ signal. The+handler name is used as the detail of the signal. To avoid race+conditions between registering the handler name, and starting to+receive the signals, it is recommended to connect to the signal+*before* registering the handler name:++\<informalexample>\<programlisting>+WebKitWebView *view = webkit_web_view_new ();+WebKitUserContentManager *manager = webkit_web_view_get_user_content_manager ();+g_signal_connect (manager, \"script-message-received::foobar\",+                  G_CALLBACK (handle_script_message), NULL);+webkit_user_content_manager_register_script_message_handler (manager, \"foobar\");+\<\/programlisting>\<\/informalexample>++Registering a script message handler will fail if the requested+name has been already registered before.++/Since: 2.8/+-}+userContentManagerRegisterScriptMessageHandler ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> T.Text+    {- ^ /@name@/: Name of the script message channel -}+    -> m Bool+    {- ^ __Returns:__ 'True' if message handler was registered successfully, or 'False' otherwise. -}+userContentManagerRegisterScriptMessageHandler manager name = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    name' <- textToCString name+    result <- webkit_user_content_manager_register_script_message_handler manager' name'+    let result' = (/= 0) result+    touchManagedPtr manager+    freeMem name'+    return result'++#if ENABLE_OVERLOADING+data UserContentManagerRegisterScriptMessageHandlerMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRegisterScriptMessageHandlerMethodInfo a signature where+    overloadedMethod _ = userContentManagerRegisterScriptMessageHandler++#endif++-- method UserContentManager::register_script_message_handler_in_world+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of the script message channel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "world_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a #WebKitScriptWorld", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_register_script_message_handler_in_world" webkit_user_content_manager_register_script_message_handler_in_world :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- world_name : TBasicType TUTF8+    IO CInt++{- |+Registers a new user script message handler in script world with name /@worldName@/.+See 'GI.WebKit2.Objects.UserContentManager.userContentManagerRegisterScriptMessageHandler' for full description.++Registering a script message handler will fail if the requested+name has been already registered before.++/Since: 2.22/+-}+userContentManagerRegisterScriptMessageHandlerInWorld ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> T.Text+    {- ^ /@name@/: Name of the script message channel -}+    -> T.Text+    {- ^ /@worldName@/: the name of a @/WebKitScriptWorld/@ -}+    -> m Bool+    {- ^ __Returns:__ 'True' if message handler was registered successfully, or 'False' otherwise. -}+userContentManagerRegisterScriptMessageHandlerInWorld manager name worldName = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    name' <- textToCString name+    worldName' <- textToCString worldName+    result <- webkit_user_content_manager_register_script_message_handler_in_world manager' name' worldName'+    let result' = (/= 0) result+    touchManagedPtr manager+    freeMem name'+    freeMem worldName'+    return result'++#if ENABLE_OVERLOADING+data UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo+instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo a signature where+    overloadedMethod _ = userContentManagerRegisterScriptMessageHandlerInWorld++#endif++-- method UserContentManager::remove_all_filters+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_remove_all_filters" webkit_user_content_manager_remove_all_filters :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    IO ()++{- |+Removes all content filters from the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'.++/Since: 2.24/+-}+userContentManagerRemoveAllFilters ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> m ()+userContentManagerRemoveAllFilters manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    webkit_user_content_manager_remove_all_filters manager'+    touchManagedPtr manager+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerRemoveAllFiltersMethodInfo+instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRemoveAllFiltersMethodInfo a signature where+    overloadedMethod _ = userContentManagerRemoveAllFilters++#endif++-- method UserContentManager::remove_all_scripts+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_remove_all_scripts" webkit_user_content_manager_remove_all_scripts :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    IO ()++{- |+Removes all user scripts from the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'++/Since: 2.6/+-}+userContentManagerRemoveAllScripts ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> m ()+userContentManagerRemoveAllScripts manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    webkit_user_content_manager_remove_all_scripts manager'+    touchManagedPtr manager+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerRemoveAllScriptsMethodInfo+instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRemoveAllScriptsMethodInfo a signature where+    overloadedMethod _ = userContentManagerRemoveAllScripts++#endif++-- method UserContentManager::remove_all_style_sheets+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_remove_all_style_sheets" webkit_user_content_manager_remove_all_style_sheets :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    IO ()++{- |+Removes all user style sheets from the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'.++/Since: 2.6/+-}+userContentManagerRemoveAllStyleSheets ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> m ()+userContentManagerRemoveAllStyleSheets manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    webkit_user_content_manager_remove_all_style_sheets manager'+    touchManagedPtr manager+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerRemoveAllStyleSheetsMethodInfo+instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRemoveAllStyleSheetsMethodInfo a signature where+    overloadedMethod _ = userContentManagerRemoveAllStyleSheets++#endif++-- method UserContentManager::remove_filter+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_remove_filter" webkit_user_content_manager_remove_filter :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    Ptr WebKit2.UserContentFilter.UserContentFilter -> -- filter : TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"})+    IO ()++{- |+Removes a filter from the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'.++Since 2.24+-}+userContentManagerRemoveFilter ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> WebKit2.UserContentFilter.UserContentFilter+    {- ^ /@filter@/: A 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' -}+    -> m ()+userContentManagerRemoveFilter manager filter = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    filter' <- unsafeManagedPtrGetPtr filter+    webkit_user_content_manager_remove_filter manager' filter'+    touchManagedPtr manager+    touchManagedPtr filter+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerRemoveFilterMethodInfo+instance (signature ~ (WebKit2.UserContentFilter.UserContentFilter -> m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRemoveFilterMethodInfo a signature where+    overloadedMethod _ = userContentManagerRemoveFilter++#endif++-- method UserContentManager::unregister_script_message_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of the script message channel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_unregister_script_message_handler" webkit_user_content_manager_unregister_script_message_handler :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    CString ->                              -- name : TBasicType TUTF8+    IO ()++{- |+Unregisters a previously registered message handler.++Note that this does *not* disconnect handlers for the+'GI.WebKit2.Objects.UserContentManager.UserContentManager'::@/script-message-received/@ signal;+they will be kept connected, but the signal will not be emitted+unless the handler name is registered again.++See also 'GI.WebKit2.Objects.UserContentManager.userContentManagerRegisterScriptMessageHandler'.++/Since: 2.8/+-}+userContentManagerUnregisterScriptMessageHandler ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> T.Text+    {- ^ /@name@/: Name of the script message channel -}+    -> m ()+userContentManagerUnregisterScriptMessageHandler manager name = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    name' <- textToCString name+    webkit_user_content_manager_unregister_script_message_handler manager' name'+    touchManagedPtr manager+    freeMem name'+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerUnregisterScriptMessageHandlerMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerUnregisterScriptMessageHandlerMethodInfo a signature where+    overloadedMethod _ = userContentManagerUnregisterScriptMessageHandler++#endif++-- method UserContentManager::unregister_script_message_handler_in_world+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of the script message channel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "world_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a #WebKitScriptWorld", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_unregister_script_message_handler_in_world" webkit_user_content_manager_unregister_script_message_handler_in_world :: +    Ptr UserContentManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- world_name : TBasicType TUTF8+    IO ()++{- |+Unregisters a previously registered message handler in script world with name /@worldName@/.++Note that this does *not* disconnect handlers for the+'GI.WebKit2.Objects.UserContentManager.UserContentManager'::@/script-message-received/@ signal;+they will be kept connected, but the signal will not be emitted+unless the handler name is registered again.++See also 'GI.WebKit2.Objects.UserContentManager.userContentManagerRegisterScriptMessageHandlerInWorld'.++/Since: 2.22/+-}+userContentManagerUnregisterScriptMessageHandlerInWorld ::+    (B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>+    a+    {- ^ /@manager@/: A 'GI.WebKit2.Objects.UserContentManager.UserContentManager' -}+    -> T.Text+    {- ^ /@name@/: Name of the script message channel -}+    -> T.Text+    {- ^ /@worldName@/: the name of a @/WebKitScriptWorld/@ -}+    -> m ()+userContentManagerUnregisterScriptMessageHandlerInWorld manager name worldName = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    name' <- textToCString name+    worldName' <- textToCString worldName+    webkit_user_content_manager_unregister_script_message_handler_in_world manager' name' worldName'+    touchManagedPtr manager+    freeMem name'+    freeMem worldName'+    return ()++#if ENABLE_OVERLOADING+data UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo+instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo a signature where+    overloadedMethod _ = userContentManagerUnregisterScriptMessageHandlerInWorld++#endif++
+ GI/WebKit2/Objects/UserContentManager.hs-boot view
@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.UserContentManager 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++newtype UserContentManager = UserContentManager (ManagedPtr UserContentManager)+instance GObject UserContentManager where+class (GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o+instance (GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o+instance O.HasParentTypes UserContentManager+#if ENABLE_OVERLOADING+data UserContentManagerScriptMessageReceivedSignalInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerAddFilterMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerAddScriptMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerAddStyleSheetMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerRegisterScriptMessageHandlerMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerRemoveAllFiltersMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerRemoveAllScriptsMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerRemoveAllStyleSheetsMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerRemoveFilterMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerUnregisterScriptMessageHandlerMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo+#endif
+ GI/WebKit2/Objects/UserMediaPermissionRequest.hs view
@@ -0,0 +1,219 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.UserMediaPermissionRequest+    ( ++-- * Exported types+    UserMediaPermissionRequest(..)          ,+    IsUserMediaPermissionRequest            ,+    toUserMediaPermissionRequest            ,+    noUserMediaPermissionRequest            ,+++ -- * Properties+-- ** isForAudioDevice #attr:isForAudioDevice#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    UserMediaPermissionRequestIsForAudioDevicePropertyInfo,+#endif+    getUserMediaPermissionRequestIsForAudioDevice,+#if ENABLE_OVERLOADING+    userMediaPermissionRequestIsForAudioDevice,+#endif+++-- ** isForVideoDevice #attr:isForVideoDevice#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    UserMediaPermissionRequestIsForVideoDevicePropertyInfo,+#endif+    getUserMediaPermissionRequestIsForVideoDevice,+#if ENABLE_OVERLOADING+    userMediaPermissionRequestIsForVideoDevice,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest++-- | Memory-managed wrapper type.+newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ManagedPtr UserMediaPermissionRequest)+foreign import ccall "webkit_user_media_permission_request_get_type"+    c_webkit_user_media_permission_request_get_type :: IO GType++instance GObject UserMediaPermissionRequest where+    gobjectType = c_webkit_user_media_permission_request_get_type+    ++-- | Type class for types which can be safely cast to `UserMediaPermissionRequest`, for instance with `toUserMediaPermissionRequest`.+class (GObject o, O.IsDescendantOf UserMediaPermissionRequest o) => IsUserMediaPermissionRequest o+instance (GObject o, O.IsDescendantOf UserMediaPermissionRequest o) => IsUserMediaPermissionRequest o++instance O.HasParentTypes UserMediaPermissionRequest+type instance O.ParentTypes UserMediaPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]++-- | Cast to `UserMediaPermissionRequest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toUserMediaPermissionRequest :: (MonadIO m, IsUserMediaPermissionRequest o) => o -> m UserMediaPermissionRequest+toUserMediaPermissionRequest = liftIO . unsafeCastTo UserMediaPermissionRequest++-- | A convenience alias for `Nothing` :: `Maybe` `UserMediaPermissionRequest`.+noUserMediaPermissionRequest :: Maybe UserMediaPermissionRequest+noUserMediaPermissionRequest = Nothing++#if ENABLE_OVERLOADING+type family ResolveUserMediaPermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveUserMediaPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo+    ResolveUserMediaPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveUserMediaPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveUserMediaPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo+    ResolveUserMediaPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveUserMediaPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveUserMediaPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveUserMediaPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveUserMediaPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveUserMediaPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveUserMediaPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveUserMediaPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveUserMediaPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveUserMediaPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveUserMediaPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveUserMediaPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveUserMediaPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveUserMediaPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveUserMediaPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveUserMediaPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveUserMediaPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveUserMediaPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveUserMediaPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveUserMediaPermissionRequestMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveUserMediaPermissionRequestMethod t UserMediaPermissionRequest, O.MethodInfo info UserMediaPermissionRequest p) => OL.IsLabel t (UserMediaPermissionRequest -> 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++-- VVV Prop "is-for-audio-device"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@is-for-audio-device@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' userMediaPermissionRequest #isForAudioDevice+@+-}+getUserMediaPermissionRequestIsForAudioDevice :: (MonadIO m, IsUserMediaPermissionRequest o) => o -> m Bool+getUserMediaPermissionRequestIsForAudioDevice obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-for-audio-device"++#if ENABLE_OVERLOADING+data UserMediaPermissionRequestIsForAudioDevicePropertyInfo+instance AttrInfo UserMediaPermissionRequestIsForAudioDevicePropertyInfo where+    type AttrAllowedOps UserMediaPermissionRequestIsForAudioDevicePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = (~) ()+    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = IsUserMediaPermissionRequest+    type AttrGetType UserMediaPermissionRequestIsForAudioDevicePropertyInfo = Bool+    type AttrLabel UserMediaPermissionRequestIsForAudioDevicePropertyInfo = "is-for-audio-device"+    type AttrOrigin UserMediaPermissionRequestIsForAudioDevicePropertyInfo = UserMediaPermissionRequest+    attrGet _ = getUserMediaPermissionRequestIsForAudioDevice+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "is-for-video-device"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@is-for-video-device@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' userMediaPermissionRequest #isForVideoDevice+@+-}+getUserMediaPermissionRequestIsForVideoDevice :: (MonadIO m, IsUserMediaPermissionRequest o) => o -> m Bool+getUserMediaPermissionRequestIsForVideoDevice obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-for-video-device"++#if ENABLE_OVERLOADING+data UserMediaPermissionRequestIsForVideoDevicePropertyInfo+instance AttrInfo UserMediaPermissionRequestIsForVideoDevicePropertyInfo where+    type AttrAllowedOps UserMediaPermissionRequestIsForVideoDevicePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = (~) ()+    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = IsUserMediaPermissionRequest+    type AttrGetType UserMediaPermissionRequestIsForVideoDevicePropertyInfo = Bool+    type AttrLabel UserMediaPermissionRequestIsForVideoDevicePropertyInfo = "is-for-video-device"+    type AttrOrigin UserMediaPermissionRequestIsForVideoDevicePropertyInfo = UserMediaPermissionRequest+    attrGet _ = getUserMediaPermissionRequestIsForVideoDevice+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList UserMediaPermissionRequest+type instance O.AttributeList UserMediaPermissionRequest = UserMediaPermissionRequestAttributeList+type UserMediaPermissionRequestAttributeList = ('[ '("isForAudioDevice", UserMediaPermissionRequestIsForAudioDevicePropertyInfo), '("isForVideoDevice", UserMediaPermissionRequestIsForVideoDevicePropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+userMediaPermissionRequestIsForAudioDevice :: AttrLabelProxy "isForAudioDevice"+userMediaPermissionRequestIsForAudioDevice = AttrLabelProxy++userMediaPermissionRequestIsForVideoDevice :: AttrLabelProxy "isForVideoDevice"+userMediaPermissionRequestIsForVideoDevice = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList UserMediaPermissionRequest = UserMediaPermissionRequestSignalList+type UserMediaPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++
+ GI/WebKit2/Objects/UserMediaPermissionRequest.hs-boot view
@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.UserMediaPermissionRequest 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++newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ManagedPtr UserMediaPermissionRequest)+instance GObject UserMediaPermissionRequest where+class (GObject o, O.IsDescendantOf UserMediaPermissionRequest o) => IsUserMediaPermissionRequest o+instance (GObject o, O.IsDescendantOf UserMediaPermissionRequest o) => IsUserMediaPermissionRequest o+instance O.HasParentTypes UserMediaPermissionRequest+#if ENABLE_OVERLOADING+data UserMediaPermissionRequestIsForAudioDevicePropertyInfo+#endif+#if ENABLE_OVERLOADING+data UserMediaPermissionRequestIsForVideoDevicePropertyInfo+#endif
+ GI/WebKit2/Objects/WebContext.hs view
@@ -0,0 +1,2648 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.WebContext+    ( ++-- * Exported types+    WebContext(..)                          ,+    IsWebContext                            ,+    toWebContext                            ,+    noWebContext                            ,+++ -- * Methods+-- ** allowTlsCertificateForHost #method:allowTlsCertificateForHost#++#if ENABLE_OVERLOADING+    WebContextAllowTlsCertificateForHostMethodInfo,+#endif+    webContextAllowTlsCertificateForHost    ,+++-- ** clearCache #method:clearCache#++#if ENABLE_OVERLOADING+    WebContextClearCacheMethodInfo          ,+#endif+    webContextClearCache                    ,+++-- ** downloadUri #method:downloadUri#++#if ENABLE_OVERLOADING+    WebContextDownloadUriMethodInfo         ,+#endif+    webContextDownloadUri                   ,+++-- ** getCacheModel #method:getCacheModel#++#if ENABLE_OVERLOADING+    WebContextGetCacheModelMethodInfo       ,+#endif+    webContextGetCacheModel                 ,+++-- ** getCookieManager #method:getCookieManager#++#if ENABLE_OVERLOADING+    WebContextGetCookieManagerMethodInfo    ,+#endif+    webContextGetCookieManager              ,+++-- ** getDefault #method:getDefault#++    webContextGetDefault                    ,+++-- ** getFaviconDatabase #method:getFaviconDatabase#++#if ENABLE_OVERLOADING+    WebContextGetFaviconDatabaseMethodInfo  ,+#endif+    webContextGetFaviconDatabase            ,+++-- ** getFaviconDatabaseDirectory #method:getFaviconDatabaseDirectory#++#if ENABLE_OVERLOADING+    WebContextGetFaviconDatabaseDirectoryMethodInfo,+#endif+    webContextGetFaviconDatabaseDirectory   ,+++-- ** getPlugins #method:getPlugins#++#if ENABLE_OVERLOADING+    WebContextGetPluginsMethodInfo          ,+#endif+    webContextGetPlugins                    ,+++-- ** getPluginsFinish #method:getPluginsFinish#++#if ENABLE_OVERLOADING+    WebContextGetPluginsFinishMethodInfo    ,+#endif+    webContextGetPluginsFinish              ,+++-- ** getProcessModel #method:getProcessModel#++#if ENABLE_OVERLOADING+    WebContextGetProcessModelMethodInfo     ,+#endif+    webContextGetProcessModel               ,+++-- ** getSecurityManager #method:getSecurityManager#++#if ENABLE_OVERLOADING+    WebContextGetSecurityManagerMethodInfo  ,+#endif+    webContextGetSecurityManager            ,+++-- ** getSpellCheckingEnabled #method:getSpellCheckingEnabled#++#if ENABLE_OVERLOADING+    WebContextGetSpellCheckingEnabledMethodInfo,+#endif+    webContextGetSpellCheckingEnabled       ,+++-- ** getSpellCheckingLanguages #method:getSpellCheckingLanguages#++#if ENABLE_OVERLOADING+    WebContextGetSpellCheckingLanguagesMethodInfo,+#endif+    webContextGetSpellCheckingLanguages     ,+++-- ** getTlsErrorsPolicy #method:getTlsErrorsPolicy#++#if ENABLE_OVERLOADING+    WebContextGetTlsErrorsPolicyMethodInfo  ,+#endif+    webContextGetTlsErrorsPolicy            ,+++-- ** getWebProcessCountLimit #method:getWebProcessCountLimit#++#if ENABLE_OVERLOADING+    WebContextGetWebProcessCountLimitMethodInfo,+#endif+    webContextGetWebProcessCountLimit       ,+++-- ** getWebsiteDataManager #method:getWebsiteDataManager#++#if ENABLE_OVERLOADING+    WebContextGetWebsiteDataManagerMethodInfo,+#endif+    webContextGetWebsiteDataManager         ,+++-- ** initializeNotificationPermissions #method:initializeNotificationPermissions#++#if ENABLE_OVERLOADING+    WebContextInitializeNotificationPermissionsMethodInfo,+#endif+    webContextInitializeNotificationPermissions,+++-- ** isAutomationAllowed #method:isAutomationAllowed#++#if ENABLE_OVERLOADING+    WebContextIsAutomationAllowedMethodInfo ,+#endif+    webContextIsAutomationAllowed           ,+++-- ** isEphemeral #method:isEphemeral#++#if ENABLE_OVERLOADING+    WebContextIsEphemeralMethodInfo         ,+#endif+    webContextIsEphemeral                   ,+++-- ** new #method:new#++    webContextNew                           ,+++-- ** newEphemeral #method:newEphemeral#++    webContextNewEphemeral                  ,+++-- ** newWithWebsiteDataManager #method:newWithWebsiteDataManager#++    webContextNewWithWebsiteDataManager     ,+++-- ** prefetchDns #method:prefetchDns#++#if ENABLE_OVERLOADING+    WebContextPrefetchDnsMethodInfo         ,+#endif+    webContextPrefetchDns                   ,+++-- ** registerUriScheme #method:registerUriScheme#++#if ENABLE_OVERLOADING+    WebContextRegisterUriSchemeMethodInfo   ,+#endif+    webContextRegisterUriScheme             ,+++-- ** setAdditionalPluginsDirectory #method:setAdditionalPluginsDirectory#++#if ENABLE_OVERLOADING+    WebContextSetAdditionalPluginsDirectoryMethodInfo,+#endif+    webContextSetAdditionalPluginsDirectory ,+++-- ** setAutomationAllowed #method:setAutomationAllowed#++#if ENABLE_OVERLOADING+    WebContextSetAutomationAllowedMethodInfo,+#endif+    webContextSetAutomationAllowed          ,+++-- ** setCacheModel #method:setCacheModel#++#if ENABLE_OVERLOADING+    WebContextSetCacheModelMethodInfo       ,+#endif+    webContextSetCacheModel                 ,+++-- ** setDiskCacheDirectory #method:setDiskCacheDirectory#++#if ENABLE_OVERLOADING+    WebContextSetDiskCacheDirectoryMethodInfo,+#endif+    webContextSetDiskCacheDirectory         ,+++-- ** setFaviconDatabaseDirectory #method:setFaviconDatabaseDirectory#++#if ENABLE_OVERLOADING+    WebContextSetFaviconDatabaseDirectoryMethodInfo,+#endif+    webContextSetFaviconDatabaseDirectory   ,+++-- ** setNetworkProxySettings #method:setNetworkProxySettings#++#if ENABLE_OVERLOADING+    WebContextSetNetworkProxySettingsMethodInfo,+#endif+    webContextSetNetworkProxySettings       ,+++-- ** setPreferredLanguages #method:setPreferredLanguages#++#if ENABLE_OVERLOADING+    WebContextSetPreferredLanguagesMethodInfo,+#endif+    webContextSetPreferredLanguages         ,+++-- ** setProcessModel #method:setProcessModel#++#if ENABLE_OVERLOADING+    WebContextSetProcessModelMethodInfo     ,+#endif+    webContextSetProcessModel               ,+++-- ** setSpellCheckingEnabled #method:setSpellCheckingEnabled#++#if ENABLE_OVERLOADING+    WebContextSetSpellCheckingEnabledMethodInfo,+#endif+    webContextSetSpellCheckingEnabled       ,+++-- ** setSpellCheckingLanguages #method:setSpellCheckingLanguages#++#if ENABLE_OVERLOADING+    WebContextSetSpellCheckingLanguagesMethodInfo,+#endif+    webContextSetSpellCheckingLanguages     ,+++-- ** setTlsErrorsPolicy #method:setTlsErrorsPolicy#++#if ENABLE_OVERLOADING+    WebContextSetTlsErrorsPolicyMethodInfo  ,+#endif+    webContextSetTlsErrorsPolicy            ,+++-- ** setWebExtensionsDirectory #method:setWebExtensionsDirectory#++#if ENABLE_OVERLOADING+    WebContextSetWebExtensionsDirectoryMethodInfo,+#endif+    webContextSetWebExtensionsDirectory     ,+++-- ** setWebExtensionsInitializationUserData #method:setWebExtensionsInitializationUserData#++#if ENABLE_OVERLOADING+    WebContextSetWebExtensionsInitializationUserDataMethodInfo,+#endif+    webContextSetWebExtensionsInitializationUserData,+++-- ** setWebProcessCountLimit #method:setWebProcessCountLimit#++#if ENABLE_OVERLOADING+    WebContextSetWebProcessCountLimitMethodInfo,+#endif+    webContextSetWebProcessCountLimit       ,+++++ -- * Properties+-- ** localStorageDirectory #attr:localStorageDirectory#+{- | The directory where local storage data will be saved.++/Since: 2.8/+-}+#if ENABLE_OVERLOADING+    WebContextLocalStorageDirectoryPropertyInfo,+#endif+    constructWebContextLocalStorageDirectory,+    getWebContextLocalStorageDirectory      ,+#if ENABLE_OVERLOADING+    webContextLocalStorageDirectory         ,+#endif+++-- ** websiteDataManager #attr:websiteDataManager#+{- | The 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' associated with this context.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebContextWebsiteDataManagerPropertyInfo,+#endif+    constructWebContextWebsiteDataManager   ,+    getWebContextWebsiteDataManager         ,+#if ENABLE_OVERLOADING+    webContextWebsiteDataManager            ,+#endif+++++ -- * Signals+-- ** automationStarted #signal:automationStarted#++    C_WebContextAutomationStartedCallback   ,+    WebContextAutomationStartedCallback     ,+#if ENABLE_OVERLOADING+    WebContextAutomationStartedSignalInfo   ,+#endif+    afterWebContextAutomationStarted        ,+    genClosure_WebContextAutomationStarted  ,+    mk_WebContextAutomationStartedCallback  ,+    noWebContextAutomationStartedCallback   ,+    onWebContextAutomationStarted           ,+    wrap_WebContextAutomationStartedCallback,+++-- ** downloadStarted #signal:downloadStarted#++    C_WebContextDownloadStartedCallback     ,+    WebContextDownloadStartedCallback       ,+#if ENABLE_OVERLOADING+    WebContextDownloadStartedSignalInfo     ,+#endif+    afterWebContextDownloadStarted          ,+    genClosure_WebContextDownloadStarted    ,+    mk_WebContextDownloadStartedCallback    ,+    noWebContextDownloadStartedCallback     ,+    onWebContextDownloadStarted             ,+    wrap_WebContextDownloadStartedCallback  ,+++-- ** initializeNotificationPermissions #signal:initializeNotificationPermissions#++    C_WebContextInitializeNotificationPermissionsCallback,+    WebContextInitializeNotificationPermissionsCallback,+#if ENABLE_OVERLOADING+    WebContextInitializeNotificationPermissionsSignalInfo,+#endif+    afterWebContextInitializeNotificationPermissions,+    genClosure_WebContextInitializeNotificationPermissions,+    mk_WebContextInitializeNotificationPermissionsCallback,+    noWebContextInitializeNotificationPermissionsCallback,+    onWebContextInitializeNotificationPermissions,+    wrap_WebContextInitializeNotificationPermissionsCallback,+++-- ** initializeWebExtensions #signal:initializeWebExtensions#++    C_WebContextInitializeWebExtensionsCallback,+    WebContextInitializeWebExtensionsCallback,+#if ENABLE_OVERLOADING+    WebContextInitializeWebExtensionsSignalInfo,+#endif+    afterWebContextInitializeWebExtensions  ,+    genClosure_WebContextInitializeWebExtensions,+    mk_WebContextInitializeWebExtensionsCallback,+    noWebContextInitializeWebExtensionsCallback,+    onWebContextInitializeWebExtensions     ,+    wrap_WebContextInitializeWebExtensionsCallback,+++++    ) 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.GLib.Callbacks as GLib.Callbacks+import qualified GI.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Callbacks as Gio.Callbacks+import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult+import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable+import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate+import qualified GI.WebKit2.Callbacks as WebKit2.Callbacks+import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums+import {-# SOURCE #-} qualified GI.WebKit2.Objects.AutomationSession as WebKit2.AutomationSession+import {-# SOURCE #-} qualified GI.WebKit2.Objects.CookieManager as WebKit2.CookieManager+import {-# SOURCE #-} qualified GI.WebKit2.Objects.Download as WebKit2.Download+import {-# SOURCE #-} qualified GI.WebKit2.Objects.FaviconDatabase as WebKit2.FaviconDatabase+import {-# SOURCE #-} qualified GI.WebKit2.Objects.Plugin as WebKit2.Plugin+import {-# SOURCE #-} qualified GI.WebKit2.Objects.SecurityManager as WebKit2.SecurityManager+import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebsiteDataManager as WebKit2.WebsiteDataManager+import {-# SOURCE #-} qualified GI.WebKit2.Structs.NetworkProxySettings as WebKit2.NetworkProxySettings+import {-# SOURCE #-} qualified GI.WebKit2.Structs.SecurityOrigin as WebKit2.SecurityOrigin++-- | Memory-managed wrapper type.+newtype WebContext = WebContext (ManagedPtr WebContext)+foreign import ccall "webkit_web_context_get_type"+    c_webkit_web_context_get_type :: IO GType++instance GObject WebContext where+    gobjectType = c_webkit_web_context_get_type+    ++-- | Type class for types which can be safely cast to `WebContext`, for instance with `toWebContext`.+class (GObject o, O.IsDescendantOf WebContext o) => IsWebContext o+instance (GObject o, O.IsDescendantOf WebContext o) => IsWebContext o++instance O.HasParentTypes WebContext+type instance O.ParentTypes WebContext = '[GObject.Object.Object]++-- | Cast to `WebContext`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toWebContext :: (MonadIO m, IsWebContext o) => o -> m WebContext+toWebContext = liftIO . unsafeCastTo WebContext++-- | A convenience alias for `Nothing` :: `Maybe` `WebContext`.+noWebContext :: Maybe WebContext+noWebContext = Nothing++#if ENABLE_OVERLOADING+type family ResolveWebContextMethod (t :: Symbol) (o :: *) :: * where+    ResolveWebContextMethod "allowTlsCertificateForHost" o = WebContextAllowTlsCertificateForHostMethodInfo+    ResolveWebContextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveWebContextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveWebContextMethod "clearCache" o = WebContextClearCacheMethodInfo+    ResolveWebContextMethod "downloadUri" o = WebContextDownloadUriMethodInfo+    ResolveWebContextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveWebContextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveWebContextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveWebContextMethod "initializeNotificationPermissions" o = WebContextInitializeNotificationPermissionsMethodInfo+    ResolveWebContextMethod "isAutomationAllowed" o = WebContextIsAutomationAllowedMethodInfo+    ResolveWebContextMethod "isEphemeral" o = WebContextIsEphemeralMethodInfo+    ResolveWebContextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveWebContextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveWebContextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveWebContextMethod "prefetchDns" o = WebContextPrefetchDnsMethodInfo+    ResolveWebContextMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveWebContextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveWebContextMethod "registerUriScheme" o = WebContextRegisterUriSchemeMethodInfo+    ResolveWebContextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveWebContextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveWebContextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveWebContextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveWebContextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveWebContextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveWebContextMethod "getCacheModel" o = WebContextGetCacheModelMethodInfo+    ResolveWebContextMethod "getCookieManager" o = WebContextGetCookieManagerMethodInfo+    ResolveWebContextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveWebContextMethod "getFaviconDatabase" o = WebContextGetFaviconDatabaseMethodInfo+    ResolveWebContextMethod "getFaviconDatabaseDirectory" o = WebContextGetFaviconDatabaseDirectoryMethodInfo+    ResolveWebContextMethod "getPlugins" o = WebContextGetPluginsMethodInfo+    ResolveWebContextMethod "getPluginsFinish" o = WebContextGetPluginsFinishMethodInfo+    ResolveWebContextMethod "getProcessModel" o = WebContextGetProcessModelMethodInfo+    ResolveWebContextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveWebContextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveWebContextMethod "getSecurityManager" o = WebContextGetSecurityManagerMethodInfo+    ResolveWebContextMethod "getSpellCheckingEnabled" o = WebContextGetSpellCheckingEnabledMethodInfo+    ResolveWebContextMethod "getSpellCheckingLanguages" o = WebContextGetSpellCheckingLanguagesMethodInfo+    ResolveWebContextMethod "getTlsErrorsPolicy" o = WebContextGetTlsErrorsPolicyMethodInfo+    ResolveWebContextMethod "getWebProcessCountLimit" o = WebContextGetWebProcessCountLimitMethodInfo+    ResolveWebContextMethod "getWebsiteDataManager" o = WebContextGetWebsiteDataManagerMethodInfo+    ResolveWebContextMethod "setAdditionalPluginsDirectory" o = WebContextSetAdditionalPluginsDirectoryMethodInfo+    ResolveWebContextMethod "setAutomationAllowed" o = WebContextSetAutomationAllowedMethodInfo+    ResolveWebContextMethod "setCacheModel" o = WebContextSetCacheModelMethodInfo+    ResolveWebContextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveWebContextMethod "setDiskCacheDirectory" o = WebContextSetDiskCacheDirectoryMethodInfo+    ResolveWebContextMethod "setFaviconDatabaseDirectory" o = WebContextSetFaviconDatabaseDirectoryMethodInfo+    ResolveWebContextMethod "setNetworkProxySettings" o = WebContextSetNetworkProxySettingsMethodInfo+    ResolveWebContextMethod "setPreferredLanguages" o = WebContextSetPreferredLanguagesMethodInfo+    ResolveWebContextMethod "setProcessModel" o = WebContextSetProcessModelMethodInfo+    ResolveWebContextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveWebContextMethod "setSpellCheckingEnabled" o = WebContextSetSpellCheckingEnabledMethodInfo+    ResolveWebContextMethod "setSpellCheckingLanguages" o = WebContextSetSpellCheckingLanguagesMethodInfo+    ResolveWebContextMethod "setTlsErrorsPolicy" o = WebContextSetTlsErrorsPolicyMethodInfo+    ResolveWebContextMethod "setWebExtensionsDirectory" o = WebContextSetWebExtensionsDirectoryMethodInfo+    ResolveWebContextMethod "setWebExtensionsInitializationUserData" o = WebContextSetWebExtensionsInitializationUserDataMethodInfo+    ResolveWebContextMethod "setWebProcessCountLimit" o = WebContextSetWebProcessCountLimitMethodInfo+    ResolveWebContextMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWebContextMethod t WebContext, O.MethodInfo info WebContext p) => OL.IsLabel t (WebContext -> 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++-- signal WebContext::automation-started+{- |+This signal is emitted when a new automation request is made.+Note that it will never be emitted if automation is not enabled in /@context@/,+see 'GI.WebKit2.Objects.WebContext.webContextSetAutomationAllowed' for more details.++/Since: 2.18/+-}+type WebContextAutomationStartedCallback =+    WebKit2.AutomationSession.AutomationSession+    {- ^ /@session@/: the 'GI.WebKit2.Objects.AutomationSession.AutomationSession' associated with this event -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebContextAutomationStartedCallback`@.+noWebContextAutomationStartedCallback :: Maybe WebContextAutomationStartedCallback+noWebContextAutomationStartedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebContextAutomationStartedCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.AutomationSession.AutomationSession ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebContextAutomationStartedCallback`.+foreign import ccall "wrapper"+    mk_WebContextAutomationStartedCallback :: C_WebContextAutomationStartedCallback -> IO (FunPtr C_WebContextAutomationStartedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebContextAutomationStarted :: MonadIO m => WebContextAutomationStartedCallback -> m (GClosure C_WebContextAutomationStartedCallback)+genClosure_WebContextAutomationStarted cb = liftIO $ do+    let cb' = wrap_WebContextAutomationStartedCallback cb+    mk_WebContextAutomationStartedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebContextAutomationStartedCallback` into a `C_WebContextAutomationStartedCallback`.+wrap_WebContextAutomationStartedCallback ::+    WebContextAutomationStartedCallback ->+    C_WebContextAutomationStartedCallback+wrap_WebContextAutomationStartedCallback _cb _ session _ = do+    session' <- (newObject WebKit2.AutomationSession.AutomationSession) session+    _cb  session'+++{- |+Connect a signal handler for the “@automation-started@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webContext #automationStarted callback+@+-}+onWebContextAutomationStarted :: (IsWebContext a, MonadIO m) => a -> WebContextAutomationStartedCallback -> m SignalHandlerId+onWebContextAutomationStarted obj cb = liftIO $ do+    let cb' = wrap_WebContextAutomationStartedCallback cb+    cb'' <- mk_WebContextAutomationStartedCallback cb'+    connectSignalFunPtr obj "automation-started" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@automation-started@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webContext #automationStarted callback+@+-}+afterWebContextAutomationStarted :: (IsWebContext a, MonadIO m) => a -> WebContextAutomationStartedCallback -> m SignalHandlerId+afterWebContextAutomationStarted obj cb = liftIO $ do+    let cb' = wrap_WebContextAutomationStartedCallback cb+    cb'' <- mk_WebContextAutomationStartedCallback cb'+    connectSignalFunPtr obj "automation-started" cb'' SignalConnectAfter+++-- signal WebContext::download-started+{- |+This signal is emitted when a new download request is made.+-}+type WebContextDownloadStartedCallback =+    WebKit2.Download.Download+    {- ^ /@download@/: the 'GI.WebKit2.Objects.Download.Download' associated with this event -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebContextDownloadStartedCallback`@.+noWebContextDownloadStartedCallback :: Maybe WebContextDownloadStartedCallback+noWebContextDownloadStartedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebContextDownloadStartedCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.Download.Download ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebContextDownloadStartedCallback`.+foreign import ccall "wrapper"+    mk_WebContextDownloadStartedCallback :: C_WebContextDownloadStartedCallback -> IO (FunPtr C_WebContextDownloadStartedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebContextDownloadStarted :: MonadIO m => WebContextDownloadStartedCallback -> m (GClosure C_WebContextDownloadStartedCallback)+genClosure_WebContextDownloadStarted cb = liftIO $ do+    let cb' = wrap_WebContextDownloadStartedCallback cb+    mk_WebContextDownloadStartedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebContextDownloadStartedCallback` into a `C_WebContextDownloadStartedCallback`.+wrap_WebContextDownloadStartedCallback ::+    WebContextDownloadStartedCallback ->+    C_WebContextDownloadStartedCallback+wrap_WebContextDownloadStartedCallback _cb _ download _ = do+    download' <- (newObject WebKit2.Download.Download) download+    _cb  download'+++{- |+Connect a signal handler for the “@download-started@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webContext #downloadStarted callback+@+-}+onWebContextDownloadStarted :: (IsWebContext a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId+onWebContextDownloadStarted obj cb = liftIO $ do+    let cb' = wrap_WebContextDownloadStartedCallback cb+    cb'' <- mk_WebContextDownloadStartedCallback cb'+    connectSignalFunPtr obj "download-started" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@download-started@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webContext #downloadStarted callback+@+-}+afterWebContextDownloadStarted :: (IsWebContext a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId+afterWebContextDownloadStarted obj cb = liftIO $ do+    let cb' = wrap_WebContextDownloadStartedCallback cb+    cb'' <- mk_WebContextDownloadStartedCallback cb'+    connectSignalFunPtr obj "download-started" cb'' SignalConnectAfter+++-- signal WebContext::initialize-notification-permissions+{- |+This signal is emitted when a 'GI.WebKit2.Objects.WebContext.WebContext' needs to set+initial notification permissions for a web process. It is emitted+when a new web process is about to be launched, and signals the+most appropriate moment to use+'GI.WebKit2.Objects.WebContext.webContextInitializeNotificationPermissions'. If no+notification permissions have changed since the last time this+signal was emitted, then there is no need to call+'GI.WebKit2.Objects.WebContext.webContextInitializeNotificationPermissions' again.++/Since: 2.16/+-}+type WebContextInitializeNotificationPermissionsCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebContextInitializeNotificationPermissionsCallback`@.+noWebContextInitializeNotificationPermissionsCallback :: Maybe WebContextInitializeNotificationPermissionsCallback+noWebContextInitializeNotificationPermissionsCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebContextInitializeNotificationPermissionsCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebContextInitializeNotificationPermissionsCallback`.+foreign import ccall "wrapper"+    mk_WebContextInitializeNotificationPermissionsCallback :: C_WebContextInitializeNotificationPermissionsCallback -> IO (FunPtr C_WebContextInitializeNotificationPermissionsCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebContextInitializeNotificationPermissions :: MonadIO m => WebContextInitializeNotificationPermissionsCallback -> m (GClosure C_WebContextInitializeNotificationPermissionsCallback)+genClosure_WebContextInitializeNotificationPermissions cb = liftIO $ do+    let cb' = wrap_WebContextInitializeNotificationPermissionsCallback cb+    mk_WebContextInitializeNotificationPermissionsCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebContextInitializeNotificationPermissionsCallback` into a `C_WebContextInitializeNotificationPermissionsCallback`.+wrap_WebContextInitializeNotificationPermissionsCallback ::+    WebContextInitializeNotificationPermissionsCallback ->+    C_WebContextInitializeNotificationPermissionsCallback+wrap_WebContextInitializeNotificationPermissionsCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@initialize-notification-permissions@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webContext #initializeNotificationPermissions callback+@+-}+onWebContextInitializeNotificationPermissions :: (IsWebContext a, MonadIO m) => a -> WebContextInitializeNotificationPermissionsCallback -> m SignalHandlerId+onWebContextInitializeNotificationPermissions obj cb = liftIO $ do+    let cb' = wrap_WebContextInitializeNotificationPermissionsCallback cb+    cb'' <- mk_WebContextInitializeNotificationPermissionsCallback cb'+    connectSignalFunPtr obj "initialize-notification-permissions" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@initialize-notification-permissions@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webContext #initializeNotificationPermissions callback+@+-}+afterWebContextInitializeNotificationPermissions :: (IsWebContext a, MonadIO m) => a -> WebContextInitializeNotificationPermissionsCallback -> m SignalHandlerId+afterWebContextInitializeNotificationPermissions obj cb = liftIO $ do+    let cb' = wrap_WebContextInitializeNotificationPermissionsCallback cb+    cb'' <- mk_WebContextInitializeNotificationPermissionsCallback cb'+    connectSignalFunPtr obj "initialize-notification-permissions" cb'' SignalConnectAfter+++-- signal WebContext::initialize-web-extensions+{- |+This signal is emitted when a new web process is about to be+launched. It signals the most appropriate moment to use+'GI.WebKit2.Objects.WebContext.webContextSetWebExtensionsInitializationUserData'+and 'GI.WebKit2.Objects.WebContext.webContextSetWebExtensionsDirectory'.++/Since: 2.4/+-}+type WebContextInitializeWebExtensionsCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebContextInitializeWebExtensionsCallback`@.+noWebContextInitializeWebExtensionsCallback :: Maybe WebContextInitializeWebExtensionsCallback+noWebContextInitializeWebExtensionsCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebContextInitializeWebExtensionsCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebContextInitializeWebExtensionsCallback`.+foreign import ccall "wrapper"+    mk_WebContextInitializeWebExtensionsCallback :: C_WebContextInitializeWebExtensionsCallback -> IO (FunPtr C_WebContextInitializeWebExtensionsCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebContextInitializeWebExtensions :: MonadIO m => WebContextInitializeWebExtensionsCallback -> m (GClosure C_WebContextInitializeWebExtensionsCallback)+genClosure_WebContextInitializeWebExtensions cb = liftIO $ do+    let cb' = wrap_WebContextInitializeWebExtensionsCallback cb+    mk_WebContextInitializeWebExtensionsCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebContextInitializeWebExtensionsCallback` into a `C_WebContextInitializeWebExtensionsCallback`.+wrap_WebContextInitializeWebExtensionsCallback ::+    WebContextInitializeWebExtensionsCallback ->+    C_WebContextInitializeWebExtensionsCallback+wrap_WebContextInitializeWebExtensionsCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@initialize-web-extensions@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webContext #initializeWebExtensions callback+@+-}+onWebContextInitializeWebExtensions :: (IsWebContext a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId+onWebContextInitializeWebExtensions obj cb = liftIO $ do+    let cb' = wrap_WebContextInitializeWebExtensionsCallback cb+    cb'' <- mk_WebContextInitializeWebExtensionsCallback cb'+    connectSignalFunPtr obj "initialize-web-extensions" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@initialize-web-extensions@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webContext #initializeWebExtensions callback+@+-}+afterWebContextInitializeWebExtensions :: (IsWebContext a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId+afterWebContextInitializeWebExtensions obj cb = liftIO $ do+    let cb' = wrap_WebContextInitializeWebExtensionsCallback cb+    cb'' <- mk_WebContextInitializeWebExtensionsCallback cb'+    connectSignalFunPtr obj "initialize-web-extensions" cb'' SignalConnectAfter+++-- VVV Prop "local-storage-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@local-storage-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webContext #localStorageDirectory+@+-}+getWebContextLocalStorageDirectory :: (MonadIO m, IsWebContext o) => o -> m (Maybe T.Text)+getWebContextLocalStorageDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "local-storage-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@local-storage-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebContextLocalStorageDirectory :: (IsWebContext o) => T.Text -> IO (GValueConstruct o)+constructWebContextLocalStorageDirectory val = B.Properties.constructObjectPropertyString "local-storage-directory" (Just val)++#if ENABLE_OVERLOADING+data WebContextLocalStorageDirectoryPropertyInfo+instance AttrInfo WebContextLocalStorageDirectoryPropertyInfo where+    type AttrAllowedOps WebContextLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = IsWebContext+    type AttrGetType WebContextLocalStorageDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebContextLocalStorageDirectoryPropertyInfo = "local-storage-directory"+    type AttrOrigin WebContextLocalStorageDirectoryPropertyInfo = WebContext+    attrGet _ = getWebContextLocalStorageDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebContextLocalStorageDirectory+    attrClear _ = undefined+#endif++-- VVV Prop "website-data-manager"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@website-data-manager@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webContext #websiteDataManager+@+-}+getWebContextWebsiteDataManager :: (MonadIO m, IsWebContext o) => o -> m WebKit2.WebsiteDataManager.WebsiteDataManager+getWebContextWebsiteDataManager obj = liftIO $ checkUnexpectedNothing "getWebContextWebsiteDataManager" $ B.Properties.getObjectPropertyObject obj "website-data-manager" WebKit2.WebsiteDataManager.WebsiteDataManager++{- |+Construct a `GValueConstruct` with valid value for the “@website-data-manager@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebContextWebsiteDataManager :: (IsWebContext o, WebKit2.WebsiteDataManager.IsWebsiteDataManager a) => a -> IO (GValueConstruct o)+constructWebContextWebsiteDataManager val = B.Properties.constructObjectPropertyObject "website-data-manager" (Just val)++#if ENABLE_OVERLOADING+data WebContextWebsiteDataManagerPropertyInfo+instance AttrInfo WebContextWebsiteDataManagerPropertyInfo where+    type AttrAllowedOps WebContextWebsiteDataManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebContextWebsiteDataManagerPropertyInfo = WebKit2.WebsiteDataManager.IsWebsiteDataManager+    type AttrBaseTypeConstraint WebContextWebsiteDataManagerPropertyInfo = IsWebContext+    type AttrGetType WebContextWebsiteDataManagerPropertyInfo = WebKit2.WebsiteDataManager.WebsiteDataManager+    type AttrLabel WebContextWebsiteDataManagerPropertyInfo = "website-data-manager"+    type AttrOrigin WebContextWebsiteDataManagerPropertyInfo = WebContext+    attrGet _ = getWebContextWebsiteDataManager+    attrSet _ = undefined+    attrConstruct _ = constructWebContextWebsiteDataManager+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList WebContext+type instance O.AttributeList WebContext = WebContextAttributeList+type WebContextAttributeList = ('[ '("localStorageDirectory", WebContextLocalStorageDirectoryPropertyInfo), '("websiteDataManager", WebContextWebsiteDataManagerPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+webContextLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory"+webContextLocalStorageDirectory = AttrLabelProxy++webContextWebsiteDataManager :: AttrLabelProxy "websiteDataManager"+webContextWebsiteDataManager = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data WebContextAutomationStartedSignalInfo+instance SignalInfo WebContextAutomationStartedSignalInfo where+    type HaskellCallbackType WebContextAutomationStartedSignalInfo = WebContextAutomationStartedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebContextAutomationStartedCallback cb+        cb'' <- mk_WebContextAutomationStartedCallback cb'+        connectSignalFunPtr obj "automation-started" cb'' connectMode++data WebContextDownloadStartedSignalInfo+instance SignalInfo WebContextDownloadStartedSignalInfo where+    type HaskellCallbackType WebContextDownloadStartedSignalInfo = WebContextDownloadStartedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebContextDownloadStartedCallback cb+        cb'' <- mk_WebContextDownloadStartedCallback cb'+        connectSignalFunPtr obj "download-started" cb'' connectMode++data WebContextInitializeNotificationPermissionsSignalInfo+instance SignalInfo WebContextInitializeNotificationPermissionsSignalInfo where+    type HaskellCallbackType WebContextInitializeNotificationPermissionsSignalInfo = WebContextInitializeNotificationPermissionsCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebContextInitializeNotificationPermissionsCallback cb+        cb'' <- mk_WebContextInitializeNotificationPermissionsCallback cb'+        connectSignalFunPtr obj "initialize-notification-permissions" cb'' connectMode++data WebContextInitializeWebExtensionsSignalInfo+instance SignalInfo WebContextInitializeWebExtensionsSignalInfo where+    type HaskellCallbackType WebContextInitializeWebExtensionsSignalInfo = WebContextInitializeWebExtensionsCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebContextInitializeWebExtensionsCallback cb+        cb'' <- mk_WebContextInitializeWebExtensionsCallback cb'+        connectSignalFunPtr obj "initialize-web-extensions" cb'' connectMode++type instance O.SignalList WebContext = WebContextSignalList+type WebContextSignalList = ('[ '("automationStarted", WebContextAutomationStartedSignalInfo), '("downloadStarted", WebContextDownloadStartedSignalInfo), '("initializeNotificationPermissions", WebContextInitializeNotificationPermissionsSignalInfo), '("initializeWebExtensions", WebContextInitializeWebExtensionsSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method WebContext::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebContext"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_new" webkit_web_context_new :: +    IO (Ptr WebContext)++{- |+Create a new 'GI.WebKit2.Objects.WebContext.WebContext'++/Since: 2.8/+-}+webContextNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m WebContext+    {- ^ __Returns:__ a newly created 'GI.WebKit2.Objects.WebContext.WebContext' -}+webContextNew  = liftIO $ do+    result <- webkit_web_context_new+    checkUnexpectedReturnNULL "webContextNew" result+    result' <- (wrapObject WebContext) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method WebContext::new_ephemeral+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebContext"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_new_ephemeral" webkit_web_context_new_ephemeral :: +    IO (Ptr WebContext)++{- |+Create a new ephemeral 'GI.WebKit2.Objects.WebContext.WebContext'. An ephemeral 'GI.WebKit2.Objects.WebContext.WebContext' is a context+created with an ephemeral 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'. This is just a convenient method+to create ephemeral contexts without having to create your own 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'.+All 'GI.WebKit2.Objects.WebView.WebView'\<!-- -->s associated with this context will also be ephemeral. Websites will+not store any data in the client storage.+This is normally used to implement private instances.++/Since: 2.16/+-}+webContextNewEphemeral ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m WebContext+    {- ^ __Returns:__ a new ephemeral 'GI.WebKit2.Objects.WebContext.WebContext'. -}+webContextNewEphemeral  = liftIO $ do+    result <- webkit_web_context_new_ephemeral+    checkUnexpectedReturnNULL "webContextNewEphemeral" result+    result' <- (wrapObject WebContext) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method WebContext::new_with_website_data_manager+-- method type : Constructor+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebContext"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_new_with_website_data_manager" webkit_web_context_new_with_website_data_manager :: +    Ptr WebKit2.WebsiteDataManager.WebsiteDataManager -> -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO (Ptr WebContext)++{- |+Create a new 'GI.WebKit2.Objects.WebContext.WebContext' with a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'.++/Since: 2.10/+-}+webContextNewWithWebsiteDataManager ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.WebsiteDataManager.IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m WebContext+    {- ^ __Returns:__ a newly created 'GI.WebKit2.Objects.WebContext.WebContext' -}+webContextNewWithWebsiteDataManager manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_web_context_new_with_website_data_manager manager'+    checkUnexpectedReturnNULL "webContextNewWithWebsiteDataManager" result+    result' <- (wrapObject WebContext) result+    touchManagedPtr manager+    return result'++#if ENABLE_OVERLOADING+#endif++-- method WebContext::allow_tls_certificate_for_host+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the host for which a certificate is to be allowed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_allow_tls_certificate_for_host" webkit_web_context_allow_tls_certificate_for_host :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})+    CString ->                              -- host : TBasicType TUTF8+    IO ()++{- |+Ignore further TLS errors on the /@host@/ for the certificate present in /@info@/.++/Since: 2.6/+-}+webContextAllowTlsCertificateForHost ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a, Gio.TlsCertificate.IsTlsCertificate b) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> b+    {- ^ /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}+    -> T.Text+    {- ^ /@host@/: the host for which a certificate is to be allowed -}+    -> m ()+webContextAllowTlsCertificateForHost context certificate host = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    certificate' <- unsafeManagedPtrCastPtr certificate+    host' <- textToCString host+    webkit_web_context_allow_tls_certificate_for_host context' certificate' host'+    touchManagedPtr context+    touchManagedPtr certificate+    freeMem host'+    return ()++#if ENABLE_OVERLOADING+data WebContextAllowTlsCertificateForHostMethodInfo+instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsWebContext a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo WebContextAllowTlsCertificateForHostMethodInfo a signature where+    overloadedMethod _ = webContextAllowTlsCertificateForHost++#endif++-- method WebContext::clear_cache+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_clear_cache" webkit_web_context_clear_cache :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO ()++{- |+Clears all resources currently cached.+See also 'GI.WebKit2.Objects.WebContext.webContextSetCacheModel'.+-}+webContextClearCache ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m ()+webContextClearCache context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    webkit_web_context_clear_cache context'+    touchManagedPtr context+    return ()++#if ENABLE_OVERLOADING+data WebContextClearCacheMethodInfo+instance (signature ~ (m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextClearCacheMethodInfo a signature where+    overloadedMethod _ = webContextClearCache++#endif++-- method WebContext::download_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to download", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Download"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_download_uri" webkit_web_context_download_uri :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CString ->                              -- uri : TBasicType TUTF8+    IO (Ptr WebKit2.Download.Download)++{- |+Requests downloading of the specified URI string. The download operation+will not be associated to any 'GI.WebKit2.Objects.WebView.WebView', if you are interested in+starting a download from a particular 'GI.WebKit2.Objects.WebView.WebView' use+'GI.WebKit2.Objects.WebView.webViewDownloadUri' instead.+-}+webContextDownloadUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> T.Text+    {- ^ /@uri@/: the URI to download -}+    -> m WebKit2.Download.Download+    {- ^ __Returns:__ a new 'GI.WebKit2.Objects.Download.Download' representing+   the download operation. -}+webContextDownloadUri context uri = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    uri' <- textToCString uri+    result <- webkit_web_context_download_uri context' uri'+    checkUnexpectedReturnNULL "webContextDownloadUri" result+    result' <- (wrapObject WebKit2.Download.Download) result+    touchManagedPtr context+    freeMem uri'+    return result'++#if ENABLE_OVERLOADING+data WebContextDownloadUriMethodInfo+instance (signature ~ (T.Text -> m WebKit2.Download.Download), MonadIO m, IsWebContext a) => O.MethodInfo WebContextDownloadUriMethodInfo a signature where+    overloadedMethod _ = webContextDownloadUri++#endif++-- method WebContext::get_cache_model+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "CacheModel"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_cache_model" webkit_web_context_get_cache_model :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO CUInt++{- |+Returns the current cache model. For more information about this+value check the documentation of the function+'GI.WebKit2.Objects.WebContext.webContextSetCacheModel'.+-}+webContextGetCacheModel ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m WebKit2.Enums.CacheModel+    {- ^ __Returns:__ the current 'GI.WebKit2.Enums.CacheModel' -}+webContextGetCacheModel context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_cache_model context'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetCacheModelMethodInfo+instance (signature ~ (m WebKit2.Enums.CacheModel), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetCacheModelMethodInfo a signature where+    overloadedMethod _ = webContextGetCacheModel++#endif++-- method WebContext::get_cookie_manager+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "CookieManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_cookie_manager" webkit_web_context_get_cookie_manager :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO (Ptr WebKit2.CookieManager.CookieManager)++{- |+Get the 'GI.WebKit2.Objects.CookieManager.CookieManager' of the /@context@/\'s 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'.+-}+webContextGetCookieManager ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m WebKit2.CookieManager.CookieManager+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.CookieManager.CookieManager' of /@context@/. -}+webContextGetCookieManager context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_cookie_manager context'+    checkUnexpectedReturnNULL "webContextGetCookieManager" result+    result' <- (newObject WebKit2.CookieManager.CookieManager) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetCookieManagerMethodInfo+instance (signature ~ (m WebKit2.CookieManager.CookieManager), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetCookieManagerMethodInfo a signature where+    overloadedMethod _ = webContextGetCookieManager++#endif++-- method WebContext::get_favicon_database+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "FaviconDatabase"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_favicon_database" webkit_web_context_get_favicon_database :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO (Ptr WebKit2.FaviconDatabase.FaviconDatabase)++{- |+Get the 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase' associated with /@context@/.++To initialize the database you need to call+'GI.WebKit2.Objects.WebContext.webContextSetFaviconDatabaseDirectory'.+-}+webContextGetFaviconDatabase ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m WebKit2.FaviconDatabase.FaviconDatabase+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.FaviconDatabase.FaviconDatabase' of /@context@/. -}+webContextGetFaviconDatabase context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_favicon_database context'+    checkUnexpectedReturnNULL "webContextGetFaviconDatabase" result+    result' <- (newObject WebKit2.FaviconDatabase.FaviconDatabase) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetFaviconDatabaseMethodInfo+instance (signature ~ (m WebKit2.FaviconDatabase.FaviconDatabase), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetFaviconDatabaseMethodInfo a signature where+    overloadedMethod _ = webContextGetFaviconDatabase++#endif++-- method WebContext::get_favicon_database_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_favicon_database_directory" webkit_web_context_get_favicon_database_directory :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO CString++{- |+Get the directory path being used to store the favicons database+for /@context@/, or 'Nothing' if+'GI.WebKit2.Objects.WebContext.webContextSetFaviconDatabaseDirectory' hasn\'t been+called yet.++This function will always return the same path after having called+'GI.WebKit2.Objects.WebContext.webContextSetFaviconDatabaseDirectory' for the first+time.+-}+webContextGetFaviconDatabaseDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the path of the directory of the favicons+database associated with /@context@/, or 'Nothing'. -}+webContextGetFaviconDatabaseDirectory context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_favicon_database_directory context'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr context+    return maybeResult++#if ENABLE_OVERLOADING+data WebContextGetFaviconDatabaseDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetFaviconDatabaseDirectoryMethodInfo a signature where+    overloadedMethod _ = webContextGetFaviconDatabaseDirectory++#endif++-- method WebContext::get_plugins+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_plugins" webkit_web_context_get_plugins :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously get the list of installed plugins.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebContext.webContextGetPluginsFinish' to get the result of the operation.+-}+webContextGetPlugins ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+webContextGetPlugins context cancellable callback = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    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_context_get_plugins context' maybeCancellable maybeCallback userData+    touchManagedPtr context+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data WebContextGetPluginsMethodInfo+instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebContext a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebContextGetPluginsMethodInfo a signature where+    overloadedMethod _ = webContextGetPlugins++#endif++-- method WebContext::get_plugins_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "Plugin"})))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_context_get_plugins_finish" webkit_web_context_get_plugins_finish :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr (GList (Ptr WebKit2.Plugin.Plugin)))++{- |+Finish an asynchronous operation started with webkit_web_context_get_plugins.+-}+webContextGetPluginsFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m [WebKit2.Plugin.Plugin]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Objects.Plugin.Plugin'. You must free the 'GI.GLib.Structs.List.List' with+   @/g_list_free()/@ and unref the 'GI.WebKit2.Objects.Plugin.Plugin'\<!-- -->s with 'GI.GObject.Objects.Object.objectUnref' when you\'re done with them. /(Can throw 'Data.GI.Base.GError.GError')/ -}+webContextGetPluginsFinish context result_ = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_web_context_get_plugins_finish context' result_'+        result' <- unpackGList result+        result'' <- mapM (wrapObject WebKit2.Plugin.Plugin) result'+        g_list_free result+        touchManagedPtr context+        touchManagedPtr result_+        return result''+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data WebContextGetPluginsFinishMethodInfo+instance (signature ~ (b -> m [WebKit2.Plugin.Plugin]), MonadIO m, IsWebContext a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebContextGetPluginsFinishMethodInfo a signature where+    overloadedMethod _ = webContextGetPluginsFinish++#endif++-- method WebContext::get_process_model+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ProcessModel"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_process_model" webkit_web_context_get_process_model :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO CUInt++{- |+Returns the current process model. For more information about this value+see 'GI.WebKit2.Objects.WebContext.webContextSetProcessModel'.++/Since: 2.4/+-}+webContextGetProcessModel ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m WebKit2.Enums.ProcessModel+    {- ^ __Returns:__ the current 'GI.WebKit2.Enums.ProcessModel' -}+webContextGetProcessModel context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_process_model context'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetProcessModelMethodInfo+instance (signature ~ (m WebKit2.Enums.ProcessModel), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetProcessModelMethodInfo a signature where+    overloadedMethod _ = webContextGetProcessModel++#endif++-- method WebContext::get_security_manager+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "SecurityManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_security_manager" webkit_web_context_get_security_manager :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO (Ptr WebKit2.SecurityManager.SecurityManager)++{- |+Get the 'GI.WebKit2.Objects.SecurityManager.SecurityManager' of /@context@/.+-}+webContextGetSecurityManager ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m WebKit2.SecurityManager.SecurityManager+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.SecurityManager.SecurityManager' of /@context@/. -}+webContextGetSecurityManager context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_security_manager context'+    checkUnexpectedReturnNULL "webContextGetSecurityManager" result+    result' <- (newObject WebKit2.SecurityManager.SecurityManager) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetSecurityManagerMethodInfo+instance (signature ~ (m WebKit2.SecurityManager.SecurityManager), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetSecurityManagerMethodInfo a signature where+    overloadedMethod _ = webContextGetSecurityManager++#endif++-- method WebContext::get_spell_checking_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_spell_checking_enabled" webkit_web_context_get_spell_checking_enabled :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO CInt++{- |+Get whether spell checking feature is currently enabled.+-}+webContextGetSpellCheckingEnabled ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m Bool+    {- ^ __Returns:__ 'True' If spell checking is enabled, or 'False' otherwise. -}+webContextGetSpellCheckingEnabled context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_spell_checking_enabled context'+    let result' = (/= 0) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetSpellCheckingEnabledMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetSpellCheckingEnabledMethodInfo a signature where+    overloadedMethod _ = webContextGetSpellCheckingEnabled++#endif++-- method WebContext::get_spell_checking_languages+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_spell_checking_languages" webkit_web_context_get_spell_checking_languages :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO (Ptr CString)++{- |+Get the the list of spell checking languages associated with+/@context@/, or 'Nothing' if no languages have been previously set.++See 'GI.WebKit2.Objects.WebContext.webContextSetSpellCheckingLanguages' for more+details on the format of the languages in the list.+-}+webContextGetSpellCheckingLanguages ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m (Maybe [T.Text])+    {- ^ __Returns:__ A 'Nothing'-terminated+   array of languages if available, or 'Nothing' otherwise. -}+webContextGetSpellCheckingLanguages context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_spell_checking_languages context'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- unpackZeroTerminatedUTF8CArray result'+        return result''+    touchManagedPtr context+    return maybeResult++#if ENABLE_OVERLOADING+data WebContextGetSpellCheckingLanguagesMethodInfo+instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetSpellCheckingLanguagesMethodInfo a signature where+    overloadedMethod _ = webContextGetSpellCheckingLanguages++#endif++-- method WebContext::get_tls_errors_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "TLSErrorsPolicy"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_tls_errors_policy" webkit_web_context_get_tls_errors_policy :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO CUInt++{- |+Get the TLS errors policy of /@context@/+-}+webContextGetTlsErrorsPolicy ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m WebKit2.Enums.TLSErrorsPolicy+    {- ^ __Returns:__ a 'GI.WebKit2.Enums.TLSErrorsPolicy' -}+webContextGetTlsErrorsPolicy context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_tls_errors_policy context'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetTlsErrorsPolicyMethodInfo+instance (signature ~ (m WebKit2.Enums.TLSErrorsPolicy), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetTlsErrorsPolicyMethodInfo a signature where+    overloadedMethod _ = webContextGetTlsErrorsPolicy++#endif++-- method WebContext::get_web_process_count_limit+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_web_process_count_limit" webkit_web_context_get_web_process_count_limit :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO Word32++{- |+Gets the maximum number of web processes that can be created at the same time for the /@context@/.++/Since: 2.10/+-}+webContextGetWebProcessCountLimit ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m Word32+    {- ^ __Returns:__ the maximum limit of web processes, or 0 if there isn\'t a limit. -}+webContextGetWebProcessCountLimit context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_web_process_count_limit context'+    touchManagedPtr context+    return result++#if ENABLE_OVERLOADING+data WebContextGetWebProcessCountLimitMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetWebProcessCountLimitMethodInfo a signature where+    overloadedMethod _ = webContextGetWebProcessCountLimit++#endif++-- method WebContext::get_website_data_manager+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_website_data_manager" webkit_web_context_get_website_data_manager :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO (Ptr WebKit2.WebsiteDataManager.WebsiteDataManager)++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' of /@context@/.++/Since: 2.10/+-}+webContextGetWebsiteDataManager ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m WebKit2.WebsiteDataManager.WebsiteDataManager+    {- ^ __Returns:__ a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+webContextGetWebsiteDataManager context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_get_website_data_manager context'+    checkUnexpectedReturnNULL "webContextGetWebsiteDataManager" result+    result' <- (newObject WebKit2.WebsiteDataManager.WebsiteDataManager) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextGetWebsiteDataManagerMethodInfo+instance (signature ~ (m WebKit2.WebsiteDataManager.WebsiteDataManager), MonadIO m, IsWebContext a) => O.MethodInfo WebContextGetWebsiteDataManagerMethodInfo a signature where+    overloadedMethod _ = webContextGetWebsiteDataManager++#endif++-- method WebContext::initialize_notification_permissions+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed_origins", argType = TGList (TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GList of security origins", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disallowed_origins", argType = TGList (TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GList of security origins", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_initialize_notification_permissions" webkit_web_context_initialize_notification_permissions :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Ptr (GList (Ptr WebKit2.SecurityOrigin.SecurityOrigin)) -> -- allowed_origins : TGList (TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}))+    Ptr (GList (Ptr WebKit2.SecurityOrigin.SecurityOrigin)) -> -- disallowed_origins : TGList (TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}))+    IO ()++{- |+Sets initial desktop notification permissions for the /@context@/.+/@allowedOrigins@/ and /@disallowedOrigins@/ must each be 'GI.GLib.Structs.List.List' of+'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' objects representing origins that will,+respectively, either always or never have permission to show desktop+notifications. No 'GI.WebKit2.Objects.NotificationPermissionRequest.NotificationPermissionRequest' will ever be+generated for any of the security origins represented in+/@allowedOrigins@/ or /@disallowedOrigins@/. This function is necessary+because some webpages proactively check whether they have permission+to display notifications without ever creating a permission request.++This function only affects web processes that have not already been+created. The best time to call it is when handling+'GI.WebKit2.Objects.WebContext.WebContext'::@/initialize-notification-permissions/@ so as to+ensure that new web processes receive the most recent set of+permissions.++/Since: 2.16/+-}+webContextInitializeNotificationPermissions ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> [WebKit2.SecurityOrigin.SecurityOrigin]+    {- ^ /@allowedOrigins@/: a 'GI.GLib.Structs.List.List' of security origins -}+    -> [WebKit2.SecurityOrigin.SecurityOrigin]+    {- ^ /@disallowedOrigins@/: a 'GI.GLib.Structs.List.List' of security origins -}+    -> m ()+webContextInitializeNotificationPermissions context allowedOrigins disallowedOrigins = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    allowedOrigins' <- mapM unsafeManagedPtrGetPtr allowedOrigins+    allowedOrigins'' <- packGList allowedOrigins'+    disallowedOrigins' <- mapM unsafeManagedPtrGetPtr disallowedOrigins+    disallowedOrigins'' <- packGList disallowedOrigins'+    webkit_web_context_initialize_notification_permissions context' allowedOrigins'' disallowedOrigins''+    touchManagedPtr context+    mapM_ touchManagedPtr allowedOrigins+    mapM_ touchManagedPtr disallowedOrigins+    g_list_free allowedOrigins''+    g_list_free disallowedOrigins''+    return ()++#if ENABLE_OVERLOADING+data WebContextInitializeNotificationPermissionsMethodInfo+instance (signature ~ ([WebKit2.SecurityOrigin.SecurityOrigin] -> [WebKit2.SecurityOrigin.SecurityOrigin] -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextInitializeNotificationPermissionsMethodInfo a signature where+    overloadedMethod _ = webContextInitializeNotificationPermissions++#endif++-- method WebContext::is_automation_allowed+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_is_automation_allowed" webkit_web_context_is_automation_allowed :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO CInt++{- |+Get whether automation is allowed in /@context@/.+See also 'GI.WebKit2.Objects.WebContext.webContextSetAutomationAllowed'.++/Since: 2.18/+-}+webContextIsAutomationAllowed ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if automation is allowed or 'False' otherwise. -}+webContextIsAutomationAllowed context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_is_automation_allowed context'+    let result' = (/= 0) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextIsAutomationAllowedMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWebContext a) => O.MethodInfo WebContextIsAutomationAllowedMethodInfo a signature where+    overloadedMethod _ = webContextIsAutomationAllowed++#endif++-- method WebContext::is_ephemeral+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_is_ephemeral" webkit_web_context_is_ephemeral :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO CInt++{- |+Get whether a 'GI.WebKit2.Objects.WebContext.WebContext' is ephemeral.++/Since: 2.16/+-}+webContextIsEphemeral ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@context@/ is ephemeral or 'False' otherwise. -}+webContextIsEphemeral context = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    result <- webkit_web_context_is_ephemeral context'+    let result' = (/= 0) result+    touchManagedPtr context+    return result'++#if ENABLE_OVERLOADING+data WebContextIsEphemeralMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWebContext a) => O.MethodInfo WebContextIsEphemeralMethodInfo a signature where+    overloadedMethod _ = webContextIsEphemeral++#endif++-- method WebContext::prefetch_dns+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a hostname to be resolved", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_prefetch_dns" webkit_web_context_prefetch_dns :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CString ->                              -- hostname : TBasicType TUTF8+    IO ()++{- |+Resolve the domain name of the given /@hostname@/ in advance, so that if a URI+of /@hostname@/ is requested the load will be performed more quickly.+-}+webContextPrefetchDns ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> T.Text+    {- ^ /@hostname@/: a hostname to be resolved -}+    -> m ()+webContextPrefetchDns context hostname = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    hostname' <- textToCString hostname+    webkit_web_context_prefetch_dns context' hostname'+    touchManagedPtr context+    freeMem hostname'+    return ()++#if ENABLE_OVERLOADING+data WebContextPrefetchDnsMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextPrefetchDnsMethodInfo a signature where+    overloadedMethod _ = webContextPrefetchDns++#endif++-- method WebContext::register_uri_scheme+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the network scheme to register", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "WebKit2", name = "URISchemeRequestCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURISchemeRequestCallback", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy_func", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notify for @user_data", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_register_uri_scheme" webkit_web_context_register_uri_scheme :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CString ->                              -- scheme : TBasicType TUTF8+    FunPtr WebKit2.Callbacks.C_URISchemeRequestCallback -> -- callback : TInterface (Name {namespace = "WebKit2", name = "URISchemeRequestCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    FunPtr GLib.Callbacks.C_DestroyNotify -> -- user_data_destroy_func : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})+    IO ()++{- |+Register /@scheme@/ in /@context@/, so that when an URI request with /@scheme@/ is made in the+'GI.WebKit2.Objects.WebContext.WebContext', the 'GI.WebKit2.Callbacks.URISchemeRequestCallback' registered will be called with a+'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest'.+It is possible to handle URI scheme requests asynchronously, by calling 'GI.GObject.Objects.Object.objectRef' on the+'GI.WebKit2.Objects.URISchemeRequest.URISchemeRequest' and calling 'GI.WebKit2.Objects.URISchemeRequest.uRISchemeRequestFinish' later+when the data of the request is available or+'GI.WebKit2.Objects.URISchemeRequest.uRISchemeRequestFinishError' in case of error.++\<informalexample>\<programlisting>+static void+about_uri_scheme_request_cb (WebKitURISchemeRequest *request,+                             gpointer                user_data)+{+    GInputStream *stream;+    gsize         stream_length;+    const gchar  *path;++    path = webkit_uri_scheme_request_get_path (request);+    if (!g_strcmp0 (path, \"plugins\")) {+        \/\<!-- -->* Create a GInputStream with the contents of plugins about page, and set its length to stream_length *\<!-- -->\/+    } else if (!g_strcmp0 (path, \"memory\")) {+        \/\<!-- -->* Create a GInputStream with the contents of memory about page, and set its length to stream_length *\<!-- -->\/+    } else if (!g_strcmp0 (path, \"applications\")) {+        \/\<!-- -->* Create a GInputStream with the contents of applications about page, and set its length to stream_length *\<!-- -->\/+    } else if (!g_strcmp0 (path, \"example\")) {+        gchar *contents;++        contents = g_strdup_printf (\"&lt;html&gt;&lt;body&gt;&lt;p&gt;Example about page&lt;\/p&gt;&lt;\/body&gt;&lt;\/html&gt;\");+        stream_length = strlen (contents);+        stream = g_memory_input_stream_new_from_data (contents, stream_length, g_free);+    } else {+        GError *error;++        error = g_error_new (ABOUT_HANDLER_ERROR, ABOUT_HANDLER_ERROR_INVALID, \"Invalid about:@/s/@ page.\", path);+        webkit_uri_scheme_request_finish_error (request, error);+        g_error_free (error);+        return;+    }+    webkit_uri_scheme_request_finish (request, stream, stream_length, \"text\/html\");+    g_object_unref (stream);+}+\<\/programlisting>\<\/informalexample>+-}+webContextRegisterUriScheme ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> T.Text+    {- ^ /@scheme@/: the network scheme to register -}+    -> WebKit2.Callbacks.URISchemeRequestCallback+    {- ^ /@callback@/: a 'GI.WebKit2.Callbacks.URISchemeRequestCallback' -}+    -> m ()+webContextRegisterUriScheme context scheme callback = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    scheme' <- textToCString scheme+    callback' <- WebKit2.Callbacks.mk_URISchemeRequestCallback (WebKit2.Callbacks.wrap_URISchemeRequestCallback Nothing (WebKit2.Callbacks.drop_closures_URISchemeRequestCallback callback))+    let userData = castFunPtrToPtr callback'+    let userDataDestroyFunc = safeFreeFunPtrPtr+    webkit_web_context_register_uri_scheme context' scheme' callback' userData userDataDestroyFunc+    touchManagedPtr context+    freeMem scheme'+    return ()++#if ENABLE_OVERLOADING+data WebContextRegisterUriSchemeMethodInfo+instance (signature ~ (T.Text -> WebKit2.Callbacks.URISchemeRequestCallback -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextRegisterUriSchemeMethodInfo a signature where+    overloadedMethod _ = webContextRegisterUriScheme++#endif++-- method WebContext::set_additional_plugins_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the directory to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_additional_plugins_directory" webkit_web_context_set_additional_plugins_directory :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CString ->                              -- directory : TBasicType TUTF8+    IO ()++{- |+Set an additional directory where WebKit will look for plugins.+-}+webContextSetAdditionalPluginsDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> T.Text+    {- ^ /@directory@/: the directory to add -}+    -> m ()+webContextSetAdditionalPluginsDirectory context directory = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    directory' <- textToCString directory+    webkit_web_context_set_additional_plugins_directory context' directory'+    touchManagedPtr context+    freeMem directory'+    return ()++#if ENABLE_OVERLOADING+data WebContextSetAdditionalPluginsDirectoryMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetAdditionalPluginsDirectoryMethodInfo a signature where+    overloadedMethod _ = webContextSetAdditionalPluginsDirectory++#endif++-- method WebContext::set_automation_allowed+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "value to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_automation_allowed" webkit_web_context_set_automation_allowed :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CInt ->                                 -- allowed : TBasicType TBoolean+    IO ()++{- |+Set whether automation is allowed in /@context@/. When automation is enabled the browser could+be controlled by another process by requesting an automation session. When a new automation+session is requested the signal 'GI.WebKit2.Objects.WebContext.WebContext'::@/automation-started/@ is emitted.+Automation is disabled by default, so you need to explicitly call this method passing 'True'+to enable it.++Note that only one 'GI.WebKit2.Objects.WebContext.WebContext' can have automation enabled, so this will do nothing+if there\'s another 'GI.WebKit2.Objects.WebContext.WebContext' with automation already enabled.++/Since: 2.18/+-}+webContextSetAutomationAllowed ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> Bool+    {- ^ /@allowed@/: value to set -}+    -> m ()+webContextSetAutomationAllowed context allowed = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    let allowed' = (fromIntegral . fromEnum) allowed+    webkit_web_context_set_automation_allowed context' allowed'+    touchManagedPtr context+    return ()++#if ENABLE_OVERLOADING+data WebContextSetAutomationAllowedMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetAutomationAllowedMethodInfo a signature where+    overloadedMethod _ = webContextSetAutomationAllowed++#endif++-- method WebContext::set_cache_model+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_model", argType = TInterface (Name {namespace = "WebKit2", name = "CacheModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCacheModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_cache_model" webkit_web_context_set_cache_model :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CUInt ->                                -- cache_model : TInterface (Name {namespace = "WebKit2", name = "CacheModel"})+    IO ()++{- |+Specifies a usage model for WebViews, which WebKit will use to+determine its caching behavior. All web views follow the cache+model. This cache model determines the RAM and disk space to use+for caching previously viewed content .++Research indicates that users tend to browse within clusters of+documents that hold resources in common, and to revisit previously+visited documents. WebKit and the frameworks below it include+built-in caches that take advantage of these patterns,+substantially improving document load speed in browsing+situations. The WebKit cache model controls the behaviors of all of+these caches, including various WebCore caches.++Browsers can improve document load speed substantially by+specifying 'GI.WebKit2.Enums.CacheModelWebBrowser'. Applications without a+browsing interface can reduce memory usage substantially by+specifying 'GI.WebKit2.Enums.CacheModelDocumentViewer'. The default value is+'GI.WebKit2.Enums.CacheModelWebBrowser'.+-}+webContextSetCacheModel ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> WebKit2.Enums.CacheModel+    {- ^ /@cacheModel@/: a 'GI.WebKit2.Enums.CacheModel' -}+    -> m ()+webContextSetCacheModel context cacheModel = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    let cacheModel' = (fromIntegral . fromEnum) cacheModel+    webkit_web_context_set_cache_model context' cacheModel'+    touchManagedPtr context+    return ()++#if ENABLE_OVERLOADING+data WebContextSetCacheModelMethodInfo+instance (signature ~ (WebKit2.Enums.CacheModel -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetCacheModelMethodInfo a signature where+    overloadedMethod _ = webContextSetCacheModel++#endif++-- method WebContext::set_disk_cache_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the directory to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_disk_cache_directory" webkit_web_context_set_disk_cache_directory :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CString ->                              -- directory : TBasicType TUTF8+    IO ()++{-# DEPRECATED webContextSetDiskCacheDirectory ["(Since version 2.10.)","Use 'GI.WebKit2.Objects.WebContext.webContextNewWithWebsiteDataManager' instead."] #-}+{- |+Set the directory where disk cache files will be stored+This method must be called before loading anything in this context, otherwise+it will not have any effect.++Note that this method overrides the directory set in the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager',+but it doesn\'t change the value returned by 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetDiskCacheDirectory'+since the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' is immutable.+-}+webContextSetDiskCacheDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> T.Text+    {- ^ /@directory@/: the directory to set -}+    -> m ()+webContextSetDiskCacheDirectory context directory = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    directory' <- textToCString directory+    webkit_web_context_set_disk_cache_directory context' directory'+    touchManagedPtr context+    freeMem directory'+    return ()++#if ENABLE_OVERLOADING+data WebContextSetDiskCacheDirectoryMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetDiskCacheDirectoryMethodInfo a signature where+    overloadedMethod _ = webContextSetDiskCacheDirectory++#endif++-- method WebContext::set_favicon_database_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an absolute path to the icon database\ndirectory or %NULL to use the defaults", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_favicon_database_directory" webkit_web_context_set_favicon_database_directory :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CString ->                              -- path : TBasicType TUTF8+    IO ()++{- |+Set the directory path to be used to store the favicons database+for /@context@/ on disk. Passing 'Nothing' as /@path@/ means using the+default directory for the platform (see 'GI.GLib.Functions.getUserCacheDir').++Calling this method also means enabling the favicons database for+its use from the applications, so that\'s why it\'s expected to be+called only once. Further calls for the same instance of+'GI.WebKit2.Objects.WebContext.WebContext' won\'t cause any effect.+-}+webContextSetFaviconDatabaseDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> Maybe (T.Text)+    {- ^ /@path@/: an absolute path to the icon database+directory or 'Nothing' to use the defaults -}+    -> m ()+webContextSetFaviconDatabaseDirectory context path = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    maybePath <- case path of+        Nothing -> return nullPtr+        Just jPath -> do+            jPath' <- textToCString jPath+            return jPath'+    webkit_web_context_set_favicon_database_directory context' maybePath+    touchManagedPtr context+    freeMem maybePath+    return ()++#if ENABLE_OVERLOADING+data WebContextSetFaviconDatabaseDirectoryMethodInfo+instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetFaviconDatabaseDirectoryMethodInfo a signature where+    overloadedMethod _ = webContextSetFaviconDatabaseDirectory++#endif++-- method WebContext::set_network_proxy_settings+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_mode", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxyMode"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNetworkProxyMode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_settings", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #WebKitNetworkProxySettings, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_network_proxy_settings" webkit_web_context_set_network_proxy_settings :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CUInt ->                                -- proxy_mode : TInterface (Name {namespace = "WebKit2", name = "NetworkProxyMode"})+    Ptr WebKit2.NetworkProxySettings.NetworkProxySettings -> -- proxy_settings : TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"})+    IO ()++{- |+Set the network proxy settings to be used by connections started in /@context@/.+By default 'GI.WebKit2.Enums.NetworkProxyModeDefault' is used, which means that the+system settings will be used ('GI.Gio.Functions.proxyResolverGetDefault').+If you want to override the system default settings, you can either use+'GI.WebKit2.Enums.NetworkProxyModeNoProxy' to make sure no proxies are used at all,+or 'GI.WebKit2.Enums.NetworkProxyModeCustom' to provide your own proxy settings.+When /@proxyMode@/ is 'GI.WebKit2.Enums.NetworkProxyModeCustom' /@proxySettings@/ must be+a valid 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings'; otherwise, /@proxySettings@/ must be 'Nothing'.++/Since: 2.16/+-}+webContextSetNetworkProxySettings ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> WebKit2.Enums.NetworkProxyMode+    {- ^ /@proxyMode@/: a 'GI.WebKit2.Enums.NetworkProxyMode' -}+    -> Maybe (WebKit2.NetworkProxySettings.NetworkProxySettings)+    {- ^ /@proxySettings@/: a 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings', or 'Nothing' -}+    -> m ()+webContextSetNetworkProxySettings context proxyMode proxySettings = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    let proxyMode' = (fromIntegral . fromEnum) proxyMode+    maybeProxySettings <- case proxySettings of+        Nothing -> return nullPtr+        Just jProxySettings -> do+            jProxySettings' <- unsafeManagedPtrGetPtr jProxySettings+            return jProxySettings'+    webkit_web_context_set_network_proxy_settings context' proxyMode' maybeProxySettings+    touchManagedPtr context+    whenJust proxySettings touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data WebContextSetNetworkProxySettingsMethodInfo+instance (signature ~ (WebKit2.Enums.NetworkProxyMode -> Maybe (WebKit2.NetworkProxySettings.NetworkProxySettings) -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetNetworkProxySettingsMethodInfo a signature where+    overloadedMethod _ = webContextSetNetworkProxySettings++#endif++-- method WebContext::set_preferred_languages+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a %NULL-terminated list of language identifiers", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_preferred_languages" webkit_web_context_set_preferred_languages :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO ()++{- |+Set the list of preferred languages, sorted from most desirable+to least desirable. The list will be used to build the \"Accept-Language\"+header that will be included in the network requests started by+the 'GI.WebKit2.Objects.WebContext.WebContext'.+-}+webContextSetPreferredLanguages ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> Maybe ([T.Text])+    {- ^ /@languages@/: a 'Nothing'-terminated list of language identifiers -}+    -> m ()+webContextSetPreferredLanguages context languages = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    maybeLanguages <- case languages of+        Nothing -> return nullPtr+        Just jLanguages -> do+            jLanguages' <- packZeroTerminatedUTF8CArray jLanguages+            return jLanguages'+    webkit_web_context_set_preferred_languages context' maybeLanguages+    touchManagedPtr context+    mapZeroTerminatedCArray freeMem maybeLanguages+    freeMem maybeLanguages+    return ()++#if ENABLE_OVERLOADING+data WebContextSetPreferredLanguagesMethodInfo+instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetPreferredLanguagesMethodInfo a signature where+    overloadedMethod _ = webContextSetPreferredLanguages++#endif++-- method WebContext::set_process_model+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "process_model", argType = TInterface (Name {namespace = "WebKit2", name = "ProcessModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitProcessModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_process_model" webkit_web_context_set_process_model :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CUInt ->                                -- process_model : TInterface (Name {namespace = "WebKit2", name = "ProcessModel"})+    IO ()++{- |+Specifies a process model for WebViews, which WebKit will use to+determine how auxiliary processes are handled. The default setting+('GI.WebKit2.Enums.ProcessModelSharedSecondaryProcess') is suitable for most+applications which embed a small amount of WebViews, or are used to+display documents which are considered safe — like local files.++Applications which may potentially use a large amount of WebViews+—for example a multi-tabbed web browser— may want to use+'GI.WebKit2.Enums.ProcessModelMultipleSecondaryProcesses', which will use+one process per view most of the time, while still allowing for web+views to share a process when needed (for example when different+views interact with each other). Using this model, when a process+hangs or crashes, only the WebViews using it stop working, while+the rest of the WebViews in the application will still function+normally.++This method **must be called before any web process has been created**,+as early as possible in your application. Calling it later will make+your application crash.++/Since: 2.4/+-}+webContextSetProcessModel ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> WebKit2.Enums.ProcessModel+    {- ^ /@processModel@/: a 'GI.WebKit2.Enums.ProcessModel' -}+    -> m ()+webContextSetProcessModel context processModel = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    let processModel' = (fromIntegral . fromEnum) processModel+    webkit_web_context_set_process_model context' processModel'+    touchManagedPtr context+    return ()++#if ENABLE_OVERLOADING+data WebContextSetProcessModelMethodInfo+instance (signature ~ (WebKit2.Enums.ProcessModel -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetProcessModelMethodInfo a signature where+    overloadedMethod _ = webContextSetProcessModel++#endif++-- method WebContext::set_spell_checking_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_spell_checking_enabled" webkit_web_context_set_spell_checking_enabled :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()++{- |+Enable or disable the spell checking feature.+-}+webContextSetSpellCheckingEnabled ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> Bool+    {- ^ /@enabled@/: Value to be set -}+    -> m ()+webContextSetSpellCheckingEnabled context enabled = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_web_context_set_spell_checking_enabled context' enabled'+    touchManagedPtr context+    return ()++#if ENABLE_OVERLOADING+data WebContextSetSpellCheckingEnabledMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetSpellCheckingEnabledMethodInfo a signature where+    overloadedMethod _ = webContextSetSpellCheckingEnabled++#endif++-- method WebContext::set_spell_checking_languages+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %NULL-terminated list of spell checking languages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_spell_checking_languages" webkit_web_context_set_spell_checking_languages :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO ()++{- |+Set the list of spell checking languages to be used for spell+checking.++The locale string typically is in the form lang_COUNTRY, where lang+is an ISO-639 language code, and COUNTRY is an ISO-3166 country code.+For instance, sv_FI for Swedish as written in Finland or pt_BR+for Portuguese as written in Brazil.++You need to call this function with a valid list of languages at+least once in order to properly enable the spell checking feature+in WebKit.+-}+webContextSetSpellCheckingLanguages ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> [T.Text]+    {- ^ /@languages@/: a 'Nothing'-terminated list of spell checking languages -}+    -> m ()+webContextSetSpellCheckingLanguages context languages = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    languages' <- packZeroTerminatedUTF8CArray languages+    webkit_web_context_set_spell_checking_languages context' languages'+    touchManagedPtr context+    mapZeroTerminatedCArray freeMem languages'+    freeMem languages'+    return ()++#if ENABLE_OVERLOADING+data WebContextSetSpellCheckingLanguagesMethodInfo+instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetSpellCheckingLanguagesMethodInfo a signature where+    overloadedMethod _ = webContextSetSpellCheckingLanguages++#endif++-- method WebContext::set_tls_errors_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface (Name {namespace = "WebKit2", name = "TLSErrorsPolicy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitTLSErrorsPolicy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_tls_errors_policy" webkit_web_context_set_tls_errors_policy :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CUInt ->                                -- policy : TInterface (Name {namespace = "WebKit2", name = "TLSErrorsPolicy"})+    IO ()++{- |+Set the TLS errors policy of /@context@/ as /@policy@/+-}+webContextSetTlsErrorsPolicy ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> WebKit2.Enums.TLSErrorsPolicy+    {- ^ /@policy@/: a 'GI.WebKit2.Enums.TLSErrorsPolicy' -}+    -> m ()+webContextSetTlsErrorsPolicy context policy = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    let policy' = (fromIntegral . fromEnum) policy+    webkit_web_context_set_tls_errors_policy context' policy'+    touchManagedPtr context+    return ()++#if ENABLE_OVERLOADING+data WebContextSetTlsErrorsPolicyMethodInfo+instance (signature ~ (WebKit2.Enums.TLSErrorsPolicy -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetTlsErrorsPolicyMethodInfo a signature where+    overloadedMethod _ = webContextSetTlsErrorsPolicy++#endif++-- method WebContext::set_web_extensions_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the directory to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_web_extensions_directory" webkit_web_context_set_web_extensions_directory :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    CString ->                              -- directory : TBasicType TUTF8+    IO ()++{- |+Set the directory where WebKit will look for Web Extensions.+This method must be called before loading anything in this context,+otherwise it will not have any effect. You can connect to+'GI.WebKit2.Objects.WebContext.WebContext'::@/initialize-web-extensions/@ to call this method+before anything is loaded.+-}+webContextSetWebExtensionsDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> T.Text+    {- ^ /@directory@/: the directory to add -}+    -> m ()+webContextSetWebExtensionsDirectory context directory = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    directory' <- textToCString directory+    webkit_web_context_set_web_extensions_directory context' directory'+    touchManagedPtr context+    freeMem directory'+    return ()++#if ENABLE_OVERLOADING+data WebContextSetWebExtensionsDirectoryMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetWebExtensionsDirectoryMethodInfo a signature where+    overloadedMethod _ = webContextSetWebExtensionsDirectory++#endif++-- method WebContext::set_web_extensions_initialization_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_web_extensions_initialization_user_data" webkit_web_context_set_web_extensions_initialization_user_data :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Ptr GVariant ->                         -- user_data : TVariant+    IO ()++{- |+Set user data to be passed to Web Extensions on initialization.+The data will be passed to the+@/WebKitWebExtensionInitializeWithUserDataFunction/@.+This method must be called before loading anything in this context,+otherwise it will not have any effect. You can connect to+'GI.WebKit2.Objects.WebContext.WebContext'::@/initialize-web-extensions/@ to call this method+before anything is loaded.++/Since: 2.4/+-}+webContextSetWebExtensionsInitializationUserData ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: a 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> GVariant+    {- ^ /@userData@/: a 'GVariant' -}+    -> m ()+webContextSetWebExtensionsInitializationUserData context userData = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    userData' <- unsafeManagedPtrGetPtr userData+    webkit_web_context_set_web_extensions_initialization_user_data context' userData'+    touchManagedPtr context+    touchManagedPtr userData+    return ()++#if ENABLE_OVERLOADING+data WebContextSetWebExtensionsInitializationUserDataMethodInfo+instance (signature ~ (GVariant -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetWebExtensionsInitializationUserDataMethodInfo a signature where+    overloadedMethod _ = webContextSetWebExtensionsInitializationUserData++#endif++-- method WebContext::set_web_process_count_limit+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum number of web processes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_set_web_process_count_limit" webkit_web_context_set_web_process_count_limit :: +    Ptr WebContext ->                       -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    Word32 ->                               -- limit : TBasicType TUInt+    IO ()++{- |+Sets the maximum number of web processes that can be created at the same time for the /@context@/.+The default value is 0 and means no limit.++This method **must be called before any web process has been created**,+as early as possible in your application. Calling it later will make+your application crash.++/Since: 2.10/+-}+webContextSetWebProcessCountLimit ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' -}+    -> Word32+    {- ^ /@limit@/: the maximum number of web processes -}+    -> m ()+webContextSetWebProcessCountLimit context limit = liftIO $ do+    context' <- unsafeManagedPtrCastPtr context+    webkit_web_context_set_web_process_count_limit context' limit+    touchManagedPtr context+    return ()++#if ENABLE_OVERLOADING+data WebContextSetWebProcessCountLimitMethodInfo+instance (signature ~ (Word32 -> m ()), MonadIO m, IsWebContext a) => O.MethodInfo WebContextSetWebProcessCountLimitMethodInfo a signature where+    overloadedMethod _ = webContextSetWebProcessCountLimit++#endif++-- method WebContext::get_default+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebContext"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_default" webkit_web_context_get_default :: +    IO (Ptr WebContext)++{- |+Gets the default web context+-}+webContextGetDefault ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m WebContext+    {- ^ __Returns:__ a 'GI.WebKit2.Objects.WebContext.WebContext' -}+webContextGetDefault  = liftIO $ do+    result <- webkit_web_context_get_default+    checkUnexpectedReturnNULL "webContextGetDefault" result+    result' <- (newObject WebContext) result+    return result'++#if ENABLE_OVERLOADING+#endif++
+ GI/WebKit2/Objects/WebContext.hs-boot view
@@ -0,0 +1,152 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.WebContext 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++newtype WebContext = WebContext (ManagedPtr WebContext)+instance GObject WebContext where+class (GObject o, O.IsDescendantOf WebContext o) => IsWebContext o+instance (GObject o, O.IsDescendantOf WebContext o) => IsWebContext o+instance O.HasParentTypes WebContext+#if ENABLE_OVERLOADING+data WebContextLocalStorageDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebContextWebsiteDataManagerPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebContextAutomationStartedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebContextDownloadStartedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebContextInitializeNotificationPermissionsSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebContextInitializeWebExtensionsSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebContextAllowTlsCertificateForHostMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextClearCacheMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextDownloadUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetCacheModelMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetCookieManagerMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetFaviconDatabaseMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetFaviconDatabaseDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetPluginsMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetPluginsFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetProcessModelMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetSecurityManagerMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetSpellCheckingEnabledMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetSpellCheckingLanguagesMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetTlsErrorsPolicyMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetWebProcessCountLimitMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextGetWebsiteDataManagerMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextInitializeNotificationPermissionsMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextIsAutomationAllowedMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextIsEphemeralMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextPrefetchDnsMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextRegisterUriSchemeMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetAdditionalPluginsDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetAutomationAllowedMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetCacheModelMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetDiskCacheDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetFaviconDatabaseDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetNetworkProxySettingsMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetPreferredLanguagesMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetProcessModelMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetSpellCheckingEnabledMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetSpellCheckingLanguagesMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetTlsErrorsPolicyMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetWebExtensionsDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetWebExtensionsInitializationUserDataMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebContextSetWebProcessCountLimitMethodInfo+#endif
+ GI/WebKit2/Objects/WebInspector.hs view
@@ -0,0 +1,1169 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.WebInspector+    ( ++-- * Exported types+    WebInspector(..)                        ,+    IsWebInspector                          ,+    toWebInspector                          ,+    noWebInspector                          ,+++ -- * Methods+-- ** attach #method:attach#++#if ENABLE_OVERLOADING+    WebInspectorAttachMethodInfo            ,+#endif+    webInspectorAttach                      ,+++-- ** close #method:close#++#if ENABLE_OVERLOADING+    WebInspectorCloseMethodInfo             ,+#endif+    webInspectorClose                       ,+++-- ** detach #method:detach#++#if ENABLE_OVERLOADING+    WebInspectorDetachMethodInfo            ,+#endif+    webInspectorDetach                      ,+++-- ** getAttachedHeight #method:getAttachedHeight#++#if ENABLE_OVERLOADING+    WebInspectorGetAttachedHeightMethodInfo ,+#endif+    webInspectorGetAttachedHeight           ,+++-- ** getCanAttach #method:getCanAttach#++#if ENABLE_OVERLOADING+    WebInspectorGetCanAttachMethodInfo      ,+#endif+    webInspectorGetCanAttach                ,+++-- ** getInspectedUri #method:getInspectedUri#++#if ENABLE_OVERLOADING+    WebInspectorGetInspectedUriMethodInfo   ,+#endif+    webInspectorGetInspectedUri             ,+++-- ** getWebView #method:getWebView#++#if ENABLE_OVERLOADING+    WebInspectorGetWebViewMethodInfo        ,+#endif+    webInspectorGetWebView                  ,+++-- ** isAttached #method:isAttached#++#if ENABLE_OVERLOADING+    WebInspectorIsAttachedMethodInfo        ,+#endif+    webInspectorIsAttached                  ,+++-- ** show #method:show#++#if ENABLE_OVERLOADING+    WebInspectorShowMethodInfo              ,+#endif+    webInspectorShow                        ,+++++ -- * Properties+-- ** attachedHeight #attr:attachedHeight#+{- | The height that the inspector view should have when it is attached.+-}+#if ENABLE_OVERLOADING+    WebInspectorAttachedHeightPropertyInfo  ,+#endif+    getWebInspectorAttachedHeight           ,+#if ENABLE_OVERLOADING+    webInspectorAttachedHeight              ,+#endif+++-- ** canAttach #attr:canAttach#+{- | Whether the /@inspector@/ can be attached to the same window that contains+the inspected view.++/Since: 2.8/+-}+#if ENABLE_OVERLOADING+    WebInspectorCanAttachPropertyInfo       ,+#endif+    getWebInspectorCanAttach                ,+#if ENABLE_OVERLOADING+    webInspectorCanAttach                   ,+#endif+++-- ** inspectedUri #attr:inspectedUri#+{- | The URI that is currently being inspected.+-}+#if ENABLE_OVERLOADING+    WebInspectorInspectedUriPropertyInfo    ,+#endif+    getWebInspectorInspectedUri             ,+#if ENABLE_OVERLOADING+    webInspectorInspectedUri                ,+#endif+++++ -- * Signals+-- ** attach #signal:attach#++    C_WebInspectorAttachCallback            ,+    WebInspectorAttachCallback              ,+#if ENABLE_OVERLOADING+    WebInspectorAttachSignalInfo            ,+#endif+    afterWebInspectorAttach                 ,+    genClosure_WebInspectorAttach           ,+    mk_WebInspectorAttachCallback           ,+    noWebInspectorAttachCallback            ,+    onWebInspectorAttach                    ,+    wrap_WebInspectorAttachCallback         ,+++-- ** bringToFront #signal:bringToFront#++    C_WebInspectorBringToFrontCallback      ,+    WebInspectorBringToFrontCallback        ,+#if ENABLE_OVERLOADING+    WebInspectorBringToFrontSignalInfo      ,+#endif+    afterWebInspectorBringToFront           ,+    genClosure_WebInspectorBringToFront     ,+    mk_WebInspectorBringToFrontCallback     ,+    noWebInspectorBringToFrontCallback      ,+    onWebInspectorBringToFront              ,+    wrap_WebInspectorBringToFrontCallback   ,+++-- ** closed #signal:closed#++    C_WebInspectorClosedCallback            ,+    WebInspectorClosedCallback              ,+#if ENABLE_OVERLOADING+    WebInspectorClosedSignalInfo            ,+#endif+    afterWebInspectorClosed                 ,+    genClosure_WebInspectorClosed           ,+    mk_WebInspectorClosedCallback           ,+    noWebInspectorClosedCallback            ,+    onWebInspectorClosed                    ,+    wrap_WebInspectorClosedCallback         ,+++-- ** detach #signal:detach#++    C_WebInspectorDetachCallback            ,+    WebInspectorDetachCallback              ,+#if ENABLE_OVERLOADING+    WebInspectorDetachSignalInfo            ,+#endif+    afterWebInspectorDetach                 ,+    genClosure_WebInspectorDetach           ,+    mk_WebInspectorDetachCallback           ,+    noWebInspectorDetachCallback            ,+    onWebInspectorDetach                    ,+    wrap_WebInspectorDetachCallback         ,+++-- ** openWindow #signal:openWindow#++    C_WebInspectorOpenWindowCallback        ,+    WebInspectorOpenWindowCallback          ,+#if ENABLE_OVERLOADING+    WebInspectorOpenWindowSignalInfo        ,+#endif+    afterWebInspectorOpenWindow             ,+    genClosure_WebInspectorOpenWindow       ,+    mk_WebInspectorOpenWindowCallback       ,+    noWebInspectorOpenWindowCallback        ,+    onWebInspectorOpenWindow                ,+    wrap_WebInspectorOpenWindowCallback     ,+++++    ) 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.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebViewBase as WebKit2.WebViewBase++-- | Memory-managed wrapper type.+newtype WebInspector = WebInspector (ManagedPtr WebInspector)+foreign import ccall "webkit_web_inspector_get_type"+    c_webkit_web_inspector_get_type :: IO GType++instance GObject WebInspector where+    gobjectType = c_webkit_web_inspector_get_type+    ++-- | Type class for types which can be safely cast to `WebInspector`, for instance with `toWebInspector`.+class (GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o+instance (GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o++instance O.HasParentTypes WebInspector+type instance O.ParentTypes WebInspector = '[GObject.Object.Object]++-- | Cast to `WebInspector`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toWebInspector :: (MonadIO m, IsWebInspector o) => o -> m WebInspector+toWebInspector = liftIO . unsafeCastTo WebInspector++-- | A convenience alias for `Nothing` :: `Maybe` `WebInspector`.+noWebInspector :: Maybe WebInspector+noWebInspector = Nothing++#if ENABLE_OVERLOADING+type family ResolveWebInspectorMethod (t :: Symbol) (o :: *) :: * where+    ResolveWebInspectorMethod "attach" o = WebInspectorAttachMethodInfo+    ResolveWebInspectorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveWebInspectorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveWebInspectorMethod "close" o = WebInspectorCloseMethodInfo+    ResolveWebInspectorMethod "detach" o = WebInspectorDetachMethodInfo+    ResolveWebInspectorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveWebInspectorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveWebInspectorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveWebInspectorMethod "isAttached" o = WebInspectorIsAttachedMethodInfo+    ResolveWebInspectorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveWebInspectorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveWebInspectorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveWebInspectorMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveWebInspectorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveWebInspectorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveWebInspectorMethod "show" o = WebInspectorShowMethodInfo+    ResolveWebInspectorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveWebInspectorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveWebInspectorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveWebInspectorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveWebInspectorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveWebInspectorMethod "getAttachedHeight" o = WebInspectorGetAttachedHeightMethodInfo+    ResolveWebInspectorMethod "getCanAttach" o = WebInspectorGetCanAttachMethodInfo+    ResolveWebInspectorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveWebInspectorMethod "getInspectedUri" o = WebInspectorGetInspectedUriMethodInfo+    ResolveWebInspectorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveWebInspectorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveWebInspectorMethod "getWebView" o = WebInspectorGetWebViewMethodInfo+    ResolveWebInspectorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveWebInspectorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveWebInspectorMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWebInspectorMethod t WebInspector, O.MethodInfo info WebInspector p) => OL.IsLabel t (WebInspector -> 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++-- signal WebInspector::attach+{- |+Emitted when the inspector is requested to be attached to the window+where the inspected web view is.+If this signal is not handled the inspector view will be automatically+attached to the inspected view, so you only need to handle this signal+if you want to attach the inspector view yourself (for example, to add+the inspector view to a browser tab).++To prevent the inspector view from being attached you can connect to this+signal and simply return 'True'.+-}+type WebInspectorAttachCallback =+    IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebInspectorAttachCallback`@.+noWebInspectorAttachCallback :: Maybe WebInspectorAttachCallback+noWebInspectorAttachCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebInspectorAttachCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebInspectorAttachCallback`.+foreign import ccall "wrapper"+    mk_WebInspectorAttachCallback :: C_WebInspectorAttachCallback -> IO (FunPtr C_WebInspectorAttachCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebInspectorAttach :: MonadIO m => WebInspectorAttachCallback -> m (GClosure C_WebInspectorAttachCallback)+genClosure_WebInspectorAttach cb = liftIO $ do+    let cb' = wrap_WebInspectorAttachCallback cb+    mk_WebInspectorAttachCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebInspectorAttachCallback` into a `C_WebInspectorAttachCallback`.+wrap_WebInspectorAttachCallback ::+    WebInspectorAttachCallback ->+    C_WebInspectorAttachCallback+wrap_WebInspectorAttachCallback _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@attach@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webInspector #attach callback+@+-}+onWebInspectorAttach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId+onWebInspectorAttach obj cb = liftIO $ do+    let cb' = wrap_WebInspectorAttachCallback cb+    cb'' <- mk_WebInspectorAttachCallback cb'+    connectSignalFunPtr obj "attach" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@attach@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webInspector #attach callback+@+-}+afterWebInspectorAttach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId+afterWebInspectorAttach obj cb = liftIO $ do+    let cb' = wrap_WebInspectorAttachCallback cb+    cb'' <- mk_WebInspectorAttachCallback cb'+    connectSignalFunPtr obj "attach" cb'' SignalConnectAfter+++-- signal WebInspector::bring-to-front+{- |+Emitted when the inspector should be shown.++If the inspector is not attached the inspector window should be shown+on top of any other windows.+If the inspector is attached the inspector view should be made visible.+For example, if the inspector view is attached using a tab in a browser+window, the browser window should be raised and the tab containing the+inspector view should be the active one.+In both cases, if this signal is not handled, the default implementation+calls 'GI.Gtk.Objects.Window.windowPresent' on the current toplevel 'GI.Gtk.Objects.Window.Window' of the+inspector view.+-}+type WebInspectorBringToFrontCallback =+    IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebInspectorBringToFrontCallback`@.+noWebInspectorBringToFrontCallback :: Maybe WebInspectorBringToFrontCallback+noWebInspectorBringToFrontCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebInspectorBringToFrontCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebInspectorBringToFrontCallback`.+foreign import ccall "wrapper"+    mk_WebInspectorBringToFrontCallback :: C_WebInspectorBringToFrontCallback -> IO (FunPtr C_WebInspectorBringToFrontCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebInspectorBringToFront :: MonadIO m => WebInspectorBringToFrontCallback -> m (GClosure C_WebInspectorBringToFrontCallback)+genClosure_WebInspectorBringToFront cb = liftIO $ do+    let cb' = wrap_WebInspectorBringToFrontCallback cb+    mk_WebInspectorBringToFrontCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebInspectorBringToFrontCallback` into a `C_WebInspectorBringToFrontCallback`.+wrap_WebInspectorBringToFrontCallback ::+    WebInspectorBringToFrontCallback ->+    C_WebInspectorBringToFrontCallback+wrap_WebInspectorBringToFrontCallback _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@bring-to-front@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webInspector #bringToFront callback+@+-}+onWebInspectorBringToFront :: (IsWebInspector a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId+onWebInspectorBringToFront obj cb = liftIO $ do+    let cb' = wrap_WebInspectorBringToFrontCallback cb+    cb'' <- mk_WebInspectorBringToFrontCallback cb'+    connectSignalFunPtr obj "bring-to-front" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@bring-to-front@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webInspector #bringToFront callback+@+-}+afterWebInspectorBringToFront :: (IsWebInspector a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId+afterWebInspectorBringToFront obj cb = liftIO $ do+    let cb' = wrap_WebInspectorBringToFrontCallback cb+    cb'' <- mk_WebInspectorBringToFrontCallback cb'+    connectSignalFunPtr obj "bring-to-front" cb'' SignalConnectAfter+++-- signal WebInspector::closed+{- |+Emitted when the inspector page is closed. If you are using your own+inspector window, you should connect to this signal and destroy your+window.+-}+type WebInspectorClosedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebInspectorClosedCallback`@.+noWebInspectorClosedCallback :: Maybe WebInspectorClosedCallback+noWebInspectorClosedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebInspectorClosedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebInspectorClosedCallback`.+foreign import ccall "wrapper"+    mk_WebInspectorClosedCallback :: C_WebInspectorClosedCallback -> IO (FunPtr C_WebInspectorClosedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebInspectorClosed :: MonadIO m => WebInspectorClosedCallback -> m (GClosure C_WebInspectorClosedCallback)+genClosure_WebInspectorClosed cb = liftIO $ do+    let cb' = wrap_WebInspectorClosedCallback cb+    mk_WebInspectorClosedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebInspectorClosedCallback` into a `C_WebInspectorClosedCallback`.+wrap_WebInspectorClosedCallback ::+    WebInspectorClosedCallback ->+    C_WebInspectorClosedCallback+wrap_WebInspectorClosedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@closed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webInspector #closed callback+@+-}+onWebInspectorClosed :: (IsWebInspector a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId+onWebInspectorClosed obj cb = liftIO $ do+    let cb' = wrap_WebInspectorClosedCallback cb+    cb'' <- mk_WebInspectorClosedCallback cb'+    connectSignalFunPtr obj "closed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@closed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webInspector #closed callback+@+-}+afterWebInspectorClosed :: (IsWebInspector a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId+afterWebInspectorClosed obj cb = liftIO $ do+    let cb' = wrap_WebInspectorClosedCallback cb+    cb'' <- mk_WebInspectorClosedCallback cb'+    connectSignalFunPtr obj "closed" cb'' SignalConnectAfter+++-- signal WebInspector::detach+{- |+Emitted when the inspector is requested to be detached from the window+it is currently attached to. The inspector is detached when the inspector page+is about to be closed, and this signal is emitted right before+'GI.WebKit2.Objects.WebInspector.WebInspector'::@/closed/@, or when the user clicks on the detach button+in the inspector view to show the inspector in a separate window. In this case+the signal 'GI.WebKit2.Objects.WebInspector.WebInspector'::@/open-window/@ is emitted after this one.++To prevent the inspector view from being detached you can connect to this+signal and simply return 'True'.+-}+type WebInspectorDetachCallback =+    IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebInspectorDetachCallback`@.+noWebInspectorDetachCallback :: Maybe WebInspectorDetachCallback+noWebInspectorDetachCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebInspectorDetachCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebInspectorDetachCallback`.+foreign import ccall "wrapper"+    mk_WebInspectorDetachCallback :: C_WebInspectorDetachCallback -> IO (FunPtr C_WebInspectorDetachCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebInspectorDetach :: MonadIO m => WebInspectorDetachCallback -> m (GClosure C_WebInspectorDetachCallback)+genClosure_WebInspectorDetach cb = liftIO $ do+    let cb' = wrap_WebInspectorDetachCallback cb+    mk_WebInspectorDetachCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebInspectorDetachCallback` into a `C_WebInspectorDetachCallback`.+wrap_WebInspectorDetachCallback ::+    WebInspectorDetachCallback ->+    C_WebInspectorDetachCallback+wrap_WebInspectorDetachCallback _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@detach@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webInspector #detach callback+@+-}+onWebInspectorDetach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId+onWebInspectorDetach obj cb = liftIO $ do+    let cb' = wrap_WebInspectorDetachCallback cb+    cb'' <- mk_WebInspectorDetachCallback cb'+    connectSignalFunPtr obj "detach" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@detach@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webInspector #detach callback+@+-}+afterWebInspectorDetach :: (IsWebInspector a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId+afterWebInspectorDetach obj cb = liftIO $ do+    let cb' = wrap_WebInspectorDetachCallback cb+    cb'' <- mk_WebInspectorDetachCallback cb'+    connectSignalFunPtr obj "detach" cb'' SignalConnectAfter+++-- signal WebInspector::open-window+{- |+Emitted when the inspector is requested to open in a separate window.+If this signal is not handled, a 'GI.Gtk.Objects.Window.Window' with the inspector will be+created and shown, so you only need to handle this signal if you want+to use your own window.+This signal is emitted after 'GI.WebKit2.Objects.WebInspector.WebInspector'::@/detach/@ to show+the inspector in a separate window after being detached.++To prevent the inspector from being shown you can connect to this+signal and simply return 'True'+-}+type WebInspectorOpenWindowCallback =+    IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebInspectorOpenWindowCallback`@.+noWebInspectorOpenWindowCallback :: Maybe WebInspectorOpenWindowCallback+noWebInspectorOpenWindowCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebInspectorOpenWindowCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebInspectorOpenWindowCallback`.+foreign import ccall "wrapper"+    mk_WebInspectorOpenWindowCallback :: C_WebInspectorOpenWindowCallback -> IO (FunPtr C_WebInspectorOpenWindowCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebInspectorOpenWindow :: MonadIO m => WebInspectorOpenWindowCallback -> m (GClosure C_WebInspectorOpenWindowCallback)+genClosure_WebInspectorOpenWindow cb = liftIO $ do+    let cb' = wrap_WebInspectorOpenWindowCallback cb+    mk_WebInspectorOpenWindowCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebInspectorOpenWindowCallback` into a `C_WebInspectorOpenWindowCallback`.+wrap_WebInspectorOpenWindowCallback ::+    WebInspectorOpenWindowCallback ->+    C_WebInspectorOpenWindowCallback+wrap_WebInspectorOpenWindowCallback _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@open-window@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webInspector #openWindow callback+@+-}+onWebInspectorOpenWindow :: (IsWebInspector a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId+onWebInspectorOpenWindow obj cb = liftIO $ do+    let cb' = wrap_WebInspectorOpenWindowCallback cb+    cb'' <- mk_WebInspectorOpenWindowCallback cb'+    connectSignalFunPtr obj "open-window" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@open-window@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webInspector #openWindow callback+@+-}+afterWebInspectorOpenWindow :: (IsWebInspector a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId+afterWebInspectorOpenWindow obj cb = liftIO $ do+    let cb' = wrap_WebInspectorOpenWindowCallback cb+    cb'' <- mk_WebInspectorOpenWindowCallback cb'+    connectSignalFunPtr obj "open-window" cb'' SignalConnectAfter+++-- VVV Prop "attached-height"+   -- Type: TBasicType TUInt+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@attached-height@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webInspector #attachedHeight+@+-}+getWebInspectorAttachedHeight :: (MonadIO m, IsWebInspector o) => o -> m Word32+getWebInspectorAttachedHeight obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "attached-height"++#if ENABLE_OVERLOADING+data WebInspectorAttachedHeightPropertyInfo+instance AttrInfo WebInspectorAttachedHeightPropertyInfo where+    type AttrAllowedOps WebInspectorAttachedHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebInspectorAttachedHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebInspectorAttachedHeightPropertyInfo = IsWebInspector+    type AttrGetType WebInspectorAttachedHeightPropertyInfo = Word32+    type AttrLabel WebInspectorAttachedHeightPropertyInfo = "attached-height"+    type AttrOrigin WebInspectorAttachedHeightPropertyInfo = WebInspector+    attrGet _ = getWebInspectorAttachedHeight+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "can-attach"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@can-attach@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webInspector #canAttach+@+-}+getWebInspectorCanAttach :: (MonadIO m, IsWebInspector o) => o -> m Bool+getWebInspectorCanAttach obj = liftIO $ B.Properties.getObjectPropertyBool obj "can-attach"++#if ENABLE_OVERLOADING+data WebInspectorCanAttachPropertyInfo+instance AttrInfo WebInspectorCanAttachPropertyInfo where+    type AttrAllowedOps WebInspectorCanAttachPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebInspectorCanAttachPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebInspectorCanAttachPropertyInfo = IsWebInspector+    type AttrGetType WebInspectorCanAttachPropertyInfo = Bool+    type AttrLabel WebInspectorCanAttachPropertyInfo = "can-attach"+    type AttrOrigin WebInspectorCanAttachPropertyInfo = WebInspector+    attrGet _ = getWebInspectorCanAttach+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "inspected-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@inspected-uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webInspector #inspectedUri+@+-}+getWebInspectorInspectedUri :: (MonadIO m, IsWebInspector o) => o -> m (Maybe T.Text)+getWebInspectorInspectedUri obj = liftIO $ B.Properties.getObjectPropertyString obj "inspected-uri"++#if ENABLE_OVERLOADING+data WebInspectorInspectedUriPropertyInfo+instance AttrInfo WebInspectorInspectedUriPropertyInfo where+    type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = IsWebInspector+    type AttrGetType WebInspectorInspectedUriPropertyInfo = (Maybe T.Text)+    type AttrLabel WebInspectorInspectedUriPropertyInfo = "inspected-uri"+    type AttrOrigin WebInspectorInspectedUriPropertyInfo = WebInspector+    attrGet _ = getWebInspectorInspectedUri+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList WebInspector+type instance O.AttributeList WebInspector = WebInspectorAttributeList+type WebInspectorAttributeList = ('[ '("attachedHeight", WebInspectorAttachedHeightPropertyInfo), '("canAttach", WebInspectorCanAttachPropertyInfo), '("inspectedUri", WebInspectorInspectedUriPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+webInspectorAttachedHeight :: AttrLabelProxy "attachedHeight"+webInspectorAttachedHeight = AttrLabelProxy++webInspectorCanAttach :: AttrLabelProxy "canAttach"+webInspectorCanAttach = AttrLabelProxy++webInspectorInspectedUri :: AttrLabelProxy "inspectedUri"+webInspectorInspectedUri = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data WebInspectorAttachSignalInfo+instance SignalInfo WebInspectorAttachSignalInfo where+    type HaskellCallbackType WebInspectorAttachSignalInfo = WebInspectorAttachCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebInspectorAttachCallback cb+        cb'' <- mk_WebInspectorAttachCallback cb'+        connectSignalFunPtr obj "attach" cb'' connectMode++data WebInspectorBringToFrontSignalInfo+instance SignalInfo WebInspectorBringToFrontSignalInfo where+    type HaskellCallbackType WebInspectorBringToFrontSignalInfo = WebInspectorBringToFrontCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebInspectorBringToFrontCallback cb+        cb'' <- mk_WebInspectorBringToFrontCallback cb'+        connectSignalFunPtr obj "bring-to-front" cb'' connectMode++data WebInspectorClosedSignalInfo+instance SignalInfo WebInspectorClosedSignalInfo where+    type HaskellCallbackType WebInspectorClosedSignalInfo = WebInspectorClosedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebInspectorClosedCallback cb+        cb'' <- mk_WebInspectorClosedCallback cb'+        connectSignalFunPtr obj "closed" cb'' connectMode++data WebInspectorDetachSignalInfo+instance SignalInfo WebInspectorDetachSignalInfo where+    type HaskellCallbackType WebInspectorDetachSignalInfo = WebInspectorDetachCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebInspectorDetachCallback cb+        cb'' <- mk_WebInspectorDetachCallback cb'+        connectSignalFunPtr obj "detach" cb'' connectMode++data WebInspectorOpenWindowSignalInfo+instance SignalInfo WebInspectorOpenWindowSignalInfo where+    type HaskellCallbackType WebInspectorOpenWindowSignalInfo = WebInspectorOpenWindowCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebInspectorOpenWindowCallback cb+        cb'' <- mk_WebInspectorOpenWindowCallback cb'+        connectSignalFunPtr obj "open-window" cb'' connectMode++type instance O.SignalList WebInspector = WebInspectorSignalList+type WebInspectorSignalList = ('[ '("attach", WebInspectorAttachSignalInfo), '("bringToFront", WebInspectorBringToFrontSignalInfo), '("closed", WebInspectorClosedSignalInfo), '("detach", WebInspectorDetachSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("openWindow", WebInspectorOpenWindowSignalInfo)] :: [(Symbol, *)])++#endif++-- method WebInspector::attach+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_attach" webkit_web_inspector_attach :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO ()++{- |+Request /@inspector@/ to be attached. The signal 'GI.WebKit2.Objects.WebInspector.WebInspector'::@/attach/@+will be emitted. If the inspector is already attached it does nothing.+-}+webInspectorAttach ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m ()+webInspectorAttach inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    webkit_web_inspector_attach inspector'+    touchManagedPtr inspector+    return ()++#if ENABLE_OVERLOADING+data WebInspectorAttachMethodInfo+instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorAttachMethodInfo a signature where+    overloadedMethod _ = webInspectorAttach++#endif++-- method WebInspector::close+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO ()++{- |+Request /@inspector@/ to be closed.+-}+webInspectorClose ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m ()+webInspectorClose inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    webkit_web_inspector_close inspector'+    touchManagedPtr inspector+    return ()++#if ENABLE_OVERLOADING+data WebInspectorCloseMethodInfo+instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorCloseMethodInfo a signature where+    overloadedMethod _ = webInspectorClose++#endif++-- method WebInspector::detach+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_detach" webkit_web_inspector_detach :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO ()++{- |+Request /@inspector@/ to be detached. The signal 'GI.WebKit2.Objects.WebInspector.WebInspector'::@/detach/@+will be emitted. If the inspector is already detached it does nothing.+-}+webInspectorDetach ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m ()+webInspectorDetach inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    webkit_web_inspector_detach inspector'+    touchManagedPtr inspector+    return ()++#if ENABLE_OVERLOADING+data WebInspectorDetachMethodInfo+instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorDetachMethodInfo a signature where+    overloadedMethod _ = webInspectorDetach++#endif++-- method WebInspector::get_attached_height+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_get_attached_height" webkit_web_inspector_get_attached_height :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO Word32++{- |+Get the height that the inspector view should have when+it\'s attached. If the inspector view is not attached this+returns 0.+-}+webInspectorGetAttachedHeight ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m Word32+    {- ^ __Returns:__ the height of the inspector view when attached -}+webInspectorGetAttachedHeight inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    result <- webkit_web_inspector_get_attached_height inspector'+    touchManagedPtr inspector+    return result++#if ENABLE_OVERLOADING+data WebInspectorGetAttachedHeightMethodInfo+instance (signature ~ (m Word32), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetAttachedHeightMethodInfo a signature where+    overloadedMethod _ = webInspectorGetAttachedHeight++#endif++-- method WebInspector::get_can_attach+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_get_can_attach" webkit_web_inspector_get_can_attach :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO CInt++{- |+Whether the /@inspector@/ can be attached to the same window that contains+the inspected view.++/Since: 2.8/+-}+webInspectorGetCanAttach ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if there is enough room for the inspector view inside the+    window that contains the inspected view, or 'False' otherwise. -}+webInspectorGetCanAttach inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    result <- webkit_web_inspector_get_can_attach inspector'+    let result' = (/= 0) result+    touchManagedPtr inspector+    return result'++#if ENABLE_OVERLOADING+data WebInspectorGetCanAttachMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetCanAttachMethodInfo a signature where+    overloadedMethod _ = webInspectorGetCanAttach++#endif++-- method WebInspector::get_inspected_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO CString++{- |+Get the URI that is currently being inspected. This can be 'Nothing' if+nothing has been loaded yet in the inspected view, if the inspector+has been closed or when inspected view was loaded from a HTML string+instead of a URI.+-}+webInspectorGetInspectedUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the URI that is currently being inspected or 'Nothing' -}+webInspectorGetInspectedUri inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    result <- webkit_web_inspector_get_inspected_uri inspector'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr inspector+    return maybeResult++#if ENABLE_OVERLOADING+data WebInspectorGetInspectedUriMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetInspectedUriMethodInfo a signature where+    overloadedMethod _ = webInspectorGetInspectedUri++#endif++-- method WebInspector::get_web_view+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebViewBase"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO (Ptr WebKit2.WebViewBase.WebViewBase)++{- |+Get the 'GI.WebKit2.Objects.WebViewBase.WebViewBase' used to display the inspector.+This might be 'Nothing' if the inspector hasn\'t been loaded yet,+or it has been closed.+-}+webInspectorGetWebView ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m (Maybe WebKit2.WebViewBase.WebViewBase)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.WebViewBase.WebViewBase' used to display the inspector or 'Nothing' -}+webInspectorGetWebView inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    result <- webkit_web_inspector_get_web_view inspector'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.WebViewBase.WebViewBase) result'+        return result''+    touchManagedPtr inspector+    return maybeResult++#if ENABLE_OVERLOADING+data WebInspectorGetWebViewMethodInfo+instance (signature ~ (m (Maybe WebKit2.WebViewBase.WebViewBase)), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorGetWebViewMethodInfo a signature where+    overloadedMethod _ = webInspectorGetWebView++#endif++-- method WebInspector::is_attached+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_is_attached" webkit_web_inspector_is_attached :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO CInt++{- |+Whether the /@inspector@/ view is currently attached to the same window that contains+the inspected view.+-}+webInspectorIsAttached ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@inspector@/ is currently attached or 'False' otherwise -}+webInspectorIsAttached inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    result <- webkit_web_inspector_is_attached inspector'+    let result' = (/= 0) result+    touchManagedPtr inspector+    return result'++#if ENABLE_OVERLOADING+data WebInspectorIsAttachedMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorIsAttachedMethodInfo a signature where+    overloadedMethod _ = webInspectorIsAttached++#endif++-- method WebInspector::show+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "inspector", argType = TInterface (Name {namespace = "WebKit2", name = "WebInspector"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebInspector", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show :: +    Ptr WebInspector ->                     -- inspector : TInterface (Name {namespace = "WebKit2", name = "WebInspector"})+    IO ()++{- |+Request /@inspector@/ to be shown.+-}+webInspectorShow ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebInspector a) =>+    a+    {- ^ /@inspector@/: a 'GI.WebKit2.Objects.WebInspector.WebInspector' -}+    -> m ()+webInspectorShow inspector = liftIO $ do+    inspector' <- unsafeManagedPtrCastPtr inspector+    webkit_web_inspector_show inspector'+    touchManagedPtr inspector+    return ()++#if ENABLE_OVERLOADING+data WebInspectorShowMethodInfo+instance (signature ~ (m ()), MonadIO m, IsWebInspector a) => O.MethodInfo WebInspectorShowMethodInfo a signature where+    overloadedMethod _ = webInspectorShow++#endif++
+ GI/WebKit2/Objects/WebInspector.hs-boot view
@@ -0,0 +1,80 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.WebInspector 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++newtype WebInspector = WebInspector (ManagedPtr WebInspector)+instance GObject WebInspector where+class (GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o+instance (GObject o, O.IsDescendantOf WebInspector o) => IsWebInspector o+instance O.HasParentTypes WebInspector+#if ENABLE_OVERLOADING+data WebInspectorAttachedHeightPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorCanAttachPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorInspectedUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorAttachSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorBringToFrontSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorClosedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorDetachSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorOpenWindowSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorAttachMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorCloseMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorDetachMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorGetAttachedHeightMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorGetCanAttachMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorGetInspectedUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorGetWebViewMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorIsAttachedMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebInspectorShowMethodInfo+#endif
+ GI/WebKit2/Objects/WebResource.hs view
@@ -0,0 +1,951 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.WebResource+    ( ++-- * Exported types+    WebResource(..)                         ,+    IsWebResource                           ,+    toWebResource                           ,+    noWebResource                           ,+++ -- * Methods+-- ** getData #method:getData#++#if ENABLE_OVERLOADING+    WebResourceGetDataMethodInfo            ,+#endif+    webResourceGetData                      ,+++-- ** getDataFinish #method:getDataFinish#++#if ENABLE_OVERLOADING+    WebResourceGetDataFinishMethodInfo      ,+#endif+    webResourceGetDataFinish                ,+++-- ** getResponse #method:getResponse#++#if ENABLE_OVERLOADING+    WebResourceGetResponseMethodInfo        ,+#endif+    webResourceGetResponse                  ,+++-- ** getUri #method:getUri#++#if ENABLE_OVERLOADING+    WebResourceGetUriMethodInfo             ,+#endif+    webResourceGetUri                       ,+++++ -- * Properties+-- ** response #attr:response#+{- | The 'GI.WebKit2.Objects.URIResponse.URIResponse' associated with this resource.+-}+#if ENABLE_OVERLOADING+    WebResourceResponsePropertyInfo         ,+#endif+    getWebResourceResponse                  ,+#if ENABLE_OVERLOADING+    webResourceResponse                     ,+#endif+++-- ** uri #attr:uri#+{- | The current active URI of the 'GI.WebKit2.Objects.WebResource.WebResource'.+See 'GI.WebKit2.Objects.WebResource.webResourceGetUri' for more details.+-}+#if ENABLE_OVERLOADING+    WebResourceUriPropertyInfo              ,+#endif+    getWebResourceUri                       ,+#if ENABLE_OVERLOADING+    webResourceUri                          ,+#endif+++++ -- * Signals+-- ** failed #signal:failed#++    C_WebResourceFailedCallback             ,+    WebResourceFailedCallback               ,+#if ENABLE_OVERLOADING+    WebResourceFailedSignalInfo             ,+#endif+    afterWebResourceFailed                  ,+    genClosure_WebResourceFailed            ,+    mk_WebResourceFailedCallback            ,+    noWebResourceFailedCallback             ,+    onWebResourceFailed                     ,+    wrap_WebResourceFailedCallback          ,+++-- ** failedWithTlsErrors #signal:failedWithTlsErrors#++    C_WebResourceFailedWithTlsErrorsCallback,+    WebResourceFailedWithTlsErrorsCallback  ,+#if ENABLE_OVERLOADING+    WebResourceFailedWithTlsErrorsSignalInfo,+#endif+    afterWebResourceFailedWithTlsErrors     ,+    genClosure_WebResourceFailedWithTlsErrors,+    mk_WebResourceFailedWithTlsErrorsCallback,+    noWebResourceFailedWithTlsErrorsCallback,+    onWebResourceFailedWithTlsErrors        ,+    wrap_WebResourceFailedWithTlsErrorsCallback,+++-- ** finished #signal:finished#++    C_WebResourceFinishedCallback           ,+    WebResourceFinishedCallback             ,+#if ENABLE_OVERLOADING+    WebResourceFinishedSignalInfo           ,+#endif+    afterWebResourceFinished                ,+    genClosure_WebResourceFinished          ,+    mk_WebResourceFinishedCallback          ,+    noWebResourceFinishedCallback           ,+    onWebResourceFinished                   ,+    wrap_WebResourceFinishedCallback        ,+++-- ** receivedData #signal:receivedData#++    C_WebResourceReceivedDataCallback       ,+    WebResourceReceivedDataCallback         ,+#if ENABLE_OVERLOADING+    WebResourceReceivedDataSignalInfo       ,+#endif+    afterWebResourceReceivedData            ,+    genClosure_WebResourceReceivedData      ,+    mk_WebResourceReceivedDataCallback      ,+    noWebResourceReceivedDataCallback       ,+    onWebResourceReceivedData               ,+    wrap_WebResourceReceivedDataCallback    ,+++-- ** sentRequest #signal:sentRequest#++    C_WebResourceSentRequestCallback        ,+    WebResourceSentRequestCallback          ,+#if ENABLE_OVERLOADING+    WebResourceSentRequestSignalInfo        ,+#endif+    afterWebResourceSentRequest             ,+    genClosure_WebResourceSentRequest       ,+    mk_WebResourceSentRequestCallback       ,+    noWebResourceSentRequestCallback        ,+    onWebResourceSentRequest                ,+    wrap_WebResourceSentRequestCallback     ,+++++    ) 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.GObject.Objects.Object as GObject.Object+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.Objects.Cancellable as Gio.Cancellable+import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIRequest as WebKit2.URIRequest+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIResponse as WebKit2.URIResponse++-- | Memory-managed wrapper type.+newtype WebResource = WebResource (ManagedPtr WebResource)+foreign import ccall "webkit_web_resource_get_type"+    c_webkit_web_resource_get_type :: IO GType++instance GObject WebResource where+    gobjectType = c_webkit_web_resource_get_type+    ++-- | Type class for types which can be safely cast to `WebResource`, for instance with `toWebResource`.+class (GObject o, O.IsDescendantOf WebResource o) => IsWebResource o+instance (GObject o, O.IsDescendantOf WebResource o) => IsWebResource o++instance O.HasParentTypes WebResource+type instance O.ParentTypes WebResource = '[GObject.Object.Object]++-- | Cast to `WebResource`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toWebResource :: (MonadIO m, IsWebResource o) => o -> m WebResource+toWebResource = liftIO . unsafeCastTo WebResource++-- | A convenience alias for `Nothing` :: `Maybe` `WebResource`.+noWebResource :: Maybe WebResource+noWebResource = Nothing++#if ENABLE_OVERLOADING+type family ResolveWebResourceMethod (t :: Symbol) (o :: *) :: * where+    ResolveWebResourceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveWebResourceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveWebResourceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveWebResourceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveWebResourceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveWebResourceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveWebResourceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveWebResourceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveWebResourceMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveWebResourceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveWebResourceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveWebResourceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveWebResourceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveWebResourceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveWebResourceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveWebResourceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveWebResourceMethod "getData" o = WebResourceGetDataMethodInfo+    ResolveWebResourceMethod "getDataFinish" o = WebResourceGetDataFinishMethodInfo+    ResolveWebResourceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveWebResourceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveWebResourceMethod "getResponse" o = WebResourceGetResponseMethodInfo+    ResolveWebResourceMethod "getUri" o = WebResourceGetUriMethodInfo+    ResolveWebResourceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveWebResourceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveWebResourceMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWebResourceMethod t WebResource, O.MethodInfo info WebResource p) => OL.IsLabel t (WebResource -> 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++-- signal WebResource::failed+{- |+This signal is emitted when an error occurs during the resource+load operation.+-}+type WebResourceFailedCallback =+    GError+    {- ^ /@error@/: the 'GError' that was triggered -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebResourceFailedCallback`@.+noWebResourceFailedCallback :: Maybe WebResourceFailedCallback+noWebResourceFailedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebResourceFailedCallback =+    Ptr () ->                               -- object+    Ptr GError ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebResourceFailedCallback`.+foreign import ccall "wrapper"+    mk_WebResourceFailedCallback :: C_WebResourceFailedCallback -> IO (FunPtr C_WebResourceFailedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebResourceFailed :: MonadIO m => WebResourceFailedCallback -> m (GClosure C_WebResourceFailedCallback)+genClosure_WebResourceFailed cb = liftIO $ do+    let cb' = wrap_WebResourceFailedCallback cb+    mk_WebResourceFailedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebResourceFailedCallback` into a `C_WebResourceFailedCallback`.+wrap_WebResourceFailedCallback ::+    WebResourceFailedCallback ->+    C_WebResourceFailedCallback+wrap_WebResourceFailedCallback _cb _ error_ _ = do+    error_' <- (newBoxed GError) error_+    _cb  error_'+++{- |+Connect a signal handler for the “@failed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webResource #failed callback+@+-}+onWebResourceFailed :: (IsWebResource a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId+onWebResourceFailed obj cb = liftIO $ do+    let cb' = wrap_WebResourceFailedCallback cb+    cb'' <- mk_WebResourceFailedCallback cb'+    connectSignalFunPtr obj "failed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@failed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webResource #failed callback+@+-}+afterWebResourceFailed :: (IsWebResource a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId+afterWebResourceFailed obj cb = liftIO $ do+    let cb' = wrap_WebResourceFailedCallback cb+    cb'' <- mk_WebResourceFailedCallback cb'+    connectSignalFunPtr obj "failed" cb'' SignalConnectAfter+++-- signal WebResource::failed-with-tls-errors+{- |+This signal is emitted when a TLS error occurs during the resource load operation.++/Since: 2.8/+-}+type WebResourceFailedWithTlsErrorsCallback =+    Gio.TlsCertificate.TlsCertificate+    {- ^ /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}+    -> [Gio.Flags.TlsCertificateFlags]+    {- ^ /@errors@/: a 'GI.Gio.Flags.TlsCertificateFlags' with the verification status of /@certificate@/ -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebResourceFailedWithTlsErrorsCallback`@.+noWebResourceFailedWithTlsErrorsCallback :: Maybe WebResourceFailedWithTlsErrorsCallback+noWebResourceFailedWithTlsErrorsCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebResourceFailedWithTlsErrorsCallback =+    Ptr () ->                               -- object+    Ptr Gio.TlsCertificate.TlsCertificate ->+    CUInt ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebResourceFailedWithTlsErrorsCallback`.+foreign import ccall "wrapper"+    mk_WebResourceFailedWithTlsErrorsCallback :: C_WebResourceFailedWithTlsErrorsCallback -> IO (FunPtr C_WebResourceFailedWithTlsErrorsCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebResourceFailedWithTlsErrors :: MonadIO m => WebResourceFailedWithTlsErrorsCallback -> m (GClosure C_WebResourceFailedWithTlsErrorsCallback)+genClosure_WebResourceFailedWithTlsErrors cb = liftIO $ do+    let cb' = wrap_WebResourceFailedWithTlsErrorsCallback cb+    mk_WebResourceFailedWithTlsErrorsCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebResourceFailedWithTlsErrorsCallback` into a `C_WebResourceFailedWithTlsErrorsCallback`.+wrap_WebResourceFailedWithTlsErrorsCallback ::+    WebResourceFailedWithTlsErrorsCallback ->+    C_WebResourceFailedWithTlsErrorsCallback+wrap_WebResourceFailedWithTlsErrorsCallback _cb _ certificate errors _ = do+    certificate' <- (newObject Gio.TlsCertificate.TlsCertificate) certificate+    let errors' = wordToGFlags errors+    _cb  certificate' errors'+++{- |+Connect a signal handler for the “@failed-with-tls-errors@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webResource #failedWithTlsErrors callback+@+-}+onWebResourceFailedWithTlsErrors :: (IsWebResource a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId+onWebResourceFailedWithTlsErrors obj cb = liftIO $ do+    let cb' = wrap_WebResourceFailedWithTlsErrorsCallback cb+    cb'' <- mk_WebResourceFailedWithTlsErrorsCallback cb'+    connectSignalFunPtr obj "failed-with-tls-errors" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@failed-with-tls-errors@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webResource #failedWithTlsErrors callback+@+-}+afterWebResourceFailedWithTlsErrors :: (IsWebResource a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId+afterWebResourceFailedWithTlsErrors obj cb = liftIO $ do+    let cb' = wrap_WebResourceFailedWithTlsErrorsCallback cb+    cb'' <- mk_WebResourceFailedWithTlsErrorsCallback cb'+    connectSignalFunPtr obj "failed-with-tls-errors" cb'' SignalConnectAfter+++-- signal WebResource::finished+{- |+This signal is emitted when the resource load finishes successfully+or due to an error. In case of errors 'GI.WebKit2.Objects.WebResource.WebResource'::@/failed/@ signal+is emitted before this one.+-}+type WebResourceFinishedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebResourceFinishedCallback`@.+noWebResourceFinishedCallback :: Maybe WebResourceFinishedCallback+noWebResourceFinishedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebResourceFinishedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebResourceFinishedCallback`.+foreign import ccall "wrapper"+    mk_WebResourceFinishedCallback :: C_WebResourceFinishedCallback -> IO (FunPtr C_WebResourceFinishedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebResourceFinished :: MonadIO m => WebResourceFinishedCallback -> m (GClosure C_WebResourceFinishedCallback)+genClosure_WebResourceFinished cb = liftIO $ do+    let cb' = wrap_WebResourceFinishedCallback cb+    mk_WebResourceFinishedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebResourceFinishedCallback` into a `C_WebResourceFinishedCallback`.+wrap_WebResourceFinishedCallback ::+    WebResourceFinishedCallback ->+    C_WebResourceFinishedCallback+wrap_WebResourceFinishedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@finished@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webResource #finished callback+@+-}+onWebResourceFinished :: (IsWebResource a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId+onWebResourceFinished obj cb = liftIO $ do+    let cb' = wrap_WebResourceFinishedCallback cb+    cb'' <- mk_WebResourceFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@finished@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webResource #finished callback+@+-}+afterWebResourceFinished :: (IsWebResource a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId+afterWebResourceFinished obj cb = liftIO $ do+    let cb' = wrap_WebResourceFinishedCallback cb+    cb'' <- mk_WebResourceFinishedCallback cb'+    connectSignalFunPtr obj "finished" cb'' SignalConnectAfter+++-- signal WebResource::received-data+{- |+This signal is emitted after response is received,+every time new data has been received. It\'s+useful to know the progress of the resource load operation.+-}+type WebResourceReceivedDataCallback =+    Word64+    {- ^ /@dataLength@/: the length of data received in bytes -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebResourceReceivedDataCallback`@.+noWebResourceReceivedDataCallback :: Maybe WebResourceReceivedDataCallback+noWebResourceReceivedDataCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebResourceReceivedDataCallback =+    Ptr () ->                               -- object+    Word64 ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebResourceReceivedDataCallback`.+foreign import ccall "wrapper"+    mk_WebResourceReceivedDataCallback :: C_WebResourceReceivedDataCallback -> IO (FunPtr C_WebResourceReceivedDataCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebResourceReceivedData :: MonadIO m => WebResourceReceivedDataCallback -> m (GClosure C_WebResourceReceivedDataCallback)+genClosure_WebResourceReceivedData cb = liftIO $ do+    let cb' = wrap_WebResourceReceivedDataCallback cb+    mk_WebResourceReceivedDataCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebResourceReceivedDataCallback` into a `C_WebResourceReceivedDataCallback`.+wrap_WebResourceReceivedDataCallback ::+    WebResourceReceivedDataCallback ->+    C_WebResourceReceivedDataCallback+wrap_WebResourceReceivedDataCallback _cb _ dataLength _ = do+    _cb  dataLength+++{- |+Connect a signal handler for the “@received-data@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webResource #receivedData callback+@+-}+onWebResourceReceivedData :: (IsWebResource a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId+onWebResourceReceivedData obj cb = liftIO $ do+    let cb' = wrap_WebResourceReceivedDataCallback cb+    cb'' <- mk_WebResourceReceivedDataCallback cb'+    connectSignalFunPtr obj "received-data" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@received-data@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webResource #receivedData callback+@+-}+afterWebResourceReceivedData :: (IsWebResource a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId+afterWebResourceReceivedData obj cb = liftIO $ do+    let cb' = wrap_WebResourceReceivedDataCallback cb+    cb'' <- mk_WebResourceReceivedDataCallback cb'+    connectSignalFunPtr obj "received-data" cb'' SignalConnectAfter+++-- signal WebResource::sent-request+{- |+This signal is emitted when /@request@/ has been sent to the+server. In case of a server redirection this signal is+emitted again with the /@request@/ argument containing the new+request sent to the server due to the redirection and the+/@redirectedResponse@/ parameter containing the response+received by the server for the initial request.+-}+type WebResourceSentRequestCallback =+    WebKit2.URIRequest.URIRequest+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+    -> WebKit2.URIResponse.URIResponse+    {- ^ /@redirectedResponse@/: a 'GI.WebKit2.Objects.URIResponse.URIResponse', or 'Nothing' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebResourceSentRequestCallback`@.+noWebResourceSentRequestCallback :: Maybe WebResourceSentRequestCallback+noWebResourceSentRequestCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebResourceSentRequestCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.URIRequest.URIRequest ->+    Ptr WebKit2.URIResponse.URIResponse ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebResourceSentRequestCallback`.+foreign import ccall "wrapper"+    mk_WebResourceSentRequestCallback :: C_WebResourceSentRequestCallback -> IO (FunPtr C_WebResourceSentRequestCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_WebResourceSentRequest :: MonadIO m => WebResourceSentRequestCallback -> m (GClosure C_WebResourceSentRequestCallback)+genClosure_WebResourceSentRequest cb = liftIO $ do+    let cb' = wrap_WebResourceSentRequestCallback cb+    mk_WebResourceSentRequestCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `WebResourceSentRequestCallback` into a `C_WebResourceSentRequestCallback`.+wrap_WebResourceSentRequestCallback ::+    WebResourceSentRequestCallback ->+    C_WebResourceSentRequestCallback+wrap_WebResourceSentRequestCallback _cb _ request redirectedResponse _ = do+    request' <- (newObject WebKit2.URIRequest.URIRequest) request+    redirectedResponse' <- (newObject WebKit2.URIResponse.URIResponse) redirectedResponse+    _cb  request' redirectedResponse'+++{- |+Connect a signal handler for the “@sent-request@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webResource #sentRequest callback+@+-}+onWebResourceSentRequest :: (IsWebResource a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId+onWebResourceSentRequest obj cb = liftIO $ do+    let cb' = wrap_WebResourceSentRequestCallback cb+    cb'' <- mk_WebResourceSentRequestCallback cb'+    connectSignalFunPtr obj "sent-request" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@sent-request@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webResource #sentRequest callback+@+-}+afterWebResourceSentRequest :: (IsWebResource a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId+afterWebResourceSentRequest obj cb = liftIO $ do+    let cb' = wrap_WebResourceSentRequestCallback cb+    cb'' <- mk_WebResourceSentRequestCallback cb'+    connectSignalFunPtr obj "sent-request" cb'' SignalConnectAfter+++-- VVV Prop "response"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "URIResponse"})+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@response@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webResource #response+@+-}+getWebResourceResponse :: (MonadIO m, IsWebResource o) => o -> m (Maybe WebKit2.URIResponse.URIResponse)+getWebResourceResponse obj = liftIO $ B.Properties.getObjectPropertyObject obj "response" WebKit2.URIResponse.URIResponse++#if ENABLE_OVERLOADING+data WebResourceResponsePropertyInfo+instance AttrInfo WebResourceResponsePropertyInfo where+    type AttrAllowedOps WebResourceResponsePropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebResourceResponsePropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebResourceResponsePropertyInfo = IsWebResource+    type AttrGetType WebResourceResponsePropertyInfo = (Maybe WebKit2.URIResponse.URIResponse)+    type AttrLabel WebResourceResponsePropertyInfo = "response"+    type AttrOrigin WebResourceResponsePropertyInfo = WebResource+    attrGet _ = getWebResourceResponse+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webResource #uri+@+-}+getWebResourceUri :: (MonadIO m, IsWebResource o) => o -> m T.Text+getWebResourceUri obj = liftIO $ checkUnexpectedNothing "getWebResourceUri" $ B.Properties.getObjectPropertyString obj "uri"++#if ENABLE_OVERLOADING+data WebResourceUriPropertyInfo+instance AttrInfo WebResourceUriPropertyInfo where+    type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebResourceUriPropertyInfo = IsWebResource+    type AttrGetType WebResourceUriPropertyInfo = T.Text+    type AttrLabel WebResourceUriPropertyInfo = "uri"+    type AttrOrigin WebResourceUriPropertyInfo = WebResource+    attrGet _ = getWebResourceUri+    attrSet _ = undefined+    attrConstruct _ = undefined+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList WebResource+type instance O.AttributeList WebResource = WebResourceAttributeList+type WebResourceAttributeList = ('[ '("response", WebResourceResponsePropertyInfo), '("uri", WebResourceUriPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+webResourceResponse :: AttrLabelProxy "response"+webResourceResponse = AttrLabelProxy++webResourceUri :: AttrLabelProxy "uri"+webResourceUri = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+data WebResourceFailedSignalInfo+instance SignalInfo WebResourceFailedSignalInfo where+    type HaskellCallbackType WebResourceFailedSignalInfo = WebResourceFailedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebResourceFailedCallback cb+        cb'' <- mk_WebResourceFailedCallback cb'+        connectSignalFunPtr obj "failed" cb'' connectMode++data WebResourceFailedWithTlsErrorsSignalInfo+instance SignalInfo WebResourceFailedWithTlsErrorsSignalInfo where+    type HaskellCallbackType WebResourceFailedWithTlsErrorsSignalInfo = WebResourceFailedWithTlsErrorsCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebResourceFailedWithTlsErrorsCallback cb+        cb'' <- mk_WebResourceFailedWithTlsErrorsCallback cb'+        connectSignalFunPtr obj "failed-with-tls-errors" cb'' connectMode++data WebResourceFinishedSignalInfo+instance SignalInfo WebResourceFinishedSignalInfo where+    type HaskellCallbackType WebResourceFinishedSignalInfo = WebResourceFinishedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebResourceFinishedCallback cb+        cb'' <- mk_WebResourceFinishedCallback cb'+        connectSignalFunPtr obj "finished" cb'' connectMode++data WebResourceReceivedDataSignalInfo+instance SignalInfo WebResourceReceivedDataSignalInfo where+    type HaskellCallbackType WebResourceReceivedDataSignalInfo = WebResourceReceivedDataCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebResourceReceivedDataCallback cb+        cb'' <- mk_WebResourceReceivedDataCallback cb'+        connectSignalFunPtr obj "received-data" cb'' connectMode++data WebResourceSentRequestSignalInfo+instance SignalInfo WebResourceSentRequestSignalInfo where+    type HaskellCallbackType WebResourceSentRequestSignalInfo = WebResourceSentRequestCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_WebResourceSentRequestCallback cb+        cb'' <- mk_WebResourceSentRequestCallback cb'+        connectSignalFunPtr obj "sent-request" cb'' connectMode++type instance O.SignalList WebResource = WebResourceSignalList+type WebResourceSignalList = ('[ '("failed", WebResourceFailedSignalInfo), '("failedWithTlsErrors", WebResourceFailedWithTlsErrorsSignalInfo), '("finished", WebResourceFinishedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("receivedData", WebResourceReceivedDataSignalInfo), '("sentRequest", WebResourceSentRequestSignalInfo)] :: [(Symbol, *)])++#endif++-- method WebResource::get_data+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "WebKit2", name = "WebResource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data :: +    Ptr WebResource ->                      -- resource : TInterface (Name {namespace = "WebKit2", name = "WebResource"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously get the raw data for /@resource@/.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebResource.webResourceGetDataFinish' to get the result of the operation.+-}+webResourceGetData ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebResource a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@resource@/: a 'GI.WebKit2.Objects.WebResource.WebResource' -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+webResourceGetData resource cancellable callback = liftIO $ do+    resource' <- unsafeManagedPtrCastPtr 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_resource_get_data resource' maybeCancellable maybeCallback userData+    touchManagedPtr resource+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data WebResourceGetDataMethodInfo+instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebResource a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebResourceGetDataMethodInfo a signature where+    overloadedMethod _ = webResourceGetData++#endif++-- method WebResource::get_data_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "WebKit2", name = "WebResource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the length of the resource data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the length of the resource data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 2 (TBasicType TUInt8))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_resource_get_data_finish" webkit_web_resource_get_data_finish :: +    Ptr WebResource ->                      -- resource : TInterface (Name {namespace = "WebKit2", name = "WebResource"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Word8)++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebResource.webResourceGetData'.+-}+webResourceGetDataFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebResource a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@resource@/: a 'GI.WebKit2.Objects.WebResource.WebResource' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ByteString+    {- ^ __Returns:__ a+   string with the data of /@resource@/, or 'Nothing' in case of error. if /@length@/+   is not 'Nothing', the size of the data will be assigned to it. /(Can throw 'Data.GI.Base.GError.GError')/ -}+webResourceGetDataFinish resource result_ = liftIO $ do+    resource' <- unsafeManagedPtrCastPtr resource+    result_' <- unsafeManagedPtrCastPtr result_+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ webkit_web_resource_get_data_finish resource' result_' length_+        length_' <- peek length_+        checkUnexpectedReturnNULL "webResourceGetDataFinish" result+        result' <- (unpackByteStringWithLength length_') result+        freeMem result+        touchManagedPtr resource+        touchManagedPtr result_+        freeMem length_+        return result'+     ) (do+        freeMem length_+     )++#if ENABLE_OVERLOADING+data WebResourceGetDataFinishMethodInfo+instance (signature ~ (b -> m ByteString), MonadIO m, IsWebResource a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebResourceGetDataFinishMethodInfo a signature where+    overloadedMethod _ = webResourceGetDataFinish++#endif++-- method WebResource::get_response+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "WebKit2", name = "WebResource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIResponse"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_resource_get_response" webkit_web_resource_get_response :: +    Ptr WebResource ->                      -- resource : TInterface (Name {namespace = "WebKit2", name = "WebResource"})+    IO (Ptr WebKit2.URIResponse.URIResponse)++{- |+Retrieves the 'GI.WebKit2.Objects.URIResponse.URIResponse' of the resource load operation.+This method returns 'Nothing' if called before the response+is received from the server. You can connect to notify::response+signal to be notified when the response is received.+-}+webResourceGetResponse ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebResource a) =>+    a+    {- ^ /@resource@/: a 'GI.WebKit2.Objects.WebResource.WebResource' -}+    -> m (Maybe WebKit2.URIResponse.URIResponse)+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.URIResponse.URIResponse', or 'Nothing' if+    the response hasn\'t been received yet. -}+webResourceGetResponse resource = liftIO $ do+    resource' <- unsafeManagedPtrCastPtr resource+    result <- webkit_web_resource_get_response resource'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject WebKit2.URIResponse.URIResponse) result'+        return result''+    touchManagedPtr resource+    return maybeResult++#if ENABLE_OVERLOADING+data WebResourceGetResponseMethodInfo+instance (signature ~ (m (Maybe WebKit2.URIResponse.URIResponse)), MonadIO m, IsWebResource a) => O.MethodInfo WebResourceGetResponseMethodInfo a signature where+    overloadedMethod _ = webResourceGetResponse++#endif++-- method WebResource::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "WebKit2", name = "WebResource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri :: +    Ptr WebResource ->                      -- resource : TInterface (Name {namespace = "WebKit2", name = "WebResource"})+    IO CString++{- |+Returns the current active URI of /@resource@/. The active URI might change during+a load operation:++\<orderedlist>+\<listitem>\<para>+  When the resource load starts, the active URI is the requested URI+\<\/para>\<\/listitem>+\<listitem>\<para>+  When the initial request is sent to the server, 'GI.WebKit2.Objects.WebResource.WebResource'::@/sent-request/@+  signal is emitted without a redirected response, the active URI is the URI of+  the request sent to the server.+\<\/para>\<\/listitem>+\<listitem>\<para>+  In case of a server redirection, 'GI.WebKit2.Objects.WebResource.WebResource'::@/sent-request/@ signal+  is emitted again with a redirected response, the active URI is the URI the request+  was redirected to.+\<\/para>\<\/listitem>+\<listitem>\<para>+  When the response is received from the server, the active URI is the final+  one and it will not change again.+\<\/para>\<\/listitem>+\<\/orderedlist>++You can monitor the active URI by connecting to the notify::uri+signal of /@resource@/.+-}+webResourceGetUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebResource a) =>+    a+    {- ^ /@resource@/: a 'GI.WebKit2.Objects.WebResource.WebResource' -}+    -> m T.Text+    {- ^ __Returns:__ the current active URI of /@resource@/ -}+webResourceGetUri resource = liftIO $ do+    resource' <- unsafeManagedPtrCastPtr resource+    result <- webkit_web_resource_get_uri resource'+    checkUnexpectedReturnNULL "webResourceGetUri" result+    result' <- cstringToText result+    touchManagedPtr resource+    return result'++#if ENABLE_OVERLOADING+data WebResourceGetUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsWebResource a) => O.MethodInfo WebResourceGetUriMethodInfo a signature where+    overloadedMethod _ = webResourceGetUri++#endif++
+ GI/WebKit2/Objects/WebResource.hs-boot view
@@ -0,0 +1,62 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.WebResource 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++newtype WebResource = WebResource (ManagedPtr WebResource)+instance GObject WebResource where+class (GObject o, O.IsDescendantOf WebResource o) => IsWebResource o+instance (GObject o, O.IsDescendantOf WebResource o) => IsWebResource o+instance O.HasParentTypes WebResource+#if ENABLE_OVERLOADING+data WebResourceResponsePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceFailedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceFailedWithTlsErrorsSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceFinishedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceReceivedDataSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceSentRequestSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceGetDataMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceGetDataFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceGetResponseMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebResourceGetUriMethodInfo+#endif
+ GI/WebKit2/Objects/WebView.hs view
@@ -0,0 +1,7745 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.WebView+    ( ++-- * Exported types+    WebView(..)                             ,+    IsWebView                               ,+    toWebView                               ,+    noWebView                               ,+++ -- * Methods+-- ** canExecuteEditingCommand #method:canExecuteEditingCommand#++#if ENABLE_OVERLOADING+    WebViewCanExecuteEditingCommandMethodInfo,+#endif+    webViewCanExecuteEditingCommand         ,+++-- ** canExecuteEditingCommandFinish #method:canExecuteEditingCommandFinish#++#if ENABLE_OVERLOADING+    WebViewCanExecuteEditingCommandFinishMethodInfo,+#endif+    webViewCanExecuteEditingCommandFinish   ,+++-- ** canGoBack #method:canGoBack#++#if ENABLE_OVERLOADING+    WebViewCanGoBackMethodInfo              ,+#endif+    webViewCanGoBack                        ,+++-- ** canGoForward #method:canGoForward#++#if ENABLE_OVERLOADING+    WebViewCanGoForwardMethodInfo           ,+#endif+    webViewCanGoForward                     ,+++-- ** canShowMimeType #method:canShowMimeType#++#if ENABLE_OVERLOADING+    WebViewCanShowMimeTypeMethodInfo        ,+#endif+    webViewCanShowMimeType                  ,+++-- ** downloadUri #method:downloadUri#++#if ENABLE_OVERLOADING+    WebViewDownloadUriMethodInfo            ,+#endif+    webViewDownloadUri                      ,+++-- ** executeEditingCommand #method:executeEditingCommand#++#if ENABLE_OVERLOADING+    WebViewExecuteEditingCommandMethodInfo  ,+#endif+    webViewExecuteEditingCommand            ,+++-- ** executeEditingCommandWithArgument #method:executeEditingCommandWithArgument#++#if ENABLE_OVERLOADING+    WebViewExecuteEditingCommandWithArgumentMethodInfo,+#endif+    webViewExecuteEditingCommandWithArgument,+++-- ** getBackForwardList #method:getBackForwardList#++#if ENABLE_OVERLOADING+    WebViewGetBackForwardListMethodInfo     ,+#endif+    webViewGetBackForwardList               ,+++-- ** getBackgroundColor #method:getBackgroundColor#++#if ENABLE_OVERLOADING+    WebViewGetBackgroundColorMethodInfo     ,+#endif+    webViewGetBackgroundColor               ,+++-- ** getContext #method:getContext#++#if ENABLE_OVERLOADING+    WebViewGetContextMethodInfo             ,+#endif+    webViewGetContext                       ,+++-- ** getCustomCharset #method:getCustomCharset#++#if ENABLE_OVERLOADING+    WebViewGetCustomCharsetMethodInfo       ,+#endif+    webViewGetCustomCharset                 ,+++-- ** getEditorState #method:getEditorState#++#if ENABLE_OVERLOADING+    WebViewGetEditorStateMethodInfo         ,+#endif+    webViewGetEditorState                   ,+++-- ** getEstimatedLoadProgress #method:getEstimatedLoadProgress#++#if ENABLE_OVERLOADING+    WebViewGetEstimatedLoadProgressMethodInfo,+#endif+    webViewGetEstimatedLoadProgress         ,+++-- ** getFavicon #method:getFavicon#++#if ENABLE_OVERLOADING+    WebViewGetFaviconMethodInfo             ,+#endif+    webViewGetFavicon                       ,+++-- ** getFindController #method:getFindController#++#if ENABLE_OVERLOADING+    WebViewGetFindControllerMethodInfo      ,+#endif+    webViewGetFindController                ,+++-- ** getInspector #method:getInspector#++#if ENABLE_OVERLOADING+    WebViewGetInspectorMethodInfo           ,+#endif+    webViewGetInspector                     ,+++-- ** getMainResource #method:getMainResource#++#if ENABLE_OVERLOADING+    WebViewGetMainResourceMethodInfo        ,+#endif+    webViewGetMainResource                  ,+++-- ** getPageId #method:getPageId#++#if ENABLE_OVERLOADING+    WebViewGetPageIdMethodInfo              ,+#endif+    webViewGetPageId                        ,+++-- ** getSessionState #method:getSessionState#++#if ENABLE_OVERLOADING+    WebViewGetSessionStateMethodInfo        ,+#endif+    webViewGetSessionState                  ,+++-- ** getSettings #method:getSettings#++#if ENABLE_OVERLOADING+    WebViewGetSettingsMethodInfo            ,+#endif+    webViewGetSettings                      ,+++-- ** getSnapshot #method:getSnapshot#++#if ENABLE_OVERLOADING+    WebViewGetSnapshotMethodInfo            ,+#endif+    webViewGetSnapshot                      ,+++-- ** getSnapshotFinish #method:getSnapshotFinish#++#if ENABLE_OVERLOADING+    WebViewGetSnapshotFinishMethodInfo      ,+#endif+    webViewGetSnapshotFinish                ,+++-- ** getTitle #method:getTitle#++#if ENABLE_OVERLOADING+    WebViewGetTitleMethodInfo               ,+#endif+    webViewGetTitle                         ,+++-- ** getTlsInfo #method:getTlsInfo#++#if ENABLE_OVERLOADING+    WebViewGetTlsInfoMethodInfo             ,+#endif+    webViewGetTlsInfo                       ,+++-- ** getUri #method:getUri#++#if ENABLE_OVERLOADING+    WebViewGetUriMethodInfo                 ,+#endif+    webViewGetUri                           ,+++-- ** getUserContentManager #method:getUserContentManager#++#if ENABLE_OVERLOADING+    WebViewGetUserContentManagerMethodInfo  ,+#endif+    webViewGetUserContentManager            ,+++-- ** getWebsiteDataManager #method:getWebsiteDataManager#++#if ENABLE_OVERLOADING+    WebViewGetWebsiteDataManagerMethodInfo  ,+#endif+    webViewGetWebsiteDataManager            ,+++-- ** getWindowProperties #method:getWindowProperties#++#if ENABLE_OVERLOADING+    WebViewGetWindowPropertiesMethodInfo    ,+#endif+    webViewGetWindowProperties              ,+++-- ** getZoomLevel #method:getZoomLevel#++#if ENABLE_OVERLOADING+    WebViewGetZoomLevelMethodInfo           ,+#endif+    webViewGetZoomLevel                     ,+++-- ** goBack #method:goBack#++#if ENABLE_OVERLOADING+    WebViewGoBackMethodInfo                 ,+#endif+    webViewGoBack                           ,+++-- ** goForward #method:goForward#++#if ENABLE_OVERLOADING+    WebViewGoForwardMethodInfo              ,+#endif+    webViewGoForward                        ,+++-- ** goToBackForwardListItem #method:goToBackForwardListItem#++#if ENABLE_OVERLOADING+    WebViewGoToBackForwardListItemMethodInfo,+#endif+    webViewGoToBackForwardListItem          ,+++-- ** isControlledByAutomation #method:isControlledByAutomation#++#if ENABLE_OVERLOADING+    WebViewIsControlledByAutomationMethodInfo,+#endif+    webViewIsControlledByAutomation         ,+++-- ** isEditable #method:isEditable#++#if ENABLE_OVERLOADING+    WebViewIsEditableMethodInfo             ,+#endif+    webViewIsEditable                       ,+++-- ** isEphemeral #method:isEphemeral#++#if ENABLE_OVERLOADING+    WebViewIsEphemeralMethodInfo            ,+#endif+    webViewIsEphemeral                      ,+++-- ** isLoading #method:isLoading#++#if ENABLE_OVERLOADING+    WebViewIsLoadingMethodInfo              ,+#endif+    webViewIsLoading                        ,+++-- ** isPlayingAudio #method:isPlayingAudio#++#if ENABLE_OVERLOADING+    WebViewIsPlayingAudioMethodInfo         ,+#endif+    webViewIsPlayingAudio                   ,+++-- ** loadAlternateHtml #method:loadAlternateHtml#++#if ENABLE_OVERLOADING+    WebViewLoadAlternateHtmlMethodInfo      ,+#endif+    webViewLoadAlternateHtml                ,+++-- ** loadBytes #method:loadBytes#++#if ENABLE_OVERLOADING+    WebViewLoadBytesMethodInfo              ,+#endif+    webViewLoadBytes                        ,+++-- ** loadHtml #method:loadHtml#++#if ENABLE_OVERLOADING+    WebViewLoadHtmlMethodInfo               ,+#endif+    webViewLoadHtml                         ,+++-- ** loadPlainText #method:loadPlainText#++#if ENABLE_OVERLOADING+    WebViewLoadPlainTextMethodInfo          ,+#endif+    webViewLoadPlainText                    ,+++-- ** loadRequest #method:loadRequest#++#if ENABLE_OVERLOADING+    WebViewLoadRequestMethodInfo            ,+#endif+    webViewLoadRequest                      ,+++-- ** loadUri #method:loadUri#++#if ENABLE_OVERLOADING+    WebViewLoadUriMethodInfo                ,+#endif+    webViewLoadUri                          ,+++-- ** new #method:new#++    webViewNew                              ,+++-- ** newWithContext #method:newWithContext#++    webViewNewWithContext                   ,+++-- ** newWithRelatedView #method:newWithRelatedView#++    webViewNewWithRelatedView               ,+++-- ** newWithSettings #method:newWithSettings#++    webViewNewWithSettings                  ,+++-- ** newWithUserContentManager #method:newWithUserContentManager#++    webViewNewWithUserContentManager        ,+++-- ** reload #method:reload#++#if ENABLE_OVERLOADING+    WebViewReloadMethodInfo                 ,+#endif+    webViewReload                           ,+++-- ** reloadBypassCache #method:reloadBypassCache#++#if ENABLE_OVERLOADING+    WebViewReloadBypassCacheMethodInfo      ,+#endif+    webViewReloadBypassCache                ,+++-- ** restoreSessionState #method:restoreSessionState#++#if ENABLE_OVERLOADING+    WebViewRestoreSessionStateMethodInfo    ,+#endif+    webViewRestoreSessionState              ,+++-- ** runJavascript #method:runJavascript#++#if ENABLE_OVERLOADING+    WebViewRunJavascriptMethodInfo          ,+#endif+    webViewRunJavascript                    ,+++-- ** runJavascriptFinish #method:runJavascriptFinish#++#if ENABLE_OVERLOADING+    WebViewRunJavascriptFinishMethodInfo    ,+#endif+    webViewRunJavascriptFinish              ,+++-- ** runJavascriptFromGresource #method:runJavascriptFromGresource#++#if ENABLE_OVERLOADING+    WebViewRunJavascriptFromGresourceMethodInfo,+#endif+    webViewRunJavascriptFromGresource       ,+++-- ** runJavascriptFromGresourceFinish #method:runJavascriptFromGresourceFinish#++#if ENABLE_OVERLOADING+    WebViewRunJavascriptFromGresourceFinishMethodInfo,+#endif+    webViewRunJavascriptFromGresourceFinish ,+++-- ** runJavascriptInWorld #method:runJavascriptInWorld#++#if ENABLE_OVERLOADING+    WebViewRunJavascriptInWorldMethodInfo   ,+#endif+    webViewRunJavascriptInWorld             ,+++-- ** runJavascriptInWorldFinish #method:runJavascriptInWorldFinish#++#if ENABLE_OVERLOADING+    WebViewRunJavascriptInWorldFinishMethodInfo,+#endif+    webViewRunJavascriptInWorldFinish       ,+++-- ** save #method:save#++#if ENABLE_OVERLOADING+    WebViewSaveMethodInfo                   ,+#endif+    webViewSave                             ,+++-- ** saveFinish #method:saveFinish#++#if ENABLE_OVERLOADING+    WebViewSaveFinishMethodInfo             ,+#endif+    webViewSaveFinish                       ,+++-- ** saveToFile #method:saveToFile#++#if ENABLE_OVERLOADING+    WebViewSaveToFileMethodInfo             ,+#endif+    webViewSaveToFile                       ,+++-- ** saveToFileFinish #method:saveToFileFinish#++#if ENABLE_OVERLOADING+    WebViewSaveToFileFinishMethodInfo       ,+#endif+    webViewSaveToFileFinish                 ,+++-- ** setBackgroundColor #method:setBackgroundColor#++#if ENABLE_OVERLOADING+    WebViewSetBackgroundColorMethodInfo     ,+#endif+    webViewSetBackgroundColor               ,+++-- ** setCustomCharset #method:setCustomCharset#++#if ENABLE_OVERLOADING+    WebViewSetCustomCharsetMethodInfo       ,+#endif+    webViewSetCustomCharset                 ,+++-- ** setEditable #method:setEditable#++#if ENABLE_OVERLOADING+    WebViewSetEditableMethodInfo            ,+#endif+    webViewSetEditable                      ,+++-- ** setSettings #method:setSettings#++#if ENABLE_OVERLOADING+    WebViewSetSettingsMethodInfo            ,+#endif+    webViewSetSettings                      ,+++-- ** setZoomLevel #method:setZoomLevel#++#if ENABLE_OVERLOADING+    WebViewSetZoomLevelMethodInfo           ,+#endif+    webViewSetZoomLevel                     ,+++-- ** stopLoading #method:stopLoading#++#if ENABLE_OVERLOADING+    WebViewStopLoadingMethodInfo            ,+#endif+    webViewStopLoading                      ,+++-- ** tryClose #method:tryClose#++#if ENABLE_OVERLOADING+    WebViewTryCloseMethodInfo               ,+#endif+    webViewTryClose                         ,+++++ -- * Properties+-- ** editable #attr:editable#+{- | Whether the pages loaded inside 'GI.WebKit2.Objects.WebView.WebView' are editable. For more+information see 'GI.WebKit2.Objects.WebView.webViewSetEditable'.++/Since: 2.8/+-}+#if ENABLE_OVERLOADING+    WebViewEditablePropertyInfo             ,+#endif+    constructWebViewEditable                ,+    getWebViewEditable                      ,+    setWebViewEditable                      ,+#if ENABLE_OVERLOADING+    webViewEditable                         ,+#endif+++-- ** estimatedLoadProgress #attr:estimatedLoadProgress#+{- | An estimate of the percent completion for the current loading operation.+This value will range from 0.0 to 1.0 and, once a load completes,+will remain at 1.0 until a new load starts, at which point it+will be reset to 0.0.+The value is an estimate based on the total number of bytes expected+to be received for a document, including all its possible subresources+and child documents.+-}+#if ENABLE_OVERLOADING+    WebViewEstimatedLoadProgressPropertyInfo,+#endif+    getWebViewEstimatedLoadProgress         ,+#if ENABLE_OVERLOADING+    webViewEstimatedLoadProgress            ,+#endif+++-- ** favicon #attr:favicon#+{- | The favicon currently associated to the 'GI.WebKit2.Objects.WebView.WebView'.+See 'GI.WebKit2.Objects.WebView.webViewGetFavicon' for more details.+-}+#if ENABLE_OVERLOADING+    WebViewFaviconPropertyInfo              ,+#endif+    getWebViewFavicon                       ,+#if ENABLE_OVERLOADING+    webViewFavicon                          ,+#endif+++-- ** isControlledByAutomation #attr:isControlledByAutomation#+{- | Whether the 'GI.WebKit2.Objects.WebView.WebView' is controlled by automation. This should only be used when+creating a new 'GI.WebKit2.Objects.WebView.WebView' as a response to 'GI.WebKit2.Objects.AutomationSession.AutomationSession'::@/create-web-view/@+signal request.++/Since: 2.18/+-}+#if ENABLE_OVERLOADING+    WebViewIsControlledByAutomationPropertyInfo,+#endif+    constructWebViewIsControlledByAutomation,+    getWebViewIsControlledByAutomation      ,+++-- ** isEphemeral #attr:isEphemeral#+{- | Whether the 'GI.WebKit2.Objects.WebView.WebView' is ephemeral. An ephemeral web view never writes+website data to the client storage, no matter what 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'+its context is using. This is normally used to implement private browsing mode.+This is a 'GI.GObject.Flags.ParamFlagsConstructOnly' property, so you have to create a ephemeral+'GI.WebKit2.Objects.WebView.WebView' and it can\'t be changed. Note that all 'GI.WebKit2.Objects.WebView.WebView'\<!-- -->s+created with an ephemeral 'GI.WebKit2.Objects.WebContext.WebContext' will be ephemeral automatically.+See also 'GI.WebKit2.Objects.WebContext.webContextNewEphemeral'.++/Since: 2.16/+-}+#if ENABLE_OVERLOADING+    WebViewIsEphemeralPropertyInfo          ,+#endif+    constructWebViewIsEphemeral             ,+    getWebViewIsEphemeral                   ,+++-- ** isLoading #attr:isLoading#+{- | Whether the 'GI.WebKit2.Objects.WebView.WebView' is currently loading a page. This property becomes+'True' as soon as a new load operation is requested and before the+'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal is emitted with 'GI.WebKit2.Enums.LoadEventStarted' and+at that point the active URI is the requested one.+When the load operation finishes the property is set to 'False' before+'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ is emitted with 'GI.WebKit2.Enums.LoadEventFinished'.+-}+#if ENABLE_OVERLOADING+    WebViewIsLoadingPropertyInfo            ,+#endif+    getWebViewIsLoading                     ,+++-- ** isPlayingAudio #attr:isPlayingAudio#+{- | Whether the 'GI.WebKit2.Objects.WebView.WebView' is currently playing audio from a page.+This property becomes 'True' as soon as web content starts playing any+kind of audio. When a page is no longer playing any kind of sound,+the property is set back to 'False'.++/Since: 2.8/+-}+#if ENABLE_OVERLOADING+    WebViewIsPlayingAudioPropertyInfo       ,+#endif+    getWebViewIsPlayingAudio                ,+++-- ** relatedView #attr:relatedView#+{- | The related 'GI.WebKit2.Objects.WebView.WebView' used when creating the view to share the+same web process. This property is not readable because the related+web view is only valid during the object construction.++/Since: 2.4/+-}+#if ENABLE_OVERLOADING+    WebViewRelatedViewPropertyInfo          ,+#endif+    constructWebViewRelatedView             ,+#if ENABLE_OVERLOADING+    webViewRelatedView                      ,+#endif+++-- ** settings #attr:settings#+{- | The 'GI.WebKit2.Objects.Settings.Settings' of the view.++/Since: 2.6/+-}+#if ENABLE_OVERLOADING+    WebViewSettingsPropertyInfo             ,+#endif+    constructWebViewSettings                ,+    setWebViewSettings                      ,+#if ENABLE_OVERLOADING+    webViewSettings                         ,+#endif+++-- ** title #attr:title#+{- | The main frame document title of this 'GI.WebKit2.Objects.WebView.WebView'. If+the title has not been received yet, it will be 'Nothing'.+-}+#if ENABLE_OVERLOADING+    WebViewTitlePropertyInfo                ,+#endif+    getWebViewTitle                         ,+#if ENABLE_OVERLOADING+    webViewTitle                            ,+#endif+++-- ** uri #attr:uri#+{- | The current active URI of the 'GI.WebKit2.Objects.WebView.WebView'.+See 'GI.WebKit2.Objects.WebView.webViewGetUri' for more details.+-}+#if ENABLE_OVERLOADING+    WebViewUriPropertyInfo                  ,+#endif+    getWebViewUri                           ,+#if ENABLE_OVERLOADING+    webViewUri                              ,+#endif+++-- ** userContentManager #attr:userContentManager#+{- | The 'GI.WebKit2.Objects.UserContentManager.UserContentManager' of the view.++/Since: 2.6/+-}+#if ENABLE_OVERLOADING+    WebViewUserContentManagerPropertyInfo   ,+#endif+    constructWebViewUserContentManager      ,+    getWebViewUserContentManager            ,+#if ENABLE_OVERLOADING+    webViewUserContentManager               ,+#endif+++-- ** webContext #attr:webContext#+{- | The 'GI.WebKit2.Objects.WebContext.WebContext' of the view.+-}+#if ENABLE_OVERLOADING+    WebViewWebContextPropertyInfo           ,+#endif+    constructWebViewWebContext              ,+    getWebViewWebContext                    ,+#if ENABLE_OVERLOADING+    webViewWebContext                       ,+#endif+++-- ** zoomLevel #attr:zoomLevel#+{- | The zoom level of the 'GI.WebKit2.Objects.WebView.WebView' content.+See 'GI.WebKit2.Objects.WebView.webViewSetZoomLevel' for more details.+-}+#if ENABLE_OVERLOADING+    WebViewZoomLevelPropertyInfo            ,+#endif+    constructWebViewZoomLevel               ,+    getWebViewZoomLevel                     ,+    setWebViewZoomLevel                     ,+#if ENABLE_OVERLOADING+    webViewZoomLevel                        ,+#endif+++++ -- * Signals+-- ** authenticate #signal:authenticate#++    C_WebViewAuthenticateCallback           ,+    WebViewAuthenticateCallback             ,+#if ENABLE_OVERLOADING+    WebViewAuthenticateSignalInfo           ,+#endif+    afterWebViewAuthenticate                ,+    genClosure_WebViewAuthenticate          ,+    mk_WebViewAuthenticateCallback          ,+    noWebViewAuthenticateCallback           ,+    onWebViewAuthenticate                   ,+    wrap_WebViewAuthenticateCallback        ,+++-- ** close #signal:close#++    C_WebViewCloseCallback                  ,+    WebViewCloseCallback                    ,+#if ENABLE_OVERLOADING+    WebViewCloseSignalInfo                  ,+#endif+    afterWebViewClose                       ,+    genClosure_WebViewClose                 ,+    mk_WebViewCloseCallback                 ,+    noWebViewCloseCallback                  ,+    onWebViewClose                          ,+    wrap_WebViewCloseCallback               ,+++-- ** contextMenu #signal:contextMenu#++    C_WebViewContextMenuCallback            ,+    WebViewContextMenuCallback              ,+#if ENABLE_OVERLOADING+    WebViewContextMenuSignalInfo            ,+#endif+    afterWebViewContextMenu                 ,+    genClosure_WebViewContextMenu           ,+    mk_WebViewContextMenuCallback           ,+    noWebViewContextMenuCallback            ,+    onWebViewContextMenu                    ,+    wrap_WebViewContextMenuCallback         ,+++-- ** contextMenuDismissed #signal:contextMenuDismissed#++    C_WebViewContextMenuDismissedCallback   ,+    WebViewContextMenuDismissedCallback     ,+#if ENABLE_OVERLOADING+    WebViewContextMenuDismissedSignalInfo   ,+#endif+    afterWebViewContextMenuDismissed        ,+    genClosure_WebViewContextMenuDismissed  ,+    mk_WebViewContextMenuDismissedCallback  ,+    noWebViewContextMenuDismissedCallback   ,+    onWebViewContextMenuDismissed           ,+    wrap_WebViewContextMenuDismissedCallback,+++-- ** create #signal:create#++    C_WebViewCreateCallback                 ,+    WebViewCreateCallback                   ,+#if ENABLE_OVERLOADING+    WebViewCreateSignalInfo                 ,+#endif+    afterWebViewCreate                      ,+    genClosure_WebViewCreate                ,+    mk_WebViewCreateCallback                ,+    noWebViewCreateCallback                 ,+    onWebViewCreate                         ,+    wrap_WebViewCreateCallback              ,+++-- ** decidePolicy #signal:decidePolicy#++    C_WebViewDecidePolicyCallback           ,+    WebViewDecidePolicyCallback             ,+#if ENABLE_OVERLOADING+    WebViewDecidePolicySignalInfo           ,+#endif+    afterWebViewDecidePolicy                ,+    genClosure_WebViewDecidePolicy          ,+    mk_WebViewDecidePolicyCallback          ,+    noWebViewDecidePolicyCallback           ,+    onWebViewDecidePolicy                   ,+    wrap_WebViewDecidePolicyCallback        ,+++-- ** enterFullscreen #signal:enterFullscreen#++    C_WebViewEnterFullscreenCallback        ,+    WebViewEnterFullscreenCallback          ,+#if ENABLE_OVERLOADING+    WebViewEnterFullscreenSignalInfo        ,+#endif+    afterWebViewEnterFullscreen             ,+    genClosure_WebViewEnterFullscreen       ,+    mk_WebViewEnterFullscreenCallback       ,+    noWebViewEnterFullscreenCallback        ,+    onWebViewEnterFullscreen                ,+    wrap_WebViewEnterFullscreenCallback     ,+++-- ** insecureContentDetected #signal:insecureContentDetected#++    C_WebViewInsecureContentDetectedCallback,+    WebViewInsecureContentDetectedCallback  ,+#if ENABLE_OVERLOADING+    WebViewInsecureContentDetectedSignalInfo,+#endif+    afterWebViewInsecureContentDetected     ,+    genClosure_WebViewInsecureContentDetected,+    mk_WebViewInsecureContentDetectedCallback,+    noWebViewInsecureContentDetectedCallback,+    onWebViewInsecureContentDetected        ,+    wrap_WebViewInsecureContentDetectedCallback,+++-- ** leaveFullscreen #signal:leaveFullscreen#++    C_WebViewLeaveFullscreenCallback        ,+    WebViewLeaveFullscreenCallback          ,+#if ENABLE_OVERLOADING+    WebViewLeaveFullscreenSignalInfo        ,+#endif+    afterWebViewLeaveFullscreen             ,+    genClosure_WebViewLeaveFullscreen       ,+    mk_WebViewLeaveFullscreenCallback       ,+    noWebViewLeaveFullscreenCallback        ,+    onWebViewLeaveFullscreen                ,+    wrap_WebViewLeaveFullscreenCallback     ,+++-- ** loadChanged #signal:loadChanged#++    C_WebViewLoadChangedCallback            ,+    WebViewLoadChangedCallback              ,+#if ENABLE_OVERLOADING+    WebViewLoadChangedSignalInfo            ,+#endif+    afterWebViewLoadChanged                 ,+    genClosure_WebViewLoadChanged           ,+    mk_WebViewLoadChangedCallback           ,+    noWebViewLoadChangedCallback            ,+    onWebViewLoadChanged                    ,+    wrap_WebViewLoadChangedCallback         ,+++-- ** loadFailed #signal:loadFailed#++    C_WebViewLoadFailedCallback             ,+    WebViewLoadFailedCallback               ,+#if ENABLE_OVERLOADING+    WebViewLoadFailedSignalInfo             ,+#endif+    afterWebViewLoadFailed                  ,+    genClosure_WebViewLoadFailed            ,+    mk_WebViewLoadFailedCallback            ,+    noWebViewLoadFailedCallback             ,+    onWebViewLoadFailed                     ,+    wrap_WebViewLoadFailedCallback          ,+++-- ** loadFailedWithTlsErrors #signal:loadFailedWithTlsErrors#++    C_WebViewLoadFailedWithTlsErrorsCallback,+    WebViewLoadFailedWithTlsErrorsCallback  ,+#if ENABLE_OVERLOADING+    WebViewLoadFailedWithTlsErrorsSignalInfo,+#endif+    afterWebViewLoadFailedWithTlsErrors     ,+    genClosure_WebViewLoadFailedWithTlsErrors,+    mk_WebViewLoadFailedWithTlsErrorsCallback,+    noWebViewLoadFailedWithTlsErrorsCallback,+    onWebViewLoadFailedWithTlsErrors        ,+    wrap_WebViewLoadFailedWithTlsErrorsCallback,+++-- ** mouseTargetChanged #signal:mouseTargetChanged#++    C_WebViewMouseTargetChangedCallback     ,+    WebViewMouseTargetChangedCallback       ,+#if ENABLE_OVERLOADING+    WebViewMouseTargetChangedSignalInfo     ,+#endif+    afterWebViewMouseTargetChanged          ,+    genClosure_WebViewMouseTargetChanged    ,+    mk_WebViewMouseTargetChangedCallback    ,+    noWebViewMouseTargetChangedCallback     ,+    onWebViewMouseTargetChanged             ,+    wrap_WebViewMouseTargetChangedCallback  ,+++-- ** permissionRequest #signal:permissionRequest#++    C_WebViewPermissionRequestCallback      ,+    WebViewPermissionRequestCallback        ,+#if ENABLE_OVERLOADING+    WebViewPermissionRequestSignalInfo      ,+#endif+    afterWebViewPermissionRequest           ,+    genClosure_WebViewPermissionRequest     ,+    mk_WebViewPermissionRequestCallback     ,+    noWebViewPermissionRequestCallback      ,+    onWebViewPermissionRequest              ,+    wrap_WebViewPermissionRequestCallback   ,+++-- ** print #signal:print#++    C_WebViewPrintCallback                  ,+    WebViewPrintCallback                    ,+#if ENABLE_OVERLOADING+    WebViewPrintSignalInfo                  ,+#endif+    afterWebViewPrint                       ,+    genClosure_WebViewPrint                 ,+    mk_WebViewPrintCallback                 ,+    noWebViewPrintCallback                  ,+    onWebViewPrint                          ,+    wrap_WebViewPrintCallback               ,+++-- ** readyToShow #signal:readyToShow#++    C_WebViewReadyToShowCallback            ,+    WebViewReadyToShowCallback              ,+#if ENABLE_OVERLOADING+    WebViewReadyToShowSignalInfo            ,+#endif+    afterWebViewReadyToShow                 ,+    genClosure_WebViewReadyToShow           ,+    mk_WebViewReadyToShowCallback           ,+    noWebViewReadyToShowCallback            ,+    onWebViewReadyToShow                    ,+    wrap_WebViewReadyToShowCallback         ,+++-- ** resourceLoadStarted #signal:resourceLoadStarted#++    C_WebViewResourceLoadStartedCallback    ,+    WebViewResourceLoadStartedCallback      ,+#if ENABLE_OVERLOADING+    WebViewResourceLoadStartedSignalInfo    ,+#endif+    afterWebViewResourceLoadStarted         ,+    genClosure_WebViewResourceLoadStarted   ,+    mk_WebViewResourceLoadStartedCallback   ,+    noWebViewResourceLoadStartedCallback    ,+    onWebViewResourceLoadStarted            ,+    wrap_WebViewResourceLoadStartedCallback ,+++-- ** runAsModal #signal:runAsModal#++    C_WebViewRunAsModalCallback             ,+    WebViewRunAsModalCallback               ,+#if ENABLE_OVERLOADING+    WebViewRunAsModalSignalInfo             ,+#endif+    afterWebViewRunAsModal                  ,+    genClosure_WebViewRunAsModal            ,+    mk_WebViewRunAsModalCallback            ,+    noWebViewRunAsModalCallback             ,+    onWebViewRunAsModal                     ,+    wrap_WebViewRunAsModalCallback          ,+++-- ** runColorChooser #signal:runColorChooser#++    C_WebViewRunColorChooserCallback        ,+    WebViewRunColorChooserCallback          ,+#if ENABLE_OVERLOADING+    WebViewRunColorChooserSignalInfo        ,+#endif+    afterWebViewRunColorChooser             ,+    genClosure_WebViewRunColorChooser       ,+    mk_WebViewRunColorChooserCallback       ,+    noWebViewRunColorChooserCallback        ,+    onWebViewRunColorChooser                ,+    wrap_WebViewRunColorChooserCallback     ,+++-- ** runFileChooser #signal:runFileChooser#++    C_WebViewRunFileChooserCallback         ,+    WebViewRunFileChooserCallback           ,+#if ENABLE_OVERLOADING+    WebViewRunFileChooserSignalInfo         ,+#endif+    afterWebViewRunFileChooser              ,+    genClosure_WebViewRunFileChooser        ,+    mk_WebViewRunFileChooserCallback        ,+    noWebViewRunFileChooserCallback         ,+    onWebViewRunFileChooser                 ,+    wrap_WebViewRunFileChooserCallback      ,+++-- ** scriptDialog #signal:scriptDialog#++    C_WebViewScriptDialogCallback           ,+    WebViewScriptDialogCallback             ,+#if ENABLE_OVERLOADING+    WebViewScriptDialogSignalInfo           ,+#endif+    afterWebViewScriptDialog                ,+    genClosure_WebViewScriptDialog          ,+    mk_WebViewScriptDialogCallback          ,+    noWebViewScriptDialogCallback           ,+    onWebViewScriptDialog                   ,+    wrap_WebViewScriptDialogCallback        ,+++-- ** showNotification #signal:showNotification#++    C_WebViewShowNotificationCallback       ,+    WebViewShowNotificationCallback         ,+#if ENABLE_OVERLOADING+    WebViewShowNotificationSignalInfo       ,+#endif+    afterWebViewShowNotification            ,+    genClosure_WebViewShowNotification      ,+    mk_WebViewShowNotificationCallback      ,+    noWebViewShowNotificationCallback       ,+    onWebViewShowNotification               ,+    wrap_WebViewShowNotificationCallback    ,+++-- ** showOptionMenu #signal:showOptionMenu#++    C_WebViewShowOptionMenuCallback         ,+    WebViewShowOptionMenuCallback           ,+#if ENABLE_OVERLOADING+    WebViewShowOptionMenuSignalInfo         ,+#endif+    afterWebViewShowOptionMenu              ,+    genClosure_WebViewShowOptionMenu        ,+    mk_WebViewShowOptionMenuCallback        ,+    noWebViewShowOptionMenuCallback         ,+    onWebViewShowOptionMenu                 ,+    wrap_WebViewShowOptionMenuCallback      ,+++-- ** submitForm #signal:submitForm#++    C_WebViewSubmitFormCallback             ,+    WebViewSubmitFormCallback               ,+#if ENABLE_OVERLOADING+    WebViewSubmitFormSignalInfo             ,+#endif+    afterWebViewSubmitForm                  ,+    genClosure_WebViewSubmitForm            ,+    mk_WebViewSubmitFormCallback            ,+    noWebViewSubmitFormCallback             ,+    onWebViewSubmitForm                     ,+    wrap_WebViewSubmitFormCallback          ,+++-- ** webProcessCrashed #signal:webProcessCrashed#++    C_WebViewWebProcessCrashedCallback      ,+    WebViewWebProcessCrashedCallback        ,+#if ENABLE_OVERLOADING+    WebViewWebProcessCrashedSignalInfo      ,+#endif+    afterWebViewWebProcessCrashed           ,+    genClosure_WebViewWebProcessCrashed     ,+    mk_WebViewWebProcessCrashedCallback     ,+    noWebViewWebProcessCrashedCallback      ,+    onWebViewWebProcessCrashed              ,+    wrap_WebViewWebProcessCrashedCallback   ,+++-- ** webProcessTerminated #signal:webProcessTerminated#++    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++-- | Memory-managed wrapper type.+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+    ++-- | Type class for types which can be safely cast to `WebView`, for instance with `toWebView`.+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]++-- | Cast to `WebView`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toWebView :: (MonadIO m, IsWebView o) => o -> m WebView+toWebView = liftIO . unsafeCastTo WebView++-- | A convenience alias for `Nothing` :: `Maybe` `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++-- signal WebView::authenticate+{- |+This signal is emitted when the user is challenged with HTTP+authentication. To let the  application access or supply+the credentials as well as to allow the client application+to either cancel the request or perform the authentication,+the signal will pass an instance of the+'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' in the /@request@/ argument.+To handle this signal asynchronously you should keep a ref+of the request and return 'True'. To disable HTTP authentication+entirely, connect to this signal and simply return 'True'.++The default signal handler will run a default authentication+dialog asynchronously for the user to interact with.++/Since: 2.2/+-}+type WebViewAuthenticateCallback =+    WebKit2.AuthenticationRequest.AuthenticationRequest+    {- ^ /@request@/: a 'GI.WebKit2.Objects.AuthenticationRequest.AuthenticationRequest' -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewAuthenticateCallback`@.+noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback+noWebViewAuthenticateCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewAuthenticateCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.AuthenticationRequest.AuthenticationRequest ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewAuthenticateCallback`.+foreign import ccall "wrapper"+    mk_WebViewAuthenticateCallback :: C_WebViewAuthenticateCallback -> IO (FunPtr C_WebViewAuthenticateCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewAuthenticateCallback` into a `C_WebViewAuthenticateCallback`.+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'+++{- |+Connect a signal handler for the “@authenticate@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #authenticate callback+@+-}+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++{- |+Connect a signal handler for the “@authenticate@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #authenticate callback+@+-}+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+++-- signal WebView::close+{- |+Emitted when closing a 'GI.WebKit2.Objects.WebView.WebView' is requested. This occurs when a+call is made from JavaScript\'s \<function>window.close\<\/function> function or+after trying to close the /@webView@/ with 'GI.WebKit2.Objects.WebView.webViewTryClose'.+It is the owner\'s responsibility to handle this signal to hide or+destroy the 'GI.WebKit2.Objects.WebView.WebView', if necessary.+-}+type WebViewCloseCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewCloseCallback`@.+noWebViewCloseCallback :: Maybe WebViewCloseCallback+noWebViewCloseCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewCloseCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewCloseCallback`.+foreign import ccall "wrapper"+    mk_WebViewCloseCallback :: C_WebViewCloseCallback -> IO (FunPtr C_WebViewCloseCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewCloseCallback` into a `C_WebViewCloseCallback`.+wrap_WebViewCloseCallback ::+    WebViewCloseCallback ->+    C_WebViewCloseCallback+wrap_WebViewCloseCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@close@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #close callback+@+-}+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++{- |+Connect a signal handler for the “@close@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #close callback+@+-}+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+++-- signal WebView::context-menu+{- |+Emitted when a context menu is about to be displayed to give the application+a chance to customize the proposed menu, prevent the menu from being displayed,+or build its own context menu.+\<itemizedlist>+\<listitem>\<para>+ To customize the proposed menu you can use 'GI.WebKit2.Objects.ContextMenu.contextMenuPrepend',+ 'GI.WebKit2.Objects.ContextMenu.contextMenuAppend' or 'GI.WebKit2.Objects.ContextMenu.contextMenuInsert' to add new+ 'GI.WebKit2.Objects.ContextMenuItem.ContextMenuItem'\<!-- -->s to /@contextMenu@/, 'GI.WebKit2.Objects.ContextMenu.contextMenuMoveItem'+ to reorder existing items, or 'GI.WebKit2.Objects.ContextMenu.contextMenuRemove' to remove an+ existing item. The signal handler should return 'False', and the menu represented+ by /@contextMenu@/ will be shown.+\<\/para>\<\/listitem>+\<listitem>\<para>+ To prevent the menu from being displayed you can just connect to this signal+ and return 'True' so that the proposed menu will not be shown.+\<\/para>\<\/listitem>+\<listitem>\<para>+ To build your own menu, you can remove all items from the proposed menu with+ 'GI.WebKit2.Objects.ContextMenu.contextMenuRemoveAll', add your own items and return 'False' so+ that the menu will be shown. You can also ignore the proposed 'GI.WebKit2.Objects.ContextMenu.ContextMenu',+ build your own 'GI.Gtk.Objects.Menu.Menu' and return 'True' to prevent the proposed menu from being shown.+\<\/para>\<\/listitem>+\<listitem>\<para>+ If you just want the default menu to be shown always, simply don\'t connect to this+ signal because showing the proposed context menu is the default behaviour.+\<\/para>\<\/listitem>+\<\/itemizedlist>++The /@event@/ is expected to be one of the following types:+\<itemizedlist>+\<listitem>\<para>+a 'GI.Gdk.Structs.EventButton.EventButton' of type 'GI.Gdk.Enums.EventTypeButtonPress' when the context menu+was triggered with mouse.+\<\/para>\<\/listitem>+\<listitem>\<para>+a 'GI.Gdk.Structs.EventKey.EventKey' of type 'GI.Gdk.Enums.EventTypeKeyPress' if the keyboard was used to show+the menu.+\<\/para>\<\/listitem>+\<listitem>\<para>+a generic 'GI.Gdk.Unions.Event.Event' of type 'GI.Gdk.Enums.EventTypeNothing' when the 'GI.Gtk.Objects.Widget.Widget'::@/popup-menu/@+signal was used to show the context menu.+\<\/para>\<\/listitem>+\<\/itemizedlist>++If the signal handler returns 'False' the context menu represented by /@contextMenu@/+will be shown, if it return 'True' the context menu will not be shown.++The proposed 'GI.WebKit2.Objects.ContextMenu.ContextMenu' passed in /@contextMenu@/ argument is only valid+during the signal emission.+-}+type WebViewContextMenuCallback =+    WebKit2.ContextMenu.ContextMenu+    {- ^ /@contextMenu@/: the proposed 'GI.WebKit2.Objects.ContextMenu.ContextMenu' -}+    -> Gdk.Event.Event+    {- ^ /@event@/: the 'GI.Gdk.Unions.Event.Event' that triggered the context menu -}+    -> WebKit2.HitTestResult.HitTestResult+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewContextMenuCallback`@.+noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback+noWebViewContextMenuCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewContextMenuCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.ContextMenu.ContextMenu ->+    Ptr Gdk.Event.Event ->+    Ptr WebKit2.HitTestResult.HitTestResult ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewContextMenuCallback`.+foreign import ccall "wrapper"+    mk_WebViewContextMenuCallback :: C_WebViewContextMenuCallback -> IO (FunPtr C_WebViewContextMenuCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewContextMenuCallback` into a `C_WebViewContextMenuCallback`.+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'+++{- |+Connect a signal handler for the “@context-menu@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #contextMenu callback+@+-}+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++{- |+Connect a signal handler for the “@context-menu@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #contextMenu callback+@+-}+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+++-- signal WebView::context-menu-dismissed+{- |+Emitted after 'GI.WebKit2.Objects.WebView.WebView'::@/context-menu/@ signal, if the context menu is shown,+to notify that the context menu is dismissed.+-}+type WebViewContextMenuDismissedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewContextMenuDismissedCallback`@.+noWebViewContextMenuDismissedCallback :: Maybe WebViewContextMenuDismissedCallback+noWebViewContextMenuDismissedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewContextMenuDismissedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewContextMenuDismissedCallback`.+foreign import ccall "wrapper"+    mk_WebViewContextMenuDismissedCallback :: C_WebViewContextMenuDismissedCallback -> IO (FunPtr C_WebViewContextMenuDismissedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewContextMenuDismissedCallback` into a `C_WebViewContextMenuDismissedCallback`.+wrap_WebViewContextMenuDismissedCallback ::+    WebViewContextMenuDismissedCallback ->+    C_WebViewContextMenuDismissedCallback+wrap_WebViewContextMenuDismissedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@context-menu-dismissed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #contextMenuDismissed callback+@+-}+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++{- |+Connect a signal handler for the “@context-menu-dismissed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #contextMenuDismissed callback+@+-}+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+++-- signal WebView::create+{- |+Emitted when the creation of a new 'GI.WebKit2.Objects.WebView.WebView' is requested.+If this signal is handled the signal handler should return the+newly created 'GI.WebKit2.Objects.WebView.WebView'.++The 'GI.WebKit2.Structs.NavigationAction.NavigationAction' parameter contains information about the+navigation action that triggered this signal.++When using 'GI.WebKit2.Enums.ProcessModelMultipleSecondaryProcesses'+process model, the new 'GI.WebKit2.Objects.WebView.WebView' should be related to+/@webView@/ to share the same web process, see 'GI.WebKit2.Objects.WebView.webViewNewWithRelatedView'+for more details.++The new 'GI.WebKit2.Objects.WebView.WebView' should not be displayed to the user+until the 'GI.WebKit2.Objects.WebView.WebView'::@/ready-to-show/@ signal is emitted.+-}+type WebViewCreateCallback =+    WebKit2.NavigationAction.NavigationAction+    {- ^ /@navigationAction@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> IO Gtk.Widget.Widget+    {- ^ __Returns:__ a newly allocated 'GI.WebKit2.Objects.WebView.WebView' widget+   or 'Nothing' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewCreateCallback`@.+noWebViewCreateCallback :: Maybe WebViewCreateCallback+noWebViewCreateCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewCreateCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.NavigationAction.NavigationAction ->+    Ptr () ->                               -- user_data+    IO (Ptr Gtk.Widget.Widget)++-- | Generate a function pointer callable from C code, from a `C_WebViewCreateCallback`.+foreign import ccall "wrapper"+    mk_WebViewCreateCallback :: C_WebViewCreateCallback -> IO (FunPtr C_WebViewCreateCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewCreateCallback` into a `C_WebViewCreateCallback`.+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'+++{- |+Connect a signal handler for the “@create@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #create callback+@+-}+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++{- |+Connect a signal handler for the “@create@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #create callback+@+-}+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+++-- signal WebView::decide-policy+{- |+This signal is emitted when WebKit is requesting the client to decide a policy+decision, such as whether to navigate to a page, open a new window or whether or+not to download a resource. The 'GI.WebKit2.Objects.NavigationPolicyDecision.NavigationPolicyDecision' passed in the+/@decision@/ argument is a generic type, but should be casted to a more+specific type when making the decision. For example:++\<informalexample>\<programlisting>+static gboolean+decide_policy_cb (WebKitWebView *web_view,+                  WebKitPolicyDecision *decision,+                  WebKitPolicyDecisionType type)+{+    switch (type) {+    case WEBKIT_POLICY_DECISION_TYPE_NAVIGATION_ACTION: {+        WebKitNavigationPolicyDecision *navigation_decision = WEBKIT_NAVIGATION_POLICY_DECISION (decision);+        \/\<!-- -->* Make a policy decision here. *\<!-- -->\/+        break;+    }+    case WEBKIT_POLICY_DECISION_TYPE_NEW_WINDOW_ACTION: {+        WebKitNavigationPolicyDecision *navigation_decision = WEBKIT_NAVIGATION_POLICY_DECISION (decision);+        \/\<!-- -->* Make a policy decision here. *\<!-- -->\/+        break;+    }+    case WEBKIT_POLICY_DECISION_TYPE_RESPONSE:+        WebKitResponsePolicyDecision *response = WEBKIT_RESPONSE_POLICY_DECISION (decision);+        \/\<!-- -->* Make a policy decision here. *\<!-- -->\/+        break;+    default:+        \/\<!-- -->* Making no decision results in 'GI.WebKit2.Objects.PolicyDecision.policyDecisionUse'. *\<!-- -->\/+        return FALSE;+    }+    return TRUE;+}+\<\/programlisting>\<\/informalexample>++It is possible to make policy decision asynchronously, by simply calling 'GI.GObject.Objects.Object.objectRef'+on the /@decision@/ argument and returning 'True' to block the default signal handler.+If the last reference is removed on a 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' and no decision has been+made explicitly, 'GI.WebKit2.Objects.PolicyDecision.policyDecisionUse' will be the default policy decision. The+default signal handler will simply call 'GI.WebKit2.Objects.PolicyDecision.policyDecisionUse'. Only the first+policy decision chosen for a given 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' will have any affect.+-}+type WebViewDecidePolicyCallback =+    WebKit2.PolicyDecision.PolicyDecision+    {- ^ /@decision@/: the 'GI.WebKit2.Objects.PolicyDecision.PolicyDecision' -}+    -> WebKit2.Enums.PolicyDecisionType+    {- ^ /@decisionType@/: a 'GI.WebKit2.Enums.PolicyDecisionType' denoting the type of /@decision@/ -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewDecidePolicyCallback`@.+noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback+noWebViewDecidePolicyCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewDecidePolicyCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.PolicyDecision.PolicyDecision ->+    CUInt ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewDecidePolicyCallback`.+foreign import ccall "wrapper"+    mk_WebViewDecidePolicyCallback :: C_WebViewDecidePolicyCallback -> IO (FunPtr C_WebViewDecidePolicyCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewDecidePolicyCallback` into a `C_WebViewDecidePolicyCallback`.+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'+++{- |+Connect a signal handler for the “@decide-policy@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #decidePolicy callback+@+-}+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++{- |+Connect a signal handler for the “@decide-policy@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #decidePolicy callback+@+-}+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+++-- signal WebView::enter-fullscreen+{- |+Emitted when JavaScript code calls+\<function>element.webkitRequestFullScreen\<\/function>. If the+signal is not handled the 'GI.WebKit2.Objects.WebView.WebView' will proceed to full screen+its top level window. This signal can be used by client code to+request permission to the user prior doing the full screen+transition and eventually prepare the top-level window+(e.g. hide some widgets that would otherwise be part of the+full screen window).+-}+type WebViewEnterFullscreenCallback =+    IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to continue emission of the event. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewEnterFullscreenCallback`@.+noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback+noWebViewEnterFullscreenCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewEnterFullscreenCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewEnterFullscreenCallback`.+foreign import ccall "wrapper"+    mk_WebViewEnterFullscreenCallback :: C_WebViewEnterFullscreenCallback -> IO (FunPtr C_WebViewEnterFullscreenCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewEnterFullscreenCallback` into a `C_WebViewEnterFullscreenCallback`.+wrap_WebViewEnterFullscreenCallback ::+    WebViewEnterFullscreenCallback ->+    C_WebViewEnterFullscreenCallback+wrap_WebViewEnterFullscreenCallback _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@enter-fullscreen@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #enterFullscreen callback+@+-}+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++{- |+Connect a signal handler for the “@enter-fullscreen@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #enterFullscreen callback+@+-}+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+++-- signal WebView::insecure-content-detected+{- |+This signal is emitted when insecure content has been detected+in a page loaded through a secure connection. This typically+means that a external resource from an unstrusted source has+been run or displayed, resulting in a mix of HTTPS and+non-HTTPS content.++You can check the /@event@/ parameter to know exactly which kind+of event has been detected (see 'GI.WebKit2.Enums.InsecureContentEvent').+-}+type WebViewInsecureContentDetectedCallback =+    WebKit2.Enums.InsecureContentEvent+    {- ^ /@event@/: the 'GI.WebKit2.Enums.InsecureContentEvent' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewInsecureContentDetectedCallback`@.+noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback+noWebViewInsecureContentDetectedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewInsecureContentDetectedCallback =+    Ptr () ->                               -- object+    CUInt ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewInsecureContentDetectedCallback`.+foreign import ccall "wrapper"+    mk_WebViewInsecureContentDetectedCallback :: C_WebViewInsecureContentDetectedCallback -> IO (FunPtr C_WebViewInsecureContentDetectedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewInsecureContentDetectedCallback` into a `C_WebViewInsecureContentDetectedCallback`.+wrap_WebViewInsecureContentDetectedCallback ::+    WebViewInsecureContentDetectedCallback ->+    C_WebViewInsecureContentDetectedCallback+wrap_WebViewInsecureContentDetectedCallback _cb _ event _ = do+    let event' = (toEnum . fromIntegral) event+    _cb  event'+++{- |+Connect a signal handler for the “@insecure-content-detected@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #insecureContentDetected callback+@+-}+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++{- |+Connect a signal handler for the “@insecure-content-detected@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #insecureContentDetected callback+@+-}+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+++-- signal WebView::leave-fullscreen+{- |+Emitted when the 'GI.WebKit2.Objects.WebView.WebView' is about to restore its top level+window out of its full screen state. This signal can be used by+client code to restore widgets hidden during the+'GI.WebKit2.Objects.WebView.WebView'::@/enter-fullscreen/@ stage for instance.+-}+type WebViewLeaveFullscreenCallback =+    IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to continue emission of the event. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewLeaveFullscreenCallback`@.+noWebViewLeaveFullscreenCallback :: Maybe WebViewLeaveFullscreenCallback+noWebViewLeaveFullscreenCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewLeaveFullscreenCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewLeaveFullscreenCallback`.+foreign import ccall "wrapper"+    mk_WebViewLeaveFullscreenCallback :: C_WebViewLeaveFullscreenCallback -> IO (FunPtr C_WebViewLeaveFullscreenCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewLeaveFullscreenCallback` into a `C_WebViewLeaveFullscreenCallback`.+wrap_WebViewLeaveFullscreenCallback ::+    WebViewLeaveFullscreenCallback ->+    C_WebViewLeaveFullscreenCallback+wrap_WebViewLeaveFullscreenCallback _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@leave-fullscreen@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #leaveFullscreen callback+@+-}+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++{- |+Connect a signal handler for the “@leave-fullscreen@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #leaveFullscreen callback+@+-}+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+++-- signal WebView::load-changed+{- |+Emitted when a load operation in /@webView@/ changes.+The signal is always emitted with 'GI.WebKit2.Enums.LoadEventStarted' when a+new load request is made and 'GI.WebKit2.Enums.LoadEventFinished' when the load+finishes successfully or due to an error. When the ongoing load+operation fails 'GI.WebKit2.Objects.WebView.WebView'::@/load-failed/@ signal is emitted+before 'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ is emitted with+'GI.WebKit2.Enums.LoadEventFinished'.+If a redirection is received from the server, this signal is emitted+with 'GI.WebKit2.Enums.LoadEventRedirected' after the initial emission with+'GI.WebKit2.Enums.LoadEventStarted' and before 'GI.WebKit2.Enums.LoadEventCommitted'.+When the page content starts arriving the signal is emitted with+'GI.WebKit2.Enums.LoadEventCommitted' event.++You can handle this signal and use a switch to track any ongoing+load operation.++\<informalexample>\<programlisting>+static void web_view_load_changed (WebKitWebView  *web_view,+                                   WebKitLoadEvent load_event,+                                   gpointer        user_data)+{+    switch (load_event) {+    case WEBKIT_LOAD_STARTED:+        \/\<!-- -->* New load, we have now a provisional URI *\<!-- -->\/+        provisional_uri = webkit_web_view_get_uri (web_view);+        \/\<!-- -->* Here we could start a spinner or update the+         \<!-- -->* location bar with the provisional URI *\<!-- -->\/+        break;+    case WEBKIT_LOAD_REDIRECTED:+        redirected_uri = webkit_web_view_get_uri (web_view);+        break;+    case WEBKIT_LOAD_COMMITTED:+        \/\<!-- -->* The load is being performed. Current URI is+         \<!-- -->* the final one and it won\'t change unless a new+         \<!-- -->* load is requested or a navigation within the+         \<!-- -->* same page is performed *\<!-- -->\/+        uri = webkit_web_view_get_uri (web_view);+        break;+    case WEBKIT_LOAD_FINISHED:+        \/\<!-- -->* Load finished, we can now stop the spinner *\<!-- -->\/+        break;+    }+}+\<\/programlisting>\<\/informalexample>+-}+type WebViewLoadChangedCallback =+    WebKit2.Enums.LoadEvent+    {- ^ /@loadEvent@/: the 'GI.WebKit2.Enums.LoadEvent' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewLoadChangedCallback`@.+noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback+noWebViewLoadChangedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewLoadChangedCallback =+    Ptr () ->                               -- object+    CUInt ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewLoadChangedCallback`.+foreign import ccall "wrapper"+    mk_WebViewLoadChangedCallback :: C_WebViewLoadChangedCallback -> IO (FunPtr C_WebViewLoadChangedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewLoadChangedCallback` into a `C_WebViewLoadChangedCallback`.+wrap_WebViewLoadChangedCallback ::+    WebViewLoadChangedCallback ->+    C_WebViewLoadChangedCallback+wrap_WebViewLoadChangedCallback _cb _ loadEvent _ = do+    let loadEvent' = (toEnum . fromIntegral) loadEvent+    _cb  loadEvent'+++{- |+Connect a signal handler for the “@load-changed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #loadChanged callback+@+-}+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++{- |+Connect a signal handler for the “@load-changed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #loadChanged callback+@+-}+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+++-- signal WebView::load-failed+{- |+Emitted when an error occurs during a load operation.+If the error happened when starting to load data for a page+/@loadEvent@/ will be 'GI.WebKit2.Enums.LoadEventStarted'. If it happened while+loading a committed data source /@loadEvent@/ will be 'GI.WebKit2.Enums.LoadEventCommitted'.+Since a load error causes the load operation to finish, the signal+WebKitWebView::load-changed will always be emitted with+'GI.WebKit2.Enums.LoadEventFinished' event right after this one.++By default, if the signal is not handled, a stock error page will be displayed.+You need to handle the signal if you want to provide your own error page.+-}+type WebViewLoadFailedCallback =+    WebKit2.Enums.LoadEvent+    {- ^ /@loadEvent@/: the 'GI.WebKit2.Enums.LoadEvent' of the load operation -}+    -> T.Text+    {- ^ /@failingUri@/: the URI that failed to load -}+    -> GError+    {- ^ /@error@/: the 'GError' that was triggered -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewLoadFailedCallback`@.+noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback+noWebViewLoadFailedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewLoadFailedCallback =+    Ptr () ->                               -- object+    CUInt ->+    CString ->+    Ptr GError ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewLoadFailedCallback`.+foreign import ccall "wrapper"+    mk_WebViewLoadFailedCallback :: C_WebViewLoadFailedCallback -> IO (FunPtr C_WebViewLoadFailedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewLoadFailedCallback` into a `C_WebViewLoadFailedCallback`.+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'+++{- |+Connect a signal handler for the “@load-failed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #loadFailed callback+@+-}+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++{- |+Connect a signal handler for the “@load-failed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #loadFailed callback+@+-}+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+++-- signal WebView::load-failed-with-tls-errors+{- |+Emitted when a TLS error occurs during a load operation.+To allow an exception for this /@certificate@/+and the host of /@failingUri@/ use 'GI.WebKit2.Objects.WebContext.webContextAllowTlsCertificateForHost'.++To handle this signal asynchronously you should call 'GI.GObject.Objects.Object.objectRef' on /@certificate@/+and return 'True'.++If 'False' is returned, 'GI.WebKit2.Objects.WebView.WebView'::@/load-failed/@ will be emitted. The load+will finish regardless of the returned value.++/Since: 2.6/+-}+type WebViewLoadFailedWithTlsErrorsCallback =+    T.Text+    {- ^ /@failingUri@/: the URI that failed to load -}+    -> Gio.TlsCertificate.TlsCertificate+    {- ^ /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}+    -> [Gio.Flags.TlsCertificateFlags]+    {- ^ /@errors@/: a 'GI.Gio.Flags.TlsCertificateFlags' with the verification status of /@certificate@/ -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewLoadFailedWithTlsErrorsCallback`@.+noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback+noWebViewLoadFailedWithTlsErrorsCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewLoadFailedWithTlsErrorsCallback =+    Ptr () ->                               -- object+    CString ->+    Ptr Gio.TlsCertificate.TlsCertificate ->+    CUInt ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewLoadFailedWithTlsErrorsCallback`.+foreign import ccall "wrapper"+    mk_WebViewLoadFailedWithTlsErrorsCallback :: C_WebViewLoadFailedWithTlsErrorsCallback -> IO (FunPtr C_WebViewLoadFailedWithTlsErrorsCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewLoadFailedWithTlsErrorsCallback` into a `C_WebViewLoadFailedWithTlsErrorsCallback`.+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'+++{- |+Connect a signal handler for the “@load-failed-with-tls-errors@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #loadFailedWithTlsErrors callback+@+-}+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++{- |+Connect a signal handler for the “@load-failed-with-tls-errors@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #loadFailedWithTlsErrors callback+@+-}+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+++-- signal WebView::mouse-target-changed+{- |+This signal is emitted when the mouse cursor moves over an+element such as a link, image or a media element. To determine+what type of element the mouse cursor is over, a Hit Test is performed+on the current mouse coordinates and the result is passed in the+/@hitTestResult@/ argument. The /@modifiers@/ argument is a bitmask of+'GI.Gdk.Flags.ModifierType' flags indicating the state of modifier keys.+The signal is emitted again when the mouse is moved out of the+current element with a new /@hitTestResult@/.+-}+type WebViewMouseTargetChangedCallback =+    WebKit2.HitTestResult.HitTestResult+    {- ^ /@hitTestResult@/: a 'GI.WebKit2.Objects.HitTestResult.HitTestResult' -}+    -> Word32+    {- ^ /@modifiers@/: a bitmask of 'GI.Gdk.Flags.ModifierType' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewMouseTargetChangedCallback`@.+noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback+noWebViewMouseTargetChangedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewMouseTargetChangedCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.HitTestResult.HitTestResult ->+    Word32 ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewMouseTargetChangedCallback`.+foreign import ccall "wrapper"+    mk_WebViewMouseTargetChangedCallback :: C_WebViewMouseTargetChangedCallback -> IO (FunPtr C_WebViewMouseTargetChangedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewMouseTargetChangedCallback` into a `C_WebViewMouseTargetChangedCallback`.+wrap_WebViewMouseTargetChangedCallback ::+    WebViewMouseTargetChangedCallback ->+    C_WebViewMouseTargetChangedCallback+wrap_WebViewMouseTargetChangedCallback _cb _ hitTestResult modifiers _ = do+    hitTestResult' <- (newObject WebKit2.HitTestResult.HitTestResult) hitTestResult+    _cb  hitTestResult' modifiers+++{- |+Connect a signal handler for the “@mouse-target-changed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #mouseTargetChanged callback+@+-}+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++{- |+Connect a signal handler for the “@mouse-target-changed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #mouseTargetChanged callback+@+-}+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+++-- signal WebView::permission-request+{- |+This signal is emitted when WebKit is requesting the client to+decide about a permission request, such as allowing the browser+to switch to fullscreen mode, sharing its location or similar+operations.++A possible way to use this signal could be through a dialog+allowing the user decide what to do with the request:++\<informalexample>\<programlisting>+static gboolean permission_request_cb (WebKitWebView *web_view,+                                       WebKitPermissionRequest *request,+                                       GtkWindow *parent_window)+{+    GtkWidget *dialog = gtk_message_dialog_new (parent_window,+                                                GTK_DIALOG_MODAL,+                                                GTK_MESSAGE_QUESTION,+                                                GTK_BUTTONS_YES_NO,+                                                \"Allow Permission Request?\");+    gtk_widget_show (dialog);+    gint result = gtk_dialog_run (GTK_DIALOG (dialog));++    switch (result) {+    case GTK_RESPONSE_YES:+        webkit_permission_request_allow (request);+        break;+    default:+        webkit_permission_request_deny (request);+        break;+    }+    gtk_widget_destroy (dialog);++    return TRUE;+}+\<\/programlisting>\<\/informalexample>++It is possible to handle permission requests asynchronously, by+simply calling 'GI.GObject.Objects.Object.objectRef' on the /@request@/ argument and+returning 'True' to block the default signal handler.  If the+last reference is removed on a 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' and the+request has not been handled, 'GI.WebKit2.Interfaces.PermissionRequest.permissionRequestDeny'+will be the default action.++If the signal is not handled, the /@request@/ will be completed automatically+by the specific 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' that could allow or deny it. Check the+documentation of classes implementing 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' interface to know+their default action.+-}+type WebViewPermissionRequestCallback =+    WebKit2.PermissionRequest.PermissionRequest+    {- ^ /@request@/: the 'GI.WebKit2.Interfaces.PermissionRequest.PermissionRequest' -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewPermissionRequestCallback`@.+noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback+noWebViewPermissionRequestCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewPermissionRequestCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.PermissionRequest.PermissionRequest ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewPermissionRequestCallback`.+foreign import ccall "wrapper"+    mk_WebViewPermissionRequestCallback :: C_WebViewPermissionRequestCallback -> IO (FunPtr C_WebViewPermissionRequestCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewPermissionRequestCallback` into a `C_WebViewPermissionRequestCallback`.+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'+++{- |+Connect a signal handler for the “@permission-request@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #permissionRequest callback+@+-}+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++{- |+Connect a signal handler for the “@permission-request@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #permissionRequest callback+@+-}+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+++-- signal WebView::print+{- |+Emitted when printing is requested on /@webView@/, usually by a JavaScript call,+before the print dialog is shown. This signal can be used to set the initial+print settings and page setup of /@printOperation@/ to be used as default values in+the print dialog. You can call 'GI.WebKit2.Objects.PrintOperation.printOperationSetPrintSettings' and+'GI.WebKit2.Objects.PrintOperation.printOperationSetPageSetup' and then return 'False' to propagate the+event so that the print dialog is shown.++You can connect to this signal and return 'True' to cancel the print operation+or implement your own print dialog.+-}+type WebViewPrintCallback =+    WebKit2.PrintOperation.PrintOperation+    {- ^ /@printOperation@/: the 'GI.WebKit2.Objects.PrintOperation.PrintOperation' that will handle the print request -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewPrintCallback`@.+noWebViewPrintCallback :: Maybe WebViewPrintCallback+noWebViewPrintCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewPrintCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.PrintOperation.PrintOperation ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewPrintCallback`.+foreign import ccall "wrapper"+    mk_WebViewPrintCallback :: C_WebViewPrintCallback -> IO (FunPtr C_WebViewPrintCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewPrintCallback` into a `C_WebViewPrintCallback`.+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'+++{- |+Connect a signal handler for the “@print@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #print callback+@+-}+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++{- |+Connect a signal handler for the “@print@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #print callback+@+-}+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+++-- signal WebView::ready-to-show+{- |+Emitted after 'GI.WebKit2.Objects.WebView.WebView'::@/create/@ on the newly created 'GI.WebKit2.Objects.WebView.WebView'+when it should be displayed to the user. When this signal is emitted+all the information about how the window should look, including+size, position, whether the location, status and scrollbars+should be displayed, is already set on the 'GI.WebKit2.Objects.WindowProperties.WindowProperties'+of /@webView@/. See also 'GI.WebKit2.Objects.WebView.webViewGetWindowProperties'.+-}+type WebViewReadyToShowCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewReadyToShowCallback`@.+noWebViewReadyToShowCallback :: Maybe WebViewReadyToShowCallback+noWebViewReadyToShowCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewReadyToShowCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewReadyToShowCallback`.+foreign import ccall "wrapper"+    mk_WebViewReadyToShowCallback :: C_WebViewReadyToShowCallback -> IO (FunPtr C_WebViewReadyToShowCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewReadyToShowCallback` into a `C_WebViewReadyToShowCallback`.+wrap_WebViewReadyToShowCallback ::+    WebViewReadyToShowCallback ->+    C_WebViewReadyToShowCallback+wrap_WebViewReadyToShowCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@ready-to-show@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #readyToShow callback+@+-}+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++{- |+Connect a signal handler for the “@ready-to-show@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #readyToShow callback+@+-}+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+++-- signal WebView::resource-load-started+{- |+Emitted when a new resource is going to be loaded. The /@request@/ parameter+contains the 'GI.WebKit2.Objects.URIRequest.URIRequest' that will be sent to the server.+You can monitor the load operation by connecting to the different signals+of /@resource@/.+-}+type WebViewResourceLoadStartedCallback =+    WebKit2.WebResource.WebResource+    {- ^ /@resource@/: a 'GI.WebKit2.Objects.WebResource.WebResource' -}+    -> WebKit2.URIRequest.URIRequest+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewResourceLoadStartedCallback`@.+noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback+noWebViewResourceLoadStartedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewResourceLoadStartedCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.WebResource.WebResource ->+    Ptr WebKit2.URIRequest.URIRequest ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewResourceLoadStartedCallback`.+foreign import ccall "wrapper"+    mk_WebViewResourceLoadStartedCallback :: C_WebViewResourceLoadStartedCallback -> IO (FunPtr C_WebViewResourceLoadStartedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewResourceLoadStartedCallback` into a `C_WebViewResourceLoadStartedCallback`.+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'+++{- |+Connect a signal handler for the “@resource-load-started@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #resourceLoadStarted callback+@+-}+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++{- |+Connect a signal handler for the “@resource-load-started@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #resourceLoadStarted callback+@+-}+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+++-- signal WebView::run-as-modal+{- |+Emitted after 'GI.WebKit2.Objects.WebView.WebView'::@/ready-to-show/@ on the newly+created 'GI.WebKit2.Objects.WebView.WebView' when JavaScript code calls+\<function>window.showModalDialog\<\/function>. The purpose of+this signal is to allow the client application to prepare the+new view to behave as modal. Once the signal is emitted a new+main loop will be run to block user interaction in the parent+'GI.WebKit2.Objects.WebView.WebView' until the new dialog is closed.+-}+type WebViewRunAsModalCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewRunAsModalCallback`@.+noWebViewRunAsModalCallback :: Maybe WebViewRunAsModalCallback+noWebViewRunAsModalCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewRunAsModalCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewRunAsModalCallback`.+foreign import ccall "wrapper"+    mk_WebViewRunAsModalCallback :: C_WebViewRunAsModalCallback -> IO (FunPtr C_WebViewRunAsModalCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewRunAsModalCallback` into a `C_WebViewRunAsModalCallback`.+wrap_WebViewRunAsModalCallback ::+    WebViewRunAsModalCallback ->+    C_WebViewRunAsModalCallback+wrap_WebViewRunAsModalCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@run-as-modal@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #runAsModal callback+@+-}+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++{- |+Connect a signal handler for the “@run-as-modal@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #runAsModal callback+@+-}+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+++-- signal WebView::run-color-chooser+{- |+This signal is emitted when the user interacts with a &lt;input+type=\'color\' \/&gt; HTML element, requesting from WebKit to show+a dialog to select a color. To let the application know the details of+the color chooser, as well as to allow the client application to either+cancel the request or perform an actual color selection, the signal will+pass an instance of the 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' in the /@request@/+argument.++It is possible to handle this request asynchronously by increasing the+reference count of the request.++The default signal handler will asynchronously run a regular+'GI.Gtk.Interfaces.ColorChooser.ColorChooser' for the user to interact with.++/Since: 2.8/+-}+type WebViewRunColorChooserCallback =+    WebKit2.ColorChooserRequest.ColorChooserRequest+    {- ^ /@request@/: a 'GI.WebKit2.Objects.ColorChooserRequest.ColorChooserRequest' -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewRunColorChooserCallback`@.+noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback+noWebViewRunColorChooserCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewRunColorChooserCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.ColorChooserRequest.ColorChooserRequest ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewRunColorChooserCallback`.+foreign import ccall "wrapper"+    mk_WebViewRunColorChooserCallback :: C_WebViewRunColorChooserCallback -> IO (FunPtr C_WebViewRunColorChooserCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewRunColorChooserCallback` into a `C_WebViewRunColorChooserCallback`.+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'+++{- |+Connect a signal handler for the “@run-color-chooser@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #runColorChooser callback+@+-}+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++{- |+Connect a signal handler for the “@run-color-chooser@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #runColorChooser callback+@+-}+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+++-- signal WebView::run-file-chooser+{- |+This signal is emitted when the user interacts with a &lt;input+type=\'file\' \/&gt; HTML element, requesting from WebKit to show+a dialog to select one or more files to be uploaded. To let the+application know the details of the file chooser, as well as to+allow the client application to either cancel the request or+perform an actual selection of files, the signal will pass an+instance of the 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' in the /@request@/+argument.++The default signal handler will asynchronously run a regular+'GI.Gtk.Objects.FileChooserDialog.FileChooserDialog' for the user to interact with.+-}+type WebViewRunFileChooserCallback =+    WebKit2.FileChooserRequest.FileChooserRequest+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FileChooserRequest.FileChooserRequest' -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewRunFileChooserCallback`@.+noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback+noWebViewRunFileChooserCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewRunFileChooserCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.FileChooserRequest.FileChooserRequest ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewRunFileChooserCallback`.+foreign import ccall "wrapper"+    mk_WebViewRunFileChooserCallback :: C_WebViewRunFileChooserCallback -> IO (FunPtr C_WebViewRunFileChooserCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewRunFileChooserCallback` into a `C_WebViewRunFileChooserCallback`.+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'+++{- |+Connect a signal handler for the “@run-file-chooser@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #runFileChooser callback+@+-}+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++{- |+Connect a signal handler for the “@run-file-chooser@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #runFileChooser callback+@+-}+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+++-- signal WebView::script-dialog+{- |+Emitted when JavaScript code calls \<function>window.alert\<\/function>,+\<function>window.confirm\<\/function> or \<function>window.prompt\<\/function>,+or when \<function>onbeforeunload\<\/function> event is fired.+The /@dialog@/ parameter should be used to build the dialog.+If the signal is not handled a different dialog will be built and shown depending+on the dialog type:+\<itemizedlist>+\<listitem>\<para>+ 'GI.WebKit2.Enums.ScriptDialogTypeAlert': message dialog with a single Close button.+\<\/para>\<\/listitem>+\<listitem>\<para>+ 'GI.WebKit2.Enums.ScriptDialogTypeConfirm': message dialog with OK and Cancel buttons.+\<\/para>\<\/listitem>+\<listitem>\<para>+ 'GI.WebKit2.Enums.ScriptDialogTypePrompt': message dialog with OK and Cancel buttons and+ a text entry with the default text.+\<\/para>\<\/listitem>+\<listitem>\<para>+ 'GI.WebKit2.Enums.ScriptDialogTypeBeforeUnloadConfirm': message dialog with Stay and Leave buttons.+\<\/para>\<\/listitem>+\<\/itemizedlist>++It is possible to handle the script dialog request asynchronously, by simply+caling 'GI.WebKit2.Structs.ScriptDialog.scriptDialogRef' on the /@dialog@/ argument and calling+'GI.WebKit2.Structs.ScriptDialog.scriptDialogClose' when done.+If the last reference is removed on a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' and the dialog has not been+closed, 'GI.WebKit2.Structs.ScriptDialog.scriptDialogClose' will be called.+-}+type WebViewScriptDialogCallback =+    WebKit2.ScriptDialog.ScriptDialog+    {- ^ /@dialog@/: the 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' to show -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewScriptDialogCallback`@.+noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback+noWebViewScriptDialogCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewScriptDialogCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.ScriptDialog.ScriptDialog ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewScriptDialogCallback`.+foreign import ccall "wrapper"+    mk_WebViewScriptDialogCallback :: C_WebViewScriptDialogCallback -> IO (FunPtr C_WebViewScriptDialogCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewScriptDialogCallback` into a `C_WebViewScriptDialogCallback`.+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'+++{- |+Connect a signal handler for the “@script-dialog@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #scriptDialog callback+@+-}+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++{- |+Connect a signal handler for the “@script-dialog@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #scriptDialog callback+@+-}+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+++-- signal WebView::show-notification+{- |+This signal is emitted when a notification should be presented to the+user. The /@notification@/ is kept alive until either: 1) the web page cancels it+or 2) a navigation happens.++The default handler will emit a notification using libnotify, if built with+support for it.++/Since: 2.8/+-}+type WebViewShowNotificationCallback =+    WebKit2.Notification.Notification+    {- ^ /@notification@/: a 'GI.WebKit2.Objects.Notification.Notification' -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked. 'False' otherwise. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewShowNotificationCallback`@.+noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback+noWebViewShowNotificationCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewShowNotificationCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.Notification.Notification ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewShowNotificationCallback`.+foreign import ccall "wrapper"+    mk_WebViewShowNotificationCallback :: C_WebViewShowNotificationCallback -> IO (FunPtr C_WebViewShowNotificationCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewShowNotificationCallback` into a `C_WebViewShowNotificationCallback`.+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'+++{- |+Connect a signal handler for the “@show-notification@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #showNotification callback+@+-}+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++{- |+Connect a signal handler for the “@show-notification@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #showNotification callback+@+-}+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+++-- signal WebView::show-option-menu+{- |+This signal is emitted when a select element in /@webView@/ needs to display a+dropdown menu. This signal can be used to show a custom menu, using /@menu@/ to get+the details of all items that should be displayed. The area of the element in the+'GI.WebKit2.Objects.WebView.WebView' is given as /@rectangle@/ parameter, it can be used to position the+menu. If this was triggered by a user interaction, like a mouse click,+/@event@/ parameter provides the 'GI.Gdk.Unions.Event.Event'.+To handle this signal asynchronously you should keep a ref of the /@menu@/.++The default signal handler will pop up a 'GI.Gtk.Objects.Menu.Menu'.++/Since: 2.18/+-}+type WebViewShowOptionMenuCallback =+    WebKit2.OptionMenu.OptionMenu+    {- ^ /@menu@/: the 'GI.WebKit2.Objects.OptionMenu.OptionMenu' -}+    -> Gdk.Event.Event+    {- ^ /@event@/: the 'GI.Gdk.Unions.Event.Event' that triggered the menu, or 'Nothing' -}+    -> Gdk.Rectangle.Rectangle+    {- ^ /@rectangle@/: the option element area -}+    -> IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+  'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewShowOptionMenuCallback`@.+noWebViewShowOptionMenuCallback :: Maybe WebViewShowOptionMenuCallback+noWebViewShowOptionMenuCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewShowOptionMenuCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.OptionMenu.OptionMenu ->+    Ptr Gdk.Event.Event ->+    Ptr Gdk.Rectangle.Rectangle ->+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewShowOptionMenuCallback`.+foreign import ccall "wrapper"+    mk_WebViewShowOptionMenuCallback :: C_WebViewShowOptionMenuCallback -> IO (FunPtr C_WebViewShowOptionMenuCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewShowOptionMenuCallback` into a `C_WebViewShowOptionMenuCallback`.+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'+++{- |+Connect a signal handler for the “@show-option-menu@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #showOptionMenu callback+@+-}+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++{- |+Connect a signal handler for the “@show-option-menu@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #showOptionMenu callback+@+-}+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+++-- signal WebView::submit-form+{- |+This signal is emitted when a form is about to be submitted. The /@request@/+argument passed contains information about the text fields of the form. This+is typically used to store login information that can be used later to+pre-fill the form.+The form will not be submitted until 'GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestSubmit' is called.++It is possible to handle the form submission request asynchronously, by+simply calling 'GI.GObject.Objects.Object.objectRef' on the /@request@/ argument and calling+'GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestSubmit' when done to continue with the form submission.+If the last reference is removed on a 'GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest' and the+form has not been submitted, 'GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestSubmit' will be called.+-}+type WebViewSubmitFormCallback =+    WebKit2.FormSubmissionRequest.FormSubmissionRequest+    {- ^ /@request@/: a 'GI.WebKit2.Objects.FormSubmissionRequest.FormSubmissionRequest' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewSubmitFormCallback`@.+noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback+noWebViewSubmitFormCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewSubmitFormCallback =+    Ptr () ->                               -- object+    Ptr WebKit2.FormSubmissionRequest.FormSubmissionRequest ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewSubmitFormCallback`.+foreign import ccall "wrapper"+    mk_WebViewSubmitFormCallback :: C_WebViewSubmitFormCallback -> IO (FunPtr C_WebViewSubmitFormCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewSubmitFormCallback` into a `C_WebViewSubmitFormCallback`.+wrap_WebViewSubmitFormCallback ::+    WebViewSubmitFormCallback ->+    C_WebViewSubmitFormCallback+wrap_WebViewSubmitFormCallback _cb _ request _ = do+    request' <- (newObject WebKit2.FormSubmissionRequest.FormSubmissionRequest) request+    _cb  request'+++{- |+Connect a signal handler for the “@submit-form@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #submitForm callback+@+-}+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++{- |+Connect a signal handler for the “@submit-form@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #submitForm callback+@+-}+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+++-- signal WebView::web-process-crashed+{-# DEPRECATED WebViewWebProcessCrashedCallback ["(Since version 2.20)","Use WebKitWebView::web-process-terminated instead."] #-}+{- |+This signal is emitted when the web process crashes.+-}+type WebViewWebProcessCrashedCallback =+    IO Bool+    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event.+   'False' to propagate the event further. -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewWebProcessCrashedCallback`@.+noWebViewWebProcessCrashedCallback :: Maybe WebViewWebProcessCrashedCallback+noWebViewWebProcessCrashedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewWebProcessCrashedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++-- | Generate a function pointer callable from C code, from a `C_WebViewWebProcessCrashedCallback`.+foreign import ccall "wrapper"+    mk_WebViewWebProcessCrashedCallback :: C_WebViewWebProcessCrashedCallback -> IO (FunPtr C_WebViewWebProcessCrashedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewWebProcessCrashedCallback` into a `C_WebViewWebProcessCrashedCallback`.+wrap_WebViewWebProcessCrashedCallback ::+    WebViewWebProcessCrashedCallback ->+    C_WebViewWebProcessCrashedCallback+wrap_WebViewWebProcessCrashedCallback _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'+++{- |+Connect a signal handler for the “@web-process-crashed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #webProcessCrashed callback+@+-}+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++{- |+Connect a signal handler for the “@web-process-crashed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #webProcessCrashed callback+@+-}+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+++-- signal WebView::web-process-terminated+{- |+This signal is emitted when the web process terminates abnormally due+to /@reason@/.++/Since: 2.20/+-}+type WebViewWebProcessTerminatedCallback =+    WebKit2.Enums.WebProcessTerminationReason+    {- ^ /@reason@/: the a 'GI.WebKit2.Enums.WebProcessTerminationReason' -}+    -> IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `WebViewWebProcessTerminatedCallback`@.+noWebViewWebProcessTerminatedCallback :: Maybe WebViewWebProcessTerminatedCallback+noWebViewWebProcessTerminatedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_WebViewWebProcessTerminatedCallback =+    Ptr () ->                               -- object+    CUInt ->+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_WebViewWebProcessTerminatedCallback`.+foreign import ccall "wrapper"+    mk_WebViewWebProcessTerminatedCallback :: C_WebViewWebProcessTerminatedCallback -> IO (FunPtr C_WebViewWebProcessTerminatedCallback)++-- | Wrap the callback into a `GClosure`.+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 a `WebViewWebProcessTerminatedCallback` into a `C_WebViewWebProcessTerminatedCallback`.+wrap_WebViewWebProcessTerminatedCallback ::+    WebViewWebProcessTerminatedCallback ->+    C_WebViewWebProcessTerminatedCallback+wrap_WebViewWebProcessTerminatedCallback _cb _ reason _ = do+    let reason' = (toEnum . fromIntegral) reason+    _cb  reason'+++{- |+Connect a signal handler for the “@web-process-terminated@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' webView #webProcessTerminated callback+@+-}+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++{- |+Connect a signal handler for the “@web-process-terminated@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' webView #webProcessTerminated callback+@+-}+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+++-- VVV Prop "editable"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Just False)++{- |+Get the value of the “@editable@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #editable+@+-}+getWebViewEditable :: (MonadIO m, IsWebView o) => o -> m Bool+getWebViewEditable obj = liftIO $ B.Properties.getObjectPropertyBool obj "editable"++{- |+Set the value of the “@editable@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' webView [ #editable 'Data.GI.Base.Attributes.:=' value ]+@+-}+setWebViewEditable :: (MonadIO m, IsWebView o) => o -> Bool -> m ()+setWebViewEditable obj val = liftIO $ B.Properties.setObjectPropertyBool obj "editable" val++{- |+Construct a `GValueConstruct` with valid value for the “@editable@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- VVV Prop "estimated-load-progress"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@estimated-load-progress@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #estimatedLoadProgress+@+-}+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++-- VVV Prop "favicon"+   -- Type: TBasicType TPtr+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@favicon@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #favicon+@+-}+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++-- VVV Prop "is-controlled-by-automation"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@is-controlled-by-automation@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #isControlledByAutomation+@+-}+getWebViewIsControlledByAutomation :: (MonadIO m, IsWebView o) => o -> m Bool+getWebViewIsControlledByAutomation obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-controlled-by-automation"++{- |+Construct a `GValueConstruct` with valid value for the “@is-controlled-by-automation@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- VVV Prop "is-ephemeral"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@is-ephemeral@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #isEphemeral+@+-}+getWebViewIsEphemeral :: (MonadIO m, IsWebView o) => o -> m Bool+getWebViewIsEphemeral obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-ephemeral"++{- |+Construct a `GValueConstruct` with valid value for the “@is-ephemeral@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- VVV Prop "is-loading"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@is-loading@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #isLoading+@+-}+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++-- VVV Prop "is-playing-audio"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@is-playing-audio@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #isPlayingAudio+@+-}+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++-- VVV Prop "related-view"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "WebView"})+   -- Flags: [PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Construct a `GValueConstruct` with valid value for the “@related-view@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- VVV Prop "settings"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "Settings"})+   -- Flags: [PropertyWritable,PropertyConstruct]+   -- Nullable: (Just False,Just False)++{- |+Set the value of the “@settings@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' webView [ #settings 'Data.GI.Base.Attributes.:=' value ]+@+-}+setWebViewSettings :: (MonadIO m, IsWebView o, WebKit2.Settings.IsSettings a) => o -> a -> m ()+setWebViewSettings obj val = liftIO $ B.Properties.setObjectPropertyObject obj "settings" (Just val)++{- |+Construct a `GValueConstruct` with valid value for the “@settings@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- VVV Prop "title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@title@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #title+@+-}+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++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@uri@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #uri+@+-}+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++-- VVV Prop "user-content-manager"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@user-content-manager@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #userContentManager+@+-}+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++{- |+Construct a `GValueConstruct` with valid value for the “@user-content-manager@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- VVV Prop "web-context"+   -- Type: TInterface (Name {namespace = "WebKit2", name = "WebContext"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@web-context@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #webContext+@+-}+getWebViewWebContext :: (MonadIO m, IsWebView o) => o -> m (Maybe WebKit2.WebContext.WebContext)+getWebViewWebContext obj = liftIO $ B.Properties.getObjectPropertyObject obj "web-context" WebKit2.WebContext.WebContext++{- |+Construct a `GValueConstruct` with valid value for the “@web-context@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- VVV Prop "zoom-level"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)++{- |+Get the value of the “@zoom-level@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' webView #zoomLevel+@+-}+getWebViewZoomLevel :: (MonadIO m, IsWebView o) => o -> m Double+getWebViewZoomLevel obj = liftIO $ B.Properties.getObjectPropertyDouble obj "zoom-level"++{- |+Set the value of the “@zoom-level@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.set' webView [ #zoomLevel 'Data.GI.Base.Attributes.:=' value ]+@+-}+setWebViewZoomLevel :: (MonadIO m, IsWebView o) => o -> Double -> m ()+setWebViewZoomLevel obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "zoom-level" val++{- |+Construct a `GValueConstruct` with valid value for the “@zoom-level@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+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++-- method WebView::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_new" webkit_web_view_new :: +    IO (Ptr WebView)++{- |+Creates a new 'GI.WebKit2.Objects.WebView.WebView' with the default 'GI.WebKit2.Objects.WebContext.WebContext' and+no 'GI.WebKit2.Objects.UserContentManager.UserContentManager' associated with it.+See also 'GI.WebKit2.Objects.WebView.webViewNewWithContext',+'GI.WebKit2.Objects.WebView.webViewNewWithUserContentManager', and+'GI.WebKit2.Objects.WebView.webViewNewWithSettings'.+-}+webViewNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m WebView+    {- ^ __Returns:__ The newly created 'GI.WebKit2.Objects.WebView.WebView' widget -}+webViewNew  = liftIO $ do+    result <- webkit_web_view_new+    checkUnexpectedReturnNULL "webViewNew" result+    result' <- (newObject WebView) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method WebView::new_with_context+-- method type : Constructor+-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "WebKit2", name = "WebContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebContext to be used by the #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_new_with_context" webkit_web_view_new_with_context :: +    Ptr WebKit2.WebContext.WebContext ->    -- context : TInterface (Name {namespace = "WebKit2", name = "WebContext"})+    IO (Ptr WebView)++{- |+Creates a new 'GI.WebKit2.Objects.WebView.WebView' with the given 'GI.WebKit2.Objects.WebContext.WebContext' and+no 'GI.WebKit2.Objects.UserContentManager.UserContentManager' associated with it.+See also 'GI.WebKit2.Objects.WebView.webViewNewWithUserContentManager' and+'GI.WebKit2.Objects.WebView.webViewNewWithSettings'.+-}+webViewNewWithContext ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.WebContext.IsWebContext a) =>+    a+    {- ^ /@context@/: the 'GI.WebKit2.Objects.WebContext.WebContext' to be used by the 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebView+    {- ^ __Returns:__ The newly created 'GI.WebKit2.Objects.WebView.WebView' widget -}+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++-- method WebView::new_with_related_view+-- method type : Constructor+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the related #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_new_with_related_view" webkit_web_view_new_with_related_view :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebView)++{- |+Creates a new 'GI.WebKit2.Objects.WebView.WebView' sharing the same web process with /@webView@/.+This method doesn\'t have any effect when 'GI.WebKit2.Enums.ProcessModelSharedSecondaryProcess'+process model is used, because a single web process is shared for all the web views in the+same 'GI.WebKit2.Objects.WebContext.WebContext'. When using 'GI.WebKit2.Enums.ProcessModelMultipleSecondaryProcesses' process model,+this method should always be used when creating the 'GI.WebKit2.Objects.WebView.WebView' in the 'GI.WebKit2.Objects.WebView.WebView'::@/create/@ signal.+You can also use this method to implement other process models based on 'GI.WebKit2.Enums.ProcessModelMultipleSecondaryProcesses',+like for example, sharing the same web process for all the views in the same security domain.++The newly created 'GI.WebKit2.Objects.WebView.WebView' will also have the same 'GI.WebKit2.Objects.UserContentManager.UserContentManager'+and 'GI.WebKit2.Objects.Settings.Settings' as /@webView@/.++/Since: 2.4/+-}+webViewNewWithRelatedView ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: the related 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebView+    {- ^ __Returns:__ The newly created 'GI.WebKit2.Objects.WebView.WebView' widget -}+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++-- method WebView::new_with_settings+-- method type : Constructor+-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_new_with_settings" webkit_web_view_new_with_settings :: +    Ptr WebKit2.Settings.Settings ->        -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO (Ptr WebView)++{- |+Creates a new 'GI.WebKit2.Objects.WebView.WebView' with the given 'GI.WebKit2.Objects.Settings.Settings'.+See also 'GI.WebKit2.Objects.WebView.webViewNewWithContext', and+'GI.WebKit2.Objects.WebView.webViewNewWithUserContentManager'.++/Since: 2.6/+-}+webViewNewWithSettings ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.Settings.IsSettings a) =>+    a+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> m WebView+    {- ^ __Returns:__ The newly created 'GI.WebKit2.Objects.WebView.WebView' widget -}+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++-- method WebView::new_with_user_content_manager+-- method type : Constructor+-- Args : [Arg {argCName = "user_content_manager", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserContentManager.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebView"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_new_with_user_content_manager" webkit_web_view_new_with_user_content_manager :: +    Ptr WebKit2.UserContentManager.UserContentManager -> -- user_content_manager : TInterface (Name {namespace = "WebKit2", name = "UserContentManager"})+    IO (Ptr WebView)++{- |+Creates a new 'GI.WebKit2.Objects.WebView.WebView' with the given 'GI.WebKit2.Objects.UserContentManager.UserContentManager'.+The content loaded in the view may be affected by the content injected+in the view by the user content manager.++/Since: 2.6/+-}+webViewNewWithUserContentManager ::+    (B.CallStack.HasCallStack, MonadIO m, WebKit2.UserContentManager.IsUserContentManager a) =>+    a+    {- ^ /@userContentManager@/: a 'GI.WebKit2.Objects.UserContentManager.UserContentManager'. -}+    -> m WebView+    {- ^ __Returns:__ The newly created 'GI.WebKit2.Objects.WebView.WebView' widget -}+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++-- method WebView::can_execute_editing_command+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the command to check", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_can_execute_editing_command" webkit_web_view_can_execute_editing_command :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- command : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously check if it is possible to execute the given editing command.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommandFinish' to get the result of the operation.+-}+webViewCanExecuteEditingCommand ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@command@/: the command to check -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> 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++-- method WebView::can_execute_editing_command_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_view_can_execute_editing_command_finish" webkit_web_view_can_execute_editing_command_finish :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand'.+-}+webViewCanExecuteEditingCommandFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+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++-- method WebView::can_go_back+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CInt++{- |+Determines whether /@webView@/ has a previous history item.+-}+webViewCanGoBack ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if able to move back or 'False' otherwise. -}+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++-- method WebView::can_go_forward+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CInt++{- |+Determines whether /@webView@/ has a next history item.+-}+webViewCanGoForward ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if able to move forward or 'False' otherwise. -}+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++-- method WebView::can_show_mime_type+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a MIME type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- mime_type : TBasicType TUTF8+    IO CInt++{- |+Whether or not a MIME type can be displayed in /@webView@/.+-}+webViewCanShowMimeType ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@mimeType@/: a MIME type -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the MIME type /@mimeType@/ can be displayed or 'False' otherwise -}+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++-- method WebView::download_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to download", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Download"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_download_uri" webkit_web_view_download_uri :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- uri : TBasicType TUTF8+    IO (Ptr WebKit2.Download.Download)++{- |+Requests downloading of the specified URI string for /@webView@/.+-}+webViewDownloadUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@uri@/: the URI to download -}+    -> m WebKit2.Download.Download+    {- ^ __Returns:__ a new 'GI.WebKit2.Objects.Download.Download' representing+   the download operation. -}+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++-- method WebView::execute_editing_command+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the command to execute", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_execute_editing_command" webkit_web_view_execute_editing_command :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- command : TBasicType TUTF8+    IO ()++{- |+Request to execute the given /@command@/ for /@webView@/. You can use+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand' to check whether+it\'s possible to execute the command.+-}+webViewExecuteEditingCommand ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@command@/: the command to execute -}+    -> 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++-- method WebView::execute_editing_command_with_argument+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the command to execute", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argument", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the command argument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_execute_editing_command_with_argument" webkit_web_view_execute_editing_command_with_argument :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- command : TBasicType TUTF8+    CString ->                              -- argument : TBasicType TUTF8+    IO ()++{- |+Request to execute the given /@command@/ with /@argument@/ for /@webView@/. You can use+'GI.WebKit2.Objects.WebView.webViewCanExecuteEditingCommand' to check whether+it\'s possible to execute the command.++/Since: 2.10/+-}+webViewExecuteEditingCommandWithArgument ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@command@/: the command to execute -}+    -> T.Text+    {- ^ /@argument@/: the command argument -}+    -> 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++-- method WebView::get_back_forward_list+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "BackForwardList"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.BackForwardList.BackForwardList)++{- |+Obtains the 'GI.WebKit2.Objects.BackForwardList.BackForwardList' associated with the given 'GI.WebKit2.Objects.WebView.WebView'. The+'GI.WebKit2.Objects.BackForwardList.BackForwardList' is owned by the 'GI.WebKit2.Objects.WebView.WebView'.+-}+webViewGetBackForwardList ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.BackForwardList.BackForwardList+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.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++-- method WebView::get_background_color+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface (Name {namespace = "Gdk", name = "RGBA"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkRGBA to fill in with the background color", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_background_color" webkit_web_view_get_background_color :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gdk.RGBA.RGBA ->                    -- rgba : TInterface (Name {namespace = "Gdk", name = "RGBA"})+    IO ()++{- |+Gets the color that is used to draw the /@webView@/ background before+the actual contents are rendered.+For more information see also 'GI.WebKit2.Objects.WebView.webViewSetBackgroundColor'++/Since: 2.8/+-}+webViewGetBackgroundColor ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> 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++-- method WebView::get_context+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebContext"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_context" webkit_web_view_get_context :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.WebContext.WebContext)++{- |+Gets the web context of /@webView@/.+-}+webViewGetContext ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.WebContext.WebContext+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.WebContext.WebContext' of the view -}+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++-- method WebView::get_custom_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_custom_charset" webkit_web_view_get_custom_charset :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CString++{- |+Returns the current custom character encoding name of /@webView@/.+-}+webViewGetCustomCharset ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the current custom character encoding name or 'Nothing' if no+   custom character encoding has been set. -}+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++-- method WebView::get_editor_state+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "EditorState"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_editor_state" webkit_web_view_get_editor_state :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.EditorState.EditorState)++{- |+Gets the web editor state of /@webView@/.++/Since: 2.10/+-}+webViewGetEditorState ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.EditorState.EditorState+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.EditorState.EditorState' of the view -}+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++-- method WebView::get_estimated_load_progress+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TDouble)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_estimated_load_progress" webkit_web_view_get_estimated_load_progress :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CDouble++{- |+Gets the value of the 'GI.WebKit2.Objects.WebView.WebView':@/estimated-load-progress/@ property.+You can monitor the estimated progress of a load operation by+connecting to the notify::estimated-load-progress signal of /@webView@/.+-}+webViewGetEstimatedLoadProgress ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Double+    {- ^ __Returns:__ an estimate of the of the percent complete for a document+    load as a range from 0.0 to 1.0. -}+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++-- method WebView::get_favicon+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "cairo", name = "Surface"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_favicon" webkit_web_view_get_favicon :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr Cairo.Surface.Surface)++{- |+Returns favicon currently associated to /@webView@/, if any. You can+connect to notify::favicon signal of /@webView@/ to be notified when+the favicon is available.+-}+webViewGetFavicon ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m (Maybe Cairo.Surface.Surface)+    {- ^ __Returns:__ a pointer to a 'GI.Cairo.Structs.Surface.Surface' with the+   favicon or 'Nothing' if there\'s no icon associated with /@webView@/. -}+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++-- method WebView::get_find_controller+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "FindController"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_find_controller" webkit_web_view_get_find_controller :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.FindController.FindController)++{- |+Gets the 'GI.WebKit2.Objects.FindController.FindController' that will allow the caller to query+the 'GI.WebKit2.Objects.WebView.WebView' for the text to look for.+-}+webViewGetFindController ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: the 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.FindController.FindController+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.FindController.FindController' associated to+this particular 'GI.WebKit2.Objects.WebView.WebView'. -}+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++-- method WebView::get_inspector+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebInspector"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.WebInspector.WebInspector)++{- |+Get the 'GI.WebKit2.Objects.WebInspector.WebInspector' associated to /@webView@/+-}+webViewGetInspector ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.WebInspector.WebInspector+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.WebInspector.WebInspector' of /@webView@/ -}+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++-- method WebView::get_main_resource+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebResource"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_main_resource" webkit_web_view_get_main_resource :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.WebResource.WebResource)++{- |+Return the main resource of /@webView@/.+-}+webViewGetMainResource ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m (Maybe WebKit2.WebResource.WebResource)+    {- ^ __Returns:__ the main 'GI.WebKit2.Objects.WebResource.WebResource' of the view+   or 'Nothing' if nothing has been loaded. -}+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++-- method WebView::get_page_id+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt64)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_page_id" webkit_web_view_get_page_id :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO Word64++{- |+Get the identifier of the @/WebKitWebPage/@ corresponding to+the 'GI.WebKit2.Objects.WebView.WebView'+-}+webViewGetPageId ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Word64+    {- ^ __Returns:__ the page ID of /@webView@/. -}+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++-- method WebView::get_session_state+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_session_state" webkit_web_view_get_session_state :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.WebViewSessionState.WebViewSessionState)++{- |+Gets the current session state of /@webView@/++/Since: 2.12/+-}+webViewGetSessionState ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.WebViewSessionState.WebViewSessionState+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.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++-- method WebView::get_settings+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Settings"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.Settings.Settings)++{- |+Gets the 'GI.WebKit2.Objects.Settings.Settings' currently applied to /@webView@/.+If no other 'GI.WebKit2.Objects.Settings.Settings' have been explicitly applied to+/@webView@/ with 'GI.WebKit2.Objects.WebView.webViewSetSettings', the default+'GI.WebKit2.Objects.Settings.Settings' will be returned. This method always returns+a valid 'GI.WebKit2.Objects.Settings.Settings' object.+To modify any of the /@webView@/ settings, you can either create+a new 'GI.WebKit2.Objects.Settings.Settings' object with 'GI.WebKit2.Objects.Settings.settingsNew', setting+the desired preferences, and then replace the existing /@webView@/+settings with 'GI.WebKit2.Objects.WebView.webViewSetSettings' or get the existing+/@webView@/ settings and update it directly. 'GI.WebKit2.Objects.Settings.Settings' objects+can be shared by multiple 'GI.WebKit2.Objects.WebView.WebView'\<!-- -->s, so modifying+the settings of a 'GI.WebKit2.Objects.WebView.WebView' would affect other+'GI.WebKit2.Objects.WebView.WebView'\<!-- -->s using the same 'GI.WebKit2.Objects.Settings.Settings'.+-}+webViewGetSettings ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.Settings.Settings+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.Settings.Settings' attached to /@webView@/ -}+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++-- method WebView::get_snapshot+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface (Name {namespace = "WebKit2", name = "SnapshotRegion"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitSnapshotRegion for this snapshot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface (Name {namespace = "WebKit2", name = "SnapshotOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#WebKitSnapshotOptions for the snapshot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CUInt ->                                -- region : TInterface (Name {namespace = "WebKit2", name = "SnapshotRegion"})+    CUInt ->                                -- options : TInterface (Name {namespace = "WebKit2", name = "SnapshotOptions"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously retrieves a snapshot of /@webView@/ for /@region@/.+/@options@/ specifies how the snapshot should be rendered.++When the operation is finished, /@callback@/ will be called. You must+call 'GI.WebKit2.Objects.WebView.webViewGetSnapshotFinish' to get the result of the+operation.+-}+webViewGetSnapshot ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> WebKit2.Enums.SnapshotRegion+    {- ^ /@region@/: the 'GI.WebKit2.Enums.SnapshotRegion' for this snapshot -}+    -> [WebKit2.Flags.SnapshotOptions]+    {- ^ /@options@/: 'GI.WebKit2.Flags.SnapshotOptions' for the snapshot -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.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++-- method WebView::get_snapshot_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "cairo", name = "Surface"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_view_get_snapshot_finish" webkit_web_view_get_snapshot_finish :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Cairo.Surface.Surface)++{- |+Finishes an asynchronous operation started with 'GI.WebKit2.Objects.WebView.webViewGetSnapshot'.+-}+webViewGetSnapshotFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m Cairo.Surface.Surface+    {- ^ __Returns:__ a 'GI.Cairo.Structs.Surface.Surface' with the retrieved snapshot or 'Nothing' in error. /(Can throw 'Data.GI.Base.GError.GError')/ -}+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++-- method WebView::get_title+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CString++{- |+Gets the value of the 'GI.WebKit2.Objects.WebView.WebView':@/title/@ property.+You can connect to notify::title signal of /@webView@/ to+be notified when the title has been received.+-}+webViewGetTitle ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ The main frame document title of /@webView@/. -}+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++-- method WebView::get_tls_info+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for a #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for a #GTlsCertificateFlags the verification status of @certificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_tls_info" webkit_web_view_get_tls_info :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr (Ptr Gio.TlsCertificate.TlsCertificate) -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})+    Ptr CUInt ->                            -- errors : TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})+    IO CInt++{- |+Retrieves the 'GI.Gio.Objects.TlsCertificate.TlsCertificate' associated with the main resource of /@webView@/,+and the 'GI.Gio.Flags.TlsCertificateFlags' showing what problems, if any, have been found+with that certificate.+If the connection is not HTTPS, this function returns 'False'.+This function should be called after a response has been received from the+server, so you can connect to 'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ and call this function+when it\'s emitted with 'GI.WebKit2.Enums.LoadEventCommitted' event.++Note that this function provides no information about the security of the web+page if the current 'GI.WebKit2.Enums.TLSErrorsPolicy' is /@wEBKITTLSERRORSPOLICYIGNORE@/,+as subresources of the page may be controlled by an attacker. This function+may safely be used to determine the security status of the current page only+if the current 'GI.WebKit2.Enums.TLSErrorsPolicy' is /@wEBKITTLSERRORSPOLICYFAIL@/, in+which case subresources that fail certificate verification will be blocked.+-}+webViewGetTlsInfo ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m ((Bool, Gio.TlsCertificate.TlsCertificate, [Gio.Flags.TlsCertificateFlags]))+    {- ^ __Returns:__ 'True' if the /@webView@/ connection uses HTTPS and a response has been received+   from the server, or 'False' otherwise. -}+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++-- method WebView::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CString++{- |+Returns the current active URI of /@webView@/. The active URI might change during+a load operation:++\<orderedlist>+\<listitem>\<para>+  When nothing has been loaded yet on /@webView@/ the active URI is 'Nothing'.+\<\/para>\<\/listitem>+\<listitem>\<para>+  When a new load operation starts the active URI is the requested URI:+  \<itemizedlist>+  \<listitem>\<para>+    If the load operation was started by 'GI.WebKit2.Objects.WebView.webViewLoadUri',+    the requested URI is the given one.+  \<\/para>\<\/listitem>+  \<listitem>\<para>+    If the load operation was started by 'GI.WebKit2.Objects.WebView.webViewLoadHtml',+    the requested URI is \"about:blank\".+  \<\/para>\<\/listitem>+  \<listitem>\<para>+    If the load operation was started by 'GI.WebKit2.Objects.WebView.webViewLoadAlternateHtml',+    the requested URI is content URI provided.+  \<\/para>\<\/listitem>+  \<listitem>\<para>+    If the load operation was started by 'GI.WebKit2.Objects.WebView.webViewGoBack' or+    'GI.WebKit2.Objects.WebView.webViewGoForward', the requested URI is the original URI+    of the previous\/next item in the 'GI.WebKit2.Objects.BackForwardList.BackForwardList' of /@webView@/.+  \<\/para>\<\/listitem>+  \<listitem>\<para>+    If the load operation was started by+    'GI.WebKit2.Objects.WebView.webViewGoToBackForwardListItem', the requested URI+    is the opriginal URI of the given 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem'.+  \<\/para>\<\/listitem>+  \<\/itemizedlist>+\<\/para>\<\/listitem>+\<listitem>\<para>+  If there is a server redirection during the load operation,+  the active URI is the redirected URI. When the signal+  'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ is emitted with 'GI.WebKit2.Enums.LoadEventRedirected'+  event, the active URI is already updated to the redirected URI.+\<\/para>\<\/listitem>+\<listitem>\<para>+  When the signal 'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ is emitted+  with 'GI.WebKit2.Enums.LoadEventCommitted' event, the active URI is the final+  one and it will not change unless a new load operation is started+  or a navigation action within the same page is performed.+\<\/para>\<\/listitem>+\<\/orderedlist>++You can monitor the active URI by connecting to the notify::uri+signal of /@webView@/.+-}+webViewGetUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the current active URI of /@webView@/ or 'Nothing'+   if nothing has been loaded yet. -}+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++-- method WebView::get_user_content_manager+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserContentManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_user_content_manager" webkit_web_view_get_user_content_manager :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.UserContentManager.UserContentManager)++{- |+Gets the user content manager associated to /@webView@/.++/Since: 2.6/+-}+webViewGetUserContentManager ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.UserContentManager.UserContentManager+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.UserContentManager.UserContentManager' associated with the view -}+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++-- method WebView::get_website_data_manager+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_website_data_manager" webkit_web_view_get_website_data_manager :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.WebsiteDataManager.WebsiteDataManager)++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' associated to /@webView@/. If /@webView@/ is not ephemeral,+the returned 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' will be the same as the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'+of /@webView@/\'s 'GI.WebKit2.Objects.WebContext.WebContext'.++/Since: 2.16/+-}+webViewGetWebsiteDataManager ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.WebsiteDataManager.WebsiteDataManager+    {- ^ __Returns:__ a 'GI.WebKit2.Objects.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++-- method WebView::get_window_properties+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_window_properties" webkit_web_view_get_window_properties :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO (Ptr WebKit2.WindowProperties.WindowProperties)++{- |+Get the 'GI.WebKit2.Objects.WindowProperties.WindowProperties' object containing the properties+that the window containing /@webView@/ should have.+-}+webViewGetWindowProperties ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m WebKit2.WindowProperties.WindowProperties+    {- ^ __Returns:__ the 'GI.WebKit2.Objects.WindowProperties.WindowProperties' of /@webView@/ -}+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++-- method WebView::get_zoom_level+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TDouble)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CDouble++{- |+Get the zoom level of /@webView@/, i.e. the factor by which the+view contents are scaled with respect to their original size.+-}+webViewGetZoomLevel ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Double+    {- ^ __Returns:__ the current zoom level of /@webView@/ -}+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++-- method WebView::go_back+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO ()++{- |+Loads the previous history item.+You can monitor the load operation by connecting to+'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.+-}+webViewGoBack ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> 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++-- method WebView::go_forward+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO ()++{- |+Loads the next history item.+You can monitor the load operation by connecting to+'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.+-}+webViewGoForward ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> 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++-- method WebView::go_to_back_forward_list_item+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list_item", argType = TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitBackForwardListItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_go_to_back_forward_list_item" webkit_web_view_go_to_back_forward_list_item :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr WebKit2.BackForwardListItem.BackForwardListItem -> -- list_item : TInterface (Name {namespace = "WebKit2", name = "BackForwardListItem"})+    IO ()++{- |+Loads the specific history item /@listItem@/.+You can monitor the load operation by connecting to+'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.+-}+webViewGoToBackForwardListItem ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.BackForwardListItem.IsBackForwardListItem b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@listItem@/: a 'GI.WebKit2.Objects.BackForwardListItem.BackForwardListItem' -}+    -> 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++-- method WebView::is_controlled_by_automation+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_is_controlled_by_automation" webkit_web_view_is_controlled_by_automation :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CInt++{- |+Get whether a 'GI.WebKit2.Objects.WebView.WebView' was created with 'GI.WebKit2.Objects.WebView.WebView':@/is-controlled-by-automation/@+property enabled. Only 'GI.WebKit2.Objects.WebView.WebView'\<!-- -->s controlled by automation can be used in an+automation session.++/Since: 2.18/+-}+webViewIsControlledByAutomation ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@webView@/ is controlled by automation, or 'False' otherwise. -}+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++-- method WebView::is_editable+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_is_editable" webkit_web_view_is_editable :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CInt++{- |+/No description available in the introspection data./+-}+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++-- method WebView::is_ephemeral+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_is_ephemeral" webkit_web_view_is_ephemeral :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CInt++{- |+Get whether a 'GI.WebKit2.Objects.WebView.WebView' is ephemeral. To create an ephemeral 'GI.WebKit2.Objects.WebView.WebView' you need to+use @/g_object_new()/@ and pass is-ephemeral property with 'True' value. See+'GI.WebKit2.Objects.WebView.WebView':@/is-ephemeral/@ for more details.+If /@webView@/ was created with a ephemeral 'GI.WebKit2.Objects.WebView.WebView':@/related-view/@ or an+ephemeral 'GI.WebKit2.Objects.WebView.WebView':@/web-context/@ it will also be ephemeral.++/Since: 2.16/+-}+webViewIsEphemeral ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@webView@/ is ephemeral or 'False' otherwise. -}+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++-- method WebView::is_loading+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_is_loading" webkit_web_view_is_loading :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CInt++{- |+Gets the value of the 'GI.WebKit2.Objects.WebView.WebView':@/is-loading/@ property.+You can monitor when a 'GI.WebKit2.Objects.WebView.WebView' is loading a page by connecting to+notify::is-loading signal of /@webView@/. This is useful when you are+interesting in knowing when the view is loading something but not in the+details about the status of the load operation, for example to start a spinner+when the view is loading a page and stop it when it finishes.+-}+webViewIsLoading ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@webView@/ is loading a page or 'False' otherwise. -}+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++-- method WebView::is_playing_audio+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_is_playing_audio" webkit_web_view_is_playing_audio :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO CInt++{- |+Gets the value of the 'GI.WebKit2.Objects.WebView.WebView':@/is-playing-audio/@ property.+You can monitor when a page in a 'GI.WebKit2.Objects.WebView.WebView' is playing audio by+connecting to the notify::is-playing-audio signal of /@webView@/. This+is useful when the application wants to provide visual feedback when a+page is producing sound.++/Since: 2.8/+-}+webViewIsPlayingAudio ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if a page in /@webView@/ is playing audio or 'False' otherwise. -}+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++-- method WebView::load_alternate_html+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new content to display as the main page of the @web_view", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI for the alternate page content", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the base URI for relative locations or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_load_alternate_html" webkit_web_view_load_alternate_html :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- content : TBasicType TUTF8+    CString ->                              -- content_uri : TBasicType TUTF8+    CString ->                              -- base_uri : TBasicType TUTF8+    IO ()++{- |+Load the given /@content@/ string for the URI /@contentUri@/.+This allows clients to display page-loading errors in the 'GI.WebKit2.Objects.WebView.WebView' itself.+When this method is called from 'GI.WebKit2.Objects.WebView.WebView'::@/load-failed/@ signal to show an+error page, then the back-forward list is maintained appropriately.+For everything else this method works the same way as 'GI.WebKit2.Objects.WebView.webViewLoadHtml'.+-}+webViewLoadAlternateHtml ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@content@/: the new content to display as the main page of the /@webView@/ -}+    -> T.Text+    {- ^ /@contentUri@/: the URI for the alternate page content -}+    -> Maybe (T.Text)+    {- ^ /@baseUri@/: the base URI for relative locations or 'Nothing' -}+    -> 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++-- method WebView::load_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input data to load", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the MIME type of @bytes, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the character encoding of @bytes, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the base URI for relative locations or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_load_bytes" webkit_web_view_load_bytes :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr GLib.Bytes.Bytes ->                 -- bytes : TInterface (Name {namespace = "GLib", name = "Bytes"})+    CString ->                              -- mime_type : TBasicType TUTF8+    CString ->                              -- encoding : TBasicType TUTF8+    CString ->                              -- base_uri : TBasicType TUTF8+    IO ()++{- |+Load the specified /@bytes@/ into /@webView@/ using the given /@mimeType@/ and /@encoding@/.+When /@mimeType@/ is 'Nothing', it defaults to \"text\/html\".+When /@encoding@/ is 'Nothing', it defaults to \"UTF-8\".+When /@baseUri@/ is 'Nothing', it defaults to \"about:blank\".+You can monitor the load operation by connecting to 'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.++/Since: 2.6/+-}+webViewLoadBytes ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> GLib.Bytes.Bytes+    {- ^ /@bytes@/: input data to load -}+    -> Maybe (T.Text)+    {- ^ /@mimeType@/: the MIME type of /@bytes@/, or 'Nothing' -}+    -> Maybe (T.Text)+    {- ^ /@encoding@/: the character encoding of /@bytes@/, or 'Nothing' -}+    -> Maybe (T.Text)+    {- ^ /@baseUri@/: the base URI for relative locations or 'Nothing' -}+    -> 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++-- method WebView::load_html+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The HTML string to load", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The base URI for relative locations or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_load_html" webkit_web_view_load_html :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- content : TBasicType TUTF8+    CString ->                              -- base_uri : TBasicType TUTF8+    IO ()++{- |+Load the given /@content@/ string with the specified /@baseUri@/.+If /@baseUri@/ is not 'Nothing', relative URLs in the /@content@/ will be+resolved against /@baseUri@/ and absolute local paths must be children of the /@baseUri@/.+For security reasons absolute local paths that are not children of /@baseUri@/+will cause the web process to terminate.+If you need to include URLs in /@content@/ that are local paths in a different+directory than /@baseUri@/ you can build a data URI for them. When /@baseUri@/ is 'Nothing',+it defaults to \"about:blank\". The mime type of the document will be \"text\/html\".+You can monitor the load operation by connecting to 'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.+-}+webViewLoadHtml ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@content@/: The HTML string to load -}+    -> Maybe (T.Text)+    {- ^ /@baseUri@/: The base URI for relative locations or 'Nothing' -}+    -> 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++-- method WebView::load_plain_text+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The plain text to load", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_load_plain_text" webkit_web_view_load_plain_text :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- plain_text : TBasicType TUTF8+    IO ()++{- |+Load the specified /@plainText@/ string into /@webView@/. The mime type of+document will be \"text\/plain\". You can monitor the load+operation by connecting to 'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.+-}+webViewLoadPlainText ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@plainText@/: The plain text to load -}+    -> 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++-- method WebView::load_request+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request", argType = TInterface (Name {namespace = "WebKit2", name = "URIRequest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitURIRequest to load", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr WebKit2.URIRequest.URIRequest ->    -- request : TInterface (Name {namespace = "WebKit2", name = "URIRequest"})+    IO ()++{- |+Requests loading of the specified 'GI.WebKit2.Objects.URIRequest.URIRequest'.+You can monitor the load operation by connecting to+'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.+-}+webViewLoadRequest ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.URIRequest.IsURIRequest b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@request@/: a 'GI.WebKit2.Objects.URIRequest.URIRequest' to load -}+    -> 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++-- method WebView::load_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an URI string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- uri : TBasicType TUTF8+    IO ()++{- |+Requests loading of the specified URI string.+You can monitor the load operation by connecting to+'GI.WebKit2.Objects.WebView.WebView'::@/load-changed/@ signal.+-}+webViewLoadUri ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@uri@/: an URI string -}+    -> 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++-- method WebView::reload+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_reload" webkit_web_view_reload :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO ()++{- |+Reloads the current contents of /@webView@/.+See also 'GI.WebKit2.Objects.WebView.webViewReloadBypassCache'.+-}+webViewReload ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> 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++-- method WebView::reload_bypass_cache+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO ()++{- |+Reloads the current contents of /@webView@/ without+using any cached data.+-}+webViewReloadBypassCache ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> 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++-- method WebView::restore_session_state+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebViewSessionState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_restore_session_state" webkit_web_view_restore_session_state :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr WebKit2.WebViewSessionState.WebViewSessionState -> -- state : TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"})+    IO ()++{- |+Restore the /@webView@/ session state from /@state@/++/Since: 2.12/+-}+webViewRestoreSessionState ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> WebKit2.WebViewSessionState.WebViewSessionState+    {- ^ /@state@/: a 'GI.WebKit2.Structs.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++-- method WebView::run_javascript+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the script to run", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the script finished", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_run_javascript" webkit_web_view_run_javascript :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- script : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously run /@script@/ in the context of the current page in /@webView@/. If+WebKitSettings:enable-javascript is FALSE, this method will do nothing.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebView.webViewRunJavascriptFinish' to get the result of the operation.+-}+webViewRunJavascript ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@script@/: the script to run -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the script finished -}+    -> 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++-- method WebView::run_javascript_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_view_run_javascript_finish" webkit_web_view_run_javascript_finish :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr WebKit2.JavascriptResult.JavascriptResult)++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebView.webViewRunJavascript'.++This is an example of using 'GI.WebKit2.Objects.WebView.webViewRunJavascript' with a script returning+a string:++\<informalexample>\<programlisting>+static void+web_view_javascript_finished (GObject      *object,+                              GAsyncResult *result,+                              gpointer      user_data)+{+    WebKitJavascriptResult *js_result;+    JSCValue               *value;+    GError                 *error = NULL;++    js_result = webkit_web_view_run_javascript_finish (WEBKIT_WEB_VIEW (object), result, &error);+    if (!js_result) {+        g_warning (\"Error running javascript: @/s/@\", error->message);+        g_error_free (error);+        return;+    }++    value = webkit_javascript_result_get_js_value (js_result);+    if (jsc_value_is_string (value)) {+        JSCException *exception;+        gchar        *str_value;++        str_value = jsc_value_to_string (value);+        exception = jsc_context_get_exception (jsc_value_get_context (value));+        if (exception)+            g_warning (\"Error running javascript: @/s/@\", jsc_exception_get_message (exception));+        else+            g_print (\"Script result: @/s/@\\n\", str_value);+        g_free (str_value);+    } else {+        g_warning (\"Error running javascript: unexpected return value\");+    }+    webkit_javascript_result_unref (js_result);+}++static void+web_view_get_link_url (WebKitWebView *web_view,+                       const gchar   *link_id)+{+    gchar *script;++    script = g_strdup_printf (\"window.document.getElementById(\'@/s/@\').href;\", link_id);+    webkit_web_view_run_javascript (web_view, script, NULL, web_view_javascript_finished, NULL);+    g_free (script);+}+\<\/programlisting>\<\/informalexample>+-}+webViewRunJavascriptFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m WebKit2.JavascriptResult.JavascriptResult+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' with the result of the last executed statement in /@script@/+   or 'Nothing' in case of error /(Can throw 'Data.GI.Base.GError.GError')/ -}+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++-- method WebView::run_javascript_from_gresource+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the location of the resource to load", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the script finished", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_run_javascript_from_gresource" webkit_web_view_run_javascript_from_gresource :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- resource : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously run the script from /@resource@/ in the context of the+current page in /@webView@/.++When the operation is finished, /@callback@/ will be called. You can+then call 'GI.WebKit2.Objects.WebView.webViewRunJavascriptFromGresourceFinish' to get the result+of the operation.+-}+webViewRunJavascriptFromGresource ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@resource@/: the location of the resource to load -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the script finished -}+    -> 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++-- method WebView::run_javascript_from_gresource_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_view_run_javascript_from_gresource_finish" webkit_web_view_run_javascript_from_gresource_finish :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr WebKit2.JavascriptResult.JavascriptResult)++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebView.webViewRunJavascriptFromGresource'.++Check 'GI.WebKit2.Objects.WebView.webViewRunJavascriptFinish' for a usage example.+-}+webViewRunJavascriptFromGresourceFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m WebKit2.JavascriptResult.JavascriptResult+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' with the result of the last executed statement in /@script@/+   or 'Nothing' in case of error /(Can throw 'Data.GI.Base.GError.GError')/ -}+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++-- method WebView::run_javascript_in_world+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the script to run", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "world_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a #WebKitScriptWorld", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the script finished", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_run_javascript_in_world" webkit_web_view_run_javascript_in_world :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- script : TBasicType TUTF8+    CString ->                              -- world_name : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously run /@script@/ in the script world with name /@worldName@/ of the current page context in /@webView@/.+If WebKitSettings:enable-javascript is FALSE, this method will do nothing.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebView.webViewRunJavascriptInWorldFinish' to get the result of the operation.++/Since: 2.22/+-}+webViewRunJavascriptInWorld ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> T.Text+    {- ^ /@script@/: the script to run -}+    -> T.Text+    {- ^ /@worldName@/: the name of a @/WebKitScriptWorld/@ -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the script finished -}+    -> 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++-- method WebView::run_javascript_in_world_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_view_run_javascript_in_world_finish" webkit_web_view_run_javascript_in_world_finish :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr WebKit2.JavascriptResult.JavascriptResult)++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebView.webViewRunJavascriptInWorld'.++/Since: 2.22/+-}+webViewRunJavascriptInWorldFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m WebKit2.JavascriptResult.JavascriptResult+    {- ^ __Returns:__ a 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' with the result of the last executed statement in /@script@/+   or 'Nothing' in case of error /(Can throw 'Data.GI.Base.GError.GError')/ -}+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++-- method WebView::save+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface (Name {namespace = "WebKit2", name = "SaveMode"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitSaveMode specifying how the web page should be saved.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_save" webkit_web_view_save :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CUInt ->                                -- save_mode : TInterface (Name {namespace = "WebKit2", name = "SaveMode"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously save the current web page associated to the+'GI.WebKit2.Objects.WebView.WebView' into a self-contained format using the mode+specified in /@saveMode@/.++When the operation is finished, /@callback@/ will be called. You can+then call 'GI.WebKit2.Objects.WebView.webViewSaveFinish' to get the result of the+operation.+-}+webViewSave ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> WebKit2.Enums.SaveMode+    {- ^ /@saveMode@/: the 'GI.WebKit2.Enums.SaveMode' specifying how the web page should be saved. -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> 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++-- method WebView::save_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_view_save_finish" webkit_web_view_save_finish :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Gio.InputStream.InputStream)++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebView.webViewSave'.+-}+webViewSaveFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m Gio.InputStream.InputStream+    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' with the result of saving+   the current web page or 'Nothing' in case of error. /(Can throw 'Data.GI.Base.GError.GError')/ -}+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++-- method WebView::save_to_file+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GFile where the current web page should be saved to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface (Name {namespace = "WebKit2", name = "SaveMode"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #WebKitSaveMode specifying how the web page should be saved.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_save_to_file" webkit_web_view_save_to_file :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.File.File ->                    -- file : TInterface (Name {namespace = "Gio", name = "File"})+    CUInt ->                                -- save_mode : TInterface (Name {namespace = "WebKit2", name = "SaveMode"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously save the current web page associated to the+'GI.WebKit2.Objects.WebView.WebView' into a self-contained format using the mode+specified in /@saveMode@/ and writing it to /@file@/.++When the operation is finished, /@callback@/ will be called. You can+then call 'GI.WebKit2.Objects.WebView.webViewSaveToFileFinish' to get the result of the+operation.+-}+webViewSaveToFile ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.File.IsFile b, Gio.Cancellable.IsCancellable c) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@file@/: the 'GI.Gio.Interfaces.File.File' where the current web page should be saved to. -}+    -> WebKit2.Enums.SaveMode+    {- ^ /@saveMode@/: the 'GI.WebKit2.Enums.SaveMode' specifying how the web page should be saved. -}+    -> Maybe (c)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> 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++-- method WebView::save_to_file_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_view_save_to_file_finish" webkit_web_view_save_to_file_finish :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebView.webViewSaveToFile'.+-}+webViewSaveToFileFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+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++-- method WebView::set_background_color+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface (Name {namespace = "Gdk", name = "RGBA"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkRGBA", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_set_background_color" webkit_web_view_set_background_color :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr Gdk.RGBA.RGBA ->                    -- rgba : TInterface (Name {namespace = "Gdk", name = "RGBA"})+    IO ()++{- |+Sets the color that will be used to draw the /@webView@/ background before+the actual contents are rendered. Note that if the web page loaded in /@webView@/+specifies a background color, it will take precedence over the /@rgba@/ color.+By default the /@webView@/ background color is opaque white.+Note that the parent window must have a RGBA visual and+'GI.Gtk.Objects.Widget.Widget':@/app-paintable/@ property set to 'True' for backgrounds colors to work.++\<informalexample>\<programlisting>+static void browser_window_set_background_color (BrowserWindow *window,+                                                 const GdkRGBA *rgba)+{+    WebKitWebView *web_view;+    GdkScreen *screen = gtk_window_get_screen (GTK_WINDOW (window));+    GdkVisual *rgba_visual = gdk_screen_get_rgba_visual (screen);++    if (!rgba_visual)+         return;++    gtk_widget_set_visual (GTK_WIDGET (window), rgba_visual);+    gtk_widget_set_app_paintable (GTK_WIDGET (window), TRUE);++    web_view = browser_window_get_web_view (window);+    webkit_web_view_set_background_color (web_view, rgba);+}+\<\/programlisting>\<\/informalexample>++/Since: 2.8/+-}+webViewSetBackgroundColor ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> Gdk.RGBA.RGBA+    {- ^ /@rgba@/: a 'GI.Gdk.Structs.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++-- method WebView::set_custom_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a character encoding name or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_set_custom_charset" webkit_web_view_set_custom_charset :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CString ->                              -- charset : TBasicType TUTF8+    IO ()++{- |+Sets the current custom character encoding override of /@webView@/. The custom+character encoding will override any text encoding detected via HTTP headers or+META tags. Calling this method will stop any current load operation and reload the+current page. Setting the custom character encoding to 'Nothing' removes the character+encoding override.+-}+webViewSetCustomCharset ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> Maybe (T.Text)+    {- ^ /@charset@/: a character encoding name or 'Nothing' -}+    -> 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++-- method WebView::set_editable+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gboolean indicating the editable state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CInt ->                                 -- editable : TBasicType TBoolean+    IO ()++{- |+Sets whether the user is allowed to edit the HTML document.++If /@editable@/ is 'True', /@webView@/ allows the user to edit the HTML document. If+/@editable@/ is 'False', an element in /@webView@/\'s document can only be edited if the+CONTENTEDITABLE attribute has been set on the element or one of its parent+elements. By default a 'GI.WebKit2.Objects.WebView.WebView' is not editable.++Normally, a HTML document is not editable unless the elements within the+document are editable. This function provides a way to make the contents+of a 'GI.WebKit2.Objects.WebView.WebView' editable without altering the document or DOM structure.++/Since: 2.8/+-}+webViewSetEditable ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> Bool+    {- ^ /@editable@/: a 'Bool' indicating the editable state -}+    -> 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++-- method WebView::set_settings+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface (Name {namespace = "WebKit2", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    Ptr WebKit2.Settings.Settings ->        -- settings : TInterface (Name {namespace = "WebKit2", name = "Settings"})+    IO ()++{- |+Sets the 'GI.WebKit2.Objects.Settings.Settings' to be applied to /@webView@/. The+existing 'GI.WebKit2.Objects.Settings.Settings' of /@webView@/ will be replaced by+/@settings@/. New settings are applied immediately on /@webView@/.+The same 'GI.WebKit2.Objects.Settings.Settings' object can be shared+by multiple 'GI.WebKit2.Objects.WebView.WebView'\<!-- -->s.+-}+webViewSetSettings ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a, WebKit2.Settings.IsSettings b) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> b+    {- ^ /@settings@/: a 'GI.WebKit2.Objects.Settings.Settings' -}+    -> 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++-- method WebView::set_zoom_level+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the zoom level", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    CDouble ->                              -- zoom_level : TBasicType TDouble+    IO ()++{- |+Set the zoom level of /@webView@/, i.e. the factor by which the+view contents are scaled with respect to their original size.+-}+webViewSetZoomLevel ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> Double+    {- ^ /@zoomLevel@/: the zoom level -}+    -> 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++-- method WebView::stop_loading+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO ()++{- |+Stops any ongoing loading operation in /@webView@/.+This method does nothing if no content is being loaded.+If there is a loading operation in progress, it will be cancelled and+'GI.WebKit2.Objects.WebView.WebView'::@/load-failed/@ signal will be emitted with+'GI.WebKit2.Enums.NetworkErrorCancelled' error.+-}+webViewStopLoading ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> 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++-- method WebView::try_close+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "web_view", argType = TInterface (Name {namespace = "WebKit2", name = "WebView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_try_close" webkit_web_view_try_close :: +    Ptr WebView ->                          -- web_view : TInterface (Name {namespace = "WebKit2", name = "WebView"})+    IO ()++{- |+Tries to close the /@webView@/. This will fire the onbeforeunload event+to ask the user for confirmation to close the page. If there isn\'t an+onbeforeunload event handler or the user confirms to close the page,+the 'GI.WebKit2.Objects.WebView.WebView'::@/close/@ signal is emitted, otherwise nothing happens.++/Since: 2.12/+-}+webViewTryClose ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebView a) =>+    a+    {- ^ /@webView@/: a 'GI.WebKit2.Objects.WebView.WebView' -}+    -> 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++
+ GI/WebKit2/Objects/WebView.hs-boot view
@@ -0,0 +1,341 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.WebView 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++newtype WebView = WebView (ManagedPtr WebView)+instance GObject WebView where+class (GObject o, O.IsDescendantOf WebView o) => IsWebView o+instance (GObject o, O.IsDescendantOf WebView o) => IsWebView o+instance O.HasParentTypes WebView+#if ENABLE_OVERLOADING+data WebViewEditablePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewEstimatedLoadProgressPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewFaviconPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsControlledByAutomationPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsEphemeralPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsLoadingPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsPlayingAudioPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRelatedViewPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSettingsPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewTitlePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewUriPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewUserContentManagerPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewWebContextPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewZoomLevelPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebViewAuthenticateSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewCloseSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewContextMenuSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewContextMenuDismissedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewCreateSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewDecidePolicySignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewEnterFullscreenSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewInsecureContentDetectedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLeaveFullscreenSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadChangedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadFailedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadFailedWithTlsErrorsSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewMouseTargetChangedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewPermissionRequestSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewPrintSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewReadyToShowSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewResourceLoadStartedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunAsModalSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunColorChooserSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunFileChooserSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewScriptDialogSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewShowNotificationSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewShowOptionMenuSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSubmitFormSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewWebProcessCrashedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewWebProcessTerminatedSignalInfo+#endif+#if ENABLE_OVERLOADING+data WebViewCanExecuteEditingCommandMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewCanExecuteEditingCommandFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewCanGoBackMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewCanGoForwardMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewCanShowMimeTypeMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewDownloadUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewExecuteEditingCommandMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewExecuteEditingCommandWithArgumentMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetBackForwardListMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetBackgroundColorMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetContextMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetCustomCharsetMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetEditorStateMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetEstimatedLoadProgressMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetFaviconMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetFindControllerMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetInspectorMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetMainResourceMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetPageIdMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetSessionStateMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetSettingsMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetSnapshotMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetSnapshotFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetTitleMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetTlsInfoMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetUserContentManagerMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetWebsiteDataManagerMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetWindowPropertiesMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGetZoomLevelMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGoBackMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGoForwardMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewGoToBackForwardListItemMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsControlledByAutomationMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsEditableMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsEphemeralMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsLoadingMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewIsPlayingAudioMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadAlternateHtmlMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadBytesMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadHtmlMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadPlainTextMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadRequestMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewLoadUriMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewReloadMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewReloadBypassCacheMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRestoreSessionStateMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunJavascriptMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunJavascriptFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunJavascriptFromGresourceMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunJavascriptFromGresourceFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunJavascriptInWorldMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewRunJavascriptInWorldFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSaveMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSaveFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSaveToFileMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSaveToFileFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSetBackgroundColorMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSetCustomCharsetMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSetEditableMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSetSettingsMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSetZoomLevelMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewStopLoadingMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewTryCloseMethodInfo+#endif
+ GI/WebKit2/Objects/WebViewBase.hs view
@@ -0,0 +1,421 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.WebViewBase+    ( ++-- * Exported types+    WebViewBase(..)                         ,+    IsWebViewBase                           ,+    toWebViewBase                           ,+    noWebViewBase                           ,+++    ) 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.GObject.Objects.Object as GObject.Object+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++-- | Memory-managed wrapper type.+newtype WebViewBase = WebViewBase (ManagedPtr WebViewBase)+foreign import ccall "webkit_web_view_base_get_type"+    c_webkit_web_view_base_get_type :: IO GType++instance GObject WebViewBase where+    gobjectType = c_webkit_web_view_base_get_type+    ++-- | Type class for types which can be safely cast to `WebViewBase`, for instance with `toWebViewBase`.+class (GObject o, O.IsDescendantOf WebViewBase o) => IsWebViewBase o+instance (GObject o, O.IsDescendantOf WebViewBase o) => IsWebViewBase o++instance O.HasParentTypes WebViewBase+type instance O.ParentTypes WebViewBase = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]++-- | Cast to `WebViewBase`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toWebViewBase :: (MonadIO m, IsWebViewBase o) => o -> m WebViewBase+toWebViewBase = liftIO . unsafeCastTo WebViewBase++-- | A convenience alias for `Nothing` :: `Maybe` `WebViewBase`.+noWebViewBase :: Maybe WebViewBase+noWebViewBase = Nothing++#if ENABLE_OVERLOADING+type family ResolveWebViewBaseMethod (t :: Symbol) (o :: *) :: * where+    ResolveWebViewBaseMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo+    ResolveWebViewBaseMethod "add" o = Gtk.Container.ContainerAddMethodInfo+    ResolveWebViewBaseMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo+    ResolveWebViewBaseMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo+    ResolveWebViewBaseMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo+    ResolveWebViewBaseMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo+    ResolveWebViewBaseMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo+    ResolveWebViewBaseMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo+    ResolveWebViewBaseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveWebViewBaseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveWebViewBaseMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo+    ResolveWebViewBaseMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo+    ResolveWebViewBaseMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo+    ResolveWebViewBaseMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo+    ResolveWebViewBaseMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo+    ResolveWebViewBaseMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo+    ResolveWebViewBaseMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo+    ResolveWebViewBaseMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo+    ResolveWebViewBaseMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo+    ResolveWebViewBaseMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo+    ResolveWebViewBaseMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo+    ResolveWebViewBaseMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo+    ResolveWebViewBaseMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo+    ResolveWebViewBaseMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo+    ResolveWebViewBaseMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo+    ResolveWebViewBaseMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo+    ResolveWebViewBaseMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo+    ResolveWebViewBaseMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo+    ResolveWebViewBaseMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo+    ResolveWebViewBaseMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo+    ResolveWebViewBaseMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo+    ResolveWebViewBaseMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo+    ResolveWebViewBaseMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo+    ResolveWebViewBaseMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo+    ResolveWebViewBaseMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo+    ResolveWebViewBaseMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo+    ResolveWebViewBaseMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo+    ResolveWebViewBaseMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo+    ResolveWebViewBaseMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo+    ResolveWebViewBaseMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo+    ResolveWebViewBaseMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo+    ResolveWebViewBaseMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo+    ResolveWebViewBaseMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo+    ResolveWebViewBaseMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo+    ResolveWebViewBaseMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo+    ResolveWebViewBaseMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo+    ResolveWebViewBaseMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo+    ResolveWebViewBaseMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo+    ResolveWebViewBaseMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo+    ResolveWebViewBaseMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo+    ResolveWebViewBaseMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo+    ResolveWebViewBaseMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo+    ResolveWebViewBaseMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo+    ResolveWebViewBaseMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo+    ResolveWebViewBaseMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo+    ResolveWebViewBaseMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo+    ResolveWebViewBaseMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo+    ResolveWebViewBaseMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo+    ResolveWebViewBaseMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo+    ResolveWebViewBaseMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo+    ResolveWebViewBaseMethod "event" o = Gtk.Widget.WidgetEventMethodInfo+    ResolveWebViewBaseMethod "forall" o = Gtk.Container.ContainerForallMethodInfo+    ResolveWebViewBaseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveWebViewBaseMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo+    ResolveWebViewBaseMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo+    ResolveWebViewBaseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveWebViewBaseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveWebViewBaseMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo+    ResolveWebViewBaseMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo+    ResolveWebViewBaseMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo+    ResolveWebViewBaseMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo+    ResolveWebViewBaseMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo+    ResolveWebViewBaseMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo+    ResolveWebViewBaseMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo+    ResolveWebViewBaseMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo+    ResolveWebViewBaseMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo+    ResolveWebViewBaseMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo+    ResolveWebViewBaseMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo+    ResolveWebViewBaseMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo+    ResolveWebViewBaseMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo+    ResolveWebViewBaseMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo+    ResolveWebViewBaseMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo+    ResolveWebViewBaseMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo+    ResolveWebViewBaseMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo+    ResolveWebViewBaseMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo+    ResolveWebViewBaseMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo+    ResolveWebViewBaseMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo+    ResolveWebViewBaseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveWebViewBaseMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo+    ResolveWebViewBaseMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo+    ResolveWebViewBaseMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo+    ResolveWebViewBaseMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo+    ResolveWebViewBaseMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo+    ResolveWebViewBaseMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo+    ResolveWebViewBaseMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo+    ResolveWebViewBaseMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo+    ResolveWebViewBaseMethod "map" o = Gtk.Widget.WidgetMapMethodInfo+    ResolveWebViewBaseMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo+    ResolveWebViewBaseMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo+    ResolveWebViewBaseMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo+    ResolveWebViewBaseMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo+    ResolveWebViewBaseMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo+    ResolveWebViewBaseMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo+    ResolveWebViewBaseMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo+    ResolveWebViewBaseMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo+    ResolveWebViewBaseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveWebViewBaseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveWebViewBaseMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo+    ResolveWebViewBaseMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo+    ResolveWebViewBaseMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo+    ResolveWebViewBaseMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo+    ResolveWebViewBaseMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo+    ResolveWebViewBaseMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo+    ResolveWebViewBaseMethod "path" o = Gtk.Widget.WidgetPathMethodInfo+    ResolveWebViewBaseMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo+    ResolveWebViewBaseMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo+    ResolveWebViewBaseMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo+    ResolveWebViewBaseMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo+    ResolveWebViewBaseMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo+    ResolveWebViewBaseMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo+    ResolveWebViewBaseMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo+    ResolveWebViewBaseMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo+    ResolveWebViewBaseMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo+    ResolveWebViewBaseMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveWebViewBaseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveWebViewBaseMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo+    ResolveWebViewBaseMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo+    ResolveWebViewBaseMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo+    ResolveWebViewBaseMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo+    ResolveWebViewBaseMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo+    ResolveWebViewBaseMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo+    ResolveWebViewBaseMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo+    ResolveWebViewBaseMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo+    ResolveWebViewBaseMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo+    ResolveWebViewBaseMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo+    ResolveWebViewBaseMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo+    ResolveWebViewBaseMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo+    ResolveWebViewBaseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveWebViewBaseMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo+    ResolveWebViewBaseMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo+    ResolveWebViewBaseMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo+    ResolveWebViewBaseMethod "show" o = Gtk.Widget.WidgetShowMethodInfo+    ResolveWebViewBaseMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo+    ResolveWebViewBaseMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo+    ResolveWebViewBaseMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo+    ResolveWebViewBaseMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo+    ResolveWebViewBaseMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo+    ResolveWebViewBaseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveWebViewBaseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveWebViewBaseMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo+    ResolveWebViewBaseMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo+    ResolveWebViewBaseMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo+    ResolveWebViewBaseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveWebViewBaseMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo+    ResolveWebViewBaseMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo+    ResolveWebViewBaseMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo+    ResolveWebViewBaseMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo+    ResolveWebViewBaseMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo+    ResolveWebViewBaseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveWebViewBaseMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo+    ResolveWebViewBaseMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo+    ResolveWebViewBaseMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo+    ResolveWebViewBaseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveWebViewBaseMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo+    ResolveWebViewBaseMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo+    ResolveWebViewBaseMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo+    ResolveWebViewBaseMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo+    ResolveWebViewBaseMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo+    ResolveWebViewBaseMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo+    ResolveWebViewBaseMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo+    ResolveWebViewBaseMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo+    ResolveWebViewBaseMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo+    ResolveWebViewBaseMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo+    ResolveWebViewBaseMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo+    ResolveWebViewBaseMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo+    ResolveWebViewBaseMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo+    ResolveWebViewBaseMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo+    ResolveWebViewBaseMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo+    ResolveWebViewBaseMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo+    ResolveWebViewBaseMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo+    ResolveWebViewBaseMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo+    ResolveWebViewBaseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveWebViewBaseMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo+    ResolveWebViewBaseMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo+    ResolveWebViewBaseMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo+    ResolveWebViewBaseMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo+    ResolveWebViewBaseMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo+    ResolveWebViewBaseMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo+    ResolveWebViewBaseMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo+    ResolveWebViewBaseMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo+    ResolveWebViewBaseMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo+    ResolveWebViewBaseMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo+    ResolveWebViewBaseMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo+    ResolveWebViewBaseMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo+    ResolveWebViewBaseMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo+    ResolveWebViewBaseMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo+    ResolveWebViewBaseMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo+    ResolveWebViewBaseMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo+    ResolveWebViewBaseMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo+    ResolveWebViewBaseMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo+    ResolveWebViewBaseMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo+    ResolveWebViewBaseMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo+    ResolveWebViewBaseMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo+    ResolveWebViewBaseMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo+    ResolveWebViewBaseMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo+    ResolveWebViewBaseMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo+    ResolveWebViewBaseMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo+    ResolveWebViewBaseMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo+    ResolveWebViewBaseMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo+    ResolveWebViewBaseMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo+    ResolveWebViewBaseMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo+    ResolveWebViewBaseMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo+    ResolveWebViewBaseMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo+    ResolveWebViewBaseMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo+    ResolveWebViewBaseMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo+    ResolveWebViewBaseMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo+    ResolveWebViewBaseMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo+    ResolveWebViewBaseMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo+    ResolveWebViewBaseMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo+    ResolveWebViewBaseMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo+    ResolveWebViewBaseMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo+    ResolveWebViewBaseMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo+    ResolveWebViewBaseMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo+    ResolveWebViewBaseMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo+    ResolveWebViewBaseMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo+    ResolveWebViewBaseMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo+    ResolveWebViewBaseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveWebViewBaseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveWebViewBaseMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo+    ResolveWebViewBaseMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo+    ResolveWebViewBaseMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo+    ResolveWebViewBaseMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo+    ResolveWebViewBaseMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo+    ResolveWebViewBaseMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo+    ResolveWebViewBaseMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo+    ResolveWebViewBaseMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo+    ResolveWebViewBaseMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo+    ResolveWebViewBaseMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo+    ResolveWebViewBaseMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo+    ResolveWebViewBaseMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo+    ResolveWebViewBaseMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo+    ResolveWebViewBaseMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo+    ResolveWebViewBaseMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo+    ResolveWebViewBaseMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo+    ResolveWebViewBaseMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo+    ResolveWebViewBaseMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo+    ResolveWebViewBaseMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo+    ResolveWebViewBaseMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo+    ResolveWebViewBaseMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo+    ResolveWebViewBaseMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo+    ResolveWebViewBaseMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo+    ResolveWebViewBaseMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo+    ResolveWebViewBaseMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo+    ResolveWebViewBaseMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo+    ResolveWebViewBaseMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo+    ResolveWebViewBaseMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo+    ResolveWebViewBaseMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo+    ResolveWebViewBaseMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo+    ResolveWebViewBaseMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo+    ResolveWebViewBaseMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo+    ResolveWebViewBaseMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo+    ResolveWebViewBaseMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo+    ResolveWebViewBaseMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo+    ResolveWebViewBaseMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo+    ResolveWebViewBaseMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo+    ResolveWebViewBaseMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo+    ResolveWebViewBaseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveWebViewBaseMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo+    ResolveWebViewBaseMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo+    ResolveWebViewBaseMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo+    ResolveWebViewBaseMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo+    ResolveWebViewBaseMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo+    ResolveWebViewBaseMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo+    ResolveWebViewBaseMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo+    ResolveWebViewBaseMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo+    ResolveWebViewBaseMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo+    ResolveWebViewBaseMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo+    ResolveWebViewBaseMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo+    ResolveWebViewBaseMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo+    ResolveWebViewBaseMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo+    ResolveWebViewBaseMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo+    ResolveWebViewBaseMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo+    ResolveWebViewBaseMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo+    ResolveWebViewBaseMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo+    ResolveWebViewBaseMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo+    ResolveWebViewBaseMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo+    ResolveWebViewBaseMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo+    ResolveWebViewBaseMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo+    ResolveWebViewBaseMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo+    ResolveWebViewBaseMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo+    ResolveWebViewBaseMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo+    ResolveWebViewBaseMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo+    ResolveWebViewBaseMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo+    ResolveWebViewBaseMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo+    ResolveWebViewBaseMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo+    ResolveWebViewBaseMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo+    ResolveWebViewBaseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveWebViewBaseMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo+    ResolveWebViewBaseMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo+    ResolveWebViewBaseMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo+    ResolveWebViewBaseMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo+    ResolveWebViewBaseMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo+    ResolveWebViewBaseMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo+    ResolveWebViewBaseMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo+    ResolveWebViewBaseMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo+    ResolveWebViewBaseMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo+    ResolveWebViewBaseMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo+    ResolveWebViewBaseMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo+    ResolveWebViewBaseMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo+    ResolveWebViewBaseMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo+    ResolveWebViewBaseMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo+    ResolveWebViewBaseMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo+    ResolveWebViewBaseMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo+    ResolveWebViewBaseMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo+    ResolveWebViewBaseMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo+    ResolveWebViewBaseMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo+    ResolveWebViewBaseMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo+    ResolveWebViewBaseMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWebViewBaseMethod t WebViewBase, O.MethodInfo info WebViewBase p) => OL.IsLabel t (WebViewBase -> 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++#if ENABLE_OVERLOADING+instance O.HasAttributeList WebViewBase+type instance O.AttributeList WebViewBase = WebViewBaseAttributeList+type WebViewBaseAttributeList = ('[ '("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), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("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), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("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), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList WebViewBase = WebViewBaseSignalList+type WebViewBaseSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("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), '("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), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("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), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])++#endif++
+ GI/WebKit2/Objects/WebViewBase.hs-boot view
@@ -0,0 +1,29 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.WebViewBase 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++newtype WebViewBase = WebViewBase (ManagedPtr WebViewBase)+instance GObject WebViewBase where+class (GObject o, O.IsDescendantOf WebViewBase o) => IsWebViewBase o+instance (GObject o, O.IsDescendantOf WebViewBase o) => IsWebViewBase o+instance O.HasParentTypes WebViewBase
+ GI/WebKit2/Objects/WebsiteDataManager.hs view
@@ -0,0 +1,1438 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.WebsiteDataManager+    ( ++-- * Exported types+    WebsiteDataManager(..)                  ,+    IsWebsiteDataManager                    ,+    toWebsiteDataManager                    ,+    noWebsiteDataManager                    ,+++ -- * Methods+-- ** clear #method:clear#++#if ENABLE_OVERLOADING+    WebsiteDataManagerClearMethodInfo       ,+#endif+    websiteDataManagerClear                 ,+++-- ** clearFinish #method:clearFinish#++#if ENABLE_OVERLOADING+    WebsiteDataManagerClearFinishMethodInfo ,+#endif+    websiteDataManagerClearFinish           ,+++-- ** fetch #method:fetch#++#if ENABLE_OVERLOADING+    WebsiteDataManagerFetchMethodInfo       ,+#endif+    websiteDataManagerFetch                 ,+++-- ** fetchFinish #method:fetchFinish#++#if ENABLE_OVERLOADING+    WebsiteDataManagerFetchFinishMethodInfo ,+#endif+    websiteDataManagerFetchFinish           ,+++-- ** getBaseCacheDirectory #method:getBaseCacheDirectory#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetBaseCacheDirectoryMethodInfo,+#endif+    websiteDataManagerGetBaseCacheDirectory ,+++-- ** getBaseDataDirectory #method:getBaseDataDirectory#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetBaseDataDirectoryMethodInfo,+#endif+    websiteDataManagerGetBaseDataDirectory  ,+++-- ** getCookieManager #method:getCookieManager#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetCookieManagerMethodInfo,+#endif+    websiteDataManagerGetCookieManager      ,+++-- ** getDiskCacheDirectory #method:getDiskCacheDirectory#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetDiskCacheDirectoryMethodInfo,+#endif+    websiteDataManagerGetDiskCacheDirectory ,+++-- ** getIndexeddbDirectory #method:getIndexeddbDirectory#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetIndexeddbDirectoryMethodInfo,+#endif+    websiteDataManagerGetIndexeddbDirectory ,+++-- ** getLocalStorageDirectory #method:getLocalStorageDirectory#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetLocalStorageDirectoryMethodInfo,+#endif+    websiteDataManagerGetLocalStorageDirectory,+++-- ** getOfflineApplicationCacheDirectory #method:getOfflineApplicationCacheDirectory#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo,+#endif+    websiteDataManagerGetOfflineApplicationCacheDirectory,+++-- ** getWebsqlDirectory #method:getWebsqlDirectory#++#if ENABLE_OVERLOADING+    WebsiteDataManagerGetWebsqlDirectoryMethodInfo,+#endif+    websiteDataManagerGetWebsqlDirectory    ,+++-- ** isEphemeral #method:isEphemeral#++#if ENABLE_OVERLOADING+    WebsiteDataManagerIsEphemeralMethodInfo ,+#endif+    websiteDataManagerIsEphemeral           ,+++-- ** newEphemeral #method:newEphemeral#++    websiteDataManagerNewEphemeral          ,+++-- ** remove #method:remove#++#if ENABLE_OVERLOADING+    WebsiteDataManagerRemoveMethodInfo      ,+#endif+    websiteDataManagerRemove                ,+++-- ** removeFinish #method:removeFinish#++#if ENABLE_OVERLOADING+    WebsiteDataManagerRemoveFinishMethodInfo,+#endif+    websiteDataManagerRemoveFinish          ,+++++ -- * Properties+-- ** baseCacheDirectory #attr:baseCacheDirectory#+{- | The base directory for Website cache. This is used as a base directory+for any Website cache when no specific cache directory has been provided.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerBaseCacheDirectoryPropertyInfo,+#endif+    constructWebsiteDataManagerBaseCacheDirectory,+    getWebsiteDataManagerBaseCacheDirectory ,+#if ENABLE_OVERLOADING+    websiteDataManagerBaseCacheDirectory    ,+#endif+++-- ** baseDataDirectory #attr:baseDataDirectory#+{- | The base directory for Website data. This is used as a base directory+for any Website data when no specific data directory has been provided.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerBaseDataDirectoryPropertyInfo,+#endif+    constructWebsiteDataManagerBaseDataDirectory,+    getWebsiteDataManagerBaseDataDirectory  ,+#if ENABLE_OVERLOADING+    websiteDataManagerBaseDataDirectory     ,+#endif+++-- ** diskCacheDirectory #attr:diskCacheDirectory#+{- | The directory where HTTP disk cache will be stored.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerDiskCacheDirectoryPropertyInfo,+#endif+    constructWebsiteDataManagerDiskCacheDirectory,+    getWebsiteDataManagerDiskCacheDirectory ,+#if ENABLE_OVERLOADING+    websiteDataManagerDiskCacheDirectory    ,+#endif+++-- ** indexeddbDirectory #attr:indexeddbDirectory#+{- | The directory where IndexedDB databases will be stored.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerIndexeddbDirectoryPropertyInfo,+#endif+    constructWebsiteDataManagerIndexeddbDirectory,+    getWebsiteDataManagerIndexeddbDirectory ,+#if ENABLE_OVERLOADING+    websiteDataManagerIndexeddbDirectory    ,+#endif+++-- ** isEphemeral #attr:isEphemeral#+{- | Whether the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' is ephemeral. An ephemeral 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'+handles all websites data as non-persistent, and nothing will be written to the client+storage. Note that if you create an ephemeral 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' all other construction+parameters to configure data directories will be ignored.++/Since: 2.16/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerIsEphemeralPropertyInfo,+#endif+    constructWebsiteDataManagerIsEphemeral  ,+    getWebsiteDataManagerIsEphemeral        ,+++-- ** localStorageDirectory #attr:localStorageDirectory#+{- | The directory where local storage data will be stored.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerLocalStorageDirectoryPropertyInfo,+#endif+    constructWebsiteDataManagerLocalStorageDirectory,+    getWebsiteDataManagerLocalStorageDirectory,+#if ENABLE_OVERLOADING+    websiteDataManagerLocalStorageDirectory ,+#endif+++-- ** offlineApplicationCacheDirectory #attr:offlineApplicationCacheDirectory#+{- | The directory where offline web application cache will be stored.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo,+#endif+    constructWebsiteDataManagerOfflineApplicationCacheDirectory,+    getWebsiteDataManagerOfflineApplicationCacheDirectory,+#if ENABLE_OVERLOADING+    websiteDataManagerOfflineApplicationCacheDirectory,+#endif+++-- ** websqlDirectory #attr:websqlDirectory#+{- | The directory where WebSQL databases will be stored.++/Since: 2.10/+-}+#if ENABLE_OVERLOADING+    WebsiteDataManagerWebsqlDirectoryPropertyInfo,+#endif+    constructWebsiteDataManagerWebsqlDirectory,+    getWebsiteDataManagerWebsqlDirectory    ,+#if ENABLE_OVERLOADING+    websiteDataManagerWebsqlDirectory       ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Callbacks as Gio.Callbacks+import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult+import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable+import {-# SOURCE #-} qualified GI.WebKit2.Flags as WebKit2.Flags+import {-# SOURCE #-} qualified GI.WebKit2.Objects.CookieManager as WebKit2.CookieManager+import {-# SOURCE #-} qualified GI.WebKit2.Structs.WebsiteData as WebKit2.WebsiteData++-- | Memory-managed wrapper type.+newtype WebsiteDataManager = WebsiteDataManager (ManagedPtr WebsiteDataManager)+foreign import ccall "webkit_website_data_manager_get_type"+    c_webkit_website_data_manager_get_type :: IO GType++instance GObject WebsiteDataManager where+    gobjectType = c_webkit_website_data_manager_get_type+    ++-- | Type class for types which can be safely cast to `WebsiteDataManager`, for instance with `toWebsiteDataManager`.+class (GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o+instance (GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o++instance O.HasParentTypes WebsiteDataManager+type instance O.ParentTypes WebsiteDataManager = '[GObject.Object.Object]++-- | Cast to `WebsiteDataManager`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toWebsiteDataManager :: (MonadIO m, IsWebsiteDataManager o) => o -> m WebsiteDataManager+toWebsiteDataManager = liftIO . unsafeCastTo WebsiteDataManager++-- | A convenience alias for `Nothing` :: `Maybe` `WebsiteDataManager`.+noWebsiteDataManager :: Maybe WebsiteDataManager+noWebsiteDataManager = Nothing++#if ENABLE_OVERLOADING+type family ResolveWebsiteDataManagerMethod (t :: Symbol) (o :: *) :: * where+    ResolveWebsiteDataManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveWebsiteDataManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveWebsiteDataManagerMethod "clear" o = WebsiteDataManagerClearMethodInfo+    ResolveWebsiteDataManagerMethod "clearFinish" o = WebsiteDataManagerClearFinishMethodInfo+    ResolveWebsiteDataManagerMethod "fetch" o = WebsiteDataManagerFetchMethodInfo+    ResolveWebsiteDataManagerMethod "fetchFinish" o = WebsiteDataManagerFetchFinishMethodInfo+    ResolveWebsiteDataManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveWebsiteDataManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveWebsiteDataManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveWebsiteDataManagerMethod "isEphemeral" o = WebsiteDataManagerIsEphemeralMethodInfo+    ResolveWebsiteDataManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveWebsiteDataManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveWebsiteDataManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveWebsiteDataManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveWebsiteDataManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveWebsiteDataManagerMethod "remove" o = WebsiteDataManagerRemoveMethodInfo+    ResolveWebsiteDataManagerMethod "removeFinish" o = WebsiteDataManagerRemoveFinishMethodInfo+    ResolveWebsiteDataManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveWebsiteDataManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveWebsiteDataManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveWebsiteDataManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveWebsiteDataManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveWebsiteDataManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveWebsiteDataManagerMethod "getBaseCacheDirectory" o = WebsiteDataManagerGetBaseCacheDirectoryMethodInfo+    ResolveWebsiteDataManagerMethod "getBaseDataDirectory" o = WebsiteDataManagerGetBaseDataDirectoryMethodInfo+    ResolveWebsiteDataManagerMethod "getCookieManager" o = WebsiteDataManagerGetCookieManagerMethodInfo+    ResolveWebsiteDataManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveWebsiteDataManagerMethod "getDiskCacheDirectory" o = WebsiteDataManagerGetDiskCacheDirectoryMethodInfo+    ResolveWebsiteDataManagerMethod "getIndexeddbDirectory" o = WebsiteDataManagerGetIndexeddbDirectoryMethodInfo+    ResolveWebsiteDataManagerMethod "getLocalStorageDirectory" o = WebsiteDataManagerGetLocalStorageDirectoryMethodInfo+    ResolveWebsiteDataManagerMethod "getOfflineApplicationCacheDirectory" o = WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo+    ResolveWebsiteDataManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveWebsiteDataManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveWebsiteDataManagerMethod "getWebsqlDirectory" o = WebsiteDataManagerGetWebsqlDirectoryMethodInfo+    ResolveWebsiteDataManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveWebsiteDataManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveWebsiteDataManagerMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, O.MethodInfo info WebsiteDataManager p) => OL.IsLabel t (WebsiteDataManager -> 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++-- VVV Prop "base-cache-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@base-cache-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #baseCacheDirectory+@+-}+getWebsiteDataManagerBaseCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)+getWebsiteDataManagerBaseCacheDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "base-cache-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@base-cache-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerBaseCacheDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)+constructWebsiteDataManagerBaseCacheDirectory val = B.Properties.constructObjectPropertyString "base-cache-directory" (Just val)++#if ENABLE_OVERLOADING+data WebsiteDataManagerBaseCacheDirectoryPropertyInfo+instance AttrInfo WebsiteDataManagerBaseCacheDirectoryPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerBaseCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebsiteDataManagerBaseCacheDirectoryPropertyInfo = "base-cache-directory"+    type AttrOrigin WebsiteDataManagerBaseCacheDirectoryPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerBaseCacheDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerBaseCacheDirectory+    attrClear _ = undefined+#endif++-- VVV Prop "base-data-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@base-data-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #baseDataDirectory+@+-}+getWebsiteDataManagerBaseDataDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)+getWebsiteDataManagerBaseDataDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "base-data-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@base-data-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerBaseDataDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)+constructWebsiteDataManagerBaseDataDirectory val = B.Properties.constructObjectPropertyString "base-data-directory" (Just val)++#if ENABLE_OVERLOADING+data WebsiteDataManagerBaseDataDirectoryPropertyInfo+instance AttrInfo WebsiteDataManagerBaseDataDirectoryPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerBaseDataDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerBaseDataDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebsiteDataManagerBaseDataDirectoryPropertyInfo = "base-data-directory"+    type AttrOrigin WebsiteDataManagerBaseDataDirectoryPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerBaseDataDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerBaseDataDirectory+    attrClear _ = undefined+#endif++-- VVV Prop "disk-cache-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@disk-cache-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #diskCacheDirectory+@+-}+getWebsiteDataManagerDiskCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)+getWebsiteDataManagerDiskCacheDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "disk-cache-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@disk-cache-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerDiskCacheDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)+constructWebsiteDataManagerDiskCacheDirectory val = B.Properties.constructObjectPropertyString "disk-cache-directory" (Just val)++#if ENABLE_OVERLOADING+data WebsiteDataManagerDiskCacheDirectoryPropertyInfo+instance AttrInfo WebsiteDataManagerDiskCacheDirectoryPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerDiskCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebsiteDataManagerDiskCacheDirectoryPropertyInfo = "disk-cache-directory"+    type AttrOrigin WebsiteDataManagerDiskCacheDirectoryPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerDiskCacheDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerDiskCacheDirectory+    attrClear _ = undefined+#endif++-- VVV Prop "indexeddb-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@indexeddb-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #indexeddbDirectory+@+-}+getWebsiteDataManagerIndexeddbDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)+getWebsiteDataManagerIndexeddbDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "indexeddb-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@indexeddb-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerIndexeddbDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)+constructWebsiteDataManagerIndexeddbDirectory val = B.Properties.constructObjectPropertyString "indexeddb-directory" (Just val)++#if ENABLE_OVERLOADING+data WebsiteDataManagerIndexeddbDirectoryPropertyInfo+instance AttrInfo WebsiteDataManagerIndexeddbDirectoryPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerIndexeddbDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebsiteDataManagerIndexeddbDirectoryPropertyInfo = "indexeddb-directory"+    type AttrOrigin WebsiteDataManagerIndexeddbDirectoryPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerIndexeddbDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerIndexeddbDirectory+    attrClear _ = undefined+#endif++-- VVV Prop "is-ephemeral"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@is-ephemeral@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #isEphemeral+@+-}+getWebsiteDataManagerIsEphemeral :: (MonadIO m, IsWebsiteDataManager o) => o -> m Bool+getWebsiteDataManagerIsEphemeral obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-ephemeral"++{- |+Construct a `GValueConstruct` with valid value for the “@is-ephemeral@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerIsEphemeral :: (IsWebsiteDataManager o) => Bool -> IO (GValueConstruct o)+constructWebsiteDataManagerIsEphemeral val = B.Properties.constructObjectPropertyBool "is-ephemeral" val++#if ENABLE_OVERLOADING+data WebsiteDataManagerIsEphemeralPropertyInfo+instance AttrInfo WebsiteDataManagerIsEphemeralPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerIsEphemeralPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebsiteDataManagerIsEphemeralPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WebsiteDataManagerIsEphemeralPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerIsEphemeralPropertyInfo = Bool+    type AttrLabel WebsiteDataManagerIsEphemeralPropertyInfo = "is-ephemeral"+    type AttrOrigin WebsiteDataManagerIsEphemeralPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerIsEphemeral+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerIsEphemeral+    attrClear _ = undefined+#endif++-- VVV Prop "local-storage-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@local-storage-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #localStorageDirectory+@+-}+getWebsiteDataManagerLocalStorageDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)+getWebsiteDataManagerLocalStorageDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "local-storage-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@local-storage-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerLocalStorageDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)+constructWebsiteDataManagerLocalStorageDirectory val = B.Properties.constructObjectPropertyString "local-storage-directory" (Just val)++#if ENABLE_OVERLOADING+data WebsiteDataManagerLocalStorageDirectoryPropertyInfo+instance AttrInfo WebsiteDataManagerLocalStorageDirectoryPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebsiteDataManagerLocalStorageDirectoryPropertyInfo = "local-storage-directory"+    type AttrOrigin WebsiteDataManagerLocalStorageDirectoryPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerLocalStorageDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerLocalStorageDirectory+    attrClear _ = undefined+#endif++-- VVV Prop "offline-application-cache-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@offline-application-cache-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #offlineApplicationCacheDirectory+@+-}+getWebsiteDataManagerOfflineApplicationCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)+getWebsiteDataManagerOfflineApplicationCacheDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "offline-application-cache-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@offline-application-cache-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerOfflineApplicationCacheDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)+constructWebsiteDataManagerOfflineApplicationCacheDirectory val = B.Properties.constructObjectPropertyString "offline-application-cache-directory" (Just val)++#if ENABLE_OVERLOADING+data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo+instance AttrInfo WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = "offline-application-cache-directory"+    type AttrOrigin WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerOfflineApplicationCacheDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerOfflineApplicationCacheDirectory+    attrClear _ = undefined+#endif++-- VVV Prop "websql-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing)++{- |+Get the value of the “@websql-directory@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' websiteDataManager #websqlDirectory+@+-}+getWebsiteDataManagerWebsqlDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)+getWebsiteDataManagerWebsqlDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "websql-directory"++{- |+Construct a `GValueConstruct` with valid value for the “@websql-directory@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWebsiteDataManagerWebsqlDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)+constructWebsiteDataManagerWebsqlDirectory val = B.Properties.constructObjectPropertyString "websql-directory" (Just val)++#if ENABLE_OVERLOADING+data WebsiteDataManagerWebsqlDirectoryPropertyInfo+instance AttrInfo WebsiteDataManagerWebsqlDirectoryPropertyInfo where+    type AttrAllowedOps WebsiteDataManagerWebsqlDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = IsWebsiteDataManager+    type AttrGetType WebsiteDataManagerWebsqlDirectoryPropertyInfo = (Maybe T.Text)+    type AttrLabel WebsiteDataManagerWebsqlDirectoryPropertyInfo = "websql-directory"+    type AttrOrigin WebsiteDataManagerWebsqlDirectoryPropertyInfo = WebsiteDataManager+    attrGet _ = getWebsiteDataManagerWebsqlDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebsiteDataManagerWebsqlDirectory+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList WebsiteDataManager+type instance O.AttributeList WebsiteDataManager = WebsiteDataManagerAttributeList+type WebsiteDataManagerAttributeList = ('[ '("baseCacheDirectory", WebsiteDataManagerBaseCacheDirectoryPropertyInfo), '("baseDataDirectory", WebsiteDataManagerBaseDataDirectoryPropertyInfo), '("diskCacheDirectory", WebsiteDataManagerDiskCacheDirectoryPropertyInfo), '("indexeddbDirectory", WebsiteDataManagerIndexeddbDirectoryPropertyInfo), '("isEphemeral", WebsiteDataManagerIsEphemeralPropertyInfo), '("localStorageDirectory", WebsiteDataManagerLocalStorageDirectoryPropertyInfo), '("offlineApplicationCacheDirectory", WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo), '("websqlDirectory", WebsiteDataManagerWebsqlDirectoryPropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+websiteDataManagerBaseCacheDirectory :: AttrLabelProxy "baseCacheDirectory"+websiteDataManagerBaseCacheDirectory = AttrLabelProxy++websiteDataManagerBaseDataDirectory :: AttrLabelProxy "baseDataDirectory"+websiteDataManagerBaseDataDirectory = AttrLabelProxy++websiteDataManagerDiskCacheDirectory :: AttrLabelProxy "diskCacheDirectory"+websiteDataManagerDiskCacheDirectory = AttrLabelProxy++websiteDataManagerIndexeddbDirectory :: AttrLabelProxy "indexeddbDirectory"+websiteDataManagerIndexeddbDirectory = AttrLabelProxy++websiteDataManagerLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory"+websiteDataManagerLocalStorageDirectory = AttrLabelProxy++websiteDataManagerOfflineApplicationCacheDirectory :: AttrLabelProxy "offlineApplicationCacheDirectory"+websiteDataManagerOfflineApplicationCacheDirectory = AttrLabelProxy++websiteDataManagerWebsqlDirectory :: AttrLabelProxy "websqlDirectory"+websiteDataManagerWebsqlDirectory = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList WebsiteDataManager = WebsiteDataManagerSignalList+type WebsiteDataManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method WebsiteDataManager::new_ephemeral+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_new_ephemeral" webkit_website_data_manager_new_ephemeral :: +    IO (Ptr WebsiteDataManager)++{- |+Creates an ephemeral 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'. See 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/is-ephemeral/@ for more details.++/Since: 2.16/+-}+websiteDataManagerNewEphemeral ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m WebsiteDataManager+    {- ^ __Returns:__ a new ephemeral 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager'. -}+websiteDataManagerNewEphemeral  = liftIO $ do+    result <- webkit_website_data_manager_new_ephemeral+    checkUnexpectedReturnNULL "websiteDataManagerNewEphemeral" result+    result' <- (wrapObject WebsiteDataManager) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method WebsiteDataManager::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#WebKitWebsiteDataTypes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTimeSpan", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_clear" webkit_website_data_manager_clear :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    CUInt ->                                -- types : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"})+    Int64 ->                                -- timespan : TBasicType TInt64+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously clear the website data of the given /@types@/ modified in the past /@timespan@/.+If /@timespan@/ is 0, all website data will be removed.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerClearFinish' to get the result of the operation.++Due to implementation limitations, this function does not currently delete+any stored cookies if /@timespan@/ is nonzero. This behavior may change in the+future.++/Since: 2.16/+-}+websiteDataManagerClear ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> [WebKit2.Flags.WebsiteDataTypes]+    {- ^ /@types@/: 'GI.WebKit2.Flags.WebsiteDataTypes' -}+    -> Int64+    {- ^ /@timespan@/: a @/GTimeSpan/@ -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+websiteDataManagerClear manager types timespan cancellable callback = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    let types' = gflagsToWord types+    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_website_data_manager_clear manager' types' timespan maybeCancellable maybeCallback userData+    touchManagedPtr manager+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data WebsiteDataManagerClearMethodInfo+instance (signature ~ ([WebKit2.Flags.WebsiteDataTypes] -> Int64 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebsiteDataManagerClearMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerClear++#endif++-- method WebsiteDataManager::clear_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_website_data_manager_clear_finish" webkit_website_data_manager_clear_finish :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerClear'++/Since: 2.16/+-}+websiteDataManagerClearFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+websiteDataManagerClearFinish manager result_ = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        _ <- propagateGError $ webkit_website_data_manager_clear_finish manager' result_'+        touchManagedPtr manager+        touchManagedPtr result_+        return ()+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data WebsiteDataManagerClearFinishMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebsiteDataManagerClearFinishMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerClearFinish++#endif++-- method WebsiteDataManager::fetch+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#WebKitWebsiteDataTypes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_fetch" webkit_website_data_manager_fetch :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    CUInt ->                                -- types : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously get the list of 'GI.WebKit2.Structs.WebsiteData.WebsiteData' for the given /@types@/.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetchFinish' to get the result of the operation.++/Since: 2.16/+-}+websiteDataManagerFetch ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> [WebKit2.Flags.WebsiteDataTypes]+    {- ^ /@types@/: 'GI.WebKit2.Flags.WebsiteDataTypes' -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+websiteDataManagerFetch manager types cancellable callback = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    let types' = gflagsToWord types+    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_website_data_manager_fetch manager' types' maybeCancellable maybeCallback userData+    touchManagedPtr manager+    whenJust cancellable touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data WebsiteDataManagerFetchMethodInfo+instance (signature ~ ([WebKit2.Flags.WebsiteDataTypes] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebsiteDataManagerFetchMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerFetch++#endif++-- method WebsiteDataManager::fetch_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TGList (TInterface (Name {namespace = "WebKit2", name = "WebsiteData"})))+-- throws : True+-- Skip return : False++foreign import ccall "webkit_website_data_manager_fetch_finish" webkit_website_data_manager_fetch_finish :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr (GList (Ptr WebKit2.WebsiteData.WebsiteData)))++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetch'.++/Since: 2.16/+-}+websiteDataManagerFetchFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m [WebKit2.WebsiteData.WebsiteData]+    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Structs.WebsiteData.WebsiteData'. You must free the 'GI.GLib.Structs.List.List' with+   @/g_list_free()/@ and unref the 'GI.WebKit2.Structs.WebsiteData.WebsiteData'\<!-- -->s with 'GI.WebKit2.Structs.WebsiteData.websiteDataUnref' when you\'re done with them. /(Can throw 'Data.GI.Base.GError.GError')/ -}+websiteDataManagerFetchFinish manager result_ = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_website_data_manager_fetch_finish manager' result_'+        result' <- unpackGList result+        result'' <- mapM (wrapBoxed WebKit2.WebsiteData.WebsiteData) result'+        g_list_free result+        touchManagedPtr manager+        touchManagedPtr result_+        return result''+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data WebsiteDataManagerFetchFinishMethodInfo+instance (signature ~ (b -> m [WebKit2.WebsiteData.WebsiteData]), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebsiteDataManagerFetchFinishMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerFetchFinish++#endif++-- method WebsiteDataManager::get_base_cache_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_base_cache_directory" webkit_website_data_manager_get_base_cache_directory :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/base-cache-directory/@ property.++/Since: 2.10/+-}+websiteDataManagerGetBaseCacheDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the base directory for Website cache, or 'Nothing' if+   'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/base-cache-directory/@ was not provided or /@manager@/ is ephemeral. -}+websiteDataManagerGetBaseCacheDirectory manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_base_cache_directory manager'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr manager+    return maybeResult++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetBaseCacheDirectoryMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetBaseCacheDirectory++#endif++-- method WebsiteDataManager::get_base_data_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_base_data_directory" webkit_website_data_manager_get_base_data_directory :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/base-data-directory/@ property.++/Since: 2.10/+-}+websiteDataManagerGetBaseDataDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the base directory for Website data, or 'Nothing' if+   'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/base-data-directory/@ was not provided or /@manager@/ is ephemeral. -}+websiteDataManagerGetBaseDataDirectory manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_base_data_directory manager'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr manager+    return maybeResult++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetBaseDataDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetBaseDataDirectoryMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetBaseDataDirectory++#endif++-- method WebsiteDataManager::get_cookie_manager+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "CookieManager"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_cookie_manager" webkit_website_data_manager_get_cookie_manager :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO (Ptr WebKit2.CookieManager.CookieManager)++{- |+Get the 'GI.WebKit2.Objects.CookieManager.CookieManager' of /@manager@/.++/Since: 2.16/+-}+websiteDataManagerGetCookieManager ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m WebKit2.CookieManager.CookieManager+    {- ^ __Returns:__ a 'GI.WebKit2.Objects.CookieManager.CookieManager' -}+websiteDataManagerGetCookieManager manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_cookie_manager manager'+    checkUnexpectedReturnNULL "websiteDataManagerGetCookieManager" result+    result' <- (newObject WebKit2.CookieManager.CookieManager) result+    touchManagedPtr manager+    return result'++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetCookieManagerMethodInfo+instance (signature ~ (m WebKit2.CookieManager.CookieManager), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetCookieManagerMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetCookieManager++#endif++-- method WebsiteDataManager::get_disk_cache_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_disk_cache_directory" webkit_website_data_manager_get_disk_cache_directory :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/disk-cache-directory/@ property.++/Since: 2.10/+-}+websiteDataManagerGetDiskCacheDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the directory where HTTP disk cache is stored or 'Nothing' if /@manager@/ is ephemeral. -}+websiteDataManagerGetDiskCacheDirectory manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_disk_cache_directory manager'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr manager+    return maybeResult++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetDiskCacheDirectoryMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetDiskCacheDirectory++#endif++-- method WebsiteDataManager::get_indexeddb_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_indexeddb_directory" webkit_website_data_manager_get_indexeddb_directory :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/indexeddb-directory/@ property.++/Since: 2.10/+-}+websiteDataManagerGetIndexeddbDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the directory where IndexedDB databases are stored or 'Nothing' if /@manager@/ is ephemeral. -}+websiteDataManagerGetIndexeddbDirectory manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_indexeddb_directory manager'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr manager+    return maybeResult++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetIndexeddbDirectoryMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetIndexeddbDirectory++#endif++-- method WebsiteDataManager::get_local_storage_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_local_storage_directory" webkit_website_data_manager_get_local_storage_directory :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/local-storage-directory/@ property.++/Since: 2.10/+-}+websiteDataManagerGetLocalStorageDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the directory where local storage data is stored or 'Nothing' if /@manager@/ is ephemeral. -}+websiteDataManagerGetLocalStorageDirectory manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_local_storage_directory manager'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr manager+    return maybeResult++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetLocalStorageDirectoryMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetLocalStorageDirectory++#endif++-- method WebsiteDataManager::get_offline_application_cache_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_offline_application_cache_directory" webkit_website_data_manager_get_offline_application_cache_directory :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/offline-application-cache-directory/@ property.++/Since: 2.10/+-}+websiteDataManagerGetOfflineApplicationCacheDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the directory where offline web application cache is stored or 'Nothing' if /@manager@/ is ephemeral. -}+websiteDataManagerGetOfflineApplicationCacheDirectory manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_offline_application_cache_directory manager'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr manager+    return maybeResult++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetOfflineApplicationCacheDirectory++#endif++-- method WebsiteDataManager::get_websql_directory+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_get_websql_directory" webkit_website_data_manager_get_websql_directory :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CString++{- |+Get the 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/websql-directory/@ property.++/Since: 2.10/+-}+websiteDataManagerGetWebsqlDirectory ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the directory where WebSQL databases are stored or 'Nothing' if /@manager@/ is ephemeral. -}+websiteDataManagerGetWebsqlDirectory manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_get_websql_directory manager'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr manager+    return maybeResult++#if ENABLE_OVERLOADING+data WebsiteDataManagerGetWebsqlDirectoryMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetWebsqlDirectoryMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerGetWebsqlDirectory++#endif++-- method WebsiteDataManager::is_ephemeral+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_is_ephemeral" webkit_website_data_manager_is_ephemeral :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    IO CInt++{- |+Get whether a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' is ephemeral. See 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager':@/is-ephemeral/@ for more details.++/Since: 2.16/+-}+websiteDataManagerIsEphemeral ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@manager@/ is epheral or 'False' otherwise. -}+websiteDataManagerIsEphemeral manager = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result <- webkit_website_data_manager_is_ephemeral manager'+    let result' = (/= 0) result+    touchManagedPtr manager+    return result'++#if ENABLE_OVERLOADING+data WebsiteDataManagerIsEphemeralMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerIsEphemeralMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerIsEphemeral++#endif++-- method WebsiteDataManager::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#WebKitWebsiteDataTypes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website_data", argType = TGList (TInterface (Name {namespace = "WebKit2", name = "WebsiteData"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GList of #WebKitWebsiteData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_manager_remove" webkit_website_data_manager_remove :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    CUInt ->                                -- types : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"})+    Ptr (GList (Ptr WebKit2.WebsiteData.WebsiteData)) -> -- website_data : TGList (TInterface (Name {namespace = "WebKit2", name = "WebsiteData"}))+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously removes the website data of the for the given /@types@/ for websites in the given /@websiteData@/ list.+Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerClear' if you want to remove the website data for all sites.++When the operation is finished, /@callback@/ will be called. You can then call+'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerRemoveFinish' to get the result of the operation.++/Since: 2.16/+-}+websiteDataManagerRemove ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> [WebKit2.Flags.WebsiteDataTypes]+    {- ^ /@types@/: 'GI.WebKit2.Flags.WebsiteDataTypes' -}+    -> [WebKit2.WebsiteData.WebsiteData]+    {- ^ /@websiteData@/: a 'GI.GLib.Structs.List.List' of 'GI.WebKit2.Structs.WebsiteData.WebsiteData' -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' to ignore -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}+    -> m ()+websiteDataManagerRemove manager types websiteData cancellable callback = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    let types' = gflagsToWord types+    websiteData' <- mapM unsafeManagedPtrGetPtr websiteData+    websiteData'' <- packGList websiteData'+    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_website_data_manager_remove manager' types' websiteData'' maybeCancellable maybeCallback userData+    touchManagedPtr manager+    mapM_ touchManagedPtr websiteData+    whenJust cancellable touchManagedPtr+    g_list_free websiteData''+    return ()++#if ENABLE_OVERLOADING+data WebsiteDataManagerRemoveMethodInfo+instance (signature ~ ([WebKit2.Flags.WebsiteDataTypes] -> [WebKit2.WebsiteData.WebsiteData] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) => O.MethodInfo WebsiteDataManagerRemoveMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerRemove++#endif++-- method WebsiteDataManager::remove_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteDataManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_website_data_manager_remove_finish" webkit_website_data_manager_remove_finish :: +    Ptr WebsiteDataManager ->               -- manager : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataManager"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finish an asynchronous operation started with 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerRemove'.++/Since: 2.16/+-}+websiteDataManagerRemoveFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@manager@/: a 'GI.WebKit2.Objects.WebsiteDataManager.WebsiteDataManager' -}+    -> b+    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+websiteDataManagerRemoveFinish manager result_ = liftIO $ do+    manager' <- unsafeManagedPtrCastPtr manager+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        _ <- propagateGError $ webkit_website_data_manager_remove_finish manager' result_'+        touchManagedPtr manager+        touchManagedPtr result_+        return ()+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data WebsiteDataManagerRemoveFinishMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebsiteDataManagerRemoveFinishMethodInfo a signature where+    overloadedMethod _ = websiteDataManagerRemoveFinish++#endif++
+ GI/WebKit2/Objects/WebsiteDataManager.hs-boot view
@@ -0,0 +1,98 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.WebsiteDataManager 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++newtype WebsiteDataManager = WebsiteDataManager (ManagedPtr WebsiteDataManager)+instance GObject WebsiteDataManager where+class (GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o+instance (GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o+instance O.HasParentTypes WebsiteDataManager+#if ENABLE_OVERLOADING+data WebsiteDataManagerBaseCacheDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerBaseDataDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerDiskCacheDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerIndexeddbDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerIsEphemeralPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerLocalStorageDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerWebsqlDirectoryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerClearMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerClearFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerFetchMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerFetchFinishMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetBaseDataDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetCookieManagerMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerGetWebsqlDirectoryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerIsEphemeralMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerRemoveMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataManagerRemoveFinishMethodInfo+#endif
+ GI/WebKit2/Objects/WindowProperties.hs view
@@ -0,0 +1,905 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Objects.WindowProperties+    ( ++-- * Exported types+    WindowProperties(..)                    ,+    IsWindowProperties                      ,+    toWindowProperties                      ,+    noWindowProperties                      ,+++ -- * Methods+-- ** getFullscreen #method:getFullscreen#++#if ENABLE_OVERLOADING+    WindowPropertiesGetFullscreenMethodInfo ,+#endif+    windowPropertiesGetFullscreen           ,+++-- ** getGeometry #method:getGeometry#++#if ENABLE_OVERLOADING+    WindowPropertiesGetGeometryMethodInfo   ,+#endif+    windowPropertiesGetGeometry             ,+++-- ** getLocationbarVisible #method:getLocationbarVisible#++#if ENABLE_OVERLOADING+    WindowPropertiesGetLocationbarVisibleMethodInfo,+#endif+    windowPropertiesGetLocationbarVisible   ,+++-- ** getMenubarVisible #method:getMenubarVisible#++#if ENABLE_OVERLOADING+    WindowPropertiesGetMenubarVisibleMethodInfo,+#endif+    windowPropertiesGetMenubarVisible       ,+++-- ** getResizable #method:getResizable#++#if ENABLE_OVERLOADING+    WindowPropertiesGetResizableMethodInfo  ,+#endif+    windowPropertiesGetResizable            ,+++-- ** getScrollbarsVisible #method:getScrollbarsVisible#++#if ENABLE_OVERLOADING+    WindowPropertiesGetScrollbarsVisibleMethodInfo,+#endif+    windowPropertiesGetScrollbarsVisible    ,+++-- ** getStatusbarVisible #method:getStatusbarVisible#++#if ENABLE_OVERLOADING+    WindowPropertiesGetStatusbarVisibleMethodInfo,+#endif+    windowPropertiesGetStatusbarVisible     ,+++-- ** getToolbarVisible #method:getToolbarVisible#++#if ENABLE_OVERLOADING+    WindowPropertiesGetToolbarVisibleMethodInfo,+#endif+    windowPropertiesGetToolbarVisible       ,+++++ -- * Properties+-- ** fullscreen #attr:fullscreen#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesFullscreenPropertyInfo  ,+#endif+    constructWindowPropertiesFullscreen     ,+    getWindowPropertiesFullscreen           ,+#if ENABLE_OVERLOADING+    windowPropertiesFullscreen              ,+#endif+++-- ** geometry #attr:geometry#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesGeometryPropertyInfo    ,+#endif+    constructWindowPropertiesGeometry       ,+    getWindowPropertiesGeometry             ,+#if ENABLE_OVERLOADING+    windowPropertiesGeometry                ,+#endif+++-- ** locationbarVisible #attr:locationbarVisible#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesLocationbarVisiblePropertyInfo,+#endif+    constructWindowPropertiesLocationbarVisible,+    getWindowPropertiesLocationbarVisible   ,+#if ENABLE_OVERLOADING+    windowPropertiesLocationbarVisible      ,+#endif+++-- ** menubarVisible #attr:menubarVisible#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesMenubarVisiblePropertyInfo,+#endif+    constructWindowPropertiesMenubarVisible ,+    getWindowPropertiesMenubarVisible       ,+#if ENABLE_OVERLOADING+    windowPropertiesMenubarVisible          ,+#endif+++-- ** resizable #attr:resizable#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesResizablePropertyInfo   ,+#endif+    constructWindowPropertiesResizable      ,+    getWindowPropertiesResizable            ,+#if ENABLE_OVERLOADING+    windowPropertiesResizable               ,+#endif+++-- ** scrollbarsVisible #attr:scrollbarsVisible#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesScrollbarsVisiblePropertyInfo,+#endif+    constructWindowPropertiesScrollbarsVisible,+    getWindowPropertiesScrollbarsVisible    ,+#if ENABLE_OVERLOADING+    windowPropertiesScrollbarsVisible       ,+#endif+++-- ** statusbarVisible #attr:statusbarVisible#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesStatusbarVisiblePropertyInfo,+#endif+    constructWindowPropertiesStatusbarVisible,+    getWindowPropertiesStatusbarVisible     ,+#if ENABLE_OVERLOADING+    windowPropertiesStatusbarVisible        ,+#endif+++-- ** toolbarVisible #attr:toolbarVisible#+{- | /No description available in the introspection data./+-}+#if ENABLE_OVERLOADING+    WindowPropertiesToolbarVisiblePropertyInfo,+#endif+    constructWindowPropertiesToolbarVisible ,+    getWindowPropertiesToolbarVisible       ,+#if ENABLE_OVERLOADING+    windowPropertiesToolbarVisible          ,+#endif+++++    ) 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.GObject.Objects.Object as GObject.Object+import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle++-- | Memory-managed wrapper type.+newtype WindowProperties = WindowProperties (ManagedPtr WindowProperties)+foreign import ccall "webkit_window_properties_get_type"+    c_webkit_window_properties_get_type :: IO GType++instance GObject WindowProperties where+    gobjectType = c_webkit_window_properties_get_type+    ++-- | Type class for types which can be safely cast to `WindowProperties`, for instance with `toWindowProperties`.+class (GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o+instance (GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o++instance O.HasParentTypes WindowProperties+type instance O.ParentTypes WindowProperties = '[GObject.Object.Object]++-- | Cast to `WindowProperties`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toWindowProperties :: (MonadIO m, IsWindowProperties o) => o -> m WindowProperties+toWindowProperties = liftIO . unsafeCastTo WindowProperties++-- | A convenience alias for `Nothing` :: `Maybe` `WindowProperties`.+noWindowProperties :: Maybe WindowProperties+noWindowProperties = Nothing++#if ENABLE_OVERLOADING+type family ResolveWindowPropertiesMethod (t :: Symbol) (o :: *) :: * where+    ResolveWindowPropertiesMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveWindowPropertiesMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveWindowPropertiesMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveWindowPropertiesMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveWindowPropertiesMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveWindowPropertiesMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveWindowPropertiesMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveWindowPropertiesMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveWindowPropertiesMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveWindowPropertiesMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveWindowPropertiesMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveWindowPropertiesMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveWindowPropertiesMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveWindowPropertiesMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveWindowPropertiesMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveWindowPropertiesMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveWindowPropertiesMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveWindowPropertiesMethod "getFullscreen" o = WindowPropertiesGetFullscreenMethodInfo+    ResolveWindowPropertiesMethod "getGeometry" o = WindowPropertiesGetGeometryMethodInfo+    ResolveWindowPropertiesMethod "getLocationbarVisible" o = WindowPropertiesGetLocationbarVisibleMethodInfo+    ResolveWindowPropertiesMethod "getMenubarVisible" o = WindowPropertiesGetMenubarVisibleMethodInfo+    ResolveWindowPropertiesMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveWindowPropertiesMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveWindowPropertiesMethod "getResizable" o = WindowPropertiesGetResizableMethodInfo+    ResolveWindowPropertiesMethod "getScrollbarsVisible" o = WindowPropertiesGetScrollbarsVisibleMethodInfo+    ResolveWindowPropertiesMethod "getStatusbarVisible" o = WindowPropertiesGetStatusbarVisibleMethodInfo+    ResolveWindowPropertiesMethod "getToolbarVisible" o = WindowPropertiesGetToolbarVisibleMethodInfo+    ResolveWindowPropertiesMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveWindowPropertiesMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveWindowPropertiesMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, O.MethodInfo info WindowProperties p) => OL.IsLabel t (WindowProperties -> 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++-- VVV Prop "fullscreen"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@fullscreen@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #fullscreen+@+-}+getWindowPropertiesFullscreen :: (MonadIO m, IsWindowProperties o) => o -> m Bool+getWindowPropertiesFullscreen obj = liftIO $ B.Properties.getObjectPropertyBool obj "fullscreen"++{- |+Construct a `GValueConstruct` with valid value for the “@fullscreen@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesFullscreen :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)+constructWindowPropertiesFullscreen val = B.Properties.constructObjectPropertyBool "fullscreen" val++#if ENABLE_OVERLOADING+data WindowPropertiesFullscreenPropertyInfo+instance AttrInfo WindowPropertiesFullscreenPropertyInfo where+    type AttrAllowedOps WindowPropertiesFullscreenPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesFullscreenPropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesFullscreenPropertyInfo = Bool+    type AttrLabel WindowPropertiesFullscreenPropertyInfo = "fullscreen"+    type AttrOrigin WindowPropertiesFullscreenPropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesFullscreen+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesFullscreen+    attrClear _ = undefined+#endif++-- VVV Prop "geometry"+   -- Type: TInterface (Name {namespace = "Gdk", name = "Rectangle"})+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)++{- |+Get the value of the “@geometry@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #geometry+@+-}+getWindowPropertiesGeometry :: (MonadIO m, IsWindowProperties o) => o -> m (Maybe Gdk.Rectangle.Rectangle)+getWindowPropertiesGeometry obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "geometry" Gdk.Rectangle.Rectangle++{- |+Construct a `GValueConstruct` with valid value for the “@geometry@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesGeometry :: (IsWindowProperties o) => Gdk.Rectangle.Rectangle -> IO (GValueConstruct o)+constructWindowPropertiesGeometry val = B.Properties.constructObjectPropertyBoxed "geometry" (Just val)++#if ENABLE_OVERLOADING+data WindowPropertiesGeometryPropertyInfo+instance AttrInfo WindowPropertiesGeometryPropertyInfo where+    type AttrAllowedOps WindowPropertiesGeometryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Gdk.Rectangle.Rectangle+    type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesGeometryPropertyInfo = (Maybe Gdk.Rectangle.Rectangle)+    type AttrLabel WindowPropertiesGeometryPropertyInfo = "geometry"+    type AttrOrigin WindowPropertiesGeometryPropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesGeometry+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesGeometry+    attrClear _ = undefined+#endif++-- VVV Prop "locationbar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@locationbar-visible@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #locationbarVisible+@+-}+getWindowPropertiesLocationbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool+getWindowPropertiesLocationbarVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "locationbar-visible"++{- |+Construct a `GValueConstruct` with valid value for the “@locationbar-visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesLocationbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)+constructWindowPropertiesLocationbarVisible val = B.Properties.constructObjectPropertyBool "locationbar-visible" val++#if ENABLE_OVERLOADING+data WindowPropertiesLocationbarVisiblePropertyInfo+instance AttrInfo WindowPropertiesLocationbarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesLocationbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesLocationbarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "locationbar-visible"+    type AttrOrigin WindowPropertiesLocationbarVisiblePropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesLocationbarVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesLocationbarVisible+    attrClear _ = undefined+#endif++-- VVV Prop "menubar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@menubar-visible@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #menubarVisible+@+-}+getWindowPropertiesMenubarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool+getWindowPropertiesMenubarVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "menubar-visible"++{- |+Construct a `GValueConstruct` with valid value for the “@menubar-visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesMenubarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)+constructWindowPropertiesMenubarVisible val = B.Properties.constructObjectPropertyBool "menubar-visible" val++#if ENABLE_OVERLOADING+data WindowPropertiesMenubarVisiblePropertyInfo+instance AttrInfo WindowPropertiesMenubarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesMenubarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesMenubarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "menubar-visible"+    type AttrOrigin WindowPropertiesMenubarVisiblePropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesMenubarVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesMenubarVisible+    attrClear _ = undefined+#endif++-- VVV Prop "resizable"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@resizable@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #resizable+@+-}+getWindowPropertiesResizable :: (MonadIO m, IsWindowProperties o) => o -> m Bool+getWindowPropertiesResizable obj = liftIO $ B.Properties.getObjectPropertyBool obj "resizable"++{- |+Construct a `GValueConstruct` with valid value for the “@resizable@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesResizable :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)+constructWindowPropertiesResizable val = B.Properties.constructObjectPropertyBool "resizable" val++#if ENABLE_OVERLOADING+data WindowPropertiesResizablePropertyInfo+instance AttrInfo WindowPropertiesResizablePropertyInfo where+    type AttrAllowedOps WindowPropertiesResizablePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesResizablePropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesResizablePropertyInfo = Bool+    type AttrLabel WindowPropertiesResizablePropertyInfo = "resizable"+    type AttrOrigin WindowPropertiesResizablePropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesResizable+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesResizable+    attrClear _ = undefined+#endif++-- VVV Prop "scrollbars-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@scrollbars-visible@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #scrollbarsVisible+@+-}+getWindowPropertiesScrollbarsVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool+getWindowPropertiesScrollbarsVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "scrollbars-visible"++{- |+Construct a `GValueConstruct` with valid value for the “@scrollbars-visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesScrollbarsVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)+constructWindowPropertiesScrollbarsVisible val = B.Properties.constructObjectPropertyBool "scrollbars-visible" val++#if ENABLE_OVERLOADING+data WindowPropertiesScrollbarsVisiblePropertyInfo+instance AttrInfo WindowPropertiesScrollbarsVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesScrollbarsVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "scrollbars-visible"+    type AttrOrigin WindowPropertiesScrollbarsVisiblePropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesScrollbarsVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesScrollbarsVisible+    attrClear _ = undefined+#endif++-- VVV Prop "statusbar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@statusbar-visible@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #statusbarVisible+@+-}+getWindowPropertiesStatusbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool+getWindowPropertiesStatusbarVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "statusbar-visible"++{- |+Construct a `GValueConstruct` with valid value for the “@statusbar-visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesStatusbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)+constructWindowPropertiesStatusbarVisible val = B.Properties.constructObjectPropertyBool "statusbar-visible" val++#if ENABLE_OVERLOADING+data WindowPropertiesStatusbarVisiblePropertyInfo+instance AttrInfo WindowPropertiesStatusbarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesStatusbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesStatusbarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "statusbar-visible"+    type AttrOrigin WindowPropertiesStatusbarVisiblePropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesStatusbarVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesStatusbarVisible+    attrClear _ = undefined+#endif++-- VVV Prop "toolbar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)++{- |+Get the value of the “@toolbar-visible@” property.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Attributes.get' windowProperties #toolbarVisible+@+-}+getWindowPropertiesToolbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool+getWindowPropertiesToolbarVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "toolbar-visible"++{- |+Construct a `GValueConstruct` with valid value for the “@toolbar-visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.+-}+constructWindowPropertiesToolbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)+constructWindowPropertiesToolbarVisible val = B.Properties.constructObjectPropertyBool "toolbar-visible" val++#if ENABLE_OVERLOADING+data WindowPropertiesToolbarVisiblePropertyInfo+instance AttrInfo WindowPropertiesToolbarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesToolbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = IsWindowProperties+    type AttrGetType WindowPropertiesToolbarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "toolbar-visible"+    type AttrOrigin WindowPropertiesToolbarVisiblePropertyInfo = WindowProperties+    attrGet _ = getWindowPropertiesToolbarVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesToolbarVisible+    attrClear _ = undefined+#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList WindowProperties+type instance O.AttributeList WindowProperties = WindowPropertiesAttributeList+type WindowPropertiesAttributeList = ('[ '("fullscreen", WindowPropertiesFullscreenPropertyInfo), '("geometry", WindowPropertiesGeometryPropertyInfo), '("locationbarVisible", WindowPropertiesLocationbarVisiblePropertyInfo), '("menubarVisible", WindowPropertiesMenubarVisiblePropertyInfo), '("resizable", WindowPropertiesResizablePropertyInfo), '("scrollbarsVisible", WindowPropertiesScrollbarsVisiblePropertyInfo), '("statusbarVisible", WindowPropertiesStatusbarVisiblePropertyInfo), '("toolbarVisible", WindowPropertiesToolbarVisiblePropertyInfo)] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+windowPropertiesFullscreen :: AttrLabelProxy "fullscreen"+windowPropertiesFullscreen = AttrLabelProxy++windowPropertiesGeometry :: AttrLabelProxy "geometry"+windowPropertiesGeometry = AttrLabelProxy++windowPropertiesLocationbarVisible :: AttrLabelProxy "locationbarVisible"+windowPropertiesLocationbarVisible = AttrLabelProxy++windowPropertiesMenubarVisible :: AttrLabelProxy "menubarVisible"+windowPropertiesMenubarVisible = AttrLabelProxy++windowPropertiesResizable :: AttrLabelProxy "resizable"+windowPropertiesResizable = AttrLabelProxy++windowPropertiesScrollbarsVisible :: AttrLabelProxy "scrollbarsVisible"+windowPropertiesScrollbarsVisible = AttrLabelProxy++windowPropertiesStatusbarVisible :: AttrLabelProxy "statusbarVisible"+windowPropertiesStatusbarVisible = AttrLabelProxy++windowPropertiesToolbarVisible :: AttrLabelProxy "toolbarVisible"+windowPropertiesToolbarVisible = AttrLabelProxy++#endif++#if ENABLE_OVERLOADING+type instance O.SignalList WindowProperties = WindowPropertiesSignalList+type WindowPropertiesSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method WindowProperties::get_fullscreen+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_fullscreen" webkit_window_properties_get_fullscreen :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    IO CInt++{- |+Get whether the window should be shown in fullscreen state or not.+-}+windowPropertiesGetFullscreen ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the window should be fullscreen or 'False' otherwise. -}+windowPropertiesGetFullscreen windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    result <- webkit_window_properties_get_fullscreen windowProperties'+    let result' = (/= 0) result+    touchManagedPtr windowProperties+    return result'++#if ENABLE_OVERLOADING+data WindowPropertiesGetFullscreenMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetFullscreenMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetFullscreen++#endif++-- method WindowProperties::get_geometry+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the window geometry", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_geometry" webkit_window_properties_get_geometry :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    Ptr Gdk.Rectangle.Rectangle ->          -- geometry : TInterface (Name {namespace = "Gdk", name = "Rectangle"})+    IO ()++{- |+Get the geometry the window should have on the screen when shown.+-}+windowPropertiesGetGeometry ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m (Gdk.Rectangle.Rectangle)+windowPropertiesGetGeometry windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    geometry <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)+    webkit_window_properties_get_geometry windowProperties' geometry+    geometry' <- (wrapBoxed Gdk.Rectangle.Rectangle) geometry+    touchManagedPtr windowProperties+    return geometry'++#if ENABLE_OVERLOADING+data WindowPropertiesGetGeometryMethodInfo+instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetGeometryMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetGeometry++#endif++-- method WindowProperties::get_locationbar_visible+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_locationbar_visible" webkit_window_properties_get_locationbar_visible :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    IO CInt++{- |+Get whether the window should have the locationbar visible or not.+-}+windowPropertiesGetLocationbarVisible ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if locationbar should be visible or 'False' otherwise. -}+windowPropertiesGetLocationbarVisible windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    result <- webkit_window_properties_get_locationbar_visible windowProperties'+    let result' = (/= 0) result+    touchManagedPtr windowProperties+    return result'++#if ENABLE_OVERLOADING+data WindowPropertiesGetLocationbarVisibleMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetLocationbarVisibleMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetLocationbarVisible++#endif++-- method WindowProperties::get_menubar_visible+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_menubar_visible" webkit_window_properties_get_menubar_visible :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    IO CInt++{- |+Get whether the window should have the menubar visible or not.+-}+windowPropertiesGetMenubarVisible ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if menubar should be visible or 'False' otherwise. -}+windowPropertiesGetMenubarVisible windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    result <- webkit_window_properties_get_menubar_visible windowProperties'+    let result' = (/= 0) result+    touchManagedPtr windowProperties+    return result'++#if ENABLE_OVERLOADING+data WindowPropertiesGetMenubarVisibleMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetMenubarVisibleMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetMenubarVisible++#endif++-- method WindowProperties::get_resizable+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_resizable" webkit_window_properties_get_resizable :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    IO CInt++{- |+Get whether the window should be resizable by the user or not.+-}+windowPropertiesGetResizable ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the window should be resizable or 'False' otherwise. -}+windowPropertiesGetResizable windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    result <- webkit_window_properties_get_resizable windowProperties'+    let result' = (/= 0) result+    touchManagedPtr windowProperties+    return result'++#if ENABLE_OVERLOADING+data WindowPropertiesGetResizableMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetResizableMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetResizable++#endif++-- method WindowProperties::get_scrollbars_visible+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_scrollbars_visible" webkit_window_properties_get_scrollbars_visible :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    IO CInt++{- |+Get whether the window should have the scrollbars visible or not.+-}+windowPropertiesGetScrollbarsVisible ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if scrollbars should be visible or 'False' otherwise. -}+windowPropertiesGetScrollbarsVisible windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    result <- webkit_window_properties_get_scrollbars_visible windowProperties'+    let result' = (/= 0) result+    touchManagedPtr windowProperties+    return result'++#if ENABLE_OVERLOADING+data WindowPropertiesGetScrollbarsVisibleMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetScrollbarsVisibleMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetScrollbarsVisible++#endif++-- method WindowProperties::get_statusbar_visible+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_statusbar_visible" webkit_window_properties_get_statusbar_visible :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    IO CInt++{- |+Get whether the window should have the statusbar visible or not.+-}+windowPropertiesGetStatusbarVisible ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if statusbar should be visible or 'False' otherwise. -}+windowPropertiesGetStatusbarVisible windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    result <- webkit_window_properties_get_statusbar_visible windowProperties'+    let result' = (/= 0) result+    touchManagedPtr windowProperties+    return result'++#if ENABLE_OVERLOADING+data WindowPropertiesGetStatusbarVisibleMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetStatusbarVisibleMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetStatusbarVisible++#endif++-- method WindowProperties::get_toolbar_visible+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "window_properties", argType = TInterface (Name {namespace = "WebKit2", name = "WindowProperties"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWindowProperties", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_window_properties_get_toolbar_visible" webkit_window_properties_get_toolbar_visible :: +    Ptr WindowProperties ->                 -- window_properties : TInterface (Name {namespace = "WebKit2", name = "WindowProperties"})+    IO CInt++{- |+Get whether the window should have the toolbar visible or not.+-}+windowPropertiesGetToolbarVisible ::+    (B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>+    a+    {- ^ /@windowProperties@/: a 'GI.WebKit2.Objects.WindowProperties.WindowProperties' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if toolbar should be visible or 'False' otherwise. -}+windowPropertiesGetToolbarVisible windowProperties = liftIO $ do+    windowProperties' <- unsafeManagedPtrCastPtr windowProperties+    result <- webkit_window_properties_get_toolbar_visible windowProperties'+    let result' = (/= 0) result+    touchManagedPtr windowProperties+    return result'++#if ENABLE_OVERLOADING+data WindowPropertiesGetToolbarVisibleMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetToolbarVisibleMethodInfo a signature where+    overloadedMethod _ = windowPropertiesGetToolbarVisible++#endif++
+ GI/WebKit2/Objects/WindowProperties.hs-boot view
@@ -0,0 +1,77 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Objects.WindowProperties 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++newtype WindowProperties = WindowProperties (ManagedPtr WindowProperties)+instance GObject WindowProperties where+class (GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o+instance (GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o+instance O.HasParentTypes WindowProperties+#if ENABLE_OVERLOADING+data WindowPropertiesFullscreenPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGeometryPropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesLocationbarVisiblePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesMenubarVisiblePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesResizablePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesScrollbarsVisiblePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesStatusbarVisiblePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesToolbarVisiblePropertyInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetFullscreenMethodInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetGeometryMethodInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetLocationbarVisibleMethodInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetMenubarVisibleMethodInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetResizableMethodInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetScrollbarsVisibleMethodInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetStatusbarVisibleMethodInfo+#endif+#if ENABLE_OVERLOADING+data WindowPropertiesGetToolbarVisibleMethodInfo+#endif
+ GI/WebKit2/Structs.hs view
@@ -0,0 +1,67 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs+    (     module GI.WebKit2.Structs.ApplicationInfo,+    module GI.WebKit2.Structs.Credential    ,+    module GI.WebKit2.Structs.JavascriptResult,+    module GI.WebKit2.Structs.MimeInfo      ,+    module GI.WebKit2.Structs.NavigationAction,+    module GI.WebKit2.Structs.NetworkProxySettings,+    module GI.WebKit2.Structs.OptionMenuItem,+    module GI.WebKit2.Structs.ScriptDialog  ,+    module GI.WebKit2.Structs.SecurityOrigin,+    module GI.WebKit2.Structs.UserContentFilter,+    module GI.WebKit2.Structs.UserScript    ,+    module GI.WebKit2.Structs.UserStyleSheet,+    module GI.WebKit2.Structs.WebViewSessionState,+    module GI.WebKit2.Structs.WebsiteData   ,+++    ) where++import GI.WebKit2.Structs.ApplicationInfo+import GI.WebKit2.Structs.Credential+import GI.WebKit2.Structs.JavascriptResult+import GI.WebKit2.Structs.MimeInfo+import GI.WebKit2.Structs.NavigationAction+import GI.WebKit2.Structs.NetworkProxySettings+import GI.WebKit2.Structs.OptionMenuItem+import GI.WebKit2.Structs.ScriptDialog+import GI.WebKit2.Structs.SecurityOrigin+import GI.WebKit2.Structs.UserContentFilter+import GI.WebKit2.Structs.UserScript+import GI.WebKit2.Structs.UserStyleSheet+import GI.WebKit2.Structs.WebViewSessionState+import GI.WebKit2.Structs.WebsiteData++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+++
+ GI/WebKit2/Structs/ApplicationInfo.hs view
@@ -0,0 +1,419 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.ApplicationInfo+    ( ++-- * Exported types+    ApplicationInfo(..)                     ,+    noApplicationInfo                       ,+++ -- * Methods+-- ** getName #method:getName#++#if ENABLE_OVERLOADING+    ApplicationInfoGetNameMethodInfo        ,+#endif+    applicationInfoGetName                  ,+++-- ** getVersion #method:getVersion#++#if ENABLE_OVERLOADING+    ApplicationInfoGetVersionMethodInfo     ,+#endif+    applicationInfoGetVersion               ,+++-- ** new #method:new#++    applicationInfoNew                      ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    ApplicationInfoRefMethodInfo            ,+#endif+    applicationInfoRef                      ,+++-- ** setName #method:setName#++#if ENABLE_OVERLOADING+    ApplicationInfoSetNameMethodInfo        ,+#endif+    applicationInfoSetName                  ,+++-- ** setVersion #method:setVersion#++#if ENABLE_OVERLOADING+    ApplicationInfoSetVersionMethodInfo     ,+#endif+    applicationInfoSetVersion               ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    ApplicationInfoUnrefMethodInfo          ,+#endif+    applicationInfoUnref                    ,+++++    ) 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+++-- | Memory-managed wrapper type.+newtype ApplicationInfo = ApplicationInfo (ManagedPtr ApplicationInfo)+foreign import ccall "webkit_application_info_get_type" c_webkit_application_info_get_type :: +    IO GType++instance BoxedObject ApplicationInfo where+    boxedType _ = c_webkit_application_info_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `ApplicationInfo`.+noApplicationInfo :: Maybe ApplicationInfo+noApplicationInfo = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList ApplicationInfo+type instance O.AttributeList ApplicationInfo = ApplicationInfoAttributeList+type ApplicationInfoAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method ApplicationInfo::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_application_info_new" webkit_application_info_new :: +    IO (Ptr ApplicationInfo)++{- |+Creates a new 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo'++/Since: 2.18/+-}+applicationInfoNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m ApplicationInfo+    {- ^ __Returns:__ the newly created 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo'. -}+applicationInfoNew  = liftIO $ do+    result <- webkit_application_info_new+    checkUnexpectedReturnNULL "applicationInfoNew" result+    result' <- (wrapBoxed ApplicationInfo) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method ApplicationInfo::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitApplicationInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_application_info_get_name" webkit_application_info_get_name :: +    Ptr ApplicationInfo ->                  -- info : TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"})+    IO CString++{- |+Get the name of the application. If 'GI.WebKit2.Structs.ApplicationInfo.applicationInfoSetName' hasn\'t been+called with a valid name, this returns 'GI.GLib.Functions.getPrgname'.++/Since: 2.18/+-}+applicationInfoGetName ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ApplicationInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+    -> m T.Text+    {- ^ __Returns:__ the application name -}+applicationInfoGetName info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    result <- webkit_application_info_get_name info'+    checkUnexpectedReturnNULL "applicationInfoGetName" result+    result' <- cstringToText result+    touchManagedPtr info+    return result'++#if ENABLE_OVERLOADING+data ApplicationInfoGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo ApplicationInfoGetNameMethodInfo ApplicationInfo signature where+    overloadedMethod _ = applicationInfoGetName++#endif++-- method ApplicationInfo::get_version+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitApplicationInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the major version number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the minor version number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "micro", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the micro version number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_application_info_get_version" webkit_application_info_get_version :: +    Ptr ApplicationInfo ->                  -- info : TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"})+    Ptr Word64 ->                           -- major : TBasicType TUInt64+    Ptr Word64 ->                           -- minor : TBasicType TUInt64+    Ptr Word64 ->                           -- micro : TBasicType TUInt64+    IO ()++{- |+Get the application version previously set with 'GI.WebKit2.Structs.ApplicationInfo.applicationInfoSetVersion'.++/Since: 2.18/+-}+applicationInfoGetVersion ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ApplicationInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+    -> m ((Word64, Word64, Word64))+applicationInfoGetVersion info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    major <- allocMem :: IO (Ptr Word64)+    minor <- allocMem :: IO (Ptr Word64)+    micro <- allocMem :: IO (Ptr Word64)+    webkit_application_info_get_version info' major minor micro+    major' <- peek major+    minor' <- peek minor+    micro' <- peek micro+    touchManagedPtr info+    freeMem major+    freeMem minor+    freeMem micro+    return (major', minor', micro')++#if ENABLE_OVERLOADING+data ApplicationInfoGetVersionMethodInfo+instance (signature ~ (m ((Word64, Word64, Word64))), MonadIO m) => O.MethodInfo ApplicationInfoGetVersionMethodInfo ApplicationInfo signature where+    overloadedMethod _ = applicationInfoGetVersion++#endif++-- method ApplicationInfo::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitApplicationInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_application_info_ref" webkit_application_info_ref :: +    Ptr ApplicationInfo ->                  -- info : TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"})+    IO (Ptr ApplicationInfo)++{- |+Atomically increments the reference count of /@info@/ by one. This+function is MT-safe and may be called from any thread.++/Since: 2.18/+-}+applicationInfoRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ApplicationInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+    -> m ApplicationInfo+    {- ^ __Returns:__ The passed in 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+applicationInfoRef info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    result <- webkit_application_info_ref info'+    checkUnexpectedReturnNULL "applicationInfoRef" result+    result' <- (wrapBoxed ApplicationInfo) result+    touchManagedPtr info+    return result'++#if ENABLE_OVERLOADING+data ApplicationInfoRefMethodInfo+instance (signature ~ (m ApplicationInfo), MonadIO m) => O.MethodInfo ApplicationInfoRefMethodInfo ApplicationInfo signature where+    overloadedMethod _ = applicationInfoRef++#endif++-- method ApplicationInfo::set_name+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitApplicationInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the application name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_application_info_set_name" webkit_application_info_set_name :: +    Ptr ApplicationInfo ->                  -- info : TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"})+    CString ->                              -- name : TBasicType TUTF8+    IO ()++{- |+Set the name of the application. If not provided, or 'Nothing' is passed,+'GI.GLib.Functions.getPrgname' will be used.++/Since: 2.18/+-}+applicationInfoSetName ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ApplicationInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+    -> T.Text+    {- ^ /@name@/: the application name -}+    -> m ()+applicationInfoSetName info name = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    name' <- textToCString name+    webkit_application_info_set_name info' name'+    touchManagedPtr info+    freeMem name'+    return ()++#if ENABLE_OVERLOADING+data ApplicationInfoSetNameMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo ApplicationInfoSetNameMethodInfo ApplicationInfo signature where+    overloadedMethod _ = applicationInfoSetName++#endif++-- method ApplicationInfo::set_version+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitApplicationInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the major version number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the minor version number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "micro", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the micro version number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_application_info_set_version" webkit_application_info_set_version :: +    Ptr ApplicationInfo ->                  -- info : TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"})+    Word64 ->                               -- major : TBasicType TUInt64+    Word64 ->                               -- minor : TBasicType TUInt64+    Word64 ->                               -- micro : TBasicType TUInt64+    IO ()++{- |+Set the application version. If the application doesn\'t use the format+major.minor.micro you can pass 0 as the micro to use major.minor, or pass+0 as both micro and minor to use only major number. Any other format must+be converted to major.minor.micro so that it can be used in version comparisons.++/Since: 2.18/+-}+applicationInfoSetVersion ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ApplicationInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+    -> Word64+    {- ^ /@major@/: the major version number -}+    -> Word64+    {- ^ /@minor@/: the minor version number -}+    -> Word64+    {- ^ /@micro@/: the micro version number -}+    -> m ()+applicationInfoSetVersion info major minor micro = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    webkit_application_info_set_version info' major minor micro+    touchManagedPtr info+    return ()++#if ENABLE_OVERLOADING+data ApplicationInfoSetVersionMethodInfo+instance (signature ~ (Word64 -> Word64 -> Word64 -> m ()), MonadIO m) => O.MethodInfo ApplicationInfoSetVersionMethodInfo ApplicationInfo signature where+    overloadedMethod _ = applicationInfoSetVersion++#endif++-- method ApplicationInfo::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitApplicationInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_application_info_unref" webkit_application_info_unref :: +    Ptr ApplicationInfo ->                  -- info : TInterface (Name {namespace = "WebKit2", name = "ApplicationInfo"})+    IO ()++{- |+Atomically decrements the reference count of /@info@/ by one. If the+reference count drops to 0, all memory allocated by the 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' is+released. This function is MT-safe and may be called from any+thread.++/Since: 2.18/+-}+applicationInfoUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ApplicationInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.ApplicationInfo.ApplicationInfo' -}+    -> m ()+applicationInfoUnref info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    webkit_application_info_unref info'+    touchManagedPtr info+    return ()++#if ENABLE_OVERLOADING+data ApplicationInfoUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ApplicationInfoUnrefMethodInfo ApplicationInfo signature where+    overloadedMethod _ = applicationInfoUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveApplicationInfoMethod (t :: Symbol) (o :: *) :: * where+    ResolveApplicationInfoMethod "ref" o = ApplicationInfoRefMethodInfo+    ResolveApplicationInfoMethod "unref" o = ApplicationInfoUnrefMethodInfo+    ResolveApplicationInfoMethod "getName" o = ApplicationInfoGetNameMethodInfo+    ResolveApplicationInfoMethod "getVersion" o = ApplicationInfoGetVersionMethodInfo+    ResolveApplicationInfoMethod "setName" o = ApplicationInfoSetNameMethodInfo+    ResolveApplicationInfoMethod "setVersion" o = ApplicationInfoSetVersionMethodInfo+    ResolveApplicationInfoMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveApplicationInfoMethod t ApplicationInfo, O.MethodInfo info ApplicationInfo p) => OL.IsLabel t (ApplicationInfo -> 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++
+ GI/WebKit2/Structs/ApplicationInfo.hs-boot view
@@ -0,0 +1,44 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.ApplicationInfo 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++newtype ApplicationInfo = ApplicationInfo (ManagedPtr ApplicationInfo)+instance BoxedObject ApplicationInfo where+#if ENABLE_OVERLOADING+data ApplicationInfoGetNameMethodInfo+#endif+#if ENABLE_OVERLOADING+data ApplicationInfoGetVersionMethodInfo+#endif+#if ENABLE_OVERLOADING+data ApplicationInfoRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data ApplicationInfoSetNameMethodInfo+#endif+#if ENABLE_OVERLOADING+data ApplicationInfoSetVersionMethodInfo+#endif+#if ENABLE_OVERLOADING+data ApplicationInfoUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/Credential.hs view
@@ -0,0 +1,406 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.Credential+    ( ++-- * Exported types+    Credential(..)                          ,+    noCredential                            ,+++ -- * Methods+-- ** copy #method:copy#++#if ENABLE_OVERLOADING+    CredentialCopyMethodInfo                ,+#endif+    credentialCopy                          ,+++-- ** free #method:free#++#if ENABLE_OVERLOADING+    CredentialFreeMethodInfo                ,+#endif+    credentialFree                          ,+++-- ** getPassword #method:getPassword#++#if ENABLE_OVERLOADING+    CredentialGetPasswordMethodInfo         ,+#endif+    credentialGetPassword                   ,+++-- ** getPersistence #method:getPersistence#++#if ENABLE_OVERLOADING+    CredentialGetPersistenceMethodInfo      ,+#endif+    credentialGetPersistence                ,+++-- ** getUsername #method:getUsername#++#if ENABLE_OVERLOADING+    CredentialGetUsernameMethodInfo         ,+#endif+    credentialGetUsername                   ,+++-- ** hasPassword #method:hasPassword#++#if ENABLE_OVERLOADING+    CredentialHasPasswordMethodInfo         ,+#endif+    credentialHasPassword                   ,+++-- ** new #method:new#++    credentialNew                           ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums++-- | Memory-managed wrapper type.+newtype Credential = Credential (ManagedPtr Credential)+foreign import ccall "webkit_credential_get_type" c_webkit_credential_get_type :: +    IO GType++instance BoxedObject Credential where+    boxedType _ = c_webkit_credential_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `Credential`.+noCredential :: Maybe Credential+noCredential = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList Credential+type instance O.AttributeList Credential = CredentialAttributeList+type CredentialAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method Credential::new+-- method type : Constructor+-- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The username for the new credential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The password for the new credential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "persistence", argType = TInterface (Name {namespace = "WebKit2", name = "CredentialPersistence"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #WebKitCredentialPersistence of the new credential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Credential"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_credential_new" webkit_credential_new :: +    CString ->                              -- username : TBasicType TUTF8+    CString ->                              -- password : TBasicType TUTF8+    CUInt ->                                -- persistence : TInterface (Name {namespace = "WebKit2", name = "CredentialPersistence"})+    IO (Ptr Credential)++{- |+Create a new credential from the provided username, password and persistence mode.++/Since: 2.2/+-}+credentialNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@username@/: The username for the new credential -}+    -> T.Text+    {- ^ /@password@/: The password for the new credential -}+    -> WebKit2.Enums.CredentialPersistence+    {- ^ /@persistence@/: The 'GI.WebKit2.Enums.CredentialPersistence' of the new credential -}+    -> m Credential+    {- ^ __Returns:__ A 'GI.WebKit2.Structs.Credential.Credential'. -}+credentialNew username password persistence = liftIO $ do+    username' <- textToCString username+    password' <- textToCString password+    let persistence' = (fromIntegral . fromEnum) persistence+    result <- webkit_credential_new username' password' persistence'+    checkUnexpectedReturnNULL "credentialNew" result+    result' <- (wrapBoxed Credential) result+    freeMem username'+    freeMem password'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method Credential::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "credential", argType = TInterface (Name {namespace = "WebKit2", name = "Credential"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCredential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "Credential"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_credential_copy" webkit_credential_copy :: +    Ptr Credential ->                       -- credential : TInterface (Name {namespace = "WebKit2", name = "Credential"})+    IO (Ptr Credential)++{- |+Make a copy of the 'GI.WebKit2.Structs.Credential.Credential'.++/Since: 2.2/+-}+credentialCopy ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Credential+    {- ^ /@credential@/: a 'GI.WebKit2.Structs.Credential.Credential' -}+    -> m Credential+    {- ^ __Returns:__ A copy of passed in 'GI.WebKit2.Structs.Credential.Credential' -}+credentialCopy credential = liftIO $ do+    credential' <- unsafeManagedPtrGetPtr credential+    result <- webkit_credential_copy credential'+    checkUnexpectedReturnNULL "credentialCopy" result+    result' <- (wrapBoxed Credential) result+    touchManagedPtr credential+    return result'++#if ENABLE_OVERLOADING+data CredentialCopyMethodInfo+instance (signature ~ (m Credential), MonadIO m) => O.MethodInfo CredentialCopyMethodInfo Credential signature where+    overloadedMethod _ = credentialCopy++#endif++-- method Credential::free+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "credential", argType = TInterface (Name {namespace = "WebKit2", name = "Credential"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitCredential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_credential_free" webkit_credential_free :: +    Ptr Credential ->                       -- credential : TInterface (Name {namespace = "WebKit2", name = "Credential"})+    IO ()++{- |+Free the 'GI.WebKit2.Structs.Credential.Credential'.++/Since: 2.2/+-}+credentialFree ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Credential+    {- ^ /@credential@/: A 'GI.WebKit2.Structs.Credential.Credential' -}+    -> m ()+credentialFree credential = liftIO $ do+    credential' <- unsafeManagedPtrGetPtr credential+    webkit_credential_free credential'+    touchManagedPtr credential+    return ()++#if ENABLE_OVERLOADING+data CredentialFreeMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo CredentialFreeMethodInfo Credential signature where+    overloadedMethod _ = credentialFree++#endif++-- method Credential::get_password+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "credential", argType = TInterface (Name {namespace = "WebKit2", name = "Credential"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCredential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_credential_get_password" webkit_credential_get_password :: +    Ptr Credential ->                       -- credential : TInterface (Name {namespace = "WebKit2", name = "Credential"})+    IO CString++{- |+Get the password currently held by this 'GI.WebKit2.Structs.Credential.Credential'.++/Since: 2.2/+-}+credentialGetPassword ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Credential+    {- ^ /@credential@/: a 'GI.WebKit2.Structs.Credential.Credential' -}+    -> m T.Text+    {- ^ __Returns:__ The password stored in the 'GI.WebKit2.Structs.Credential.Credential'. -}+credentialGetPassword credential = liftIO $ do+    credential' <- unsafeManagedPtrGetPtr credential+    result <- webkit_credential_get_password credential'+    checkUnexpectedReturnNULL "credentialGetPassword" result+    result' <- cstringToText result+    touchManagedPtr credential+    return result'++#if ENABLE_OVERLOADING+data CredentialGetPasswordMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CredentialGetPasswordMethodInfo Credential signature where+    overloadedMethod _ = credentialGetPassword++#endif++-- method Credential::get_persistence+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "credential", argType = TInterface (Name {namespace = "WebKit2", name = "Credential"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCredential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "CredentialPersistence"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_credential_get_persistence" webkit_credential_get_persistence :: +    Ptr Credential ->                       -- credential : TInterface (Name {namespace = "WebKit2", name = "Credential"})+    IO CUInt++{- |+Get the persistence mode currently held by this 'GI.WebKit2.Structs.Credential.Credential'.++/Since: 2.2/+-}+credentialGetPersistence ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Credential+    {- ^ /@credential@/: a 'GI.WebKit2.Structs.Credential.Credential' -}+    -> m WebKit2.Enums.CredentialPersistence+    {- ^ __Returns:__ The 'GI.WebKit2.Enums.CredentialPersistence' stored in the 'GI.WebKit2.Structs.Credential.Credential'. -}+credentialGetPersistence credential = liftIO $ do+    credential' <- unsafeManagedPtrGetPtr credential+    result <- webkit_credential_get_persistence credential'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr credential+    return result'++#if ENABLE_OVERLOADING+data CredentialGetPersistenceMethodInfo+instance (signature ~ (m WebKit2.Enums.CredentialPersistence), MonadIO m) => O.MethodInfo CredentialGetPersistenceMethodInfo Credential signature where+    overloadedMethod _ = credentialGetPersistence++#endif++-- method Credential::get_username+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "credential", argType = TInterface (Name {namespace = "WebKit2", name = "Credential"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCredential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_credential_get_username" webkit_credential_get_username :: +    Ptr Credential ->                       -- credential : TInterface (Name {namespace = "WebKit2", name = "Credential"})+    IO CString++{- |+Get the username currently held by this 'GI.WebKit2.Structs.Credential.Credential'.++/Since: 2.2/+-}+credentialGetUsername ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Credential+    {- ^ /@credential@/: a 'GI.WebKit2.Structs.Credential.Credential' -}+    -> m T.Text+    {- ^ __Returns:__ The username stored in the 'GI.WebKit2.Structs.Credential.Credential'. -}+credentialGetUsername credential = liftIO $ do+    credential' <- unsafeManagedPtrGetPtr credential+    result <- webkit_credential_get_username credential'+    checkUnexpectedReturnNULL "credentialGetUsername" result+    result' <- cstringToText result+    touchManagedPtr credential+    return result'++#if ENABLE_OVERLOADING+data CredentialGetUsernameMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CredentialGetUsernameMethodInfo Credential signature where+    overloadedMethod _ = credentialGetUsername++#endif++-- method Credential::has_password+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "credential", argType = TInterface (Name {namespace = "WebKit2", name = "Credential"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitCredential", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_credential_has_password" webkit_credential_has_password :: +    Ptr Credential ->                       -- credential : TInterface (Name {namespace = "WebKit2", name = "Credential"})+    IO CInt++{- |+Determine whether this credential has a password stored.++/Since: 2.2/+-}+credentialHasPassword ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Credential+    {- ^ /@credential@/: a 'GI.WebKit2.Structs.Credential.Credential' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the credential has a password or 'False' otherwise. -}+credentialHasPassword credential = liftIO $ do+    credential' <- unsafeManagedPtrGetPtr credential+    result <- webkit_credential_has_password credential'+    let result' = (/= 0) result+    touchManagedPtr credential+    return result'++#if ENABLE_OVERLOADING+data CredentialHasPasswordMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo CredentialHasPasswordMethodInfo Credential signature where+    overloadedMethod _ = credentialHasPassword++#endif++#if ENABLE_OVERLOADING+type family ResolveCredentialMethod (t :: Symbol) (o :: *) :: * where+    ResolveCredentialMethod "copy" o = CredentialCopyMethodInfo+    ResolveCredentialMethod "free" o = CredentialFreeMethodInfo+    ResolveCredentialMethod "hasPassword" o = CredentialHasPasswordMethodInfo+    ResolveCredentialMethod "getPassword" o = CredentialGetPasswordMethodInfo+    ResolveCredentialMethod "getPersistence" o = CredentialGetPersistenceMethodInfo+    ResolveCredentialMethod "getUsername" o = CredentialGetUsernameMethodInfo+    ResolveCredentialMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveCredentialMethod t Credential, O.MethodInfo info Credential p) => OL.IsLabel t (Credential -> 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++
+ GI/WebKit2/Structs/Credential.hs-boot view
@@ -0,0 +1,44 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.Credential 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++newtype Credential = Credential (ManagedPtr Credential)+instance BoxedObject Credential where+#if ENABLE_OVERLOADING+data CredentialCopyMethodInfo+#endif+#if ENABLE_OVERLOADING+data CredentialFreeMethodInfo+#endif+#if ENABLE_OVERLOADING+data CredentialGetPasswordMethodInfo+#endif+#if ENABLE_OVERLOADING+data CredentialGetPersistenceMethodInfo+#endif+#if ENABLE_OVERLOADING+data CredentialGetUsernameMethodInfo+#endif+#if ENABLE_OVERLOADING+data CredentialHasPasswordMethodInfo+#endif
+ GI/WebKit2/Structs/JavascriptResult.hs view
@@ -0,0 +1,219 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.JavascriptResult+    ( ++-- * Exported types+    JavascriptResult(..)                    ,+    noJavascriptResult                      ,+++ -- * Methods+-- ** getJsValue #method:getJsValue#++#if ENABLE_OVERLOADING+    JavascriptResultGetJsValueMethodInfo    ,+#endif+    javascriptResultGetJsValue              ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    JavascriptResultRefMethodInfo           ,+#endif+    javascriptResultRef                     ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    JavascriptResultUnrefMethodInfo         ,+#endif+    javascriptResultUnref                   ,+++++    ) 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.JavaScriptCore.Objects.Value as JavaScriptCore.Value++-- | Memory-managed wrapper type.+newtype JavascriptResult = JavascriptResult (ManagedPtr JavascriptResult)+foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type :: +    IO GType++instance BoxedObject JavascriptResult where+    boxedType _ = c_webkit_javascript_result_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `JavascriptResult`.+noJavascriptResult :: Maybe JavascriptResult+noJavascriptResult = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList JavascriptResult+type instance O.AttributeList JavascriptResult = JavascriptResultAttributeList+type JavascriptResultAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method JavascriptResult::get_js_value+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "js_result", argType = TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitJavascriptResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "JavaScriptCore", name = "Value"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_javascript_result_get_js_value" webkit_javascript_result_get_js_value :: +    Ptr JavascriptResult ->                 -- js_result : TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"})+    IO (Ptr JavaScriptCore.Value.Value)++{- |+Get the 'GI.JavaScriptCore.Objects.Value.Value' of /@jsResult@/.++/Since: 2.22/+-}+javascriptResultGetJsValue ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    JavascriptResult+    {- ^ /@jsResult@/: a 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' -}+    -> m JavaScriptCore.Value.Value+    {- ^ __Returns:__ the 'GI.JavaScriptCore.Objects.Value.Value' of the 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' -}+javascriptResultGetJsValue jsResult = liftIO $ do+    jsResult' <- unsafeManagedPtrGetPtr jsResult+    result <- webkit_javascript_result_get_js_value jsResult'+    checkUnexpectedReturnNULL "javascriptResultGetJsValue" result+    result' <- (newObject JavaScriptCore.Value.Value) result+    touchManagedPtr jsResult+    return result'++#if ENABLE_OVERLOADING+data JavascriptResultGetJsValueMethodInfo+instance (signature ~ (m JavaScriptCore.Value.Value), MonadIO m) => O.MethodInfo JavascriptResultGetJsValueMethodInfo JavascriptResult signature where+    overloadedMethod _ = javascriptResultGetJsValue++#endif++-- method JavascriptResult::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "js_result", argType = TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitJavascriptResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_javascript_result_ref" webkit_javascript_result_ref :: +    Ptr JavascriptResult ->                 -- js_result : TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"})+    IO (Ptr JavascriptResult)++{- |+Atomically increments the reference count of /@jsResult@/ by one. This+function is MT-safe and may be called from any thread.+-}+javascriptResultRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    JavascriptResult+    {- ^ /@jsResult@/: a 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' -}+    -> m JavascriptResult+    {- ^ __Returns:__ The passed in 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' -}+javascriptResultRef jsResult = liftIO $ do+    jsResult' <- unsafeManagedPtrGetPtr jsResult+    result <- webkit_javascript_result_ref jsResult'+    checkUnexpectedReturnNULL "javascriptResultRef" result+    result' <- (wrapBoxed JavascriptResult) result+    touchManagedPtr jsResult+    return result'++#if ENABLE_OVERLOADING+data JavascriptResultRefMethodInfo+instance (signature ~ (m JavascriptResult), MonadIO m) => O.MethodInfo JavascriptResultRefMethodInfo JavascriptResult signature where+    overloadedMethod _ = javascriptResultRef++#endif++-- method JavascriptResult::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "js_result", argType = TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitJavascriptResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref :: +    Ptr JavascriptResult ->                 -- js_result : TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"})+    IO ()++{- |+Atomically decrements the reference count of /@jsResult@/ by one. If the+reference count drops to 0, all memory allocated by the 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' is+released. This function is MT-safe and may be called from any+thread.+-}+javascriptResultUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    JavascriptResult+    {- ^ /@jsResult@/: a 'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' -}+    -> m ()+javascriptResultUnref jsResult = liftIO $ do+    jsResult' <- unsafeManagedPtrGetPtr jsResult+    webkit_javascript_result_unref jsResult'+    touchManagedPtr jsResult+    return ()++#if ENABLE_OVERLOADING+data JavascriptResultUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo JavascriptResultUnrefMethodInfo JavascriptResult signature where+    overloadedMethod _ = javascriptResultUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveJavascriptResultMethod (t :: Symbol) (o :: *) :: * where+    ResolveJavascriptResultMethod "ref" o = JavascriptResultRefMethodInfo+    ResolveJavascriptResultMethod "unref" o = JavascriptResultUnrefMethodInfo+    ResolveJavascriptResultMethod "getJsValue" o = JavascriptResultGetJsValueMethodInfo+    ResolveJavascriptResultMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, O.MethodInfo info JavascriptResult p) => OL.IsLabel t (JavascriptResult -> 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++
+ GI/WebKit2/Structs/JavascriptResult.hs-boot view
@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.JavascriptResult 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++newtype JavascriptResult = JavascriptResult (ManagedPtr JavascriptResult)+instance BoxedObject JavascriptResult where+#if ENABLE_OVERLOADING+data JavascriptResultGetJsValueMethodInfo+#endif+#if ENABLE_OVERLOADING+data JavascriptResultRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data JavascriptResultUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/MimeInfo.hs view
@@ -0,0 +1,308 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.MimeInfo+    ( ++-- * Exported types+    MimeInfo(..)                            ,+    noMimeInfo                              ,+++ -- * Methods+-- ** getDescription #method:getDescription#++#if ENABLE_OVERLOADING+    MimeInfoGetDescriptionMethodInfo        ,+#endif+    mimeInfoGetDescription                  ,+++-- ** getExtensions #method:getExtensions#++#if ENABLE_OVERLOADING+    MimeInfoGetExtensionsMethodInfo         ,+#endif+    mimeInfoGetExtensions                   ,+++-- ** getMimeType #method:getMimeType#++#if ENABLE_OVERLOADING+    MimeInfoGetMimeTypeMethodInfo           ,+#endif+    mimeInfoGetMimeType                     ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    MimeInfoRefMethodInfo                   ,+#endif+    mimeInfoRef                             ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    MimeInfoUnrefMethodInfo                 ,+#endif+    mimeInfoUnref                           ,+++++    ) 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+++-- | Memory-managed wrapper type.+newtype MimeInfo = MimeInfo (ManagedPtr MimeInfo)+foreign import ccall "webkit_mime_info_get_type" c_webkit_mime_info_get_type :: +    IO GType++instance BoxedObject MimeInfo where+    boxedType _ = c_webkit_mime_info_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `MimeInfo`.+noMimeInfo :: Maybe MimeInfo+noMimeInfo = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList MimeInfo+type instance O.AttributeList MimeInfo = MimeInfoAttributeList+type MimeInfoAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method MimeInfo::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "MimeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitMimeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_mime_info_get_description" webkit_mime_info_get_description :: +    Ptr MimeInfo ->                         -- info : TInterface (Name {namespace = "WebKit2", name = "MimeInfo"})+    IO CString++{- |+/No description available in the introspection data./+-}+mimeInfoGetDescription ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    MimeInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.MimeInfo.MimeInfo' -}+    -> m T.Text+    {- ^ __Returns:__ the description of the MIME type of /@info@/ -}+mimeInfoGetDescription info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    result <- webkit_mime_info_get_description info'+    checkUnexpectedReturnNULL "mimeInfoGetDescription" result+    result' <- cstringToText result+    touchManagedPtr info+    return result'++#if ENABLE_OVERLOADING+data MimeInfoGetDescriptionMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo MimeInfoGetDescriptionMethodInfo MimeInfo signature where+    overloadedMethod _ = mimeInfoGetDescription++#endif++-- method MimeInfo::get_extensions+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "MimeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitMimeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_mime_info_get_extensions" webkit_mime_info_get_extensions :: +    Ptr MimeInfo ->                         -- info : TInterface (Name {namespace = "WebKit2", name = "MimeInfo"})+    IO (Ptr CString)++{- |+Get the list of file extensions associated to the+MIME type of /@info@/+-}+mimeInfoGetExtensions ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    MimeInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.MimeInfo.MimeInfo' -}+    -> m [T.Text]+    {- ^ __Returns:__ a+    'Nothing'-terminated array of strings -}+mimeInfoGetExtensions info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    result <- webkit_mime_info_get_extensions info'+    checkUnexpectedReturnNULL "mimeInfoGetExtensions" result+    result' <- unpackZeroTerminatedUTF8CArray result+    touchManagedPtr info+    return result'++#if ENABLE_OVERLOADING+data MimeInfoGetExtensionsMethodInfo+instance (signature ~ (m [T.Text]), MonadIO m) => O.MethodInfo MimeInfoGetExtensionsMethodInfo MimeInfo signature where+    overloadedMethod _ = mimeInfoGetExtensions++#endif++-- method MimeInfo::get_mime_type+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "MimeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitMimeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_mime_info_get_mime_type" webkit_mime_info_get_mime_type :: +    Ptr MimeInfo ->                         -- info : TInterface (Name {namespace = "WebKit2", name = "MimeInfo"})+    IO CString++{- |+/No description available in the introspection data./+-}+mimeInfoGetMimeType ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    MimeInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.MimeInfo.MimeInfo' -}+    -> m T.Text+    {- ^ __Returns:__ the MIME type of /@info@/ -}+mimeInfoGetMimeType info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    result <- webkit_mime_info_get_mime_type info'+    checkUnexpectedReturnNULL "mimeInfoGetMimeType" result+    result' <- cstringToText result+    touchManagedPtr info+    return result'++#if ENABLE_OVERLOADING+data MimeInfoGetMimeTypeMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo MimeInfoGetMimeTypeMethodInfo MimeInfo signature where+    overloadedMethod _ = mimeInfoGetMimeType++#endif++-- method MimeInfo::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "MimeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitMimeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "MimeInfo"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_mime_info_ref" webkit_mime_info_ref :: +    Ptr MimeInfo ->                         -- info : TInterface (Name {namespace = "WebKit2", name = "MimeInfo"})+    IO (Ptr MimeInfo)++{- |+Atomically increments the reference count of /@info@/ by one. This+function is MT-safe and may be called from any thread.+-}+mimeInfoRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    MimeInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.MimeInfo.MimeInfo' -}+    -> m MimeInfo+    {- ^ __Returns:__ The passed in 'GI.WebKit2.Structs.MimeInfo.MimeInfo' -}+mimeInfoRef info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    result <- webkit_mime_info_ref info'+    checkUnexpectedReturnNULL "mimeInfoRef" result+    result' <- (wrapBoxed MimeInfo) result+    touchManagedPtr info+    return result'++#if ENABLE_OVERLOADING+data MimeInfoRefMethodInfo+instance (signature ~ (m MimeInfo), MonadIO m) => O.MethodInfo MimeInfoRefMethodInfo MimeInfo signature where+    overloadedMethod _ = mimeInfoRef++#endif++-- method MimeInfo::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "WebKit2", name = "MimeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitMimeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_mime_info_unref" webkit_mime_info_unref :: +    Ptr MimeInfo ->                         -- info : TInterface (Name {namespace = "WebKit2", name = "MimeInfo"})+    IO ()++{- |+Atomically decrements the reference count of /@info@/ by one. If the+reference count drops to 0, all memory allocated by the 'GI.WebKit2.Structs.MimeInfo.MimeInfo' is+released. This function is MT-safe and may be called from any+thread.+-}+mimeInfoUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    MimeInfo+    {- ^ /@info@/: a 'GI.WebKit2.Structs.MimeInfo.MimeInfo' -}+    -> m ()+mimeInfoUnref info = liftIO $ do+    info' <- unsafeManagedPtrGetPtr info+    webkit_mime_info_unref info'+    touchManagedPtr info+    return ()++#if ENABLE_OVERLOADING+data MimeInfoUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MimeInfoUnrefMethodInfo MimeInfo signature where+    overloadedMethod _ = mimeInfoUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveMimeInfoMethod (t :: Symbol) (o :: *) :: * where+    ResolveMimeInfoMethod "ref" o = MimeInfoRefMethodInfo+    ResolveMimeInfoMethod "unref" o = MimeInfoUnrefMethodInfo+    ResolveMimeInfoMethod "getDescription" o = MimeInfoGetDescriptionMethodInfo+    ResolveMimeInfoMethod "getExtensions" o = MimeInfoGetExtensionsMethodInfo+    ResolveMimeInfoMethod "getMimeType" o = MimeInfoGetMimeTypeMethodInfo+    ResolveMimeInfoMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveMimeInfoMethod t MimeInfo, O.MethodInfo info MimeInfo p) => OL.IsLabel t (MimeInfo -> 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++
+ GI/WebKit2/Structs/MimeInfo.hs-boot view
@@ -0,0 +1,41 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.MimeInfo 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++newtype MimeInfo = MimeInfo (ManagedPtr MimeInfo)+instance BoxedObject MimeInfo where+#if ENABLE_OVERLOADING+data MimeInfoGetDescriptionMethodInfo+#endif+#if ENABLE_OVERLOADING+data MimeInfoGetExtensionsMethodInfo+#endif+#if ENABLE_OVERLOADING+data MimeInfoGetMimeTypeMethodInfo+#endif+#if ENABLE_OVERLOADING+data MimeInfoRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data MimeInfoUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/NavigationAction.hs view
@@ -0,0 +1,455 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.NavigationAction+    ( ++-- * Exported types+    NavigationAction(..)                    ,+    noNavigationAction                      ,+++ -- * Methods+-- ** copy #method:copy#++#if ENABLE_OVERLOADING+    NavigationActionCopyMethodInfo          ,+#endif+    navigationActionCopy                    ,+++-- ** free #method:free#++#if ENABLE_OVERLOADING+    NavigationActionFreeMethodInfo          ,+#endif+    navigationActionFree                    ,+++-- ** getModifiers #method:getModifiers#++#if ENABLE_OVERLOADING+    NavigationActionGetModifiersMethodInfo  ,+#endif+    navigationActionGetModifiers            ,+++-- ** getMouseButton #method:getMouseButton#++#if ENABLE_OVERLOADING+    NavigationActionGetMouseButtonMethodInfo,+#endif+    navigationActionGetMouseButton          ,+++-- ** getNavigationType #method:getNavigationType#++#if ENABLE_OVERLOADING+    NavigationActionGetNavigationTypeMethodInfo,+#endif+    navigationActionGetNavigationType       ,+++-- ** getRequest #method:getRequest#++#if ENABLE_OVERLOADING+    NavigationActionGetRequestMethodInfo    ,+#endif+    navigationActionGetRequest              ,+++-- ** isRedirect #method:isRedirect#++#if ENABLE_OVERLOADING+    NavigationActionIsRedirectMethodInfo    ,+#endif+    navigationActionIsRedirect              ,+++-- ** isUserGesture #method:isUserGesture#++#if ENABLE_OVERLOADING+    NavigationActionIsUserGestureMethodInfo ,+#endif+    navigationActionIsUserGesture           ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums+import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIRequest as WebKit2.URIRequest++-- | Memory-managed wrapper type.+newtype NavigationAction = NavigationAction (ManagedPtr NavigationAction)+foreign import ccall "webkit_navigation_action_get_type" c_webkit_navigation_action_get_type :: +    IO GType++instance BoxedObject NavigationAction where+    boxedType _ = c_webkit_navigation_action_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `NavigationAction`.+noNavigationAction :: Maybe NavigationAction+noNavigationAction = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList NavigationAction+type instance O.AttributeList NavigationAction = NavigationActionAttributeList+type NavigationActionAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method NavigationAction::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_copy" webkit_navigation_action_copy :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO (Ptr NavigationAction)++{- |+Make a copy of /@navigation@/.++/Since: 2.6/+-}+navigationActionCopy ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m NavigationAction+    {- ^ __Returns:__ A copy of passed in 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+navigationActionCopy navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    result <- webkit_navigation_action_copy navigation'+    checkUnexpectedReturnNULL "navigationActionCopy" result+    result' <- (wrapBoxed NavigationAction) result+    touchManagedPtr navigation+    return result'++#if ENABLE_OVERLOADING+data NavigationActionCopyMethodInfo+instance (signature ~ (m NavigationAction), MonadIO m) => O.MethodInfo NavigationActionCopyMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionCopy++#endif++-- method NavigationAction::free+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_free" webkit_navigation_action_free :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO ()++{- |+Free the 'GI.WebKit2.Structs.NavigationAction.NavigationAction'++/Since: 2.6/+-}+navigationActionFree ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m ()+navigationActionFree navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    webkit_navigation_action_free navigation'+    touchManagedPtr navigation+    return ()++#if ENABLE_OVERLOADING+data NavigationActionFreeMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo NavigationActionFreeMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionFree++#endif++-- method NavigationAction::get_modifiers+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_get_modifiers" webkit_navigation_action_get_modifiers :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO Word32++{- |+Return a bitmask of 'GI.Gdk.Flags.ModifierType' values describing the modifier keys that were in effect+when the navigation was requested++/Since: 2.6/+-}+navigationActionGetModifiers ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m Word32+    {- ^ __Returns:__ the modifier keys -}+navigationActionGetModifiers navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    result <- webkit_navigation_action_get_modifiers navigation'+    touchManagedPtr navigation+    return result++#if ENABLE_OVERLOADING+data NavigationActionGetModifiersMethodInfo+instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo NavigationActionGetModifiersMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionGetModifiers++#endif++-- method NavigationAction::get_mouse_button+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_get_mouse_button" webkit_navigation_action_get_mouse_button :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO Word32++{- |+Return the number of the mouse button that triggered the navigation, or 0 if+the navigation was not started by a mouse event.++/Since: 2.6/+-}+navigationActionGetMouseButton ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m Word32+    {- ^ __Returns:__ the mouse button number or 0 -}+navigationActionGetMouseButton navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    result <- webkit_navigation_action_get_mouse_button navigation'+    touchManagedPtr navigation+    return result++#if ENABLE_OVERLOADING+data NavigationActionGetMouseButtonMethodInfo+instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo NavigationActionGetMouseButtonMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionGetMouseButton++#endif++-- method NavigationAction::get_navigation_type+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NavigationType"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_get_navigation_type" webkit_navigation_action_get_navigation_type :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO CUInt++{- |+Return the type of action that triggered the navigation.++/Since: 2.6/+-}+navigationActionGetNavigationType ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m WebKit2.Enums.NavigationType+    {- ^ __Returns:__ a 'GI.WebKit2.Enums.NavigationType' -}+navigationActionGetNavigationType navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    result <- webkit_navigation_action_get_navigation_type navigation'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr navigation+    return result'++#if ENABLE_OVERLOADING+data NavigationActionGetNavigationTypeMethodInfo+instance (signature ~ (m WebKit2.Enums.NavigationType), MonadIO m) => O.MethodInfo NavigationActionGetNavigationTypeMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionGetNavigationType++#endif++-- method NavigationAction::get_request+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "URIRequest"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_get_request" webkit_navigation_action_get_request :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO (Ptr WebKit2.URIRequest.URIRequest)++{- |+Return the 'GI.WebKit2.Objects.URIRequest.URIRequest' associated with the navigation action.+Modifications to the returned object are \<emphasis>not\<\/emphasis> taken+into account when the request is sent over the network, and is intended+only to aid in evaluating whether a navigation action should be taken or+not. To modify requests before they are sent over the network the+@/WebKitPage::send-request/@ signal can be used instead.++/Since: 2.6/+-}+navigationActionGetRequest ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m WebKit2.URIRequest.URIRequest+    {- ^ __Returns:__ a 'GI.WebKit2.Objects.URIRequest.URIRequest' -}+navigationActionGetRequest navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    result <- webkit_navigation_action_get_request navigation'+    checkUnexpectedReturnNULL "navigationActionGetRequest" result+    result' <- (newObject WebKit2.URIRequest.URIRequest) result+    touchManagedPtr navigation+    return result'++#if ENABLE_OVERLOADING+data NavigationActionGetRequestMethodInfo+instance (signature ~ (m WebKit2.URIRequest.URIRequest), MonadIO m) => O.MethodInfo NavigationActionGetRequestMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionGetRequest++#endif++-- method NavigationAction::is_redirect+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_is_redirect" webkit_navigation_action_is_redirect :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO CInt++{- |+Returns whether the /@navigation@/ was redirected.++/Since: 2.20/+-}+navigationActionIsRedirect ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the original navigation was redirected, 'False' otherwise. -}+navigationActionIsRedirect navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    result <- webkit_navigation_action_is_redirect navigation'+    let result' = (/= 0) result+    touchManagedPtr navigation+    return result'++#if ENABLE_OVERLOADING+data NavigationActionIsRedirectMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo NavigationActionIsRedirectMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionIsRedirect++#endif++-- method NavigationAction::is_user_gesture+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "navigation", argType = TInterface (Name {namespace = "WebKit2", name = "NavigationAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNavigationAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_navigation_action_is_user_gesture" webkit_navigation_action_is_user_gesture :: +    Ptr NavigationAction ->                 -- navigation : TInterface (Name {namespace = "WebKit2", name = "NavigationAction"})+    IO CInt++{- |+Return whether the navigation was triggered by a user gesture like a mouse click.++/Since: 2.6/+-}+navigationActionIsUserGesture ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NavigationAction+    {- ^ /@navigation@/: a 'GI.WebKit2.Structs.NavigationAction.NavigationAction' -}+    -> m Bool+    {- ^ __Returns:__ whether navigation action is a user gesture -}+navigationActionIsUserGesture navigation = liftIO $ do+    navigation' <- unsafeManagedPtrGetPtr navigation+    result <- webkit_navigation_action_is_user_gesture navigation'+    let result' = (/= 0) result+    touchManagedPtr navigation+    return result'++#if ENABLE_OVERLOADING+data NavigationActionIsUserGestureMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo NavigationActionIsUserGestureMethodInfo NavigationAction signature where+    overloadedMethod _ = navigationActionIsUserGesture++#endif++#if ENABLE_OVERLOADING+type family ResolveNavigationActionMethod (t :: Symbol) (o :: *) :: * where+    ResolveNavigationActionMethod "copy" o = NavigationActionCopyMethodInfo+    ResolveNavigationActionMethod "free" o = NavigationActionFreeMethodInfo+    ResolveNavigationActionMethod "isRedirect" o = NavigationActionIsRedirectMethodInfo+    ResolveNavigationActionMethod "isUserGesture" o = NavigationActionIsUserGestureMethodInfo+    ResolveNavigationActionMethod "getModifiers" o = NavigationActionGetModifiersMethodInfo+    ResolveNavigationActionMethod "getMouseButton" o = NavigationActionGetMouseButtonMethodInfo+    ResolveNavigationActionMethod "getNavigationType" o = NavigationActionGetNavigationTypeMethodInfo+    ResolveNavigationActionMethod "getRequest" o = NavigationActionGetRequestMethodInfo+    ResolveNavigationActionMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveNavigationActionMethod t NavigationAction, O.MethodInfo info NavigationAction p) => OL.IsLabel t (NavigationAction -> 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++
+ GI/WebKit2/Structs/NavigationAction.hs-boot view
@@ -0,0 +1,50 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.NavigationAction 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++newtype NavigationAction = NavigationAction (ManagedPtr NavigationAction)+instance BoxedObject NavigationAction where+#if ENABLE_OVERLOADING+data NavigationActionCopyMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationActionFreeMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationActionGetModifiersMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationActionGetMouseButtonMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationActionGetNavigationTypeMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationActionGetRequestMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationActionIsRedirectMethodInfo+#endif+#if ENABLE_OVERLOADING+data NavigationActionIsUserGestureMethodInfo+#endif
+ GI/WebKit2/Structs/NetworkProxySettings.hs view
@@ -0,0 +1,310 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.NetworkProxySettings+    ( ++-- * Exported types+    NetworkProxySettings(..)                ,+    noNetworkProxySettings                  ,+++ -- * Methods+-- ** addProxyForScheme #method:addProxyForScheme#++#if ENABLE_OVERLOADING+    NetworkProxySettingsAddProxyForSchemeMethodInfo,+#endif+    networkProxySettingsAddProxyForScheme   ,+++-- ** copy #method:copy#++#if ENABLE_OVERLOADING+    NetworkProxySettingsCopyMethodInfo      ,+#endif+    networkProxySettingsCopy                ,+++-- ** free #method:free#++#if ENABLE_OVERLOADING+    NetworkProxySettingsFreeMethodInfo      ,+#endif+    networkProxySettingsFree                ,+++-- ** new #method:new#++    networkProxySettingsNew                 ,+++++    ) 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+++-- | Memory-managed wrapper type.+newtype NetworkProxySettings = NetworkProxySettings (ManagedPtr NetworkProxySettings)+foreign import ccall "webkit_network_proxy_settings_get_type" c_webkit_network_proxy_settings_get_type :: +    IO GType++instance BoxedObject NetworkProxySettings where+    boxedType _ = c_webkit_network_proxy_settings_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `NetworkProxySettings`.+noNetworkProxySettings :: Maybe NetworkProxySettings+noNetworkProxySettings = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList NetworkProxySettings+type instance O.AttributeList NetworkProxySettings = NetworkProxySettingsAttributeList+type NetworkProxySettingsAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method NetworkProxySettings::new+-- method type : Constructor+-- Args : [Arg {argCName = "default_proxy_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the default proxy URI to use, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an optional list of hosts/IP addresses to not use a proxy for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_network_proxy_settings_new" webkit_network_proxy_settings_new :: +    CString ->                              -- default_proxy_uri : TBasicType TUTF8+    Ptr CString ->                          -- ignore_hosts : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr NetworkProxySettings)++{- |+Create a new 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' with the given /@defaultProxyUri@/ and /@ignoreHosts@/.++The default proxy URI will be used for any URI that doesn\'t match /@ignoreHosts@/, and doesn\'t match any+of the schemes added with 'GI.WebKit2.Structs.NetworkProxySettings.networkProxySettingsAddProxyForScheme'.+If /@defaultProxyUri@/ starts with \"socks:\/\/\", it will be treated as referring to all three of the+socks5, socks4a, and socks4 proxy types.++/@ignoreHosts@/ is a list of hostnames and IP addresses that the resolver should allow direct connections to.+Entries can be in one of 4 formats:+\<itemizedlist>+\<listitem>\<para>+A hostname, such as \"example.com\", \".example.com\", or \"*.example.com\", any of which match \"example.com\" or+any subdomain of it.+\<\/para>\<\/listitem>+\<listitem>\<para>+An IPv4 or IPv6 address, such as \"192.168.1.1\", which matches only that address.+\<\/para>\<\/listitem>+\<listitem>\<para>+A hostname or IP address followed by a port, such as \"example.com:80\", which matches whatever the hostname or IP+address would match, but only for URLs with the (explicitly) indicated port. In the case of an IPv6 address, the address+part must appear in brackets: \"[::1]:443\"+\<\/para>\<\/listitem>+\<listitem>\<para>+An IP address range, given by a base address and prefix length, such as \"fe80::\/10\", which matches any address in that range.+\<\/para>\<\/listitem>+\<\/itemizedlist>++Note that when dealing with Unicode hostnames, the matching is done against the ASCII form of the name.+Also note that hostname exclusions apply only to connections made to hosts identified by name, and IP address exclusions apply only+to connections made to hosts identified by address. That is, if example.com has an address of 192.168.1.1, and /@ignoreHosts@/+contains only \"192.168.1.1\", then a connection to \"example.com\" will use the proxy, and a connection to 192.168.1.1\" will not.++/Since: 2.16/+-}+networkProxySettingsNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Maybe (T.Text)+    {- ^ /@defaultProxyUri@/: the default proxy URI to use, or 'Nothing'. -}+    -> Maybe ([T.Text])+    {- ^ /@ignoreHosts@/: an optional list of hosts\/IP addresses to not use a proxy for. -}+    -> m NetworkProxySettings+    {- ^ __Returns:__ A new 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings'. -}+networkProxySettingsNew defaultProxyUri ignoreHosts = liftIO $ do+    maybeDefaultProxyUri <- case defaultProxyUri of+        Nothing -> return nullPtr+        Just jDefaultProxyUri -> do+            jDefaultProxyUri' <- textToCString jDefaultProxyUri+            return jDefaultProxyUri'+    maybeIgnoreHosts <- case ignoreHosts of+        Nothing -> return nullPtr+        Just jIgnoreHosts -> do+            jIgnoreHosts' <- packZeroTerminatedUTF8CArray jIgnoreHosts+            return jIgnoreHosts'+    result <- webkit_network_proxy_settings_new maybeDefaultProxyUri maybeIgnoreHosts+    checkUnexpectedReturnNULL "networkProxySettingsNew" result+    result' <- (wrapBoxed NetworkProxySettings) result+    freeMem maybeDefaultProxyUri+    mapZeroTerminatedCArray freeMem maybeIgnoreHosts+    freeMem maybeIgnoreHosts+    return result'++#if ENABLE_OVERLOADING+#endif++-- method NetworkProxySettings::add_proxy_for_scheme+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "proxy_settings", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNetworkProxySettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI scheme to add a proxy for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the proxy URI to use for @uri_scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_network_proxy_settings_add_proxy_for_scheme" webkit_network_proxy_settings_add_proxy_for_scheme :: +    Ptr NetworkProxySettings ->             -- proxy_settings : TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"})+    CString ->                              -- scheme : TBasicType TUTF8+    CString ->                              -- proxy_uri : TBasicType TUTF8+    IO ()++{- |+Adds a URI-scheme-specific proxy. URIs whose scheme matches /@uriScheme@/ will be proxied via /@proxyUri@/.+As with the default proxy URI, if /@proxyUri@/ starts with \"socks:\/\/\", it will be treated as referring to+all three of the socks5, socks4a, and socks4 proxy types.++/Since: 2.16/+-}+networkProxySettingsAddProxyForScheme ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NetworkProxySettings+    {- ^ /@proxySettings@/: a 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}+    -> T.Text+    {- ^ /@scheme@/: the URI scheme to add a proxy for -}+    -> T.Text+    {- ^ /@proxyUri@/: the proxy URI to use for /@uriScheme@/ -}+    -> m ()+networkProxySettingsAddProxyForScheme proxySettings scheme proxyUri = liftIO $ do+    proxySettings' <- unsafeManagedPtrGetPtr proxySettings+    scheme' <- textToCString scheme+    proxyUri' <- textToCString proxyUri+    webkit_network_proxy_settings_add_proxy_for_scheme proxySettings' scheme' proxyUri'+    touchManagedPtr proxySettings+    freeMem scheme'+    freeMem proxyUri'+    return ()++#if ENABLE_OVERLOADING+data NetworkProxySettingsAddProxyForSchemeMethodInfo+instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => O.MethodInfo NetworkProxySettingsAddProxyForSchemeMethodInfo NetworkProxySettings signature where+    overloadedMethod _ = networkProxySettingsAddProxyForScheme++#endif++-- method NetworkProxySettings::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "proxy_settings", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNetworkProxySettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_network_proxy_settings_copy" webkit_network_proxy_settings_copy :: +    Ptr NetworkProxySettings ->             -- proxy_settings : TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"})+    IO (Ptr NetworkProxySettings)++{- |+Make a copy of the 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings'.++/Since: 2.16/+-}+networkProxySettingsCopy ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NetworkProxySettings+    {- ^ /@proxySettings@/: a 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}+    -> m NetworkProxySettings+    {- ^ __Returns:__ A copy of passed in 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}+networkProxySettingsCopy proxySettings = liftIO $ do+    proxySettings' <- unsafeManagedPtrGetPtr proxySettings+    result <- webkit_network_proxy_settings_copy proxySettings'+    checkUnexpectedReturnNULL "networkProxySettingsCopy" result+    result' <- (wrapBoxed NetworkProxySettings) result+    touchManagedPtr proxySettings+    return result'++#if ENABLE_OVERLOADING+data NetworkProxySettingsCopyMethodInfo+instance (signature ~ (m NetworkProxySettings), MonadIO m) => O.MethodInfo NetworkProxySettingsCopyMethodInfo NetworkProxySettings signature where+    overloadedMethod _ = networkProxySettingsCopy++#endif++-- method NetworkProxySettings::free+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "proxy_settings", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitNetworkProxySettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_network_proxy_settings_free" webkit_network_proxy_settings_free :: +    Ptr NetworkProxySettings ->             -- proxy_settings : TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"})+    IO ()++{- |+Free the 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings'.++/Since: 2.16/+-}+networkProxySettingsFree ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    NetworkProxySettings+    {- ^ /@proxySettings@/: A 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}+    -> m ()+networkProxySettingsFree proxySettings = liftIO $ do+    proxySettings' <- unsafeManagedPtrGetPtr proxySettings+    webkit_network_proxy_settings_free proxySettings'+    touchManagedPtr proxySettings+    return ()++#if ENABLE_OVERLOADING+data NetworkProxySettingsFreeMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo NetworkProxySettingsFreeMethodInfo NetworkProxySettings signature where+    overloadedMethod _ = networkProxySettingsFree++#endif++#if ENABLE_OVERLOADING+type family ResolveNetworkProxySettingsMethod (t :: Symbol) (o :: *) :: * where+    ResolveNetworkProxySettingsMethod "addProxyForScheme" o = NetworkProxySettingsAddProxyForSchemeMethodInfo+    ResolveNetworkProxySettingsMethod "copy" o = NetworkProxySettingsCopyMethodInfo+    ResolveNetworkProxySettingsMethod "free" o = NetworkProxySettingsFreeMethodInfo+    ResolveNetworkProxySettingsMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveNetworkProxySettingsMethod t NetworkProxySettings, O.MethodInfo info NetworkProxySettings p) => OL.IsLabel t (NetworkProxySettings -> 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++
+ GI/WebKit2/Structs/NetworkProxySettings.hs-boot view
@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.NetworkProxySettings 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++newtype NetworkProxySettings = NetworkProxySettings (ManagedPtr NetworkProxySettings)+instance BoxedObject NetworkProxySettings where+#if ENABLE_OVERLOADING+data NetworkProxySettingsAddProxyForSchemeMethodInfo+#endif+#if ENABLE_OVERLOADING+data NetworkProxySettingsCopyMethodInfo+#endif+#if ENABLE_OVERLOADING+data NetworkProxySettingsFreeMethodInfo+#endif
+ GI/WebKit2/Structs/OptionMenuItem.hs view
@@ -0,0 +1,450 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.OptionMenuItem+    ( ++-- * Exported types+    OptionMenuItem(..)                      ,+    noOptionMenuItem                        ,+++ -- * Methods+-- ** copy #method:copy#++#if ENABLE_OVERLOADING+    OptionMenuItemCopyMethodInfo            ,+#endif+    optionMenuItemCopy                      ,+++-- ** free #method:free#++#if ENABLE_OVERLOADING+    OptionMenuItemFreeMethodInfo            ,+#endif+    optionMenuItemFree                      ,+++-- ** getLabel #method:getLabel#++#if ENABLE_OVERLOADING+    OptionMenuItemGetLabelMethodInfo        ,+#endif+    optionMenuItemGetLabel                  ,+++-- ** getTooltip #method:getTooltip#++#if ENABLE_OVERLOADING+    OptionMenuItemGetTooltipMethodInfo      ,+#endif+    optionMenuItemGetTooltip                ,+++-- ** isEnabled #method:isEnabled#++#if ENABLE_OVERLOADING+    OptionMenuItemIsEnabledMethodInfo       ,+#endif+    optionMenuItemIsEnabled                 ,+++-- ** isGroupChild #method:isGroupChild#++#if ENABLE_OVERLOADING+    OptionMenuItemIsGroupChildMethodInfo    ,+#endif+    optionMenuItemIsGroupChild              ,+++-- ** isGroupLabel #method:isGroupLabel#++#if ENABLE_OVERLOADING+    OptionMenuItemIsGroupLabelMethodInfo    ,+#endif+    optionMenuItemIsGroupLabel              ,+++-- ** isSelected #method:isSelected#++#if ENABLE_OVERLOADING+    OptionMenuItemIsSelectedMethodInfo      ,+#endif+    optionMenuItemIsSelected                ,+++++    ) 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+++-- | Memory-managed wrapper type.+newtype OptionMenuItem = OptionMenuItem (ManagedPtr OptionMenuItem)+foreign import ccall "webkit_option_menu_item_get_type" c_webkit_option_menu_item_get_type :: +    IO GType++instance BoxedObject OptionMenuItem where+    boxedType _ = c_webkit_option_menu_item_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `OptionMenuItem`.+noOptionMenuItem :: Maybe OptionMenuItem+noOptionMenuItem = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList OptionMenuItem+type instance O.AttributeList OptionMenuItem = OptionMenuItemAttributeList+type OptionMenuItemAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method OptionMenuItem::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_copy" webkit_option_menu_item_copy :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO (Ptr OptionMenuItem)++{- |+Make a copy of the 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem'.++/Since: 2.18/+-}+optionMenuItemCopy ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m OptionMenuItem+    {- ^ __Returns:__ A copy of passed in 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+optionMenuItemCopy item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    result <- webkit_option_menu_item_copy item'+    checkUnexpectedReturnNULL "optionMenuItemCopy" result+    result' <- (wrapBoxed OptionMenuItem) result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data OptionMenuItemCopyMethodInfo+instance (signature ~ (m OptionMenuItem), MonadIO m) => O.MethodInfo OptionMenuItemCopyMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemCopy++#endif++-- method OptionMenuItem::free+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_free" webkit_option_menu_item_free :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO ()++{- |+Free the 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem'.++/Since: 2.18/+-}+optionMenuItemFree ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: A 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m ()+optionMenuItemFree item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    webkit_option_menu_item_free item'+    touchManagedPtr item+    return ()++#if ENABLE_OVERLOADING+data OptionMenuItemFreeMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo OptionMenuItemFreeMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemFree++#endif++-- method OptionMenuItem::get_label+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_get_label" webkit_option_menu_item_get_label :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO CString++{- |+Get the label of a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem'.++/Since: 2.18/+-}+optionMenuItemGetLabel ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m T.Text+    {- ^ __Returns:__ The label of /@item@/. -}+optionMenuItemGetLabel item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    result <- webkit_option_menu_item_get_label item'+    checkUnexpectedReturnNULL "optionMenuItemGetLabel" result+    result' <- cstringToText result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data OptionMenuItemGetLabelMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo OptionMenuItemGetLabelMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemGetLabel++#endif++-- method OptionMenuItem::get_tooltip+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_get_tooltip" webkit_option_menu_item_get_tooltip :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO CString++{- |+Get the tooltip of a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem'.++/Since: 2.18/+-}+optionMenuItemGetTooltip ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ The tooltip of /@item@/, or 'Nothing'. -}+optionMenuItemGetTooltip item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    result <- webkit_option_menu_item_get_tooltip item'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr item+    return maybeResult++#if ENABLE_OVERLOADING+data OptionMenuItemGetTooltipMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo OptionMenuItemGetTooltipMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemGetTooltip++#endif++-- method OptionMenuItem::is_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_is_enabled" webkit_option_menu_item_is_enabled :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO CInt++{- |+Whether a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' is enabled.++/Since: 2.18/+-}+optionMenuItemIsEnabled ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the /@item@/ is enabled or 'False' otherwise. -}+optionMenuItemIsEnabled item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    result <- webkit_option_menu_item_is_enabled item'+    let result' = (/= 0) result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data OptionMenuItemIsEnabledMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo OptionMenuItemIsEnabledMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemIsEnabled++#endif++-- method OptionMenuItem::is_group_child+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_is_group_child" webkit_option_menu_item_is_group_child :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO CInt++{- |+Whether a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' is a group child.++/Since: 2.18/+-}+optionMenuItemIsGroupChild ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the /@item@/ is a group child or 'False' otherwise. -}+optionMenuItemIsGroupChild item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    result <- webkit_option_menu_item_is_group_child item'+    let result' = (/= 0) result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data OptionMenuItemIsGroupChildMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo OptionMenuItemIsGroupChildMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemIsGroupChild++#endif++-- method OptionMenuItem::is_group_label+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_is_group_label" webkit_option_menu_item_is_group_label :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO CInt++{- |+Whether a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' is a group label.++/Since: 2.18/+-}+optionMenuItemIsGroupLabel ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the /@item@/ is a group label or 'False' otherwise. -}+optionMenuItemIsGroupLabel item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    result <- webkit_option_menu_item_is_group_label item'+    let result' = (/= 0) result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data OptionMenuItemIsGroupLabelMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo OptionMenuItemIsGroupLabelMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemIsGroupLabel++#endif++-- method OptionMenuItem::is_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitOptionMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_option_menu_item_is_selected" webkit_option_menu_item_is_selected :: +    Ptr OptionMenuItem ->                   -- item : TInterface (Name {namespace = "WebKit2", name = "OptionMenuItem"})+    IO CInt++{- |+Whether a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' is the currently selected one.++/Since: 2.18/+-}+optionMenuItemIsSelected ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OptionMenuItem+    {- ^ /@item@/: a 'GI.WebKit2.Structs.OptionMenuItem.OptionMenuItem' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if the /@item@/ is selected or 'False' otherwise. -}+optionMenuItemIsSelected item = liftIO $ do+    item' <- unsafeManagedPtrGetPtr item+    result <- webkit_option_menu_item_is_selected item'+    let result' = (/= 0) result+    touchManagedPtr item+    return result'++#if ENABLE_OVERLOADING+data OptionMenuItemIsSelectedMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo OptionMenuItemIsSelectedMethodInfo OptionMenuItem signature where+    overloadedMethod _ = optionMenuItemIsSelected++#endif++#if ENABLE_OVERLOADING+type family ResolveOptionMenuItemMethod (t :: Symbol) (o :: *) :: * where+    ResolveOptionMenuItemMethod "copy" o = OptionMenuItemCopyMethodInfo+    ResolveOptionMenuItemMethod "free" o = OptionMenuItemFreeMethodInfo+    ResolveOptionMenuItemMethod "isEnabled" o = OptionMenuItemIsEnabledMethodInfo+    ResolveOptionMenuItemMethod "isGroupChild" o = OptionMenuItemIsGroupChildMethodInfo+    ResolveOptionMenuItemMethod "isGroupLabel" o = OptionMenuItemIsGroupLabelMethodInfo+    ResolveOptionMenuItemMethod "isSelected" o = OptionMenuItemIsSelectedMethodInfo+    ResolveOptionMenuItemMethod "getLabel" o = OptionMenuItemGetLabelMethodInfo+    ResolveOptionMenuItemMethod "getTooltip" o = OptionMenuItemGetTooltipMethodInfo+    ResolveOptionMenuItemMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveOptionMenuItemMethod t OptionMenuItem, O.MethodInfo info OptionMenuItem p) => OL.IsLabel t (OptionMenuItem -> 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++
+ GI/WebKit2/Structs/OptionMenuItem.hs-boot view
@@ -0,0 +1,50 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.OptionMenuItem 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++newtype OptionMenuItem = OptionMenuItem (ManagedPtr OptionMenuItem)+instance BoxedObject OptionMenuItem where+#if ENABLE_OVERLOADING+data OptionMenuItemCopyMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuItemFreeMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuItemGetLabelMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuItemGetTooltipMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuItemIsEnabledMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuItemIsGroupChildMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuItemIsGroupLabelMethodInfo+#endif+#if ENABLE_OVERLOADING+data OptionMenuItemIsSelectedMethodInfo+#endif
+ GI/WebKit2/Structs/ScriptDialog.hs view
@@ -0,0 +1,462 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.ScriptDialog+    ( ++-- * Exported types+    ScriptDialog(..)                        ,+    noScriptDialog                          ,+++ -- * Methods+-- ** close #method:close#++#if ENABLE_OVERLOADING+    ScriptDialogCloseMethodInfo             ,+#endif+    scriptDialogClose                       ,+++-- ** confirmSetConfirmed #method:confirmSetConfirmed#++#if ENABLE_OVERLOADING+    ScriptDialogConfirmSetConfirmedMethodInfo,+#endif+    scriptDialogConfirmSetConfirmed         ,+++-- ** getDialogType #method:getDialogType#++#if ENABLE_OVERLOADING+    ScriptDialogGetDialogTypeMethodInfo     ,+#endif+    scriptDialogGetDialogType               ,+++-- ** getMessage #method:getMessage#++#if ENABLE_OVERLOADING+    ScriptDialogGetMessageMethodInfo        ,+#endif+    scriptDialogGetMessage                  ,+++-- ** promptGetDefaultText #method:promptGetDefaultText#++#if ENABLE_OVERLOADING+    ScriptDialogPromptGetDefaultTextMethodInfo,+#endif+    scriptDialogPromptGetDefaultText        ,+++-- ** promptSetText #method:promptSetText#++#if ENABLE_OVERLOADING+    ScriptDialogPromptSetTextMethodInfo     ,+#endif+    scriptDialogPromptSetText               ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    ScriptDialogRefMethodInfo               ,+#endif+    scriptDialogRef                         ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    ScriptDialogUnrefMethodInfo             ,+#endif+    scriptDialogUnref                       ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums++-- | Memory-managed wrapper type.+newtype ScriptDialog = ScriptDialog (ManagedPtr ScriptDialog)+foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type :: +    IO GType++instance BoxedObject ScriptDialog where+    boxedType _ = c_webkit_script_dialog_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `ScriptDialog`.+noScriptDialog :: Maybe ScriptDialog+noScriptDialog = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList ScriptDialog+type instance O.AttributeList ScriptDialog = ScriptDialogAttributeList+type ScriptDialogAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method ScriptDialog::close+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_close" webkit_script_dialog_close :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    IO ()++{- |+Close /@dialog@/. When handling a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' asynchronously ('GI.WebKit2.Structs.ScriptDialog.scriptDialogRef'+was called in 'GI.WebKit2.Objects.WebView.WebView'::@/script-dialog/@ callback), this function needs to be called to notify+that we are done with the script dialog. The dialog will be closed on destruction if this function+hasn\'t been called before.++/Since: 2.24/+-}+scriptDialogClose ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> m ()+scriptDialogClose dialog = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    webkit_script_dialog_close dialog'+    touchManagedPtr dialog+    return ()++#if ENABLE_OVERLOADING+data ScriptDialogCloseMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ScriptDialogCloseMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogClose++#endif++-- method ScriptDialog::confirm_set_confirmed+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confirmed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether user confirmed the dialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_confirm_set_confirmed" webkit_script_dialog_confirm_set_confirmed :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    CInt ->                                 -- confirmed : TBasicType TBoolean+    IO ()++{- |+This method is used for 'GI.WebKit2.Enums.ScriptDialogTypeConfirm' and 'GI.WebKit2.Enums.ScriptDialogTypeBeforeUnloadConfirm' dialogs when+'GI.WebKit2.Objects.WebView.WebView'::@/script-dialog/@ signal is emitted to set whether the user+confirmed the dialog or not. The default implementation of 'GI.WebKit2.Objects.WebView.WebView'::@/script-dialog/@+signal sets 'True' when the OK or Stay buttons are clicked and 'False' otherwise.+It\'s an error to use this method with a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' that is not of type+'GI.WebKit2.Enums.ScriptDialogTypeConfirm' or 'GI.WebKit2.Enums.ScriptDialogTypeBeforeUnloadConfirm'+-}+scriptDialogConfirmSetConfirmed ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> Bool+    {- ^ /@confirmed@/: whether user confirmed the dialog -}+    -> m ()+scriptDialogConfirmSetConfirmed dialog confirmed = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    let confirmed' = (fromIntegral . fromEnum) confirmed+    webkit_script_dialog_confirm_set_confirmed dialog' confirmed'+    touchManagedPtr dialog+    return ()++#if ENABLE_OVERLOADING+data ScriptDialogConfirmSetConfirmedMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m) => O.MethodInfo ScriptDialogConfirmSetConfirmedMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogConfirmSetConfirmed++#endif++-- method ScriptDialog::get_dialog_type+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ScriptDialogType"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_get_dialog_type" webkit_script_dialog_get_dialog_type :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    IO CUInt++{- |+Get the dialog type of a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog'.+-}+scriptDialogGetDialogType ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> m WebKit2.Enums.ScriptDialogType+    {- ^ __Returns:__ the 'GI.WebKit2.Enums.ScriptDialogType' of /@dialog@/ -}+scriptDialogGetDialogType dialog = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    result <- webkit_script_dialog_get_dialog_type dialog'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr dialog+    return result'++#if ENABLE_OVERLOADING+data ScriptDialogGetDialogTypeMethodInfo+instance (signature ~ (m WebKit2.Enums.ScriptDialogType), MonadIO m) => O.MethodInfo ScriptDialogGetDialogTypeMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogGetDialogType++#endif++-- method ScriptDialog::get_message+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_get_message" webkit_script_dialog_get_message :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    IO CString++{- |+Get the message of a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog'.+-}+scriptDialogGetMessage ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> m T.Text+    {- ^ __Returns:__ the message of /@dialog@/. -}+scriptDialogGetMessage dialog = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    result <- webkit_script_dialog_get_message dialog'+    checkUnexpectedReturnNULL "scriptDialogGetMessage" result+    result' <- cstringToText result+    touchManagedPtr dialog+    return result'++#if ENABLE_OVERLOADING+data ScriptDialogGetMessageMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo ScriptDialogGetMessageMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogGetMessage++#endif++-- method ScriptDialog::prompt_get_default_text+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_prompt_get_default_text" webkit_script_dialog_prompt_get_default_text :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    IO CString++{- |+Get the default text of a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' of type 'GI.WebKit2.Enums.ScriptDialogTypePrompt'.+It\'s an error to use this method with a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' that is not of type+'GI.WebKit2.Enums.ScriptDialogTypePrompt'.+-}+scriptDialogPromptGetDefaultText ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> m T.Text+    {- ^ __Returns:__ the default text of /@dialog@/ -}+scriptDialogPromptGetDefaultText dialog = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    result <- webkit_script_dialog_prompt_get_default_text dialog'+    checkUnexpectedReturnNULL "scriptDialogPromptGetDefaultText" result+    result' <- cstringToText result+    touchManagedPtr dialog+    return result'++#if ENABLE_OVERLOADING+data ScriptDialogPromptGetDefaultTextMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo ScriptDialogPromptGetDefaultTextMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogPromptGetDefaultText++#endif++-- method ScriptDialog::prompt_set_text+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the text to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_prompt_set_text" webkit_script_dialog_prompt_set_text :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    CString ->                              -- text : TBasicType TUTF8+    IO ()++{- |+This method is used for 'GI.WebKit2.Enums.ScriptDialogTypePrompt' dialogs when+'GI.WebKit2.Objects.WebView.WebView'::@/script-dialog/@ signal is emitted to set the text+entered by the user. The default implementation of 'GI.WebKit2.Objects.WebView.WebView'::@/script-dialog/@+signal sets the text of the entry form when OK button is clicked, otherwise 'Nothing' is set.+It\'s an error to use this method with a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' that is not of type+'GI.WebKit2.Enums.ScriptDialogTypePrompt'.+-}+scriptDialogPromptSetText ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> T.Text+    {- ^ /@text@/: the text to set -}+    -> m ()+scriptDialogPromptSetText dialog text = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    text' <- textToCString text+    webkit_script_dialog_prompt_set_text dialog' text'+    touchManagedPtr dialog+    freeMem text'+    return ()++#if ENABLE_OVERLOADING+data ScriptDialogPromptSetTextMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo ScriptDialogPromptSetTextMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogPromptSetText++#endif++-- method ScriptDialog::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_ref" webkit_script_dialog_ref :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    IO (Ptr ScriptDialog)++{- |+Atomically increments the reference count of /@dialog@/ by one. This+function is MT-safe and may be called from any thread.++/Since: 2.24/+-}+scriptDialogRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> m ScriptDialog+    {- ^ __Returns:__ The passed in 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+scriptDialogRef dialog = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    result <- webkit_script_dialog_ref dialog'+    checkUnexpectedReturnNULL "scriptDialogRef" result+    result' <- (wrapBoxed ScriptDialog) result+    touchManagedPtr dialog+    return result'++#if ENABLE_OVERLOADING+data ScriptDialogRefMethodInfo+instance (signature ~ (m ScriptDialog), MonadIO m) => O.MethodInfo ScriptDialogRefMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogRef++#endif++-- method ScriptDialog::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "dialog", argType = TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitScriptDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_dialog_unref" webkit_script_dialog_unref :: +    Ptr ScriptDialog ->                     -- dialog : TInterface (Name {namespace = "WebKit2", name = "ScriptDialog"})+    IO ()++{- |+Atomically decrements the reference count of /@dialog@/ by one. If the+reference count drops to 0, all memory allocated by the @/WebKitScriptdialog/@ is+released. This function is MT-safe and may be called from any+thread.++/Since: 2.24/+-}+scriptDialogUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ScriptDialog+    {- ^ /@dialog@/: a 'GI.WebKit2.Structs.ScriptDialog.ScriptDialog' -}+    -> m ()+scriptDialogUnref dialog = liftIO $ do+    dialog' <- unsafeManagedPtrGetPtr dialog+    webkit_script_dialog_unref dialog'+    touchManagedPtr dialog+    return ()++#if ENABLE_OVERLOADING+data ScriptDialogUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ScriptDialogUnrefMethodInfo ScriptDialog signature where+    overloadedMethod _ = scriptDialogUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveScriptDialogMethod (t :: Symbol) (o :: *) :: * where+    ResolveScriptDialogMethod "close" o = ScriptDialogCloseMethodInfo+    ResolveScriptDialogMethod "confirmSetConfirmed" o = ScriptDialogConfirmSetConfirmedMethodInfo+    ResolveScriptDialogMethod "promptGetDefaultText" o = ScriptDialogPromptGetDefaultTextMethodInfo+    ResolveScriptDialogMethod "promptSetText" o = ScriptDialogPromptSetTextMethodInfo+    ResolveScriptDialogMethod "ref" o = ScriptDialogRefMethodInfo+    ResolveScriptDialogMethod "unref" o = ScriptDialogUnrefMethodInfo+    ResolveScriptDialogMethod "getDialogType" o = ScriptDialogGetDialogTypeMethodInfo+    ResolveScriptDialogMethod "getMessage" o = ScriptDialogGetMessageMethodInfo+    ResolveScriptDialogMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveScriptDialogMethod t ScriptDialog, O.MethodInfo info ScriptDialog p) => OL.IsLabel t (ScriptDialog -> 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++
+ GI/WebKit2/Structs/ScriptDialog.hs-boot view
@@ -0,0 +1,50 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.ScriptDialog 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++newtype ScriptDialog = ScriptDialog (ManagedPtr ScriptDialog)+instance BoxedObject ScriptDialog where+#if ENABLE_OVERLOADING+data ScriptDialogCloseMethodInfo+#endif+#if ENABLE_OVERLOADING+data ScriptDialogConfirmSetConfirmedMethodInfo+#endif+#if ENABLE_OVERLOADING+data ScriptDialogGetDialogTypeMethodInfo+#endif+#if ENABLE_OVERLOADING+data ScriptDialogGetMessageMethodInfo+#endif+#if ENABLE_OVERLOADING+data ScriptDialogPromptGetDefaultTextMethodInfo+#endif+#if ENABLE_OVERLOADING+data ScriptDialogPromptSetTextMethodInfo+#endif+#if ENABLE_OVERLOADING+data ScriptDialogRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data ScriptDialogUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/SecurityOrigin.hs view
@@ -0,0 +1,510 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.SecurityOrigin+    ( ++-- * Exported types+    SecurityOrigin(..)                      ,+    noSecurityOrigin                        ,+++ -- * Methods+-- ** getHost #method:getHost#++#if ENABLE_OVERLOADING+    SecurityOriginGetHostMethodInfo         ,+#endif+    securityOriginGetHost                   ,+++-- ** getPort #method:getPort#++#if ENABLE_OVERLOADING+    SecurityOriginGetPortMethodInfo         ,+#endif+    securityOriginGetPort                   ,+++-- ** getProtocol #method:getProtocol#++#if ENABLE_OVERLOADING+    SecurityOriginGetProtocolMethodInfo     ,+#endif+    securityOriginGetProtocol               ,+++-- ** isOpaque #method:isOpaque#++#if ENABLE_OVERLOADING+    SecurityOriginIsOpaqueMethodInfo        ,+#endif+    securityOriginIsOpaque                  ,+++-- ** new #method:new#++    securityOriginNew                       ,+++-- ** newForUri #method:newForUri#++    securityOriginNewForUri                 ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    SecurityOriginRefMethodInfo             ,+#endif+    securityOriginRef                       ,+++-- ** toString #method:toString#++#if ENABLE_OVERLOADING+    SecurityOriginToStringMethodInfo        ,+#endif+    securityOriginToString                  ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    SecurityOriginUnrefMethodInfo           ,+#endif+    securityOriginUnref                     ,+++++    ) 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+++-- | Memory-managed wrapper type.+newtype SecurityOrigin = SecurityOrigin (ManagedPtr SecurityOrigin)+foreign import ccall "webkit_security_origin_get_type" c_webkit_security_origin_get_type :: +    IO GType++instance BoxedObject SecurityOrigin where+    boxedType _ = c_webkit_security_origin_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `SecurityOrigin`.+noSecurityOrigin :: Maybe SecurityOrigin+noSecurityOrigin = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList SecurityOrigin+type instance O.AttributeList SecurityOrigin = SecurityOriginAttributeList+type SecurityOriginAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method SecurityOrigin::new+-- method type : Constructor+-- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The protocol for the new origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The host for the new origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The port number for the new origin, or 0 to indicate the\n       default port for @protocol", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_new" webkit_security_origin_new :: +    CString ->                              -- protocol : TBasicType TUTF8+    CString ->                              -- host : TBasicType TUTF8+    Word16 ->                               -- port : TBasicType TUInt16+    IO (Ptr SecurityOrigin)++{- |+Create a new security origin from the provided protocol, host and+port.++/Since: 2.16/+-}+securityOriginNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@protocol@/: The protocol for the new origin -}+    -> T.Text+    {- ^ /@host@/: The host for the new origin -}+    -> Word16+    {- ^ /@port@/: The port number for the new origin, or 0 to indicate the+       default port for /@protocol@/ -}+    -> m SecurityOrigin+    {- ^ __Returns:__ A 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin'. -}+securityOriginNew protocol host port = liftIO $ do+    protocol' <- textToCString protocol+    host' <- textToCString host+    result <- webkit_security_origin_new protocol' host' port+    checkUnexpectedReturnNULL "securityOriginNew" result+    result' <- (wrapBoxed SecurityOrigin) result+    freeMem protocol'+    freeMem host'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method SecurityOrigin::new_for_uri+-- method type : Constructor+-- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The URI for the new origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_new_for_uri" webkit_security_origin_new_for_uri :: +    CString ->                              -- uri : TBasicType TUTF8+    IO (Ptr SecurityOrigin)++{- |+Create a new security origin from the provided URI. Components of+/@uri@/ other than protocol, host, and port do not affect the created+'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin'.++/Since: 2.16/+-}+securityOriginNewForUri ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@uri@/: The URI for the new origin -}+    -> m SecurityOrigin+    {- ^ __Returns:__ A 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin'. -}+securityOriginNewForUri uri = liftIO $ do+    uri' <- textToCString uri+    result <- webkit_security_origin_new_for_uri uri'+    checkUnexpectedReturnNULL "securityOriginNewForUri" result+    result' <- (wrapBoxed SecurityOrigin) result+    freeMem uri'+    return result'++#if ENABLE_OVERLOADING+#endif++-- method SecurityOrigin::get_host+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "origin", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityOrigin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_get_host" webkit_security_origin_get_host :: +    Ptr SecurityOrigin ->                   -- origin : TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})+    IO CString++{- |+Gets the hostname of /@origin@/, or 'Nothing' if /@origin@/ is opaque or if its+protocol does not require a host component.++/Since: 2.16/+-}+securityOriginGetHost ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    SecurityOrigin+    {- ^ /@origin@/: a 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ The host of the 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+securityOriginGetHost origin = liftIO $ do+    origin' <- unsafeManagedPtrGetPtr origin+    result <- webkit_security_origin_get_host origin'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr origin+    return maybeResult++#if ENABLE_OVERLOADING+data SecurityOriginGetHostMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo SecurityOriginGetHostMethodInfo SecurityOrigin signature where+    overloadedMethod _ = securityOriginGetHost++#endif++-- method SecurityOrigin::get_port+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "origin", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityOrigin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt16)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_get_port" webkit_security_origin_get_port :: +    Ptr SecurityOrigin ->                   -- origin : TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})+    IO Word16++{- |+Gets the port of /@origin@/. This function will always return 0 if the+port is the default port for the given protocol. For example,+http:\/\/example.com has the same security origin as+http:\/\/example.com:80, and this function will return 0 for a+'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' constructed from either URI. It will also+return 0 if /@origin@/ is opaque.++/Since: 2.16/+-}+securityOriginGetPort ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    SecurityOrigin+    {- ^ /@origin@/: a 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+    -> m Word16+    {- ^ __Returns:__ The port of the 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin'. -}+securityOriginGetPort origin = liftIO $ do+    origin' <- unsafeManagedPtrGetPtr origin+    result <- webkit_security_origin_get_port origin'+    touchManagedPtr origin+    return result++#if ENABLE_OVERLOADING+data SecurityOriginGetPortMethodInfo+instance (signature ~ (m Word16), MonadIO m) => O.MethodInfo SecurityOriginGetPortMethodInfo SecurityOrigin signature where+    overloadedMethod _ = securityOriginGetPort++#endif++-- method SecurityOrigin::get_protocol+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "origin", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityOrigin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_get_protocol" webkit_security_origin_get_protocol :: +    Ptr SecurityOrigin ->                   -- origin : TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})+    IO CString++{- |+Gets the protocol of /@origin@/, or 'Nothing' if /@origin@/ is opaque.++/Since: 2.16/+-}+securityOriginGetProtocol ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    SecurityOrigin+    {- ^ /@origin@/: a 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ The protocol of the 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+securityOriginGetProtocol origin = liftIO $ do+    origin' <- unsafeManagedPtrGetPtr origin+    result <- webkit_security_origin_get_protocol origin'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    touchManagedPtr origin+    return maybeResult++#if ENABLE_OVERLOADING+data SecurityOriginGetProtocolMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo SecurityOriginGetProtocolMethodInfo SecurityOrigin signature where+    overloadedMethod _ = securityOriginGetProtocol++#endif++-- method SecurityOrigin::is_opaque+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "origin", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityOrigin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_is_opaque" webkit_security_origin_is_opaque :: +    Ptr SecurityOrigin ->                   -- origin : TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})+    IO CInt++{- |+Gets whether /@origin@/ is an opaque security origin, which does not+possess an associated protocol, host, or port.++/Since: 2.16/+-}+securityOriginIsOpaque ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    SecurityOrigin+    {- ^ /@origin@/: a 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+    -> m Bool+    {- ^ __Returns:__ 'True' if /@origin@/ is opaque. -}+securityOriginIsOpaque origin = liftIO $ do+    origin' <- unsafeManagedPtrGetPtr origin+    result <- webkit_security_origin_is_opaque origin'+    let result' = (/= 0) result+    touchManagedPtr origin+    return result'++#if ENABLE_OVERLOADING+data SecurityOriginIsOpaqueMethodInfo+instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo SecurityOriginIsOpaqueMethodInfo SecurityOrigin signature where+    overloadedMethod _ = securityOriginIsOpaque++#endif++-- method SecurityOrigin::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "origin", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityOrigin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_ref" webkit_security_origin_ref :: +    Ptr SecurityOrigin ->                   -- origin : TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})+    IO (Ptr SecurityOrigin)++{- |+Atomically increments the reference count of /@origin@/ by one.+This function is MT-safe and may be called from any thread.++/Since: 2.16/+-}+securityOriginRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    SecurityOrigin+    {- ^ /@origin@/: a 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+    -> m SecurityOrigin+    {- ^ __Returns:__ The passed 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+securityOriginRef origin = liftIO $ do+    origin' <- unsafeManagedPtrGetPtr origin+    result <- webkit_security_origin_ref origin'+    checkUnexpectedReturnNULL "securityOriginRef" result+    result' <- (wrapBoxed SecurityOrigin) result+    touchManagedPtr origin+    return result'++#if ENABLE_OVERLOADING+data SecurityOriginRefMethodInfo+instance (signature ~ (m SecurityOrigin), MonadIO m) => O.MethodInfo SecurityOriginRefMethodInfo SecurityOrigin signature where+    overloadedMethod _ = securityOriginRef++#endif++-- method SecurityOrigin::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "origin", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitSecurityOrigin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_to_string" webkit_security_origin_to_string :: +    Ptr SecurityOrigin ->                   -- origin : TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})+    IO CString++{- |+Gets a string representation of /@origin@/. The string representation+is a valid URI with only protocol, host, and port components. It may+be 'Nothing', but usually only if /@origin@/ is opaque.++/Since: 2.16/+-}+securityOriginToString ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    SecurityOrigin+    {- ^ /@origin@/: a 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ a URI representing /@origin@/. -}+securityOriginToString origin = liftIO $ do+    origin' <- unsafeManagedPtrGetPtr origin+    result <- webkit_security_origin_to_string origin'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''+    touchManagedPtr origin+    return maybeResult++#if ENABLE_OVERLOADING+data SecurityOriginToStringMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo SecurityOriginToStringMethodInfo SecurityOrigin signature where+    overloadedMethod _ = securityOriginToString++#endif++-- method SecurityOrigin::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "origin", argType = TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitSecurityOrigin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_security_origin_unref" webkit_security_origin_unref :: +    Ptr SecurityOrigin ->                   -- origin : TInterface (Name {namespace = "WebKit2", name = "SecurityOrigin"})+    IO ()++{- |+Atomically decrements the reference count of /@origin@/ by one.+If the reference count drops to 0, all memory allocated by+'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' is released. This function is MT-safe and may be+called from any thread.++/Since: 2.16/+-}+securityOriginUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    SecurityOrigin+    {- ^ /@origin@/: A 'GI.WebKit2.Structs.SecurityOrigin.SecurityOrigin' -}+    -> m ()+securityOriginUnref origin = liftIO $ do+    origin' <- unsafeManagedPtrGetPtr origin+    webkit_security_origin_unref origin'+    touchManagedPtr origin+    return ()++#if ENABLE_OVERLOADING+data SecurityOriginUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo SecurityOriginUnrefMethodInfo SecurityOrigin signature where+    overloadedMethod _ = securityOriginUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveSecurityOriginMethod (t :: Symbol) (o :: *) :: * where+    ResolveSecurityOriginMethod "isOpaque" o = SecurityOriginIsOpaqueMethodInfo+    ResolveSecurityOriginMethod "ref" o = SecurityOriginRefMethodInfo+    ResolveSecurityOriginMethod "toString" o = SecurityOriginToStringMethodInfo+    ResolveSecurityOriginMethod "unref" o = SecurityOriginUnrefMethodInfo+    ResolveSecurityOriginMethod "getHost" o = SecurityOriginGetHostMethodInfo+    ResolveSecurityOriginMethod "getPort" o = SecurityOriginGetPortMethodInfo+    ResolveSecurityOriginMethod "getProtocol" o = SecurityOriginGetProtocolMethodInfo+    ResolveSecurityOriginMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveSecurityOriginMethod t SecurityOrigin, O.MethodInfo info SecurityOrigin p) => OL.IsLabel t (SecurityOrigin -> 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++
+ GI/WebKit2/Structs/SecurityOrigin.hs-boot view
@@ -0,0 +1,47 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.SecurityOrigin 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++newtype SecurityOrigin = SecurityOrigin (ManagedPtr SecurityOrigin)+instance BoxedObject SecurityOrigin where+#if ENABLE_OVERLOADING+data SecurityOriginGetHostMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityOriginGetPortMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityOriginGetProtocolMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityOriginIsOpaqueMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityOriginRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityOriginToStringMethodInfo+#endif+#if ENABLE_OVERLOADING+data SecurityOriginUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/UserContentFilter.hs view
@@ -0,0 +1,222 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.UserContentFilter+    ( ++-- * Exported types+    UserContentFilter(..)                   ,+    noUserContentFilter                     ,+++ -- * Methods+-- ** getIdentifier #method:getIdentifier#++#if ENABLE_OVERLOADING+    UserContentFilterGetIdentifierMethodInfo,+#endif+    userContentFilterGetIdentifier          ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    UserContentFilterRefMethodInfo          ,+#endif+    userContentFilterRef                    ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    UserContentFilterUnrefMethodInfo        ,+#endif+    userContentFilterUnref                  ,+++++    ) 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+++-- | Memory-managed wrapper type.+newtype UserContentFilter = UserContentFilter (ManagedPtr UserContentFilter)+foreign import ccall "webkit_user_content_filter_get_type" c_webkit_user_content_filter_get_type :: +    IO GType++instance BoxedObject UserContentFilter where+    boxedType _ = c_webkit_user_content_filter_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `UserContentFilter`.+noUserContentFilter :: Maybe UserContentFilter+noUserContentFilter = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList UserContentFilter+type instance O.AttributeList UserContentFilter = UserContentFilterAttributeList+type UserContentFilterAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method UserContentFilter::get_identifier+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "user_content_filter", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_get_identifier" webkit_user_content_filter_get_identifier :: +    Ptr UserContentFilter ->                -- user_content_filter : TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"})+    IO CString++{- |+Obtain the identifier previously used to save the /@userContentFilter@/ in the+'GI.WebKit2.Objects.UserContentFilterStore.UserContentFilterStore'.++/Since: 2.24/+-}+userContentFilterGetIdentifier ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    UserContentFilter+    {- ^ /@userContentFilter@/: A 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' -}+    -> m T.Text+    {- ^ __Returns:__ the identifier for the filter -}+userContentFilterGetIdentifier userContentFilter = liftIO $ do+    userContentFilter' <- unsafeManagedPtrGetPtr userContentFilter+    result <- webkit_user_content_filter_get_identifier userContentFilter'+    checkUnexpectedReturnNULL "userContentFilterGetIdentifier" result+    result' <- cstringToText result+    touchManagedPtr userContentFilter+    return result'++#if ENABLE_OVERLOADING+data UserContentFilterGetIdentifierMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo UserContentFilterGetIdentifierMethodInfo UserContentFilter signature where+    overloadedMethod _ = userContentFilterGetIdentifier++#endif++-- method UserContentFilter::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "user_content_filter", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_ref" webkit_user_content_filter_ref :: +    Ptr UserContentFilter ->                -- user_content_filter : TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"})+    IO (Ptr UserContentFilter)++{- |+Atomically increments the reference count of /@userContentFilter@/ by one.+This function is MT-safe and may be called from any thread.++/Since: 2.24/+-}+userContentFilterRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    UserContentFilter+    {- ^ /@userContentFilter@/: A 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' -}+    -> m UserContentFilter+userContentFilterRef userContentFilter = liftIO $ do+    userContentFilter' <- unsafeManagedPtrGetPtr userContentFilter+    result <- webkit_user_content_filter_ref userContentFilter'+    checkUnexpectedReturnNULL "userContentFilterRef" result+    result' <- (wrapBoxed UserContentFilter) result+    touchManagedPtr userContentFilter+    return result'++#if ENABLE_OVERLOADING+data UserContentFilterRefMethodInfo+instance (signature ~ (m UserContentFilter), MonadIO m) => O.MethodInfo UserContentFilterRefMethodInfo UserContentFilter signature where+    overloadedMethod _ = userContentFilterRef++#endif++-- method UserContentFilter::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "user_content_filter", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_filter_unref" webkit_user_content_filter_unref :: +    Ptr UserContentFilter ->                -- user_content_filter : TInterface (Name {namespace = "WebKit2", name = "UserContentFilter"})+    IO ()++{- |+Atomically decrements the reference count of /@userContentFilter@/ by one.+If the reference count drops to 0, all the memory allocated by the+'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' is released. This function is MT-safe and may+be called from any thread.++/Since: 2.24/+-}+userContentFilterUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    UserContentFilter+    {- ^ /@userContentFilter@/: A 'GI.WebKit2.Structs.UserContentFilter.UserContentFilter' -}+    -> m ()+userContentFilterUnref userContentFilter = liftIO $ do+    userContentFilter' <- unsafeManagedPtrGetPtr userContentFilter+    webkit_user_content_filter_unref userContentFilter'+    touchManagedPtr userContentFilter+    return ()++#if ENABLE_OVERLOADING+data UserContentFilterUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo UserContentFilterUnrefMethodInfo UserContentFilter signature where+    overloadedMethod _ = userContentFilterUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveUserContentFilterMethod (t :: Symbol) (o :: *) :: * where+    ResolveUserContentFilterMethod "ref" o = UserContentFilterRefMethodInfo+    ResolveUserContentFilterMethod "unref" o = UserContentFilterUnrefMethodInfo+    ResolveUserContentFilterMethod "getIdentifier" o = UserContentFilterGetIdentifierMethodInfo+    ResolveUserContentFilterMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveUserContentFilterMethod t UserContentFilter, O.MethodInfo info UserContentFilter p) => OL.IsLabel t (UserContentFilter -> 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++
+ GI/WebKit2/Structs/UserContentFilter.hs-boot view
@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.UserContentFilter 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++newtype UserContentFilter = UserContentFilter (ManagedPtr UserContentFilter)+instance BoxedObject UserContentFilter where+#if ENABLE_OVERLOADING+data UserContentFilterGetIdentifierMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserContentFilterUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/UserScript.hs view
@@ -0,0 +1,322 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.UserScript+    ( ++-- * Exported types+    UserScript(..)                          ,+    noUserScript                            ,+++ -- * Methods+-- ** new #method:new#++    userScriptNew                           ,+++-- ** newForWorld #method:newForWorld#++    userScriptNewForWorld                   ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    UserScriptRefMethodInfo                 ,+#endif+    userScriptRef                           ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    UserScriptUnrefMethodInfo               ,+#endif+    userScriptUnref                         ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums++-- | Memory-managed wrapper type.+newtype UserScript = UserScript (ManagedPtr UserScript)+foreign import ccall "webkit_user_script_get_type" c_webkit_user_script_get_type :: +    IO GType++instance BoxedObject UserScript where+    boxedType _ = c_webkit_user_script_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `UserScript`.+noUserScript :: Maybe UserScript+noUserScript = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList UserScript+type instance O.AttributeList UserScript = UserScriptAttributeList+type UserScriptAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method UserScript::new+-- method type : Constructor+-- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Source code of the user script.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentInjectedFrames value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injection_time", argType = TInterface (Name {namespace = "WebKit2", name = "UserScriptInjectionTime"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserScriptInjectionTime value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A whitelist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A blacklist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserScript"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_script_new" webkit_user_script_new :: +    CString ->                              -- source : TBasicType TUTF8+    CUInt ->                                -- injected_frames : TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"})+    CUInt ->                                -- injection_time : TInterface (Name {namespace = "WebKit2", name = "UserScriptInjectionTime"})+    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr UserScript)++{- |+Creates a new user script. Scripts can be applied to some URIs+only by passing non-null values for /@whitelist@/ or /@blacklist@/. Passing a+'Nothing' whitelist implies that all URIs are on the whitelist. The script+is applied if an URI matches the whitelist and not the blacklist.+URI patterns must be of the form @[protocol]:\/\/[host]\/[path]@, where the+*host* and *path* components can contain the wildcard character (@*@) to+represent zero or more other characters.++/Since: 2.6/+-}+userScriptNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@source@/: Source code of the user script. -}+    -> WebKit2.Enums.UserContentInjectedFrames+    {- ^ /@injectedFrames@/: A 'GI.WebKit2.Enums.UserContentInjectedFrames' value -}+    -> WebKit2.Enums.UserScriptInjectionTime+    {- ^ /@injectionTime@/: A 'GI.WebKit2.Enums.UserScriptInjectionTime' value -}+    -> Maybe ([T.Text])+    {- ^ /@whitelist@/: A whitelist of URI patterns or 'Nothing' -}+    -> Maybe ([T.Text])+    {- ^ /@blacklist@/: A blacklist of URI patterns or 'Nothing' -}+    -> m UserScript+    {- ^ __Returns:__ A new 'GI.WebKit2.Structs.UserScript.UserScript' -}+userScriptNew source injectedFrames injectionTime whitelist blacklist = liftIO $ do+    source' <- textToCString source+    let injectedFrames' = (fromIntegral . fromEnum) injectedFrames+    let injectionTime' = (fromIntegral . fromEnum) injectionTime+    maybeWhitelist <- case whitelist of+        Nothing -> return nullPtr+        Just jWhitelist -> do+            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist+            return jWhitelist'+    maybeBlacklist <- case blacklist of+        Nothing -> return nullPtr+        Just jBlacklist -> do+            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist+            return jBlacklist'+    result <- webkit_user_script_new source' injectedFrames' injectionTime' maybeWhitelist maybeBlacklist+    checkUnexpectedReturnNULL "userScriptNew" result+    result' <- (wrapBoxed UserScript) result+    freeMem source'+    mapZeroTerminatedCArray freeMem maybeWhitelist+    freeMem maybeWhitelist+    mapZeroTerminatedCArray freeMem maybeBlacklist+    freeMem maybeBlacklist+    return result'++#if ENABLE_OVERLOADING+#endif++-- method UserScript::new_for_world+-- method type : Constructor+-- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Source code of the user script.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentInjectedFrames value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injection_time", argType = TInterface (Name {namespace = "WebKit2", name = "UserScriptInjectionTime"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserScriptInjectionTime value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "world_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a #WebKitScriptWorld", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A whitelist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A blacklist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserScript"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_script_new_for_world" webkit_user_script_new_for_world :: +    CString ->                              -- source : TBasicType TUTF8+    CUInt ->                                -- injected_frames : TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"})+    CUInt ->                                -- injection_time : TInterface (Name {namespace = "WebKit2", name = "UserScriptInjectionTime"})+    CString ->                              -- world_name : TBasicType TUTF8+    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr UserScript)++{- |+Creates a new user script for script world with name /@worldName@/.+See 'GI.WebKit2.Structs.UserScript.userScriptNew' for a full description.++/Since: 2.22/+-}+userScriptNewForWorld ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@source@/: Source code of the user script. -}+    -> WebKit2.Enums.UserContentInjectedFrames+    {- ^ /@injectedFrames@/: A 'GI.WebKit2.Enums.UserContentInjectedFrames' value -}+    -> WebKit2.Enums.UserScriptInjectionTime+    {- ^ /@injectionTime@/: A 'GI.WebKit2.Enums.UserScriptInjectionTime' value -}+    -> T.Text+    {- ^ /@worldName@/: the name of a @/WebKitScriptWorld/@ -}+    -> Maybe ([T.Text])+    {- ^ /@whitelist@/: A whitelist of URI patterns or 'Nothing' -}+    -> Maybe ([T.Text])+    {- ^ /@blacklist@/: A blacklist of URI patterns or 'Nothing' -}+    -> m UserScript+    {- ^ __Returns:__ A new 'GI.WebKit2.Structs.UserScript.UserScript' -}+userScriptNewForWorld source injectedFrames injectionTime worldName whitelist blacklist = liftIO $ do+    source' <- textToCString source+    let injectedFrames' = (fromIntegral . fromEnum) injectedFrames+    let injectionTime' = (fromIntegral . fromEnum) injectionTime+    worldName' <- textToCString worldName+    maybeWhitelist <- case whitelist of+        Nothing -> return nullPtr+        Just jWhitelist -> do+            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist+            return jWhitelist'+    maybeBlacklist <- case blacklist of+        Nothing -> return nullPtr+        Just jBlacklist -> do+            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist+            return jBlacklist'+    result <- webkit_user_script_new_for_world source' injectedFrames' injectionTime' worldName' maybeWhitelist maybeBlacklist+    checkUnexpectedReturnNULL "userScriptNewForWorld" result+    result' <- (wrapBoxed UserScript) result+    freeMem source'+    freeMem worldName'+    mapZeroTerminatedCArray freeMem maybeWhitelist+    freeMem maybeWhitelist+    mapZeroTerminatedCArray freeMem maybeBlacklist+    freeMem maybeBlacklist+    return result'++#if ENABLE_OVERLOADING+#endif++-- method UserScript::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "user_script", argType = TInterface (Name {namespace = "WebKit2", name = "UserScript"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserScript", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserScript"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_script_ref" webkit_user_script_ref :: +    Ptr UserScript ->                       -- user_script : TInterface (Name {namespace = "WebKit2", name = "UserScript"})+    IO (Ptr UserScript)++{- |+Atomically increments the reference count of /@userScript@/ by one.+This function is MT-safe and may be called from any thread.++/Since: 2.6/+-}+userScriptRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    UserScript+    {- ^ /@userScript@/: a 'GI.WebKit2.Structs.UserScript.UserScript' -}+    -> m UserScript+    {- ^ __Returns:__ The passed 'GI.WebKit2.Structs.UserScript.UserScript' -}+userScriptRef userScript = liftIO $ do+    userScript' <- unsafeManagedPtrGetPtr userScript+    result <- webkit_user_script_ref userScript'+    checkUnexpectedReturnNULL "userScriptRef" result+    result' <- (wrapBoxed UserScript) result+    touchManagedPtr userScript+    return result'++#if ENABLE_OVERLOADING+data UserScriptRefMethodInfo+instance (signature ~ (m UserScript), MonadIO m) => O.MethodInfo UserScriptRefMethodInfo UserScript signature where+    overloadedMethod _ = userScriptRef++#endif++-- method UserScript::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "user_script", argType = TInterface (Name {namespace = "WebKit2", name = "UserScript"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserScript", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_script_unref" webkit_user_script_unref :: +    Ptr UserScript ->                       -- user_script : TInterface (Name {namespace = "WebKit2", name = "UserScript"})+    IO ()++{- |+Atomically decrements the reference count of /@userScript@/ by one.+If the reference count drops to 0, all memory allocated by+'GI.WebKit2.Structs.UserScript.UserScript' is released. This function is MT-safe and may be called+from any thread.++/Since: 2.6/+-}+userScriptUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    UserScript+    {- ^ /@userScript@/: a 'GI.WebKit2.Structs.UserScript.UserScript' -}+    -> m ()+userScriptUnref userScript = liftIO $ do+    userScript' <- unsafeManagedPtrGetPtr userScript+    webkit_user_script_unref userScript'+    touchManagedPtr userScript+    return ()++#if ENABLE_OVERLOADING+data UserScriptUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo UserScriptUnrefMethodInfo UserScript signature where+    overloadedMethod _ = userScriptUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveUserScriptMethod (t :: Symbol) (o :: *) :: * where+    ResolveUserScriptMethod "ref" o = UserScriptRefMethodInfo+    ResolveUserScriptMethod "unref" o = UserScriptUnrefMethodInfo+    ResolveUserScriptMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveUserScriptMethod t UserScript, O.MethodInfo info UserScript p) => OL.IsLabel t (UserScript -> 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++
+ GI/WebKit2/Structs/UserScript.hs-boot view
@@ -0,0 +1,32 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.UserScript 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++newtype UserScript = UserScript (ManagedPtr UserScript)+instance BoxedObject UserScript where+#if ENABLE_OVERLOADING+data UserScriptRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserScriptUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/UserStyleSheet.hs view
@@ -0,0 +1,322 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.UserStyleSheet+    ( ++-- * Exported types+    UserStyleSheet(..)                      ,+    noUserStyleSheet                        ,+++ -- * Methods+-- ** new #method:new#++    userStyleSheetNew                       ,+++-- ** newForWorld #method:newForWorld#++    userStyleSheetNewForWorld               ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    UserStyleSheetRefMethodInfo             ,+#endif+    userStyleSheetRef                       ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    UserStyleSheetUnrefMethodInfo           ,+#endif+    userStyleSheetUnref                     ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums++-- | Memory-managed wrapper type.+newtype UserStyleSheet = UserStyleSheet (ManagedPtr UserStyleSheet)+foreign import ccall "webkit_user_style_sheet_get_type" c_webkit_user_style_sheet_get_type :: +    IO GType++instance BoxedObject UserStyleSheet where+    boxedType _ = c_webkit_user_style_sheet_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `UserStyleSheet`.+noUserStyleSheet :: Maybe UserStyleSheet+noUserStyleSheet = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList UserStyleSheet+type instance O.AttributeList UserStyleSheet = UserStyleSheetAttributeList+type UserStyleSheetAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method UserStyleSheet::new+-- method type : Constructor+-- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Source code of the user style sheet.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentInjectedFrames value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface (Name {namespace = "WebKit2", name = "UserStyleLevel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserStyleLevel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A whitelist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A blacklist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_style_sheet_new" webkit_user_style_sheet_new :: +    CString ->                              -- source : TBasicType TUTF8+    CUInt ->                                -- injected_frames : TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"})+    CUInt ->                                -- level : TInterface (Name {namespace = "WebKit2", name = "UserStyleLevel"})+    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr UserStyleSheet)++{- |+Creates a new user style sheet. Style sheets can be applied to some URIs+only by passing non-null values for /@whitelist@/ or /@blacklist@/. Passing a+'Nothing' whitelist implies that all URIs are on the whitelist. The style+sheet is applied if an URI matches the whitelist and not the blacklist.+URI patterns must be of the form @[protocol]:\/\/[host]\/[path]@, where the+*host* and *path* components can contain the wildcard character (@*@) to+represent zero or more other characters.++/Since: 2.6/+-}+userStyleSheetNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@source@/: Source code of the user style sheet. -}+    -> WebKit2.Enums.UserContentInjectedFrames+    {- ^ /@injectedFrames@/: A 'GI.WebKit2.Enums.UserContentInjectedFrames' value -}+    -> WebKit2.Enums.UserStyleLevel+    {- ^ /@level@/: A 'GI.WebKit2.Enums.UserStyleLevel' -}+    -> Maybe ([T.Text])+    {- ^ /@whitelist@/: A whitelist of URI patterns or 'Nothing' -}+    -> Maybe ([T.Text])+    {- ^ /@blacklist@/: A blacklist of URI patterns or 'Nothing' -}+    -> m UserStyleSheet+    {- ^ __Returns:__ A new 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' -}+userStyleSheetNew source injectedFrames level whitelist blacklist = liftIO $ do+    source' <- textToCString source+    let injectedFrames' = (fromIntegral . fromEnum) injectedFrames+    let level' = (fromIntegral . fromEnum) level+    maybeWhitelist <- case whitelist of+        Nothing -> return nullPtr+        Just jWhitelist -> do+            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist+            return jWhitelist'+    maybeBlacklist <- case blacklist of+        Nothing -> return nullPtr+        Just jBlacklist -> do+            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist+            return jBlacklist'+    result <- webkit_user_style_sheet_new source' injectedFrames' level' maybeWhitelist maybeBlacklist+    checkUnexpectedReturnNULL "userStyleSheetNew" result+    result' <- (wrapBoxed UserStyleSheet) result+    freeMem source'+    mapZeroTerminatedCArray freeMem maybeWhitelist+    freeMem maybeWhitelist+    mapZeroTerminatedCArray freeMem maybeBlacklist+    freeMem maybeBlacklist+    return result'++#if ENABLE_OVERLOADING+#endif++-- method UserStyleSheet::new_for_world+-- method type : Constructor+-- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Source code of the user style sheet.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserContentInjectedFrames value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface (Name {namespace = "WebKit2", name = "UserStyleLevel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitUserStyleLevel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "world_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a #WebKitScriptWorld", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A whitelist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A blacklist of URI patterns or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_style_sheet_new_for_world" webkit_user_style_sheet_new_for_world :: +    CString ->                              -- source : TBasicType TUTF8+    CUInt ->                                -- injected_frames : TInterface (Name {namespace = "WebKit2", name = "UserContentInjectedFrames"})+    CUInt ->                                -- level : TInterface (Name {namespace = "WebKit2", name = "UserStyleLevel"})+    CString ->                              -- world_name : TBasicType TUTF8+    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr UserStyleSheet)++{- |+Creates a new user style sheet for script world with name /@worldName@/.+See 'GI.WebKit2.Structs.UserStyleSheet.userStyleSheetNew' for a full description.++/Since: 2.22/+-}+userStyleSheetNewForWorld ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@source@/: Source code of the user style sheet. -}+    -> WebKit2.Enums.UserContentInjectedFrames+    {- ^ /@injectedFrames@/: A 'GI.WebKit2.Enums.UserContentInjectedFrames' value -}+    -> WebKit2.Enums.UserStyleLevel+    {- ^ /@level@/: A 'GI.WebKit2.Enums.UserStyleLevel' -}+    -> T.Text+    {- ^ /@worldName@/: the name of a @/WebKitScriptWorld/@ -}+    -> Maybe ([T.Text])+    {- ^ /@whitelist@/: A whitelist of URI patterns or 'Nothing' -}+    -> Maybe ([T.Text])+    {- ^ /@blacklist@/: A blacklist of URI patterns or 'Nothing' -}+    -> m UserStyleSheet+    {- ^ __Returns:__ A new 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' -}+userStyleSheetNewForWorld source injectedFrames level worldName whitelist blacklist = liftIO $ do+    source' <- textToCString source+    let injectedFrames' = (fromIntegral . fromEnum) injectedFrames+    let level' = (fromIntegral . fromEnum) level+    worldName' <- textToCString worldName+    maybeWhitelist <- case whitelist of+        Nothing -> return nullPtr+        Just jWhitelist -> do+            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist+            return jWhitelist'+    maybeBlacklist <- case blacklist of+        Nothing -> return nullPtr+        Just jBlacklist -> do+            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist+            return jBlacklist'+    result <- webkit_user_style_sheet_new_for_world source' injectedFrames' level' worldName' maybeWhitelist maybeBlacklist+    checkUnexpectedReturnNULL "userStyleSheetNewForWorld" result+    result' <- (wrapBoxed UserStyleSheet) result+    freeMem source'+    freeMem worldName'+    mapZeroTerminatedCArray freeMem maybeWhitelist+    freeMem maybeWhitelist+    mapZeroTerminatedCArray freeMem maybeBlacklist+    freeMem maybeBlacklist+    return result'++#if ENABLE_OVERLOADING+#endif++-- method UserStyleSheet::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "user_style_sheet", argType = TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserStyleSheet", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_style_sheet_ref" webkit_user_style_sheet_ref :: +    Ptr UserStyleSheet ->                   -- user_style_sheet : TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"})+    IO (Ptr UserStyleSheet)++{- |+Atomically increments the reference count of /@userStyleSheet@/ by one.+This function is MT-safe and may be called from any thread.++/Since: 2.6/+-}+userStyleSheetRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    UserStyleSheet+    {- ^ /@userStyleSheet@/: a 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' -}+    -> m UserStyleSheet+    {- ^ __Returns:__ The passed 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' -}+userStyleSheetRef userStyleSheet = liftIO $ do+    userStyleSheet' <- unsafeManagedPtrGetPtr userStyleSheet+    result <- webkit_user_style_sheet_ref userStyleSheet'+    checkUnexpectedReturnNULL "userStyleSheetRef" result+    result' <- (wrapBoxed UserStyleSheet) result+    touchManagedPtr userStyleSheet+    return result'++#if ENABLE_OVERLOADING+data UserStyleSheetRefMethodInfo+instance (signature ~ (m UserStyleSheet), MonadIO m) => O.MethodInfo UserStyleSheetRefMethodInfo UserStyleSheet signature where+    overloadedMethod _ = userStyleSheetRef++#endif++-- method UserStyleSheet::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "user_style_sheet", argType = TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitUserStyleSheet", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_style_sheet_unref" webkit_user_style_sheet_unref :: +    Ptr UserStyleSheet ->                   -- user_style_sheet : TInterface (Name {namespace = "WebKit2", name = "UserStyleSheet"})+    IO ()++{- |+Atomically decrements the reference count of /@userStyleSheet@/ by one.+If the reference count drops to 0, all memory allocated by+'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' is released. This function is MT-safe and may be+called from any thread.++/Since: 2.6/+-}+userStyleSheetUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    UserStyleSheet+    {- ^ /@userStyleSheet@/: a 'GI.WebKit2.Structs.UserStyleSheet.UserStyleSheet' -}+    -> m ()+userStyleSheetUnref userStyleSheet = liftIO $ do+    userStyleSheet' <- unsafeManagedPtrGetPtr userStyleSheet+    webkit_user_style_sheet_unref userStyleSheet'+    touchManagedPtr userStyleSheet+    return ()++#if ENABLE_OVERLOADING+data UserStyleSheetUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo UserStyleSheetUnrefMethodInfo UserStyleSheet signature where+    overloadedMethod _ = userStyleSheetUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveUserStyleSheetMethod (t :: Symbol) (o :: *) :: * where+    ResolveUserStyleSheetMethod "ref" o = UserStyleSheetRefMethodInfo+    ResolveUserStyleSheetMethod "unref" o = UserStyleSheetUnrefMethodInfo+    ResolveUserStyleSheetMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveUserStyleSheetMethod t UserStyleSheet, O.MethodInfo info UserStyleSheet p) => OL.IsLabel t (UserStyleSheet -> 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++
+ GI/WebKit2/Structs/UserStyleSheet.hs-boot view
@@ -0,0 +1,32 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.UserStyleSheet 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++newtype UserStyleSheet = UserStyleSheet (ManagedPtr UserStyleSheet)+instance BoxedObject UserStyleSheet where+#if ENABLE_OVERLOADING+data UserStyleSheetRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data UserStyleSheetUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/WebViewSessionState.hs view
@@ -0,0 +1,262 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.WebViewSessionState+    ( ++-- * Exported types+    WebViewSessionState(..)                 ,+    noWebViewSessionState                   ,+++ -- * Methods+-- ** new #method:new#++    webViewSessionStateNew                  ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    WebViewSessionStateRefMethodInfo        ,+#endif+    webViewSessionStateRef                  ,+++-- ** serialize #method:serialize#++#if ENABLE_OVERLOADING+    WebViewSessionStateSerializeMethodInfo  ,+#endif+    webViewSessionStateSerialize            ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    WebViewSessionStateUnrefMethodInfo      ,+#endif+    webViewSessionStateUnref                ,+++++    ) 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.GLib.Structs.Bytes as GLib.Bytes++-- | Memory-managed wrapper type.+newtype WebViewSessionState = WebViewSessionState (ManagedPtr WebViewSessionState)+foreign import ccall "webkit_web_view_session_state_get_type" c_webkit_web_view_session_state_get_type :: +    IO GType++instance BoxedObject WebViewSessionState where+    boxedType _ = c_webkit_web_view_session_state_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `WebViewSessionState`.+noWebViewSessionState :: Maybe WebViewSessionState+noWebViewSessionState = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList WebViewSessionState+type instance O.AttributeList WebViewSessionState = WebViewSessionStateAttributeList+type WebViewSessionStateAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method WebViewSessionState::new+-- method type : Constructor+-- Args : [Arg {argCName = "data", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_session_state_new" webkit_web_view_session_state_new :: +    Ptr GLib.Bytes.Bytes ->                 -- data : TInterface (Name {namespace = "GLib", name = "Bytes"})+    IO (Ptr WebViewSessionState)++{- |+Creates a new 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState' from serialized data.++/Since: 2.12/+-}+webViewSessionStateNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GLib.Bytes.Bytes+    {- ^ /@data@/: a 'GI.GLib.Structs.Bytes.Bytes' -}+    -> m WebViewSessionState+    {- ^ __Returns:__ a new 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState', or 'Nothing' if /@data@/ doesn\'t contain a+    valid serialized 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState'. -}+webViewSessionStateNew data_ = liftIO $ do+    data_' <- unsafeManagedPtrGetPtr data_+    result <- webkit_web_view_session_state_new data_'+    checkUnexpectedReturnNULL "webViewSessionStateNew" result+    result' <- (wrapBoxed WebViewSessionState) result+    touchManagedPtr data_+    return result'++#if ENABLE_OVERLOADING+#endif++-- method WebViewSessionState::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "state", argType = TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebViewSessionState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_session_state_ref" webkit_web_view_session_state_ref :: +    Ptr WebViewSessionState ->              -- state : TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"})+    IO (Ptr WebViewSessionState)++{- |+Atomically increments the reference count of /@state@/ by one. This+function is MT-safe and may be called from any thread.++/Since: 2.12/+-}+webViewSessionStateRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebViewSessionState+    {- ^ /@state@/: a 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState' -}+    -> m WebViewSessionState+    {- ^ __Returns:__ The passed in 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState' -}+webViewSessionStateRef state = liftIO $ do+    state' <- unsafeManagedPtrGetPtr state+    result <- webkit_web_view_session_state_ref state'+    checkUnexpectedReturnNULL "webViewSessionStateRef" result+    result' <- (wrapBoxed WebViewSessionState) result+    touchManagedPtr state+    return result'++#if ENABLE_OVERLOADING+data WebViewSessionStateRefMethodInfo+instance (signature ~ (m WebViewSessionState), MonadIO m) => O.MethodInfo WebViewSessionStateRefMethodInfo WebViewSessionState signature where+    overloadedMethod _ = webViewSessionStateRef++#endif++-- method WebViewSessionState::serialize+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "state", argType = TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebViewSessionState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_session_state_serialize" webkit_web_view_session_state_serialize :: +    Ptr WebViewSessionState ->              -- state : TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"})+    IO (Ptr GLib.Bytes.Bytes)++{- |+Serializes a 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState'.++/Since: 2.12/+-}+webViewSessionStateSerialize ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebViewSessionState+    {- ^ /@state@/: a 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState' -}+    -> m GLib.Bytes.Bytes+    {- ^ __Returns:__ a 'GI.GLib.Structs.Bytes.Bytes' containing the /@state@/ serialized. -}+webViewSessionStateSerialize state = liftIO $ do+    state' <- unsafeManagedPtrGetPtr state+    result <- webkit_web_view_session_state_serialize state'+    checkUnexpectedReturnNULL "webViewSessionStateSerialize" result+    result' <- (wrapBoxed GLib.Bytes.Bytes) result+    touchManagedPtr state+    return result'++#if ENABLE_OVERLOADING+data WebViewSessionStateSerializeMethodInfo+instance (signature ~ (m GLib.Bytes.Bytes), MonadIO m) => O.MethodInfo WebViewSessionStateSerializeMethodInfo WebViewSessionState signature where+    overloadedMethod _ = webViewSessionStateSerialize++#endif++-- method WebViewSessionState::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "state", argType = TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebViewSessionState", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_view_session_state_unref" webkit_web_view_session_state_unref :: +    Ptr WebViewSessionState ->              -- state : TInterface (Name {namespace = "WebKit2", name = "WebViewSessionState"})+    IO ()++{- |+Atomically decrements the reference count of /@state@/ by one. If the+reference count drops to 0, all memory allocated by the 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState' is+released. This function is MT-safe and may be called from any thread.++/Since: 2.12/+-}+webViewSessionStateUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebViewSessionState+    {- ^ /@state@/: a 'GI.WebKit2.Structs.WebViewSessionState.WebViewSessionState' -}+    -> m ()+webViewSessionStateUnref state = liftIO $ do+    state' <- unsafeManagedPtrGetPtr state+    webkit_web_view_session_state_unref state'+    touchManagedPtr state+    return ()++#if ENABLE_OVERLOADING+data WebViewSessionStateUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo WebViewSessionStateUnrefMethodInfo WebViewSessionState signature where+    overloadedMethod _ = webViewSessionStateUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveWebViewSessionStateMethod (t :: Symbol) (o :: *) :: * where+    ResolveWebViewSessionStateMethod "ref" o = WebViewSessionStateRefMethodInfo+    ResolveWebViewSessionStateMethod "serialize" o = WebViewSessionStateSerializeMethodInfo+    ResolveWebViewSessionStateMethod "unref" o = WebViewSessionStateUnrefMethodInfo+    ResolveWebViewSessionStateMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWebViewSessionStateMethod t WebViewSessionState, O.MethodInfo info WebViewSessionState p) => OL.IsLabel t (WebViewSessionState -> 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++
+ GI/WebKit2/Structs/WebViewSessionState.hs-boot view
@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.WebViewSessionState 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++newtype WebViewSessionState = WebViewSessionState (ManagedPtr WebViewSessionState)+instance BoxedObject WebViewSessionState where+#if ENABLE_OVERLOADING+data WebViewSessionStateRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSessionStateSerializeMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebViewSessionStateUnrefMethodInfo+#endif
+ GI/WebKit2/Structs/WebsiteData.hs view
@@ -0,0 +1,323 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.WebKit2.Structs.WebsiteData+    ( ++-- * Exported types+    WebsiteData(..)                         ,+    noWebsiteData                           ,+++ -- * Methods+-- ** getName #method:getName#++#if ENABLE_OVERLOADING+    WebsiteDataGetNameMethodInfo            ,+#endif+    websiteDataGetName                      ,+++-- ** getSize #method:getSize#++#if ENABLE_OVERLOADING+    WebsiteDataGetSizeMethodInfo            ,+#endif+    websiteDataGetSize                      ,+++-- ** getTypes #method:getTypes#++#if ENABLE_OVERLOADING+    WebsiteDataGetTypesMethodInfo           ,+#endif+    websiteDataGetTypes                     ,+++-- ** ref #method:ref#++#if ENABLE_OVERLOADING+    WebsiteDataRefMethodInfo                ,+#endif+    websiteDataRef                          ,+++-- ** unref #method:unref#++#if ENABLE_OVERLOADING+    WebsiteDataUnrefMethodInfo              ,+#endif+    websiteDataUnref                        ,+++++    ) 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 {-# SOURCE #-} qualified GI.WebKit2.Flags as WebKit2.Flags++-- | Memory-managed wrapper type.+newtype WebsiteData = WebsiteData (ManagedPtr WebsiteData)+foreign import ccall "webkit_website_data_get_type" c_webkit_website_data_get_type :: +    IO GType++instance BoxedObject WebsiteData where+    boxedType _ = c_webkit_website_data_get_type++-- | A convenience alias for `Nothing` :: `Maybe` `WebsiteData`.+noWebsiteData :: Maybe WebsiteData+noWebsiteData = Nothing+++#if ENABLE_OVERLOADING+instance O.HasAttributeList WebsiteData+type instance O.AttributeList WebsiteData = WebsiteDataAttributeList+type WebsiteDataAttributeList = ('[ ] :: [(Symbol, *)])+#endif++-- method WebsiteData::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "website_data", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_get_name" webkit_website_data_get_name :: +    Ptr WebsiteData ->                      -- website_data : TInterface (Name {namespace = "WebKit2", name = "WebsiteData"})+    IO CString++{- |+Gets the name of 'GI.WebKit2.Structs.WebsiteData.WebsiteData'. This is the website name, normally represented by+a domain or host name. All local documents are grouped in the same 'GI.WebKit2.Structs.WebsiteData.WebsiteData' using+the name \"Local files\".++/Since: 2.16/+-}+websiteDataGetName ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebsiteData+    {- ^ /@websiteData@/: a 'GI.WebKit2.Structs.WebsiteData.WebsiteData' -}+    -> m T.Text+    {- ^ __Returns:__ the website name of /@websiteData@/. -}+websiteDataGetName websiteData = liftIO $ do+    websiteData' <- unsafeManagedPtrGetPtr websiteData+    result <- webkit_website_data_get_name websiteData'+    checkUnexpectedReturnNULL "websiteDataGetName" result+    result' <- cstringToText result+    touchManagedPtr websiteData+    return result'++#if ENABLE_OVERLOADING+data WebsiteDataGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo WebsiteDataGetNameMethodInfo WebsiteData signature where+    overloadedMethod _ = websiteDataGetName++#endif++-- method WebsiteData::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "website_data", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a bitmask  of #WebKitWebsiteDataTypes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt64)+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_get_size" webkit_website_data_get_size :: +    Ptr WebsiteData ->                      -- website_data : TInterface (Name {namespace = "WebKit2", name = "WebsiteData"})+    CUInt ->                                -- types : TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"})+    IO Word64++{- |+Gets the size of the data of types /@types@/ in a 'GI.WebKit2.Structs.WebsiteData.WebsiteData'.+Note that currently the data size is only known for 'GI.WebKit2.Flags.WebsiteDataTypesDiskCache' data type+so for all other types 0 will be returned.++/Since: 2.16/+-}+websiteDataGetSize ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebsiteData+    {- ^ /@websiteData@/: a 'GI.WebKit2.Structs.WebsiteData.WebsiteData' -}+    -> [WebKit2.Flags.WebsiteDataTypes]+    {- ^ /@types@/: a bitmask  of 'GI.WebKit2.Flags.WebsiteDataTypes' -}+    -> m Word64+    {- ^ __Returns:__ the size of /@websiteData@/ for the given /@types@/. -}+websiteDataGetSize websiteData types = liftIO $ do+    websiteData' <- unsafeManagedPtrGetPtr websiteData+    let types' = gflagsToWord types+    result <- webkit_website_data_get_size websiteData' types'+    touchManagedPtr websiteData+    return result++#if ENABLE_OVERLOADING+data WebsiteDataGetSizeMethodInfo+instance (signature ~ ([WebKit2.Flags.WebsiteDataTypes] -> m Word64), MonadIO m) => O.MethodInfo WebsiteDataGetSizeMethodInfo WebsiteData signature where+    overloadedMethod _ = websiteDataGetSize++#endif++-- method WebsiteData::get_types+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "website_data", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebsiteDataTypes"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_get_types" webkit_website_data_get_types :: +    Ptr WebsiteData ->                      -- website_data : TInterface (Name {namespace = "WebKit2", name = "WebsiteData"})+    IO CUInt++{- |+Gets the types of data stored in the client for a 'GI.WebKit2.Structs.WebsiteData.WebsiteData'. These are the+types actually present, not the types queried with 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetch'.++/Since: 2.16/+-}+websiteDataGetTypes ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebsiteData+    {- ^ /@websiteData@/: a 'GI.WebKit2.Structs.WebsiteData.WebsiteData' -}+    -> m [WebKit2.Flags.WebsiteDataTypes]+    {- ^ __Returns:__ a bitmask of 'GI.WebKit2.Flags.WebsiteDataTypes' in /@websiteData@/ -}+websiteDataGetTypes websiteData = liftIO $ do+    websiteData' <- unsafeManagedPtrGetPtr websiteData+    result <- webkit_website_data_get_types websiteData'+    let result' = wordToGFlags result+    touchManagedPtr websiteData+    return result'++#if ENABLE_OVERLOADING+data WebsiteDataGetTypesMethodInfo+instance (signature ~ (m [WebKit2.Flags.WebsiteDataTypes]), MonadIO m) => O.MethodInfo WebsiteDataGetTypesMethodInfo WebsiteData signature where+    overloadedMethod _ = websiteDataGetTypes++#endif++-- method WebsiteData::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "website_data", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitWebsiteData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "WebsiteData"}))+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_ref" webkit_website_data_ref :: +    Ptr WebsiteData ->                      -- website_data : TInterface (Name {namespace = "WebKit2", name = "WebsiteData"})+    IO (Ptr WebsiteData)++{- |+Atomically increments the reference count of /@websiteData@/ by one.+This function is MT-safe and may be called from any thread.++/Since: 2.16/+-}+websiteDataRef ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebsiteData+    {- ^ /@websiteData@/: a 'GI.WebKit2.Structs.WebsiteData.WebsiteData' -}+    -> m WebsiteData+    {- ^ __Returns:__ The passed 'GI.WebKit2.Structs.WebsiteData.WebsiteData' -}+websiteDataRef websiteData = liftIO $ do+    websiteData' <- unsafeManagedPtrGetPtr websiteData+    result <- webkit_website_data_ref websiteData'+    checkUnexpectedReturnNULL "websiteDataRef" result+    result' <- (wrapBoxed WebsiteData) result+    touchManagedPtr websiteData+    return result'++#if ENABLE_OVERLOADING+data WebsiteDataRefMethodInfo+instance (signature ~ (m WebsiteData), MonadIO m) => O.MethodInfo WebsiteDataRefMethodInfo WebsiteData signature where+    overloadedMethod _ = websiteDataRef++#endif++-- method WebsiteData::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "website_data", argType = TInterface (Name {namespace = "WebKit2", name = "WebsiteData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitWebsiteData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "webkit_website_data_unref" webkit_website_data_unref :: +    Ptr WebsiteData ->                      -- website_data : TInterface (Name {namespace = "WebKit2", name = "WebsiteData"})+    IO ()++{- |+Atomically decrements the reference count of /@websiteData@/ by one.+If the reference count drops to 0, all memory allocated by+'GI.WebKit2.Structs.WebsiteData.WebsiteData' is released. This function is MT-safe and may be+called from any thread.++/Since: 2.16/+-}+websiteDataUnref ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    WebsiteData+    {- ^ /@websiteData@/: A 'GI.WebKit2.Structs.WebsiteData.WebsiteData' -}+    -> m ()+websiteDataUnref websiteData = liftIO $ do+    websiteData' <- unsafeManagedPtrGetPtr websiteData+    webkit_website_data_unref websiteData'+    touchManagedPtr websiteData+    return ()++#if ENABLE_OVERLOADING+data WebsiteDataUnrefMethodInfo+instance (signature ~ (m ()), MonadIO m) => O.MethodInfo WebsiteDataUnrefMethodInfo WebsiteData signature where+    overloadedMethod _ = websiteDataUnref++#endif++#if ENABLE_OVERLOADING+type family ResolveWebsiteDataMethod (t :: Symbol) (o :: *) :: * where+    ResolveWebsiteDataMethod "ref" o = WebsiteDataRefMethodInfo+    ResolveWebsiteDataMethod "unref" o = WebsiteDataUnrefMethodInfo+    ResolveWebsiteDataMethod "getName" o = WebsiteDataGetNameMethodInfo+    ResolveWebsiteDataMethod "getSize" o = WebsiteDataGetSizeMethodInfo+    ResolveWebsiteDataMethod "getTypes" o = WebsiteDataGetTypesMethodInfo+    ResolveWebsiteDataMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveWebsiteDataMethod t WebsiteData, O.MethodInfo info WebsiteData p) => OL.IsLabel t (WebsiteData -> 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++
+ GI/WebKit2/Structs/WebsiteData.hs-boot view
@@ -0,0 +1,41 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.WebKit2.Structs.WebsiteData 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++newtype WebsiteData = WebsiteData (ManagedPtr WebsiteData)+instance BoxedObject WebsiteData where+#if ENABLE_OVERLOADING+data WebsiteDataGetNameMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataGetSizeMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataGetTypesMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataRefMethodInfo+#endif+#if ENABLE_OVERLOADING+data WebsiteDataUnrefMethodInfo+#endif
LICENSE view
@@ -1,3 +1,17 @@+The gi-webkit2 library and included works are provided under the terms of the+GNU Library General Public License (LGPL) version 2.1 with the following+exception:++Static linking of applications or any other source to the gi-webkit2 library+does not constitute a modified or derivative work and does not require+the author(s) to provide source code for said work, to link against the+shared gi-webkit2 libraries, or to link their applications against a+user-supplied version of gi-webkit2. If you link applications to a modified+version of gi-webkit2, then the changes to gi-webkit2 must be provided under the+terms of the LGPL.++----------------------------------------------------------------------------+                   GNU LESSER GENERAL PUBLIC LICENSE                        Version 2.1, February 1999
README.md view
@@ -1,6 +1,6 @@ # Documentation Autogenerated documentation for this package can be found at -[https://hackage.haskell.org/package/gi-webkit2-4.0.19/docs/GI-WebKit2.html](https://hackage.haskell.org/package/gi-webkit2-4.0.19/docs/GI-WebKit2.html)+[https://hackage.haskell.org/package/gi-webkit2-4.0.21/docs/GI-WebKit2.html](https://hackage.haskell.org/package/gi-webkit2-4.0.21/docs/GI-WebKit2.html)  For general documentation on using [haskell-gi](https://github.com/haskell-gi/haskell-gi) based bindings, see [the project page](https://github.com/haskell-gi/haskell-gi) or [the Wiki](https://github.com/haskell-gi/haskell-gi/wiki).
WebKit2.overrides view
@@ -23,6 +23,10 @@ set-attr WebKit2/NetworkProxySettings/new/@parameters/ignore_hosts/@array/@type name utf8 set-attr WebKit2/NetworkProxySettings/new/@parameters/ignore_hosts/@array/@type c:type gchar** +# In older versions this parameter had type "gpointer", which was+# corrected later.+set-attr WebKit2/WebView/load-failed/@parameters/error/@type name GLib.Error+ # https://github.com/haskell-gi/haskell-gi/issues/155 # Even get_current_item can return null if no page has ever been loaded set-attr WebKit2/BackForwardList/get_current_item/@return-value nullable 1
gi-webkit2.cabal view
@@ -1,12 +1,12 @@ name:                 gi-webkit2-version:              4.0.19+version:              4.0.21 synopsis:             WebKit2 bindings description:          Bindings for WebKit2, autogenerated by haskell-gi. homepage:             https://github.com/haskell-gi/haskell-gi license:              LGPL-2.1 license-file:         LICENSE author:               Will Thompson, Iñaki García Etxebarria and Jonas Platte-maintainer:           Iñaki García Etxebarria (garetxe@gmail.com)+maintainer:           Iñaki García Etxebarria (inaki@blueleaf.cc) category:             Bindings build-type:           Custom cabal-version:        1.24@@ -14,20 +14,20 @@ extra-source-files: README.md ChangeLog.md stack.yaml WebKit2.overrides  custom-setup-      setup-depends: base >= 4.7 && < 5,+      setup-depends: base >= 4.9 && < 5,                      Cabal >= 1.24,-                     haskell-gi >= 0.21.1 && < 0.22+                     haskell-gi >= 0.21.0 && < 0.23  library       default-language: Haskell2010-      default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts+      default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts, UndecidableSuperClasses       other-extensions: PatternSynonyms, ViewPatterns       ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations        pkgconfig-depends: webkit2gtk-4.0       build-depends: base >= 4.7 && <5,-                     haskell-gi-base == 0.21.*,-                     haskell-gi >= 0.21.1 && < 0.22,+                     haskell-gi-base >= 0.21.0 && < 0.23,+                     haskell-gi >= 0.21.0 && < 0.23,                      haskell-gi-overloading < 1.1,                      gi-cairo == 1.0.*,                      gi-soup == 2.4.*,@@ -47,3 +47,70 @@       -- see https://ghc.haskell.org/trac/ghc/ticket/14382       if impl(ghc == 8.2.*)               build-depends: haskell-gi-overloading == 0.0++      exposed-modules: GI.WebKit2,+                       GI.WebKit2.Callbacks,+                       GI.WebKit2.Constants,+                       GI.WebKit2.Enums,+                       GI.WebKit2.Flags,+                       GI.WebKit2.Functions,+                       GI.WebKit2.Interfaces,+                       GI.WebKit2.Interfaces.PermissionRequest,+                       GI.WebKit2.Objects,+                       GI.WebKit2.Objects.AuthenticationRequest,+                       GI.WebKit2.Objects.AutomationSession,+                       GI.WebKit2.Objects.BackForwardList,+                       GI.WebKit2.Objects.BackForwardListItem,+                       GI.WebKit2.Objects.ColorChooserRequest,+                       GI.WebKit2.Objects.ContextMenu,+                       GI.WebKit2.Objects.ContextMenuItem,+                       GI.WebKit2.Objects.CookieManager,+                       GI.WebKit2.Objects.DeviceInfoPermissionRequest,+                       GI.WebKit2.Objects.Download,+                       GI.WebKit2.Objects.EditorState,+                       GI.WebKit2.Objects.FaviconDatabase,+                       GI.WebKit2.Objects.FileChooserRequest,+                       GI.WebKit2.Objects.FindController,+                       GI.WebKit2.Objects.FormSubmissionRequest,+                       GI.WebKit2.Objects.GeolocationPermissionRequest,+                       GI.WebKit2.Objects.HitTestResult,+                       GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest,+                       GI.WebKit2.Objects.NavigationPolicyDecision,+                       GI.WebKit2.Objects.Notification,+                       GI.WebKit2.Objects.NotificationPermissionRequest,+                       GI.WebKit2.Objects.OptionMenu,+                       GI.WebKit2.Objects.Plugin,+                       GI.WebKit2.Objects.PolicyDecision,+                       GI.WebKit2.Objects.PrintCustomWidget,+                       GI.WebKit2.Objects.PrintOperation,+                       GI.WebKit2.Objects.ResponsePolicyDecision,+                       GI.WebKit2.Objects.SecurityManager,+                       GI.WebKit2.Objects.Settings,+                       GI.WebKit2.Objects.URIRequest,+                       GI.WebKit2.Objects.URIResponse,+                       GI.WebKit2.Objects.URISchemeRequest,+                       GI.WebKit2.Objects.UserContentFilterStore,+                       GI.WebKit2.Objects.UserContentManager,+                       GI.WebKit2.Objects.UserMediaPermissionRequest,+                       GI.WebKit2.Objects.WebContext,+                       GI.WebKit2.Objects.WebInspector,+                       GI.WebKit2.Objects.WebResource,+                       GI.WebKit2.Objects.WebView,+                       GI.WebKit2.Objects.WebViewBase,+                       GI.WebKit2.Objects.WebsiteDataManager,+                       GI.WebKit2.Objects.WindowProperties,+                       GI.WebKit2.Structs,+                       GI.WebKit2.Structs.ApplicationInfo,+                       GI.WebKit2.Structs.Credential,+                       GI.WebKit2.Structs.JavascriptResult,+                       GI.WebKit2.Structs.MimeInfo,+                       GI.WebKit2.Structs.NavigationAction,+                       GI.WebKit2.Structs.NetworkProxySettings,+                       GI.WebKit2.Structs.OptionMenuItem,+                       GI.WebKit2.Structs.ScriptDialog,+                       GI.WebKit2.Structs.SecurityOrigin,+                       GI.WebKit2.Structs.UserContentFilter,+                       GI.WebKit2.Structs.UserScript,+                       GI.WebKit2.Structs.UserStyleSheet,+                       GI.WebKit2.Structs.WebViewSessionState,+                       GI.WebKit2.Structs.WebsiteData
stack.yaml view
@@ -1,3 +1,3 @@ packages: - '.'-resolver: lts-9.21+resolver: lts-13.7