gi-webkit2 0.2.10.12 → 0.2.10.13

raw patch · 96 files changed

+14322/−10126 lines, 96 filesdep ~gi-atkdep ~gi-cairodep ~gi-gdkPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: gi-atk, gi-cairo, gi-gdk, gi-gio, gi-glib, gi-gobject, gi-gtk, gi-javascriptcore, gi-soup, haskell-gi-base

API changes (from Hackage documentation)

Files

• GI/WebKit2.hs +6/−0
• GI/WebKit2/Callbacks.hs +1/−0
• GI/WebKit2/Constants.hs +2/−1
• GI/WebKit2/Enums.hs +1/−0
• GI/WebKit2/Flags.hs +1/−0
• GI/WebKit2/Functions.hs +10/−206
• GI/WebKit2/Interfaces.hs +1/−0
• GI/WebKit2/Interfaces/PermissionRequest.hs +53/−9
• GI/WebKit2/Interfaces/PermissionRequest.hs-boot +2/−0
• GI/WebKit2/Objects.hs +1/−0
• GI/WebKit2/Objects/AuthenticationRequest.hs +126/−42
• GI/WebKit2/Objects/AuthenticationRequest.hs-boot +10/−0
• GI/WebKit2/Objects/BackForwardList.hs +125/−46
• GI/WebKit2/Objects/BackForwardList.hs-boot +9/−0
• GI/WebKit2/Objects/BackForwardListItem.hs +62/−13
• GI/WebKit2/Objects/BackForwardListItem.hs-boot +3/−0
• GI/WebKit2/Objects/ColorChooserRequest.hs +82/−23
• GI/WebKit2/Objects/ColorChooserRequest.hs-boot +5/−0
• GI/WebKit2/Objects/ContextMenu.hs +168/−71
• GI/WebKit2/Objects/ContextMenu.hs-boot +13/−0
• GI/WebKit2/Objects/ContextMenuItem.hs +96/−42
• GI/WebKit2/Objects/ContextMenuItem.hs-boot +5/−0
• GI/WebKit2/Objects/CookieManager.hs +121/−47
• GI/WebKit2/Objects/CookieManager.hs-boot +8/−0
• GI/WebKit2/Objects/Download.hs +146/−57
• GI/WebKit2/Objects/Download.hs-boot +11/−0
• GI/WebKit2/Objects/EditorState.hs +46/−7
• GI/WebKit2/Objects/EditorState.hs-boot +1/−0
• GI/WebKit2/Objects/FaviconDatabase.hs +89/−35
• GI/WebKit2/Objects/FaviconDatabase.hs-boot +4/−0
• GI/WebKit2/Objects/FileChooserRequest.hs +95/−31
• GI/WebKit2/Objects/FileChooserRequest.hs-boot +6/−0
• GI/WebKit2/Objects/FindController.hs +139/−60
• GI/WebKit2/Objects/FindController.hs-boot +9/−0
• GI/WebKit2/Objects/FormSubmissionRequest.hs +53/−9
• GI/WebKit2/Objects/FormSubmissionRequest.hs-boot +2/−0
• GI/WebKit2/Objects/GeolocationPermissionRequest.hs +37/−1
• GI/WebKit2/Objects/HitTestResult.hs +150/−56
• GI/WebKit2/Objects/HitTestResult.hs-boot +12/−0
• GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs +46/−5
• GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot +1/−0
• GI/WebKit2/Objects/NavigationPolicyDecision.hs +99/−32
• GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot +6/−0
• GI/WebKit2/Objects/Notification.hs +74/−20
• GI/WebKit2/Objects/Notification.hs-boot +4/−0
• GI/WebKit2/Objects/NotificationPermissionRequest.hs +37/−1
• GI/WebKit2/Objects/Plugin.hs +71/−17
• GI/WebKit2/Objects/Plugin.hs-boot +4/−0
• GI/WebKit2/Objects/PolicyDecision.hs +62/−13
• GI/WebKit2/Objects/PolicyDecision.hs-boot +3/−0
• GI/WebKit2/Objects/PrintOperation.hs +111/−48
• GI/WebKit2/Objects/PrintOperation.hs-boot +6/−0
• GI/WebKit2/Objects/ResponsePolicyDecision.hs +67/−15
• GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot +3/−0
• GI/WebKit2/Objects/SecurityManager.hs +155/−61
• GI/WebKit2/Objects/SecurityManager.hs-boot +12/−0
• GI/WebKit2/Objects/Settings.hs +5134/−4606
• GI/WebKit2/Objects/Settings.hs-boot +99/−0
• GI/WebKit2/Objects/URIRequest.hs +67/−19
• GI/WebKit2/Objects/URIRequest.hs-boot +3/−0
• GI/WebKit2/Objects/URIResponse.hs +96/−32
• GI/WebKit2/Objects/URIResponse.hs-boot +6/−0
• GI/WebKit2/Objects/URISchemeRequest.hs +100/−36
• GI/WebKit2/Objects/URISchemeRequest.hs-boot +6/−0
• GI/WebKit2/Objects/UserContentManager.hs +97/−34
• GI/WebKit2/Objects/UserContentManager.hs-boot +6/−0
• GI/WebKit2/Objects/UserMediaPermissionRequest.hs +40/−4
• GI/WebKit2/Objects/WebContext.hs +348/−167
• GI/WebKit2/Objects/WebContext.hs-boot +30/−0
• GI/WebKit2/Objects/WebInspector.hs +120/−41
• GI/WebKit2/Objects/WebInspector.hs-boot +9/−0
• GI/WebKit2/Objects/WebResource.hs +82/−30
• GI/WebKit2/Objects/WebResource.hs-boot +4/−0
• GI/WebKit2/Objects/WebView.hs +4547/−3940
• GI/WebKit2/Objects/WebView.hs-boot +58/−0
• GI/WebKit2/Objects/WebViewBase.hs +325/−2
• GI/WebKit2/Objects/WebsiteDataManager.hs +106/−37
• GI/WebKit2/Objects/WebsiteDataManager.hs-boot +7/−0
• GI/WebKit2/Objects/WindowProperties.hs +116/−42
• GI/WebKit2/Objects/WindowProperties.hs-boot +8/−0
• GI/WebKit2/Structs.hs +1/−0
• GI/WebKit2/Structs/Credential.hs +71/−30
• GI/WebKit2/Structs/Credential.hs-boot +6/−0
• GI/WebKit2/Structs/JavascriptResult.hs +48/−16
• GI/WebKit2/Structs/JavascriptResult.hs-boot +4/−0
• GI/WebKit2/Structs/MimeInfo.hs +57/−20
• GI/WebKit2/Structs/MimeInfo.hs-boot +5/−0
• GI/WebKit2/Structs/NavigationAction.hs +75/−28
• GI/WebKit2/Structs/NavigationAction.hs-boot +7/−0
• GI/WebKit2/Structs/ScriptDialog.hs +59/−22
• GI/WebKit2/Structs/ScriptDialog.hs-boot +5/−0
• GI/WebKit2/Structs/UserScript.hs +41/−20
• GI/WebKit2/Structs/UserScript.hs-boot +2/−0
• GI/WebKit2/Structs/UserStyleSheet.hs +40/−19
• GI/WebKit2/Structs/UserStyleSheet.hs-boot +2/−0
• gi-webkit2.cabal +13/−13

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,6 +17,10 @@     module GI.WebKit2.Structs               ,  ++    module Data.GI.Base                     ,++     ) where  import GI.WebKit2.Callbacks@@ -37,4 +42,5 @@ import GI.WebKit2.Types import GI.WebKit2.Callbacks +import Data.GI.Base 

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -36,7 +37,7 @@ pattern MINOR_VERSION = 10 :: Int32  -pattern MICRO_VERSION = 4 :: Int32+pattern MICRO_VERSION = 7 :: Int32   pattern MAJOR_VERSION = 2 :: Int32

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -9,14 +10,6 @@     (    -- * Methods--- ** downloadErrorQuark-    downloadErrorQuark                      ,----- ** faviconDatabaseErrorQuark-    faviconDatabaseErrorQuark               ,-- -- ** getMajorVersion     getMajorVersion                         , @@ -29,30 +22,6 @@     getMinorVersion                         ,  --- ** javascriptErrorQuark-    javascriptErrorQuark                    ,----- ** networkErrorQuark-    networkErrorQuark                       ,----- ** pluginErrorQuark-    pluginErrorQuark                        ,----- ** policyErrorQuark-    policyErrorQuark                        ,----- ** printErrorQuark-    printErrorQuark                         ,----- ** snapshotErrorQuark-    snapshotErrorQuark                      ,-- -- ** userMediaPermissionIsForAudioDevice     userMediaPermissionIsForAudioDevice     , @@ -76,9 +45,8 @@ import GI.WebKit2.Callbacks  -- function webkit_user_media_permission_is_for_video_device--- Args : [Arg {argName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -90,8 +58,8 @@  userMediaPermissionIsForVideoDevice ::     (MonadIO m, UserMediaPermissionRequestK a) =>-    a ->                                    -- request-    m Bool+    a                                       -- request+    -> m Bool                               -- result userMediaPermissionIsForVideoDevice request = liftIO $ do     let request' = unsafeManagedPtrCastPtr request     result <- webkit_user_media_permission_is_for_video_device request'@@ -101,9 +69,8 @@   -- function webkit_user_media_permission_is_for_audio_device--- Args : [Arg {argName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -115,8 +82,8 @@  userMediaPermissionIsForAudioDevice ::     (MonadIO m, UserMediaPermissionRequestK a) =>-    a ->                                    -- request-    m Bool+    a                                       -- request+    -> m Bool                               -- result userMediaPermissionIsForAudioDevice request = liftIO $ do     let request' = unsafeManagedPtrCastPtr request     result <- webkit_user_media_permission_is_for_audio_device request'@@ -125,130 +92,9 @@     return result'  --- function webkit_snapshot_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_snapshot_error_quark" webkit_snapshot_error_quark :: -    IO Word32---snapshotErrorQuark ::-    (MonadIO m) =>-    m Word32-snapshotErrorQuark  = liftIO $ do-    result <- webkit_snapshot_error_quark-    return result----- function webkit_print_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_print_error_quark" webkit_print_error_quark :: -    IO Word32---printErrorQuark ::-    (MonadIO m) =>-    m Word32-printErrorQuark  = liftIO $ do-    result <- webkit_print_error_quark-    return result----- function webkit_policy_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_policy_error_quark" webkit_policy_error_quark :: -    IO Word32---policyErrorQuark ::-    (MonadIO m) =>-    m Word32-policyErrorQuark  = liftIO $ do-    result <- webkit_policy_error_quark-    return result----- function webkit_plugin_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_plugin_error_quark" webkit_plugin_error_quark :: -    IO Word32---pluginErrorQuark ::-    (MonadIO m) =>-    m Word32-pluginErrorQuark  = liftIO $ do-    result <- webkit_plugin_error_quark-    return result----- function webkit_network_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_network_error_quark" webkit_network_error_quark :: -    IO Word32---networkErrorQuark ::-    (MonadIO m) =>-    m Word32-networkErrorQuark  = liftIO $ do-    result <- webkit_network_error_quark-    return result----- function webkit_javascript_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_javascript_error_quark" webkit_javascript_error_quark :: -    IO Word32---javascriptErrorQuark ::-    (MonadIO m) =>-    m Word32-javascriptErrorQuark  = liftIO $ do-    result <- webkit_javascript_error_quark-    return result-- -- function webkit_get_minor_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -259,7 +105,7 @@  getMinorVersion ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getMinorVersion  = liftIO $ do     result <- webkit_get_minor_version     return result@@ -268,7 +114,6 @@ -- function webkit_get_micro_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -279,7 +124,7 @@  getMicroVersion ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getMicroVersion  = liftIO $ do     result <- webkit_get_micro_version     return result@@ -288,7 +133,6 @@ -- function webkit_get_major_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -299,49 +143,9 @@  getMajorVersion ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getMajorVersion  = liftIO $ do     result <- webkit_get_major_version-    return result----- function webkit_favicon_database_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_favicon_database_error_quark" webkit_favicon_database_error_quark :: -    IO Word32---faviconDatabaseErrorQuark ::-    (MonadIO m) =>-    m Word32-faviconDatabaseErrorQuark  = liftIO $ do-    result <- webkit_favicon_database_error_quark-    return result----- function webkit_download_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_download_error_quark" webkit_download_error_quark :: -    IO Word32---downloadErrorQuark ::-    (MonadIO m) =>-    m Word32-downloadErrorQuark  = liftIO $ do-    result <- webkit_download_error_quark     return result  

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,10 +18,12 @@   -- * Methods -- ** permissionRequestAllow+    PermissionRequestAllowMethodInfo        ,     permissionRequestAllow                  ,   -- ** permissionRequestDeny+    PermissionRequestDenyMethodInfo         ,     permissionRequestDeny                   ,  @@ -45,11 +48,46 @@ noPermissionRequest :: Maybe PermissionRequest noPermissionRequest = Nothing +type family ResolvePermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolvePermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo+    ResolvePermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolvePermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolvePermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo+    ResolvePermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolvePermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolvePermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolvePermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolvePermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolvePermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolvePermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolvePermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolvePermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolvePermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolvePermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolvePermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolvePermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolvePermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolvePermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolvePermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolvePermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolvePermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolvePermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolvePermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolvePermissionRequestMethod l o = MethodResolutionFailed l o++instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, MethodInfo info PermissionRequest p) => IsLabelProxy t (PermissionRequest -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, MethodInfo info PermissionRequest p) => IsLabel t (PermissionRequest -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList PermissionRequest = PermissionRequestAttributeList type PermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList PermissionRequest = PermissionRequestSignalList-type PermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type PermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  foreign import ccall "webkit_permission_request_get_type"     c_webkit_permission_request_get_type :: IO GType@@ -70,9 +108,8 @@  -- method PermissionRequest::allow -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -84,19 +121,22 @@  permissionRequestAllow ::     (MonadIO m, PermissionRequestK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result permissionRequestAllow _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_permission_request_allow _obj'     touchManagedPtr _obj     return () +data PermissionRequestAllowMethodInfo+instance (signature ~ (m ()), MonadIO m, PermissionRequestK a) => MethodInfo PermissionRequestAllowMethodInfo a signature where+    overloadedMethod _ = permissionRequestAllow+ -- method PermissionRequest::deny -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -108,12 +148,16 @@  permissionRequestDeny ::     (MonadIO m, PermissionRequestK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result permissionRequestDeny _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_permission_request_deny _obj'     touchManagedPtr _obj     return ()++data PermissionRequestDenyMethodInfo+instance (signature ~ (m ()), MonadIO m, PermissionRequestK a) => MethodInfo PermissionRequestDenyMethodInfo a signature where+    overloadedMethod _ = permissionRequestDeny  

@@ -11,3 +11,5 @@ instance GObject PermissionRequest where class GObject o => PermissionRequestK o instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o+data PermissionRequestAllowMethodInfo+data PermissionRequestDenyMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,42 +18,52 @@   -- * Methods -- ** authenticationRequestAuthenticate+    AuthenticationRequestAuthenticateMethodInfo,     authenticationRequestAuthenticate       ,   -- ** authenticationRequestCanSaveCredentials+    AuthenticationRequestCanSaveCredentialsMethodInfo,     authenticationRequestCanSaveCredentials ,   -- ** authenticationRequestCancel+    AuthenticationRequestCancelMethodInfo   ,     authenticationRequestCancel             ,   -- ** authenticationRequestGetHost+    AuthenticationRequestGetHostMethodInfo  ,     authenticationRequestGetHost            ,   -- ** authenticationRequestGetPort+    AuthenticationRequestGetPortMethodInfo  ,     authenticationRequestGetPort            ,   -- ** authenticationRequestGetProposedCredential+    AuthenticationRequestGetProposedCredentialMethodInfo,     authenticationRequestGetProposedCredential,   -- ** authenticationRequestGetRealm+    AuthenticationRequestGetRealmMethodInfo ,     authenticationRequestGetRealm           ,   -- ** authenticationRequestGetScheme+    AuthenticationRequestGetSchemeMethodInfo,     authenticationRequestGetScheme          ,   -- ** authenticationRequestIsForProxy+    AuthenticationRequestIsForProxyMethodInfo,     authenticationRequestIsForProxy         ,   -- ** authenticationRequestIsRetry+    AuthenticationRequestIsRetryMethodInfo  ,     authenticationRequestIsRetry            ,  @@ -107,6 +118,49 @@ noAuthenticationRequest :: Maybe AuthenticationRequest noAuthenticationRequest = Nothing +type family ResolveAuthenticationRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveAuthenticationRequestMethod "authenticate" o = AuthenticationRequestAuthenticateMethodInfo+    ResolveAuthenticationRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAuthenticationRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAuthenticationRequestMethod "canSaveCredentials" o = AuthenticationRequestCanSaveCredentialsMethodInfo+    ResolveAuthenticationRequestMethod "cancel" o = AuthenticationRequestCancelMethodInfo+    ResolveAuthenticationRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAuthenticationRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAuthenticationRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAuthenticationRequestMethod "isForProxy" o = AuthenticationRequestIsForProxyMethodInfo+    ResolveAuthenticationRequestMethod "isRetry" o = AuthenticationRequestIsRetryMethodInfo+    ResolveAuthenticationRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAuthenticationRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAuthenticationRequestMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAuthenticationRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAuthenticationRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAuthenticationRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAuthenticationRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAuthenticationRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAuthenticationRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAuthenticationRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAuthenticationRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAuthenticationRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAuthenticationRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAuthenticationRequestMethod "getHost" o = AuthenticationRequestGetHostMethodInfo+    ResolveAuthenticationRequestMethod "getPort" o = AuthenticationRequestGetPortMethodInfo+    ResolveAuthenticationRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAuthenticationRequestMethod "getProposedCredential" o = AuthenticationRequestGetProposedCredentialMethodInfo+    ResolveAuthenticationRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAuthenticationRequestMethod "getRealm" o = AuthenticationRequestGetRealmMethodInfo+    ResolveAuthenticationRequestMethod "getScheme" o = AuthenticationRequestGetSchemeMethodInfo+    ResolveAuthenticationRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAuthenticationRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAuthenticationRequestMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, MethodInfo info AuthenticationRequest p) => IsLabelProxy t (AuthenticationRequest -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, MethodInfo info AuthenticationRequest p) => IsLabel t (AuthenticationRequest -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal AuthenticationRequest::cancelled type AuthenticationRequestCancelledCallback =     IO ()@@ -154,13 +208,12 @@     connectSignal _ = connectAuthenticationRequestCancelled  type instance SignalList AuthenticationRequest = AuthenticationRequestSignalList-type AuthenticationRequestSignalList = ('[ '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AuthenticationRequestSignalList = ('[ '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AuthenticationRequest::authenticate -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "credential", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "credential", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "credential", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -173,9 +226,9 @@  authenticationRequestAuthenticate ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    Maybe (Credential) ->                   -- credential-    m ()+    a                                       -- _obj+    -> Maybe (Credential)                   -- credential+    -> m ()                                 -- result authenticationRequestAuthenticate _obj credential = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeCredential <- case credential of@@ -188,11 +241,14 @@     whenJust credential touchManagedPtr     return () +data AuthenticationRequestAuthenticateMethodInfo+instance (signature ~ (Maybe (Credential) -> m ()), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestAuthenticateMethodInfo a signature where+    overloadedMethod _ = authenticationRequestAuthenticate+ -- method AuthenticationRequest::can_save_credentials -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -204,8 +260,8 @@  authenticationRequestCanSaveCredentials ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result authenticationRequestCanSaveCredentials _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_can_save_credentials _obj'@@ -213,11 +269,14 @@     touchManagedPtr _obj     return result' +data AuthenticationRequestCanSaveCredentialsMethodInfo+instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestCanSaveCredentialsMethodInfo a signature where+    overloadedMethod _ = authenticationRequestCanSaveCredentials+ -- method AuthenticationRequest::cancel -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -229,19 +288,22 @@  authenticationRequestCancel ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result authenticationRequestCancel _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_authentication_request_cancel _obj'     touchManagedPtr _obj     return () +data AuthenticationRequestCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestCancelMethodInfo a signature where+    overloadedMethod _ = authenticationRequestCancel+ -- method AuthenticationRequest::get_host -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -253,8 +315,8 @@  authenticationRequestGetHost ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result authenticationRequestGetHost _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_get_host _obj'@@ -263,11 +325,14 @@     touchManagedPtr _obj     return result' +data AuthenticationRequestGetHostMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetHostMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetHost+ -- method AuthenticationRequest::get_port -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -279,19 +344,22 @@  authenticationRequestGetPort ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result authenticationRequestGetPort _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_get_port _obj'     touchManagedPtr _obj     return result +data AuthenticationRequestGetPortMethodInfo+instance (signature ~ (m Word32), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetPortMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetPort+ -- method AuthenticationRequest::get_proposed_credential -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "Credential" -- throws : False -- Skip return : False@@ -303,8 +371,8 @@  authenticationRequestGetProposedCredential ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Credential+    a                                       -- _obj+    -> m Credential                         -- result authenticationRequestGetProposedCredential _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_get_proposed_credential _obj'@@ -313,11 +381,14 @@     touchManagedPtr _obj     return result' +data AuthenticationRequestGetProposedCredentialMethodInfo+instance (signature ~ (m Credential), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetProposedCredentialMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetProposedCredential+ -- method AuthenticationRequest::get_realm -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -329,8 +400,8 @@  authenticationRequestGetRealm ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result authenticationRequestGetRealm _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_get_realm _obj'@@ -339,11 +410,14 @@     touchManagedPtr _obj     return result' +data AuthenticationRequestGetRealmMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetRealmMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetRealm+ -- method AuthenticationRequest::get_scheme -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "AuthenticationScheme" -- throws : False -- Skip return : False@@ -355,8 +429,8 @@  authenticationRequestGetScheme ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m AuthenticationScheme+    a                                       -- _obj+    -> m AuthenticationScheme               -- result authenticationRequestGetScheme _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_get_scheme _obj'@@ -364,11 +438,14 @@     touchManagedPtr _obj     return result' +data AuthenticationRequestGetSchemeMethodInfo+instance (signature ~ (m AuthenticationScheme), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetSchemeMethodInfo a signature where+    overloadedMethod _ = authenticationRequestGetScheme+ -- method AuthenticationRequest::is_for_proxy -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -380,8 +457,8 @@  authenticationRequestIsForProxy ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result authenticationRequestIsForProxy _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_is_for_proxy _obj'@@ -389,11 +466,14 @@     touchManagedPtr _obj     return result' +data AuthenticationRequestIsForProxyMethodInfo+instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestIsForProxyMethodInfo a signature where+    overloadedMethod _ = authenticationRequestIsForProxy+ -- method AuthenticationRequest::is_retry -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -405,13 +485,17 @@  authenticationRequestIsRetry ::     (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result authenticationRequestIsRetry _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_authentication_request_is_retry _obj'     let result' = (/= 0) result     touchManagedPtr _obj     return result'++data AuthenticationRequestIsRetryMethodInfo+instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestIsRetryMethodInfo a signature where+    overloadedMethod _ = authenticationRequestIsRetry  

@@ -12,3 +12,13 @@ class GObject o => AuthenticationRequestK o instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o data AuthenticationRequestCancelledSignalInfo+data AuthenticationRequestAuthenticateMethodInfo+data AuthenticationRequestCanSaveCredentialsMethodInfo+data AuthenticationRequestCancelMethodInfo+data AuthenticationRequestGetHostMethodInfo+data AuthenticationRequestGetPortMethodInfo+data AuthenticationRequestGetProposedCredentialMethodInfo+data AuthenticationRequestGetRealmMethodInfo+data AuthenticationRequestGetSchemeMethodInfo+data AuthenticationRequestIsForProxyMethodInfo+data AuthenticationRequestIsRetryMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,38 +18,47 @@   -- * Methods -- ** backForwardListGetBackItem+    BackForwardListGetBackItemMethodInfo    ,     backForwardListGetBackItem              ,   -- ** backForwardListGetBackList+    BackForwardListGetBackListMethodInfo    ,     backForwardListGetBackList              ,   -- ** backForwardListGetBackListWithLimit+    BackForwardListGetBackListWithLimitMethodInfo,     backForwardListGetBackListWithLimit     ,   -- ** backForwardListGetCurrentItem+    BackForwardListGetCurrentItemMethodInfo ,     backForwardListGetCurrentItem           ,   -- ** backForwardListGetForwardItem+    BackForwardListGetForwardItemMethodInfo ,     backForwardListGetForwardItem           ,   -- ** backForwardListGetForwardList+    BackForwardListGetForwardListMethodInfo ,     backForwardListGetForwardList           ,   -- ** backForwardListGetForwardListWithLimit+    BackForwardListGetForwardListWithLimitMethodInfo,     backForwardListGetForwardListWithLimit  ,   -- ** backForwardListGetLength+    BackForwardListGetLengthMethodInfo      ,     backForwardListGetLength                ,   -- ** backForwardListGetNthItem+    BackForwardListGetNthItemMethodInfo     ,     backForwardListGetNthItem               ,  @@ -103,6 +113,48 @@ noBackForwardList :: Maybe BackForwardList noBackForwardList = Nothing +type family ResolveBackForwardListMethod (t :: Symbol) (o :: *) :: * where+    ResolveBackForwardListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveBackForwardListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveBackForwardListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveBackForwardListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveBackForwardListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveBackForwardListMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveBackForwardListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveBackForwardListMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveBackForwardListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveBackForwardListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveBackForwardListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveBackForwardListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveBackForwardListMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveBackForwardListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveBackForwardListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveBackForwardListMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveBackForwardListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveBackForwardListMethod "getBackItem" o = BackForwardListGetBackItemMethodInfo+    ResolveBackForwardListMethod "getBackList" o = BackForwardListGetBackListMethodInfo+    ResolveBackForwardListMethod "getBackListWithLimit" o = BackForwardListGetBackListWithLimitMethodInfo+    ResolveBackForwardListMethod "getCurrentItem" o = BackForwardListGetCurrentItemMethodInfo+    ResolveBackForwardListMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo+    ResolveBackForwardListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveBackForwardListMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveBackForwardListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveBackForwardListMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveBackForwardListMethod t BackForwardList, MethodInfo info BackForwardList p) => IsLabelProxy t (BackForwardList -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveBackForwardListMethod t BackForwardList, MethodInfo info BackForwardList p) => IsLabel t (BackForwardList -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal BackForwardList::changed type BackForwardListChangedCallback =     Maybe BackForwardListItem ->@@ -133,14 +185,14 @@     Ptr () ->     Ptr () ->     IO ()-backForwardListChangedCallbackWrapper _cb _ item_added items_removed _ = do-    maybeItem_added <--        if item_added == nullPtr+backForwardListChangedCallbackWrapper _cb _ itemAdded itemsRemoved _ = do+    maybeItemAdded <-+        if itemAdded == nullPtr         then return Nothing         else do-            item_added' <- (newObject BackForwardListItem) item_added-            return $ Just item_added'-    _cb  maybeItem_added items_removed+            itemAdded' <- (newObject BackForwardListItem) itemAdded+            return $ Just itemAdded'+    _cb  maybeItemAdded itemsRemoved  onBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId onBackForwardListChanged obj cb = liftIO $ connectBackForwardListChanged obj cb SignalConnectBefore@@ -162,13 +214,12 @@     connectSignal _ = connectBackForwardListChanged  type instance SignalList BackForwardList = BackForwardListSignalList-type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method BackForwardList::get_back_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "BackForwardListItem" -- throws : False -- Skip return : False@@ -180,8 +231,8 @@  backForwardListGetBackItem ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m BackForwardListItem+    a                                       -- _obj+    -> m BackForwardListItem                -- result backForwardListGetBackItem _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_back_item _obj'@@ -190,11 +241,14 @@     touchManagedPtr _obj     return result' +data BackForwardListGetBackItemMethodInfo+instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetBackItem+ -- method BackForwardList::get_back_list -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "WebKit2" "BackForwardListItem") -- throws : False -- Skip return : False@@ -206,8 +260,8 @@  backForwardListGetBackList ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m [BackForwardListItem]+    a                                       -- _obj+    -> m [BackForwardListItem]              -- result backForwardListGetBackList _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_back_list _obj'@@ -218,11 +272,14 @@     touchManagedPtr _obj     return result'' +data BackForwardListGetBackListMethodInfo+instance (signature ~ (m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackListMethodInfo a signature where+    overloadedMethod _ = backForwardListGetBackList+ -- method BackForwardList::get_back_list_with_limit -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "WebKit2" "BackForwardListItem") -- throws : False -- Skip return : False@@ -235,9 +292,9 @@  backForwardListGetBackListWithLimit ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- limit-    m [BackForwardListItem]+    a                                       -- _obj+    -> Word32                               -- limit+    -> m [BackForwardListItem]              -- result backForwardListGetBackListWithLimit _obj limit = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_back_list_with_limit _obj' limit@@ -248,11 +305,14 @@     touchManagedPtr _obj     return result'' +data BackForwardListGetBackListWithLimitMethodInfo+instance (signature ~ (Word32 -> m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackListWithLimitMethodInfo a signature where+    overloadedMethod _ = backForwardListGetBackListWithLimit+ -- method BackForwardList::get_current_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "BackForwardListItem" -- throws : False -- Skip return : False@@ -264,8 +324,8 @@  backForwardListGetCurrentItem ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m BackForwardListItem+    a                                       -- _obj+    -> m BackForwardListItem                -- result backForwardListGetCurrentItem _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_current_item _obj'@@ -274,11 +334,14 @@     touchManagedPtr _obj     return result' +data BackForwardListGetCurrentItemMethodInfo+instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetCurrentItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetCurrentItem+ -- method BackForwardList::get_forward_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "BackForwardListItem" -- throws : False -- Skip return : False@@ -290,8 +353,8 @@  backForwardListGetForwardItem ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m BackForwardListItem+    a                                       -- _obj+    -> m BackForwardListItem                -- result backForwardListGetForwardItem _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_forward_item _obj'@@ -300,11 +363,14 @@     touchManagedPtr _obj     return result' +data BackForwardListGetForwardItemMethodInfo+instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetForwardItem+ -- method BackForwardList::get_forward_list -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "WebKit2" "BackForwardListItem") -- throws : False -- Skip return : False@@ -316,8 +382,8 @@  backForwardListGetForwardList ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m [BackForwardListItem]+    a                                       -- _obj+    -> m [BackForwardListItem]              -- result backForwardListGetForwardList _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_forward_list _obj'@@ -328,11 +394,14 @@     touchManagedPtr _obj     return result'' +data BackForwardListGetForwardListMethodInfo+instance (signature ~ (m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardListMethodInfo a signature where+    overloadedMethod _ = backForwardListGetForwardList+ -- method BackForwardList::get_forward_list_with_limit -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "WebKit2" "BackForwardListItem") -- throws : False -- Skip return : False@@ -345,9 +414,9 @@  backForwardListGetForwardListWithLimit ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- limit-    m [BackForwardListItem]+    a                                       -- _obj+    -> Word32                               -- limit+    -> m [BackForwardListItem]              -- result backForwardListGetForwardListWithLimit _obj limit = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_forward_list_with_limit _obj' limit@@ -358,11 +427,14 @@     touchManagedPtr _obj     return result'' +data BackForwardListGetForwardListWithLimitMethodInfo+instance (signature ~ (Word32 -> m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardListWithLimitMethodInfo a signature where+    overloadedMethod _ = backForwardListGetForwardListWithLimit+ -- method BackForwardList::get_length -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -374,19 +446,22 @@  backForwardListGetLength ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result backForwardListGetLength _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_length _obj'     touchManagedPtr _obj     return result +data BackForwardListGetLengthMethodInfo+instance (signature ~ (m Word32), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetLengthMethodInfo a signature where+    overloadedMethod _ = backForwardListGetLength+ -- method BackForwardList::get_nth_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "BackForwardListItem" -- throws : False -- Skip return : False@@ -399,9 +474,9 @@  backForwardListGetNthItem ::     (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index-    m BackForwardListItem+    a                                       -- _obj+    -> Int32                                -- index+    -> m BackForwardListItem                -- result backForwardListGetNthItem _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_get_nth_item _obj' index@@ -409,5 +484,9 @@     result' <- (newObject BackForwardListItem) result     touchManagedPtr _obj     return result'++data BackForwardListGetNthItemMethodInfo+instance (signature ~ (Int32 -> m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetNthItemMethodInfo a signature where+    overloadedMethod _ = backForwardListGetNthItem  

@@ -12,3 +12,12 @@ class GObject o => BackForwardListK o instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o data BackForwardListChangedSignalInfo+data BackForwardListGetBackItemMethodInfo+data BackForwardListGetBackListMethodInfo+data BackForwardListGetBackListWithLimitMethodInfo+data BackForwardListGetCurrentItemMethodInfo+data BackForwardListGetForwardItemMethodInfo+data BackForwardListGetForwardListMethodInfo+data BackForwardListGetForwardListWithLimitMethodInfo+data BackForwardListGetLengthMethodInfo+data BackForwardListGetNthItemMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,14 +18,17 @@   -- * Methods -- ** backForwardListItemGetOriginalUri+    BackForwardListItemGetOriginalUriMethodInfo,     backForwardListItemGetOriginalUri       ,   -- ** backForwardListItemGetTitle+    BackForwardListItemGetTitleMethodInfo   ,     backForwardListItemGetTitle             ,   -- ** backForwardListItemGetUri+    BackForwardListItemGetUriMethodInfo     ,     backForwardListItemGetUri               ,  @@ -64,17 +68,52 @@ noBackForwardListItem :: Maybe BackForwardListItem noBackForwardListItem = Nothing +type family ResolveBackForwardListItemMethod (t :: Symbol) (o :: *) :: * where+    ResolveBackForwardListItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveBackForwardListItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveBackForwardListItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveBackForwardListItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveBackForwardListItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveBackForwardListItemMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveBackForwardListItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveBackForwardListItemMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveBackForwardListItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveBackForwardListItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveBackForwardListItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveBackForwardListItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveBackForwardListItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveBackForwardListItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveBackForwardListItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveBackForwardListItemMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveBackForwardListItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveBackForwardListItemMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveBackForwardListItemMethod "getOriginalUri" o = BackForwardListItemGetOriginalUriMethodInfo+    ResolveBackForwardListItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveBackForwardListItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveBackForwardListItemMethod "getTitle" o = BackForwardListItemGetTitleMethodInfo+    ResolveBackForwardListItemMethod "getUri" o = BackForwardListItemGetUriMethodInfo+    ResolveBackForwardListItemMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveBackForwardListItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveBackForwardListItemMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, MethodInfo info BackForwardListItem p) => IsLabelProxy t (BackForwardListItem -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, MethodInfo info BackForwardListItem p) => IsLabel t (BackForwardListItem -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList BackForwardListItem = BackForwardListItemAttributeList type BackForwardListItemAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList BackForwardListItem = BackForwardListItemSignalList-type BackForwardListItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type BackForwardListItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method BackForwardListItem::get_original_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -86,8 +125,8 @@  backForwardListItemGetOriginalUri ::     (MonadIO m, BackForwardListItemK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result backForwardListItemGetOriginalUri _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_item_get_original_uri _obj'@@ -96,11 +135,14 @@     touchManagedPtr _obj     return result' +data BackForwardListItemGetOriginalUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetOriginalUriMethodInfo a signature where+    overloadedMethod _ = backForwardListItemGetOriginalUri+ -- method BackForwardListItem::get_title -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -112,8 +154,8 @@  backForwardListItemGetTitle ::     (MonadIO m, BackForwardListItemK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result backForwardListItemGetTitle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_item_get_title _obj'@@ -122,11 +164,14 @@     touchManagedPtr _obj     return result' +data BackForwardListItemGetTitleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetTitleMethodInfo a signature where+    overloadedMethod _ = backForwardListItemGetTitle+ -- method BackForwardListItem::get_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -138,8 +183,8 @@  backForwardListItemGetUri ::     (MonadIO m, BackForwardListItemK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result backForwardListItemGetUri _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_back_forward_list_item_get_uri _obj'@@ -147,5 +192,9 @@     result' <- cstringToText result     touchManagedPtr _obj     return result'++data BackForwardListItemGetUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetUriMethodInfo a signature where+    overloadedMethod _ = backForwardListItemGetUri  

@@ -11,3 +11,6 @@ instance GObject BackForwardListItem where class GObject o => BackForwardListItemK o instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o+data BackForwardListItemGetOriginalUriMethodInfo+data BackForwardListItemGetTitleMethodInfo+data BackForwardListItemGetUriMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,22 +18,27 @@   -- * Methods -- ** colorChooserRequestCancel+    ColorChooserRequestCancelMethodInfo     ,     colorChooserRequestCancel               ,   -- ** colorChooserRequestFinish+    ColorChooserRequestFinishMethodInfo     ,     colorChooserRequestFinish               ,   -- ** colorChooserRequestGetElementRectangle+    ColorChooserRequestGetElementRectangleMethodInfo,     colorChooserRequestGetElementRectangle  ,   -- ** colorChooserRequestGetRgba+    ColorChooserRequestGetRgbaMethodInfo    ,     colorChooserRequestGetRgba              ,   -- ** colorChooserRequestSetRgba+    ColorChooserRequestSetRgbaMethodInfo    ,     colorChooserRequestSetRgba              ,  @@ -98,6 +104,44 @@ noColorChooserRequest :: Maybe ColorChooserRequest noColorChooserRequest = Nothing +type family ResolveColorChooserRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveColorChooserRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveColorChooserRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveColorChooserRequestMethod "cancel" o = ColorChooserRequestCancelMethodInfo+    ResolveColorChooserRequestMethod "finish" o = ColorChooserRequestFinishMethodInfo+    ResolveColorChooserRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveColorChooserRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveColorChooserRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveColorChooserRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveColorChooserRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveColorChooserRequestMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveColorChooserRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveColorChooserRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveColorChooserRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveColorChooserRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveColorChooserRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveColorChooserRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveColorChooserRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveColorChooserRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveColorChooserRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveColorChooserRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveColorChooserRequestMethod "getElementRectangle" o = ColorChooserRequestGetElementRectangleMethodInfo+    ResolveColorChooserRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveColorChooserRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveColorChooserRequestMethod "getRgba" o = ColorChooserRequestGetRgbaMethodInfo+    ResolveColorChooserRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveColorChooserRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveColorChooserRequestMethod "setRgba" o = ColorChooserRequestSetRgbaMethodInfo+    ResolveColorChooserRequestMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, MethodInfo info ColorChooserRequest p) => IsLabelProxy t (ColorChooserRequest -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, MethodInfo info ColorChooserRequest p) => IsLabel t (ColorChooserRequest -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal ColorChooserRequest::finished type ColorChooserRequestFinishedCallback =     IO ()@@ -155,7 +199,7 @@     type AttrSetTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA     type AttrBaseTypeConstraint ColorChooserRequestRgbaPropertyInfo = ColorChooserRequestK     type AttrGetType ColorChooserRequestRgbaPropertyInfo = Gdk.RGBA-    type AttrLabel ColorChooserRequestRgbaPropertyInfo = "ColorChooserRequest::rgba"+    type AttrLabel ColorChooserRequestRgbaPropertyInfo = "rgba"     attrGet _ = getColorChooserRequestRgba     attrSet _ = setColorChooserRequestRgba     attrConstruct _ = constructColorChooserRequestRgba@@ -169,13 +213,12 @@     connectSignal _ = connectColorChooserRequestFinished  type instance SignalList ColorChooserRequest = ColorChooserRequestSignalList-type ColorChooserRequestSignalList = ('[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type ColorChooserRequestSignalList = ('[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method ColorChooserRequest::cancel -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -187,19 +230,22 @@  colorChooserRequestCancel ::     (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result colorChooserRequestCancel _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_color_chooser_request_cancel _obj'     touchManagedPtr _obj     return () +data ColorChooserRequestCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestCancelMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestCancel+ -- method ColorChooserRequest::finish -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -211,19 +257,22 @@  colorChooserRequestFinish ::     (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result colorChooserRequestFinish _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_color_chooser_request_finish _obj'     touchManagedPtr _obj     return () +data ColorChooserRequestFinishMethodInfo+instance (signature ~ (m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestFinishMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestFinish+ -- method ColorChooserRequest::get_element_rectangle -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -236,8 +285,8 @@  colorChooserRequestGetElementRectangle ::     (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m (Gdk.Rectangle)+    a                                       -- _obj+    -> m (Gdk.Rectangle)                    -- result colorChooserRequestGetElementRectangle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)@@ -246,11 +295,14 @@     touchManagedPtr _obj     return rect' +data ColorChooserRequestGetElementRectangleMethodInfo+instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestGetElementRectangleMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestGetElementRectangle+ -- method ColorChooserRequest::get_rgba -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -263,8 +315,8 @@  colorChooserRequestGetRgba ::     (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m (Gdk.RGBA)+    a                                       -- _obj+    -> m (Gdk.RGBA)                         -- result colorChooserRequestGetRgba _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)@@ -273,11 +325,14 @@     touchManagedPtr _obj     return rgba' +data ColorChooserRequestGetRgbaMethodInfo+instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestGetRgbaMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestGetRgba+ -- method ColorChooserRequest::set_rgba -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -290,9 +345,9 @@  colorChooserRequestSetRgba ::     (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    Gdk.RGBA ->                             -- rgba-    m ()+    a                                       -- _obj+    -> Gdk.RGBA                             -- rgba+    -> m ()                                 -- result colorChooserRequestSetRgba _obj rgba = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let rgba' = unsafeManagedPtrGetPtr rgba@@ -300,5 +355,9 @@     touchManagedPtr _obj     touchManagedPtr rgba     return ()++data ColorChooserRequestSetRgbaMethodInfo+instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestSetRgbaMethodInfo a signature where+    overloadedMethod _ = colorChooserRequestSetRgba  

@@ -13,3 +13,8 @@ instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o data ColorChooserRequestRgbaPropertyInfo data ColorChooserRequestFinishedSignalInfo+data ColorChooserRequestCancelMethodInfo+data ColorChooserRequestFinishMethodInfo+data ColorChooserRequestGetElementRectangleMethodInfo+data ColorChooserRequestGetRgbaMethodInfo+data ColorChooserRequestSetRgbaMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,38 +18,47 @@   -- * Methods -- ** contextMenuAppend+    ContextMenuAppendMethodInfo             ,     contextMenuAppend                       ,   -- ** contextMenuFirst+    ContextMenuFirstMethodInfo              ,     contextMenuFirst                        ,   -- ** contextMenuGetItemAtPosition+    ContextMenuGetItemAtPositionMethodInfo  ,     contextMenuGetItemAtPosition            ,   -- ** contextMenuGetItems+    ContextMenuGetItemsMethodInfo           ,     contextMenuGetItems                     ,   -- ** contextMenuGetNItems+    ContextMenuGetNItemsMethodInfo          ,     contextMenuGetNItems                    ,   -- ** contextMenuGetUserData+    ContextMenuGetUserDataMethodInfo        ,     contextMenuGetUserData                  ,   -- ** contextMenuInsert+    ContextMenuInsertMethodInfo             ,     contextMenuInsert                       ,   -- ** contextMenuLast+    ContextMenuLastMethodInfo               ,     contextMenuLast                         ,   -- ** contextMenuMoveItem+    ContextMenuMoveItemMethodInfo           ,     contextMenuMoveItem                     ,  @@ -61,18 +71,22 @@   -- ** contextMenuPrepend+    ContextMenuPrependMethodInfo            ,     contextMenuPrepend                      ,   -- ** contextMenuRemove+    ContextMenuRemoveMethodInfo             ,     contextMenuRemove                       ,   -- ** contextMenuRemoveAll+    ContextMenuRemoveAllMethodInfo          ,     contextMenuRemoveAll                    ,   -- ** contextMenuSetUserData+    ContextMenuSetUserDataMethodInfo        ,     contextMenuSetUserData                  ,  @@ -112,17 +126,62 @@ noContextMenu :: Maybe ContextMenu noContextMenu = Nothing +type family ResolveContextMenuMethod (t :: Symbol) (o :: *) :: * where+    ResolveContextMenuMethod "append" o = ContextMenuAppendMethodInfo+    ResolveContextMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveContextMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveContextMenuMethod "first" o = ContextMenuFirstMethodInfo+    ResolveContextMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveContextMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveContextMenuMethod "insert" o = ContextMenuInsertMethodInfo+    ResolveContextMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveContextMenuMethod "last" o = ContextMenuLastMethodInfo+    ResolveContextMenuMethod "moveItem" o = ContextMenuMoveItemMethodInfo+    ResolveContextMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveContextMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveContextMenuMethod "prepend" o = ContextMenuPrependMethodInfo+    ResolveContextMenuMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveContextMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveContextMenuMethod "remove" o = ContextMenuRemoveMethodInfo+    ResolveContextMenuMethod "removeAll" o = ContextMenuRemoveAllMethodInfo+    ResolveContextMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveContextMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveContextMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveContextMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveContextMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveContextMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveContextMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveContextMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveContextMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveContextMenuMethod "getItemAtPosition" o = ContextMenuGetItemAtPositionMethodInfo+    ResolveContextMenuMethod "getItems" o = ContextMenuGetItemsMethodInfo+    ResolveContextMenuMethod "getNItems" o = ContextMenuGetNItemsMethodInfo+    ResolveContextMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveContextMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveContextMenuMethod "getUserData" o = ContextMenuGetUserDataMethodInfo+    ResolveContextMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveContextMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveContextMenuMethod "setUserData" o = ContextMenuSetUserDataMethodInfo+    ResolveContextMenuMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabelProxy t (ContextMenu -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabel t (ContextMenu -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList ContextMenu = ContextMenuAttributeList type ContextMenuAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList ContextMenu = ContextMenuSignalList-type ContextMenuSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type ContextMenuSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method ContextMenu::new -- method type : Constructor -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TInterface "WebKit2" "ContextMenu" -- throws : False -- Skip return : False@@ -133,7 +192,7 @@  contextMenuNew ::     (MonadIO m) =>-    m ContextMenu+    m ContextMenu                           -- result contextMenuNew  = liftIO $ do     result <- webkit_context_menu_new     checkUnexpectedReturnNULL "webkit_context_menu_new" result@@ -142,9 +201,8 @@  -- method ContextMenu::new_with_items -- method type : Constructor--- Args : [Arg {argName = "items", argType = TGList (TInterface "WebKit2" "ContextMenuItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "items", argType = TGList (TInterface "WebKit2" "ContextMenuItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "items", argType = TGList (TInterface "WebKit2" "ContextMenuItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenu" -- throws : False -- Skip return : False@@ -156,8 +214,8 @@  contextMenuNewWithItems ::     (MonadIO m, ContextMenuItemK a) =>-    [a] ->                                  -- items-    m ContextMenu+    [a]                                     -- items+    -> m ContextMenu                        -- result contextMenuNewWithItems items = liftIO $ do     let items' = map unsafeManagedPtrCastPtr items     items'' <- packGList items'@@ -170,9 +228,8 @@  -- method ContextMenu::append -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -185,9 +242,9 @@  contextMenuAppend ::     (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    m ()+    a                                       -- _obj+    -> b                                    -- item+    -> m ()                                 -- result contextMenuAppend _obj item = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let item' = unsafeManagedPtrCastPtr item@@ -196,11 +253,14 @@     touchManagedPtr item     return () +data ContextMenuAppendMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuAppendMethodInfo a signature where+    overloadedMethod _ = contextMenuAppend+ -- method ContextMenu::first -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -212,8 +272,8 @@  contextMenuFirst ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m ContextMenuItem+    a                                       -- _obj+    -> m ContextMenuItem                    -- result contextMenuFirst _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_first _obj'@@ -222,11 +282,14 @@     touchManagedPtr _obj     return result' +data ContextMenuFirstMethodInfo+instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuFirstMethodInfo a signature where+    overloadedMethod _ = contextMenuFirst+ -- method ContextMenu::get_item_at_position -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -239,9 +302,9 @@  contextMenuGetItemAtPosition ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- position-    m ContextMenuItem+    a                                       -- _obj+    -> Word32                               -- position+    -> m ContextMenuItem                    -- result contextMenuGetItemAtPosition _obj position = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_get_item_at_position _obj' position@@ -250,11 +313,14 @@     touchManagedPtr _obj     return result' +data ContextMenuGetItemAtPositionMethodInfo+instance (signature ~ (Word32 -> m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemAtPositionMethodInfo a signature where+    overloadedMethod _ = contextMenuGetItemAtPosition+ -- method ContextMenu::get_items -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "WebKit2" "ContextMenuItem") -- throws : False -- Skip return : False@@ -266,8 +332,8 @@  contextMenuGetItems ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m [ContextMenuItem]+    a                                       -- _obj+    -> m [ContextMenuItem]                  -- result contextMenuGetItems _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_get_items _obj'@@ -277,11 +343,14 @@     touchManagedPtr _obj     return result'' +data ContextMenuGetItemsMethodInfo+instance (signature ~ (m [ContextMenuItem]), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemsMethodInfo a signature where+    overloadedMethod _ = contextMenuGetItems+ -- method ContextMenu::get_n_items -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -293,19 +362,22 @@  contextMenuGetNItems ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result contextMenuGetNItems _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_get_n_items _obj'     touchManagedPtr _obj     return result +data ContextMenuGetNItemsMethodInfo+instance (signature ~ (m Word32), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetNItemsMethodInfo a signature where+    overloadedMethod _ = contextMenuGetNItems+ -- method ContextMenu::get_user_data -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False@@ -317,8 +389,8 @@  contextMenuGetUserData ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m GVariant+    a                                       -- _obj+    -> m GVariant                           -- result contextMenuGetUserData _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_get_user_data _obj'@@ -327,11 +399,14 @@     touchManagedPtr _obj     return result' +data ContextMenuGetUserDataMethodInfo+instance (signature ~ (m GVariant), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetUserDataMethodInfo a signature where+    overloadedMethod _ = contextMenuGetUserData+ -- method ContextMenu::insert -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -345,10 +420,10 @@  contextMenuInsert ::     (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    Int32 ->                                -- position-    m ()+    a                                       -- _obj+    -> b                                    -- item+    -> Int32                                -- position+    -> m ()                                 -- result contextMenuInsert _obj item position = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let item' = unsafeManagedPtrCastPtr item@@ -357,11 +432,14 @@     touchManagedPtr item     return () +data ContextMenuInsertMethodInfo+instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuInsertMethodInfo a signature where+    overloadedMethod _ = contextMenuInsert+ -- method ContextMenu::last -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -373,8 +451,8 @@  contextMenuLast ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m ContextMenuItem+    a                                       -- _obj+    -> m ContextMenuItem                    -- result contextMenuLast _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_last _obj'@@ -383,11 +461,14 @@     touchManagedPtr _obj     return result' +data ContextMenuLastMethodInfo+instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuLastMethodInfo a signature where+    overloadedMethod _ = contextMenuLast+ -- method ContextMenu::move_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -401,10 +482,10 @@  contextMenuMoveItem ::     (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    Int32 ->                                -- position-    m ()+    a                                       -- _obj+    -> b                                    -- item+    -> Int32                                -- position+    -> m ()                                 -- result contextMenuMoveItem _obj item position = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let item' = unsafeManagedPtrCastPtr item@@ -413,11 +494,14 @@     touchManagedPtr item     return () +data ContextMenuMoveItemMethodInfo+instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuMoveItemMethodInfo a signature where+    overloadedMethod _ = contextMenuMoveItem+ -- method ContextMenu::prepend -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -430,9 +514,9 @@  contextMenuPrepend ::     (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    m ()+    a                                       -- _obj+    -> b                                    -- item+    -> m ()                                 -- result contextMenuPrepend _obj item = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let item' = unsafeManagedPtrCastPtr item@@ -441,11 +525,14 @@     touchManagedPtr item     return () +data ContextMenuPrependMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuPrependMethodInfo a signature where+    overloadedMethod _ = contextMenuPrepend+ -- method ContextMenu::remove -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -458,9 +545,9 @@  contextMenuRemove ::     (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    m ()+    a                                       -- _obj+    -> b                                    -- item+    -> m ()                                 -- result contextMenuRemove _obj item = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let item' = unsafeManagedPtrCastPtr item@@ -469,11 +556,14 @@     touchManagedPtr item     return () +data ContextMenuRemoveMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuRemoveMethodInfo a signature where+    overloadedMethod _ = contextMenuRemove+ -- method ContextMenu::remove_all -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -485,19 +575,22 @@  contextMenuRemoveAll ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result contextMenuRemoveAll _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_context_menu_remove_all _obj'     touchManagedPtr _obj     return () +data ContextMenuRemoveAllMethodInfo+instance (signature ~ (m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuRemoveAllMethodInfo a signature where+    overloadedMethod _ = contextMenuRemoveAll+ -- method ContextMenu::set_user_data -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -510,14 +603,18 @@  contextMenuSetUserData ::     (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    GVariant ->                             -- user_data-    m ()-contextMenuSetUserData _obj user_data = liftIO $ do+    a                                       -- _obj+    -> GVariant                             -- userData+    -> m ()                                 -- result+contextMenuSetUserData _obj userData = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let user_data' = unsafeManagedPtrGetPtr user_data-    webkit_context_menu_set_user_data _obj' user_data'+    let userData' = unsafeManagedPtrGetPtr userData+    webkit_context_menu_set_user_data _obj' userData'     touchManagedPtr _obj     return ()++data ContextMenuSetUserDataMethodInfo+instance (signature ~ (GVariant -> m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuSetUserDataMethodInfo a signature where+    overloadedMethod _ = contextMenuSetUserData  

@@ -11,3 +11,16 @@ instance GObject ContextMenu where class GObject o => ContextMenuK o instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o+data ContextMenuAppendMethodInfo+data ContextMenuFirstMethodInfo+data ContextMenuGetItemAtPositionMethodInfo+data ContextMenuGetItemsMethodInfo+data ContextMenuGetNItemsMethodInfo+data ContextMenuGetUserDataMethodInfo+data ContextMenuInsertMethodInfo+data ContextMenuLastMethodInfo+data ContextMenuMoveItemMethodInfo+data ContextMenuPrependMethodInfo+data ContextMenuRemoveMethodInfo+data ContextMenuRemoveAllMethodInfo+data ContextMenuSetUserDataMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,18 +18,22 @@   -- * Methods -- ** contextMenuItemGetAction+    ContextMenuItemGetActionMethodInfo      ,     contextMenuItemGetAction                ,   -- ** contextMenuItemGetStockAction+    ContextMenuItemGetStockActionMethodInfo ,     contextMenuItemGetStockAction           ,   -- ** contextMenuItemGetSubmenu+    ContextMenuItemGetSubmenuMethodInfo     ,     contextMenuItemGetSubmenu               ,   -- ** contextMenuItemIsSeparator+    ContextMenuItemIsSeparatorMethodInfo    ,     contextMenuItemIsSeparator              ,  @@ -53,6 +58,7 @@   -- ** contextMenuItemSetSubmenu+    ContextMenuItemSetSubmenuMethodInfo     ,     contextMenuItemSetSubmenu               ,  @@ -93,17 +99,54 @@ noContextMenuItem :: Maybe ContextMenuItem noContextMenuItem = Nothing +type family ResolveContextMenuItemMethod (t :: Symbol) (o :: *) :: * where+    ResolveContextMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveContextMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveContextMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveContextMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveContextMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveContextMenuItemMethod "isSeparator" o = ContextMenuItemIsSeparatorMethodInfo+    ResolveContextMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveContextMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveContextMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveContextMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveContextMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveContextMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveContextMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveContextMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveContextMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveContextMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveContextMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveContextMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveContextMenuItemMethod "getAction" o = ContextMenuItemGetActionMethodInfo+    ResolveContextMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveContextMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveContextMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveContextMenuItemMethod "getStockAction" o = ContextMenuItemGetStockActionMethodInfo+    ResolveContextMenuItemMethod "getSubmenu" o = ContextMenuItemGetSubmenuMethodInfo+    ResolveContextMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveContextMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveContextMenuItemMethod "setSubmenu" o = ContextMenuItemSetSubmenuMethodInfo+    ResolveContextMenuItemMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabelProxy t (ContextMenuItem -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabel t (ContextMenuItem -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList ContextMenuItem = ContextMenuItemAttributeList type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList ContextMenuItem = ContextMenuItemSignalList-type ContextMenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type ContextMenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method ContextMenuItem::new -- method type : Constructor--- Args : [Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -115,8 +158,8 @@  contextMenuItemNew ::     (MonadIO m, Gtk.ActionK a) =>-    a ->                                    -- action-    m ContextMenuItem+    a                                       -- action+    -> m ContextMenuItem                    -- result contextMenuItemNew action = liftIO $ do     let action' = unsafeManagedPtrCastPtr action     result <- webkit_context_menu_item_new action'@@ -127,9 +170,8 @@  -- method ContextMenuItem::new_from_stock_action -- method type : Constructor--- Args : [Arg {argName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -141,8 +183,8 @@  contextMenuItemNewFromStockAction ::     (MonadIO m) =>-    ContextMenuAction ->                    -- action-    m ContextMenuItem+    ContextMenuAction                       -- action+    -> m ContextMenuItem                    -- result contextMenuItemNewFromStockAction action = liftIO $ do     let action' = (fromIntegral . fromEnum) action     result <- webkit_context_menu_item_new_from_stock_action action'@@ -152,9 +194,8 @@  -- method ContextMenuItem::new_from_stock_action_with_label -- method type : Constructor--- Args : [Arg {argName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -167,9 +208,9 @@  contextMenuItemNewFromStockActionWithLabel ::     (MonadIO m) =>-    ContextMenuAction ->                    -- action-    T.Text ->                               -- label-    m ContextMenuItem+    ContextMenuAction                       -- action+    -> T.Text                               -- label+    -> m ContextMenuItem                    -- result contextMenuItemNewFromStockActionWithLabel action label = liftIO $ do     let action' = (fromIntegral . fromEnum) action     label' <- textToCString label@@ -183,7 +224,6 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -194,7 +234,7 @@  contextMenuItemNewSeparator ::     (MonadIO m) =>-    m ContextMenuItem+    m ContextMenuItem                       -- result contextMenuItemNewSeparator  = liftIO $ do     result <- webkit_context_menu_item_new_separator     checkUnexpectedReturnNULL "webkit_context_menu_item_new_separator" result@@ -203,9 +243,8 @@  -- method ContextMenuItem::new_with_submenu -- method type : Constructor--- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuItem" -- throws : False -- Skip return : False@@ -218,9 +257,9 @@  contextMenuItemNewWithSubmenu ::     (MonadIO m, ContextMenuK a) =>-    T.Text ->                               -- label-    a ->                                    -- submenu-    m ContextMenuItem+    T.Text                                  -- label+    -> a                                    -- submenu+    -> m ContextMenuItem                    -- result contextMenuItemNewWithSubmenu label submenu = liftIO $ do     label' <- textToCString label     let submenu' = unsafeManagedPtrCastPtr submenu@@ -233,9 +272,8 @@  -- method ContextMenuItem::get_action -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Action" -- throws : False -- Skip return : False@@ -247,8 +285,8 @@  contextMenuItemGetAction ::     (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m Gtk.Action+    a                                       -- _obj+    -> m Gtk.Action                         -- result contextMenuItemGetAction _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_item_get_action _obj'@@ -257,11 +295,14 @@     touchManagedPtr _obj     return result' +data ContextMenuItemGetActionMethodInfo+instance (signature ~ (m Gtk.Action), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetActionMethodInfo a signature where+    overloadedMethod _ = contextMenuItemGetAction+ -- method ContextMenuItem::get_stock_action -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenuAction" -- throws : False -- Skip return : False@@ -273,8 +314,8 @@  contextMenuItemGetStockAction ::     (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m ContextMenuAction+    a                                       -- _obj+    -> m ContextMenuAction                  -- result contextMenuItemGetStockAction _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_item_get_stock_action _obj'@@ -282,11 +323,14 @@     touchManagedPtr _obj     return result' +data ContextMenuItemGetStockActionMethodInfo+instance (signature ~ (m ContextMenuAction), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetStockActionMethodInfo a signature where+    overloadedMethod _ = contextMenuItemGetStockAction+ -- method ContextMenuItem::get_submenu -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ContextMenu" -- throws : False -- Skip return : False@@ -298,8 +342,8 @@  contextMenuItemGetSubmenu ::     (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m ContextMenu+    a                                       -- _obj+    -> m ContextMenu                        -- result contextMenuItemGetSubmenu _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_item_get_submenu _obj'@@ -308,11 +352,14 @@     touchManagedPtr _obj     return result' +data ContextMenuItemGetSubmenuMethodInfo+instance (signature ~ (m ContextMenu), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetSubmenuMethodInfo a signature where+    overloadedMethod _ = contextMenuItemGetSubmenu+ -- method ContextMenuItem::is_separator -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -324,8 +371,8 @@  contextMenuItemIsSeparator ::     (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result contextMenuItemIsSeparator _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_context_menu_item_is_separator _obj'@@ -333,11 +380,14 @@     touchManagedPtr _obj     return result' +data ContextMenuItemIsSeparatorMethodInfo+instance (signature ~ (m Bool), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemIsSeparatorMethodInfo a signature where+    overloadedMethod _ = contextMenuItemIsSeparator+ -- method ContextMenuItem::set_submenu -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -350,9 +400,9 @@  contextMenuItemSetSubmenu ::     (MonadIO m, ContextMenuItemK a, ContextMenuK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- submenu-    m ()+    a                                       -- _obj+    -> Maybe (b)                            -- submenu+    -> m ()                                 -- result contextMenuItemSetSubmenu _obj submenu = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeSubmenu <- case submenu of@@ -364,5 +414,9 @@     touchManagedPtr _obj     whenJust submenu touchManagedPtr     return ()++data ContextMenuItemSetSubmenuMethodInfo+instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ContextMenuItemK a, ContextMenuK b) => MethodInfo ContextMenuItemSetSubmenuMethodInfo a signature where+    overloadedMethod _ = contextMenuItemSetSubmenu  

@@ -11,3 +11,8 @@ instance GObject ContextMenuItem where class GObject o => ContextMenuItemK o instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o+data ContextMenuItemGetActionMethodInfo+data ContextMenuItemGetStockActionMethodInfo+data ContextMenuItemGetSubmenuMethodInfo+data ContextMenuItemIsSeparatorMethodInfo+data ContextMenuItemSetSubmenuMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,34 +18,42 @@   -- * Methods -- ** cookieManagerDeleteAllCookies+    CookieManagerDeleteAllCookiesMethodInfo ,     cookieManagerDeleteAllCookies           ,   -- ** cookieManagerDeleteCookiesForDomain+    CookieManagerDeleteCookiesForDomainMethodInfo,     cookieManagerDeleteCookiesForDomain     ,   -- ** cookieManagerGetAcceptPolicy+    CookieManagerGetAcceptPolicyMethodInfo  ,     cookieManagerGetAcceptPolicy            ,   -- ** cookieManagerGetAcceptPolicyFinish+    CookieManagerGetAcceptPolicyFinishMethodInfo,     cookieManagerGetAcceptPolicyFinish      ,   -- ** cookieManagerGetDomainsWithCookies+    CookieManagerGetDomainsWithCookiesMethodInfo,     cookieManagerGetDomainsWithCookies      ,   -- ** cookieManagerGetDomainsWithCookiesFinish+    CookieManagerGetDomainsWithCookiesFinishMethodInfo,     cookieManagerGetDomainsWithCookiesFinish,   -- ** cookieManagerSetAcceptPolicy+    CookieManagerSetAcceptPolicyMethodInfo  ,     cookieManagerSetAcceptPolicy            ,   -- ** cookieManagerSetPersistentStorage+    CookieManagerSetPersistentStorageMethodInfo,     cookieManagerSetPersistentStorage       ,  @@ -100,6 +109,47 @@ noCookieManager :: Maybe CookieManager noCookieManager = Nothing +type family ResolveCookieManagerMethod (t :: Symbol) (o :: *) :: * where+    ResolveCookieManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveCookieManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveCookieManagerMethod "deleteAllCookies" o = CookieManagerDeleteAllCookiesMethodInfo+    ResolveCookieManagerMethod "deleteCookiesForDomain" o = CookieManagerDeleteCookiesForDomainMethodInfo+    ResolveCookieManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveCookieManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveCookieManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveCookieManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveCookieManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveCookieManagerMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveCookieManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveCookieManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveCookieManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveCookieManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveCookieManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveCookieManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveCookieManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveCookieManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveCookieManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveCookieManagerMethod "getAcceptPolicy" o = CookieManagerGetAcceptPolicyMethodInfo+    ResolveCookieManagerMethod "getAcceptPolicyFinish" o = CookieManagerGetAcceptPolicyFinishMethodInfo+    ResolveCookieManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveCookieManagerMethod "getDomainsWithCookies" o = CookieManagerGetDomainsWithCookiesMethodInfo+    ResolveCookieManagerMethod "getDomainsWithCookiesFinish" o = CookieManagerGetDomainsWithCookiesFinishMethodInfo+    ResolveCookieManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveCookieManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveCookieManagerMethod "setAcceptPolicy" o = CookieManagerSetAcceptPolicyMethodInfo+    ResolveCookieManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveCookieManagerMethod "setPersistentStorage" o = CookieManagerSetPersistentStorageMethodInfo+    ResolveCookieManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveCookieManagerMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveCookieManagerMethod t CookieManager, MethodInfo info CookieManager p) => IsLabelProxy t (CookieManager -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveCookieManagerMethod t CookieManager, MethodInfo info CookieManager p) => IsLabel t (CookieManager -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal CookieManager::changed type CookieManagerChangedCallback =     IO ()@@ -147,13 +197,12 @@     connectSignal _ = connectCookieManagerChanged  type instance SignalList CookieManager = CookieManagerSignalList-type CookieManagerSignalList = ('[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type CookieManagerSignalList = ('[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method CookieManager::delete_all_cookies -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -165,19 +214,22 @@  cookieManagerDeleteAllCookies ::     (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result cookieManagerDeleteAllCookies _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_cookie_manager_delete_all_cookies _obj'     touchManagedPtr _obj     return () +data CookieManagerDeleteAllCookiesMethodInfo+instance (signature ~ (m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerDeleteAllCookiesMethodInfo a signature where+    overloadedMethod _ = cookieManagerDeleteAllCookies+ -- method CookieManager::delete_cookies_for_domain -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -190,9 +242,9 @@  cookieManagerDeleteCookiesForDomain ::     (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- domain-    m ()+    a                                       -- _obj+    -> T.Text                               -- domain+    -> m ()                                 -- result cookieManagerDeleteCookiesForDomain _obj domain = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     domain' <- textToCString domain@@ -201,11 +253,14 @@     freeMem domain'     return () +data CookieManagerDeleteCookiesForDomainMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerDeleteCookiesForDomainMethodInfo a signature where+    overloadedMethod _ = cookieManagerDeleteCookiesForDomain+ -- method CookieManager::get_accept_policy -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -220,10 +275,10 @@  cookieManagerGetAcceptPolicy ::     (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()+    a                                       -- _obj+    -> Maybe (b)                            -- cancellable+    -> Maybe (Gio.AsyncReadyCallback)       -- callback+    -> m ()                                 -- result cookieManagerGetAcceptPolicy _obj cancellable callback = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeCancellable <- case cancellable of@@ -238,17 +293,20 @@             jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)             poke ptrcallback jCallback'             return jCallback'-    let user_data = nullPtr-    webkit_cookie_manager_get_accept_policy _obj' maybeCancellable maybeCallback user_data+    let userData = nullPtr+    webkit_cookie_manager_get_accept_policy _obj' maybeCancellable maybeCallback userData     touchManagedPtr _obj     whenJust cancellable touchManagedPtr     return () +data CookieManagerGetAcceptPolicyMethodInfo+instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, CookieManagerK a, Gio.CancellableK b) => MethodInfo CookieManagerGetAcceptPolicyMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetAcceptPolicy+ -- method CookieManager::get_accept_policy_finish -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "CookieAcceptPolicy" -- throws : True -- Skip return : False@@ -262,9 +320,9 @@  cookieManagerGetAcceptPolicyFinish ::     (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m CookieAcceptPolicy+    a                                       -- _obj+    -> b                                    -- result_+    -> m CookieAcceptPolicy                 -- result cookieManagerGetAcceptPolicyFinish _obj result_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let result_' = unsafeManagedPtrCastPtr result_@@ -278,11 +336,14 @@         return ()      ) +data CookieManagerGetAcceptPolicyFinishMethodInfo+instance (signature ~ (b -> m CookieAcceptPolicy), MonadIO m, CookieManagerK a, Gio.AsyncResultK b) => MethodInfo CookieManagerGetAcceptPolicyFinishMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetAcceptPolicyFinish+ -- method CookieManager::get_domains_with_cookies -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -297,10 +358,10 @@  cookieManagerGetDomainsWithCookies ::     (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()+    a                                       -- _obj+    -> Maybe (b)                            -- cancellable+    -> Maybe (Gio.AsyncReadyCallback)       -- callback+    -> m ()                                 -- result cookieManagerGetDomainsWithCookies _obj cancellable callback = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeCancellable <- case cancellable of@@ -315,17 +376,20 @@             jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)             poke ptrcallback jCallback'             return jCallback'-    let user_data = nullPtr-    webkit_cookie_manager_get_domains_with_cookies _obj' maybeCancellable maybeCallback user_data+    let userData = nullPtr+    webkit_cookie_manager_get_domains_with_cookies _obj' maybeCancellable maybeCallback userData     touchManagedPtr _obj     whenJust cancellable touchManagedPtr     return () +data CookieManagerGetDomainsWithCookiesMethodInfo+instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, CookieManagerK a, Gio.CancellableK b) => MethodInfo CookieManagerGetDomainsWithCookiesMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetDomainsWithCookies+ -- method CookieManager::get_domains_with_cookies_finish -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : True -- Skip return : False@@ -339,9 +403,9 @@  cookieManagerGetDomainsWithCookiesFinish ::     (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m [T.Text]+    a                                       -- _obj+    -> b                                    -- result_+    -> m [T.Text]                           -- result cookieManagerGetDomainsWithCookiesFinish _obj result_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let result_' = unsafeManagedPtrCastPtr result_@@ -358,11 +422,14 @@         return ()      ) +data CookieManagerGetDomainsWithCookiesFinishMethodInfo+instance (signature ~ (b -> m [T.Text]), MonadIO m, CookieManagerK a, Gio.AsyncResultK b) => MethodInfo CookieManagerGetDomainsWithCookiesFinishMethodInfo a signature where+    overloadedMethod _ = cookieManagerGetDomainsWithCookiesFinish+ -- method CookieManager::set_accept_policy -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit2" "CookieAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "WebKit2" "CookieAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit2" "CookieAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -375,9 +442,9 @@  cookieManagerSetAcceptPolicy ::     (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    CookieAcceptPolicy ->                   -- policy-    m ()+    a                                       -- _obj+    -> CookieAcceptPolicy                   -- policy+    -> m ()                                 -- result cookieManagerSetAcceptPolicy _obj policy = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let policy' = (fromIntegral . fromEnum) policy@@ -385,11 +452,14 @@     touchManagedPtr _obj     return () +data CookieManagerSetAcceptPolicyMethodInfo+instance (signature ~ (CookieAcceptPolicy -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerSetAcceptPolicyMethodInfo a signature where+    overloadedMethod _ = cookieManagerSetAcceptPolicy+ -- method CookieManager::set_persistent_storage -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "storage", argType = TInterface "WebKit2" "CookiePersistentStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "storage", argType = TInterface "WebKit2" "CookiePersistentStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "storage", argType = TInterface "WebKit2" "CookiePersistentStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -403,10 +473,10 @@  cookieManagerSetPersistentStorage ::     (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- filename-    CookiePersistentStorage ->              -- storage-    m ()+    a                                       -- _obj+    -> T.Text                               -- filename+    -> CookiePersistentStorage              -- storage+    -> m ()                                 -- result cookieManagerSetPersistentStorage _obj filename storage = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     filename' <- textToCString filename@@ -415,5 +485,9 @@     touchManagedPtr _obj     freeMem filename'     return ()++data CookieManagerSetPersistentStorageMethodInfo+instance (signature ~ (T.Text -> CookiePersistentStorage -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerSetPersistentStorageMethodInfo a signature where+    overloadedMethod _ = cookieManagerSetPersistentStorage  

@@ -12,3 +12,11 @@ class GObject o => CookieManagerK o instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o data CookieManagerChangedSignalInfo+data CookieManagerDeleteAllCookiesMethodInfo+data CookieManagerDeleteCookiesForDomainMethodInfo+data CookieManagerGetAcceptPolicyMethodInfo+data CookieManagerGetAcceptPolicyFinishMethodInfo+data CookieManagerGetDomainsWithCookiesMethodInfo+data CookieManagerGetDomainsWithCookiesFinishMethodInfo+data CookieManagerSetAcceptPolicyMethodInfo+data CookieManagerSetPersistentStorageMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,46 +18,57 @@   -- * Methods -- ** downloadCancel+    DownloadCancelMethodInfo                ,     downloadCancel                          ,   -- ** downloadGetAllowOverwrite+    DownloadGetAllowOverwriteMethodInfo     ,     downloadGetAllowOverwrite               ,   -- ** downloadGetDestination+    DownloadGetDestinationMethodInfo        ,     downloadGetDestination                  ,   -- ** downloadGetElapsedTime+    DownloadGetElapsedTimeMethodInfo        ,     downloadGetElapsedTime                  ,   -- ** downloadGetEstimatedProgress+    DownloadGetEstimatedProgressMethodInfo  ,     downloadGetEstimatedProgress            ,   -- ** downloadGetReceivedDataLength+    DownloadGetReceivedDataLengthMethodInfo ,     downloadGetReceivedDataLength           ,   -- ** downloadGetRequest+    DownloadGetRequestMethodInfo            ,     downloadGetRequest                      ,   -- ** downloadGetResponse+    DownloadGetResponseMethodInfo           ,     downloadGetResponse                     ,   -- ** downloadGetWebView+    DownloadGetWebViewMethodInfo            ,     downloadGetWebView                      ,   -- ** downloadSetAllowOverwrite+    DownloadSetAllowOverwriteMethodInfo     ,     downloadSetAllowOverwrite               ,   -- ** downloadSetDestination+    DownloadSetDestinationMethodInfo        ,     downloadSetDestination                  ,  @@ -184,6 +196,50 @@ noDownload :: Maybe Download noDownload = Nothing +type family ResolveDownloadMethod (t :: Symbol) (o :: *) :: * where+    ResolveDownloadMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveDownloadMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveDownloadMethod "cancel" o = DownloadCancelMethodInfo+    ResolveDownloadMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveDownloadMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveDownloadMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveDownloadMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveDownloadMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveDownloadMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveDownloadMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveDownloadMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveDownloadMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveDownloadMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveDownloadMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveDownloadMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveDownloadMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveDownloadMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveDownloadMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveDownloadMethod "getAllowOverwrite" o = DownloadGetAllowOverwriteMethodInfo+    ResolveDownloadMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveDownloadMethod "getDestination" o = DownloadGetDestinationMethodInfo+    ResolveDownloadMethod "getElapsedTime" o = DownloadGetElapsedTimeMethodInfo+    ResolveDownloadMethod "getEstimatedProgress" o = DownloadGetEstimatedProgressMethodInfo+    ResolveDownloadMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveDownloadMethod "getQdata" o = GObject.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.ObjectSetDataMethodInfo+    ResolveDownloadMethod "setDestination" o = DownloadSetDestinationMethodInfo+    ResolveDownloadMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveDownloadMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveDownloadMethod t Download, MethodInfo info Download p) => IsLabelProxy t (Download -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveDownloadMethod t Download, MethodInfo info Download p) => IsLabel t (Download -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Download::created-destination type DownloadCreatedDestinationCallback =     T.Text ->@@ -253,9 +309,9 @@     CString ->     Ptr () ->     IO CInt-downloadDecideDestinationCallbackWrapper _cb _ suggested_filename _ = do-    suggested_filename' <- cstringToText suggested_filename-    result <- _cb  suggested_filename'+downloadDecideDestinationCallbackWrapper _cb _ suggestedFilename _ = do+    suggestedFilename' <- cstringToText suggestedFilename+    result <- _cb  suggestedFilename'     let result' = (fromIntegral . fromEnum) result     return result' @@ -376,8 +432,8 @@     Word64 ->     Ptr () ->     IO ()-downloadReceivedDataCallbackWrapper _cb _ data_length _ = do-    _cb  data_length+downloadReceivedDataCallbackWrapper _cb _ dataLength _ = do+    _cb  dataLength  onDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId onDownloadReceivedData obj cb = liftIO $ connectDownloadReceivedData obj cb SignalConnectBefore@@ -409,7 +465,7 @@     type AttrSetTypeConstraint DownloadAllowOverwritePropertyInfo = (~) Bool     type AttrBaseTypeConstraint DownloadAllowOverwritePropertyInfo = DownloadK     type AttrGetType DownloadAllowOverwritePropertyInfo = Bool-    type AttrLabel DownloadAllowOverwritePropertyInfo = "Download::allow-overwrite"+    type AttrLabel DownloadAllowOverwritePropertyInfo = "allow-overwrite"     attrGet _ = getDownloadAllowOverwrite     attrSet _ = setDownloadAllowOverwrite     attrConstruct _ = constructDownloadAllowOverwrite@@ -427,7 +483,7 @@     type AttrSetTypeConstraint DownloadDestinationPropertyInfo = (~) ()     type AttrBaseTypeConstraint DownloadDestinationPropertyInfo = DownloadK     type AttrGetType DownloadDestinationPropertyInfo = T.Text-    type AttrLabel DownloadDestinationPropertyInfo = "Download::destination"+    type AttrLabel DownloadDestinationPropertyInfo = "destination"     attrGet _ = getDownloadDestination     attrSet _ = undefined     attrConstruct _ = undefined@@ -445,7 +501,7 @@     type AttrSetTypeConstraint DownloadEstimatedProgressPropertyInfo = (~) ()     type AttrBaseTypeConstraint DownloadEstimatedProgressPropertyInfo = DownloadK     type AttrGetType DownloadEstimatedProgressPropertyInfo = Double-    type AttrLabel DownloadEstimatedProgressPropertyInfo = "Download::estimated-progress"+    type AttrLabel DownloadEstimatedProgressPropertyInfo = "estimated-progress"     attrGet _ = getDownloadEstimatedProgress     attrSet _ = undefined     attrConstruct _ = undefined@@ -463,13 +519,13 @@     type AttrSetTypeConstraint DownloadResponsePropertyInfo = (~) ()     type AttrBaseTypeConstraint DownloadResponsePropertyInfo = DownloadK     type AttrGetType DownloadResponsePropertyInfo = URIResponse-    type AttrLabel DownloadResponsePropertyInfo = "Download::response"+    type AttrLabel DownloadResponsePropertyInfo = "response"     attrGet _ = getDownloadResponse     attrSet _ = undefined     attrConstruct _ = undefined  type instance AttributeList Download = DownloadAttributeList-type DownloadAttributeList = ('[ '("allow-overwrite", DownloadAllowOverwritePropertyInfo), '("destination", DownloadDestinationPropertyInfo), '("estimated-progress", DownloadEstimatedProgressPropertyInfo), '("response", DownloadResponsePropertyInfo)] :: [(Symbol, *)])+type DownloadAttributeList = ('[ '("allowOverwrite", DownloadAllowOverwritePropertyInfo), '("destination", DownloadDestinationPropertyInfo), '("estimatedProgress", DownloadEstimatedProgressPropertyInfo), '("response", DownloadResponsePropertyInfo)] :: [(Symbol, *)])  data DownloadCreatedDestinationSignalInfo instance SignalInfo DownloadCreatedDestinationSignalInfo where@@ -497,13 +553,12 @@     connectSignal _ = connectDownloadReceivedData  type instance SignalList Download = DownloadSignalList-type DownloadSignalList = ('[ '("created-destination", DownloadCreatedDestinationSignalInfo), '("decide-destination", DownloadDecideDestinationSignalInfo), '("failed", DownloadFailedSignalInfo), '("finished", DownloadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("received-data", DownloadReceivedDataSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type DownloadSignalList = ('[ '("createdDestination", DownloadCreatedDestinationSignalInfo), '("decideDestination", DownloadDecideDestinationSignalInfo), '("failed", DownloadFailedSignalInfo), '("finished", DownloadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("receivedData", DownloadReceivedDataSignalInfo)] :: [(Symbol, *)])  -- method Download::cancel -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -515,19 +570,22 @@  downloadCancel ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result downloadCancel _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_download_cancel _obj'     touchManagedPtr _obj     return () +data DownloadCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, DownloadK a) => MethodInfo DownloadCancelMethodInfo a signature where+    overloadedMethod _ = downloadCancel+ -- method Download::get_allow_overwrite -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -539,8 +597,8 @@  downloadGetAllowOverwrite ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result downloadGetAllowOverwrite _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_allow_overwrite _obj'@@ -548,11 +606,14 @@     touchManagedPtr _obj     return result' +data DownloadGetAllowOverwriteMethodInfo+instance (signature ~ (m Bool), MonadIO m, DownloadK a) => MethodInfo DownloadGetAllowOverwriteMethodInfo a signature where+    overloadedMethod _ = downloadGetAllowOverwrite+ -- method Download::get_destination -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -564,8 +625,8 @@  downloadGetDestination ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result downloadGetDestination _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_destination _obj'@@ -574,11 +635,14 @@     touchManagedPtr _obj     return result' +data DownloadGetDestinationMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DownloadK a) => MethodInfo DownloadGetDestinationMethodInfo a signature where+    overloadedMethod _ = downloadGetDestination+ -- method Download::get_elapsed_time -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False@@ -590,8 +654,8 @@  downloadGetElapsedTime ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Double+    a                                       -- _obj+    -> m Double                             -- result downloadGetElapsedTime _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_elapsed_time _obj'@@ -599,11 +663,14 @@     touchManagedPtr _obj     return result' +data DownloadGetElapsedTimeMethodInfo+instance (signature ~ (m Double), MonadIO m, DownloadK a) => MethodInfo DownloadGetElapsedTimeMethodInfo a signature where+    overloadedMethod _ = downloadGetElapsedTime+ -- method Download::get_estimated_progress -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False@@ -615,8 +682,8 @@  downloadGetEstimatedProgress ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Double+    a                                       -- _obj+    -> m Double                             -- result downloadGetEstimatedProgress _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_estimated_progress _obj'@@ -624,11 +691,14 @@     touchManagedPtr _obj     return result' +data DownloadGetEstimatedProgressMethodInfo+instance (signature ~ (m Double), MonadIO m, DownloadK a) => MethodInfo DownloadGetEstimatedProgressMethodInfo a signature where+    overloadedMethod _ = downloadGetEstimatedProgress+ -- method Download::get_received_data_length -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False@@ -640,19 +710,22 @@  downloadGetReceivedDataLength ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Word64+    a                                       -- _obj+    -> m Word64                             -- result downloadGetReceivedDataLength _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_received_data_length _obj'     touchManagedPtr _obj     return result +data DownloadGetReceivedDataLengthMethodInfo+instance (signature ~ (m Word64), MonadIO m, DownloadK a) => MethodInfo DownloadGetReceivedDataLengthMethodInfo a signature where+    overloadedMethod _ = downloadGetReceivedDataLength+ -- method Download::get_request -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIRequest" -- throws : False -- Skip return : False@@ -664,8 +737,8 @@  downloadGetRequest ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m URIRequest+    a                                       -- _obj+    -> m URIRequest                         -- result downloadGetRequest _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_request _obj'@@ -674,11 +747,14 @@     touchManagedPtr _obj     return result' +data DownloadGetRequestMethodInfo+instance (signature ~ (m URIRequest), MonadIO m, DownloadK a) => MethodInfo DownloadGetRequestMethodInfo a signature where+    overloadedMethod _ = downloadGetRequest+ -- method Download::get_response -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIResponse" -- throws : False -- Skip return : False@@ -690,8 +766,8 @@  downloadGetResponse ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m URIResponse+    a                                       -- _obj+    -> m URIResponse                        -- result downloadGetResponse _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_response _obj'@@ -700,11 +776,14 @@     touchManagedPtr _obj     return result' +data DownloadGetResponseMethodInfo+instance (signature ~ (m URIResponse), MonadIO m, DownloadK a) => MethodInfo DownloadGetResponseMethodInfo a signature where+    overloadedMethod _ = downloadGetResponse+ -- method Download::get_web_view -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "WebView" -- throws : False -- Skip return : False@@ -716,8 +795,8 @@  downloadGetWebView ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m WebView+    a                                       -- _obj+    -> m WebView                            -- result downloadGetWebView _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_download_get_web_view _obj'@@ -726,11 +805,14 @@     touchManagedPtr _obj     return result' +data DownloadGetWebViewMethodInfo+instance (signature ~ (m WebView), MonadIO m, DownloadK a) => MethodInfo DownloadGetWebViewMethodInfo a signature where+    overloadedMethod _ = downloadGetWebView+ -- method Download::set_allow_overwrite -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -743,9 +825,9 @@  downloadSetAllowOverwrite ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- allowed-    m ()+    a                                       -- _obj+    -> Bool                                 -- allowed+    -> m ()                                 -- result downloadSetAllowOverwrite _obj allowed = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let allowed' = (fromIntegral . fromEnum) allowed@@ -753,11 +835,14 @@     touchManagedPtr _obj     return () +data DownloadSetAllowOverwriteMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, DownloadK a) => MethodInfo DownloadSetAllowOverwriteMethodInfo a signature where+    overloadedMethod _ = downloadSetAllowOverwrite+ -- method Download::set_destination -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -770,9 +855,9 @@  downloadSetDestination ::     (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri-    m ()+    a                                       -- _obj+    -> T.Text                               -- uri+    -> m ()                                 -- result downloadSetDestination _obj uri = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     uri' <- textToCString uri@@ -780,5 +865,9 @@     touchManagedPtr _obj     freeMem uri'     return ()++data DownloadSetDestinationMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, DownloadK a) => MethodInfo DownloadSetDestinationMethodInfo a signature where+    overloadedMethod _ = downloadSetDestination  

@@ -20,3 +20,14 @@ data DownloadFailedSignalInfo data DownloadFinishedSignalInfo data DownloadReceivedDataSignalInfo+data DownloadCancelMethodInfo+data DownloadGetAllowOverwriteMethodInfo+data DownloadGetDestinationMethodInfo+data DownloadGetElapsedTimeMethodInfo+data DownloadGetEstimatedProgressMethodInfo+data DownloadGetReceivedDataLengthMethodInfo+data DownloadGetRequestMethodInfo+data DownloadGetResponseMethodInfo+data DownloadGetWebViewMethodInfo+data DownloadSetAllowOverwriteMethodInfo+data DownloadSetDestinationMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** editorStateGetTypingAttributes+    EditorStateGetTypingAttributesMethodInfo,     editorStateGetTypingAttributes          ,  @@ -64,6 +66,40 @@ noEditorState :: Maybe EditorState noEditorState = Nothing +type family ResolveEditorStateMethod (t :: Symbol) (o :: *) :: * where+    ResolveEditorStateMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveEditorStateMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveEditorStateMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveEditorStateMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveEditorStateMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveEditorStateMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveEditorStateMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveEditorStateMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveEditorStateMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveEditorStateMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveEditorStateMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveEditorStateMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveEditorStateMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveEditorStateMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveEditorStateMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveEditorStateMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveEditorStateMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveEditorStateMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveEditorStateMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveEditorStateMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveEditorStateMethod "getTypingAttributes" o = EditorStateGetTypingAttributesMethodInfo+    ResolveEditorStateMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveEditorStateMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveEditorStateMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveEditorStateMethod t EditorState, MethodInfo info EditorState p) => IsLabelProxy t (EditorState -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveEditorStateMethod t EditorState, MethodInfo info EditorState p) => IsLabel t (EditorState -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- VVV Prop "typing-attributes"    -- Type: TBasicType TUInt32    -- Flags: [PropertyReadable]@@ -77,22 +113,21 @@     type AttrSetTypeConstraint EditorStateTypingAttributesPropertyInfo = (~) ()     type AttrBaseTypeConstraint EditorStateTypingAttributesPropertyInfo = EditorStateK     type AttrGetType EditorStateTypingAttributesPropertyInfo = Word32-    type AttrLabel EditorStateTypingAttributesPropertyInfo = "EditorState::typing-attributes"+    type AttrLabel EditorStateTypingAttributesPropertyInfo = "typing-attributes"     attrGet _ = getEditorStateTypingAttributes     attrSet _ = undefined     attrConstruct _ = undefined  type instance AttributeList EditorState = EditorStateAttributeList-type EditorStateAttributeList = ('[ '("typing-attributes", EditorStateTypingAttributesPropertyInfo)] :: [(Symbol, *)])+type EditorStateAttributeList = ('[ '("typingAttributes", EditorStateTypingAttributesPropertyInfo)] :: [(Symbol, *)])  type instance SignalList EditorState = EditorStateSignalList-type EditorStateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type EditorStateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method EditorState::get_typing_attributes -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "EditorState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "EditorState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "EditorState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -104,12 +139,16 @@  editorStateGetTypingAttributes ::     (MonadIO m, EditorStateK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result editorStateGetTypingAttributes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_editor_state_get_typing_attributes _obj'     touchManagedPtr _obj     return result++data EditorStateGetTypingAttributesMethodInfo+instance (signature ~ (m Word32), MonadIO m, EditorStateK a) => MethodInfo EditorStateGetTypingAttributesMethodInfo a signature where+    overloadedMethod _ = editorStateGetTypingAttributes  

@@ -12,3 +12,4 @@ class GObject o => EditorStateK o instance (GObject o, IsDescendantOf EditorState o) => EditorStateK o data EditorStateTypingAttributesPropertyInfo+data EditorStateGetTypingAttributesMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,18 +18,22 @@   -- * Methods -- ** faviconDatabaseClear+    FaviconDatabaseClearMethodInfo          ,     faviconDatabaseClear                    ,   -- ** faviconDatabaseGetFavicon+    FaviconDatabaseGetFaviconMethodInfo     ,     faviconDatabaseGetFavicon               ,   -- ** faviconDatabaseGetFaviconFinish+    FaviconDatabaseGetFaviconFinishMethodInfo,     faviconDatabaseGetFaviconFinish         ,   -- ** faviconDatabaseGetFaviconUri+    FaviconDatabaseGetFaviconUriMethodInfo  ,     faviconDatabaseGetFaviconUri            ,  @@ -85,6 +90,43 @@ noFaviconDatabase :: Maybe FaviconDatabase noFaviconDatabase = Nothing +type family ResolveFaviconDatabaseMethod (t :: Symbol) (o :: *) :: * where+    ResolveFaviconDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFaviconDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFaviconDatabaseMethod "clear" o = FaviconDatabaseClearMethodInfo+    ResolveFaviconDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFaviconDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFaviconDatabaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFaviconDatabaseMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFaviconDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFaviconDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFaviconDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFaviconDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFaviconDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFaviconDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFaviconDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFaviconDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFaviconDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFaviconDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFaviconDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFaviconDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFaviconDatabaseMethod "getFavicon" o = FaviconDatabaseGetFaviconMethodInfo+    ResolveFaviconDatabaseMethod "getFaviconFinish" o = FaviconDatabaseGetFaviconFinishMethodInfo+    ResolveFaviconDatabaseMethod "getFaviconUri" o = FaviconDatabaseGetFaviconUriMethodInfo+    ResolveFaviconDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFaviconDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFaviconDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFaviconDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFaviconDatabaseMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFaviconDatabaseMethod t FaviconDatabase, MethodInfo info FaviconDatabase p) => IsLabelProxy t (FaviconDatabase -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFaviconDatabaseMethod t FaviconDatabase, MethodInfo info FaviconDatabase p) => IsLabel t (FaviconDatabase -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal FaviconDatabase::favicon-changed type FaviconDatabaseFaviconChangedCallback =     T.Text ->@@ -115,10 +157,10 @@     CString ->     Ptr () ->     IO ()-faviconDatabaseFaviconChangedCallbackWrapper _cb _ page_uri favicon_uri _ = do-    page_uri' <- cstringToText page_uri-    favicon_uri' <- cstringToText favicon_uri-    _cb  page_uri' favicon_uri'+faviconDatabaseFaviconChangedCallbackWrapper _cb _ pageUri faviconUri _ = do+    pageUri' <- cstringToText pageUri+    faviconUri' <- cstringToText faviconUri+    _cb  pageUri' faviconUri'  onFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId onFaviconDatabaseFaviconChanged obj cb = liftIO $ connectFaviconDatabaseFaviconChanged obj cb SignalConnectBefore@@ -140,13 +182,12 @@     connectSignal _ = connectFaviconDatabaseFaviconChanged  type instance SignalList FaviconDatabase = FaviconDatabaseSignalList-type FaviconDatabaseSignalList = ('[ '("favicon-changed", FaviconDatabaseFaviconChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FaviconDatabaseSignalList = ('[ '("faviconChanged", FaviconDatabaseFaviconChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method FaviconDatabase::clear -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -158,19 +199,22 @@  faviconDatabaseClear ::     (MonadIO m, FaviconDatabaseK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result faviconDatabaseClear _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_favicon_database_clear _obj'     touchManagedPtr _obj     return () +data FaviconDatabaseClearMethodInfo+instance (signature ~ (m ()), MonadIO m, FaviconDatabaseK a) => MethodInfo FaviconDatabaseClearMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseClear+ -- method FaviconDatabase::get_favicon -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -186,14 +230,14 @@  faviconDatabaseGetFavicon ::     (MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    T.Text ->                               -- page_uri-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-faviconDatabaseGetFavicon _obj page_uri cancellable callback = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- pageUri+    -> Maybe (b)                            -- cancellable+    -> Maybe (Gio.AsyncReadyCallback)       -- callback+    -> m ()                                 -- result+faviconDatabaseGetFavicon _obj pageUri cancellable callback = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    page_uri' <- textToCString page_uri+    pageUri' <- textToCString pageUri     maybeCancellable <- case cancellable of         Nothing -> return nullPtr         Just jCancellable -> do@@ -206,18 +250,21 @@             jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)             poke ptrcallback jCallback'             return jCallback'-    let user_data = nullPtr-    webkit_favicon_database_get_favicon _obj' page_uri' maybeCancellable maybeCallback user_data+    let userData = nullPtr+    webkit_favicon_database_get_favicon _obj' pageUri' maybeCancellable maybeCallback userData     touchManagedPtr _obj     whenJust cancellable touchManagedPtr-    freeMem page_uri'+    freeMem pageUri'     return () +data FaviconDatabaseGetFaviconMethodInfo+instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) => MethodInfo FaviconDatabaseGetFaviconMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseGetFavicon+ -- method FaviconDatabase::get_favicon_finish -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : True -- Skip return : False@@ -231,9 +278,9 @@  faviconDatabaseGetFaviconFinish ::     (MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m Cairo.Surface+    a                                       -- _obj+    -> b                                    -- result_+    -> m Cairo.Surface                      -- result faviconDatabaseGetFaviconFinish _obj result_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let result_' = unsafeManagedPtrCastPtr result_@@ -248,11 +295,14 @@         return ()      ) +data FaviconDatabaseGetFaviconFinishMethodInfo+instance (signature ~ (b -> m Cairo.Surface), MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) => MethodInfo FaviconDatabaseGetFaviconFinishMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseGetFaviconFinish+ -- method FaviconDatabase::get_favicon_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -265,18 +315,22 @@  faviconDatabaseGetFaviconUri ::     (MonadIO m, FaviconDatabaseK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- page_uri-    m T.Text-faviconDatabaseGetFaviconUri _obj page_uri = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- pageUri+    -> m T.Text                             -- result+faviconDatabaseGetFaviconUri _obj pageUri = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    page_uri' <- textToCString page_uri-    result <- webkit_favicon_database_get_favicon_uri _obj' page_uri'+    pageUri' <- textToCString pageUri+    result <- webkit_favicon_database_get_favicon_uri _obj' pageUri'     checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_uri" result     result' <- cstringToText result     freeMem result     touchManagedPtr _obj-    freeMem page_uri'+    freeMem pageUri'     return result'++data FaviconDatabaseGetFaviconUriMethodInfo+instance (signature ~ (T.Text -> m T.Text), MonadIO m, FaviconDatabaseK a) => MethodInfo FaviconDatabaseGetFaviconUriMethodInfo a signature where+    overloadedMethod _ = faviconDatabaseGetFaviconUri  

@@ -12,3 +12,7 @@ class GObject o => FaviconDatabaseK o instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o data FaviconDatabaseFaviconChangedSignalInfo+data FaviconDatabaseClearMethodInfo+data FaviconDatabaseGetFaviconMethodInfo+data FaviconDatabaseGetFaviconFinishMethodInfo+data FaviconDatabaseGetFaviconUriMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,26 +18,32 @@   -- * Methods -- ** fileChooserRequestCancel+    FileChooserRequestCancelMethodInfo      ,     fileChooserRequestCancel                ,   -- ** fileChooserRequestGetMimeTypes+    FileChooserRequestGetMimeTypesMethodInfo,     fileChooserRequestGetMimeTypes          ,   -- ** fileChooserRequestGetMimeTypesFilter+    FileChooserRequestGetMimeTypesFilterMethodInfo,     fileChooserRequestGetMimeTypesFilter    ,   -- ** fileChooserRequestGetSelectMultiple+    FileChooserRequestGetSelectMultipleMethodInfo,     fileChooserRequestGetSelectMultiple     ,   -- ** fileChooserRequestGetSelectedFiles+    FileChooserRequestGetSelectedFilesMethodInfo,     fileChooserRequestGetSelectedFiles      ,   -- ** fileChooserRequestSelectFiles+    FileChooserRequestSelectFilesMethodInfo ,     fileChooserRequestSelectFiles           ,  @@ -100,6 +107,45 @@ noFileChooserRequest :: Maybe FileChooserRequest noFileChooserRequest = Nothing +type family ResolveFileChooserRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveFileChooserRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFileChooserRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFileChooserRequestMethod "cancel" o = FileChooserRequestCancelMethodInfo+    ResolveFileChooserRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFileChooserRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFileChooserRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFileChooserRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFileChooserRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFileChooserRequestMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFileChooserRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFileChooserRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFileChooserRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFileChooserRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFileChooserRequestMethod "selectFiles" o = FileChooserRequestSelectFilesMethodInfo+    ResolveFileChooserRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFileChooserRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFileChooserRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFileChooserRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFileChooserRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFileChooserRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFileChooserRequestMethod "getMimeTypes" o = FileChooserRequestGetMimeTypesMethodInfo+    ResolveFileChooserRequestMethod "getMimeTypesFilter" o = FileChooserRequestGetMimeTypesFilterMethodInfo+    ResolveFileChooserRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFileChooserRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFileChooserRequestMethod "getSelectMultiple" o = FileChooserRequestGetSelectMultipleMethodInfo+    ResolveFileChooserRequestMethod "getSelectedFiles" o = FileChooserRequestGetSelectedFilesMethodInfo+    ResolveFileChooserRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFileChooserRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFileChooserRequestMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, MethodInfo info FileChooserRequest p) => IsLabelProxy t (FileChooserRequest -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, MethodInfo info FileChooserRequest p) => IsLabel t (FileChooserRequest -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- VVV Prop "filter"    -- Type: TInterface "Gtk" "FileFilter"    -- Flags: [PropertyReadable]@@ -113,7 +159,7 @@     type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) ()     type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK     type AttrGetType FileChooserRequestFilterPropertyInfo = Gtk.FileFilter-    type AttrLabel FileChooserRequestFilterPropertyInfo = "FileChooserRequest::filter"+    type AttrLabel FileChooserRequestFilterPropertyInfo = "filter"     attrGet _ = getFileChooserRequestFilter     attrSet _ = undefined     attrConstruct _ = undefined@@ -131,7 +177,7 @@     type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) ()     type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK     type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text]-    type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "FileChooserRequest::mime-types"+    type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "mime-types"     attrGet _ = getFileChooserRequestMimeTypes     attrSet _ = undefined     attrConstruct _ = undefined@@ -149,7 +195,7 @@     type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) ()     type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequestK     type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool-    type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "FileChooserRequest::select-multiple"+    type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "select-multiple"     attrGet _ = getFileChooserRequestSelectMultiple     attrSet _ = undefined     attrConstruct _ = undefined@@ -167,22 +213,21 @@     type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) ()     type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK     type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text]-    type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "FileChooserRequest::selected-files"+    type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "selected-files"     attrGet _ = getFileChooserRequestSelectedFiles     attrSet _ = undefined     attrConstruct _ = undefined  type instance AttributeList FileChooserRequest = FileChooserRequestAttributeList-type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mime-types", FileChooserRequestMimeTypesPropertyInfo), '("select-multiple", FileChooserRequestSelectMultiplePropertyInfo), '("selected-files", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)])+type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mimeTypes", FileChooserRequestMimeTypesPropertyInfo), '("selectMultiple", FileChooserRequestSelectMultiplePropertyInfo), '("selectedFiles", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)])  type instance SignalList FileChooserRequest = FileChooserRequestSignalList-type FileChooserRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FileChooserRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method FileChooserRequest::cancel -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -194,19 +239,22 @@  fileChooserRequestCancel ::     (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result fileChooserRequestCancel _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_file_chooser_request_cancel _obj'     touchManagedPtr _obj     return () +data FileChooserRequestCancelMethodInfo+instance (signature ~ (m ()), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestCancelMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestCancel+ -- method FileChooserRequest::get_mime_types -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False@@ -218,8 +266,8 @@  fileChooserRequestGetMimeTypes ::     (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m [T.Text]+    a                                       -- _obj+    -> m [T.Text]                           -- result fileChooserRequestGetMimeTypes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_file_chooser_request_get_mime_types _obj'@@ -228,11 +276,14 @@     touchManagedPtr _obj     return result' +data FileChooserRequestGetMimeTypesMethodInfo+instance (signature ~ (m [T.Text]), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetMimeTypesMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetMimeTypes+ -- method FileChooserRequest::get_mime_types_filter -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FileFilter" -- throws : False -- Skip return : False@@ -244,8 +295,8 @@  fileChooserRequestGetMimeTypesFilter ::     (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m Gtk.FileFilter+    a                                       -- _obj+    -> m Gtk.FileFilter                     -- result fileChooserRequestGetMimeTypesFilter _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_file_chooser_request_get_mime_types_filter _obj'@@ -254,11 +305,14 @@     touchManagedPtr _obj     return result' +data FileChooserRequestGetMimeTypesFilterMethodInfo+instance (signature ~ (m Gtk.FileFilter), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetMimeTypesFilterMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetMimeTypesFilter+ -- method FileChooserRequest::get_select_multiple -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -270,8 +324,8 @@  fileChooserRequestGetSelectMultiple ::     (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result fileChooserRequestGetSelectMultiple _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_file_chooser_request_get_select_multiple _obj'@@ -279,11 +333,14 @@     touchManagedPtr _obj     return result' +data FileChooserRequestGetSelectMultipleMethodInfo+instance (signature ~ (m Bool), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetSelectMultipleMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetSelectMultiple+ -- method FileChooserRequest::get_selected_files -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False@@ -295,8 +352,8 @@  fileChooserRequestGetSelectedFiles ::     (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m [T.Text]+    a                                       -- _obj+    -> m [T.Text]                           -- result fileChooserRequestGetSelectedFiles _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_file_chooser_request_get_selected_files _obj'@@ -305,11 +362,14 @@     touchManagedPtr _obj     return result' +data FileChooserRequestGetSelectedFilesMethodInfo+instance (signature ~ (m [T.Text]), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetSelectedFilesMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestGetSelectedFiles+ -- method FileChooserRequest::select_files -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -322,9 +382,9 @@  fileChooserRequestSelectFiles ::     (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    [T.Text] ->                             -- files-    m ()+    a                                       -- _obj+    -> [T.Text]                             -- files+    -> m ()                                 -- result fileChooserRequestSelectFiles _obj files = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     files' <- packZeroTerminatedUTF8CArray files@@ -333,5 +393,9 @@     mapZeroTerminatedCArray freeMem files'     freeMem files'     return ()++data FileChooserRequestSelectFilesMethodInfo+instance (signature ~ ([T.Text] -> m ()), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestSelectFilesMethodInfo a signature where+    overloadedMethod _ = fileChooserRequestSelectFiles  

@@ -15,3 +15,9 @@ data FileChooserRequestMimeTypesPropertyInfo data FileChooserRequestSelectMultiplePropertyInfo data FileChooserRequestSelectedFilesPropertyInfo+data FileChooserRequestCancelMethodInfo+data FileChooserRequestGetMimeTypesMethodInfo+data FileChooserRequestGetMimeTypesFilterMethodInfo+data FileChooserRequestGetSelectMultipleMethodInfo+data FileChooserRequestGetSelectedFilesMethodInfo+data FileChooserRequestSelectFilesMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,38 +18,47 @@   -- * Methods -- ** findControllerCountMatches+    FindControllerCountMatchesMethodInfo    ,     findControllerCountMatches              ,   -- ** findControllerGetMaxMatchCount+    FindControllerGetMaxMatchCountMethodInfo,     findControllerGetMaxMatchCount          ,   -- ** findControllerGetOptions+    FindControllerGetOptionsMethodInfo      ,     findControllerGetOptions                ,   -- ** findControllerGetSearchText+    FindControllerGetSearchTextMethodInfo   ,     findControllerGetSearchText             ,   -- ** findControllerGetWebView+    FindControllerGetWebViewMethodInfo      ,     findControllerGetWebView                ,   -- ** findControllerSearch+    FindControllerSearchMethodInfo          ,     findControllerSearch                    ,   -- ** findControllerSearchFinish+    FindControllerSearchFinishMethodInfo    ,     findControllerSearchFinish              ,   -- ** findControllerSearchNext+    FindControllerSearchNextMethodInfo      ,     findControllerSearchNext                ,   -- ** findControllerSearchPrevious+    FindControllerSearchPreviousMethodInfo  ,     findControllerSearchPrevious            ,  @@ -151,6 +161,48 @@ noFindController :: Maybe FindController noFindController = Nothing +type family ResolveFindControllerMethod (t :: Symbol) (o :: *) :: * where+    ResolveFindControllerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFindControllerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFindControllerMethod "countMatches" o = FindControllerCountMatchesMethodInfo+    ResolveFindControllerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFindControllerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFindControllerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFindControllerMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFindControllerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFindControllerMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFindControllerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFindControllerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFindControllerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFindControllerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFindControllerMethod "search" o = FindControllerSearchMethodInfo+    ResolveFindControllerMethod "searchFinish" o = FindControllerSearchFinishMethodInfo+    ResolveFindControllerMethod "searchNext" o = FindControllerSearchNextMethodInfo+    ResolveFindControllerMethod "searchPrevious" o = FindControllerSearchPreviousMethodInfo+    ResolveFindControllerMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFindControllerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFindControllerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFindControllerMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFindControllerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFindControllerMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFindControllerMethod "getMaxMatchCount" o = FindControllerGetMaxMatchCountMethodInfo+    ResolveFindControllerMethod "getOptions" o = FindControllerGetOptionsMethodInfo+    ResolveFindControllerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFindControllerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFindControllerMethod "getSearchText" o = FindControllerGetSearchTextMethodInfo+    ResolveFindControllerMethod "getWebView" o = FindControllerGetWebViewMethodInfo+    ResolveFindControllerMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFindControllerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFindControllerMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFindControllerMethod t FindController, MethodInfo info FindController p) => IsLabelProxy t (FindController -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFindControllerMethod t FindController, MethodInfo info FindController p) => IsLabel t (FindController -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal FindController::counted-matches type FindControllerCountedMatchesCallback =     Word32 ->@@ -178,8 +230,8 @@     Word32 ->     Ptr () ->     IO ()-findControllerCountedMatchesCallbackWrapper _cb _ match_count _ = do-    _cb  match_count+findControllerCountedMatchesCallbackWrapper _cb _ matchCount _ = do+    _cb  matchCount  onFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId onFindControllerCountedMatches obj cb = liftIO $ connectFindControllerCountedMatches obj cb SignalConnectBefore@@ -257,8 +309,8 @@     Word32 ->     Ptr () ->     IO ()-findControllerFoundTextCallbackWrapper _cb _ match_count _ = do-    _cb  match_count+findControllerFoundTextCallbackWrapper _cb _ matchCount _ = do+    _cb  matchCount  onFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId onFindControllerFoundText obj cb = liftIO $ connectFindControllerFoundText obj cb SignalConnectBefore@@ -284,7 +336,7 @@     type AttrSetTypeConstraint FindControllerMaxMatchCountPropertyInfo = (~) ()     type AttrBaseTypeConstraint FindControllerMaxMatchCountPropertyInfo = FindControllerK     type AttrGetType FindControllerMaxMatchCountPropertyInfo = Word32-    type AttrLabel FindControllerMaxMatchCountPropertyInfo = "FindController::max-match-count"+    type AttrLabel FindControllerMaxMatchCountPropertyInfo = "max-match-count"     attrGet _ = getFindControllerMaxMatchCount     attrSet _ = undefined     attrConstruct _ = undefined@@ -302,7 +354,7 @@     type AttrSetTypeConstraint FindControllerOptionsPropertyInfo = (~) ()     type AttrBaseTypeConstraint FindControllerOptionsPropertyInfo = FindControllerK     type AttrGetType FindControllerOptionsPropertyInfo = [FindOptions]-    type AttrLabel FindControllerOptionsPropertyInfo = "FindController::options"+    type AttrLabel FindControllerOptionsPropertyInfo = "options"     attrGet _ = getFindControllerOptions     attrSet _ = undefined     attrConstruct _ = undefined@@ -320,7 +372,7 @@     type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) ()     type AttrBaseTypeConstraint FindControllerTextPropertyInfo = FindControllerK     type AttrGetType FindControllerTextPropertyInfo = T.Text-    type AttrLabel FindControllerTextPropertyInfo = "FindController::text"+    type AttrLabel FindControllerTextPropertyInfo = "text"     attrGet _ = getFindControllerText     attrSet _ = undefined     attrConstruct _ = undefined@@ -341,13 +393,13 @@     type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebViewK     type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = FindControllerK     type AttrGetType FindControllerWebViewPropertyInfo = WebView-    type AttrLabel FindControllerWebViewPropertyInfo = "FindController::web-view"+    type AttrLabel FindControllerWebViewPropertyInfo = "web-view"     attrGet _ = getFindControllerWebView     attrSet _ = undefined     attrConstruct _ = constructFindControllerWebView  type instance AttributeList FindController = FindControllerAttributeList-type FindControllerAttributeList = ('[ '("max-match-count", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("web-view", FindControllerWebViewPropertyInfo)] :: [(Symbol, *)])+type FindControllerAttributeList = ('[ '("maxMatchCount", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("webView", FindControllerWebViewPropertyInfo)] :: [(Symbol, *)])  data FindControllerCountedMatchesSignalInfo instance SignalInfo FindControllerCountedMatchesSignalInfo where@@ -365,13 +417,12 @@     connectSignal _ = connectFindControllerFoundText  type instance SignalList FindController = FindControllerSignalList-type FindControllerSignalList = ('[ '("counted-matches", FindControllerCountedMatchesSignalInfo), '("failed-to-find-text", FindControllerFailedToFindTextSignalInfo), '("found-text", FindControllerFoundTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FindControllerSignalList = ('[ '("countedMatches", FindControllerCountedMatchesSignalInfo), '("failedToFindText", FindControllerFailedToFindTextSignalInfo), '("foundText", FindControllerFoundTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method FindController::count_matches -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -386,24 +437,27 @@  findControllerCountMatches ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- search_text-    Word32 ->                               -- find_options-    Word32 ->                               -- max_match_count-    m ()-findControllerCountMatches _obj search_text find_options max_match_count = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- searchText+    -> Word32                               -- findOptions+    -> Word32                               -- maxMatchCount+    -> m ()                                 -- result+findControllerCountMatches _obj searchText findOptions maxMatchCount = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    search_text' <- textToCString search_text-    webkit_find_controller_count_matches _obj' search_text' find_options max_match_count+    searchText' <- textToCString searchText+    webkit_find_controller_count_matches _obj' searchText' findOptions maxMatchCount     touchManagedPtr _obj-    freeMem search_text'+    freeMem searchText'     return () +data FindControllerCountMatchesMethodInfo+instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerCountMatchesMethodInfo a signature where+    overloadedMethod _ = findControllerCountMatches+ -- method FindController::get_max_match_count -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -415,19 +469,22 @@  findControllerGetMaxMatchCount ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result findControllerGetMaxMatchCount _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_find_controller_get_max_match_count _obj'     touchManagedPtr _obj     return result +data FindControllerGetMaxMatchCountMethodInfo+instance (signature ~ (m Word32), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetMaxMatchCountMethodInfo a signature where+    overloadedMethod _ = findControllerGetMaxMatchCount+ -- method FindController::get_options -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -439,19 +496,22 @@  findControllerGetOptions ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result findControllerGetOptions _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_find_controller_get_options _obj'     touchManagedPtr _obj     return result +data FindControllerGetOptionsMethodInfo+instance (signature ~ (m Word32), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetOptionsMethodInfo a signature where+    overloadedMethod _ = findControllerGetOptions+ -- method FindController::get_search_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -463,8 +523,8 @@  findControllerGetSearchText ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result findControllerGetSearchText _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_find_controller_get_search_text _obj'@@ -473,11 +533,14 @@     touchManagedPtr _obj     return result' +data FindControllerGetSearchTextMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetSearchTextMethodInfo a signature where+    overloadedMethod _ = findControllerGetSearchText+ -- method FindController::get_web_view -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "WebView" -- throws : False -- Skip return : False@@ -489,8 +552,8 @@  findControllerGetWebView ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m WebView+    a                                       -- _obj+    -> m WebView                            -- result findControllerGetWebView _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_find_controller_get_web_view _obj'@@ -499,11 +562,14 @@     touchManagedPtr _obj     return result' +data FindControllerGetWebViewMethodInfo+instance (signature ~ (m WebView), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetWebViewMethodInfo a signature where+    overloadedMethod _ = findControllerGetWebView+ -- method FindController::search -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -518,24 +584,27 @@  findControllerSearch ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- search_text-    Word32 ->                               -- find_options-    Word32 ->                               -- max_match_count-    m ()-findControllerSearch _obj search_text find_options max_match_count = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- searchText+    -> Word32                               -- findOptions+    -> Word32                               -- maxMatchCount+    -> m ()                                 -- result+findControllerSearch _obj searchText findOptions maxMatchCount = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    search_text' <- textToCString search_text-    webkit_find_controller_search _obj' search_text' find_options max_match_count+    searchText' <- textToCString searchText+    webkit_find_controller_search _obj' searchText' findOptions maxMatchCount     touchManagedPtr _obj-    freeMem search_text'+    freeMem searchText'     return () +data FindControllerSearchMethodInfo+instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchMethodInfo a signature where+    overloadedMethod _ = findControllerSearch+ -- method FindController::search_finish -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -547,19 +616,22 @@  findControllerSearchFinish ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result findControllerSearchFinish _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_find_controller_search_finish _obj'     touchManagedPtr _obj     return () +data FindControllerSearchFinishMethodInfo+instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchFinishMethodInfo a signature where+    overloadedMethod _ = findControllerSearchFinish+ -- method FindController::search_next -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -571,19 +643,22 @@  findControllerSearchNext ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result findControllerSearchNext _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_find_controller_search_next _obj'     touchManagedPtr _obj     return () +data FindControllerSearchNextMethodInfo+instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchNextMethodInfo a signature where+    overloadedMethod _ = findControllerSearchNext+ -- method FindController::search_previous -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -595,12 +670,16 @@  findControllerSearchPrevious ::     (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result findControllerSearchPrevious _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_find_controller_search_previous _obj'     touchManagedPtr _obj     return ()++data FindControllerSearchPreviousMethodInfo+instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchPreviousMethodInfo a signature where+    overloadedMethod _ = findControllerSearchPrevious  

@@ -18,3 +18,12 @@ data FindControllerCountedMatchesSignalInfo data FindControllerFailedToFindTextSignalInfo data FindControllerFoundTextSignalInfo+data FindControllerCountMatchesMethodInfo+data FindControllerGetMaxMatchCountMethodInfo+data FindControllerGetOptionsMethodInfo+data FindControllerGetSearchTextMethodInfo+data FindControllerGetWebViewMethodInfo+data FindControllerSearchMethodInfo+data FindControllerSearchFinishMethodInfo+data FindControllerSearchNextMethodInfo+data FindControllerSearchPreviousMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,10 +18,12 @@   -- * Methods -- ** formSubmissionRequestGetTextFields+    FormSubmissionRequestGetTextFieldsMethodInfo,     formSubmissionRequestGetTextFields      ,   -- ** formSubmissionRequestSubmit+    FormSubmissionRequestSubmitMethodInfo   ,     formSubmissionRequestSubmit             ,  @@ -60,17 +63,51 @@ noFormSubmissionRequest :: Maybe FormSubmissionRequest noFormSubmissionRequest = Nothing +type family ResolveFormSubmissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveFormSubmissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFormSubmissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFormSubmissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFormSubmissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFormSubmissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFormSubmissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFormSubmissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFormSubmissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFormSubmissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFormSubmissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFormSubmissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFormSubmissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFormSubmissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFormSubmissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFormSubmissionRequestMethod "submit" o = FormSubmissionRequestSubmitMethodInfo+    ResolveFormSubmissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFormSubmissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFormSubmissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFormSubmissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFormSubmissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFormSubmissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFormSubmissionRequestMethod "getTextFields" o = FormSubmissionRequestGetTextFieldsMethodInfo+    ResolveFormSubmissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFormSubmissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFormSubmissionRequestMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, MethodInfo info FormSubmissionRequest p) => IsLabelProxy t (FormSubmissionRequest -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, MethodInfo info FormSubmissionRequest p) => IsLabel t (FormSubmissionRequest -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList FormSubmissionRequest = FormSubmissionRequestAttributeList type FormSubmissionRequestAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList FormSubmissionRequest = FormSubmissionRequestSignalList-type FormSubmissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FormSubmissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method FormSubmissionRequest::get_text_fields -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGHash (TBasicType TVoid) (TBasicType TVoid) -- throws : False -- Skip return : False@@ -82,8 +119,8 @@  formSubmissionRequestGetTextFields ::     (MonadIO m, FormSubmissionRequestK a) =>-    a ->                                    -- _obj-    m (Map.Map (Ptr ()) (Ptr ()))+    a                                       -- _obj+    -> m (Map.Map (Ptr ()) (Ptr ()))        -- result formSubmissionRequestGetTextFields _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_form_submission_request_get_text_fields _obj'@@ -95,11 +132,14 @@     touchManagedPtr _obj     return result'''' +data FormSubmissionRequestGetTextFieldsMethodInfo+instance (signature ~ (m (Map.Map (Ptr ()) (Ptr ()))), MonadIO m, FormSubmissionRequestK a) => MethodInfo FormSubmissionRequestGetTextFieldsMethodInfo a signature where+    overloadedMethod _ = formSubmissionRequestGetTextFields+ -- method FormSubmissionRequest::submit -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -111,12 +151,16 @@  formSubmissionRequestSubmit ::     (MonadIO m, FormSubmissionRequestK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result formSubmissionRequestSubmit _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     webkit_form_submission_request_submit _obj'     touchManagedPtr _obj     return ()++data FormSubmissionRequestSubmitMethodInfo+instance (signature ~ (m ()), MonadIO m, FormSubmissionRequestK a) => MethodInfo FormSubmissionRequestSubmitMethodInfo a signature where+    overloadedMethod _ = formSubmissionRequestSubmit  

@@ -11,3 +11,5 @@ instance GObject FormSubmissionRequest where class GObject o => FormSubmissionRequestK o instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o+data FormSubmissionRequestGetTextFieldsMethodInfo+data FormSubmissionRequestSubmitMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -49,10 +50,45 @@ noGeolocationPermissionRequest :: Maybe GeolocationPermissionRequest noGeolocationPermissionRequest = Nothing +type family ResolveGeolocationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveGeolocationPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo+    ResolveGeolocationPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveGeolocationPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveGeolocationPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo+    ResolveGeolocationPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveGeolocationPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveGeolocationPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveGeolocationPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveGeolocationPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveGeolocationPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveGeolocationPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveGeolocationPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveGeolocationPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveGeolocationPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveGeolocationPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveGeolocationPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveGeolocationPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveGeolocationPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveGeolocationPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveGeolocationPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveGeolocationPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveGeolocationPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveGeolocationPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveGeolocationPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveGeolocationPermissionRequestMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveGeolocationPermissionRequestMethod t GeolocationPermissionRequest, MethodInfo info GeolocationPermissionRequest p) => IsLabelProxy t (GeolocationPermissionRequest -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveGeolocationPermissionRequestMethod t GeolocationPermissionRequest, MethodInfo info GeolocationPermissionRequest p) => IsLabel t (GeolocationPermissionRequest -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList GeolocationPermissionRequest = GeolocationPermissionRequestAttributeList type GeolocationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList GeolocationPermissionRequest = GeolocationPermissionRequestSignalList-type GeolocationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type GeolocationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,50 +18,62 @@   -- * Methods -- ** hitTestResultContextIsEditable+    HitTestResultContextIsEditableMethodInfo,     hitTestResultContextIsEditable          ,   -- ** hitTestResultContextIsImage+    HitTestResultContextIsImageMethodInfo   ,     hitTestResultContextIsImage             ,   -- ** hitTestResultContextIsLink+    HitTestResultContextIsLinkMethodInfo    ,     hitTestResultContextIsLink              ,   -- ** hitTestResultContextIsMedia+    HitTestResultContextIsMediaMethodInfo   ,     hitTestResultContextIsMedia             ,   -- ** hitTestResultContextIsScrollbar+    HitTestResultContextIsScrollbarMethodInfo,     hitTestResultContextIsScrollbar         ,   -- ** hitTestResultContextIsSelection+    HitTestResultContextIsSelectionMethodInfo,     hitTestResultContextIsSelection         ,   -- ** hitTestResultGetContext+    HitTestResultGetContextMethodInfo       ,     hitTestResultGetContext                 ,   -- ** hitTestResultGetImageUri+    HitTestResultGetImageUriMethodInfo      ,     hitTestResultGetImageUri                ,   -- ** hitTestResultGetLinkLabel+    HitTestResultGetLinkLabelMethodInfo     ,     hitTestResultGetLinkLabel               ,   -- ** hitTestResultGetLinkTitle+    HitTestResultGetLinkTitleMethodInfo     ,     hitTestResultGetLinkTitle               ,   -- ** hitTestResultGetLinkUri+    HitTestResultGetLinkUriMethodInfo       ,     hitTestResultGetLinkUri                 ,   -- ** hitTestResultGetMediaUri+    HitTestResultGetMediaUriMethodInfo      ,     hitTestResultGetMediaUri                ,  @@ -139,6 +152,51 @@ noHitTestResult :: Maybe HitTestResult noHitTestResult = Nothing +type family ResolveHitTestResultMethod (t :: Symbol) (o :: *) :: * where+    ResolveHitTestResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveHitTestResultMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo+    ResolveHitTestResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveHitTestResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveHitTestResultMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveHitTestResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveHitTestResultMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveHitTestResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveHitTestResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveHitTestResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveHitTestResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveHitTestResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveHitTestResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveHitTestResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveHitTestResultMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveHitTestResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveHitTestResultMethod "getContext" o = HitTestResultGetContextMethodInfo+    ResolveHitTestResultMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo+    ResolveHitTestResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveHitTestResultMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveHitTestResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveHitTestResultMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabelProxy t (HitTestResult -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabel t (HitTestResult -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- VVV Prop "context"    -- Type: TBasicType TUInt32    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]@@ -155,7 +213,7 @@     type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) Word32     type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK     type AttrGetType HitTestResultContextPropertyInfo = Word32-    type AttrLabel HitTestResultContextPropertyInfo = "HitTestResult::context"+    type AttrLabel HitTestResultContextPropertyInfo = "context"     attrGet _ = getHitTestResultContext     attrSet _ = undefined     attrConstruct _ = constructHitTestResultContext@@ -176,7 +234,7 @@     type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK     type AttrGetType HitTestResultImageUriPropertyInfo = T.Text-    type AttrLabel HitTestResultImageUriPropertyInfo = "HitTestResult::image-uri"+    type AttrLabel HitTestResultImageUriPropertyInfo = "image-uri"     attrGet _ = getHitTestResultImageUri     attrSet _ = undefined     attrConstruct _ = constructHitTestResultImageUri@@ -197,7 +255,7 @@     type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK     type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text-    type AttrLabel HitTestResultLinkLabelPropertyInfo = "HitTestResult::link-label"+    type AttrLabel HitTestResultLinkLabelPropertyInfo = "link-label"     attrGet _ = getHitTestResultLinkLabel     attrSet _ = undefined     attrConstruct _ = constructHitTestResultLinkLabel@@ -218,7 +276,7 @@     type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text     type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK     type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text-    type AttrLabel HitTestResultLinkTitlePropertyInfo = "HitTestResult::link-title"+    type AttrLabel HitTestResultLinkTitlePropertyInfo = "link-title"     attrGet _ = getHitTestResultLinkTitle     attrSet _ = undefined     attrConstruct _ = constructHitTestResultLinkTitle@@ -239,7 +297,7 @@     type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK     type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text-    type AttrLabel HitTestResultLinkUriPropertyInfo = "HitTestResult::link-uri"+    type AttrLabel HitTestResultLinkUriPropertyInfo = "link-uri"     attrGet _ = getHitTestResultLinkUri     attrSet _ = undefined     attrConstruct _ = constructHitTestResultLinkUri@@ -260,22 +318,21 @@     type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK     type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text-    type AttrLabel HitTestResultMediaUriPropertyInfo = "HitTestResult::media-uri"+    type AttrLabel HitTestResultMediaUriPropertyInfo = "media-uri"     attrGet _ = getHitTestResultMediaUri     attrSet _ = undefined     attrConstruct _ = constructHitTestResultMediaUri  type instance AttributeList HitTestResult = HitTestResultAttributeList-type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("image-uri", HitTestResultImageUriPropertyInfo), '("link-label", HitTestResultLinkLabelPropertyInfo), '("link-title", HitTestResultLinkTitlePropertyInfo), '("link-uri", HitTestResultLinkUriPropertyInfo), '("media-uri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)])+type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)])  type instance SignalList HitTestResult = HitTestResultSignalList-type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method HitTestResult::context_is_editable -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -287,8 +344,8 @@  hitTestResultContextIsEditable ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hitTestResultContextIsEditable _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_context_is_editable _obj'@@ -296,11 +353,14 @@     touchManagedPtr _obj     return result' +data HitTestResultContextIsEditableMethodInfo+instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsEditableMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsEditable+ -- method HitTestResult::context_is_image -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -312,8 +372,8 @@  hitTestResultContextIsImage ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hitTestResultContextIsImage _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_context_is_image _obj'@@ -321,11 +381,14 @@     touchManagedPtr _obj     return result' +data HitTestResultContextIsImageMethodInfo+instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsImageMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsImage+ -- method HitTestResult::context_is_link -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -337,8 +400,8 @@  hitTestResultContextIsLink ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hitTestResultContextIsLink _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_context_is_link _obj'@@ -346,11 +409,14 @@     touchManagedPtr _obj     return result' +data HitTestResultContextIsLinkMethodInfo+instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsLinkMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsLink+ -- method HitTestResult::context_is_media -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -362,8 +428,8 @@  hitTestResultContextIsMedia ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hitTestResultContextIsMedia _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_context_is_media _obj'@@ -371,11 +437,14 @@     touchManagedPtr _obj     return result' +data HitTestResultContextIsMediaMethodInfo+instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsMediaMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsMedia+ -- method HitTestResult::context_is_scrollbar -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -387,8 +456,8 @@  hitTestResultContextIsScrollbar ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hitTestResultContextIsScrollbar _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_context_is_scrollbar _obj'@@ -396,11 +465,14 @@     touchManagedPtr _obj     return result' +data HitTestResultContextIsScrollbarMethodInfo+instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsScrollbarMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsScrollbar+ -- method HitTestResult::context_is_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -412,8 +484,8 @@  hitTestResultContextIsSelection ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hitTestResultContextIsSelection _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_context_is_selection _obj'@@ -421,11 +493,14 @@     touchManagedPtr _obj     return result' +data HitTestResultContextIsSelectionMethodInfo+instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsSelectionMethodInfo a signature where+    overloadedMethod _ = hitTestResultContextIsSelection+ -- method HitTestResult::get_context -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -437,19 +512,22 @@  hitTestResultGetContext ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result hitTestResultGetContext _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_get_context _obj'     touchManagedPtr _obj     return result +data HitTestResultGetContextMethodInfo+instance (signature ~ (m Word32), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetContextMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetContext+ -- method HitTestResult::get_image_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -461,8 +539,8 @@  hitTestResultGetImageUri ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result hitTestResultGetImageUri _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_get_image_uri _obj'@@ -471,11 +549,14 @@     touchManagedPtr _obj     return result' +data HitTestResultGetImageUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetImageUriMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetImageUri+ -- method HitTestResult::get_link_label -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -487,8 +568,8 @@  hitTestResultGetLinkLabel ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result hitTestResultGetLinkLabel _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_get_link_label _obj'@@ -497,11 +578,14 @@     touchManagedPtr _obj     return result' +data HitTestResultGetLinkLabelMethodInfo+instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkLabelMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetLinkLabel+ -- method HitTestResult::get_link_title -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -513,8 +597,8 @@  hitTestResultGetLinkTitle ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result hitTestResultGetLinkTitle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_get_link_title _obj'@@ -523,11 +607,14 @@     touchManagedPtr _obj     return result' +data HitTestResultGetLinkTitleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkTitleMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetLinkTitle+ -- method HitTestResult::get_link_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -539,8 +626,8 @@  hitTestResultGetLinkUri ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result hitTestResultGetLinkUri _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_get_link_uri _obj'@@ -549,11 +636,14 @@     touchManagedPtr _obj     return result' +data HitTestResultGetLinkUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkUriMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetLinkUri+ -- method HitTestResult::get_media_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -565,8 +655,8 @@  hitTestResultGetMediaUri ::     (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result hitTestResultGetMediaUri _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_hit_test_result_get_media_uri _obj'@@ -574,5 +664,9 @@     result' <- cstringToText result     touchManagedPtr _obj     return result'++data HitTestResultGetMediaUriMethodInfo+instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetMediaUriMethodInfo a signature where+    overloadedMethod _ = hitTestResultGetMediaUri  

@@ -17,3 +17,15 @@ data HitTestResultLinkTitlePropertyInfo data HitTestResultLinkUriPropertyInfo data HitTestResultMediaUriPropertyInfo+data HitTestResultContextIsEditableMethodInfo+data HitTestResultContextIsImageMethodInfo+data HitTestResultContextIsLinkMethodInfo+data HitTestResultContextIsMediaMethodInfo+data HitTestResultContextIsScrollbarMethodInfo+data HitTestResultContextIsSelectionMethodInfo+data HitTestResultGetContextMethodInfo+data HitTestResultGetImageUriMethodInfo+data HitTestResultGetLinkLabelMethodInfo+data HitTestResultGetLinkTitleMethodInfo+data HitTestResultGetLinkUriMethodInfo+data HitTestResultGetMediaUriMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** installMissingMediaPluginsPermissionRequestGetDescription+    InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo,     installMissingMediaPluginsPermissionRequestGetDescription,  @@ -56,17 +58,52 @@ noInstallMissingMediaPluginsPermissionRequest :: Maybe InstallMissingMediaPluginsPermissionRequest noInstallMissingMediaPluginsPermissionRequest = Nothing +type family ResolveInstallMissingMediaPluginsPermissionRequestMethod (t :: Symbol) (o :: *) :: * where+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getDescription" o = InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveInstallMissingMediaPluginsPermissionRequestMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveInstallMissingMediaPluginsPermissionRequestMethod t InstallMissingMediaPluginsPermissionRequest, MethodInfo info InstallMissingMediaPluginsPermissionRequest p) => IsLabelProxy t (InstallMissingMediaPluginsPermissionRequest -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveInstallMissingMediaPluginsPermissionRequestMethod t InstallMissingMediaPluginsPermissionRequest, MethodInfo info InstallMissingMediaPluginsPermissionRequest p) => IsLabel t (InstallMissingMediaPluginsPermissionRequest -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestAttributeList type InstallMissingMediaPluginsPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestSignalList-type InstallMissingMediaPluginsPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type InstallMissingMediaPluginsPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method InstallMissingMediaPluginsPermissionRequest::get_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "InstallMissingMediaPluginsPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "InstallMissingMediaPluginsPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "InstallMissingMediaPluginsPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -78,8 +115,8 @@  installMissingMediaPluginsPermissionRequestGetDescription ::     (MonadIO m, InstallMissingMediaPluginsPermissionRequestK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result installMissingMediaPluginsPermissionRequestGetDescription _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_install_missing_media_plugins_permission_request_get_description _obj'@@ -87,5 +124,9 @@     result' <- cstringToText result     touchManagedPtr _obj     return result'++data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo+instance (signature ~ (m T.Text), MonadIO m, InstallMissingMediaPluginsPermissionRequestK a) => MethodInfo InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo a signature where+    overloadedMethod _ = installMissingMediaPluginsPermissionRequestGetDescription  

@@ -11,3 +11,4 @@ instance GObject InstallMissingMediaPluginsPermissionRequest where class GObject o => InstallMissingMediaPluginsPermissionRequestK o instance (GObject o, IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => InstallMissingMediaPluginsPermissionRequestK o+data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,26 +18,32 @@   -- * Methods -- ** navigationPolicyDecisionGetFrameName+    NavigationPolicyDecisionGetFrameNameMethodInfo,     navigationPolicyDecisionGetFrameName    ,   -- ** navigationPolicyDecisionGetModifiers+    NavigationPolicyDecisionGetModifiersMethodInfo,     navigationPolicyDecisionGetModifiers    ,   -- ** navigationPolicyDecisionGetMouseButton+    NavigationPolicyDecisionGetMouseButtonMethodInfo,     navigationPolicyDecisionGetMouseButton  ,   -- ** navigationPolicyDecisionGetNavigationAction+    NavigationPolicyDecisionGetNavigationActionMethodInfo,     navigationPolicyDecisionGetNavigationAction,   -- ** navigationPolicyDecisionGetNavigationType+    NavigationPolicyDecisionGetNavigationTypeMethodInfo,     navigationPolicyDecisionGetNavigationType,   -- ** navigationPolicyDecisionGetRequest+    NavigationPolicyDecisionGetRequestMethodInfo,     navigationPolicyDecisionGetRequest      ,  @@ -109,6 +116,48 @@ noNavigationPolicyDecision :: Maybe NavigationPolicyDecision noNavigationPolicyDecision = Nothing +type family ResolveNavigationPolicyDecisionMethod (t :: Symbol) (o :: *) :: * where+    ResolveNavigationPolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveNavigationPolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveNavigationPolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo+    ResolveNavigationPolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveNavigationPolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveNavigationPolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo+    ResolveNavigationPolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveNavigationPolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveNavigationPolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveNavigationPolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveNavigationPolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveNavigationPolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveNavigationPolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveNavigationPolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveNavigationPolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveNavigationPolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveNavigationPolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveNavigationPolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveNavigationPolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo+    ResolveNavigationPolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveNavigationPolicyDecisionMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo+    ResolveNavigationPolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveNavigationPolicyDecisionMethod "getRequest" o = NavigationPolicyDecisionGetRequestMethodInfo+    ResolveNavigationPolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveNavigationPolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveNavigationPolicyDecisionMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, MethodInfo info NavigationPolicyDecision p) => IsLabelProxy t (NavigationPolicyDecision -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, MethodInfo info NavigationPolicyDecision p) => IsLabel t (NavigationPolicyDecision -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- VVV Prop "frame-name"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]@@ -122,7 +171,7 @@     type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()     type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecisionK     type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = T.Text-    type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "NavigationPolicyDecision::frame-name"+    type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "frame-name"     attrGet _ = getNavigationPolicyDecisionFrameName     attrSet _ = undefined     attrConstruct _ = undefined@@ -140,7 +189,7 @@     type AttrSetTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()     type AttrBaseTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = NavigationPolicyDecisionK     type AttrGetType NavigationPolicyDecisionModifiersPropertyInfo = Word32-    type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "NavigationPolicyDecision::modifiers"+    type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "modifiers"     attrGet _ = getNavigationPolicyDecisionModifiers     attrSet _ = undefined     attrConstruct _ = undefined@@ -158,7 +207,7 @@     type AttrSetTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()     type AttrBaseTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = NavigationPolicyDecisionK     type AttrGetType NavigationPolicyDecisionMouseButtonPropertyInfo = Word32-    type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "NavigationPolicyDecision::mouse-button"+    type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "mouse-button"     attrGet _ = getNavigationPolicyDecisionMouseButton     attrSet _ = undefined     attrConstruct _ = undefined@@ -176,7 +225,7 @@     type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()     type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecisionK     type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationAction-    type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "NavigationPolicyDecision::navigation-action"+    type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "navigation-action"     attrGet _ = getNavigationPolicyDecisionNavigationAction     attrSet _ = undefined     attrConstruct _ = undefined@@ -194,7 +243,7 @@     type AttrSetTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()     type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationPolicyDecisionK     type AttrGetType NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationType-    type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "NavigationPolicyDecision::navigation-type"+    type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "navigation-type"     attrGet _ = getNavigationPolicyDecisionNavigationType     attrSet _ = undefined     attrConstruct _ = undefined@@ -212,22 +261,21 @@     type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()     type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecisionK     type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = URIRequest-    type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "NavigationPolicyDecision::request"+    type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "request"     attrGet _ = getNavigationPolicyDecisionRequest     attrSet _ = undefined     attrConstruct _ = undefined  type instance AttributeList NavigationPolicyDecision = NavigationPolicyDecisionAttributeList-type NavigationPolicyDecisionAttributeList = ('[ '("frame-name", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouse-button", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigation-action", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigation-type", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)] :: [(Symbol, *)])+type NavigationPolicyDecisionAttributeList = ('[ '("frameName", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouseButton", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigationAction", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigationType", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)] :: [(Symbol, *)])  type instance SignalList NavigationPolicyDecision = NavigationPolicyDecisionSignalList-type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method NavigationPolicyDecision::get_frame_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -239,8 +287,8 @@  navigationPolicyDecisionGetFrameName ::     (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result navigationPolicyDecisionGetFrameName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_navigation_policy_decision_get_frame_name _obj'@@ -249,11 +297,14 @@     touchManagedPtr _obj     return result' +data NavigationPolicyDecisionGetFrameNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetFrameNameMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetFrameName+ -- method NavigationPolicyDecision::get_modifiers -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -265,19 +316,22 @@ {-# DEPRECATED navigationPolicyDecisionGetModifiers ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-} navigationPolicyDecisionGetModifiers ::     (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result navigationPolicyDecisionGetModifiers _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_navigation_policy_decision_get_modifiers _obj'     touchManagedPtr _obj     return result +data NavigationPolicyDecisionGetModifiersMethodInfo+instance (signature ~ (m Word32), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetModifiersMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetModifiers+ -- method NavigationPolicyDecision::get_mouse_button -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -289,19 +343,22 @@ {-# DEPRECATED navigationPolicyDecisionGetMouseButton ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-} navigationPolicyDecisionGetMouseButton ::     (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result navigationPolicyDecisionGetMouseButton _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_navigation_policy_decision_get_mouse_button _obj'     touchManagedPtr _obj     return result +data NavigationPolicyDecisionGetMouseButtonMethodInfo+instance (signature ~ (m Word32), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetMouseButtonMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetMouseButton+ -- method NavigationPolicyDecision::get_navigation_action -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "NavigationAction" -- throws : False -- Skip return : False@@ -313,8 +370,8 @@  navigationPolicyDecisionGetNavigationAction ::     (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m NavigationAction+    a                                       -- _obj+    -> m NavigationAction                   -- result navigationPolicyDecisionGetNavigationAction _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_navigation_policy_decision_get_navigation_action _obj'@@ -323,11 +380,14 @@     touchManagedPtr _obj     return result' +data NavigationPolicyDecisionGetNavigationActionMethodInfo+instance (signature ~ (m NavigationAction), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetNavigationActionMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetNavigationAction+ -- method NavigationPolicyDecision::get_navigation_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "NavigationType" -- throws : False -- Skip return : False@@ -339,8 +399,8 @@ {-# DEPRECATED navigationPolicyDecisionGetNavigationType ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-} navigationPolicyDecisionGetNavigationType ::     (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m NavigationType+    a                                       -- _obj+    -> m NavigationType                     -- result navigationPolicyDecisionGetNavigationType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_navigation_policy_decision_get_navigation_type _obj'@@ -348,11 +408,14 @@     touchManagedPtr _obj     return result' +data NavigationPolicyDecisionGetNavigationTypeMethodInfo+instance (signature ~ (m NavigationType), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetNavigationTypeMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetNavigationType+ -- method NavigationPolicyDecision::get_request -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIRequest" -- throws : False -- Skip return : False@@ -364,8 +427,8 @@ {-# DEPRECATED navigationPolicyDecisionGetRequest ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-} navigationPolicyDecisionGetRequest ::     (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m URIRequest+    a                                       -- _obj+    -> m URIRequest                         -- result navigationPolicyDecisionGetRequest _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- webkit_navigation_policy_decision_get_request _obj'@@ -373,5 +436,9 @@     result' <- (newObject URIRequest) result     touchManagedPtr _obj     return result'++data NavigationPolicyDecisionGetRequestMethodInfo+instance (signature ~ (m URIRequest), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetRequestMethodInfo a signature where+    overloadedMethod _ = navigationPolicyDecisionGetRequest