diff --git a/GI/WebKit2.hs b/GI/WebKit2.hs --- a/GI/WebKit2.hs +++ b/GI/WebKit2.hs @@ -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 diff --git a/GI/WebKit2/Callbacks.hs b/GI/WebKit2/Callbacks.hs --- a/GI/WebKit2/Callbacks.hs +++ b/GI/WebKit2/Callbacks.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/WebKit2/Constants.hs b/GI/WebKit2/Constants.hs --- a/GI/WebKit2/Constants.hs +++ b/GI/WebKit2/Constants.hs @@ -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 diff --git a/GI/WebKit2/Enums.hs b/GI/WebKit2/Enums.hs --- a/GI/WebKit2/Enums.hs +++ b/GI/WebKit2/Enums.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/WebKit2/Flags.hs b/GI/WebKit2/Flags.hs --- a/GI/WebKit2/Flags.hs +++ b/GI/WebKit2/Flags.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/WebKit2/Functions.hs b/GI/WebKit2/Functions.hs --- a/GI/WebKit2/Functions.hs +++ b/GI/WebKit2/Functions.hs @@ -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 diff --git a/GI/WebKit2/Interfaces.hs b/GI/WebKit2/Interfaces.hs --- a/GI/WebKit2/Interfaces.hs +++ b/GI/WebKit2/Interfaces.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/WebKit2/Interfaces/PermissionRequest.hs b/GI/WebKit2/Interfaces/PermissionRequest.hs --- a/GI/WebKit2/Interfaces/PermissionRequest.hs +++ b/GI/WebKit2/Interfaces/PermissionRequest.hs @@ -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 diff --git a/GI/WebKit2/Interfaces/PermissionRequest.hs-boot b/GI/WebKit2/Interfaces/PermissionRequest.hs-boot --- a/GI/WebKit2/Interfaces/PermissionRequest.hs-boot +++ b/GI/WebKit2/Interfaces/PermissionRequest.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects.hs b/GI/WebKit2/Objects.hs --- a/GI/WebKit2/Objects.hs +++ b/GI/WebKit2/Objects.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/WebKit2/Objects/AuthenticationRequest.hs b/GI/WebKit2/Objects/AuthenticationRequest.hs --- a/GI/WebKit2/Objects/AuthenticationRequest.hs +++ b/GI/WebKit2/Objects/AuthenticationRequest.hs @@ -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 diff --git a/GI/WebKit2/Objects/AuthenticationRequest.hs-boot b/GI/WebKit2/Objects/AuthenticationRequest.hs-boot --- a/GI/WebKit2/Objects/AuthenticationRequest.hs-boot +++ b/GI/WebKit2/Objects/AuthenticationRequest.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/BackForwardList.hs b/GI/WebKit2/Objects/BackForwardList.hs --- a/GI/WebKit2/Objects/BackForwardList.hs +++ b/GI/WebKit2/Objects/BackForwardList.hs @@ -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 diff --git a/GI/WebKit2/Objects/BackForwardList.hs-boot b/GI/WebKit2/Objects/BackForwardList.hs-boot --- a/GI/WebKit2/Objects/BackForwardList.hs-boot +++ b/GI/WebKit2/Objects/BackForwardList.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/BackForwardListItem.hs b/GI/WebKit2/Objects/BackForwardListItem.hs --- a/GI/WebKit2/Objects/BackForwardListItem.hs +++ b/GI/WebKit2/Objects/BackForwardListItem.hs @@ -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 diff --git a/GI/WebKit2/Objects/BackForwardListItem.hs-boot b/GI/WebKit2/Objects/BackForwardListItem.hs-boot --- a/GI/WebKit2/Objects/BackForwardListItem.hs-boot +++ b/GI/WebKit2/Objects/BackForwardListItem.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/ColorChooserRequest.hs b/GI/WebKit2/Objects/ColorChooserRequest.hs --- a/GI/WebKit2/Objects/ColorChooserRequest.hs +++ b/GI/WebKit2/Objects/ColorChooserRequest.hs @@ -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 diff --git a/GI/WebKit2/Objects/ColorChooserRequest.hs-boot b/GI/WebKit2/Objects/ColorChooserRequest.hs-boot --- a/GI/WebKit2/Objects/ColorChooserRequest.hs-boot +++ b/GI/WebKit2/Objects/ColorChooserRequest.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/ContextMenu.hs b/GI/WebKit2/Objects/ContextMenu.hs --- a/GI/WebKit2/Objects/ContextMenu.hs +++ b/GI/WebKit2/Objects/ContextMenu.hs @@ -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 diff --git a/GI/WebKit2/Objects/ContextMenu.hs-boot b/GI/WebKit2/Objects/ContextMenu.hs-boot --- a/GI/WebKit2/Objects/ContextMenu.hs-boot +++ b/GI/WebKit2/Objects/ContextMenu.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/ContextMenuItem.hs b/GI/WebKit2/Objects/ContextMenuItem.hs --- a/GI/WebKit2/Objects/ContextMenuItem.hs +++ b/GI/WebKit2/Objects/ContextMenuItem.hs @@ -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 diff --git a/GI/WebKit2/Objects/ContextMenuItem.hs-boot b/GI/WebKit2/Objects/ContextMenuItem.hs-boot --- a/GI/WebKit2/Objects/ContextMenuItem.hs-boot +++ b/GI/WebKit2/Objects/ContextMenuItem.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/CookieManager.hs b/GI/WebKit2/Objects/CookieManager.hs --- a/GI/WebKit2/Objects/CookieManager.hs +++ b/GI/WebKit2/Objects/CookieManager.hs @@ -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 diff --git a/GI/WebKit2/Objects/CookieManager.hs-boot b/GI/WebKit2/Objects/CookieManager.hs-boot --- a/GI/WebKit2/Objects/CookieManager.hs-boot +++ b/GI/WebKit2/Objects/CookieManager.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/Download.hs b/GI/WebKit2/Objects/Download.hs --- a/GI/WebKit2/Objects/Download.hs +++ b/GI/WebKit2/Objects/Download.hs @@ -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 diff --git a/GI/WebKit2/Objects/Download.hs-boot b/GI/WebKit2/Objects/Download.hs-boot --- a/GI/WebKit2/Objects/Download.hs-boot +++ b/GI/WebKit2/Objects/Download.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/EditorState.hs b/GI/WebKit2/Objects/EditorState.hs --- a/GI/WebKit2/Objects/EditorState.hs +++ b/GI/WebKit2/Objects/EditorState.hs @@ -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 diff --git a/GI/WebKit2/Objects/EditorState.hs-boot b/GI/WebKit2/Objects/EditorState.hs-boot --- a/GI/WebKit2/Objects/EditorState.hs-boot +++ b/GI/WebKit2/Objects/EditorState.hs-boot @@ -12,3 +12,4 @@ class GObject o => EditorStateK o instance (GObject o, IsDescendantOf EditorState o) => EditorStateK o data EditorStateTypingAttributesPropertyInfo +data EditorStateGetTypingAttributesMethodInfo diff --git a/GI/WebKit2/Objects/FaviconDatabase.hs b/GI/WebKit2/Objects/FaviconDatabase.hs --- a/GI/WebKit2/Objects/FaviconDatabase.hs +++ b/GI/WebKit2/Objects/FaviconDatabase.hs @@ -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 diff --git a/GI/WebKit2/Objects/FaviconDatabase.hs-boot b/GI/WebKit2/Objects/FaviconDatabase.hs-boot --- a/GI/WebKit2/Objects/FaviconDatabase.hs-boot +++ b/GI/WebKit2/Objects/FaviconDatabase.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/FileChooserRequest.hs b/GI/WebKit2/Objects/FileChooserRequest.hs --- a/GI/WebKit2/Objects/FileChooserRequest.hs +++ b/GI/WebKit2/Objects/FileChooserRequest.hs @@ -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 diff --git a/GI/WebKit2/Objects/FileChooserRequest.hs-boot b/GI/WebKit2/Objects/FileChooserRequest.hs-boot --- a/GI/WebKit2/Objects/FileChooserRequest.hs-boot +++ b/GI/WebKit2/Objects/FileChooserRequest.hs-boot @@ -15,3 +15,9 @@ data FileChooserRequestMimeTypesPropertyInfo data FileChooserRequestSelectMultiplePropertyInfo data FileChooserRequestSelectedFilesPropertyInfo +data FileChooserRequestCancelMethodInfo +data FileChooserRequestGetMimeTypesMethodInfo +data FileChooserRequestGetMimeTypesFilterMethodInfo +data FileChooserRequestGetSelectMultipleMethodInfo +data FileChooserRequestGetSelectedFilesMethodInfo +data FileChooserRequestSelectFilesMethodInfo diff --git a/GI/WebKit2/Objects/FindController.hs b/GI/WebKit2/Objects/FindController.hs --- a/GI/WebKit2/Objects/FindController.hs +++ b/GI/WebKit2/Objects/FindController.hs @@ -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 diff --git a/GI/WebKit2/Objects/FindController.hs-boot b/GI/WebKit2/Objects/FindController.hs-boot --- a/GI/WebKit2/Objects/FindController.hs-boot +++ b/GI/WebKit2/Objects/FindController.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/FormSubmissionRequest.hs b/GI/WebKit2/Objects/FormSubmissionRequest.hs --- a/GI/WebKit2/Objects/FormSubmissionRequest.hs +++ b/GI/WebKit2/Objects/FormSubmissionRequest.hs @@ -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 diff --git a/GI/WebKit2/Objects/FormSubmissionRequest.hs-boot b/GI/WebKit2/Objects/FormSubmissionRequest.hs-boot --- a/GI/WebKit2/Objects/FormSubmissionRequest.hs-boot +++ b/GI/WebKit2/Objects/FormSubmissionRequest.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/GeolocationPermissionRequest.hs b/GI/WebKit2/Objects/GeolocationPermissionRequest.hs --- a/GI/WebKit2/Objects/GeolocationPermissionRequest.hs +++ b/GI/WebKit2/Objects/GeolocationPermissionRequest.hs @@ -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, *)]) diff --git a/GI/WebKit2/Objects/HitTestResult.hs b/GI/WebKit2/Objects/HitTestResult.hs --- a/GI/WebKit2/Objects/HitTestResult.hs +++ b/GI/WebKit2/Objects/HitTestResult.hs @@ -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 diff --git a/GI/WebKit2/Objects/HitTestResult.hs-boot b/GI/WebKit2/Objects/HitTestResult.hs-boot --- a/GI/WebKit2/Objects/HitTestResult.hs-boot +++ b/GI/WebKit2/Objects/HitTestResult.hs-boot @@ -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 diff --git a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs b/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs --- a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs +++ b/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs @@ -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 diff --git a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot b/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot --- a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot +++ b/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot @@ -11,3 +11,4 @@ instance GObject InstallMissingMediaPluginsPermissionRequest where class GObject o => InstallMissingMediaPluginsPermissionRequestK o instance (GObject o, IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => InstallMissingMediaPluginsPermissionRequestK o +data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo diff --git a/GI/WebKit2/Objects/NavigationPolicyDecision.hs b/GI/WebKit2/Objects/NavigationPolicyDecision.hs --- a/GI/WebKit2/Objects/NavigationPolicyDecision.hs +++ b/GI/WebKit2/Objects/NavigationPolicyDecision.hs @@ -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 diff --git a/GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot b/GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot --- a/GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot +++ b/GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot @@ -17,3 +17,9 @@ data NavigationPolicyDecisionNavigationActionPropertyInfo data NavigationPolicyDecisionNavigationTypePropertyInfo data NavigationPolicyDecisionRequestPropertyInfo +data NavigationPolicyDecisionGetFrameNameMethodInfo +data NavigationPolicyDecisionGetModifiersMethodInfo +data NavigationPolicyDecisionGetMouseButtonMethodInfo +data NavigationPolicyDecisionGetNavigationActionMethodInfo +data NavigationPolicyDecisionGetNavigationTypeMethodInfo +data NavigationPolicyDecisionGetRequestMethodInfo diff --git a/GI/WebKit2/Objects/Notification.hs b/GI/WebKit2/Objects/Notification.hs --- a/GI/WebKit2/Objects/Notification.hs +++ b/GI/WebKit2/Objects/Notification.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** notificationClose + NotificationCloseMethodInfo , notificationClose , -- ** notificationGetBody + NotificationGetBodyMethodInfo , notificationGetBody , -- ** notificationGetId + NotificationGetIdMethodInfo , notificationGetId , -- ** notificationGetTitle + NotificationGetTitleMethodInfo , notificationGetTitle , @@ -101,6 +106,43 @@ noNotification :: Maybe Notification noNotification = Nothing +type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where + ResolveNotificationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveNotificationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveNotificationMethod "close" o = NotificationCloseMethodInfo + ResolveNotificationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveNotificationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveNotificationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveNotificationMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveNotificationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveNotificationMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveNotificationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveNotificationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveNotificationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveNotificationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveNotificationMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveNotificationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveNotificationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveNotificationMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveNotificationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveNotificationMethod "getBody" o = NotificationGetBodyMethodInfo + ResolveNotificationMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveNotificationMethod "getId" o = NotificationGetIdMethodInfo + ResolveNotificationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveNotificationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveNotificationMethod "getTitle" o = NotificationGetTitleMethodInfo + ResolveNotificationMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveNotificationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveNotificationMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabelProxy t (Notification -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabel t (Notification -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Notification::closed type NotificationClosedCallback = IO () @@ -152,7 +194,7 @@ type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) () type AttrBaseTypeConstraint NotificationBodyPropertyInfo = NotificationK type AttrGetType NotificationBodyPropertyInfo = T.Text - type AttrLabel NotificationBodyPropertyInfo = "Notification::body" + type AttrLabel NotificationBodyPropertyInfo = "body" attrGet _ = getNotificationBody attrSet _ = undefined attrConstruct _ = undefined @@ -170,7 +212,7 @@ type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) () type AttrBaseTypeConstraint NotificationIdPropertyInfo = NotificationK type AttrGetType NotificationIdPropertyInfo = Word64 - type AttrLabel NotificationIdPropertyInfo = "Notification::id" + type AttrLabel NotificationIdPropertyInfo = "id" attrGet _ = getNotificationId attrSet _ = undefined attrConstruct _ = undefined @@ -188,7 +230,7 @@ type AttrSetTypeConstraint NotificationTitlePropertyInfo = (~) () type AttrBaseTypeConstraint NotificationTitlePropertyInfo = NotificationK type AttrGetType NotificationTitlePropertyInfo = T.Text - type AttrLabel NotificationTitlePropertyInfo = "Notification::title" + type AttrLabel NotificationTitlePropertyInfo = "title" attrGet _ = getNotificationTitle attrSet _ = undefined attrConstruct _ = undefined @@ -202,13 +244,12 @@ connectSignal _ = connectNotificationClosed type instance SignalList Notification = NotificationSignalList -type NotificationSignalList = ('[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NotificationSignalList = ('[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Notification::close -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -220,19 +261,22 @@ notificationClose :: (MonadIO m, NotificationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result notificationClose _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_notification_close _obj' touchManagedPtr _obj return () +data NotificationCloseMethodInfo +instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationCloseMethodInfo a signature where + overloadedMethod _ = notificationClose + -- method Notification::get_body -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -244,8 +288,8 @@ notificationGetBody :: (MonadIO m, NotificationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result notificationGetBody _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_notification_get_body _obj' @@ -254,11 +298,14 @@ touchManagedPtr _obj return result' +data NotificationGetBodyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, NotificationK a) => MethodInfo NotificationGetBodyMethodInfo a signature where + overloadedMethod _ = notificationGetBody + -- method Notification::get_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -270,19 +317,22 @@ notificationGetId :: (MonadIO m, NotificationK a) => - a -> -- _obj - m Word64 + a -- _obj + -> m Word64 -- result notificationGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_notification_get_id _obj' touchManagedPtr _obj return result +data NotificationGetIdMethodInfo +instance (signature ~ (m Word64), MonadIO m, NotificationK a) => MethodInfo NotificationGetIdMethodInfo a signature where + overloadedMethod _ = notificationGetId + -- method Notification::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -294,8 +344,8 @@ notificationGetTitle :: (MonadIO m, NotificationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result notificationGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_notification_get_title _obj' @@ -303,5 +353,9 @@ result' <- cstringToText result touchManagedPtr _obj return result' + +data NotificationGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, NotificationK a) => MethodInfo NotificationGetTitleMethodInfo a signature where + overloadedMethod _ = notificationGetTitle diff --git a/GI/WebKit2/Objects/Notification.hs-boot b/GI/WebKit2/Objects/Notification.hs-boot --- a/GI/WebKit2/Objects/Notification.hs-boot +++ b/GI/WebKit2/Objects/Notification.hs-boot @@ -15,3 +15,7 @@ data NotificationIdPropertyInfo data NotificationTitlePropertyInfo data NotificationClosedSignalInfo +data NotificationCloseMethodInfo +data NotificationGetBodyMethodInfo +data NotificationGetIdMethodInfo +data NotificationGetTitleMethodInfo diff --git a/GI/WebKit2/Objects/NotificationPermissionRequest.hs b/GI/WebKit2/Objects/NotificationPermissionRequest.hs --- a/GI/WebKit2/Objects/NotificationPermissionRequest.hs +++ b/GI/WebKit2/Objects/NotificationPermissionRequest.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -49,10 +50,45 @@ noNotificationPermissionRequest :: Maybe NotificationPermissionRequest noNotificationPermissionRequest = Nothing +type family ResolveNotificationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where + ResolveNotificationPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo + ResolveNotificationPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveNotificationPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveNotificationPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo + ResolveNotificationPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveNotificationPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveNotificationPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveNotificationPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveNotificationPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveNotificationPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveNotificationPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveNotificationPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveNotificationPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveNotificationPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveNotificationPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveNotificationPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveNotificationPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveNotificationPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveNotificationPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveNotificationPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveNotificationPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveNotificationPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveNotificationPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveNotificationPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveNotificationPermissionRequestMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNotificationPermissionRequestMethod t NotificationPermissionRequest, MethodInfo info NotificationPermissionRequest p) => IsLabelProxy t (NotificationPermissionRequest -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNotificationPermissionRequestMethod t NotificationPermissionRequest, MethodInfo info NotificationPermissionRequest p) => IsLabel t (NotificationPermissionRequest -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList NotificationPermissionRequest = NotificationPermissionRequestAttributeList type NotificationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList NotificationPermissionRequest = NotificationPermissionRequestSignalList -type NotificationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NotificationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit2/Objects/Plugin.hs b/GI/WebKit2/Objects/Plugin.hs --- a/GI/WebKit2/Objects/Plugin.hs +++ b/GI/WebKit2/Objects/Plugin.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** pluginGetDescription + PluginGetDescriptionMethodInfo , pluginGetDescription , -- ** pluginGetMimeInfoList + PluginGetMimeInfoListMethodInfo , pluginGetMimeInfoList , -- ** pluginGetName + PluginGetNameMethodInfo , pluginGetName , -- ** pluginGetPath + PluginGetPathMethodInfo , pluginGetPath , @@ -68,17 +73,53 @@ noPlugin :: Maybe Plugin noPlugin = Nothing +type family ResolvePluginMethod (t :: Symbol) (o :: *) :: * where + ResolvePluginMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePluginMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePluginMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePluginMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePluginMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePluginMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePluginMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePluginMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePluginMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePluginMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePluginMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePluginMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePluginMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePluginMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePluginMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePluginMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePluginMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePluginMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePluginMethod "getDescription" o = PluginGetDescriptionMethodInfo + ResolvePluginMethod "getMimeInfoList" o = PluginGetMimeInfoListMethodInfo + ResolvePluginMethod "getName" o = PluginGetNameMethodInfo + ResolvePluginMethod "getPath" o = PluginGetPathMethodInfo + ResolvePluginMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePluginMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePluginMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePluginMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePluginMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePluginMethod t Plugin, MethodInfo info Plugin p) => IsLabelProxy t (Plugin -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePluginMethod t Plugin, MethodInfo info Plugin p) => IsLabel t (Plugin -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Plugin = PluginAttributeList type PluginAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList Plugin = PluginSignalList -type PluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Plugin::get_description -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -90,8 +131,8 @@ pluginGetDescription :: (MonadIO m, PluginK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result pluginGetDescription _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_plugin_get_description _obj' @@ -100,11 +141,14 @@ touchManagedPtr _obj return result' +data PluginGetDescriptionMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetDescriptionMethodInfo a signature where + overloadedMethod _ = pluginGetDescription + -- method Plugin::get_mime_info_list -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "WebKit2" "MimeInfo") -- throws : False -- Skip return : False @@ -116,8 +160,8 @@ pluginGetMimeInfoList :: (MonadIO m, PluginK a) => - a -> -- _obj - m [MimeInfo] + a -- _obj + -> m [MimeInfo] -- result pluginGetMimeInfoList _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_plugin_get_mime_info_list _obj' @@ -127,11 +171,14 @@ touchManagedPtr _obj return result'' +data PluginGetMimeInfoListMethodInfo +instance (signature ~ (m [MimeInfo]), MonadIO m, PluginK a) => MethodInfo PluginGetMimeInfoListMethodInfo a signature where + overloadedMethod _ = pluginGetMimeInfoList + -- method Plugin::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -143,8 +190,8 @@ pluginGetName :: (MonadIO m, PluginK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result pluginGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_plugin_get_name _obj' @@ -153,11 +200,14 @@ touchManagedPtr _obj return result' +data PluginGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetNameMethodInfo a signature where + overloadedMethod _ = pluginGetName + -- method Plugin::get_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -169,8 +219,8 @@ pluginGetPath :: (MonadIO m, PluginK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result pluginGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_plugin_get_path _obj' @@ -178,5 +228,9 @@ result' <- cstringToText result touchManagedPtr _obj return result' + +data PluginGetPathMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetPathMethodInfo a signature where + overloadedMethod _ = pluginGetPath diff --git a/GI/WebKit2/Objects/Plugin.hs-boot b/GI/WebKit2/Objects/Plugin.hs-boot --- a/GI/WebKit2/Objects/Plugin.hs-boot +++ b/GI/WebKit2/Objects/Plugin.hs-boot @@ -11,3 +11,7 @@ instance GObject Plugin where class GObject o => PluginK o instance (GObject o, IsDescendantOf Plugin o) => PluginK o +data PluginGetDescriptionMethodInfo +data PluginGetMimeInfoListMethodInfo +data PluginGetNameMethodInfo +data PluginGetPathMethodInfo diff --git a/GI/WebKit2/Objects/PolicyDecision.hs b/GI/WebKit2/Objects/PolicyDecision.hs --- a/GI/WebKit2/Objects/PolicyDecision.hs +++ b/GI/WebKit2/Objects/PolicyDecision.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** policyDecisionDownload + PolicyDecisionDownloadMethodInfo , policyDecisionDownload , -- ** policyDecisionIgnore + PolicyDecisionIgnoreMethodInfo , policyDecisionIgnore , -- ** policyDecisionUse + PolicyDecisionUseMethodInfo , policyDecisionUse , @@ -64,17 +68,52 @@ noPolicyDecision :: Maybe PolicyDecision noPolicyDecision = Nothing +type family ResolvePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where + ResolvePolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo + ResolvePolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo + ResolvePolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo + ResolvePolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePolicyDecisionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePolicyDecisionMethod t PolicyDecision, MethodInfo info PolicyDecision p) => IsLabelProxy t (PolicyDecision -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePolicyDecisionMethod t PolicyDecision, MethodInfo info PolicyDecision p) => IsLabel t (PolicyDecision -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PolicyDecision = PolicyDecisionAttributeList type PolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList PolicyDecision = PolicyDecisionSignalList -type PolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PolicyDecision::download -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -86,19 +125,22 @@ policyDecisionDownload :: (MonadIO m, PolicyDecisionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result policyDecisionDownload _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_policy_decision_download _obj' touchManagedPtr _obj return () +data PolicyDecisionDownloadMethodInfo +instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionDownloadMethodInfo a signature where + overloadedMethod _ = policyDecisionDownload + -- method PolicyDecision::ignore -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -110,19 +152,22 @@ policyDecisionIgnore :: (MonadIO m, PolicyDecisionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result policyDecisionIgnore _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_policy_decision_ignore _obj' touchManagedPtr _obj return () +data PolicyDecisionIgnoreMethodInfo +instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionIgnoreMethodInfo a signature where + overloadedMethod _ = policyDecisionIgnore + -- method PolicyDecision::use -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -134,12 +179,16 @@ policyDecisionUse :: (MonadIO m, PolicyDecisionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result policyDecisionUse _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_policy_decision_use _obj' touchManagedPtr _obj return () + +data PolicyDecisionUseMethodInfo +instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionUseMethodInfo a signature where + overloadedMethod _ = policyDecisionUse diff --git a/GI/WebKit2/Objects/PolicyDecision.hs-boot b/GI/WebKit2/Objects/PolicyDecision.hs-boot --- a/GI/WebKit2/Objects/PolicyDecision.hs-boot +++ b/GI/WebKit2/Objects/PolicyDecision.hs-boot @@ -11,3 +11,6 @@ instance GObject PolicyDecision where class GObject o => PolicyDecisionK o instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o +data PolicyDecisionDownloadMethodInfo +data PolicyDecisionIgnoreMethodInfo +data PolicyDecisionUseMethodInfo diff --git a/GI/WebKit2/Objects/PrintOperation.hs b/GI/WebKit2/Objects/PrintOperation.hs --- a/GI/WebKit2/Objects/PrintOperation.hs +++ b/GI/WebKit2/Objects/PrintOperation.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** printOperationGetPageSetup + PrintOperationGetPageSetupMethodInfo , printOperationGetPageSetup , -- ** printOperationGetPrintSettings + PrintOperationGetPrintSettingsMethodInfo, printOperationGetPrintSettings , @@ -29,18 +32,22 @@ -- ** printOperationPrint + PrintOperationPrintMethodInfo , printOperationPrint , -- ** printOperationRunDialog + PrintOperationRunDialogMethodInfo , printOperationRunDialog , -- ** printOperationSetPageSetup + PrintOperationSetPageSetupMethodInfo , printOperationSetPageSetup , -- ** printOperationSetPrintSettings + PrintOperationSetPrintSettingsMethodInfo, printOperationSetPrintSettings , @@ -131,6 +138,45 @@ noPrintOperation :: Maybe PrintOperation noPrintOperation = Nothing +type family ResolvePrintOperationMethod (t :: Symbol) (o :: *) :: * where + ResolvePrintOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePrintOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePrintOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePrintOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePrintOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePrintOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePrintOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePrintOperationMethod "print" o = PrintOperationPrintMethodInfo + ResolvePrintOperationMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePrintOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePrintOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePrintOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePrintOperationMethod "runDialog" o = PrintOperationRunDialogMethodInfo + ResolvePrintOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePrintOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePrintOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePrintOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePrintOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePrintOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePrintOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePrintOperationMethod "getPageSetup" o = PrintOperationGetPageSetupMethodInfo + ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo + ResolvePrintOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePrintOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePrintOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePrintOperationMethod "setPageSetup" o = PrintOperationSetPageSetupMethodInfo + ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo + ResolvePrintOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePrintOperationMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabelProxy t (PrintOperation -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabel t (PrintOperation -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal PrintOperation::failed type PrintOperationFailedCallback = Ptr () -> @@ -229,7 +275,7 @@ type AttrSetTypeConstraint PrintOperationPageSetupPropertyInfo = Gtk.PageSetupK type AttrBaseTypeConstraint PrintOperationPageSetupPropertyInfo = PrintOperationK type AttrGetType PrintOperationPageSetupPropertyInfo = Gtk.PageSetup - type AttrLabel PrintOperationPageSetupPropertyInfo = "PrintOperation::page-setup" + type AttrLabel PrintOperationPageSetupPropertyInfo = "page-setup" attrGet _ = getPrintOperationPageSetup attrSet _ = setPrintOperationPageSetup attrConstruct _ = constructPrintOperationPageSetup @@ -253,7 +299,7 @@ type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettingsK type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK type AttrGetType PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings - type AttrLabel PrintOperationPrintSettingsPropertyInfo = "PrintOperation::print-settings" + type AttrLabel PrintOperationPrintSettingsPropertyInfo = "print-settings" attrGet _ = getPrintOperationPrintSettings attrSet _ = setPrintOperationPrintSettings attrConstruct _ = constructPrintOperationPrintSettings @@ -274,13 +320,13 @@ type AttrSetTypeConstraint PrintOperationWebViewPropertyInfo = WebViewK type AttrBaseTypeConstraint PrintOperationWebViewPropertyInfo = PrintOperationK type AttrGetType PrintOperationWebViewPropertyInfo = WebView - type AttrLabel PrintOperationWebViewPropertyInfo = "PrintOperation::web-view" + type AttrLabel PrintOperationWebViewPropertyInfo = "web-view" attrGet _ = getPrintOperationWebView attrSet _ = undefined attrConstruct _ = constructPrintOperationWebView type instance AttributeList PrintOperation = PrintOperationAttributeList -type PrintOperationAttributeList = ('[ '("page-setup", PrintOperationPageSetupPropertyInfo), '("print-settings", PrintOperationPrintSettingsPropertyInfo), '("web-view", PrintOperationWebViewPropertyInfo)] :: [(Symbol, *)]) +type PrintOperationAttributeList = ('[ '("pageSetup", PrintOperationPageSetupPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("webView", PrintOperationWebViewPropertyInfo)] :: [(Symbol, *)]) data PrintOperationFailedSignalInfo instance SignalInfo PrintOperationFailedSignalInfo where @@ -293,13 +339,12 @@ connectSignal _ = connectPrintOperationFinished type instance SignalList PrintOperation = PrintOperationSignalList -type PrintOperationSignalList = ('[ '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PrintOperationSignalList = ('[ '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PrintOperation::new -- method type : Constructor --- Args : [Arg {argName = "web_view", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "web_view", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "web_view", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "PrintOperation" -- throws : False -- Skip return : False @@ -311,21 +356,20 @@ printOperationNew :: (MonadIO m, WebViewK a) => - a -> -- web_view - m PrintOperation -printOperationNew web_view = liftIO $ do - let web_view' = unsafeManagedPtrCastPtr web_view - result <- webkit_print_operation_new web_view' + a -- webView + -> m PrintOperation -- result +printOperationNew webView = liftIO $ do + let webView' = unsafeManagedPtrCastPtr webView + result <- webkit_print_operation_new webView' checkUnexpectedReturnNULL "webkit_print_operation_new" result result' <- (wrapObject PrintOperation) result - touchManagedPtr web_view + touchManagedPtr webView return result' -- method PrintOperation::get_page_setup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PageSetup" -- throws : False -- Skip return : False @@ -337,8 +381,8 @@ printOperationGetPageSetup :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m Gtk.PageSetup + a -- _obj + -> m Gtk.PageSetup -- result printOperationGetPageSetup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_print_operation_get_page_setup _obj' @@ -347,11 +391,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetPageSetupMethodInfo +instance (signature ~ (m Gtk.PageSetup), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPageSetupMethodInfo a signature where + overloadedMethod _ = printOperationGetPageSetup + -- method PrintOperation::get_print_settings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PrintSettings" -- throws : False -- Skip return : False @@ -363,8 +410,8 @@ printOperationGetPrintSettings :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m Gtk.PrintSettings + a -- _obj + -> m Gtk.PrintSettings -- result printOperationGetPrintSettings _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_print_operation_get_print_settings _obj' @@ -373,11 +420,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetPrintSettingsMethodInfo +instance (signature ~ (m Gtk.PrintSettings), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPrintSettingsMethodInfo a signature where + overloadedMethod _ = printOperationGetPrintSettings + -- method PrintOperation::print -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -389,19 +439,22 @@ printOperationPrint :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result printOperationPrint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_print_operation_print _obj' touchManagedPtr _obj return () +data PrintOperationPrintMethodInfo +instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationPrintMethodInfo a signature where + overloadedMethod _ = printOperationPrint + -- method PrintOperation::run_dialog -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "PrintOperationResponse" -- throws : False -- Skip return : False @@ -414,9 +467,9 @@ printOperationRunDialog :: (MonadIO m, PrintOperationK a, Gtk.WindowK b) => - a -> -- _obj - Maybe (b) -> -- parent - m PrintOperationResponse + a -- _obj + -> Maybe (b) -- parent + -> m PrintOperationResponse -- result printOperationRunDialog _obj parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeParent <- case parent of @@ -430,11 +483,14 @@ whenJust parent touchManagedPtr return result' +data PrintOperationRunDialogMethodInfo +instance (signature ~ (Maybe (b) -> m PrintOperationResponse), MonadIO m, PrintOperationK a, Gtk.WindowK b) => MethodInfo PrintOperationRunDialogMethodInfo a signature where + overloadedMethod _ = printOperationRunDialog + -- method PrintOperation::set_page_setup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -447,22 +503,25 @@ printOperationSetPageSetup :: (MonadIO m, PrintOperationK a, Gtk.PageSetupK b) => - a -> -- _obj - b -> -- page_setup - m () -printOperationSetPageSetup _obj page_setup = liftIO $ do + a -- _obj + -> b -- pageSetup + -> m () -- result +printOperationSetPageSetup _obj pageSetup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let page_setup' = unsafeManagedPtrCastPtr page_setup - webkit_print_operation_set_page_setup _obj' page_setup' + let pageSetup' = unsafeManagedPtrCastPtr pageSetup + webkit_print_operation_set_page_setup _obj' pageSetup' touchManagedPtr _obj - touchManagedPtr page_setup + touchManagedPtr pageSetup return () +data PrintOperationSetPageSetupMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, PrintOperationK a, Gtk.PageSetupK b) => MethodInfo PrintOperationSetPageSetupMethodInfo a signature where + overloadedMethod _ = printOperationSetPageSetup + -- method PrintOperation::set_print_settings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -475,15 +534,19 @@ printOperationSetPrintSettings :: (MonadIO m, PrintOperationK a, Gtk.PrintSettingsK b) => - a -> -- _obj - b -> -- print_settings - m () -printOperationSetPrintSettings _obj print_settings = liftIO $ do + a -- _obj + -> b -- printSettings + -> m () -- result +printOperationSetPrintSettings _obj printSettings = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let print_settings' = unsafeManagedPtrCastPtr print_settings - webkit_print_operation_set_print_settings _obj' print_settings' + let printSettings' = unsafeManagedPtrCastPtr printSettings + webkit_print_operation_set_print_settings _obj' printSettings' touchManagedPtr _obj - touchManagedPtr print_settings + touchManagedPtr printSettings return () + +data PrintOperationSetPrintSettingsMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, PrintOperationK a, Gtk.PrintSettingsK b) => MethodInfo PrintOperationSetPrintSettingsMethodInfo a signature where + overloadedMethod _ = printOperationSetPrintSettings diff --git a/GI/WebKit2/Objects/PrintOperation.hs-boot b/GI/WebKit2/Objects/PrintOperation.hs-boot --- a/GI/WebKit2/Objects/PrintOperation.hs-boot +++ b/GI/WebKit2/Objects/PrintOperation.hs-boot @@ -16,3 +16,9 @@ data PrintOperationWebViewPropertyInfo data PrintOperationFailedSignalInfo data PrintOperationFinishedSignalInfo +data PrintOperationGetPageSetupMethodInfo +data PrintOperationGetPrintSettingsMethodInfo +data PrintOperationPrintMethodInfo +data PrintOperationRunDialogMethodInfo +data PrintOperationSetPageSetupMethodInfo +data PrintOperationSetPrintSettingsMethodInfo diff --git a/GI/WebKit2/Objects/ResponsePolicyDecision.hs b/GI/WebKit2/Objects/ResponsePolicyDecision.hs --- a/GI/WebKit2/Objects/ResponsePolicyDecision.hs +++ b/GI/WebKit2/Objects/ResponsePolicyDecision.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** responsePolicyDecisionGetRequest + ResponsePolicyDecisionGetRequestMethodInfo, responsePolicyDecisionGetRequest , -- ** responsePolicyDecisionGetResponse + ResponsePolicyDecisionGetResponseMethodInfo, responsePolicyDecisionGetResponse , -- ** responsePolicyDecisionIsMimeTypeSupported + ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo, responsePolicyDecisionIsMimeTypeSupported, @@ -77,6 +81,45 @@ noResponsePolicyDecision :: Maybe ResponsePolicyDecision noResponsePolicyDecision = Nothing +type family ResolveResponsePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where + ResolveResponsePolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveResponsePolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveResponsePolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo + ResolveResponsePolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveResponsePolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveResponsePolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo + ResolveResponsePolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveResponsePolicyDecisionMethod "isMimeTypeSupported" o = ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo + ResolveResponsePolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveResponsePolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveResponsePolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveResponsePolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveResponsePolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveResponsePolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveResponsePolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveResponsePolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveResponsePolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveResponsePolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveResponsePolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveResponsePolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo + ResolveResponsePolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveResponsePolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveResponsePolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveResponsePolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveResponsePolicyDecisionMethod "getRequest" o = ResponsePolicyDecisionGetRequestMethodInfo + ResolveResponsePolicyDecisionMethod "getResponse" o = ResponsePolicyDecisionGetResponseMethodInfo + ResolveResponsePolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveResponsePolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveResponsePolicyDecisionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, MethodInfo info ResponsePolicyDecision p) => IsLabelProxy t (ResponsePolicyDecision -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, MethodInfo info ResponsePolicyDecision p) => IsLabel t (ResponsePolicyDecision -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "request" -- Type: TInterface "WebKit2" "URIRequest" -- Flags: [PropertyReadable] @@ -90,7 +133,7 @@ type AttrSetTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) () type AttrBaseTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = ResponsePolicyDecisionK type AttrGetType ResponsePolicyDecisionRequestPropertyInfo = URIRequest - type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "ResponsePolicyDecision::request" + type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "request" attrGet _ = getResponsePolicyDecisionRequest attrSet _ = undefined attrConstruct _ = undefined @@ -108,7 +151,7 @@ type AttrSetTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) () type AttrBaseTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = ResponsePolicyDecisionK type AttrGetType ResponsePolicyDecisionResponsePropertyInfo = URIResponse - type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "ResponsePolicyDecision::response" + type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "response" attrGet _ = getResponsePolicyDecisionResponse attrSet _ = undefined attrConstruct _ = undefined @@ -117,13 +160,12 @@ type ResponsePolicyDecisionAttributeList = ('[ '("request", ResponsePolicyDecisionRequestPropertyInfo), '("response", ResponsePolicyDecisionResponsePropertyInfo)] :: [(Symbol, *)]) type instance SignalList ResponsePolicyDecision = ResponsePolicyDecisionSignalList -type ResponsePolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ResponsePolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ResponsePolicyDecision::get_request -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIRequest" -- throws : False -- Skip return : False @@ -135,8 +177,8 @@ responsePolicyDecisionGetRequest :: (MonadIO m, ResponsePolicyDecisionK a) => - a -> -- _obj - m URIRequest + a -- _obj + -> m URIRequest -- result responsePolicyDecisionGetRequest _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_response_policy_decision_get_request _obj' @@ -145,11 +187,14 @@ touchManagedPtr _obj return result' +data ResponsePolicyDecisionGetRequestMethodInfo +instance (signature ~ (m URIRequest), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionGetRequestMethodInfo a signature where + overloadedMethod _ = responsePolicyDecisionGetRequest + -- method ResponsePolicyDecision::get_response -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIResponse" -- throws : False -- Skip return : False @@ -161,8 +206,8 @@ responsePolicyDecisionGetResponse :: (MonadIO m, ResponsePolicyDecisionK a) => - a -> -- _obj - m URIResponse + a -- _obj + -> m URIResponse -- result responsePolicyDecisionGetResponse _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_response_policy_decision_get_response _obj' @@ -171,11 +216,14 @@ touchManagedPtr _obj return result' +data ResponsePolicyDecisionGetResponseMethodInfo +instance (signature ~ (m URIResponse), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionGetResponseMethodInfo a signature where + overloadedMethod _ = responsePolicyDecisionGetResponse + -- method ResponsePolicyDecision::is_mime_type_supported -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -187,13 +235,17 @@ responsePolicyDecisionIsMimeTypeSupported :: (MonadIO m, ResponsePolicyDecisionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result responsePolicyDecisionIsMimeTypeSupported _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_response_policy_decision_is_mime_type_supported _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo +instance (signature ~ (m Bool), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo a signature where + overloadedMethod _ = responsePolicyDecisionIsMimeTypeSupported diff --git a/GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot b/GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot --- a/GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot +++ b/GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot @@ -13,3 +13,6 @@ instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o data ResponsePolicyDecisionRequestPropertyInfo data ResponsePolicyDecisionResponsePropertyInfo +data ResponsePolicyDecisionGetRequestMethodInfo +data ResponsePolicyDecisionGetResponseMethodInfo +data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo diff --git a/GI/WebKit2/Objects/SecurityManager.hs b/GI/WebKit2/Objects/SecurityManager.hs --- a/GI/WebKit2/Objects/SecurityManager.hs +++ b/GI/WebKit2/Objects/SecurityManager.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * Methods -- ** securityManagerRegisterUriSchemeAsCorsEnabled + SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo, securityManagerRegisterUriSchemeAsCorsEnabled, -- ** securityManagerRegisterUriSchemeAsDisplayIsolated + SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo, securityManagerRegisterUriSchemeAsDisplayIsolated, -- ** securityManagerRegisterUriSchemeAsEmptyDocument + SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo, securityManagerRegisterUriSchemeAsEmptyDocument, -- ** securityManagerRegisterUriSchemeAsLocal + SecurityManagerRegisterUriSchemeAsLocalMethodInfo, securityManagerRegisterUriSchemeAsLocal , -- ** securityManagerRegisterUriSchemeAsNoAccess + SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo, securityManagerRegisterUriSchemeAsNoAccess, -- ** securityManagerRegisterUriSchemeAsSecure + SecurityManagerRegisterUriSchemeAsSecureMethodInfo, securityManagerRegisterUriSchemeAsSecure, -- ** securityManagerUriSchemeIsCorsEnabled + SecurityManagerUriSchemeIsCorsEnabledMethodInfo, securityManagerUriSchemeIsCorsEnabled , -- ** securityManagerUriSchemeIsDisplayIsolated + SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo, securityManagerUriSchemeIsDisplayIsolated, -- ** securityManagerUriSchemeIsEmptyDocument + SecurityManagerUriSchemeIsEmptyDocumentMethodInfo, securityManagerUriSchemeIsEmptyDocument , -- ** securityManagerUriSchemeIsLocal + SecurityManagerUriSchemeIsLocalMethodInfo, securityManagerUriSchemeIsLocal , -- ** securityManagerUriSchemeIsNoAccess + SecurityManagerUriSchemeIsNoAccessMethodInfo, securityManagerUriSchemeIsNoAccess , -- ** securityManagerUriSchemeIsSecure + SecurityManagerUriSchemeIsSecureMethodInfo, securityManagerUriSchemeIsSecure , @@ -100,17 +113,61 @@ noSecurityManager :: Maybe SecurityManager noSecurityManager = Nothing +type family ResolveSecurityManagerMethod (t :: Symbol) (o :: *) :: * where + ResolveSecurityManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSecurityManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSecurityManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSecurityManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSecurityManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSecurityManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSecurityManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSecurityManagerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSecurityManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSecurityManagerMethod "registerUriSchemeAsCorsEnabled" o = SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo + ResolveSecurityManagerMethod "registerUriSchemeAsDisplayIsolated" o = SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo + ResolveSecurityManagerMethod "registerUriSchemeAsEmptyDocument" o = SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo + ResolveSecurityManagerMethod "registerUriSchemeAsLocal" o = SecurityManagerRegisterUriSchemeAsLocalMethodInfo + ResolveSecurityManagerMethod "registerUriSchemeAsNoAccess" o = SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo + ResolveSecurityManagerMethod "registerUriSchemeAsSecure" o = SecurityManagerRegisterUriSchemeAsSecureMethodInfo + ResolveSecurityManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSecurityManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSecurityManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSecurityManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSecurityManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSecurityManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSecurityManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSecurityManagerMethod "uriSchemeIsCorsEnabled" o = SecurityManagerUriSchemeIsCorsEnabledMethodInfo + ResolveSecurityManagerMethod "uriSchemeIsDisplayIsolated" o = SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo + ResolveSecurityManagerMethod "uriSchemeIsEmptyDocument" o = SecurityManagerUriSchemeIsEmptyDocumentMethodInfo + ResolveSecurityManagerMethod "uriSchemeIsLocal" o = SecurityManagerUriSchemeIsLocalMethodInfo + ResolveSecurityManagerMethod "uriSchemeIsNoAccess" o = SecurityManagerUriSchemeIsNoAccessMethodInfo + ResolveSecurityManagerMethod "uriSchemeIsSecure" o = SecurityManagerUriSchemeIsSecureMethodInfo + ResolveSecurityManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSecurityManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSecurityManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSecurityManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSecurityManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSecurityManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSecurityManagerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSecurityManagerMethod t SecurityManager, MethodInfo info SecurityManager p) => IsLabelProxy t (SecurityManager -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSecurityManagerMethod t SecurityManager, MethodInfo info SecurityManager p) => IsLabel t (SecurityManager -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList SecurityManager = SecurityManagerAttributeList type SecurityManagerAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList SecurityManager = SecurityManagerSignalList -type SecurityManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SecurityManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SecurityManager::register_uri_scheme_as_cors_enabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -123,9 +180,9 @@ securityManagerRegisterUriSchemeAsCorsEnabled :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m () + a -- _obj + -> T.Text -- scheme + -> m () -- result securityManagerRegisterUriSchemeAsCorsEnabled _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -134,11 +191,14 @@ freeMem scheme' return () +data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo a signature where + overloadedMethod _ = securityManagerRegisterUriSchemeAsCorsEnabled + -- method SecurityManager::register_uri_scheme_as_display_isolated -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -151,9 +211,9 @@ securityManagerRegisterUriSchemeAsDisplayIsolated :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m () + a -- _obj + -> T.Text -- scheme + -> m () -- result securityManagerRegisterUriSchemeAsDisplayIsolated _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -162,11 +222,14 @@ freeMem scheme' return () +data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo a signature where + overloadedMethod _ = securityManagerRegisterUriSchemeAsDisplayIsolated + -- method SecurityManager::register_uri_scheme_as_empty_document -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -179,9 +242,9 @@ securityManagerRegisterUriSchemeAsEmptyDocument :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m () + a -- _obj + -> T.Text -- scheme + -> m () -- result securityManagerRegisterUriSchemeAsEmptyDocument _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -190,11 +253,14 @@ freeMem scheme' return () +data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo a signature where + overloadedMethod _ = securityManagerRegisterUriSchemeAsEmptyDocument + -- method SecurityManager::register_uri_scheme_as_local -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -207,9 +273,9 @@ securityManagerRegisterUriSchemeAsLocal :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m () + a -- _obj + -> T.Text -- scheme + -> m () -- result securityManagerRegisterUriSchemeAsLocal _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -218,11 +284,14 @@ freeMem scheme' return () +data SecurityManagerRegisterUriSchemeAsLocalMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsLocalMethodInfo a signature where + overloadedMethod _ = securityManagerRegisterUriSchemeAsLocal + -- method SecurityManager::register_uri_scheme_as_no_access -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -235,9 +304,9 @@ securityManagerRegisterUriSchemeAsNoAccess :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m () + a -- _obj + -> T.Text -- scheme + -> m () -- result securityManagerRegisterUriSchemeAsNoAccess _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -246,11 +315,14 @@ freeMem scheme' return () +data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo a signature where + overloadedMethod _ = securityManagerRegisterUriSchemeAsNoAccess + -- method SecurityManager::register_uri_scheme_as_secure -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -263,9 +335,9 @@ securityManagerRegisterUriSchemeAsSecure :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m () + a -- _obj + -> T.Text -- scheme + -> m () -- result securityManagerRegisterUriSchemeAsSecure _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -274,11 +346,14 @@ freeMem scheme' return () +data SecurityManagerRegisterUriSchemeAsSecureMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsSecureMethodInfo a signature where + overloadedMethod _ = securityManagerRegisterUriSchemeAsSecure + -- method SecurityManager::uri_scheme_is_cors_enabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -291,9 +366,9 @@ securityManagerUriSchemeIsCorsEnabled :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m Bool + a -- _obj + -> T.Text -- scheme + -> m Bool -- result securityManagerUriSchemeIsCorsEnabled _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -303,11 +378,14 @@ freeMem scheme' return result' +data SecurityManagerUriSchemeIsCorsEnabledMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsCorsEnabledMethodInfo a signature where + overloadedMethod _ = securityManagerUriSchemeIsCorsEnabled + -- method SecurityManager::uri_scheme_is_display_isolated -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -320,9 +398,9 @@ securityManagerUriSchemeIsDisplayIsolated :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m Bool + a -- _obj + -> T.Text -- scheme + -> m Bool -- result securityManagerUriSchemeIsDisplayIsolated _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -332,11 +410,14 @@ freeMem scheme' return result' +data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo a signature where + overloadedMethod _ = securityManagerUriSchemeIsDisplayIsolated + -- method SecurityManager::uri_scheme_is_empty_document -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -349,9 +430,9 @@ securityManagerUriSchemeIsEmptyDocument :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m Bool + a -- _obj + -> T.Text -- scheme + -> m Bool -- result securityManagerUriSchemeIsEmptyDocument _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -361,11 +442,14 @@ freeMem scheme' return result' +data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsEmptyDocumentMethodInfo a signature where + overloadedMethod _ = securityManagerUriSchemeIsEmptyDocument + -- method SecurityManager::uri_scheme_is_local -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -378,9 +462,9 @@ securityManagerUriSchemeIsLocal :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m Bool + a -- _obj + -> T.Text -- scheme + -> m Bool -- result securityManagerUriSchemeIsLocal _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -390,11 +474,14 @@ freeMem scheme' return result' +data SecurityManagerUriSchemeIsLocalMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsLocalMethodInfo a signature where + overloadedMethod _ = securityManagerUriSchemeIsLocal + -- method SecurityManager::uri_scheme_is_no_access -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -407,9 +494,9 @@ securityManagerUriSchemeIsNoAccess :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m Bool + a -- _obj + -> T.Text -- scheme + -> m Bool -- result securityManagerUriSchemeIsNoAccess _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -419,11 +506,14 @@ freeMem scheme' return result' +data SecurityManagerUriSchemeIsNoAccessMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsNoAccessMethodInfo a signature where + overloadedMethod _ = securityManagerUriSchemeIsNoAccess + -- method SecurityManager::uri_scheme_is_secure -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", 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" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -436,9 +526,9 @@ securityManagerUriSchemeIsSecure :: (MonadIO m, SecurityManagerK a) => - a -> -- _obj - T.Text -> -- scheme - m Bool + a -- _obj + -> T.Text -- scheme + -> m Bool -- result securityManagerUriSchemeIsSecure _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -447,5 +537,9 @@ touchManagedPtr _obj freeMem scheme' return result' + +data SecurityManagerUriSchemeIsSecureMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsSecureMethodInfo a signature where + overloadedMethod _ = securityManagerUriSchemeIsSecure diff --git a/GI/WebKit2/Objects/SecurityManager.hs-boot b/GI/WebKit2/Objects/SecurityManager.hs-boot --- a/GI/WebKit2/Objects/SecurityManager.hs-boot +++ b/GI/WebKit2/Objects/SecurityManager.hs-boot @@ -11,3 +11,15 @@ instance GObject SecurityManager where class GObject o => SecurityManagerK o instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o +data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo +data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo +data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo +data SecurityManagerRegisterUriSchemeAsLocalMethodInfo +data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo +data SecurityManagerRegisterUriSchemeAsSecureMethodInfo +data SecurityManagerUriSchemeIsCorsEnabledMethodInfo +data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo +data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo +data SecurityManagerUriSchemeIsLocalMethodInfo +data SecurityManagerUriSchemeIsNoAccessMethodInfo +data SecurityManagerUriSchemeIsSecureMethodInfo diff --git a/GI/WebKit2/Objects/Settings.hs b/GI/WebKit2/Objects/Settings.hs --- a/GI/WebKit2/Objects/Settings.hs +++ b/GI/WebKit2/Objects/Settings.hs @@ -1,4609 +1,5137 @@ -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.Settings - ( - --- * Exported types - Settings(..) , - SettingsK , - toSettings , - noSettings , - - - -- * Methods --- ** settingsGetAllowFileAccessFromFileUrls - settingsGetAllowFileAccessFromFileUrls , - - --- ** settingsGetAllowModalDialogs - settingsGetAllowModalDialogs , - - --- ** settingsGetAutoLoadImages - settingsGetAutoLoadImages , - - --- ** settingsGetCursiveFontFamily - settingsGetCursiveFontFamily , - - --- ** settingsGetDefaultCharset - settingsGetDefaultCharset , - - --- ** settingsGetDefaultFontFamily - settingsGetDefaultFontFamily , - - --- ** settingsGetDefaultFontSize - settingsGetDefaultFontSize , - - --- ** settingsGetDefaultMonospaceFontSize - settingsGetDefaultMonospaceFontSize , - - --- ** settingsGetDrawCompositingIndicators - settingsGetDrawCompositingIndicators , - - --- ** settingsGetEnableAccelerated2dCanvas - settingsGetEnableAccelerated2dCanvas , - - --- ** settingsGetEnableCaretBrowsing - settingsGetEnableCaretBrowsing , - - --- ** settingsGetEnableDeveloperExtras - settingsGetEnableDeveloperExtras , - - --- ** settingsGetEnableDnsPrefetching - settingsGetEnableDnsPrefetching , - - --- ** settingsGetEnableFrameFlattening - settingsGetEnableFrameFlattening , - - --- ** settingsGetEnableFullscreen - settingsGetEnableFullscreen , - - --- ** settingsGetEnableHtml5Database - settingsGetEnableHtml5Database , - - --- ** settingsGetEnableHtml5LocalStorage - settingsGetEnableHtml5LocalStorage , - - --- ** settingsGetEnableHyperlinkAuditing - settingsGetEnableHyperlinkAuditing , - - --- ** settingsGetEnableJava - settingsGetEnableJava , - - --- ** settingsGetEnableJavascript - settingsGetEnableJavascript , - - --- ** settingsGetEnableMediaStream - settingsGetEnableMediaStream , - - --- ** settingsGetEnableMediasource - settingsGetEnableMediasource , - - --- ** settingsGetEnableOfflineWebApplicationCache - settingsGetEnableOfflineWebApplicationCache, - - --- ** settingsGetEnablePageCache - settingsGetEnablePageCache , - - --- ** settingsGetEnablePlugins - settingsGetEnablePlugins , - - --- ** settingsGetEnablePrivateBrowsing - settingsGetEnablePrivateBrowsing , - - --- ** settingsGetEnableResizableTextAreas - settingsGetEnableResizableTextAreas , - - --- ** settingsGetEnableSiteSpecificQuirks - settingsGetEnableSiteSpecificQuirks , - - --- ** settingsGetEnableSmoothScrolling - settingsGetEnableSmoothScrolling , - - --- ** settingsGetEnableSpatialNavigation - settingsGetEnableSpatialNavigation , - - --- ** settingsGetEnableTabsToLinks - settingsGetEnableTabsToLinks , - - --- ** settingsGetEnableWebaudio - settingsGetEnableWebaudio , - - --- ** settingsGetEnableWebgl - settingsGetEnableWebgl , - - --- ** settingsGetEnableWriteConsoleMessagesToStdout - settingsGetEnableWriteConsoleMessagesToStdout, - - --- ** settingsGetEnableXssAuditor - settingsGetEnableXssAuditor , - - --- ** settingsGetFantasyFontFamily - settingsGetFantasyFontFamily , - - --- ** settingsGetJavascriptCanAccessClipboard - settingsGetJavascriptCanAccessClipboard , - - --- ** settingsGetJavascriptCanOpenWindowsAutomatically - settingsGetJavascriptCanOpenWindowsAutomatically, - - --- ** settingsGetLoadIconsIgnoringImageLoadSetting - settingsGetLoadIconsIgnoringImageLoadSetting, - - --- ** settingsGetMediaPlaybackAllowsInline - settingsGetMediaPlaybackAllowsInline , - - --- ** settingsGetMediaPlaybackRequiresUserGesture - settingsGetMediaPlaybackRequiresUserGesture, - - --- ** settingsGetMinimumFontSize - settingsGetMinimumFontSize , - - --- ** settingsGetMonospaceFontFamily - settingsGetMonospaceFontFamily , - - --- ** settingsGetPictographFontFamily - settingsGetPictographFontFamily , - - --- ** settingsGetPrintBackgrounds - settingsGetPrintBackgrounds , - - --- ** settingsGetSansSerifFontFamily - settingsGetSansSerifFontFamily , - - --- ** settingsGetSerifFontFamily - settingsGetSerifFontFamily , - - --- ** settingsGetUserAgent - settingsGetUserAgent , - - --- ** settingsGetZoomTextOnly - settingsGetZoomTextOnly , - - --- ** settingsNew - settingsNew , - - --- ** settingsSetAllowFileAccessFromFileUrls - settingsSetAllowFileAccessFromFileUrls , - - --- ** settingsSetAllowModalDialogs - settingsSetAllowModalDialogs , - - --- ** settingsSetAutoLoadImages - settingsSetAutoLoadImages , - - --- ** settingsSetCursiveFontFamily - settingsSetCursiveFontFamily , - - --- ** settingsSetDefaultCharset - settingsSetDefaultCharset , - - --- ** settingsSetDefaultFontFamily - settingsSetDefaultFontFamily , - - --- ** settingsSetDefaultFontSize - settingsSetDefaultFontSize , - - --- ** settingsSetDefaultMonospaceFontSize - settingsSetDefaultMonospaceFontSize , - - --- ** settingsSetDrawCompositingIndicators - settingsSetDrawCompositingIndicators , - - --- ** settingsSetEnableAccelerated2dCanvas - settingsSetEnableAccelerated2dCanvas , - - --- ** settingsSetEnableCaretBrowsing - settingsSetEnableCaretBrowsing , - - --- ** settingsSetEnableDeveloperExtras - settingsSetEnableDeveloperExtras , - - --- ** settingsSetEnableDnsPrefetching - settingsSetEnableDnsPrefetching , - - --- ** settingsSetEnableFrameFlattening - settingsSetEnableFrameFlattening , - - --- ** settingsSetEnableFullscreen - settingsSetEnableFullscreen , - - --- ** settingsSetEnableHtml5Database - settingsSetEnableHtml5Database , - - --- ** settingsSetEnableHtml5LocalStorage - settingsSetEnableHtml5LocalStorage , - - --- ** settingsSetEnableHyperlinkAuditing - settingsSetEnableHyperlinkAuditing , - - --- ** settingsSetEnableJava - settingsSetEnableJava , - - --- ** settingsSetEnableJavascript - settingsSetEnableJavascript , - - --- ** settingsSetEnableMediaStream - settingsSetEnableMediaStream , - - --- ** settingsSetEnableMediasource - settingsSetEnableMediasource , - - --- ** settingsSetEnableOfflineWebApplicationCache - settingsSetEnableOfflineWebApplicationCache, - - --- ** settingsSetEnablePageCache - settingsSetEnablePageCache , - - --- ** settingsSetEnablePlugins - settingsSetEnablePlugins , - - --- ** settingsSetEnablePrivateBrowsing - settingsSetEnablePrivateBrowsing , - - --- ** settingsSetEnableResizableTextAreas - settingsSetEnableResizableTextAreas , - - --- ** settingsSetEnableSiteSpecificQuirks - settingsSetEnableSiteSpecificQuirks , - - --- ** settingsSetEnableSmoothScrolling - settingsSetEnableSmoothScrolling , - - --- ** settingsSetEnableSpatialNavigation - settingsSetEnableSpatialNavigation , - - --- ** settingsSetEnableTabsToLinks - settingsSetEnableTabsToLinks , - - --- ** settingsSetEnableWebaudio - settingsSetEnableWebaudio , - - --- ** settingsSetEnableWebgl - settingsSetEnableWebgl , - - --- ** settingsSetEnableWriteConsoleMessagesToStdout - settingsSetEnableWriteConsoleMessagesToStdout, - - --- ** settingsSetEnableXssAuditor - settingsSetEnableXssAuditor , - - --- ** settingsSetFantasyFontFamily - settingsSetFantasyFontFamily , - - --- ** settingsSetJavascriptCanAccessClipboard - settingsSetJavascriptCanAccessClipboard , - - --- ** settingsSetJavascriptCanOpenWindowsAutomatically - settingsSetJavascriptCanOpenWindowsAutomatically, - - --- ** settingsSetLoadIconsIgnoringImageLoadSetting - settingsSetLoadIconsIgnoringImageLoadSetting, - - --- ** settingsSetMediaPlaybackAllowsInline - settingsSetMediaPlaybackAllowsInline , - - --- ** settingsSetMediaPlaybackRequiresUserGesture - settingsSetMediaPlaybackRequiresUserGesture, - - --- ** settingsSetMinimumFontSize - settingsSetMinimumFontSize , - - --- ** settingsSetMonospaceFontFamily - settingsSetMonospaceFontFamily , - - --- ** settingsSetPictographFontFamily - settingsSetPictographFontFamily , - - --- ** settingsSetPrintBackgrounds - settingsSetPrintBackgrounds , - - --- ** settingsSetSansSerifFontFamily - settingsSetSansSerifFontFamily , - - --- ** settingsSetSerifFontFamily - settingsSetSerifFontFamily , - - --- ** settingsSetUserAgent - settingsSetUserAgent , - - --- ** settingsSetUserAgentWithApplicationDetails - settingsSetUserAgentWithApplicationDetails, - - --- ** settingsSetZoomTextOnly - settingsSetZoomTextOnly , - - - - - -- * Properties --- ** AllowFileAccessFromFileUrls - SettingsAllowFileAccessFromFileUrlsPropertyInfo, - constructSettingsAllowFileAccessFromFileUrls, - getSettingsAllowFileAccessFromFileUrls , - setSettingsAllowFileAccessFromFileUrls , - - --- ** AllowModalDialogs - SettingsAllowModalDialogsPropertyInfo , - constructSettingsAllowModalDialogs , - getSettingsAllowModalDialogs , - setSettingsAllowModalDialogs , - - --- ** AutoLoadImages - SettingsAutoLoadImagesPropertyInfo , - constructSettingsAutoLoadImages , - getSettingsAutoLoadImages , - setSettingsAutoLoadImages , - - --- ** CursiveFontFamily - SettingsCursiveFontFamilyPropertyInfo , - constructSettingsCursiveFontFamily , - getSettingsCursiveFontFamily , - setSettingsCursiveFontFamily , - - --- ** DefaultCharset - SettingsDefaultCharsetPropertyInfo , - constructSettingsDefaultCharset , - getSettingsDefaultCharset , - setSettingsDefaultCharset , - - --- ** DefaultFontFamily - SettingsDefaultFontFamilyPropertyInfo , - constructSettingsDefaultFontFamily , - getSettingsDefaultFontFamily , - setSettingsDefaultFontFamily , - - --- ** DefaultFontSize - SettingsDefaultFontSizePropertyInfo , - constructSettingsDefaultFontSize , - getSettingsDefaultFontSize , - setSettingsDefaultFontSize , - - --- ** DefaultMonospaceFontSize - SettingsDefaultMonospaceFontSizePropertyInfo, - constructSettingsDefaultMonospaceFontSize, - getSettingsDefaultMonospaceFontSize , - setSettingsDefaultMonospaceFontSize , - - --- ** DrawCompositingIndicators - SettingsDrawCompositingIndicatorsPropertyInfo, - constructSettingsDrawCompositingIndicators, - getSettingsDrawCompositingIndicators , - setSettingsDrawCompositingIndicators , - - --- ** EnableAccelerated2dCanvas - SettingsEnableAccelerated2dCanvasPropertyInfo, - constructSettingsEnableAccelerated2dCanvas, - getSettingsEnableAccelerated2dCanvas , - setSettingsEnableAccelerated2dCanvas , - - --- ** EnableCaretBrowsing - SettingsEnableCaretBrowsingPropertyInfo , - constructSettingsEnableCaretBrowsing , - getSettingsEnableCaretBrowsing , - setSettingsEnableCaretBrowsing , - - --- ** EnableDeveloperExtras - SettingsEnableDeveloperExtrasPropertyInfo, - constructSettingsEnableDeveloperExtras , - getSettingsEnableDeveloperExtras , - setSettingsEnableDeveloperExtras , - - --- ** EnableDnsPrefetching - SettingsEnableDnsPrefetchingPropertyInfo, - constructSettingsEnableDnsPrefetching , - getSettingsEnableDnsPrefetching , - setSettingsEnableDnsPrefetching , - - --- ** EnableFrameFlattening - SettingsEnableFrameFlatteningPropertyInfo, - constructSettingsEnableFrameFlattening , - getSettingsEnableFrameFlattening , - setSettingsEnableFrameFlattening , - - --- ** EnableFullscreen - SettingsEnableFullscreenPropertyInfo , - constructSettingsEnableFullscreen , - getSettingsEnableFullscreen , - setSettingsEnableFullscreen , - - --- ** EnableHtml5Database - SettingsEnableHtml5DatabasePropertyInfo , - constructSettingsEnableHtml5Database , - getSettingsEnableHtml5Database , - setSettingsEnableHtml5Database , - - --- ** EnableHtml5LocalStorage - SettingsEnableHtml5LocalStoragePropertyInfo, - constructSettingsEnableHtml5LocalStorage, - getSettingsEnableHtml5LocalStorage , - setSettingsEnableHtml5LocalStorage , - - --- ** EnableHyperlinkAuditing - SettingsEnableHyperlinkAuditingPropertyInfo, - constructSettingsEnableHyperlinkAuditing, - getSettingsEnableHyperlinkAuditing , - setSettingsEnableHyperlinkAuditing , - - --- ** EnableJava - SettingsEnableJavaPropertyInfo , - constructSettingsEnableJava , - getSettingsEnableJava , - setSettingsEnableJava , - - --- ** EnableJavascript - SettingsEnableJavascriptPropertyInfo , - constructSettingsEnableJavascript , - getSettingsEnableJavascript , - setSettingsEnableJavascript , - - --- ** EnableMediaStream - SettingsEnableMediaStreamPropertyInfo , - constructSettingsEnableMediaStream , - getSettingsEnableMediaStream , - setSettingsEnableMediaStream , - - --- ** EnableMediasource - SettingsEnableMediasourcePropertyInfo , - constructSettingsEnableMediasource , - getSettingsEnableMediasource , - setSettingsEnableMediasource , - - --- ** EnableOfflineWebApplicationCache - SettingsEnableOfflineWebApplicationCachePropertyInfo, - constructSettingsEnableOfflineWebApplicationCache, - getSettingsEnableOfflineWebApplicationCache, - setSettingsEnableOfflineWebApplicationCache, - - --- ** EnablePageCache - SettingsEnablePageCachePropertyInfo , - constructSettingsEnablePageCache , - getSettingsEnablePageCache , - setSettingsEnablePageCache , - - --- ** EnablePlugins - SettingsEnablePluginsPropertyInfo , - constructSettingsEnablePlugins , - getSettingsEnablePlugins , - setSettingsEnablePlugins , - - --- ** EnablePrivateBrowsing - SettingsEnablePrivateBrowsingPropertyInfo, - constructSettingsEnablePrivateBrowsing , - getSettingsEnablePrivateBrowsing , - setSettingsEnablePrivateBrowsing , - - --- ** EnableResizableTextAreas - SettingsEnableResizableTextAreasPropertyInfo, - constructSettingsEnableResizableTextAreas, - getSettingsEnableResizableTextAreas , - setSettingsEnableResizableTextAreas , - - --- ** EnableSiteSpecificQuirks - SettingsEnableSiteSpecificQuirksPropertyInfo, - constructSettingsEnableSiteSpecificQuirks, - getSettingsEnableSiteSpecificQuirks , - setSettingsEnableSiteSpecificQuirks , - - --- ** EnableSmoothScrolling - SettingsEnableSmoothScrollingPropertyInfo, - constructSettingsEnableSmoothScrolling , - getSettingsEnableSmoothScrolling , - setSettingsEnableSmoothScrolling , - - --- ** EnableSpatialNavigation - SettingsEnableSpatialNavigationPropertyInfo, - constructSettingsEnableSpatialNavigation, - getSettingsEnableSpatialNavigation , - setSettingsEnableSpatialNavigation , - - --- ** EnableTabsToLinks - SettingsEnableTabsToLinksPropertyInfo , - constructSettingsEnableTabsToLinks , - getSettingsEnableTabsToLinks , - setSettingsEnableTabsToLinks , - - --- ** EnableWebaudio - SettingsEnableWebaudioPropertyInfo , - constructSettingsEnableWebaudio , - getSettingsEnableWebaudio , - setSettingsEnableWebaudio , - - --- ** EnableWebgl - SettingsEnableWebglPropertyInfo , - constructSettingsEnableWebgl , - getSettingsEnableWebgl , - setSettingsEnableWebgl , - - --- ** EnableWriteConsoleMessagesToStdout - SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo, - constructSettingsEnableWriteConsoleMessagesToStdout, - getSettingsEnableWriteConsoleMessagesToStdout, - setSettingsEnableWriteConsoleMessagesToStdout, - - --- ** EnableXssAuditor - SettingsEnableXssAuditorPropertyInfo , - constructSettingsEnableXssAuditor , - getSettingsEnableXssAuditor , - setSettingsEnableXssAuditor , - - --- ** FantasyFontFamily - SettingsFantasyFontFamilyPropertyInfo , - constructSettingsFantasyFontFamily , - getSettingsFantasyFontFamily , - setSettingsFantasyFontFamily , - - --- ** JavascriptCanAccessClipboard - SettingsJavascriptCanAccessClipboardPropertyInfo, - constructSettingsJavascriptCanAccessClipboard, - getSettingsJavascriptCanAccessClipboard , - setSettingsJavascriptCanAccessClipboard , - - --- ** JavascriptCanOpenWindowsAutomatically - SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo, - constructSettingsJavascriptCanOpenWindowsAutomatically, - getSettingsJavascriptCanOpenWindowsAutomatically, - setSettingsJavascriptCanOpenWindowsAutomatically, - - --- ** LoadIconsIgnoringImageLoadSetting - SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo, - constructSettingsLoadIconsIgnoringImageLoadSetting, - getSettingsLoadIconsIgnoringImageLoadSetting, - setSettingsLoadIconsIgnoringImageLoadSetting, - - --- ** MediaPlaybackAllowsInline - SettingsMediaPlaybackAllowsInlinePropertyInfo, - constructSettingsMediaPlaybackAllowsInline, - getSettingsMediaPlaybackAllowsInline , - setSettingsMediaPlaybackAllowsInline , - - --- ** MediaPlaybackRequiresUserGesture - SettingsMediaPlaybackRequiresUserGesturePropertyInfo, - constructSettingsMediaPlaybackRequiresUserGesture, - getSettingsMediaPlaybackRequiresUserGesture, - setSettingsMediaPlaybackRequiresUserGesture, - - --- ** MinimumFontSize - SettingsMinimumFontSizePropertyInfo , - constructSettingsMinimumFontSize , - getSettingsMinimumFontSize , - setSettingsMinimumFontSize , - - --- ** MonospaceFontFamily - SettingsMonospaceFontFamilyPropertyInfo , - constructSettingsMonospaceFontFamily , - getSettingsMonospaceFontFamily , - setSettingsMonospaceFontFamily , - - --- ** PictographFontFamily - SettingsPictographFontFamilyPropertyInfo, - constructSettingsPictographFontFamily , - getSettingsPictographFontFamily , - setSettingsPictographFontFamily , - - --- ** PrintBackgrounds - SettingsPrintBackgroundsPropertyInfo , - constructSettingsPrintBackgrounds , - getSettingsPrintBackgrounds , - setSettingsPrintBackgrounds , - - --- ** SansSerifFontFamily - SettingsSansSerifFontFamilyPropertyInfo , - constructSettingsSansSerifFontFamily , - getSettingsSansSerifFontFamily , - setSettingsSansSerifFontFamily , - - --- ** SerifFontFamily - SettingsSerifFontFamilyPropertyInfo , - constructSettingsSerifFontFamily , - getSettingsSerifFontFamily , - setSettingsSerifFontFamily , - - --- ** UserAgent - SettingsUserAgentPropertyInfo , - constructSettingsUserAgent , - getSettingsUserAgent , - setSettingsUserAgent , - - --- ** ZoomTextOnly - SettingsZoomTextOnlyPropertyInfo , - constructSettingsZoomTextOnly , - getSettingsZoomTextOnly , - setSettingsZoomTextOnly , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype Settings = Settings (ForeignPtr Settings) -foreign import ccall "webkit_settings_get_type" - c_webkit_settings_get_type :: IO GType - -type instance ParentTypes Settings = SettingsParentTypes -type SettingsParentTypes = '[GObject.Object] - -instance GObject Settings where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_settings_get_type - - -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o - -toSettings :: SettingsK o => o -> IO Settings -toSettings = unsafeCastTo Settings - -noSettings :: Maybe Settings -noSettings = Nothing - --- VVV Prop "allow-file-access-from-file-urls" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsAllowFileAccessFromFileUrls obj = liftIO $ getObjectPropertyBool obj "allow-file-access-from-file-urls" - -setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ setObjectPropertyBool obj "allow-file-access-from-file-urls" val - -constructSettingsAllowFileAccessFromFileUrls :: Bool -> IO ([Char], GValue) -constructSettingsAllowFileAccessFromFileUrls val = constructObjectPropertyBool "allow-file-access-from-file-urls" val - -data SettingsAllowFileAccessFromFileUrlsPropertyInfo -instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where - type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = SettingsK - type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool - type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "Settings::allow-file-access-from-file-urls" - attrGet _ = getSettingsAllowFileAccessFromFileUrls - attrSet _ = setSettingsAllowFileAccessFromFileUrls - attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls - --- VVV Prop "allow-modal-dialogs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsAllowModalDialogs obj = liftIO $ getObjectPropertyBool obj "allow-modal-dialogs" - -setSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsAllowModalDialogs obj val = liftIO $ setObjectPropertyBool obj "allow-modal-dialogs" val - -constructSettingsAllowModalDialogs :: Bool -> IO ([Char], GValue) -constructSettingsAllowModalDialogs val = constructObjectPropertyBool "allow-modal-dialogs" val - -data SettingsAllowModalDialogsPropertyInfo -instance AttrInfo SettingsAllowModalDialogsPropertyInfo where - type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = SettingsK - type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool - type AttrLabel SettingsAllowModalDialogsPropertyInfo = "Settings::allow-modal-dialogs" - attrGet _ = getSettingsAllowModalDialogs - attrSet _ = setSettingsAllowModalDialogs - attrConstruct _ = constructSettingsAllowModalDialogs - --- VVV Prop "auto-load-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images" - -setSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val - -constructSettingsAutoLoadImages :: Bool -> IO ([Char], GValue) -constructSettingsAutoLoadImages val = constructObjectPropertyBool "auto-load-images" val - -data SettingsAutoLoadImagesPropertyInfo -instance AttrInfo SettingsAutoLoadImagesPropertyInfo where - type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = SettingsK - type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool - type AttrLabel SettingsAutoLoadImagesPropertyInfo = "Settings::auto-load-images" - attrGet _ = getSettingsAutoLoadImages - attrSet _ = setSettingsAutoLoadImages - attrConstruct _ = constructSettingsAutoLoadImages - --- VVV Prop "cursive-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsCursiveFontFamily obj = liftIO $ getObjectPropertyString obj "cursive-font-family" - -setSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" val - -constructSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" val - -data SettingsCursiveFontFamilyPropertyInfo -instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where - type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "Settings::cursive-font-family" - attrGet _ = getSettingsCursiveFontFamily - attrSet _ = setSettingsCursiveFontFamily - attrConstruct _ = constructSettingsCursiveFontFamily - --- VVV Prop "default-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset" - -setSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsDefaultCharset obj val = liftIO $ setObjectPropertyString obj "default-charset" val - -constructSettingsDefaultCharset :: T.Text -> IO ([Char], GValue) -constructSettingsDefaultCharset val = constructObjectPropertyString "default-charset" val - -data SettingsDefaultCharsetPropertyInfo -instance AttrInfo SettingsDefaultCharsetPropertyInfo where - type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = SettingsK - type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text - type AttrLabel SettingsDefaultCharsetPropertyInfo = "Settings::default-charset" - attrGet _ = getSettingsDefaultCharset - attrSet _ = setSettingsDefaultCharset - attrConstruct _ = constructSettingsDefaultCharset - --- VVV Prop "default-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsDefaultFontFamily obj = liftIO $ getObjectPropertyString obj "default-font-family" - -setSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" val - -constructSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" val - -data SettingsDefaultFontFamilyPropertyInfo -instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where - type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "Settings::default-font-family" - attrGet _ = getSettingsDefaultFontFamily - attrSet _ = setSettingsDefaultFontFamily - attrConstruct _ = constructSettingsDefaultFontFamily - --- VVV Prop "default-font-size" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsDefaultFontSize obj = liftIO $ getObjectPropertyCUInt obj "default-font-size" - -setSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyCUInt obj "default-font-size" val - -constructSettingsDefaultFontSize :: Word32 -> IO ([Char], GValue) -constructSettingsDefaultFontSize val = constructObjectPropertyCUInt "default-font-size" val - -data SettingsDefaultFontSizePropertyInfo -instance AttrInfo SettingsDefaultFontSizePropertyInfo where - type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = SettingsK - type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32 - type AttrLabel SettingsDefaultFontSizePropertyInfo = "Settings::default-font-size" - attrGet _ = getSettingsDefaultFontSize - attrSet _ = setSettingsDefaultFontSize - attrConstruct _ = constructSettingsDefaultFontSize - --- VVV Prop "default-monospace-font-size" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyCUInt obj "default-monospace-font-size" - -setSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyCUInt obj "default-monospace-font-size" val - -constructSettingsDefaultMonospaceFontSize :: Word32 -> IO ([Char], GValue) -constructSettingsDefaultMonospaceFontSize val = constructObjectPropertyCUInt "default-monospace-font-size" val - -data SettingsDefaultMonospaceFontSizePropertyInfo -instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where - type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = SettingsK - type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32 - type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "Settings::default-monospace-font-size" - attrGet _ = getSettingsDefaultMonospaceFontSize - attrSet _ = setSettingsDefaultMonospaceFontSize - attrConstruct _ = constructSettingsDefaultMonospaceFontSize - --- VVV Prop "draw-compositing-indicators" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsDrawCompositingIndicators obj = liftIO $ getObjectPropertyBool obj "draw-compositing-indicators" - -setSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsDrawCompositingIndicators obj val = liftIO $ setObjectPropertyBool obj "draw-compositing-indicators" val - -constructSettingsDrawCompositingIndicators :: Bool -> IO ([Char], GValue) -constructSettingsDrawCompositingIndicators val = constructObjectPropertyBool "draw-compositing-indicators" val - -data SettingsDrawCompositingIndicatorsPropertyInfo -instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where - type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = SettingsK - type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool - type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "Settings::draw-compositing-indicators" - attrGet _ = getSettingsDrawCompositingIndicators - attrSet _ = setSettingsDrawCompositingIndicators - attrConstruct _ = constructSettingsDrawCompositingIndicators - --- VVV Prop "enable-accelerated-2d-canvas" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableAccelerated2dCanvas obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-2d-canvas" - -setSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableAccelerated2dCanvas obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-2d-canvas" val - -constructSettingsEnableAccelerated2dCanvas :: Bool -> IO ([Char], GValue) -constructSettingsEnableAccelerated2dCanvas val = constructObjectPropertyBool "enable-accelerated-2d-canvas" val - -data SettingsEnableAccelerated2dCanvasPropertyInfo -instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where - type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = SettingsK - type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool - type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "Settings::enable-accelerated-2d-canvas" - attrGet _ = getSettingsEnableAccelerated2dCanvas - attrSet _ = setSettingsEnableAccelerated2dCanvas - attrConstruct _ = constructSettingsEnableAccelerated2dCanvas - --- VVV Prop "enable-caret-browsing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing" - -setSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val - -constructSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue) -constructSettingsEnableCaretBrowsing val = constructObjectPropertyBool "enable-caret-browsing" val - -data SettingsEnableCaretBrowsingPropertyInfo -instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where - type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = SettingsK - type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool - type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "Settings::enable-caret-browsing" - attrGet _ = getSettingsEnableCaretBrowsing - attrSet _ = setSettingsEnableCaretBrowsing - attrConstruct _ = constructSettingsEnableCaretBrowsing - --- VVV Prop "enable-developer-extras" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras" - -setSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val - -constructSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue) -constructSettingsEnableDeveloperExtras val = constructObjectPropertyBool "enable-developer-extras" val - -data SettingsEnableDeveloperExtrasPropertyInfo -instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where - type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = SettingsK - type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool - type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "Settings::enable-developer-extras" - attrGet _ = getSettingsEnableDeveloperExtras - attrSet _ = setSettingsEnableDeveloperExtras - attrConstruct _ = constructSettingsEnableDeveloperExtras - --- VVV Prop "enable-dns-prefetching" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching" - -setSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val - -constructSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue) -constructSettingsEnableDnsPrefetching val = constructObjectPropertyBool "enable-dns-prefetching" val - -data SettingsEnableDnsPrefetchingPropertyInfo -instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where - type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = SettingsK - type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool - type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "Settings::enable-dns-prefetching" - attrGet _ = getSettingsEnableDnsPrefetching - attrSet _ = setSettingsEnableDnsPrefetching - attrConstruct _ = constructSettingsEnableDnsPrefetching - --- VVV Prop "enable-frame-flattening" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening" - -setSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val - -constructSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue) -constructSettingsEnableFrameFlattening val = constructObjectPropertyBool "enable-frame-flattening" val - -data SettingsEnableFrameFlatteningPropertyInfo -instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where - type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = SettingsK - type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool - type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "Settings::enable-frame-flattening" - attrGet _ = getSettingsEnableFrameFlattening - attrSet _ = setSettingsEnableFrameFlattening - attrConstruct _ = constructSettingsEnableFrameFlattening - --- VVV Prop "enable-fullscreen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen" - -setSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val - -constructSettingsEnableFullscreen :: Bool -> IO ([Char], GValue) -constructSettingsEnableFullscreen val = constructObjectPropertyBool "enable-fullscreen" val - -data SettingsEnableFullscreenPropertyInfo -instance AttrInfo SettingsEnableFullscreenPropertyInfo where - type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = SettingsK - type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool - type AttrLabel SettingsEnableFullscreenPropertyInfo = "Settings::enable-fullscreen" - attrGet _ = getSettingsEnableFullscreen - attrSet _ = setSettingsEnableFullscreen - attrConstruct _ = constructSettingsEnableFullscreen - --- VVV Prop "enable-html5-database" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database" - -setSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val - -constructSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue) -constructSettingsEnableHtml5Database val = constructObjectPropertyBool "enable-html5-database" val - -data SettingsEnableHtml5DatabasePropertyInfo -instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where - type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = SettingsK - type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool - type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "Settings::enable-html5-database" - attrGet _ = getSettingsEnableHtml5Database - attrSet _ = setSettingsEnableHtml5Database - attrConstruct _ = constructSettingsEnableHtml5Database - --- VVV Prop "enable-html5-local-storage" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage" - -setSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val - -constructSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue) -constructSettingsEnableHtml5LocalStorage val = constructObjectPropertyBool "enable-html5-local-storage" val - -data SettingsEnableHtml5LocalStoragePropertyInfo -instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where - type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = SettingsK - type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool - type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "Settings::enable-html5-local-storage" - attrGet _ = getSettingsEnableHtml5LocalStorage - attrSet _ = setSettingsEnableHtml5LocalStorage - attrConstruct _ = constructSettingsEnableHtml5LocalStorage - --- VVV Prop "enable-hyperlink-auditing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing" - -setSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val - -constructSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue) -constructSettingsEnableHyperlinkAuditing val = constructObjectPropertyBool "enable-hyperlink-auditing" val - -data SettingsEnableHyperlinkAuditingPropertyInfo -instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where - type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = SettingsK - type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool - type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "Settings::enable-hyperlink-auditing" - attrGet _ = getSettingsEnableHyperlinkAuditing - attrSet _ = setSettingsEnableHyperlinkAuditing - attrConstruct _ = constructSettingsEnableHyperlinkAuditing - --- VVV Prop "enable-java" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableJava obj = liftIO $ getObjectPropertyBool obj "enable-java" - -setSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableJava obj val = liftIO $ setObjectPropertyBool obj "enable-java" val - -constructSettingsEnableJava :: Bool -> IO ([Char], GValue) -constructSettingsEnableJava val = constructObjectPropertyBool "enable-java" val - -data SettingsEnableJavaPropertyInfo -instance AttrInfo SettingsEnableJavaPropertyInfo where - type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = SettingsK - type AttrGetType SettingsEnableJavaPropertyInfo = Bool - type AttrLabel SettingsEnableJavaPropertyInfo = "Settings::enable-java" - attrGet _ = getSettingsEnableJava - attrSet _ = setSettingsEnableJava - attrConstruct _ = constructSettingsEnableJava - --- VVV Prop "enable-javascript" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableJavascript obj = liftIO $ getObjectPropertyBool obj "enable-javascript" - -setSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableJavascript obj val = liftIO $ setObjectPropertyBool obj "enable-javascript" val - -constructSettingsEnableJavascript :: Bool -> IO ([Char], GValue) -constructSettingsEnableJavascript val = constructObjectPropertyBool "enable-javascript" val - -data SettingsEnableJavascriptPropertyInfo -instance AttrInfo SettingsEnableJavascriptPropertyInfo where - type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = SettingsK - type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool - type AttrLabel SettingsEnableJavascriptPropertyInfo = "Settings::enable-javascript" - attrGet _ = getSettingsEnableJavascript - attrSet _ = setSettingsEnableJavascript - attrConstruct _ = constructSettingsEnableJavascript - --- VVV Prop "enable-media-stream" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream" - -setSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val - -constructSettingsEnableMediaStream :: Bool -> IO ([Char], GValue) -constructSettingsEnableMediaStream val = constructObjectPropertyBool "enable-media-stream" val - -data SettingsEnableMediaStreamPropertyInfo -instance AttrInfo SettingsEnableMediaStreamPropertyInfo where - type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = SettingsK - type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool - type AttrLabel SettingsEnableMediaStreamPropertyInfo = "Settings::enable-media-stream" - attrGet _ = getSettingsEnableMediaStream - attrSet _ = setSettingsEnableMediaStream - attrConstruct _ = constructSettingsEnableMediaStream - --- VVV Prop "enable-mediasource" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource" - -setSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val - -constructSettingsEnableMediasource :: Bool -> IO ([Char], GValue) -constructSettingsEnableMediasource val = constructObjectPropertyBool "enable-mediasource" val - -data SettingsEnableMediasourcePropertyInfo -instance AttrInfo SettingsEnableMediasourcePropertyInfo where - type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = SettingsK - type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool - type AttrLabel SettingsEnableMediasourcePropertyInfo = "Settings::enable-mediasource" - attrGet _ = getSettingsEnableMediasource - attrSet _ = setSettingsEnableMediasource - attrConstruct _ = constructSettingsEnableMediasource - --- VVV Prop "enable-offline-web-application-cache" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache" - -setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val - -constructSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue) -constructSettingsEnableOfflineWebApplicationCache val = constructObjectPropertyBool "enable-offline-web-application-cache" val - -data SettingsEnableOfflineWebApplicationCachePropertyInfo -instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where - type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = SettingsK - type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool - type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "Settings::enable-offline-web-application-cache" - attrGet _ = getSettingsEnableOfflineWebApplicationCache - attrSet _ = setSettingsEnableOfflineWebApplicationCache - attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache - --- VVV Prop "enable-page-cache" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache" - -setSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val - -constructSettingsEnablePageCache :: Bool -> IO ([Char], GValue) -constructSettingsEnablePageCache val = constructObjectPropertyBool "enable-page-cache" val - -data SettingsEnablePageCachePropertyInfo -instance AttrInfo SettingsEnablePageCachePropertyInfo where - type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = SettingsK - type AttrGetType SettingsEnablePageCachePropertyInfo = Bool - type AttrLabel SettingsEnablePageCachePropertyInfo = "Settings::enable-page-cache" - attrGet _ = getSettingsEnablePageCache - attrSet _ = setSettingsEnablePageCache - attrConstruct _ = constructSettingsEnablePageCache - --- VVV Prop "enable-plugins" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins" - -setSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val - -constructSettingsEnablePlugins :: Bool -> IO ([Char], GValue) -constructSettingsEnablePlugins val = constructObjectPropertyBool "enable-plugins" val - -data SettingsEnablePluginsPropertyInfo -instance AttrInfo SettingsEnablePluginsPropertyInfo where - type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = SettingsK - type AttrGetType SettingsEnablePluginsPropertyInfo = Bool - type AttrLabel SettingsEnablePluginsPropertyInfo = "Settings::enable-plugins" - attrGet _ = getSettingsEnablePlugins - attrSet _ = setSettingsEnablePlugins - attrConstruct _ = constructSettingsEnablePlugins - --- VVV Prop "enable-private-browsing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing" - -setSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val - -constructSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue) -constructSettingsEnablePrivateBrowsing val = constructObjectPropertyBool "enable-private-browsing" val - -data SettingsEnablePrivateBrowsingPropertyInfo -instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where - type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = SettingsK - type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool - type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "Settings::enable-private-browsing" - attrGet _ = getSettingsEnablePrivateBrowsing - attrSet _ = setSettingsEnablePrivateBrowsing - attrConstruct _ = constructSettingsEnablePrivateBrowsing - --- VVV Prop "enable-resizable-text-areas" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "enable-resizable-text-areas" - -setSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "enable-resizable-text-areas" val - -constructSettingsEnableResizableTextAreas :: Bool -> IO ([Char], GValue) -constructSettingsEnableResizableTextAreas val = constructObjectPropertyBool "enable-resizable-text-areas" val - -data SettingsEnableResizableTextAreasPropertyInfo -instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where - type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = SettingsK - type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool - type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "Settings::enable-resizable-text-areas" - attrGet _ = getSettingsEnableResizableTextAreas - attrSet _ = setSettingsEnableResizableTextAreas - attrConstruct _ = constructSettingsEnableResizableTextAreas - --- VVV Prop "enable-site-specific-quirks" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks" - -setSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val - -constructSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue) -constructSettingsEnableSiteSpecificQuirks val = constructObjectPropertyBool "enable-site-specific-quirks" val - -data SettingsEnableSiteSpecificQuirksPropertyInfo -instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where - type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = SettingsK - type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool - type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "Settings::enable-site-specific-quirks" - attrGet _ = getSettingsEnableSiteSpecificQuirks - attrSet _ = setSettingsEnableSiteSpecificQuirks - attrConstruct _ = constructSettingsEnableSiteSpecificQuirks - --- VVV Prop "enable-smooth-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling" - -setSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val - -constructSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue) -constructSettingsEnableSmoothScrolling val = constructObjectPropertyBool "enable-smooth-scrolling" val - -data SettingsEnableSmoothScrollingPropertyInfo -instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where - type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = SettingsK - type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool - type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "Settings::enable-smooth-scrolling" - attrGet _ = getSettingsEnableSmoothScrolling - attrSet _ = setSettingsEnableSmoothScrolling - attrConstruct _ = constructSettingsEnableSmoothScrolling - --- VVV Prop "enable-spatial-navigation" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation" - -setSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val - -constructSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue) -constructSettingsEnableSpatialNavigation val = constructObjectPropertyBool "enable-spatial-navigation" val - -data SettingsEnableSpatialNavigationPropertyInfo -instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where - type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = SettingsK - type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool - type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "Settings::enable-spatial-navigation" - attrGet _ = getSettingsEnableSpatialNavigation - attrSet _ = setSettingsEnableSpatialNavigation - attrConstruct _ = constructSettingsEnableSpatialNavigation - --- VVV Prop "enable-tabs-to-links" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableTabsToLinks obj = liftIO $ getObjectPropertyBool obj "enable-tabs-to-links" - -setSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableTabsToLinks obj val = liftIO $ setObjectPropertyBool obj "enable-tabs-to-links" val - -constructSettingsEnableTabsToLinks :: Bool -> IO ([Char], GValue) -constructSettingsEnableTabsToLinks val = constructObjectPropertyBool "enable-tabs-to-links" val - -data SettingsEnableTabsToLinksPropertyInfo -instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where - type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = SettingsK - type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool - type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "Settings::enable-tabs-to-links" - attrGet _ = getSettingsEnableTabsToLinks - attrSet _ = setSettingsEnableTabsToLinks - attrConstruct _ = constructSettingsEnableTabsToLinks - --- VVV Prop "enable-webaudio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio" - -setSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val - -constructSettingsEnableWebaudio :: Bool -> IO ([Char], GValue) -constructSettingsEnableWebaudio val = constructObjectPropertyBool "enable-webaudio" val - -data SettingsEnableWebaudioPropertyInfo -instance AttrInfo SettingsEnableWebaudioPropertyInfo where - type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = SettingsK - type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool - type AttrLabel SettingsEnableWebaudioPropertyInfo = "Settings::enable-webaudio" - attrGet _ = getSettingsEnableWebaudio - attrSet _ = setSettingsEnableWebaudio - attrConstruct _ = constructSettingsEnableWebaudio - --- VVV Prop "enable-webgl" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl" - -setSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val - -constructSettingsEnableWebgl :: Bool -> IO ([Char], GValue) -constructSettingsEnableWebgl val = constructObjectPropertyBool "enable-webgl" val - -data SettingsEnableWebglPropertyInfo -instance AttrInfo SettingsEnableWebglPropertyInfo where - type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = SettingsK - type AttrGetType SettingsEnableWebglPropertyInfo = Bool - type AttrLabel SettingsEnableWebglPropertyInfo = "Settings::enable-webgl" - attrGet _ = getSettingsEnableWebgl - attrSet _ = setSettingsEnableWebgl - attrConstruct _ = constructSettingsEnableWebgl - --- VVV Prop "enable-write-console-messages-to-stdout" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ getObjectPropertyBool obj "enable-write-console-messages-to-stdout" - -setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val - -constructSettingsEnableWriteConsoleMessagesToStdout :: Bool -> IO ([Char], GValue) -constructSettingsEnableWriteConsoleMessagesToStdout val = constructObjectPropertyBool "enable-write-console-messages-to-stdout" val - -data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo -instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where - type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = SettingsK - type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool - type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "Settings::enable-write-console-messages-to-stdout" - attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout - attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout - attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout - --- VVV Prop "enable-xss-auditor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor" - -setSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val - -constructSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue) -constructSettingsEnableXssAuditor val = constructObjectPropertyBool "enable-xss-auditor" val - -data SettingsEnableXssAuditorPropertyInfo -instance AttrInfo SettingsEnableXssAuditorPropertyInfo where - type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = SettingsK - type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool - type AttrLabel SettingsEnableXssAuditorPropertyInfo = "Settings::enable-xss-auditor" - attrGet _ = getSettingsEnableXssAuditor - attrSet _ = setSettingsEnableXssAuditor - attrConstruct _ = constructSettingsEnableXssAuditor - --- VVV Prop "fantasy-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsFantasyFontFamily obj = liftIO $ getObjectPropertyString obj "fantasy-font-family" - -setSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" val - -constructSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" val - -data SettingsFantasyFontFamilyPropertyInfo -instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where - type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "Settings::fantasy-font-family" - attrGet _ = getSettingsFantasyFontFamily - attrSet _ = setSettingsFantasyFontFamily - attrConstruct _ = constructSettingsFantasyFontFamily - --- VVV Prop "javascript-can-access-clipboard" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard" - -setSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val - -constructSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue) -constructSettingsJavascriptCanAccessClipboard val = constructObjectPropertyBool "javascript-can-access-clipboard" val - -data SettingsJavascriptCanAccessClipboardPropertyInfo -instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where - type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = SettingsK - type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool - type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "Settings::javascript-can-access-clipboard" - attrGet _ = getSettingsJavascriptCanAccessClipboard - attrSet _ = setSettingsJavascriptCanAccessClipboard - attrConstruct _ = constructSettingsJavascriptCanAccessClipboard - --- VVV Prop "javascript-can-open-windows-automatically" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically" - -setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val - -constructSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue) -constructSettingsJavascriptCanOpenWindowsAutomatically val = constructObjectPropertyBool "javascript-can-open-windows-automatically" val - -data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo -instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where - type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = SettingsK - type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool - type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "Settings::javascript-can-open-windows-automatically" - attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically - attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically - attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically - --- VVV Prop "load-icons-ignoring-image-load-setting" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ getObjectPropertyBool obj "load-icons-ignoring-image-load-setting" - -setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val - -constructSettingsLoadIconsIgnoringImageLoadSetting :: Bool -> IO ([Char], GValue) -constructSettingsLoadIconsIgnoringImageLoadSetting val = constructObjectPropertyBool "load-icons-ignoring-image-load-setting" val - -data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo -instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where - type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = SettingsK - type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool - type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "Settings::load-icons-ignoring-image-load-setting" - attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting - attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting - attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting - --- VVV Prop "media-playback-allows-inline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline" - -setSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val - -constructSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue) -constructSettingsMediaPlaybackAllowsInline val = constructObjectPropertyBool "media-playback-allows-inline" val - -data SettingsMediaPlaybackAllowsInlinePropertyInfo -instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where - type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = SettingsK - type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool - type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "Settings::media-playback-allows-inline" - attrGet _ = getSettingsMediaPlaybackAllowsInline - attrSet _ = setSettingsMediaPlaybackAllowsInline - attrConstruct _ = constructSettingsMediaPlaybackAllowsInline - --- VVV Prop "media-playback-requires-user-gesture" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture" - -setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val - -constructSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue) -constructSettingsMediaPlaybackRequiresUserGesture val = constructObjectPropertyBool "media-playback-requires-user-gesture" val - -data SettingsMediaPlaybackRequiresUserGesturePropertyInfo -instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where - type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = SettingsK - type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool - type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "Settings::media-playback-requires-user-gesture" - attrGet _ = getSettingsMediaPlaybackRequiresUserGesture - attrSet _ = setSettingsMediaPlaybackRequiresUserGesture - attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture - --- VVV Prop "minimum-font-size" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsMinimumFontSize obj = liftIO $ getObjectPropertyCUInt obj "minimum-font-size" - -setSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyCUInt obj "minimum-font-size" val - -constructSettingsMinimumFontSize :: Word32 -> IO ([Char], GValue) -constructSettingsMinimumFontSize val = constructObjectPropertyCUInt "minimum-font-size" val - -data SettingsMinimumFontSizePropertyInfo -instance AttrInfo SettingsMinimumFontSizePropertyInfo where - type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = SettingsK - type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32 - type AttrLabel SettingsMinimumFontSizePropertyInfo = "Settings::minimum-font-size" - attrGet _ = getSettingsMinimumFontSize - attrSet _ = setSettingsMinimumFontSize - attrConstruct _ = constructSettingsMinimumFontSize - --- VVV Prop "monospace-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsMonospaceFontFamily obj = liftIO $ getObjectPropertyString obj "monospace-font-family" - -setSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" val - -constructSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" val - -data SettingsMonospaceFontFamilyPropertyInfo -instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where - type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "Settings::monospace-font-family" - attrGet _ = getSettingsMonospaceFontFamily - attrSet _ = setSettingsMonospaceFontFamily - attrConstruct _ = constructSettingsMonospaceFontFamily - --- VVV Prop "pictograph-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsPictographFontFamily obj = liftIO $ getObjectPropertyString obj "pictograph-font-family" - -setSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsPictographFontFamily obj val = liftIO $ setObjectPropertyString obj "pictograph-font-family" val - -constructSettingsPictographFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsPictographFontFamily val = constructObjectPropertyString "pictograph-font-family" val - -data SettingsPictographFontFamilyPropertyInfo -instance AttrInfo SettingsPictographFontFamilyPropertyInfo where - type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsPictographFontFamilyPropertyInfo = "Settings::pictograph-font-family" - attrGet _ = getSettingsPictographFontFamily - attrSet _ = setSettingsPictographFontFamily - attrConstruct _ = constructSettingsPictographFontFamily - --- VVV Prop "print-backgrounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds" - -setSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val - -constructSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue) -constructSettingsPrintBackgrounds val = constructObjectPropertyBool "print-backgrounds" val - -data SettingsPrintBackgroundsPropertyInfo -instance AttrInfo SettingsPrintBackgroundsPropertyInfo where - type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = SettingsK - type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool - type AttrLabel SettingsPrintBackgroundsPropertyInfo = "Settings::print-backgrounds" - attrGet _ = getSettingsPrintBackgrounds - attrSet _ = setSettingsPrintBackgrounds - attrConstruct _ = constructSettingsPrintBackgrounds - --- VVV Prop "sans-serif-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsSansSerifFontFamily obj = liftIO $ getObjectPropertyString obj "sans-serif-font-family" - -setSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" val - -constructSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" val - -data SettingsSansSerifFontFamilyPropertyInfo -instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where - type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "Settings::sans-serif-font-family" - attrGet _ = getSettingsSansSerifFontFamily - attrSet _ = setSettingsSansSerifFontFamily - attrConstruct _ = constructSettingsSansSerifFontFamily - --- VVV Prop "serif-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsSerifFontFamily obj = liftIO $ getObjectPropertyString obj "serif-font-family" - -setSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" val - -constructSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" val - -data SettingsSerifFontFamilyPropertyInfo -instance AttrInfo SettingsSerifFontFamilyPropertyInfo where - type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsSerifFontFamilyPropertyInfo = "Settings::serif-font-family" - attrGet _ = getSettingsSerifFontFamily - attrSet _ = setSettingsSerifFontFamily - attrConstruct _ = constructSettingsSerifFontFamily - --- VVV Prop "user-agent" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" - -setSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val - -constructSettingsUserAgent :: T.Text -> IO ([Char], GValue) -constructSettingsUserAgent val = constructObjectPropertyString "user-agent" val - -data SettingsUserAgentPropertyInfo -instance AttrInfo SettingsUserAgentPropertyInfo where - type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = SettingsK - type AttrGetType SettingsUserAgentPropertyInfo = T.Text - type AttrLabel SettingsUserAgentPropertyInfo = "Settings::user-agent" - attrGet _ = getSettingsUserAgent - attrSet _ = setSettingsUserAgent - attrConstruct _ = constructSettingsUserAgent - --- VVV Prop "zoom-text-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsZoomTextOnly obj = liftIO $ getObjectPropertyBool obj "zoom-text-only" - -setSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsZoomTextOnly obj val = liftIO $ setObjectPropertyBool obj "zoom-text-only" val - -constructSettingsZoomTextOnly :: Bool -> IO ([Char], GValue) -constructSettingsZoomTextOnly val = constructObjectPropertyBool "zoom-text-only" val - -data SettingsZoomTextOnlyPropertyInfo -instance AttrInfo SettingsZoomTextOnlyPropertyInfo where - type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = SettingsK - type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool - type AttrLabel SettingsZoomTextOnlyPropertyInfo = "Settings::zoom-text-only" - attrGet _ = getSettingsZoomTextOnly - attrSet _ = setSettingsZoomTextOnly - attrConstruct _ = constructSettingsZoomTextOnly - -type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("allow-file-access-from-file-urls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allow-modal-dialogs", SettingsAllowModalDialogsPropertyInfo), '("auto-load-images", SettingsAutoLoadImagesPropertyInfo), '("cursive-font-family", SettingsCursiveFontFamilyPropertyInfo), '("default-charset", SettingsDefaultCharsetPropertyInfo), '("default-font-family", SettingsDefaultFontFamilyPropertyInfo), '("default-font-size", SettingsDefaultFontSizePropertyInfo), '("default-monospace-font-size", SettingsDefaultMonospaceFontSizePropertyInfo), '("draw-compositing-indicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enable-accelerated-2d-canvas", SettingsEnableAccelerated2dCanvasPropertyInfo), '("enable-caret-browsing", SettingsEnableCaretBrowsingPropertyInfo), '("enable-developer-extras", SettingsEnableDeveloperExtrasPropertyInfo), '("enable-dns-prefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enable-frame-flattening", SettingsEnableFrameFlatteningPropertyInfo), '("enable-fullscreen", SettingsEnableFullscreenPropertyInfo), '("enable-html5-database", SettingsEnableHtml5DatabasePropertyInfo), '("enable-html5-local-storage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enable-hyperlink-auditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enable-java", SettingsEnableJavaPropertyInfo), '("enable-javascript", SettingsEnableJavascriptPropertyInfo), '("enable-media-stream", SettingsEnableMediaStreamPropertyInfo), '("enable-mediasource", SettingsEnableMediasourcePropertyInfo), '("enable-offline-web-application-cache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enable-page-cache", SettingsEnablePageCachePropertyInfo), '("enable-plugins", SettingsEnablePluginsPropertyInfo), '("enable-private-browsing", SettingsEnablePrivateBrowsingPropertyInfo), '("enable-resizable-text-areas", SettingsEnableResizableTextAreasPropertyInfo), '("enable-site-specific-quirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enable-smooth-scrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enable-spatial-navigation", SettingsEnableSpatialNavigationPropertyInfo), '("enable-tabs-to-links", SettingsEnableTabsToLinksPropertyInfo), '("enable-webaudio", SettingsEnableWebaudioPropertyInfo), '("enable-webgl", SettingsEnableWebglPropertyInfo), '("enable-write-console-messages-to-stdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("enable-xss-auditor", SettingsEnableXssAuditorPropertyInfo), '("fantasy-font-family", SettingsFantasyFontFamilyPropertyInfo), '("javascript-can-access-clipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascript-can-open-windows-automatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("load-icons-ignoring-image-load-setting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("media-playback-allows-inline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("media-playback-requires-user-gesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimum-font-size", SettingsMinimumFontSizePropertyInfo), '("monospace-font-family", SettingsMonospaceFontFamilyPropertyInfo), '("pictograph-font-family", SettingsPictographFontFamilyPropertyInfo), '("print-backgrounds", SettingsPrintBackgroundsPropertyInfo), '("sans-serif-font-family", SettingsSansSerifFontFamilyPropertyInfo), '("serif-font-family", SettingsSerifFontFamilyPropertyInfo), '("user-agent", SettingsUserAgentPropertyInfo), '("zoom-text-only", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Settings::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "WebKit2" "Settings" --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_new" webkit_settings_new :: - IO (Ptr Settings) - - -settingsNew :: - (MonadIO m) => - m Settings -settingsNew = liftIO $ do - result <- webkit_settings_new - checkUnexpectedReturnNULL "webkit_settings_new" result - result' <- (wrapObject Settings) result - return result' - --- method Settings::get_allow_file_access_from_file_urls --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetAllowFileAccessFromFileUrls :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetAllowFileAccessFromFileUrls _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_allow_file_access_from_file_urls _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_allow_modal_dialogs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetAllowModalDialogs :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetAllowModalDialogs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_allow_modal_dialogs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_auto_load_images --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetAutoLoadImages :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetAutoLoadImages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_auto_load_images _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_cursive_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetCursiveFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetCursiveFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_cursive_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_cursive_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_default_charset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetDefaultCharset :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetDefaultCharset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_charset _obj' - checkUnexpectedReturnNULL "webkit_settings_get_default_charset" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_default_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetDefaultFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetDefaultFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_default_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_default_font_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO Word32 - - -settingsGetDefaultFontSize :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Word32 -settingsGetDefaultFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_font_size _obj' - touchManagedPtr _obj - return result - --- method Settings::get_default_monospace_font_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO Word32 - - -settingsGetDefaultMonospaceFontSize :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Word32 -settingsGetDefaultMonospaceFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_monospace_font_size _obj' - touchManagedPtr _obj - return result - --- method Settings::get_draw_compositing_indicators --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetDrawCompositingIndicators :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetDrawCompositingIndicators _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_draw_compositing_indicators _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_accelerated_2d_canvas --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableAccelerated2dCanvas :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableAccelerated2dCanvas _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_accelerated_2d_canvas _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_caret_browsing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableCaretBrowsing :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableCaretBrowsing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_caret_browsing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_developer_extras --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableDeveloperExtras :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableDeveloperExtras _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_developer_extras _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_dns_prefetching --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableDnsPrefetching :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableDnsPrefetching _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_dns_prefetching _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_frame_flattening --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableFrameFlattening :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableFrameFlattening _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_frame_flattening _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableFullscreen :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableFullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_fullscreen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_html5_database --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableHtml5Database :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableHtml5Database _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_html5_database _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_html5_local_storage --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableHtml5LocalStorage :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableHtml5LocalStorage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_html5_local_storage _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_hyperlink_auditing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableHyperlinkAuditing :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableHyperlinkAuditing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_hyperlink_auditing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_java --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableJava :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableJava _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_java _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_javascript --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableJavascript :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableJavascript _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_javascript _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_media_stream --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableMediaStream :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableMediaStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_media_stream _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_mediasource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableMediasource :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableMediasource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_mediasource _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_offline_web_application_cache --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableOfflineWebApplicationCache :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableOfflineWebApplicationCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_offline_web_application_cache _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_page_cache --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnablePageCache :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnablePageCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_page_cache _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_plugins --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnablePlugins :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnablePlugins _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_plugins _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_private_browsing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnablePrivateBrowsing :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnablePrivateBrowsing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_private_browsing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_resizable_text_areas --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableResizableTextAreas :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableResizableTextAreas _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_resizable_text_areas _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_site_specific_quirks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableSiteSpecificQuirks :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableSiteSpecificQuirks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_site_specific_quirks _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_smooth_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableSmoothScrolling :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableSmoothScrolling _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_smooth_scrolling _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_spatial_navigation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableSpatialNavigation :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableSpatialNavigation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_spatial_navigation _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_tabs_to_links --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableTabsToLinks :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableTabsToLinks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_tabs_to_links _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_webaudio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableWebaudio :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableWebaudio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_webaudio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_webgl --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableWebgl :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableWebgl _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_webgl _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_write_console_messages_to_stdout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableWriteConsoleMessagesToStdout :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableWriteConsoleMessagesToStdout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_write_console_messages_to_stdout _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_enable_xss_auditor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableXssAuditor :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetEnableXssAuditor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_xss_auditor _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_fantasy_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetFantasyFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetFantasyFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_fantasy_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_fantasy_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_javascript_can_access_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetJavascriptCanAccessClipboard :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetJavascriptCanAccessClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_javascript_can_access_clipboard _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_javascript_can_open_windows_automatically --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetJavascriptCanOpenWindowsAutomatically :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetJavascriptCanOpenWindowsAutomatically _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_javascript_can_open_windows_automatically _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_load_icons_ignoring_image_load_setting --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetLoadIconsIgnoringImageLoadSetting :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetLoadIconsIgnoringImageLoadSetting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_load_icons_ignoring_image_load_setting _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_media_playback_allows_inline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetMediaPlaybackAllowsInline :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetMediaPlaybackAllowsInline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_media_playback_allows_inline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_media_playback_requires_user_gesture --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetMediaPlaybackRequiresUserGesture :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetMediaPlaybackRequiresUserGesture _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_media_playback_requires_user_gesture _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_minimum_font_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO Word32 - - -settingsGetMinimumFontSize :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Word32 -settingsGetMinimumFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_minimum_font_size _obj' - touchManagedPtr _obj - return result - --- method Settings::get_monospace_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetMonospaceFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetMonospaceFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_monospace_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_monospace_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_pictograph_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetPictographFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetPictographFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_pictograph_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_pictograph_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_print_backgrounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetPrintBackgrounds :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetPrintBackgrounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_print_backgrounds _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::get_sans_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetSansSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetSansSerifFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_sans_serif_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_sans_serif_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetSerifFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_serif_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_serif_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_user_agent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetUserAgent :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m T.Text -settingsGetUserAgent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_user_agent _obj' - checkUnexpectedReturnNULL "webkit_settings_get_user_agent" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Settings::get_zoom_text_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetZoomTextOnly :: - (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool -settingsGetZoomTextOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_zoom_text_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Settings::set_allow_file_access_from_file_urls --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", 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 - -foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- allowed : TBasicType TBoolean - IO () - - -settingsSetAllowFileAccessFromFileUrls :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- allowed - m () -settingsSetAllowFileAccessFromFileUrls _obj allowed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allowed' = (fromIntegral . fromEnum) allowed - webkit_settings_set_allow_file_access_from_file_urls _obj' allowed' - touchManagedPtr _obj - return () - --- method Settings::set_allow_modal_dialogs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", 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 - -foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- allowed : TBasicType TBoolean - IO () - - -settingsSetAllowModalDialogs :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- allowed - m () -settingsSetAllowModalDialogs _obj allowed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allowed' = (fromIntegral . fromEnum) allowed - webkit_settings_set_allow_modal_dialogs _obj' allowed' - touchManagedPtr _obj - return () - --- method Settings::set_auto_load_images --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetAutoLoadImages :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetAutoLoadImages _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_auto_load_images _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_cursive_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- cursive_font_family : TBasicType TUTF8 - IO () - - -settingsSetCursiveFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- cursive_font_family - m () -settingsSetCursiveFontFamily _obj cursive_font_family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - cursive_font_family' <- textToCString cursive_font_family - webkit_settings_set_cursive_font_family _obj' cursive_font_family' - touchManagedPtr _obj - freeMem cursive_font_family' - return () - --- method Settings::set_default_charset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- default_charset : TBasicType TUTF8 - IO () - - -settingsSetDefaultCharset :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- default_charset - m () -settingsSetDefaultCharset _obj default_charset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - default_charset' <- textToCString default_charset - webkit_settings_set_default_charset _obj' default_charset' - touchManagedPtr _obj - freeMem default_charset' - return () - --- method Settings::set_default_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- default_font_family : TBasicType TUTF8 - IO () - - -settingsSetDefaultFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- default_font_family - m () -settingsSetDefaultFontFamily _obj default_font_family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - default_font_family' <- textToCString default_font_family - webkit_settings_set_default_font_family _obj' default_font_family' - touchManagedPtr _obj - freeMem default_font_family' - return () - --- method Settings::set_default_font_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - Word32 -> -- font_size : TBasicType TUInt32 - IO () - - -settingsSetDefaultFontSize :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Word32 -> -- font_size - m () -settingsSetDefaultFontSize _obj font_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_settings_set_default_font_size _obj' font_size - touchManagedPtr _obj - return () - --- method Settings::set_default_monospace_font_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - Word32 -> -- font_size : TBasicType TUInt32 - IO () - - -settingsSetDefaultMonospaceFontSize :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Word32 -> -- font_size - m () -settingsSetDefaultMonospaceFontSize _obj font_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_settings_set_default_monospace_font_size _obj' font_size - touchManagedPtr _obj - return () - --- method Settings::set_draw_compositing_indicators --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetDrawCompositingIndicators :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetDrawCompositingIndicators _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_draw_compositing_indicators _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_accelerated_2d_canvas --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableAccelerated2dCanvas :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableAccelerated2dCanvas _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_accelerated_2d_canvas _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_caret_browsing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableCaretBrowsing :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableCaretBrowsing _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_caret_browsing _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_developer_extras --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableDeveloperExtras :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableDeveloperExtras _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_developer_extras _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_dns_prefetching --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableDnsPrefetching :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableDnsPrefetching _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_dns_prefetching _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_frame_flattening --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableFrameFlattening :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableFrameFlattening _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_frame_flattening _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableFullscreen :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableFullscreen _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_fullscreen _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_html5_database --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableHtml5Database :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableHtml5Database _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_html5_database _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_html5_local_storage --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableHtml5LocalStorage :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableHtml5LocalStorage _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_html5_local_storage _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_hyperlink_auditing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableHyperlinkAuditing :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableHyperlinkAuditing _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_hyperlink_auditing _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_java --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableJava :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableJava _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_java _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_javascript --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableJavascript :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableJavascript _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_javascript _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_media_stream --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableMediaStream :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableMediaStream _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_media_stream _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_mediasource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableMediasource :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableMediasource _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_mediasource _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_offline_web_application_cache --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableOfflineWebApplicationCache :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableOfflineWebApplicationCache _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_offline_web_application_cache _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_page_cache --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnablePageCache :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnablePageCache _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_page_cache _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_plugins --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnablePlugins :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnablePlugins _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_plugins _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_private_browsing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnablePrivateBrowsing :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnablePrivateBrowsing _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_private_browsing _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_resizable_text_areas --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableResizableTextAreas :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableResizableTextAreas _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_resizable_text_areas _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_site_specific_quirks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableSiteSpecificQuirks :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableSiteSpecificQuirks _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_site_specific_quirks _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_smooth_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableSmoothScrolling :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableSmoothScrolling _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_smooth_scrolling _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_spatial_navigation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableSpatialNavigation :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableSpatialNavigation _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_spatial_navigation _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_tabs_to_links --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableTabsToLinks :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableTabsToLinks _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_tabs_to_links _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_webaudio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableWebaudio :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableWebaudio _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_webaudio _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_webgl --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableWebgl :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableWebgl _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_webgl _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_write_console_messages_to_stdout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableWriteConsoleMessagesToStdout :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableWriteConsoleMessagesToStdout _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_write_console_messages_to_stdout _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_enable_xss_auditor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableXssAuditor :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetEnableXssAuditor _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_xss_auditor _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_fantasy_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- fantasy_font_family : TBasicType TUTF8 - IO () - - -settingsSetFantasyFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- fantasy_font_family - m () -settingsSetFantasyFontFamily _obj fantasy_font_family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fantasy_font_family' <- textToCString fantasy_font_family - webkit_settings_set_fantasy_font_family _obj' fantasy_font_family' - touchManagedPtr _obj - freeMem fantasy_font_family' - return () - --- method Settings::set_javascript_can_access_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetJavascriptCanAccessClipboard :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetJavascriptCanAccessClipboard _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_javascript_can_access_clipboard _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_javascript_can_open_windows_automatically --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetJavascriptCanOpenWindowsAutomatically :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetJavascriptCanOpenWindowsAutomatically _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_javascript_can_open_windows_automatically _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_load_icons_ignoring_image_load_setting --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetLoadIconsIgnoringImageLoadSetting :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetLoadIconsIgnoringImageLoadSetting _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_load_icons_ignoring_image_load_setting _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_media_playback_allows_inline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetMediaPlaybackAllowsInline :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetMediaPlaybackAllowsInline _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_media_playback_allows_inline _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_media_playback_requires_user_gesture --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetMediaPlaybackRequiresUserGesture :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- enabled - m () -settingsSetMediaPlaybackRequiresUserGesture _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_media_playback_requires_user_gesture _obj' enabled' - touchManagedPtr _obj - return () - --- method Settings::set_minimum_font_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - Word32 -> -- font_size : TBasicType TUInt32 - IO () - - -settingsSetMinimumFontSize :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Word32 -> -- font_size - m () -settingsSetMinimumFontSize _obj font_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_settings_set_minimum_font_size _obj' font_size - touchManagedPtr _obj - return () - --- method Settings::set_monospace_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- monospace_font_family : TBasicType TUTF8 - IO () - - -settingsSetMonospaceFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- monospace_font_family - m () -settingsSetMonospaceFontFamily _obj monospace_font_family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - monospace_font_family' <- textToCString monospace_font_family - webkit_settings_set_monospace_font_family _obj' monospace_font_family' - touchManagedPtr _obj - freeMem monospace_font_family' - return () - --- method Settings::set_pictograph_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- pictograph_font_family : TBasicType TUTF8 - IO () - - -settingsSetPictographFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- pictograph_font_family - m () -settingsSetPictographFontFamily _obj pictograph_font_family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pictograph_font_family' <- textToCString pictograph_font_family - webkit_settings_set_pictograph_font_family _obj' pictograph_font_family' - touchManagedPtr _obj - freeMem pictograph_font_family' - return () - --- method Settings::set_print_backgrounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- print_backgrounds : TBasicType TBoolean - IO () - - -settingsSetPrintBackgrounds :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- print_backgrounds - m () -settingsSetPrintBackgrounds _obj print_backgrounds = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let print_backgrounds' = (fromIntegral . fromEnum) print_backgrounds - webkit_settings_set_print_backgrounds _obj' print_backgrounds' - touchManagedPtr _obj - return () - --- method Settings::set_sans_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- sans_serif_font_family : TBasicType TUTF8 - IO () - - -settingsSetSansSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- sans_serif_font_family - m () -settingsSetSansSerifFontFamily _obj sans_serif_font_family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sans_serif_font_family' <- textToCString sans_serif_font_family - webkit_settings_set_sans_serif_font_family _obj' sans_serif_font_family' - touchManagedPtr _obj - freeMem sans_serif_font_family' - return () - --- method Settings::set_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- serif_font_family : TBasicType TUTF8 - IO () - - -settingsSetSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- serif_font_family - m () -settingsSetSerifFontFamily _obj serif_font_family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - serif_font_family' <- textToCString serif_font_family - webkit_settings_set_serif_font_family _obj' serif_font_family' - touchManagedPtr _obj - freeMem serif_font_family' - return () - --- method Settings::set_user_agent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- user_agent : TBasicType TUTF8 - IO () - - -settingsSetUserAgent :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Maybe (T.Text) -> -- user_agent - m () -settingsSetUserAgent _obj user_agent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeUser_agent <- case user_agent of - Nothing -> return nullPtr - Just jUser_agent -> do - jUser_agent' <- textToCString jUser_agent - return jUser_agent' - webkit_settings_set_user_agent _obj' maybeUser_agent - touchManagedPtr _obj - freeMem maybeUser_agent - return () - --- method Settings::set_user_agent_with_application_details --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- application_name : TBasicType TUTF8 - CString -> -- application_version : TBasicType TUTF8 - IO () - - -settingsSetUserAgentWithApplicationDetails :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Maybe (T.Text) -> -- application_name - Maybe (T.Text) -> -- application_version - m () -settingsSetUserAgentWithApplicationDetails _obj application_name application_version = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeApplication_name <- case application_name of - Nothing -> return nullPtr - Just jApplication_name -> do - jApplication_name' <- textToCString jApplication_name - return jApplication_name' - maybeApplication_version <- case application_version of - Nothing -> return nullPtr - Just jApplication_version -> do - jApplication_version' <- textToCString jApplication_version - return jApplication_version' - webkit_settings_set_user_agent_with_application_details _obj' maybeApplication_name maybeApplication_version - touchManagedPtr _obj - freeMem maybeApplication_name - freeMem maybeApplication_version - return () - --- method Settings::set_zoom_text_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- zoom_text_only : TBasicType TBoolean - IO () - - -settingsSetZoomTextOnly :: - (MonadIO m, SettingsK a) => - a -> -- _obj - Bool -> -- zoom_text_only - m () -settingsSetZoomTextOnly _obj zoom_text_only = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let zoom_text_only' = (fromIntegral . fromEnum) zoom_text_only - webkit_settings_set_zoom_text_only _obj' zoom_text_only' - touchManagedPtr _obj - return () + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit2.Objects.Settings + ( + +-- * Exported types + Settings(..) , + SettingsK , + toSettings , + noSettings , + + + -- * Methods +-- ** settingsGetAllowFileAccessFromFileUrls + SettingsGetAllowFileAccessFromFileUrlsMethodInfo, + settingsGetAllowFileAccessFromFileUrls , + + +-- ** settingsGetAllowModalDialogs + SettingsGetAllowModalDialogsMethodInfo , + settingsGetAllowModalDialogs , + + +-- ** settingsGetAutoLoadImages + SettingsGetAutoLoadImagesMethodInfo , + settingsGetAutoLoadImages , + + +-- ** settingsGetCursiveFontFamily + SettingsGetCursiveFontFamilyMethodInfo , + settingsGetCursiveFontFamily , + + +-- ** settingsGetDefaultCharset + SettingsGetDefaultCharsetMethodInfo , + settingsGetDefaultCharset , + + +-- ** settingsGetDefaultFontFamily + SettingsGetDefaultFontFamilyMethodInfo , + settingsGetDefaultFontFamily , + + +-- ** settingsGetDefaultFontSize + SettingsGetDefaultFontSizeMethodInfo , + settingsGetDefaultFontSize , + + +-- ** settingsGetDefaultMonospaceFontSize + SettingsGetDefaultMonospaceFontSizeMethodInfo, + settingsGetDefaultMonospaceFontSize , + + +-- ** settingsGetDrawCompositingIndicators + SettingsGetDrawCompositingIndicatorsMethodInfo, + settingsGetDrawCompositingIndicators , + + +-- ** settingsGetEnableAccelerated2dCanvas + SettingsGetEnableAccelerated2dCanvasMethodInfo, + settingsGetEnableAccelerated2dCanvas , + + +-- ** settingsGetEnableCaretBrowsing + SettingsGetEnableCaretBrowsingMethodInfo, + settingsGetEnableCaretBrowsing , + + +-- ** settingsGetEnableDeveloperExtras + SettingsGetEnableDeveloperExtrasMethodInfo, + settingsGetEnableDeveloperExtras , + + +-- ** settingsGetEnableDnsPrefetching + SettingsGetEnableDnsPrefetchingMethodInfo, + settingsGetEnableDnsPrefetching , + + +-- ** settingsGetEnableFrameFlattening + SettingsGetEnableFrameFlatteningMethodInfo, + settingsGetEnableFrameFlattening , + + +-- ** settingsGetEnableFullscreen + SettingsGetEnableFullscreenMethodInfo , + settingsGetEnableFullscreen , + + +-- ** settingsGetEnableHtml5Database + SettingsGetEnableHtml5DatabaseMethodInfo, + settingsGetEnableHtml5Database , + + +-- ** settingsGetEnableHtml5LocalStorage + SettingsGetEnableHtml5LocalStorageMethodInfo, + settingsGetEnableHtml5LocalStorage , + + +-- ** settingsGetEnableHyperlinkAuditing + SettingsGetEnableHyperlinkAuditingMethodInfo, + settingsGetEnableHyperlinkAuditing , + + +-- ** settingsGetEnableJava + SettingsGetEnableJavaMethodInfo , + settingsGetEnableJava , + + +-- ** settingsGetEnableJavascript + SettingsGetEnableJavascriptMethodInfo , + settingsGetEnableJavascript , + + +-- ** settingsGetEnableMediaStream + SettingsGetEnableMediaStreamMethodInfo , + settingsGetEnableMediaStream , + + +-- ** settingsGetEnableMediasource + SettingsGetEnableMediasourceMethodInfo , + settingsGetEnableMediasource , + + +-- ** settingsGetEnableOfflineWebApplicationCache + SettingsGetEnableOfflineWebApplicationCacheMethodInfo, + settingsGetEnableOfflineWebApplicationCache, + + +-- ** settingsGetEnablePageCache + SettingsGetEnablePageCacheMethodInfo , + settingsGetEnablePageCache , + + +-- ** settingsGetEnablePlugins + SettingsGetEnablePluginsMethodInfo , + settingsGetEnablePlugins , + + +-- ** settingsGetEnablePrivateBrowsing + SettingsGetEnablePrivateBrowsingMethodInfo, + settingsGetEnablePrivateBrowsing , + + +-- ** settingsGetEnableResizableTextAreas + SettingsGetEnableResizableTextAreasMethodInfo, + settingsGetEnableResizableTextAreas , + + +-- ** settingsGetEnableSiteSpecificQuirks + SettingsGetEnableSiteSpecificQuirksMethodInfo, + settingsGetEnableSiteSpecificQuirks , + + +-- ** settingsGetEnableSmoothScrolling + SettingsGetEnableSmoothScrollingMethodInfo, + settingsGetEnableSmoothScrolling , + + +-- ** settingsGetEnableSpatialNavigation + SettingsGetEnableSpatialNavigationMethodInfo, + settingsGetEnableSpatialNavigation , + + +-- ** settingsGetEnableTabsToLinks + SettingsGetEnableTabsToLinksMethodInfo , + settingsGetEnableTabsToLinks , + + +-- ** settingsGetEnableWebaudio + SettingsGetEnableWebaudioMethodInfo , + settingsGetEnableWebaudio , + + +-- ** settingsGetEnableWebgl + SettingsGetEnableWebglMethodInfo , + settingsGetEnableWebgl , + + +-- ** settingsGetEnableWriteConsoleMessagesToStdout + SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo, + settingsGetEnableWriteConsoleMessagesToStdout, + + +-- ** settingsGetEnableXssAuditor + SettingsGetEnableXssAuditorMethodInfo , + settingsGetEnableXssAuditor , + + +-- ** settingsGetFantasyFontFamily + SettingsGetFantasyFontFamilyMethodInfo , + settingsGetFantasyFontFamily , + + +-- ** settingsGetJavascriptCanAccessClipboard + SettingsGetJavascriptCanAccessClipboardMethodInfo, + settingsGetJavascriptCanAccessClipboard , + + +-- ** settingsGetJavascriptCanOpenWindowsAutomatically + SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo, + settingsGetJavascriptCanOpenWindowsAutomatically, + + +-- ** settingsGetLoadIconsIgnoringImageLoadSetting + SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo, + settingsGetLoadIconsIgnoringImageLoadSetting, + + +-- ** settingsGetMediaPlaybackAllowsInline + SettingsGetMediaPlaybackAllowsInlineMethodInfo, + settingsGetMediaPlaybackAllowsInline , + + +-- ** settingsGetMediaPlaybackRequiresUserGesture + SettingsGetMediaPlaybackRequiresUserGestureMethodInfo, + settingsGetMediaPlaybackRequiresUserGesture, + + +-- ** settingsGetMinimumFontSize + SettingsGetMinimumFontSizeMethodInfo , + settingsGetMinimumFontSize , + + +-- ** settingsGetMonospaceFontFamily + SettingsGetMonospaceFontFamilyMethodInfo, + settingsGetMonospaceFontFamily , + + +-- ** settingsGetPictographFontFamily + SettingsGetPictographFontFamilyMethodInfo, + settingsGetPictographFontFamily , + + +-- ** settingsGetPrintBackgrounds + SettingsGetPrintBackgroundsMethodInfo , + settingsGetPrintBackgrounds , + + +-- ** settingsGetSansSerifFontFamily + SettingsGetSansSerifFontFamilyMethodInfo, + settingsGetSansSerifFontFamily , + + +-- ** settingsGetSerifFontFamily + SettingsGetSerifFontFamilyMethodInfo , + settingsGetSerifFontFamily , + + +-- ** settingsGetUserAgent + SettingsGetUserAgentMethodInfo , + settingsGetUserAgent , + + +-- ** settingsGetZoomTextOnly + SettingsGetZoomTextOnlyMethodInfo , + settingsGetZoomTextOnly , + + +-- ** settingsNew + settingsNew , + + +-- ** settingsSetAllowFileAccessFromFileUrls + SettingsSetAllowFileAccessFromFileUrlsMethodInfo, + settingsSetAllowFileAccessFromFileUrls , + + +-- ** settingsSetAllowModalDialogs + SettingsSetAllowModalDialogsMethodInfo , + settingsSetAllowModalDialogs , + + +-- ** settingsSetAutoLoadImages + SettingsSetAutoLoadImagesMethodInfo , + settingsSetAutoLoadImages , + + +-- ** settingsSetCursiveFontFamily + SettingsSetCursiveFontFamilyMethodInfo , + settingsSetCursiveFontFamily , + + +-- ** settingsSetDefaultCharset + SettingsSetDefaultCharsetMethodInfo , + settingsSetDefaultCharset , + + +-- ** settingsSetDefaultFontFamily + SettingsSetDefaultFontFamilyMethodInfo , + settingsSetDefaultFontFamily , + + +-- ** settingsSetDefaultFontSize + SettingsSetDefaultFontSizeMethodInfo , + settingsSetDefaultFontSize , + + +-- ** settingsSetDefaultMonospaceFontSize + SettingsSetDefaultMonospaceFontSizeMethodInfo, + settingsSetDefaultMonospaceFontSize , + + +-- ** settingsSetDrawCompositingIndicators + SettingsSetDrawCompositingIndicatorsMethodInfo, + settingsSetDrawCompositingIndicators , + + +-- ** settingsSetEnableAccelerated2dCanvas + SettingsSetEnableAccelerated2dCanvasMethodInfo, + settingsSetEnableAccelerated2dCanvas , + + +-- ** settingsSetEnableCaretBrowsing + SettingsSetEnableCaretBrowsingMethodInfo, + settingsSetEnableCaretBrowsing , + + +-- ** settingsSetEnableDeveloperExtras + SettingsSetEnableDeveloperExtrasMethodInfo, + settingsSetEnableDeveloperExtras , + + +-- ** settingsSetEnableDnsPrefetching + SettingsSetEnableDnsPrefetchingMethodInfo, + settingsSetEnableDnsPrefetching , + + +-- ** settingsSetEnableFrameFlattening + SettingsSetEnableFrameFlatteningMethodInfo, + settingsSetEnableFrameFlattening , + + +-- ** settingsSetEnableFullscreen + SettingsSetEnableFullscreenMethodInfo , + settingsSetEnableFullscreen , + + +-- ** settingsSetEnableHtml5Database + SettingsSetEnableHtml5DatabaseMethodInfo, + settingsSetEnableHtml5Database , + + +-- ** settingsSetEnableHtml5LocalStorage + SettingsSetEnableHtml5LocalStorageMethodInfo, + settingsSetEnableHtml5LocalStorage , + + +-- ** settingsSetEnableHyperlinkAuditing + SettingsSetEnableHyperlinkAuditingMethodInfo, + settingsSetEnableHyperlinkAuditing , + + +-- ** settingsSetEnableJava + SettingsSetEnableJavaMethodInfo , + settingsSetEnableJava , + + +-- ** settingsSetEnableJavascript + SettingsSetEnableJavascriptMethodInfo , + settingsSetEnableJavascript , + + +-- ** settingsSetEnableMediaStream + SettingsSetEnableMediaStreamMethodInfo , + settingsSetEnableMediaStream , + + +-- ** settingsSetEnableMediasource + SettingsSetEnableMediasourceMethodInfo , + settingsSetEnableMediasource , + + +-- ** settingsSetEnableOfflineWebApplicationCache + SettingsSetEnableOfflineWebApplicationCacheMethodInfo, + settingsSetEnableOfflineWebApplicationCache, + + +-- ** settingsSetEnablePageCache + SettingsSetEnablePageCacheMethodInfo , + settingsSetEnablePageCache , + + +-- ** settingsSetEnablePlugins + SettingsSetEnablePluginsMethodInfo , + settingsSetEnablePlugins , + + +-- ** settingsSetEnablePrivateBrowsing + SettingsSetEnablePrivateBrowsingMethodInfo, + settingsSetEnablePrivateBrowsing , + + +-- ** settingsSetEnableResizableTextAreas + SettingsSetEnableResizableTextAreasMethodInfo, + settingsSetEnableResizableTextAreas , + + +-- ** settingsSetEnableSiteSpecificQuirks + SettingsSetEnableSiteSpecificQuirksMethodInfo, + settingsSetEnableSiteSpecificQuirks , + + +-- ** settingsSetEnableSmoothScrolling + SettingsSetEnableSmoothScrollingMethodInfo, + settingsSetEnableSmoothScrolling , + + +-- ** settingsSetEnableSpatialNavigation + SettingsSetEnableSpatialNavigationMethodInfo, + settingsSetEnableSpatialNavigation , + + +-- ** settingsSetEnableTabsToLinks + SettingsSetEnableTabsToLinksMethodInfo , + settingsSetEnableTabsToLinks , + + +-- ** settingsSetEnableWebaudio + SettingsSetEnableWebaudioMethodInfo , + settingsSetEnableWebaudio , + + +-- ** settingsSetEnableWebgl + SettingsSetEnableWebglMethodInfo , + settingsSetEnableWebgl , + + +-- ** settingsSetEnableWriteConsoleMessagesToStdout + SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo, + settingsSetEnableWriteConsoleMessagesToStdout, + + +-- ** settingsSetEnableXssAuditor + SettingsSetEnableXssAuditorMethodInfo , + settingsSetEnableXssAuditor , + + +-- ** settingsSetFantasyFontFamily + SettingsSetFantasyFontFamilyMethodInfo , + settingsSetFantasyFontFamily , + + +-- ** settingsSetJavascriptCanAccessClipboard + SettingsSetJavascriptCanAccessClipboardMethodInfo, + settingsSetJavascriptCanAccessClipboard , + + +-- ** settingsSetJavascriptCanOpenWindowsAutomatically + SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo, + settingsSetJavascriptCanOpenWindowsAutomatically, + + +-- ** settingsSetLoadIconsIgnoringImageLoadSetting + SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo, + settingsSetLoadIconsIgnoringImageLoadSetting, + + +-- ** settingsSetMediaPlaybackAllowsInline + SettingsSetMediaPlaybackAllowsInlineMethodInfo, + settingsSetMediaPlaybackAllowsInline , + + +-- ** settingsSetMediaPlaybackRequiresUserGesture + SettingsSetMediaPlaybackRequiresUserGestureMethodInfo, + settingsSetMediaPlaybackRequiresUserGesture, + + +-- ** settingsSetMinimumFontSize + SettingsSetMinimumFontSizeMethodInfo , + settingsSetMinimumFontSize , + + +-- ** settingsSetMonospaceFontFamily + SettingsSetMonospaceFontFamilyMethodInfo, + settingsSetMonospaceFontFamily , + + +-- ** settingsSetPictographFontFamily + SettingsSetPictographFontFamilyMethodInfo, + settingsSetPictographFontFamily , + + +-- ** settingsSetPrintBackgrounds + SettingsSetPrintBackgroundsMethodInfo , + settingsSetPrintBackgrounds , + + +-- ** settingsSetSansSerifFontFamily + SettingsSetSansSerifFontFamilyMethodInfo, + settingsSetSansSerifFontFamily , + + +-- ** settingsSetSerifFontFamily + SettingsSetSerifFontFamilyMethodInfo , + settingsSetSerifFontFamily , + + +-- ** settingsSetUserAgent + SettingsSetUserAgentMethodInfo , + settingsSetUserAgent , + + +-- ** settingsSetUserAgentWithApplicationDetails + SettingsSetUserAgentWithApplicationDetailsMethodInfo, + settingsSetUserAgentWithApplicationDetails, + + +-- ** settingsSetZoomTextOnly + SettingsSetZoomTextOnlyMethodInfo , + settingsSetZoomTextOnly , + + + + + -- * Properties +-- ** AllowFileAccessFromFileUrls + SettingsAllowFileAccessFromFileUrlsPropertyInfo, + constructSettingsAllowFileAccessFromFileUrls, + getSettingsAllowFileAccessFromFileUrls , + setSettingsAllowFileAccessFromFileUrls , + + +-- ** AllowModalDialogs + SettingsAllowModalDialogsPropertyInfo , + constructSettingsAllowModalDialogs , + getSettingsAllowModalDialogs , + setSettingsAllowModalDialogs , + + +-- ** AutoLoadImages + SettingsAutoLoadImagesPropertyInfo , + constructSettingsAutoLoadImages , + getSettingsAutoLoadImages , + setSettingsAutoLoadImages , + + +-- ** CursiveFontFamily + SettingsCursiveFontFamilyPropertyInfo , + constructSettingsCursiveFontFamily , + getSettingsCursiveFontFamily , + setSettingsCursiveFontFamily , + + +-- ** DefaultCharset + SettingsDefaultCharsetPropertyInfo , + constructSettingsDefaultCharset , + getSettingsDefaultCharset , + setSettingsDefaultCharset , + + +-- ** DefaultFontFamily + SettingsDefaultFontFamilyPropertyInfo , + constructSettingsDefaultFontFamily , + getSettingsDefaultFontFamily , + setSettingsDefaultFontFamily , + + +-- ** DefaultFontSize + SettingsDefaultFontSizePropertyInfo , + constructSettingsDefaultFontSize , + getSettingsDefaultFontSize , + setSettingsDefaultFontSize , + + +-- ** DefaultMonospaceFontSize + SettingsDefaultMonospaceFontSizePropertyInfo, + constructSettingsDefaultMonospaceFontSize, + getSettingsDefaultMonospaceFontSize , + setSettingsDefaultMonospaceFontSize , + + +-- ** DrawCompositingIndicators + SettingsDrawCompositingIndicatorsPropertyInfo, + constructSettingsDrawCompositingIndicators, + getSettingsDrawCompositingIndicators , + setSettingsDrawCompositingIndicators , + + +-- ** EnableAccelerated2dCanvas + SettingsEnableAccelerated2dCanvasPropertyInfo, + constructSettingsEnableAccelerated2dCanvas, + getSettingsEnableAccelerated2dCanvas , + setSettingsEnableAccelerated2dCanvas , + + +-- ** EnableCaretBrowsing + SettingsEnableCaretBrowsingPropertyInfo , + constructSettingsEnableCaretBrowsing , + getSettingsEnableCaretBrowsing , + setSettingsEnableCaretBrowsing , + + +-- ** EnableDeveloperExtras + SettingsEnableDeveloperExtrasPropertyInfo, + constructSettingsEnableDeveloperExtras , + getSettingsEnableDeveloperExtras , + setSettingsEnableDeveloperExtras , + + +-- ** EnableDnsPrefetching + SettingsEnableDnsPrefetchingPropertyInfo, + constructSettingsEnableDnsPrefetching , + getSettingsEnableDnsPrefetching , + setSettingsEnableDnsPrefetching , + + +-- ** EnableFrameFlattening + SettingsEnableFrameFlatteningPropertyInfo, + constructSettingsEnableFrameFlattening , + getSettingsEnableFrameFlattening , + setSettingsEnableFrameFlattening , + + +-- ** EnableFullscreen + SettingsEnableFullscreenPropertyInfo , + constructSettingsEnableFullscreen , + getSettingsEnableFullscreen , + setSettingsEnableFullscreen , + + +-- ** EnableHtml5Database + SettingsEnableHtml5DatabasePropertyInfo , + constructSettingsEnableHtml5Database , + getSettingsEnableHtml5Database , + setSettingsEnableHtml5Database , + + +-- ** EnableHtml5LocalStorage + SettingsEnableHtml5LocalStoragePropertyInfo, + constructSettingsEnableHtml5LocalStorage, + getSettingsEnableHtml5LocalStorage , + setSettingsEnableHtml5LocalStorage , + + +-- ** EnableHyperlinkAuditing + SettingsEnableHyperlinkAuditingPropertyInfo, + constructSettingsEnableHyperlinkAuditing, + getSettingsEnableHyperlinkAuditing , + setSettingsEnableHyperlinkAuditing , + + +-- ** EnableJava + SettingsEnableJavaPropertyInfo , + constructSettingsEnableJava , + getSettingsEnableJava , + setSettingsEnableJava , + + +-- ** EnableJavascript + SettingsEnableJavascriptPropertyInfo , + constructSettingsEnableJavascript , + getSettingsEnableJavascript , + setSettingsEnableJavascript , + + +-- ** EnableMediaStream + SettingsEnableMediaStreamPropertyInfo , + constructSettingsEnableMediaStream , + getSettingsEnableMediaStream , + setSettingsEnableMediaStream , + + +-- ** EnableMediasource + SettingsEnableMediasourcePropertyInfo , + constructSettingsEnableMediasource , + getSettingsEnableMediasource , + setSettingsEnableMediasource , + + +-- ** EnableOfflineWebApplicationCache + SettingsEnableOfflineWebApplicationCachePropertyInfo, + constructSettingsEnableOfflineWebApplicationCache, + getSettingsEnableOfflineWebApplicationCache, + setSettingsEnableOfflineWebApplicationCache, + + +-- ** EnablePageCache + SettingsEnablePageCachePropertyInfo , + constructSettingsEnablePageCache , + getSettingsEnablePageCache , + setSettingsEnablePageCache , + + +-- ** EnablePlugins + SettingsEnablePluginsPropertyInfo , + constructSettingsEnablePlugins , + getSettingsEnablePlugins , + setSettingsEnablePlugins , + + +-- ** EnablePrivateBrowsing + SettingsEnablePrivateBrowsingPropertyInfo, + constructSettingsEnablePrivateBrowsing , + getSettingsEnablePrivateBrowsing , + setSettingsEnablePrivateBrowsing , + + +-- ** EnableResizableTextAreas + SettingsEnableResizableTextAreasPropertyInfo, + constructSettingsEnableResizableTextAreas, + getSettingsEnableResizableTextAreas , + setSettingsEnableResizableTextAreas , + + +-- ** EnableSiteSpecificQuirks + SettingsEnableSiteSpecificQuirksPropertyInfo, + constructSettingsEnableSiteSpecificQuirks, + getSettingsEnableSiteSpecificQuirks , + setSettingsEnableSiteSpecificQuirks , + + +-- ** EnableSmoothScrolling + SettingsEnableSmoothScrollingPropertyInfo, + constructSettingsEnableSmoothScrolling , + getSettingsEnableSmoothScrolling , + setSettingsEnableSmoothScrolling , + + +-- ** EnableSpatialNavigation + SettingsEnableSpatialNavigationPropertyInfo, + constructSettingsEnableSpatialNavigation, + getSettingsEnableSpatialNavigation , + setSettingsEnableSpatialNavigation , + + +-- ** EnableTabsToLinks + SettingsEnableTabsToLinksPropertyInfo , + constructSettingsEnableTabsToLinks , + getSettingsEnableTabsToLinks , + setSettingsEnableTabsToLinks , + + +-- ** EnableWebaudio + SettingsEnableWebaudioPropertyInfo , + constructSettingsEnableWebaudio , + getSettingsEnableWebaudio , + setSettingsEnableWebaudio , + + +-- ** EnableWebgl + SettingsEnableWebglPropertyInfo , + constructSettingsEnableWebgl , + getSettingsEnableWebgl , + setSettingsEnableWebgl , + + +-- ** EnableWriteConsoleMessagesToStdout + SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo, + constructSettingsEnableWriteConsoleMessagesToStdout, + getSettingsEnableWriteConsoleMessagesToStdout, + setSettingsEnableWriteConsoleMessagesToStdout, + + +-- ** EnableXssAuditor + SettingsEnableXssAuditorPropertyInfo , + constructSettingsEnableXssAuditor , + getSettingsEnableXssAuditor , + setSettingsEnableXssAuditor , + + +-- ** FantasyFontFamily + SettingsFantasyFontFamilyPropertyInfo , + constructSettingsFantasyFontFamily , + getSettingsFantasyFontFamily , + setSettingsFantasyFontFamily , + + +-- ** JavascriptCanAccessClipboard + SettingsJavascriptCanAccessClipboardPropertyInfo, + constructSettingsJavascriptCanAccessClipboard, + getSettingsJavascriptCanAccessClipboard , + setSettingsJavascriptCanAccessClipboard , + + +-- ** JavascriptCanOpenWindowsAutomatically + SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo, + constructSettingsJavascriptCanOpenWindowsAutomatically, + getSettingsJavascriptCanOpenWindowsAutomatically, + setSettingsJavascriptCanOpenWindowsAutomatically, + + +-- ** LoadIconsIgnoringImageLoadSetting + SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo, + constructSettingsLoadIconsIgnoringImageLoadSetting, + getSettingsLoadIconsIgnoringImageLoadSetting, + setSettingsLoadIconsIgnoringImageLoadSetting, + + +-- ** MediaPlaybackAllowsInline + SettingsMediaPlaybackAllowsInlinePropertyInfo, + constructSettingsMediaPlaybackAllowsInline, + getSettingsMediaPlaybackAllowsInline , + setSettingsMediaPlaybackAllowsInline , + + +-- ** MediaPlaybackRequiresUserGesture + SettingsMediaPlaybackRequiresUserGesturePropertyInfo, + constructSettingsMediaPlaybackRequiresUserGesture, + getSettingsMediaPlaybackRequiresUserGesture, + setSettingsMediaPlaybackRequiresUserGesture, + + +-- ** MinimumFontSize + SettingsMinimumFontSizePropertyInfo , + constructSettingsMinimumFontSize , + getSettingsMinimumFontSize , + setSettingsMinimumFontSize , + + +-- ** MonospaceFontFamily + SettingsMonospaceFontFamilyPropertyInfo , + constructSettingsMonospaceFontFamily , + getSettingsMonospaceFontFamily , + setSettingsMonospaceFontFamily , + + +-- ** PictographFontFamily + SettingsPictographFontFamilyPropertyInfo, + constructSettingsPictographFontFamily , + getSettingsPictographFontFamily , + setSettingsPictographFontFamily , + + +-- ** PrintBackgrounds + SettingsPrintBackgroundsPropertyInfo , + constructSettingsPrintBackgrounds , + getSettingsPrintBackgrounds , + setSettingsPrintBackgrounds , + + +-- ** SansSerifFontFamily + SettingsSansSerifFontFamilyPropertyInfo , + constructSettingsSansSerifFontFamily , + getSettingsSansSerifFontFamily , + setSettingsSansSerifFontFamily , + + +-- ** SerifFontFamily + SettingsSerifFontFamilyPropertyInfo , + constructSettingsSerifFontFamily , + getSettingsSerifFontFamily , + setSettingsSerifFontFamily , + + +-- ** UserAgent + SettingsUserAgentPropertyInfo , + constructSettingsUserAgent , + getSettingsUserAgent , + setSettingsUserAgent , + + +-- ** ZoomTextOnly + SettingsZoomTextOnlyPropertyInfo , + constructSettingsZoomTextOnly , + getSettingsZoomTextOnly , + setSettingsZoomTextOnly , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit2.Types +import GI.WebKit2.Callbacks +import qualified GI.GObject as GObject + +newtype Settings = Settings (ForeignPtr Settings) +foreign import ccall "webkit_settings_get_type" + c_webkit_settings_get_type :: IO GType + +type instance ParentTypes Settings = SettingsParentTypes +type SettingsParentTypes = '[GObject.Object] + +instance GObject Settings where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_settings_get_type + + +class GObject o => SettingsK o +instance (GObject o, IsDescendantOf Settings o) => SettingsK o + +toSettings :: SettingsK o => o -> IO Settings +toSettings = unsafeCastTo Settings + +noSettings :: Maybe Settings +noSettings = Nothing + +type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where + ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSettingsMethod "getAllowFileAccessFromFileUrls" o = SettingsGetAllowFileAccessFromFileUrlsMethodInfo + ResolveSettingsMethod "getAllowModalDialogs" o = SettingsGetAllowModalDialogsMethodInfo + ResolveSettingsMethod "getAutoLoadImages" o = SettingsGetAutoLoadImagesMethodInfo + ResolveSettingsMethod "getCursiveFontFamily" o = SettingsGetCursiveFontFamilyMethodInfo + ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSettingsMethod "getDefaultCharset" o = SettingsGetDefaultCharsetMethodInfo + ResolveSettingsMethod "getDefaultFontFamily" o = SettingsGetDefaultFontFamilyMethodInfo + ResolveSettingsMethod "getDefaultFontSize" o = SettingsGetDefaultFontSizeMethodInfo + ResolveSettingsMethod "getDefaultMonospaceFontSize" o = SettingsGetDefaultMonospaceFontSizeMethodInfo + ResolveSettingsMethod "getDrawCompositingIndicators" o = SettingsGetDrawCompositingIndicatorsMethodInfo + ResolveSettingsMethod "getEnableAccelerated2dCanvas" o = SettingsGetEnableAccelerated2dCanvasMethodInfo + ResolveSettingsMethod "getEnableCaretBrowsing" o = SettingsGetEnableCaretBrowsingMethodInfo + ResolveSettingsMethod "getEnableDeveloperExtras" o = SettingsGetEnableDeveloperExtrasMethodInfo + ResolveSettingsMethod "getEnableDnsPrefetching" o = SettingsGetEnableDnsPrefetchingMethodInfo + ResolveSettingsMethod "getEnableFrameFlattening" o = SettingsGetEnableFrameFlatteningMethodInfo + ResolveSettingsMethod "getEnableFullscreen" o = SettingsGetEnableFullscreenMethodInfo + ResolveSettingsMethod "getEnableHtml5Database" o = SettingsGetEnableHtml5DatabaseMethodInfo + ResolveSettingsMethod "getEnableHtml5LocalStorage" o = SettingsGetEnableHtml5LocalStorageMethodInfo + ResolveSettingsMethod "getEnableHyperlinkAuditing" o = SettingsGetEnableHyperlinkAuditingMethodInfo + ResolveSettingsMethod "getEnableJava" o = SettingsGetEnableJavaMethodInfo + ResolveSettingsMethod "getEnableJavascript" o = SettingsGetEnableJavascriptMethodInfo + ResolveSettingsMethod "getEnableMediaStream" o = SettingsGetEnableMediaStreamMethodInfo + ResolveSettingsMethod "getEnableMediasource" o = SettingsGetEnableMediasourceMethodInfo + ResolveSettingsMethod "getEnableOfflineWebApplicationCache" o = SettingsGetEnableOfflineWebApplicationCacheMethodInfo + ResolveSettingsMethod "getEnablePageCache" o = SettingsGetEnablePageCacheMethodInfo + ResolveSettingsMethod "getEnablePlugins" o = SettingsGetEnablePluginsMethodInfo + ResolveSettingsMethod "getEnablePrivateBrowsing" o = SettingsGetEnablePrivateBrowsingMethodInfo + ResolveSettingsMethod "getEnableResizableTextAreas" o = SettingsGetEnableResizableTextAreasMethodInfo + ResolveSettingsMethod "getEnableSiteSpecificQuirks" o = SettingsGetEnableSiteSpecificQuirksMethodInfo + ResolveSettingsMethod "getEnableSmoothScrolling" o = SettingsGetEnableSmoothScrollingMethodInfo + ResolveSettingsMethod "getEnableSpatialNavigation" o = SettingsGetEnableSpatialNavigationMethodInfo + ResolveSettingsMethod "getEnableTabsToLinks" o = SettingsGetEnableTabsToLinksMethodInfo + ResolveSettingsMethod "getEnableWebaudio" o = SettingsGetEnableWebaudioMethodInfo + ResolveSettingsMethod "getEnableWebgl" o = SettingsGetEnableWebglMethodInfo + ResolveSettingsMethod "getEnableWriteConsoleMessagesToStdout" o = SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo + ResolveSettingsMethod "getEnableXssAuditor" o = SettingsGetEnableXssAuditorMethodInfo + ResolveSettingsMethod "getFantasyFontFamily" o = SettingsGetFantasyFontFamilyMethodInfo + ResolveSettingsMethod "getJavascriptCanAccessClipboard" o = SettingsGetJavascriptCanAccessClipboardMethodInfo + ResolveSettingsMethod "getJavascriptCanOpenWindowsAutomatically" o = SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo + ResolveSettingsMethod "getLoadIconsIgnoringImageLoadSetting" o = SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo + ResolveSettingsMethod "getMediaPlaybackAllowsInline" o = SettingsGetMediaPlaybackAllowsInlineMethodInfo + ResolveSettingsMethod "getMediaPlaybackRequiresUserGesture" o = SettingsGetMediaPlaybackRequiresUserGestureMethodInfo + ResolveSettingsMethod "getMinimumFontSize" o = SettingsGetMinimumFontSizeMethodInfo + ResolveSettingsMethod "getMonospaceFontFamily" o = SettingsGetMonospaceFontFamilyMethodInfo + ResolveSettingsMethod "getPictographFontFamily" o = SettingsGetPictographFontFamilyMethodInfo + ResolveSettingsMethod "getPrintBackgrounds" o = SettingsGetPrintBackgroundsMethodInfo + ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSettingsMethod "getSansSerifFontFamily" o = SettingsGetSansSerifFontFamilyMethodInfo + ResolveSettingsMethod "getSerifFontFamily" o = SettingsGetSerifFontFamilyMethodInfo + ResolveSettingsMethod "getUserAgent" o = SettingsGetUserAgentMethodInfo + ResolveSettingsMethod "getZoomTextOnly" o = SettingsGetZoomTextOnlyMethodInfo + ResolveSettingsMethod "setAllowFileAccessFromFileUrls" o = SettingsSetAllowFileAccessFromFileUrlsMethodInfo + ResolveSettingsMethod "setAllowModalDialogs" o = SettingsSetAllowModalDialogsMethodInfo + ResolveSettingsMethod "setAutoLoadImages" o = SettingsSetAutoLoadImagesMethodInfo + ResolveSettingsMethod "setCursiveFontFamily" o = SettingsSetCursiveFontFamilyMethodInfo + ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSettingsMethod "setDefaultCharset" o = SettingsSetDefaultCharsetMethodInfo + ResolveSettingsMethod "setDefaultFontFamily" o = SettingsSetDefaultFontFamilyMethodInfo + ResolveSettingsMethod "setDefaultFontSize" o = SettingsSetDefaultFontSizeMethodInfo + ResolveSettingsMethod "setDefaultMonospaceFontSize" o = SettingsSetDefaultMonospaceFontSizeMethodInfo + ResolveSettingsMethod "setDrawCompositingIndicators" o = SettingsSetDrawCompositingIndicatorsMethodInfo + ResolveSettingsMethod "setEnableAccelerated2dCanvas" o = SettingsSetEnableAccelerated2dCanvasMethodInfo + ResolveSettingsMethod "setEnableCaretBrowsing" o = SettingsSetEnableCaretBrowsingMethodInfo + ResolveSettingsMethod "setEnableDeveloperExtras" o = SettingsSetEnableDeveloperExtrasMethodInfo + ResolveSettingsMethod "setEnableDnsPrefetching" o = SettingsSetEnableDnsPrefetchingMethodInfo + ResolveSettingsMethod "setEnableFrameFlattening" o = SettingsSetEnableFrameFlatteningMethodInfo + ResolveSettingsMethod "setEnableFullscreen" o = SettingsSetEnableFullscreenMethodInfo + ResolveSettingsMethod "setEnableHtml5Database" o = SettingsSetEnableHtml5DatabaseMethodInfo + ResolveSettingsMethod "setEnableHtml5LocalStorage" o = SettingsSetEnableHtml5LocalStorageMethodInfo + ResolveSettingsMethod "setEnableHyperlinkAuditing" o = SettingsSetEnableHyperlinkAuditingMethodInfo + ResolveSettingsMethod "setEnableJava" o = SettingsSetEnableJavaMethodInfo + ResolveSettingsMethod "setEnableJavascript" o = SettingsSetEnableJavascriptMethodInfo + ResolveSettingsMethod "setEnableMediaStream" o = SettingsSetEnableMediaStreamMethodInfo + ResolveSettingsMethod "setEnableMediasource" o = SettingsSetEnableMediasourceMethodInfo + ResolveSettingsMethod "setEnableOfflineWebApplicationCache" o = SettingsSetEnableOfflineWebApplicationCacheMethodInfo + ResolveSettingsMethod "setEnablePageCache" o = SettingsSetEnablePageCacheMethodInfo + ResolveSettingsMethod "setEnablePlugins" o = SettingsSetEnablePluginsMethodInfo + ResolveSettingsMethod "setEnablePrivateBrowsing" o = SettingsSetEnablePrivateBrowsingMethodInfo + ResolveSettingsMethod "setEnableResizableTextAreas" o = SettingsSetEnableResizableTextAreasMethodInfo + ResolveSettingsMethod "setEnableSiteSpecificQuirks" o = SettingsSetEnableSiteSpecificQuirksMethodInfo + ResolveSettingsMethod "setEnableSmoothScrolling" o = SettingsSetEnableSmoothScrollingMethodInfo + ResolveSettingsMethod "setEnableSpatialNavigation" o = SettingsSetEnableSpatialNavigationMethodInfo + ResolveSettingsMethod "setEnableTabsToLinks" o = SettingsSetEnableTabsToLinksMethodInfo + ResolveSettingsMethod "setEnableWebaudio" o = SettingsSetEnableWebaudioMethodInfo + ResolveSettingsMethod "setEnableWebgl" o = SettingsSetEnableWebglMethodInfo + ResolveSettingsMethod "setEnableWriteConsoleMessagesToStdout" o = SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo + ResolveSettingsMethod "setEnableXssAuditor" o = SettingsSetEnableXssAuditorMethodInfo + ResolveSettingsMethod "setFantasyFontFamily" o = SettingsSetFantasyFontFamilyMethodInfo + ResolveSettingsMethod "setJavascriptCanAccessClipboard" o = SettingsSetJavascriptCanAccessClipboardMethodInfo + ResolveSettingsMethod "setJavascriptCanOpenWindowsAutomatically" o = SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo + ResolveSettingsMethod "setLoadIconsIgnoringImageLoadSetting" o = SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo + ResolveSettingsMethod "setMediaPlaybackAllowsInline" o = SettingsSetMediaPlaybackAllowsInlineMethodInfo + ResolveSettingsMethod "setMediaPlaybackRequiresUserGesture" o = SettingsSetMediaPlaybackRequiresUserGestureMethodInfo + ResolveSettingsMethod "setMinimumFontSize" o = SettingsSetMinimumFontSizeMethodInfo + ResolveSettingsMethod "setMonospaceFontFamily" o = SettingsSetMonospaceFontFamilyMethodInfo + ResolveSettingsMethod "setPictographFontFamily" o = SettingsSetPictographFontFamilyMethodInfo + ResolveSettingsMethod "setPrintBackgrounds" o = SettingsSetPrintBackgroundsMethodInfo + ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSettingsMethod "setSansSerifFontFamily" o = SettingsSetSansSerifFontFamilyMethodInfo + ResolveSettingsMethod "setSerifFontFamily" o = SettingsSetSerifFontFamilyMethodInfo + ResolveSettingsMethod "setUserAgent" o = SettingsSetUserAgentMethodInfo + ResolveSettingsMethod "setUserAgentWithApplicationDetails" o = SettingsSetUserAgentWithApplicationDetailsMethodInfo + ResolveSettingsMethod "setZoomTextOnly" o = SettingsSetZoomTextOnlyMethodInfo + ResolveSettingsMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- VVV Prop "allow-file-access-from-file-urls" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsAllowFileAccessFromFileUrls obj = liftIO $ getObjectPropertyBool obj "allow-file-access-from-file-urls" + +setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ setObjectPropertyBool obj "allow-file-access-from-file-urls" val + +constructSettingsAllowFileAccessFromFileUrls :: Bool -> IO ([Char], GValue) +constructSettingsAllowFileAccessFromFileUrls val = constructObjectPropertyBool "allow-file-access-from-file-urls" val + +data SettingsAllowFileAccessFromFileUrlsPropertyInfo +instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where + type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = SettingsK + type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool + type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls" + attrGet _ = getSettingsAllowFileAccessFromFileUrls + attrSet _ = setSettingsAllowFileAccessFromFileUrls + attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls + +-- VVV Prop "allow-modal-dialogs" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsAllowModalDialogs obj = liftIO $ getObjectPropertyBool obj "allow-modal-dialogs" + +setSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsAllowModalDialogs obj val = liftIO $ setObjectPropertyBool obj "allow-modal-dialogs" val + +constructSettingsAllowModalDialogs :: Bool -> IO ([Char], GValue) +constructSettingsAllowModalDialogs val = constructObjectPropertyBool "allow-modal-dialogs" val + +data SettingsAllowModalDialogsPropertyInfo +instance AttrInfo SettingsAllowModalDialogsPropertyInfo where + type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = SettingsK + type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool + type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs" + attrGet _ = getSettingsAllowModalDialogs + attrSet _ = setSettingsAllowModalDialogs + attrConstruct _ = constructSettingsAllowModalDialogs + +-- VVV Prop "auto-load-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images" + +setSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val + +constructSettingsAutoLoadImages :: Bool -> IO ([Char], GValue) +constructSettingsAutoLoadImages val = constructObjectPropertyBool "auto-load-images" val + +data SettingsAutoLoadImagesPropertyInfo +instance AttrInfo SettingsAutoLoadImagesPropertyInfo where + type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = SettingsK + type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool + type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images" + attrGet _ = getSettingsAutoLoadImages + attrSet _ = setSettingsAutoLoadImages + attrConstruct _ = constructSettingsAutoLoadImages + +-- VVV Prop "cursive-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsCursiveFontFamily obj = liftIO $ getObjectPropertyString obj "cursive-font-family" + +setSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" val + +constructSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue) +constructSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" val + +data SettingsCursiveFontFamilyPropertyInfo +instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where + type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = SettingsK + type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text + type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family" + attrGet _ = getSettingsCursiveFontFamily + attrSet _ = setSettingsCursiveFontFamily + attrConstruct _ = constructSettingsCursiveFontFamily + +-- VVV Prop "default-charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset" + +setSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsDefaultCharset obj val = liftIO $ setObjectPropertyString obj "default-charset" val + +constructSettingsDefaultCharset :: T.Text -> IO ([Char], GValue) +constructSettingsDefaultCharset val = constructObjectPropertyString "default-charset" val + +data SettingsDefaultCharsetPropertyInfo +instance AttrInfo SettingsDefaultCharsetPropertyInfo where + type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = SettingsK + type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text + type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset" + attrGet _ = getSettingsDefaultCharset + attrSet _ = setSettingsDefaultCharset + attrConstruct _ = constructSettingsDefaultCharset + +-- VVV Prop "default-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsDefaultFontFamily obj = liftIO $ getObjectPropertyString obj "default-font-family" + +setSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" val + +constructSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue) +constructSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" val + +data SettingsDefaultFontFamilyPropertyInfo +instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where + type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = SettingsK + type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text + type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family" + attrGet _ = getSettingsDefaultFontFamily + attrSet _ = setSettingsDefaultFontFamily + attrConstruct _ = constructSettingsDefaultFontFamily + +-- VVV Prop "default-font-size" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsDefaultFontSize obj = liftIO $ getObjectPropertyCUInt obj "default-font-size" + +setSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyCUInt obj "default-font-size" val + +constructSettingsDefaultFontSize :: Word32 -> IO ([Char], GValue) +constructSettingsDefaultFontSize val = constructObjectPropertyCUInt "default-font-size" val + +data SettingsDefaultFontSizePropertyInfo +instance AttrInfo SettingsDefaultFontSizePropertyInfo where + type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = SettingsK + type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32 + type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size" + attrGet _ = getSettingsDefaultFontSize + attrSet _ = setSettingsDefaultFontSize + attrConstruct _ = constructSettingsDefaultFontSize + +-- VVV Prop "default-monospace-font-size" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyCUInt obj "default-monospace-font-size" + +setSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyCUInt obj "default-monospace-font-size" val + +constructSettingsDefaultMonospaceFontSize :: Word32 -> IO ([Char], GValue) +constructSettingsDefaultMonospaceFontSize val = constructObjectPropertyCUInt "default-monospace-font-size" val + +data SettingsDefaultMonospaceFontSizePropertyInfo +instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where + type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = SettingsK + type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32 + type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size" + attrGet _ = getSettingsDefaultMonospaceFontSize + attrSet _ = setSettingsDefaultMonospaceFontSize + attrConstruct _ = constructSettingsDefaultMonospaceFontSize + +-- VVV Prop "draw-compositing-indicators" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsDrawCompositingIndicators obj = liftIO $ getObjectPropertyBool obj "draw-compositing-indicators" + +setSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsDrawCompositingIndicators obj val = liftIO $ setObjectPropertyBool obj "draw-compositing-indicators" val + +constructSettingsDrawCompositingIndicators :: Bool -> IO ([Char], GValue) +constructSettingsDrawCompositingIndicators val = constructObjectPropertyBool "draw-compositing-indicators" val + +data SettingsDrawCompositingIndicatorsPropertyInfo +instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where + type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = SettingsK + type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool + type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators" + attrGet _ = getSettingsDrawCompositingIndicators + attrSet _ = setSettingsDrawCompositingIndicators + attrConstruct _ = constructSettingsDrawCompositingIndicators + +-- VVV Prop "enable-accelerated-2d-canvas" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableAccelerated2dCanvas obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-2d-canvas" + +setSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableAccelerated2dCanvas obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-2d-canvas" val + +constructSettingsEnableAccelerated2dCanvas :: Bool -> IO ([Char], GValue) +constructSettingsEnableAccelerated2dCanvas val = constructObjectPropertyBool "enable-accelerated-2d-canvas" val + +data SettingsEnableAccelerated2dCanvasPropertyInfo +instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where + type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = SettingsK + type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool + type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas" + attrGet _ = getSettingsEnableAccelerated2dCanvas + attrSet _ = setSettingsEnableAccelerated2dCanvas + attrConstruct _ = constructSettingsEnableAccelerated2dCanvas + +-- VVV Prop "enable-caret-browsing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing" + +setSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val + +constructSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue) +constructSettingsEnableCaretBrowsing val = constructObjectPropertyBool "enable-caret-browsing" val + +data SettingsEnableCaretBrowsingPropertyInfo +instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where + type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = SettingsK + type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool + type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing" + attrGet _ = getSettingsEnableCaretBrowsing + attrSet _ = setSettingsEnableCaretBrowsing + attrConstruct _ = constructSettingsEnableCaretBrowsing + +-- VVV Prop "enable-developer-extras" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras" + +setSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val + +constructSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue) +constructSettingsEnableDeveloperExtras val = constructObjectPropertyBool "enable-developer-extras" val + +data SettingsEnableDeveloperExtrasPropertyInfo +instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where + type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = SettingsK + type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool + type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras" + attrGet _ = getSettingsEnableDeveloperExtras + attrSet _ = setSettingsEnableDeveloperExtras + attrConstruct _ = constructSettingsEnableDeveloperExtras + +-- VVV Prop "enable-dns-prefetching" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching" + +setSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val + +constructSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue) +constructSettingsEnableDnsPrefetching val = constructObjectPropertyBool "enable-dns-prefetching" val + +data SettingsEnableDnsPrefetchingPropertyInfo +instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where + type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = SettingsK + type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool + type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching" + attrGet _ = getSettingsEnableDnsPrefetching + attrSet _ = setSettingsEnableDnsPrefetching + attrConstruct _ = constructSettingsEnableDnsPrefetching + +-- VVV Prop "enable-frame-flattening" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening" + +setSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val + +constructSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue) +constructSettingsEnableFrameFlattening val = constructObjectPropertyBool "enable-frame-flattening" val + +data SettingsEnableFrameFlatteningPropertyInfo +instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where + type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = SettingsK + type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool + type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening" + attrGet _ = getSettingsEnableFrameFlattening + attrSet _ = setSettingsEnableFrameFlattening + attrConstruct _ = constructSettingsEnableFrameFlattening + +-- VVV Prop "enable-fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen" + +setSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val + +constructSettingsEnableFullscreen :: Bool -> IO ([Char], GValue) +constructSettingsEnableFullscreen val = constructObjectPropertyBool "enable-fullscreen" val + +data SettingsEnableFullscreenPropertyInfo +instance AttrInfo SettingsEnableFullscreenPropertyInfo where + type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = SettingsK + type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool + type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen" + attrGet _ = getSettingsEnableFullscreen + attrSet _ = setSettingsEnableFullscreen + attrConstruct _ = constructSettingsEnableFullscreen + +-- VVV Prop "enable-html5-database" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database" + +setSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val + +constructSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue) +constructSettingsEnableHtml5Database val = constructObjectPropertyBool "enable-html5-database" val + +data SettingsEnableHtml5DatabasePropertyInfo +instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where + type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = SettingsK + type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool + type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database" + attrGet _ = getSettingsEnableHtml5Database + attrSet _ = setSettingsEnableHtml5Database + attrConstruct _ = constructSettingsEnableHtml5Database + +-- VVV Prop "enable-html5-local-storage" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage" + +setSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val + +constructSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue) +constructSettingsEnableHtml5LocalStorage val = constructObjectPropertyBool "enable-html5-local-storage" val + +data SettingsEnableHtml5LocalStoragePropertyInfo +instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where + type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = SettingsK + type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool + type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage" + attrGet _ = getSettingsEnableHtml5LocalStorage + attrSet _ = setSettingsEnableHtml5LocalStorage + attrConstruct _ = constructSettingsEnableHtml5LocalStorage + +-- VVV Prop "enable-hyperlink-auditing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing" + +setSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val + +constructSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue) +constructSettingsEnableHyperlinkAuditing val = constructObjectPropertyBool "enable-hyperlink-auditing" val + +data SettingsEnableHyperlinkAuditingPropertyInfo +instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where + type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = SettingsK + type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool + type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing" + attrGet _ = getSettingsEnableHyperlinkAuditing + attrSet _ = setSettingsEnableHyperlinkAuditing + attrConstruct _ = constructSettingsEnableHyperlinkAuditing + +-- VVV Prop "enable-java" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableJava obj = liftIO $ getObjectPropertyBool obj "enable-java" + +setSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableJava obj val = liftIO $ setObjectPropertyBool obj "enable-java" val + +constructSettingsEnableJava :: Bool -> IO ([Char], GValue) +constructSettingsEnableJava val = constructObjectPropertyBool "enable-java" val + +data SettingsEnableJavaPropertyInfo +instance AttrInfo SettingsEnableJavaPropertyInfo where + type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = SettingsK + type AttrGetType SettingsEnableJavaPropertyInfo = Bool + type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java" + attrGet _ = getSettingsEnableJava + attrSet _ = setSettingsEnableJava + attrConstruct _ = constructSettingsEnableJava + +-- VVV Prop "enable-javascript" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableJavascript obj = liftIO $ getObjectPropertyBool obj "enable-javascript" + +setSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableJavascript obj val = liftIO $ setObjectPropertyBool obj "enable-javascript" val + +constructSettingsEnableJavascript :: Bool -> IO ([Char], GValue) +constructSettingsEnableJavascript val = constructObjectPropertyBool "enable-javascript" val + +data SettingsEnableJavascriptPropertyInfo +instance AttrInfo SettingsEnableJavascriptPropertyInfo where + type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = SettingsK + type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool + type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript" + attrGet _ = getSettingsEnableJavascript + attrSet _ = setSettingsEnableJavascript + attrConstruct _ = constructSettingsEnableJavascript + +-- VVV Prop "enable-media-stream" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream" + +setSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val + +constructSettingsEnableMediaStream :: Bool -> IO ([Char], GValue) +constructSettingsEnableMediaStream val = constructObjectPropertyBool "enable-media-stream" val + +data SettingsEnableMediaStreamPropertyInfo +instance AttrInfo SettingsEnableMediaStreamPropertyInfo where + type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = SettingsK + type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool + type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream" + attrGet _ = getSettingsEnableMediaStream + attrSet _ = setSettingsEnableMediaStream + attrConstruct _ = constructSettingsEnableMediaStream + +-- VVV Prop "enable-mediasource" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource" + +setSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val + +constructSettingsEnableMediasource :: Bool -> IO ([Char], GValue) +constructSettingsEnableMediasource val = constructObjectPropertyBool "enable-mediasource" val + +data SettingsEnableMediasourcePropertyInfo +instance AttrInfo SettingsEnableMediasourcePropertyInfo where + type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = SettingsK + type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool + type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource" + attrGet _ = getSettingsEnableMediasource + attrSet _ = setSettingsEnableMediasource + attrConstruct _ = constructSettingsEnableMediasource + +-- VVV Prop "enable-offline-web-application-cache" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache" + +setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val + +constructSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue) +constructSettingsEnableOfflineWebApplicationCache val = constructObjectPropertyBool "enable-offline-web-application-cache" val + +data SettingsEnableOfflineWebApplicationCachePropertyInfo +instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where + type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = SettingsK + type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool + type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache" + attrGet _ = getSettingsEnableOfflineWebApplicationCache + attrSet _ = setSettingsEnableOfflineWebApplicationCache + attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache + +-- VVV Prop "enable-page-cache" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache" + +setSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val + +constructSettingsEnablePageCache :: Bool -> IO ([Char], GValue) +constructSettingsEnablePageCache val = constructObjectPropertyBool "enable-page-cache" val + +data SettingsEnablePageCachePropertyInfo +instance AttrInfo SettingsEnablePageCachePropertyInfo where + type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = SettingsK + type AttrGetType SettingsEnablePageCachePropertyInfo = Bool + type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache" + attrGet _ = getSettingsEnablePageCache + attrSet _ = setSettingsEnablePageCache + attrConstruct _ = constructSettingsEnablePageCache + +-- VVV Prop "enable-plugins" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins" + +setSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val + +constructSettingsEnablePlugins :: Bool -> IO ([Char], GValue) +constructSettingsEnablePlugins val = constructObjectPropertyBool "enable-plugins" val + +data SettingsEnablePluginsPropertyInfo +instance AttrInfo SettingsEnablePluginsPropertyInfo where + type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = SettingsK + type AttrGetType SettingsEnablePluginsPropertyInfo = Bool + type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins" + attrGet _ = getSettingsEnablePlugins + attrSet _ = setSettingsEnablePlugins + attrConstruct _ = constructSettingsEnablePlugins + +-- VVV Prop "enable-private-browsing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing" + +setSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val + +constructSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue) +constructSettingsEnablePrivateBrowsing val = constructObjectPropertyBool "enable-private-browsing" val + +data SettingsEnablePrivateBrowsingPropertyInfo +instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where + type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = SettingsK + type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool + type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing" + attrGet _ = getSettingsEnablePrivateBrowsing + attrSet _ = setSettingsEnablePrivateBrowsing + attrConstruct _ = constructSettingsEnablePrivateBrowsing + +-- VVV Prop "enable-resizable-text-areas" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "enable-resizable-text-areas" + +setSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "enable-resizable-text-areas" val + +constructSettingsEnableResizableTextAreas :: Bool -> IO ([Char], GValue) +constructSettingsEnableResizableTextAreas val = constructObjectPropertyBool "enable-resizable-text-areas" val + +data SettingsEnableResizableTextAreasPropertyInfo +instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where + type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = SettingsK + type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool + type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas" + attrGet _ = getSettingsEnableResizableTextAreas + attrSet _ = setSettingsEnableResizableTextAreas + attrConstruct _ = constructSettingsEnableResizableTextAreas + +-- VVV Prop "enable-site-specific-quirks" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks" + +setSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val + +constructSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue) +constructSettingsEnableSiteSpecificQuirks val = constructObjectPropertyBool "enable-site-specific-quirks" val + +data SettingsEnableSiteSpecificQuirksPropertyInfo +instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where + type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = SettingsK + type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool + type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks" + attrGet _ = getSettingsEnableSiteSpecificQuirks + attrSet _ = setSettingsEnableSiteSpecificQuirks + attrConstruct _ = constructSettingsEnableSiteSpecificQuirks + +-- VVV Prop "enable-smooth-scrolling" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling" + +setSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val + +constructSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue) +constructSettingsEnableSmoothScrolling val = constructObjectPropertyBool "enable-smooth-scrolling" val + +data SettingsEnableSmoothScrollingPropertyInfo +instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where + type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = SettingsK + type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool + type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling" + attrGet _ = getSettingsEnableSmoothScrolling + attrSet _ = setSettingsEnableSmoothScrolling + attrConstruct _ = constructSettingsEnableSmoothScrolling + +-- VVV Prop "enable-spatial-navigation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation" + +setSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val + +constructSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue) +constructSettingsEnableSpatialNavigation val = constructObjectPropertyBool "enable-spatial-navigation" val + +data SettingsEnableSpatialNavigationPropertyInfo +instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where + type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = SettingsK + type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool + type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation" + attrGet _ = getSettingsEnableSpatialNavigation + attrSet _ = setSettingsEnableSpatialNavigation + attrConstruct _ = constructSettingsEnableSpatialNavigation + +-- VVV Prop "enable-tabs-to-links" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableTabsToLinks obj = liftIO $ getObjectPropertyBool obj "enable-tabs-to-links" + +setSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableTabsToLinks obj val = liftIO $ setObjectPropertyBool obj "enable-tabs-to-links" val + +constructSettingsEnableTabsToLinks :: Bool -> IO ([Char], GValue) +constructSettingsEnableTabsToLinks val = constructObjectPropertyBool "enable-tabs-to-links" val + +data SettingsEnableTabsToLinksPropertyInfo +instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where + type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = SettingsK + type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool + type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links" + attrGet _ = getSettingsEnableTabsToLinks + attrSet _ = setSettingsEnableTabsToLinks + attrConstruct _ = constructSettingsEnableTabsToLinks + +-- VVV Prop "enable-webaudio" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio" + +setSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val + +constructSettingsEnableWebaudio :: Bool -> IO ([Char], GValue) +constructSettingsEnableWebaudio val = constructObjectPropertyBool "enable-webaudio" val + +data SettingsEnableWebaudioPropertyInfo +instance AttrInfo SettingsEnableWebaudioPropertyInfo where + type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = SettingsK + type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool + type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio" + attrGet _ = getSettingsEnableWebaudio + attrSet _ = setSettingsEnableWebaudio + attrConstruct _ = constructSettingsEnableWebaudio + +-- VVV Prop "enable-webgl" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl" + +setSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val + +constructSettingsEnableWebgl :: Bool -> IO ([Char], GValue) +constructSettingsEnableWebgl val = constructObjectPropertyBool "enable-webgl" val + +data SettingsEnableWebglPropertyInfo +instance AttrInfo SettingsEnableWebglPropertyInfo where + type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = SettingsK + type AttrGetType SettingsEnableWebglPropertyInfo = Bool + type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl" + attrGet _ = getSettingsEnableWebgl + attrSet _ = setSettingsEnableWebgl + attrConstruct _ = constructSettingsEnableWebgl + +-- VVV Prop "enable-write-console-messages-to-stdout" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ getObjectPropertyBool obj "enable-write-console-messages-to-stdout" + +setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val + +constructSettingsEnableWriteConsoleMessagesToStdout :: Bool -> IO ([Char], GValue) +constructSettingsEnableWriteConsoleMessagesToStdout val = constructObjectPropertyBool "enable-write-console-messages-to-stdout" val + +data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo +instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where + type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = SettingsK + type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool + type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout" + attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout + attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout + attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout + +-- VVV Prop "enable-xss-auditor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor" + +setSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val + +constructSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue) +constructSettingsEnableXssAuditor val = constructObjectPropertyBool "enable-xss-auditor" val + +data SettingsEnableXssAuditorPropertyInfo +instance AttrInfo SettingsEnableXssAuditorPropertyInfo where + type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = SettingsK + type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool + type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor" + attrGet _ = getSettingsEnableXssAuditor + attrSet _ = setSettingsEnableXssAuditor + attrConstruct _ = constructSettingsEnableXssAuditor + +-- VVV Prop "fantasy-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsFantasyFontFamily obj = liftIO $ getObjectPropertyString obj "fantasy-font-family" + +setSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" val + +constructSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue) +constructSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" val + +data SettingsFantasyFontFamilyPropertyInfo +instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where + type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = SettingsK + type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text + type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family" + attrGet _ = getSettingsFantasyFontFamily + attrSet _ = setSettingsFantasyFontFamily + attrConstruct _ = constructSettingsFantasyFontFamily + +-- VVV Prop "javascript-can-access-clipboard" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard" + +setSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val + +constructSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue) +constructSettingsJavascriptCanAccessClipboard val = constructObjectPropertyBool "javascript-can-access-clipboard" val + +data SettingsJavascriptCanAccessClipboardPropertyInfo +instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where + type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = SettingsK + type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool + type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard" + attrGet _ = getSettingsJavascriptCanAccessClipboard + attrSet _ = setSettingsJavascriptCanAccessClipboard + attrConstruct _ = constructSettingsJavascriptCanAccessClipboard + +-- VVV Prop "javascript-can-open-windows-automatically" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically" + +setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val + +constructSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue) +constructSettingsJavascriptCanOpenWindowsAutomatically val = constructObjectPropertyBool "javascript-can-open-windows-automatically" val + +data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo +instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where + type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = SettingsK + type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool + type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically" + attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically + attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically + attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically + +-- VVV Prop "load-icons-ignoring-image-load-setting" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ getObjectPropertyBool obj "load-icons-ignoring-image-load-setting" + +setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val + +constructSettingsLoadIconsIgnoringImageLoadSetting :: Bool -> IO ([Char], GValue) +constructSettingsLoadIconsIgnoringImageLoadSetting val = constructObjectPropertyBool "load-icons-ignoring-image-load-setting" val + +data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo +instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where + type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = SettingsK + type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool + type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting" + attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting + attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting + attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting + +-- VVV Prop "media-playback-allows-inline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline" + +setSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val + +constructSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue) +constructSettingsMediaPlaybackAllowsInline val = constructObjectPropertyBool "media-playback-allows-inline" val + +data SettingsMediaPlaybackAllowsInlinePropertyInfo +instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where + type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = SettingsK + type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool + type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline" + attrGet _ = getSettingsMediaPlaybackAllowsInline + attrSet _ = setSettingsMediaPlaybackAllowsInline + attrConstruct _ = constructSettingsMediaPlaybackAllowsInline + +-- VVV Prop "media-playback-requires-user-gesture" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture" + +setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val + +constructSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue) +constructSettingsMediaPlaybackRequiresUserGesture val = constructObjectPropertyBool "media-playback-requires-user-gesture" val + +data SettingsMediaPlaybackRequiresUserGesturePropertyInfo +instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where + type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = SettingsK + type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool + type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture" + attrGet _ = getSettingsMediaPlaybackRequiresUserGesture + attrSet _ = setSettingsMediaPlaybackRequiresUserGesture + attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture + +-- VVV Prop "minimum-font-size" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsMinimumFontSize obj = liftIO $ getObjectPropertyCUInt obj "minimum-font-size" + +setSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyCUInt obj "minimum-font-size" val + +constructSettingsMinimumFontSize :: Word32 -> IO ([Char], GValue) +constructSettingsMinimumFontSize val = constructObjectPropertyCUInt "minimum-font-size" val + +data SettingsMinimumFontSizePropertyInfo +instance AttrInfo SettingsMinimumFontSizePropertyInfo where + type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = SettingsK + type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32 + type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size" + attrGet _ = getSettingsMinimumFontSize + attrSet _ = setSettingsMinimumFontSize + attrConstruct _ = constructSettingsMinimumFontSize + +-- VVV Prop "monospace-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsMonospaceFontFamily obj = liftIO $ getObjectPropertyString obj "monospace-font-family" + +setSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" val + +constructSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue) +constructSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" val + +data SettingsMonospaceFontFamilyPropertyInfo +instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where + type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = SettingsK + type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text + type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family" + attrGet _ = getSettingsMonospaceFontFamily + attrSet _ = setSettingsMonospaceFontFamily + attrConstruct _ = constructSettingsMonospaceFontFamily + +-- VVV Prop "pictograph-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsPictographFontFamily obj = liftIO $ getObjectPropertyString obj "pictograph-font-family" + +setSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsPictographFontFamily obj val = liftIO $ setObjectPropertyString obj "pictograph-font-family" val + +constructSettingsPictographFontFamily :: T.Text -> IO ([Char], GValue) +constructSettingsPictographFontFamily val = constructObjectPropertyString "pictograph-font-family" val + +data SettingsPictographFontFamilyPropertyInfo +instance AttrInfo SettingsPictographFontFamilyPropertyInfo where + type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = SettingsK + type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text + type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family" + attrGet _ = getSettingsPictographFontFamily + attrSet _ = setSettingsPictographFontFamily + attrConstruct _ = constructSettingsPictographFontFamily + +-- VVV Prop "print-backgrounds" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds" + +setSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val + +constructSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue) +constructSettingsPrintBackgrounds val = constructObjectPropertyBool "print-backgrounds" val + +data SettingsPrintBackgroundsPropertyInfo +instance AttrInfo SettingsPrintBackgroundsPropertyInfo where + type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = SettingsK + type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool + type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds" + attrGet _ = getSettingsPrintBackgrounds + attrSet _ = setSettingsPrintBackgrounds + attrConstruct _ = constructSettingsPrintBackgrounds + +-- VVV Prop "sans-serif-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsSansSerifFontFamily obj = liftIO $ getObjectPropertyString obj "sans-serif-font-family" + +setSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" val + +constructSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue) +constructSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" val + +data SettingsSansSerifFontFamilyPropertyInfo +instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where + type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = SettingsK + type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text + type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family" + attrGet _ = getSettingsSansSerifFontFamily + attrSet _ = setSettingsSansSerifFontFamily + attrConstruct _ = constructSettingsSansSerifFontFamily + +-- VVV Prop "serif-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsSerifFontFamily obj = liftIO $ getObjectPropertyString obj "serif-font-family" + +setSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" val + +constructSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue) +constructSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" val + +data SettingsSerifFontFamilyPropertyInfo +instance AttrInfo SettingsSerifFontFamilyPropertyInfo where + type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = SettingsK + type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text + type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family" + attrGet _ = getSettingsSerifFontFamily + attrSet _ = setSettingsSerifFontFamily + attrConstruct _ = constructSettingsSerifFontFamily + +-- VVV Prop "user-agent" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> m T.Text +getSettingsUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" + +setSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val + +constructSettingsUserAgent :: T.Text -> IO ([Char], GValue) +constructSettingsUserAgent val = constructObjectPropertyString "user-agent" val + +data SettingsUserAgentPropertyInfo +instance AttrInfo SettingsUserAgentPropertyInfo where + type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = SettingsK + type AttrGetType SettingsUserAgentPropertyInfo = T.Text + type AttrLabel SettingsUserAgentPropertyInfo = "user-agent" + attrGet _ = getSettingsUserAgent + attrSet _ = setSettingsUserAgent + attrConstruct _ = constructSettingsUserAgent + +-- VVV Prop "zoom-text-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsZoomTextOnly obj = liftIO $ getObjectPropertyBool obj "zoom-text-only" + +setSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsZoomTextOnly obj val = liftIO $ setObjectPropertyBool obj "zoom-text-only" val + +constructSettingsZoomTextOnly :: Bool -> IO ([Char], GValue) +constructSettingsZoomTextOnly val = constructObjectPropertyBool "zoom-text-only" val + +data SettingsZoomTextOnlyPropertyInfo +instance AttrInfo SettingsZoomTextOnlyPropertyInfo where + type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = SettingsK + type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool + type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only" + attrGet _ = getSettingsZoomTextOnly + attrSet _ = setSettingsZoomTextOnly + attrConstruct _ = constructSettingsZoomTextOnly + +type instance AttributeList Settings = SettingsAttributeList +type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("autoLoadImages", SettingsAutoLoadImagesPropertyInfo), '("cursiveFontFamily", SettingsCursiveFontFamilyPropertyInfo), '("defaultCharset", SettingsDefaultCharsetPropertyInfo), '("defaultFontFamily", SettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", SettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", SettingsDefaultMonospaceFontSizePropertyInfo), '("drawCompositingIndicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enableAccelerated2dCanvas", SettingsEnableAccelerated2dCanvasPropertyInfo), '("enableCaretBrowsing", SettingsEnableCaretBrowsingPropertyInfo), '("enableDeveloperExtras", SettingsEnableDeveloperExtrasPropertyInfo), '("enableDnsPrefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enableFrameFlattening", SettingsEnableFrameFlatteningPropertyInfo), '("enableFullscreen", SettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", SettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enableJava", SettingsEnableJavaPropertyInfo), '("enableJavascript", SettingsEnableJavascriptPropertyInfo), '("enableMediaStream", SettingsEnableMediaStreamPropertyInfo), '("enableMediasource", SettingsEnableMediasourcePropertyInfo), '("enableOfflineWebApplicationCache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", SettingsEnablePageCachePropertyInfo), '("enablePlugins", SettingsEnablePluginsPropertyInfo), '("enablePrivateBrowsing", SettingsEnablePrivateBrowsingPropertyInfo), '("enableResizableTextAreas", SettingsEnableResizableTextAreasPropertyInfo), '("enableSiteSpecificQuirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", SettingsEnableSpatialNavigationPropertyInfo), '("enableTabsToLinks", SettingsEnableTabsToLinksPropertyInfo), '("enableWebaudio", SettingsEnableWebaudioPropertyInfo), '("enableWebgl", SettingsEnableWebglPropertyInfo), '("enableWriteConsoleMessagesToStdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("enableXssAuditor", SettingsEnableXssAuditorPropertyInfo), '("fantasyFontFamily", SettingsFantasyFontFamilyPropertyInfo), '("javascriptCanAccessClipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("loadIconsIgnoringImageLoadSetting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("mediaPlaybackAllowsInline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", SettingsMinimumFontSizePropertyInfo), '("monospaceFontFamily", SettingsMonospaceFontFamilyPropertyInfo), '("pictographFontFamily", SettingsPictographFontFamilyPropertyInfo), '("printBackgrounds", SettingsPrintBackgroundsPropertyInfo), '("sansSerifFontFamily", SettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", SettingsSerifFontFamilyPropertyInfo), '("userAgent", SettingsUserAgentPropertyInfo), '("zoomTextOnly", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList Settings = SettingsSignalList +type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Settings::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "Settings" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_new" webkit_settings_new :: + IO (Ptr Settings) + + +settingsNew :: + (MonadIO m) => + m Settings -- result +settingsNew = liftIO $ do + result <- webkit_settings_new + checkUnexpectedReturnNULL "webkit_settings_new" result + result' <- (wrapObject Settings) result + return result' + +-- method Settings::get_allow_file_access_from_file_urls +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetAllowFileAccessFromFileUrls :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetAllowFileAccessFromFileUrls _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_allow_file_access_from_file_urls _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetAllowFileAccessFromFileUrlsMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where + overloadedMethod _ = settingsGetAllowFileAccessFromFileUrls + +-- method Settings::get_allow_modal_dialogs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetAllowModalDialogs :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetAllowModalDialogs _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_allow_modal_dialogs _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetAllowModalDialogsMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowModalDialogsMethodInfo a signature where + overloadedMethod _ = settingsGetAllowModalDialogs + +-- method Settings::get_auto_load_images +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetAutoLoadImages :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetAutoLoadImages _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_auto_load_images _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetAutoLoadImagesMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAutoLoadImagesMethodInfo a signature where + overloadedMethod _ = settingsGetAutoLoadImages + +-- method Settings::get_cursive_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetCursiveFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetCursiveFontFamily _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_cursive_font_family _obj' + checkUnexpectedReturnNULL "webkit_settings_get_cursive_font_family" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetCursiveFontFamilyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetCursiveFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsGetCursiveFontFamily + +-- method Settings::get_default_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetDefaultCharset :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetDefaultCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_default_charset _obj' + checkUnexpectedReturnNULL "webkit_settings_get_default_charset" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetDefaultCharsetMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultCharsetMethodInfo a signature where + overloadedMethod _ = settingsGetDefaultCharset + +-- method Settings::get_default_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetDefaultFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetDefaultFontFamily _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_default_font_family _obj' + checkUnexpectedReturnNULL "webkit_settings_get_default_font_family" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetDefaultFontFamilyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsGetDefaultFontFamily + +-- method Settings::get_default_font_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO Word32 + + +settingsGetDefaultFontSize :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Word32 -- result +settingsGetDefaultFontSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_default_font_size _obj' + touchManagedPtr _obj + return result + +data SettingsGetDefaultFontSizeMethodInfo +instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontSizeMethodInfo a signature where + overloadedMethod _ = settingsGetDefaultFontSize + +-- method Settings::get_default_monospace_font_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO Word32 + + +settingsGetDefaultMonospaceFontSize :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Word32 -- result +settingsGetDefaultMonospaceFontSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_default_monospace_font_size _obj' + touchManagedPtr _obj + return result + +data SettingsGetDefaultMonospaceFontSizeMethodInfo +instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where + overloadedMethod _ = settingsGetDefaultMonospaceFontSize + +-- method Settings::get_draw_compositing_indicators +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetDrawCompositingIndicators :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetDrawCompositingIndicators _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_draw_compositing_indicators _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetDrawCompositingIndicatorsMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a signature where + overloadedMethod _ = settingsGetDrawCompositingIndicators + +-- method Settings::get_enable_accelerated_2d_canvas +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableAccelerated2dCanvas :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableAccelerated2dCanvas _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_accelerated_2d_canvas _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableAccelerated2dCanvasMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableAccelerated2dCanvasMethodInfo a signature where + overloadedMethod _ = settingsGetEnableAccelerated2dCanvas + +-- method Settings::get_enable_caret_browsing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableCaretBrowsing :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableCaretBrowsing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_caret_browsing _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableCaretBrowsingMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableCaretBrowsingMethodInfo a signature where + overloadedMethod _ = settingsGetEnableCaretBrowsing + +-- method Settings::get_enable_developer_extras +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableDeveloperExtras :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableDeveloperExtras _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_developer_extras _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableDeveloperExtrasMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a signature where + overloadedMethod _ = settingsGetEnableDeveloperExtras + +-- method Settings::get_enable_dns_prefetching +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableDnsPrefetching :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableDnsPrefetching _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_dns_prefetching _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableDnsPrefetchingMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a signature where + overloadedMethod _ = settingsGetEnableDnsPrefetching + +-- method Settings::get_enable_frame_flattening +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableFrameFlattening :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableFrameFlattening _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_frame_flattening _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableFrameFlatteningMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFrameFlatteningMethodInfo a signature where + overloadedMethod _ = settingsGetEnableFrameFlattening + +-- method Settings::get_enable_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableFullscreen :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_fullscreen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableFullscreenMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFullscreenMethodInfo a signature where + overloadedMethod _ = settingsGetEnableFullscreen + +-- method Settings::get_enable_html5_database +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableHtml5Database :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableHtml5Database _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_html5_database _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableHtml5DatabaseMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a signature where + overloadedMethod _ = settingsGetEnableHtml5Database + +-- method Settings::get_enable_html5_local_storage +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableHtml5LocalStorage :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableHtml5LocalStorage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_html5_local_storage _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableHtml5LocalStorageMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a signature where + overloadedMethod _ = settingsGetEnableHtml5LocalStorage + +-- method Settings::get_enable_hyperlink_auditing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableHyperlinkAuditing :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableHyperlinkAuditing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_hyperlink_auditing _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableHyperlinkAuditingMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a signature where + overloadedMethod _ = settingsGetEnableHyperlinkAuditing + +-- method Settings::get_enable_java +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableJava :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableJava _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_java _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableJavaMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavaMethodInfo a signature where + overloadedMethod _ = settingsGetEnableJava + +-- method Settings::get_enable_javascript +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableJavascript :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableJavascript _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_javascript _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableJavascriptMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavascriptMethodInfo a signature where + overloadedMethod _ = settingsGetEnableJavascript + +-- method Settings::get_enable_media_stream +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableMediaStream :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableMediaStream _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_media_stream _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableMediaStreamMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediaStreamMethodInfo a signature where + overloadedMethod _ = settingsGetEnableMediaStream + +-- method Settings::get_enable_mediasource +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableMediasource :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableMediasource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_mediasource _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableMediasourceMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediasourceMethodInfo a signature where + overloadedMethod _ = settingsGetEnableMediasource + +-- method Settings::get_enable_offline_web_application_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableOfflineWebApplicationCache :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableOfflineWebApplicationCache _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_offline_web_application_cache _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableOfflineWebApplicationCacheMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where + overloadedMethod _ = settingsGetEnableOfflineWebApplicationCache + +-- method Settings::get_enable_page_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnablePageCache :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnablePageCache _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_page_cache _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnablePageCacheMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePageCacheMethodInfo a signature where + overloadedMethod _ = settingsGetEnablePageCache + +-- method Settings::get_enable_plugins +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnablePlugins :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnablePlugins _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_plugins _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnablePluginsMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePluginsMethodInfo a signature where + overloadedMethod _ = settingsGetEnablePlugins + +-- method Settings::get_enable_private_browsing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnablePrivateBrowsing :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnablePrivateBrowsing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_private_browsing _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnablePrivateBrowsingMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePrivateBrowsingMethodInfo a signature where + overloadedMethod _ = settingsGetEnablePrivateBrowsing + +-- method Settings::get_enable_resizable_text_areas +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableResizableTextAreas :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableResizableTextAreas _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_resizable_text_areas _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableResizableTextAreasMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableResizableTextAreasMethodInfo a signature where + overloadedMethod _ = settingsGetEnableResizableTextAreas + +-- method Settings::get_enable_site_specific_quirks +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableSiteSpecificQuirks :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableSiteSpecificQuirks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_site_specific_quirks _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableSiteSpecificQuirksMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where + overloadedMethod _ = settingsGetEnableSiteSpecificQuirks + +-- method Settings::get_enable_smooth_scrolling +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableSmoothScrolling :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableSmoothScrolling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_smooth_scrolling _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableSmoothScrollingMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSmoothScrollingMethodInfo a signature where + overloadedMethod _ = settingsGetEnableSmoothScrolling + +-- method Settings::get_enable_spatial_navigation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableSpatialNavigation :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableSpatialNavigation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_spatial_navigation _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableSpatialNavigationMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSpatialNavigationMethodInfo a signature where + overloadedMethod _ = settingsGetEnableSpatialNavigation + +-- method Settings::get_enable_tabs_to_links +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableTabsToLinks :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableTabsToLinks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_tabs_to_links _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableTabsToLinksMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableTabsToLinksMethodInfo a signature where + overloadedMethod _ = settingsGetEnableTabsToLinks + +-- method Settings::get_enable_webaudio +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableWebaudio :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableWebaudio _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_webaudio _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableWebaudioMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebaudioMethodInfo a signature where + overloadedMethod _ = settingsGetEnableWebaudio + +-- method Settings::get_enable_webgl +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableWebgl :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableWebgl _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_webgl _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableWebglMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebglMethodInfo a signature where + overloadedMethod _ = settingsGetEnableWebgl + +-- method Settings::get_enable_write_console_messages_to_stdout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableWriteConsoleMessagesToStdout :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableWriteConsoleMessagesToStdout _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_write_console_messages_to_stdout _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where + overloadedMethod _ = settingsGetEnableWriteConsoleMessagesToStdout + +-- method Settings::get_enable_xss_auditor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetEnableXssAuditor :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetEnableXssAuditor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_enable_xss_auditor _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetEnableXssAuditorMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableXssAuditorMethodInfo a signature where + overloadedMethod _ = settingsGetEnableXssAuditor + +-- method Settings::get_fantasy_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetFantasyFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetFantasyFontFamily _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_fantasy_font_family _obj' + checkUnexpectedReturnNULL "webkit_settings_get_fantasy_font_family" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetFantasyFontFamilyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetFantasyFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsGetFantasyFontFamily + +-- method Settings::get_javascript_can_access_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetJavascriptCanAccessClipboard :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetJavascriptCanAccessClipboard _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_javascript_can_access_clipboard _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetJavascriptCanAccessClipboardMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where + overloadedMethod _ = settingsGetJavascriptCanAccessClipboard + +-- method Settings::get_javascript_can_open_windows_automatically +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetJavascriptCanOpenWindowsAutomatically :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetJavascriptCanOpenWindowsAutomatically _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_javascript_can_open_windows_automatically _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where + overloadedMethod _ = settingsGetJavascriptCanOpenWindowsAutomatically + +-- method Settings::get_load_icons_ignoring_image_load_setting +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetLoadIconsIgnoringImageLoadSetting :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetLoadIconsIgnoringImageLoadSetting _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_load_icons_ignoring_image_load_setting _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where + overloadedMethod _ = settingsGetLoadIconsIgnoringImageLoadSetting + +-- method Settings::get_media_playback_allows_inline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetMediaPlaybackAllowsInline :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetMediaPlaybackAllowsInline _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_media_playback_allows_inline _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetMediaPlaybackAllowsInlineMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where + overloadedMethod _ = settingsGetMediaPlaybackAllowsInline + +-- method Settings::get_media_playback_requires_user_gesture +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetMediaPlaybackRequiresUserGesture :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetMediaPlaybackRequiresUserGesture _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_media_playback_requires_user_gesture _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where + overloadedMethod _ = settingsGetMediaPlaybackRequiresUserGesture + +-- method Settings::get_minimum_font_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO Word32 + + +settingsGetMinimumFontSize :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Word32 -- result +settingsGetMinimumFontSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_minimum_font_size _obj' + touchManagedPtr _obj + return result + +data SettingsGetMinimumFontSizeMethodInfo +instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetMinimumFontSizeMethodInfo a signature where + overloadedMethod _ = settingsGetMinimumFontSize + +-- method Settings::get_monospace_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetMonospaceFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetMonospaceFontFamily _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_monospace_font_family _obj' + checkUnexpectedReturnNULL "webkit_settings_get_monospace_font_family" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetMonospaceFontFamilyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetMonospaceFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsGetMonospaceFontFamily + +-- method Settings::get_pictograph_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetPictographFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetPictographFontFamily _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_pictograph_font_family _obj' + checkUnexpectedReturnNULL "webkit_settings_get_pictograph_font_family" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetPictographFontFamilyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetPictographFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsGetPictographFontFamily + +-- method Settings::get_print_backgrounds +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetPrintBackgrounds :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetPrintBackgrounds _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_print_backgrounds _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetPrintBackgroundsMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetPrintBackgroundsMethodInfo a signature where + overloadedMethod _ = settingsGetPrintBackgrounds + +-- method Settings::get_sans_serif_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetSansSerifFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetSansSerifFontFamily _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_sans_serif_font_family _obj' + checkUnexpectedReturnNULL "webkit_settings_get_sans_serif_font_family" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetSansSerifFontFamilyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSansSerifFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsGetSansSerifFontFamily + +-- method Settings::get_serif_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetSerifFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetSerifFontFamily _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_serif_font_family _obj' + checkUnexpectedReturnNULL "webkit_settings_get_serif_font_family" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetSerifFontFamilyMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSerifFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsGetSerifFontFamily + +-- method Settings::get_user_agent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CString + + +settingsGetUserAgent :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m T.Text -- result +settingsGetUserAgent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_user_agent _obj' + checkUnexpectedReturnNULL "webkit_settings_get_user_agent" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data SettingsGetUserAgentMethodInfo +instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetUserAgentMethodInfo a signature where + overloadedMethod _ = settingsGetUserAgent + +-- method Settings::get_zoom_text_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + IO CInt + + +settingsGetZoomTextOnly :: + (MonadIO m, SettingsK a) => + a -- _obj + -> m Bool -- result +settingsGetZoomTextOnly _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_settings_get_zoom_text_only _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data SettingsGetZoomTextOnlyMethodInfo +instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetZoomTextOnlyMethodInfo a signature where + overloadedMethod _ = settingsGetZoomTextOnly + +-- method Settings::set_allow_file_access_from_file_urls +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- allowed : TBasicType TBoolean + IO () + + +settingsSetAllowFileAccessFromFileUrls :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- allowed + -> m () -- result +settingsSetAllowFileAccessFromFileUrls _obj allowed = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allowed' = (fromIntegral . fromEnum) allowed + webkit_settings_set_allow_file_access_from_file_urls _obj' allowed' + touchManagedPtr _obj + return () + +data SettingsSetAllowFileAccessFromFileUrlsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where + overloadedMethod _ = settingsSetAllowFileAccessFromFileUrls + +-- method Settings::set_allow_modal_dialogs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- allowed : TBasicType TBoolean + IO () + + +settingsSetAllowModalDialogs :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- allowed + -> m () -- result +settingsSetAllowModalDialogs _obj allowed = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allowed' = (fromIntegral . fromEnum) allowed + webkit_settings_set_allow_modal_dialogs _obj' allowed' + touchManagedPtr _obj + return () + +data SettingsSetAllowModalDialogsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowModalDialogsMethodInfo a signature where + overloadedMethod _ = settingsSetAllowModalDialogs + +-- method Settings::set_auto_load_images +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetAutoLoadImages :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetAutoLoadImages _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_auto_load_images _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetAutoLoadImagesMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAutoLoadImagesMethodInfo a signature where + overloadedMethod _ = settingsSetAutoLoadImages + +-- method Settings::set_cursive_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- cursive_font_family : TBasicType TUTF8 + IO () + + +settingsSetCursiveFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- cursiveFontFamily + -> m () -- result +settingsSetCursiveFontFamily _obj cursiveFontFamily = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + cursiveFontFamily' <- textToCString cursiveFontFamily + webkit_settings_set_cursive_font_family _obj' cursiveFontFamily' + touchManagedPtr _obj + freeMem cursiveFontFamily' + return () + +data SettingsSetCursiveFontFamilyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetCursiveFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsSetCursiveFontFamily + +-- method Settings::set_default_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- default_charset : TBasicType TUTF8 + IO () + + +settingsSetDefaultCharset :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- defaultCharset + -> m () -- result +settingsSetDefaultCharset _obj defaultCharset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + defaultCharset' <- textToCString defaultCharset + webkit_settings_set_default_charset _obj' defaultCharset' + touchManagedPtr _obj + freeMem defaultCharset' + return () + +data SettingsSetDefaultCharsetMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultCharsetMethodInfo a signature where + overloadedMethod _ = settingsSetDefaultCharset + +-- method Settings::set_default_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- default_font_family : TBasicType TUTF8 + IO () + + +settingsSetDefaultFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- defaultFontFamily + -> m () -- result +settingsSetDefaultFontFamily _obj defaultFontFamily = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + defaultFontFamily' <- textToCString defaultFontFamily + webkit_settings_set_default_font_family _obj' defaultFontFamily' + touchManagedPtr _obj + freeMem defaultFontFamily' + return () + +data SettingsSetDefaultFontFamilyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsSetDefaultFontFamily + +-- method Settings::set_default_font_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + Word32 -> -- font_size : TBasicType TUInt32 + IO () + + +settingsSetDefaultFontSize :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Word32 -- fontSize + -> m () -- result +settingsSetDefaultFontSize _obj fontSize = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_settings_set_default_font_size _obj' fontSize + touchManagedPtr _obj + return () + +data SettingsSetDefaultFontSizeMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontSizeMethodInfo a signature where + overloadedMethod _ = settingsSetDefaultFontSize + +-- method Settings::set_default_monospace_font_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + Word32 -> -- font_size : TBasicType TUInt32 + IO () + + +settingsSetDefaultMonospaceFontSize :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Word32 -- fontSize + -> m () -- result +settingsSetDefaultMonospaceFontSize _obj fontSize = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_settings_set_default_monospace_font_size _obj' fontSize + touchManagedPtr _obj + return () + +data SettingsSetDefaultMonospaceFontSizeMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where + overloadedMethod _ = settingsSetDefaultMonospaceFontSize + +-- method Settings::set_draw_compositing_indicators +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetDrawCompositingIndicators :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetDrawCompositingIndicators _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_draw_compositing_indicators _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetDrawCompositingIndicatorsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a signature where + overloadedMethod _ = settingsSetDrawCompositingIndicators + +-- method Settings::set_enable_accelerated_2d_canvas +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableAccelerated2dCanvas :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableAccelerated2dCanvas _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_accelerated_2d_canvas _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableAccelerated2dCanvasMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableAccelerated2dCanvasMethodInfo a signature where + overloadedMethod _ = settingsSetEnableAccelerated2dCanvas + +-- method Settings::set_enable_caret_browsing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableCaretBrowsing :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableCaretBrowsing _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_caret_browsing _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableCaretBrowsingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableCaretBrowsingMethodInfo a signature where + overloadedMethod _ = settingsSetEnableCaretBrowsing + +-- method Settings::set_enable_developer_extras +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableDeveloperExtras :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableDeveloperExtras _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_developer_extras _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableDeveloperExtrasMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a signature where + overloadedMethod _ = settingsSetEnableDeveloperExtras + +-- method Settings::set_enable_dns_prefetching +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableDnsPrefetching :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableDnsPrefetching _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_dns_prefetching _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableDnsPrefetchingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a signature where + overloadedMethod _ = settingsSetEnableDnsPrefetching + +-- method Settings::set_enable_frame_flattening +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableFrameFlattening :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableFrameFlattening _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_frame_flattening _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableFrameFlatteningMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFrameFlatteningMethodInfo a signature where + overloadedMethod _ = settingsSetEnableFrameFlattening + +-- method Settings::set_enable_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableFullscreen :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableFullscreen _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_fullscreen _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableFullscreenMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFullscreenMethodInfo a signature where + overloadedMethod _ = settingsSetEnableFullscreen + +-- method Settings::set_enable_html5_database +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableHtml5Database :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableHtml5Database _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_html5_database _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableHtml5DatabaseMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a signature where + overloadedMethod _ = settingsSetEnableHtml5Database + +-- method Settings::set_enable_html5_local_storage +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableHtml5LocalStorage :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableHtml5LocalStorage _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_html5_local_storage _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableHtml5LocalStorageMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a signature where + overloadedMethod _ = settingsSetEnableHtml5LocalStorage + +-- method Settings::set_enable_hyperlink_auditing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableHyperlinkAuditing :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableHyperlinkAuditing _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_hyperlink_auditing _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableHyperlinkAuditingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a signature where + overloadedMethod _ = settingsSetEnableHyperlinkAuditing + +-- method Settings::set_enable_java +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableJava :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableJava _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_java _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableJavaMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavaMethodInfo a signature where + overloadedMethod _ = settingsSetEnableJava + +-- method Settings::set_enable_javascript +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableJavascript :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableJavascript _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_javascript _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableJavascriptMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavascriptMethodInfo a signature where + overloadedMethod _ = settingsSetEnableJavascript + +-- method Settings::set_enable_media_stream +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableMediaStream :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableMediaStream _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_media_stream _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableMediaStreamMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediaStreamMethodInfo a signature where + overloadedMethod _ = settingsSetEnableMediaStream + +-- method Settings::set_enable_mediasource +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableMediasource :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableMediasource _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_mediasource _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableMediasourceMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediasourceMethodInfo a signature where + overloadedMethod _ = settingsSetEnableMediasource + +-- method Settings::set_enable_offline_web_application_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableOfflineWebApplicationCache :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableOfflineWebApplicationCache _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_offline_web_application_cache _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableOfflineWebApplicationCacheMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where + overloadedMethod _ = settingsSetEnableOfflineWebApplicationCache + +-- method Settings::set_enable_page_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnablePageCache :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnablePageCache _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_page_cache _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnablePageCacheMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePageCacheMethodInfo a signature where + overloadedMethod _ = settingsSetEnablePageCache + +-- method Settings::set_enable_plugins +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnablePlugins :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnablePlugins _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_plugins _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnablePluginsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePluginsMethodInfo a signature where + overloadedMethod _ = settingsSetEnablePlugins + +-- method Settings::set_enable_private_browsing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnablePrivateBrowsing :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnablePrivateBrowsing _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_private_browsing _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnablePrivateBrowsingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePrivateBrowsingMethodInfo a signature where + overloadedMethod _ = settingsSetEnablePrivateBrowsing + +-- method Settings::set_enable_resizable_text_areas +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableResizableTextAreas :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableResizableTextAreas _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_resizable_text_areas _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableResizableTextAreasMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableResizableTextAreasMethodInfo a signature where + overloadedMethod _ = settingsSetEnableResizableTextAreas + +-- method Settings::set_enable_site_specific_quirks +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableSiteSpecificQuirks :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableSiteSpecificQuirks _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_site_specific_quirks _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableSiteSpecificQuirksMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where + overloadedMethod _ = settingsSetEnableSiteSpecificQuirks + +-- method Settings::set_enable_smooth_scrolling +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableSmoothScrolling :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableSmoothScrolling _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_smooth_scrolling _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableSmoothScrollingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSmoothScrollingMethodInfo a signature where + overloadedMethod _ = settingsSetEnableSmoothScrolling + +-- method Settings::set_enable_spatial_navigation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableSpatialNavigation :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableSpatialNavigation _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_spatial_navigation _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableSpatialNavigationMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSpatialNavigationMethodInfo a signature where + overloadedMethod _ = settingsSetEnableSpatialNavigation + +-- method Settings::set_enable_tabs_to_links +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableTabsToLinks :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableTabsToLinks _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_tabs_to_links _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableTabsToLinksMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableTabsToLinksMethodInfo a signature where + overloadedMethod _ = settingsSetEnableTabsToLinks + +-- method Settings::set_enable_webaudio +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableWebaudio :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableWebaudio _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_webaudio _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableWebaudioMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebaudioMethodInfo a signature where + overloadedMethod _ = settingsSetEnableWebaudio + +-- method Settings::set_enable_webgl +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableWebgl :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableWebgl _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_webgl _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableWebglMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebglMethodInfo a signature where + overloadedMethod _ = settingsSetEnableWebgl + +-- method Settings::set_enable_write_console_messages_to_stdout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableWriteConsoleMessagesToStdout :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableWriteConsoleMessagesToStdout _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_write_console_messages_to_stdout _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where + overloadedMethod _ = settingsSetEnableWriteConsoleMessagesToStdout + +-- method Settings::set_enable_xss_auditor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetEnableXssAuditor :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetEnableXssAuditor _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_enable_xss_auditor _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetEnableXssAuditorMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableXssAuditorMethodInfo a signature where + overloadedMethod _ = settingsSetEnableXssAuditor + +-- method Settings::set_fantasy_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- fantasy_font_family : TBasicType TUTF8 + IO () + + +settingsSetFantasyFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- fantasyFontFamily + -> m () -- result +settingsSetFantasyFontFamily _obj fantasyFontFamily = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + fantasyFontFamily' <- textToCString fantasyFontFamily + webkit_settings_set_fantasy_font_family _obj' fantasyFontFamily' + touchManagedPtr _obj + freeMem fantasyFontFamily' + return () + +data SettingsSetFantasyFontFamilyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetFantasyFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsSetFantasyFontFamily + +-- method Settings::set_javascript_can_access_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetJavascriptCanAccessClipboard :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetJavascriptCanAccessClipboard _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_javascript_can_access_clipboard _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetJavascriptCanAccessClipboardMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where + overloadedMethod _ = settingsSetJavascriptCanAccessClipboard + +-- method Settings::set_javascript_can_open_windows_automatically +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetJavascriptCanOpenWindowsAutomatically :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetJavascriptCanOpenWindowsAutomatically _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_javascript_can_open_windows_automatically _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where + overloadedMethod _ = settingsSetJavascriptCanOpenWindowsAutomatically + +-- method Settings::set_load_icons_ignoring_image_load_setting +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetLoadIconsIgnoringImageLoadSetting :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetLoadIconsIgnoringImageLoadSetting _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_load_icons_ignoring_image_load_setting _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where + overloadedMethod _ = settingsSetLoadIconsIgnoringImageLoadSetting + +-- method Settings::set_media_playback_allows_inline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetMediaPlaybackAllowsInline :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetMediaPlaybackAllowsInline _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_media_playback_allows_inline _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetMediaPlaybackAllowsInlineMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where + overloadedMethod _ = settingsSetMediaPlaybackAllowsInline + +-- method Settings::set_media_playback_requires_user_gesture +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +settingsSetMediaPlaybackRequiresUserGesture :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +settingsSetMediaPlaybackRequiresUserGesture _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_settings_set_media_playback_requires_user_gesture _obj' enabled' + touchManagedPtr _obj + return () + +data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where + overloadedMethod _ = settingsSetMediaPlaybackRequiresUserGesture + +-- method Settings::set_minimum_font_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + Word32 -> -- font_size : TBasicType TUInt32 + IO () + + +settingsSetMinimumFontSize :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Word32 -- fontSize + -> m () -- result +settingsSetMinimumFontSize _obj fontSize = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_settings_set_minimum_font_size _obj' fontSize + touchManagedPtr _obj + return () + +data SettingsSetMinimumFontSizeMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMinimumFontSizeMethodInfo a signature where + overloadedMethod _ = settingsSetMinimumFontSize + +-- method Settings::set_monospace_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- monospace_font_family : TBasicType TUTF8 + IO () + + +settingsSetMonospaceFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- monospaceFontFamily + -> m () -- result +settingsSetMonospaceFontFamily _obj monospaceFontFamily = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + monospaceFontFamily' <- textToCString monospaceFontFamily + webkit_settings_set_monospace_font_family _obj' monospaceFontFamily' + touchManagedPtr _obj + freeMem monospaceFontFamily' + return () + +data SettingsSetMonospaceFontFamilyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMonospaceFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsSetMonospaceFontFamily + +-- method Settings::set_pictograph_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- pictograph_font_family : TBasicType TUTF8 + IO () + + +settingsSetPictographFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- pictographFontFamily + -> m () -- result +settingsSetPictographFontFamily _obj pictographFontFamily = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + pictographFontFamily' <- textToCString pictographFontFamily + webkit_settings_set_pictograph_font_family _obj' pictographFontFamily' + touchManagedPtr _obj + freeMem pictographFontFamily' + return () + +data SettingsSetPictographFontFamilyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPictographFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsSetPictographFontFamily + +-- method Settings::set_print_backgrounds +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- print_backgrounds : TBasicType TBoolean + IO () + + +settingsSetPrintBackgrounds :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- printBackgrounds + -> m () -- result +settingsSetPrintBackgrounds _obj printBackgrounds = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let printBackgrounds' = (fromIntegral . fromEnum) printBackgrounds + webkit_settings_set_print_backgrounds _obj' printBackgrounds' + touchManagedPtr _obj + return () + +data SettingsSetPrintBackgroundsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPrintBackgroundsMethodInfo a signature where + overloadedMethod _ = settingsSetPrintBackgrounds + +-- method Settings::set_sans_serif_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- sans_serif_font_family : TBasicType TUTF8 + IO () + + +settingsSetSansSerifFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- sansSerifFontFamily + -> m () -- result +settingsSetSansSerifFontFamily _obj sansSerifFontFamily = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + sansSerifFontFamily' <- textToCString sansSerifFontFamily + webkit_settings_set_sans_serif_font_family _obj' sansSerifFontFamily' + touchManagedPtr _obj + freeMem sansSerifFontFamily' + return () + +data SettingsSetSansSerifFontFamilyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSansSerifFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsSetSansSerifFontFamily + +-- method Settings::set_serif_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- serif_font_family : TBasicType TUTF8 + IO () + + +settingsSetSerifFontFamily :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- serifFontFamily + -> m () -- result +settingsSetSerifFontFamily _obj serifFontFamily = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + serifFontFamily' <- textToCString serifFontFamily + webkit_settings_set_serif_font_family _obj' serifFontFamily' + touchManagedPtr _obj + freeMem serifFontFamily' + return () + +data SettingsSetSerifFontFamilyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSerifFontFamilyMethodInfo a signature where + overloadedMethod _ = settingsSetSerifFontFamily + +-- method Settings::set_user_agent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- user_agent : TBasicType TUTF8 + IO () + + +settingsSetUserAgent :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Maybe (T.Text) -- userAgent + -> m () -- result +settingsSetUserAgent _obj userAgent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeUserAgent <- case userAgent of + Nothing -> return nullPtr + Just jUserAgent -> do + jUserAgent' <- textToCString jUserAgent + return jUserAgent' + webkit_settings_set_user_agent _obj' maybeUserAgent + touchManagedPtr _obj + freeMem maybeUserAgent + return () + +data SettingsSetUserAgentMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentMethodInfo a signature where + overloadedMethod _ = settingsSetUserAgent + +-- method Settings::set_user_agent_with_application_details +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CString -> -- application_name : TBasicType TUTF8 + CString -> -- application_version : TBasicType TUTF8 + IO () + + +settingsSetUserAgentWithApplicationDetails :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Maybe (T.Text) -- applicationName + -> Maybe (T.Text) -- applicationVersion + -> m () -- result +settingsSetUserAgentWithApplicationDetails _obj applicationName applicationVersion = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeApplicationName <- case applicationName of + Nothing -> return nullPtr + Just jApplicationName -> do + jApplicationName' <- textToCString jApplicationName + return jApplicationName' + maybeApplicationVersion <- case applicationVersion of + Nothing -> return nullPtr + Just jApplicationVersion -> do + jApplicationVersion' <- textToCString jApplicationVersion + return jApplicationVersion' + webkit_settings_set_user_agent_with_application_details _obj' maybeApplicationName maybeApplicationVersion + touchManagedPtr _obj + freeMem maybeApplicationName + freeMem maybeApplicationVersion + return () + +data SettingsSetUserAgentWithApplicationDetailsMethodInfo +instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where + overloadedMethod _ = settingsSetUserAgentWithApplicationDetails + +-- method Settings::set_zoom_text_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only :: + Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" + CInt -> -- zoom_text_only : TBasicType TBoolean + IO () + + +settingsSetZoomTextOnly :: + (MonadIO m, SettingsK a) => + a -- _obj + -> Bool -- zoomTextOnly + -> m () -- result +settingsSetZoomTextOnly _obj zoomTextOnly = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let zoomTextOnly' = (fromIntegral . fromEnum) zoomTextOnly + webkit_settings_set_zoom_text_only _obj' zoomTextOnly' + touchManagedPtr _obj + return () + +data SettingsSetZoomTextOnlyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetZoomTextOnlyMethodInfo a signature where + overloadedMethod _ = settingsSetZoomTextOnly diff --git a/GI/WebKit2/Objects/Settings.hs-boot b/GI/WebKit2/Objects/Settings.hs-boot --- a/GI/WebKit2/Objects/Settings.hs-boot +++ b/GI/WebKit2/Objects/Settings.hs-boot @@ -60,3 +60,102 @@ data SettingsSerifFontFamilyPropertyInfo data SettingsUserAgentPropertyInfo data SettingsZoomTextOnlyPropertyInfo +data SettingsGetAllowFileAccessFromFileUrlsMethodInfo +data SettingsGetAllowModalDialogsMethodInfo +data SettingsGetAutoLoadImagesMethodInfo +data SettingsGetCursiveFontFamilyMethodInfo +data SettingsGetDefaultCharsetMethodInfo +data SettingsGetDefaultFontFamilyMethodInfo +data SettingsGetDefaultFontSizeMethodInfo +data SettingsGetDefaultMonospaceFontSizeMethodInfo +data SettingsGetDrawCompositingIndicatorsMethodInfo +data SettingsGetEnableAccelerated2dCanvasMethodInfo +data SettingsGetEnableCaretBrowsingMethodInfo +data SettingsGetEnableDeveloperExtrasMethodInfo +data SettingsGetEnableDnsPrefetchingMethodInfo +data SettingsGetEnableFrameFlatteningMethodInfo +data SettingsGetEnableFullscreenMethodInfo +data SettingsGetEnableHtml5DatabaseMethodInfo +data SettingsGetEnableHtml5LocalStorageMethodInfo +data SettingsGetEnableHyperlinkAuditingMethodInfo +data SettingsGetEnableJavaMethodInfo +data SettingsGetEnableJavascriptMethodInfo +data SettingsGetEnableMediaStreamMethodInfo +data SettingsGetEnableMediasourceMethodInfo +data SettingsGetEnableOfflineWebApplicationCacheMethodInfo +data SettingsGetEnablePageCacheMethodInfo +data SettingsGetEnablePluginsMethodInfo +data SettingsGetEnablePrivateBrowsingMethodInfo +data SettingsGetEnableResizableTextAreasMethodInfo +data SettingsGetEnableSiteSpecificQuirksMethodInfo +data SettingsGetEnableSmoothScrollingMethodInfo +data SettingsGetEnableSpatialNavigationMethodInfo +data SettingsGetEnableTabsToLinksMethodInfo +data SettingsGetEnableWebaudioMethodInfo +data SettingsGetEnableWebglMethodInfo +data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo +data SettingsGetEnableXssAuditorMethodInfo +data SettingsGetFantasyFontFamilyMethodInfo +data SettingsGetJavascriptCanAccessClipboardMethodInfo +data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo +data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo +data SettingsGetMediaPlaybackAllowsInlineMethodInfo +data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo +data SettingsGetMinimumFontSizeMethodInfo +data SettingsGetMonospaceFontFamilyMethodInfo +data SettingsGetPictographFontFamilyMethodInfo +data SettingsGetPrintBackgroundsMethodInfo +data SettingsGetSansSerifFontFamilyMethodInfo +data SettingsGetSerifFontFamilyMethodInfo +data SettingsGetUserAgentMethodInfo +data SettingsGetZoomTextOnlyMethodInfo +data SettingsSetAllowFileAccessFromFileUrlsMethodInfo +data SettingsSetAllowModalDialogsMethodInfo +data SettingsSetAutoLoadImagesMethodInfo +data SettingsSetCursiveFontFamilyMethodInfo +data SettingsSetDefaultCharsetMethodInfo +data SettingsSetDefaultFontFamilyMethodInfo +data SettingsSetDefaultFontSizeMethodInfo +data SettingsSetDefaultMonospaceFontSizeMethodInfo +data SettingsSetDrawCompositingIndicatorsMethodInfo +data SettingsSetEnableAccelerated2dCanvasMethodInfo +data SettingsSetEnableCaretBrowsingMethodInfo +data SettingsSetEnableDeveloperExtrasMethodInfo +data SettingsSetEnableDnsPrefetchingMethodInfo +data SettingsSetEnableFrameFlatteningMethodInfo +data SettingsSetEnableFullscreenMethodInfo +data SettingsSetEnableHtml5DatabaseMethodInfo +data SettingsSetEnableHtml5LocalStorageMethodInfo +data SettingsSetEnableHyperlinkAuditingMethodInfo +data SettingsSetEnableJavaMethodInfo +data SettingsSetEnableJavascriptMethodInfo +data SettingsSetEnableMediaStreamMethodInfo +data SettingsSetEnableMediasourceMethodInfo +data SettingsSetEnableOfflineWebApplicationCacheMethodInfo +data SettingsSetEnablePageCacheMethodInfo +data SettingsSetEnablePluginsMethodInfo +data SettingsSetEnablePrivateBrowsingMethodInfo +data SettingsSetEnableResizableTextAreasMethodInfo +data SettingsSetEnableSiteSpecificQuirksMethodInfo +data SettingsSetEnableSmoothScrollingMethodInfo +data SettingsSetEnableSpatialNavigationMethodInfo +data SettingsSetEnableTabsToLinksMethodInfo +data SettingsSetEnableWebaudioMethodInfo +data SettingsSetEnableWebglMethodInfo +data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo +data SettingsSetEnableXssAuditorMethodInfo +data SettingsSetFantasyFontFamilyMethodInfo +data SettingsSetJavascriptCanAccessClipboardMethodInfo +data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo +data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo +data SettingsSetMediaPlaybackAllowsInlineMethodInfo +data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo +data SettingsSetMinimumFontSizeMethodInfo +data SettingsSetMonospaceFontFamilyMethodInfo +data SettingsSetPictographFontFamilyMethodInfo +data SettingsSetPrintBackgroundsMethodInfo +data SettingsSetSansSerifFontFamilyMethodInfo +data SettingsSetSerifFontFamilyMethodInfo +data SettingsSetUserAgentMethodInfo +data SettingsSetUserAgentWithApplicationDetailsMethodInfo +data SettingsSetZoomTextOnlyMethodInfo diff --git a/GI/WebKit2/Objects/URIRequest.hs b/GI/WebKit2/Objects/URIRequest.hs --- a/GI/WebKit2/Objects/URIRequest.hs +++ b/GI/WebKit2/Objects/URIRequest.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** uRIRequestGetHttpHeaders + URIRequestGetHttpHeadersMethodInfo , uRIRequestGetHttpHeaders , -- ** uRIRequestGetUri + URIRequestGetUriMethodInfo , uRIRequestGetUri , @@ -29,6 +32,7 @@ -- ** uRIRequestSetUri + URIRequestSetUriMethodInfo , uRIRequestSetUri , @@ -79,6 +83,42 @@ noURIRequest :: Maybe URIRequest noURIRequest = Nothing +type family ResolveURIRequestMethod (t :: Symbol) (o :: *) :: * where + ResolveURIRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveURIRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveURIRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveURIRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveURIRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveURIRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveURIRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveURIRequestMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveURIRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveURIRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveURIRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveURIRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveURIRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveURIRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveURIRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveURIRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveURIRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveURIRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveURIRequestMethod "getHttpHeaders" o = URIRequestGetHttpHeadersMethodInfo + ResolveURIRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveURIRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveURIRequestMethod "getUri" o = URIRequestGetUriMethodInfo + ResolveURIRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveURIRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveURIRequestMethod "setUri" o = URIRequestSetUriMethodInfo + ResolveURIRequestMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabelProxy t (URIRequest -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabel t (URIRequest -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] @@ -98,7 +138,7 @@ type AttrSetTypeConstraint URIRequestUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint URIRequestUriPropertyInfo = URIRequestK type AttrGetType URIRequestUriPropertyInfo = T.Text - type AttrLabel URIRequestUriPropertyInfo = "URIRequest::uri" + type AttrLabel URIRequestUriPropertyInfo = "uri" attrGet _ = getURIRequestUri attrSet _ = setURIRequestUri attrConstruct _ = constructURIRequestUri @@ -107,13 +147,12 @@ type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)]) type instance SignalList URIRequest = URIRequestSignalList -type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method URIRequest::new -- method type : Constructor --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIRequest" -- throws : False -- Skip return : False @@ -125,8 +164,8 @@ uRIRequestNew :: (MonadIO m) => - T.Text -> -- uri - m URIRequest + T.Text -- uri + -> m URIRequest -- result uRIRequestNew uri = liftIO $ do uri' <- textToCString uri result <- webkit_uri_request_new uri' @@ -137,9 +176,8 @@ -- method URIRequest::get_http_headers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "MessageHeaders" -- throws : False -- Skip return : False @@ -151,8 +189,8 @@ uRIRequestGetHttpHeaders :: (MonadIO m, URIRequestK a) => - a -> -- _obj - m Soup.MessageHeaders + a -- _obj + -> m Soup.MessageHeaders -- result uRIRequestGetHttpHeaders _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_request_get_http_headers _obj' @@ -161,11 +199,14 @@ touchManagedPtr _obj return result' +data URIRequestGetHttpHeadersMethodInfo +instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpHeadersMethodInfo a signature where + overloadedMethod _ = uRIRequestGetHttpHeaders + -- method URIRequest::get_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -177,8 +218,8 @@ uRIRequestGetUri :: (MonadIO m, URIRequestK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uRIRequestGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_request_get_uri _obj' @@ -187,11 +228,14 @@ touchManagedPtr _obj return result' +data URIRequestGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetUriMethodInfo a signature where + overloadedMethod _ = uRIRequestGetUri + -- method URIRequest::set_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIRequest", 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" "URIRequest", 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" "URIRequest", 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 @@ -204,9 +248,9 @@ uRIRequestSetUri :: (MonadIO m, URIRequestK a) => - a -> -- _obj - T.Text -> -- uri - m () + a -- _obj + -> T.Text -- uri + -> m () -- result uRIRequestSetUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -214,5 +258,9 @@ touchManagedPtr _obj freeMem uri' return () + +data URIRequestSetUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, URIRequestK a) => MethodInfo URIRequestSetUriMethodInfo a signature where + overloadedMethod _ = uRIRequestSetUri diff --git a/GI/WebKit2/Objects/URIRequest.hs-boot b/GI/WebKit2/Objects/URIRequest.hs-boot --- a/GI/WebKit2/Objects/URIRequest.hs-boot +++ b/GI/WebKit2/Objects/URIRequest.hs-boot @@ -12,3 +12,6 @@ class GObject o => URIRequestK o instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o data URIRequestUriPropertyInfo +data URIRequestGetHttpHeadersMethodInfo +data URIRequestGetUriMethodInfo +data URIRequestSetUriMethodInfo diff --git a/GI/WebKit2/Objects/URIResponse.hs b/GI/WebKit2/Objects/URIResponse.hs --- a/GI/WebKit2/Objects/URIResponse.hs +++ b/GI/WebKit2/Objects/URIResponse.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** uRIResponseGetContentLength + URIResponseGetContentLengthMethodInfo , uRIResponseGetContentLength , -- ** uRIResponseGetHttpHeaders + URIResponseGetHttpHeadersMethodInfo , uRIResponseGetHttpHeaders , -- ** uRIResponseGetMimeType + URIResponseGetMimeTypeMethodInfo , uRIResponseGetMimeType , -- ** uRIResponseGetStatusCode + URIResponseGetStatusCodeMethodInfo , uRIResponseGetStatusCode , -- ** uRIResponseGetSuggestedFilename + URIResponseGetSuggestedFilenameMethodInfo, uRIResponseGetSuggestedFilename , -- ** uRIResponseGetUri + URIResponseGetUriMethodInfo , uRIResponseGetUri , @@ -110,6 +117,45 @@ noURIResponse :: Maybe URIResponse noURIResponse = Nothing +type family ResolveURIResponseMethod (t :: Symbol) (o :: *) :: * where + ResolveURIResponseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveURIResponseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveURIResponseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveURIResponseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveURIResponseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveURIResponseMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveURIResponseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveURIResponseMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveURIResponseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveURIResponseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveURIResponseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveURIResponseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveURIResponseMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveURIResponseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveURIResponseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveURIResponseMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveURIResponseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveURIResponseMethod "getContentLength" o = URIResponseGetContentLengthMethodInfo + ResolveURIResponseMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveURIResponseMethod "getHttpHeaders" o = URIResponseGetHttpHeadersMethodInfo + ResolveURIResponseMethod "getMimeType" o = URIResponseGetMimeTypeMethodInfo + ResolveURIResponseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveURIResponseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveURIResponseMethod "getStatusCode" o = URIResponseGetStatusCodeMethodInfo + ResolveURIResponseMethod "getSuggestedFilename" o = URIResponseGetSuggestedFilenameMethodInfo + ResolveURIResponseMethod "getUri" o = URIResponseGetUriMethodInfo + ResolveURIResponseMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveURIResponseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveURIResponseMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabelProxy t (URIResponse -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabel t (URIResponse -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "content-length" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] @@ -123,7 +169,7 @@ type AttrSetTypeConstraint URIResponseContentLengthPropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseContentLengthPropertyInfo = URIResponseK type AttrGetType URIResponseContentLengthPropertyInfo = Word64 - type AttrLabel URIResponseContentLengthPropertyInfo = "URIResponse::content-length" + type AttrLabel URIResponseContentLengthPropertyInfo = "content-length" attrGet _ = getURIResponseContentLength attrSet _ = undefined attrConstruct _ = undefined @@ -141,7 +187,7 @@ type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK type AttrGetType URIResponseHttpHeadersPropertyInfo = Soup.MessageHeaders - type AttrLabel URIResponseHttpHeadersPropertyInfo = "URIResponse::http-headers" + type AttrLabel URIResponseHttpHeadersPropertyInfo = "http-headers" attrGet _ = getURIResponseHttpHeaders attrSet _ = undefined attrConstruct _ = undefined @@ -159,7 +205,7 @@ type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK type AttrGetType URIResponseMimeTypePropertyInfo = T.Text - type AttrLabel URIResponseMimeTypePropertyInfo = "URIResponse::mime-type" + type AttrLabel URIResponseMimeTypePropertyInfo = "mime-type" attrGet _ = getURIResponseMimeType attrSet _ = undefined attrConstruct _ = undefined @@ -177,7 +223,7 @@ type AttrSetTypeConstraint URIResponseStatusCodePropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseStatusCodePropertyInfo = URIResponseK type AttrGetType URIResponseStatusCodePropertyInfo = Word32 - type AttrLabel URIResponseStatusCodePropertyInfo = "URIResponse::status-code" + type AttrLabel URIResponseStatusCodePropertyInfo = "status-code" attrGet _ = getURIResponseStatusCode attrSet _ = undefined attrConstruct _ = undefined @@ -195,7 +241,7 @@ type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text - type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "URIResponse::suggested-filename" + type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "suggested-filename" attrGet _ = getURIResponseSuggestedFilename attrSet _ = undefined attrConstruct _ = undefined @@ -213,22 +259,21 @@ type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK type AttrGetType URIResponseUriPropertyInfo = T.Text - type AttrLabel URIResponseUriPropertyInfo = "URIResponse::uri" + type AttrLabel URIResponseUriPropertyInfo = "uri" attrGet _ = getURIResponseUri attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList URIResponse = URIResponseAttributeList -type URIResponseAttributeList = ('[ '("content-length", URIResponseContentLengthPropertyInfo), '("http-headers", URIResponseHttpHeadersPropertyInfo), '("mime-type", URIResponseMimeTypePropertyInfo), '("status-code", URIResponseStatusCodePropertyInfo), '("suggested-filename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)]) +type URIResponseAttributeList = ('[ '("contentLength", URIResponseContentLengthPropertyInfo), '("httpHeaders", URIResponseHttpHeadersPropertyInfo), '("mimeType", URIResponseMimeTypePropertyInfo), '("statusCode", URIResponseStatusCodePropertyInfo), '("suggestedFilename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)]) type instance SignalList URIResponse = URIResponseSignalList -type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method URIResponse::get_content_length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -240,19 +285,22 @@ uRIResponseGetContentLength :: (MonadIO m, URIResponseK a) => - a -> -- _obj - m Word64 + a -- _obj + -> m Word64 -- result uRIResponseGetContentLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_response_get_content_length _obj' touchManagedPtr _obj return result +data URIResponseGetContentLengthMethodInfo +instance (signature ~ (m Word64), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetContentLengthMethodInfo a signature where + overloadedMethod _ = uRIResponseGetContentLength + -- method URIResponse::get_http_headers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "MessageHeaders" -- throws : False -- Skip return : False @@ -264,8 +312,8 @@ uRIResponseGetHttpHeaders :: (MonadIO m, URIResponseK a) => - a -> -- _obj - m Soup.MessageHeaders + a -- _obj + -> m Soup.MessageHeaders -- result uRIResponseGetHttpHeaders _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_response_get_http_headers _obj' @@ -274,11 +322,14 @@ touchManagedPtr _obj return result' +data URIResponseGetHttpHeadersMethodInfo +instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetHttpHeadersMethodInfo a signature where + overloadedMethod _ = uRIResponseGetHttpHeaders + -- method URIResponse::get_mime_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -290,8 +341,8 @@ uRIResponseGetMimeType :: (MonadIO m, URIResponseK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uRIResponseGetMimeType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_response_get_mime_type _obj' @@ -300,11 +351,14 @@ touchManagedPtr _obj return result' +data URIResponseGetMimeTypeMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetMimeTypeMethodInfo a signature where + overloadedMethod _ = uRIResponseGetMimeType + -- method URIResponse::get_status_code -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -316,19 +370,22 @@ uRIResponseGetStatusCode :: (MonadIO m, URIResponseK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result uRIResponseGetStatusCode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_response_get_status_code _obj' touchManagedPtr _obj return result +data URIResponseGetStatusCodeMethodInfo +instance (signature ~ (m Word32), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetStatusCodeMethodInfo a signature where + overloadedMethod _ = uRIResponseGetStatusCode + -- method URIResponse::get_suggested_filename -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -340,8 +397,8 @@ uRIResponseGetSuggestedFilename :: (MonadIO m, URIResponseK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uRIResponseGetSuggestedFilename _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_response_get_suggested_filename _obj' @@ -350,11 +407,14 @@ touchManagedPtr _obj return result' +data URIResponseGetSuggestedFilenameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetSuggestedFilenameMethodInfo a signature where + overloadedMethod _ = uRIResponseGetSuggestedFilename + -- method URIResponse::get_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -366,8 +426,8 @@ uRIResponseGetUri :: (MonadIO m, URIResponseK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uRIResponseGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_response_get_uri _obj' @@ -375,5 +435,9 @@ result' <- cstringToText result touchManagedPtr _obj return result' + +data URIResponseGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetUriMethodInfo a signature where + overloadedMethod _ = uRIResponseGetUri diff --git a/GI/WebKit2/Objects/URIResponse.hs-boot b/GI/WebKit2/Objects/URIResponse.hs-boot --- a/GI/WebKit2/Objects/URIResponse.hs-boot +++ b/GI/WebKit2/Objects/URIResponse.hs-boot @@ -17,3 +17,9 @@ data URIResponseStatusCodePropertyInfo data URIResponseSuggestedFilenamePropertyInfo data URIResponseUriPropertyInfo +data URIResponseGetContentLengthMethodInfo +data URIResponseGetHttpHeadersMethodInfo +data URIResponseGetMimeTypeMethodInfo +data URIResponseGetStatusCodeMethodInfo +data URIResponseGetSuggestedFilenameMethodInfo +data URIResponseGetUriMethodInfo diff --git a/GI/WebKit2/Objects/URISchemeRequest.hs b/GI/WebKit2/Objects/URISchemeRequest.hs --- a/GI/WebKit2/Objects/URISchemeRequest.hs +++ b/GI/WebKit2/Objects/URISchemeRequest.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** uRISchemeRequestFinish + URISchemeRequestFinishMethodInfo , uRISchemeRequestFinish , -- ** uRISchemeRequestFinishError + URISchemeRequestFinishErrorMethodInfo , uRISchemeRequestFinishError , -- ** uRISchemeRequestGetPath + URISchemeRequestGetPathMethodInfo , uRISchemeRequestGetPath , -- ** uRISchemeRequestGetScheme + URISchemeRequestGetSchemeMethodInfo , uRISchemeRequestGetScheme , -- ** uRISchemeRequestGetUri + URISchemeRequestGetUriMethodInfo , uRISchemeRequestGetUri , -- ** uRISchemeRequestGetWebView + URISchemeRequestGetWebViewMethodInfo , uRISchemeRequestGetWebView , @@ -77,17 +84,55 @@ noURISchemeRequest :: Maybe URISchemeRequest noURISchemeRequest = Nothing +type family ResolveURISchemeRequestMethod (t :: Symbol) (o :: *) :: * where + ResolveURISchemeRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveURISchemeRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveURISchemeRequestMethod "finish" o = URISchemeRequestFinishMethodInfo + ResolveURISchemeRequestMethod "finishError" o = URISchemeRequestFinishErrorMethodInfo + ResolveURISchemeRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveURISchemeRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveURISchemeRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveURISchemeRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveURISchemeRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveURISchemeRequestMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveURISchemeRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveURISchemeRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveURISchemeRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveURISchemeRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveURISchemeRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveURISchemeRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveURISchemeRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveURISchemeRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveURISchemeRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveURISchemeRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveURISchemeRequestMethod "getPath" o = URISchemeRequestGetPathMethodInfo + ResolveURISchemeRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveURISchemeRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveURISchemeRequestMethod "getScheme" o = URISchemeRequestGetSchemeMethodInfo + ResolveURISchemeRequestMethod "getUri" o = URISchemeRequestGetUriMethodInfo + ResolveURISchemeRequestMethod "getWebView" o = URISchemeRequestGetWebViewMethodInfo + ResolveURISchemeRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveURISchemeRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveURISchemeRequestMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, MethodInfo info URISchemeRequest p) => IsLabelProxy t (URISchemeRequest -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, MethodInfo info URISchemeRequest p) => IsLabel t (URISchemeRequest -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList URISchemeRequest = URISchemeRequestAttributeList type URISchemeRequestAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList URISchemeRequest = URISchemeRequestSignalList -type URISchemeRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type URISchemeRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method URISchemeRequest::finish -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -102,30 +147,33 @@ uRISchemeRequestFinish :: (MonadIO m, URISchemeRequestK a, Gio.InputStreamK b) => - a -> -- _obj - b -> -- stream - Int64 -> -- stream_length - Maybe (T.Text) -> -- mime_type - m () -uRISchemeRequestFinish _obj stream stream_length mime_type = liftIO $ do + a -- _obj + -> b -- stream + -> Int64 -- streamLength + -> Maybe (T.Text) -- mimeType + -> m () -- result +uRISchemeRequestFinish _obj stream streamLength mimeType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let stream' = unsafeManagedPtrCastPtr stream - maybeMime_type <- case mime_type of + maybeMimeType <- case mimeType of Nothing -> return nullPtr - Just jMime_type -> do - jMime_type' <- textToCString jMime_type - return jMime_type' - webkit_uri_scheme_request_finish _obj' stream' stream_length maybeMime_type + Just jMimeType -> do + jMimeType' <- textToCString jMimeType + return jMimeType' + webkit_uri_scheme_request_finish _obj' stream' streamLength maybeMimeType touchManagedPtr _obj touchManagedPtr stream - freeMem maybeMime_type + freeMem maybeMimeType return () +data URISchemeRequestFinishMethodInfo +instance (signature ~ (b -> Int64 -> Maybe (T.Text) -> m ()), MonadIO m, URISchemeRequestK a, Gio.InputStreamK b) => MethodInfo URISchemeRequestFinishMethodInfo a signature where + overloadedMethod _ = uRISchemeRequestFinish + -- method URISchemeRequest::finish_error -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -138,9 +186,9 @@ uRISchemeRequestFinishError :: (MonadIO m, URISchemeRequestK a) => - a -> -- _obj - GError -> -- error - m () + a -- _obj + -> GError -- error_ + -> m () -- result uRISchemeRequestFinishError _obj error_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let error_' = unsafeManagedPtrGetPtr error_ @@ -149,11 +197,14 @@ touchManagedPtr error_ return () +data URISchemeRequestFinishErrorMethodInfo +instance (signature ~ (GError -> m ()), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestFinishErrorMethodInfo a signature where + overloadedMethod _ = uRISchemeRequestFinishError + -- method URISchemeRequest::get_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -165,8 +216,8 @@ uRISchemeRequestGetPath :: (MonadIO m, URISchemeRequestK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uRISchemeRequestGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_scheme_request_get_path _obj' @@ -175,11 +226,14 @@ touchManagedPtr _obj return result' +data URISchemeRequestGetPathMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetPathMethodInfo a signature where + overloadedMethod _ = uRISchemeRequestGetPath + -- method URISchemeRequest::get_scheme -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -191,8 +245,8 @@ uRISchemeRequestGetScheme :: (MonadIO m, URISchemeRequestK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uRISchemeRequestGetScheme _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_scheme_request_get_scheme _obj' @@ -201,11 +255,14 @@ touchManagedPtr _obj return result' +data URISchemeRequestGetSchemeMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetSchemeMethodInfo a signature where + overloadedMethod _ = uRISchemeRequestGetScheme + -- method URISchemeRequest::get_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -217,8 +274,8 @@ uRISchemeRequestGetUri :: (MonadIO m, URISchemeRequestK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uRISchemeRequestGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_scheme_request_get_uri _obj' @@ -227,11 +284,14 @@ touchManagedPtr _obj return result' +data URISchemeRequestGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetUriMethodInfo a signature where + overloadedMethod _ = uRISchemeRequestGetUri + -- method URISchemeRequest::get_web_view -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "WebView" -- throws : False -- Skip return : False @@ -243,8 +303,8 @@ uRISchemeRequestGetWebView :: (MonadIO m, URISchemeRequestK a) => - a -> -- _obj - m WebView + a -- _obj + -> m WebView -- result uRISchemeRequestGetWebView _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_uri_scheme_request_get_web_view _obj' @@ -252,5 +312,9 @@ result' <- (newObject WebView) result touchManagedPtr _obj return result' + +data URISchemeRequestGetWebViewMethodInfo +instance (signature ~ (m WebView), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetWebViewMethodInfo a signature where + overloadedMethod _ = uRISchemeRequestGetWebView diff --git a/GI/WebKit2/Objects/URISchemeRequest.hs-boot b/GI/WebKit2/Objects/URISchemeRequest.hs-boot --- a/GI/WebKit2/Objects/URISchemeRequest.hs-boot +++ b/GI/WebKit2/Objects/URISchemeRequest.hs-boot @@ -11,3 +11,9 @@ instance GObject URISchemeRequest where class GObject o => URISchemeRequestK o instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o +data URISchemeRequestFinishMethodInfo +data URISchemeRequestFinishErrorMethodInfo +data URISchemeRequestGetPathMethodInfo +data URISchemeRequestGetSchemeMethodInfo +data URISchemeRequestGetUriMethodInfo +data URISchemeRequestGetWebViewMethodInfo diff --git a/GI/WebKit2/Objects/UserContentManager.hs b/GI/WebKit2/Objects/UserContentManager.hs --- a/GI/WebKit2/Objects/UserContentManager.hs +++ b/GI/WebKit2/Objects/UserContentManager.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** userContentManagerAddScript + UserContentManagerAddScriptMethodInfo , userContentManagerAddScript , -- ** userContentManagerAddStyleSheet + UserContentManagerAddStyleSheetMethodInfo, userContentManagerAddStyleSheet , @@ -29,18 +32,22 @@ -- ** userContentManagerRegisterScriptMessageHandler + UserContentManagerRegisterScriptMessageHandlerMethodInfo, userContentManagerRegisterScriptMessageHandler, -- ** userContentManagerRemoveAllScripts + UserContentManagerRemoveAllScriptsMethodInfo, userContentManagerRemoveAllScripts , -- ** userContentManagerRemoveAllStyleSheets + UserContentManagerRemoveAllStyleSheetsMethodInfo, userContentManagerRemoveAllStyleSheets , -- ** userContentManagerUnregisterScriptMessageHandler + UserContentManagerUnregisterScriptMessageHandlerMethodInfo, userContentManagerUnregisterScriptMessageHandler, @@ -95,6 +102,45 @@ noUserContentManager :: Maybe UserContentManager noUserContentManager = Nothing +type family ResolveUserContentManagerMethod (t :: Symbol) (o :: *) :: * where + ResolveUserContentManagerMethod "addScript" o = UserContentManagerAddScriptMethodInfo + ResolveUserContentManagerMethod "addStyleSheet" o = UserContentManagerAddStyleSheetMethodInfo + ResolveUserContentManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveUserContentManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveUserContentManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveUserContentManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveUserContentManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveUserContentManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveUserContentManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveUserContentManagerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveUserContentManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveUserContentManagerMethod "registerScriptMessageHandler" o = UserContentManagerRegisterScriptMessageHandlerMethodInfo + ResolveUserContentManagerMethod "removeAllScripts" o = UserContentManagerRemoveAllScriptsMethodInfo + ResolveUserContentManagerMethod "removeAllStyleSheets" o = UserContentManagerRemoveAllStyleSheetsMethodInfo + ResolveUserContentManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveUserContentManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveUserContentManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveUserContentManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveUserContentManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveUserContentManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveUserContentManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveUserContentManagerMethod "unregisterScriptMessageHandler" o = UserContentManagerUnregisterScriptMessageHandlerMethodInfo + ResolveUserContentManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveUserContentManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveUserContentManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveUserContentManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveUserContentManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveUserContentManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveUserContentManagerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveUserContentManagerMethod t UserContentManager, MethodInfo info UserContentManager p) => IsLabelProxy t (UserContentManager -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveUserContentManagerMethod t UserContentManager, MethodInfo info UserContentManager p) => IsLabel t (UserContentManager -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal UserContentManager::script-message-received type UserContentManagerScriptMessageReceivedCallback = JavascriptResult -> @@ -122,9 +168,9 @@ Ptr JavascriptResult -> Ptr () -> IO () -userContentManagerScriptMessageReceivedCallbackWrapper _cb _ js_result _ = do - js_result' <- (newBoxed JavascriptResult) js_result - _cb js_result' +userContentManagerScriptMessageReceivedCallbackWrapper _cb _ jsResult _ = do + jsResult' <- (newBoxed JavascriptResult) jsResult + _cb jsResult' onUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId onUserContentManagerScriptMessageReceived obj cb = liftIO $ connectUserContentManagerScriptMessageReceived obj cb SignalConnectBefore @@ -146,13 +192,12 @@ connectSignal _ = connectUserContentManagerScriptMessageReceived type instance SignalList UserContentManager = UserContentManagerSignalList -type UserContentManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("script-message-received", UserContentManagerScriptMessageReceivedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UserContentManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("scriptMessageReceived", UserContentManagerScriptMessageReceivedSignalInfo)] :: [(Symbol, *)]) -- method UserContentManager::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "WebKit2" "UserContentManager" -- throws : False -- Skip return : False @@ -163,7 +208,7 @@ userContentManagerNew :: (MonadIO m) => - m UserContentManager + m UserContentManager -- result userContentManagerNew = liftIO $ do result <- webkit_user_content_manager_new checkUnexpectedReturnNULL "webkit_user_content_manager_new" result @@ -172,9 +217,8 @@ -- method UserContentManager::add_script -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -187,9 +231,9 @@ userContentManagerAddScript :: (MonadIO m, UserContentManagerK a) => - a -> -- _obj - UserScript -> -- script - m () + a -- _obj + -> UserScript -- script + -> m () -- result userContentManagerAddScript _obj script = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let script' = unsafeManagedPtrGetPtr script @@ -198,11 +242,14 @@ touchManagedPtr script return () +data UserContentManagerAddScriptMethodInfo +instance (signature ~ (UserScript -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerAddScriptMethodInfo a signature where + overloadedMethod _ = userContentManagerAddScript + -- method UserContentManager::add_style_sheet -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stylesheet", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stylesheet", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stylesheet", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -215,9 +262,9 @@ userContentManagerAddStyleSheet :: (MonadIO m, UserContentManagerK a) => - a -> -- _obj - UserStyleSheet -> -- stylesheet - m () + a -- _obj + -> UserStyleSheet -- stylesheet + -> m () -- result userContentManagerAddStyleSheet _obj stylesheet = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let stylesheet' = unsafeManagedPtrGetPtr stylesheet @@ -226,11 +273,14 @@ touchManagedPtr stylesheet return () +data UserContentManagerAddStyleSheetMethodInfo +instance (signature ~ (UserStyleSheet -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerAddStyleSheetMethodInfo a signature where + overloadedMethod _ = userContentManagerAddStyleSheet + -- method UserContentManager::register_script_message_handler -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", 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" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -243,9 +293,9 @@ userContentManagerRegisterScriptMessageHandler :: (MonadIO m, UserContentManagerK a) => - a -> -- _obj - T.Text -> -- name - m Bool + a -- _obj + -> T.Text -- name + -> m Bool -- result userContentManagerRegisterScriptMessageHandler _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -255,11 +305,14 @@ freeMem name' return result' +data UserContentManagerRegisterScriptMessageHandlerMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRegisterScriptMessageHandlerMethodInfo a signature where + overloadedMethod _ = userContentManagerRegisterScriptMessageHandler + -- method UserContentManager::remove_all_scripts -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -271,19 +324,22 @@ userContentManagerRemoveAllScripts :: (MonadIO m, UserContentManagerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result userContentManagerRemoveAllScripts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_user_content_manager_remove_all_scripts _obj' touchManagedPtr _obj return () +data UserContentManagerRemoveAllScriptsMethodInfo +instance (signature ~ (m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRemoveAllScriptsMethodInfo a signature where + overloadedMethod _ = userContentManagerRemoveAllScripts + -- method UserContentManager::remove_all_style_sheets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -295,19 +351,22 @@ userContentManagerRemoveAllStyleSheets :: (MonadIO m, UserContentManagerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result userContentManagerRemoveAllStyleSheets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_user_content_manager_remove_all_style_sheets _obj' touchManagedPtr _obj return () +data UserContentManagerRemoveAllStyleSheetsMethodInfo +instance (signature ~ (m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRemoveAllStyleSheetsMethodInfo a signature where + overloadedMethod _ = userContentManagerRemoveAllStyleSheets + -- method UserContentManager::unregister_script_message_handler -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", 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" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -320,9 +379,9 @@ userContentManagerUnregisterScriptMessageHandler :: (MonadIO m, UserContentManagerK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result userContentManagerUnregisterScriptMessageHandler _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -330,5 +389,9 @@ touchManagedPtr _obj freeMem name' return () + +data UserContentManagerUnregisterScriptMessageHandlerMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerUnregisterScriptMessageHandlerMethodInfo a signature where + overloadedMethod _ = userContentManagerUnregisterScriptMessageHandler diff --git a/GI/WebKit2/Objects/UserContentManager.hs-boot b/GI/WebKit2/Objects/UserContentManager.hs-boot --- a/GI/WebKit2/Objects/UserContentManager.hs-boot +++ b/GI/WebKit2/Objects/UserContentManager.hs-boot @@ -12,3 +12,9 @@ class GObject o => UserContentManagerK o instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o data UserContentManagerScriptMessageReceivedSignalInfo +data UserContentManagerAddScriptMethodInfo +data UserContentManagerAddStyleSheetMethodInfo +data UserContentManagerRegisterScriptMessageHandlerMethodInfo +data UserContentManagerRemoveAllScriptsMethodInfo +data UserContentManagerRemoveAllStyleSheetsMethodInfo +data UserContentManagerUnregisterScriptMessageHandlerMethodInfo diff --git a/GI/WebKit2/Objects/UserMediaPermissionRequest.hs b/GI/WebKit2/Objects/UserMediaPermissionRequest.hs --- a/GI/WebKit2/Objects/UserMediaPermissionRequest.hs +++ b/GI/WebKit2/Objects/UserMediaPermissionRequest.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -62,6 +63,41 @@ noUserMediaPermissionRequest :: Maybe UserMediaPermissionRequest noUserMediaPermissionRequest = Nothing +type family ResolveUserMediaPermissionRequestMethod (t :: Symbol) (o :: *) :: * where + ResolveUserMediaPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo + ResolveUserMediaPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveUserMediaPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveUserMediaPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo + ResolveUserMediaPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveUserMediaPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveUserMediaPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveUserMediaPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveUserMediaPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveUserMediaPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveUserMediaPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveUserMediaPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveUserMediaPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveUserMediaPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveUserMediaPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveUserMediaPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveUserMediaPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveUserMediaPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveUserMediaPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveUserMediaPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveUserMediaPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveUserMediaPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveUserMediaPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveUserMediaPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveUserMediaPermissionRequestMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveUserMediaPermissionRequestMethod t UserMediaPermissionRequest, MethodInfo info UserMediaPermissionRequest p) => IsLabelProxy t (UserMediaPermissionRequest -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveUserMediaPermissionRequestMethod t UserMediaPermissionRequest, MethodInfo info UserMediaPermissionRequest p) => IsLabel t (UserMediaPermissionRequest -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "is-for-audio-device" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] @@ -75,7 +111,7 @@ type AttrSetTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = (~) () type AttrBaseTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = UserMediaPermissionRequestK type AttrGetType UserMediaPermissionRequestIsForAudioDevicePropertyInfo = Bool - type AttrLabel UserMediaPermissionRequestIsForAudioDevicePropertyInfo = "UserMediaPermissionRequest::is-for-audio-device" + type AttrLabel UserMediaPermissionRequestIsForAudioDevicePropertyInfo = "is-for-audio-device" attrGet _ = getUserMediaPermissionRequestIsForAudioDevice attrSet _ = undefined attrConstruct _ = undefined @@ -93,15 +129,15 @@ type AttrSetTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = (~) () type AttrBaseTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = UserMediaPermissionRequestK type AttrGetType UserMediaPermissionRequestIsForVideoDevicePropertyInfo = Bool - type AttrLabel UserMediaPermissionRequestIsForVideoDevicePropertyInfo = "UserMediaPermissionRequest::is-for-video-device" + type AttrLabel UserMediaPermissionRequestIsForVideoDevicePropertyInfo = "is-for-video-device" attrGet _ = getUserMediaPermissionRequestIsForVideoDevice attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList UserMediaPermissionRequest = UserMediaPermissionRequestAttributeList -type UserMediaPermissionRequestAttributeList = ('[ '("is-for-audio-device", UserMediaPermissionRequestIsForAudioDevicePropertyInfo), '("is-for-video-device", UserMediaPermissionRequestIsForVideoDevicePropertyInfo)] :: [(Symbol, *)]) +type UserMediaPermissionRequestAttributeList = ('[ '("isForAudioDevice", UserMediaPermissionRequestIsForAudioDevicePropertyInfo), '("isForVideoDevice", UserMediaPermissionRequestIsForVideoDevicePropertyInfo)] :: [(Symbol, *)]) type instance SignalList UserMediaPermissionRequest = UserMediaPermissionRequestSignalList -type UserMediaPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UserMediaPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit2/Objects/WebContext.hs b/GI/WebKit2/Objects/WebContext.hs --- a/GI/WebKit2/Objects/WebContext.hs +++ b/GI/WebKit2/Objects/WebContext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** webContextAllowTlsCertificateForHost + WebContextAllowTlsCertificateForHostMethodInfo, webContextAllowTlsCertificateForHost , -- ** webContextClearCache + WebContextClearCacheMethodInfo , webContextClearCache , -- ** webContextDownloadUri + WebContextDownloadUriMethodInfo , webContextDownloadUri , -- ** webContextGetCacheModel + WebContextGetCacheModelMethodInfo , webContextGetCacheModel , -- ** webContextGetCookieManager + WebContextGetCookieManagerMethodInfo , webContextGetCookieManager , @@ -41,46 +47,57 @@ -- ** webContextGetFaviconDatabase + WebContextGetFaviconDatabaseMethodInfo , webContextGetFaviconDatabase , -- ** webContextGetFaviconDatabaseDirectory + WebContextGetFaviconDatabaseDirectoryMethodInfo, webContextGetFaviconDatabaseDirectory , -- ** webContextGetPlugins + WebContextGetPluginsMethodInfo , webContextGetPlugins , -- ** webContextGetPluginsFinish + WebContextGetPluginsFinishMethodInfo , webContextGetPluginsFinish , -- ** webContextGetProcessModel + WebContextGetProcessModelMethodInfo , webContextGetProcessModel , -- ** webContextGetSecurityManager + WebContextGetSecurityManagerMethodInfo , webContextGetSecurityManager , -- ** webContextGetSpellCheckingEnabled + WebContextGetSpellCheckingEnabledMethodInfo, webContextGetSpellCheckingEnabled , -- ** webContextGetSpellCheckingLanguages + WebContextGetSpellCheckingLanguagesMethodInfo, webContextGetSpellCheckingLanguages , -- ** webContextGetTlsErrorsPolicy + WebContextGetTlsErrorsPolicyMethodInfo , webContextGetTlsErrorsPolicy , -- ** webContextGetWebProcessCountLimit + WebContextGetWebProcessCountLimitMethodInfo, webContextGetWebProcessCountLimit , -- ** webContextGetWebsiteDataManager + WebContextGetWebsiteDataManagerMethodInfo, webContextGetWebsiteDataManager , @@ -93,58 +110,72 @@ -- ** webContextPrefetchDns + WebContextPrefetchDnsMethodInfo , webContextPrefetchDns , -- ** webContextRegisterUriScheme + WebContextRegisterUriSchemeMethodInfo , webContextRegisterUriScheme , -- ** webContextSetAdditionalPluginsDirectory + WebContextSetAdditionalPluginsDirectoryMethodInfo, webContextSetAdditionalPluginsDirectory , -- ** webContextSetCacheModel + WebContextSetCacheModelMethodInfo , webContextSetCacheModel , -- ** webContextSetDiskCacheDirectory + WebContextSetDiskCacheDirectoryMethodInfo, webContextSetDiskCacheDirectory , -- ** webContextSetFaviconDatabaseDirectory + WebContextSetFaviconDatabaseDirectoryMethodInfo, webContextSetFaviconDatabaseDirectory , -- ** webContextSetPreferredLanguages + WebContextSetPreferredLanguagesMethodInfo, webContextSetPreferredLanguages , -- ** webContextSetProcessModel + WebContextSetProcessModelMethodInfo , webContextSetProcessModel , -- ** webContextSetSpellCheckingEnabled + WebContextSetSpellCheckingEnabledMethodInfo, webContextSetSpellCheckingEnabled , -- ** webContextSetSpellCheckingLanguages + WebContextSetSpellCheckingLanguagesMethodInfo, webContextSetSpellCheckingLanguages , -- ** webContextSetTlsErrorsPolicy + WebContextSetTlsErrorsPolicyMethodInfo , webContextSetTlsErrorsPolicy , -- ** webContextSetWebExtensionsDirectory + WebContextSetWebExtensionsDirectoryMethodInfo, webContextSetWebExtensionsDirectory , -- ** webContextSetWebExtensionsInitializationUserData + WebContextSetWebExtensionsInitializationUserDataMethodInfo, webContextSetWebExtensionsInitializationUserData, -- ** webContextSetWebProcessCountLimit + WebContextSetWebProcessCountLimitMethodInfo, webContextSetWebProcessCountLimit , @@ -228,6 +259,69 @@ noWebContext :: Maybe WebContext noWebContext = Nothing +type family ResolveWebContextMethod (t :: Symbol) (o :: *) :: * where + ResolveWebContextMethod "allowTlsCertificateForHost" o = WebContextAllowTlsCertificateForHostMethodInfo + ResolveWebContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWebContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWebContextMethod "clearCache" o = WebContextClearCacheMethodInfo + ResolveWebContextMethod "downloadUri" o = WebContextDownloadUriMethodInfo + ResolveWebContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWebContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWebContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWebContextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWebContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWebContextMethod "prefetchDns" o = WebContextPrefetchDnsMethodInfo + ResolveWebContextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWebContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWebContextMethod "registerUriScheme" o = WebContextRegisterUriSchemeMethodInfo + ResolveWebContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWebContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWebContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWebContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWebContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWebContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWebContextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWebContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWebContextMethod "getCacheModel" o = WebContextGetCacheModelMethodInfo + ResolveWebContextMethod "getCookieManager" o = WebContextGetCookieManagerMethodInfo + ResolveWebContextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWebContextMethod "getFaviconDatabase" o = WebContextGetFaviconDatabaseMethodInfo + ResolveWebContextMethod "getFaviconDatabaseDirectory" o = WebContextGetFaviconDatabaseDirectoryMethodInfo + ResolveWebContextMethod "getPlugins" o = WebContextGetPluginsMethodInfo + ResolveWebContextMethod "getPluginsFinish" o = WebContextGetPluginsFinishMethodInfo + ResolveWebContextMethod "getProcessModel" o = WebContextGetProcessModelMethodInfo + ResolveWebContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWebContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWebContextMethod "getSecurityManager" o = WebContextGetSecurityManagerMethodInfo + ResolveWebContextMethod "getSpellCheckingEnabled" o = WebContextGetSpellCheckingEnabledMethodInfo + ResolveWebContextMethod "getSpellCheckingLanguages" o = WebContextGetSpellCheckingLanguagesMethodInfo + ResolveWebContextMethod "getTlsErrorsPolicy" o = WebContextGetTlsErrorsPolicyMethodInfo + ResolveWebContextMethod "getWebProcessCountLimit" o = WebContextGetWebProcessCountLimitMethodInfo + ResolveWebContextMethod "getWebsiteDataManager" o = WebContextGetWebsiteDataManagerMethodInfo + ResolveWebContextMethod "setAdditionalPluginsDirectory" o = WebContextSetAdditionalPluginsDirectoryMethodInfo + ResolveWebContextMethod "setCacheModel" o = WebContextSetCacheModelMethodInfo + ResolveWebContextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWebContextMethod "setDiskCacheDirectory" o = WebContextSetDiskCacheDirectoryMethodInfo + ResolveWebContextMethod "setFaviconDatabaseDirectory" o = WebContextSetFaviconDatabaseDirectoryMethodInfo + ResolveWebContextMethod "setPreferredLanguages" o = WebContextSetPreferredLanguagesMethodInfo + ResolveWebContextMethod "setProcessModel" o = WebContextSetProcessModelMethodInfo + ResolveWebContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWebContextMethod "setSpellCheckingEnabled" o = WebContextSetSpellCheckingEnabledMethodInfo + ResolveWebContextMethod "setSpellCheckingLanguages" o = WebContextSetSpellCheckingLanguagesMethodInfo + ResolveWebContextMethod "setTlsErrorsPolicy" o = WebContextSetTlsErrorsPolicyMethodInfo + ResolveWebContextMethod "setWebExtensionsDirectory" o = WebContextSetWebExtensionsDirectoryMethodInfo + ResolveWebContextMethod "setWebExtensionsInitializationUserData" o = WebContextSetWebExtensionsInitializationUserDataMethodInfo + ResolveWebContextMethod "setWebProcessCountLimit" o = WebContextSetWebProcessCountLimitMethodInfo + ResolveWebContextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWebContextMethod t WebContext, MethodInfo info WebContext p) => IsLabelProxy t (WebContext -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWebContextMethod t WebContext, MethodInfo info WebContext p) => IsLabel t (WebContext -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal WebContext::download-started type WebContextDownloadStartedCallback = Download -> @@ -324,7 +418,7 @@ type AttrSetTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = WebContextK type AttrGetType WebContextLocalStorageDirectoryPropertyInfo = T.Text - type AttrLabel WebContextLocalStorageDirectoryPropertyInfo = "WebContext::local-storage-directory" + type AttrLabel WebContextLocalStorageDirectoryPropertyInfo = "local-storage-directory" attrGet _ = getWebContextLocalStorageDirectory attrSet _ = undefined attrConstruct _ = constructWebContextLocalStorageDirectory @@ -345,13 +439,13 @@ type AttrSetTypeConstraint WebContextWebsiteDataManagerPropertyInfo = WebsiteDataManagerK type AttrBaseTypeConstraint WebContextWebsiteDataManagerPropertyInfo = WebContextK type AttrGetType WebContextWebsiteDataManagerPropertyInfo = WebsiteDataManager - type AttrLabel WebContextWebsiteDataManagerPropertyInfo = "WebContext::website-data-manager" + type AttrLabel WebContextWebsiteDataManagerPropertyInfo = "website-data-manager" attrGet _ = getWebContextWebsiteDataManager attrSet _ = undefined attrConstruct _ = constructWebContextWebsiteDataManager type instance AttributeList WebContext = WebContextAttributeList -type WebContextAttributeList = ('[ '("local-storage-directory", WebContextLocalStorageDirectoryPropertyInfo), '("website-data-manager", WebContextWebsiteDataManagerPropertyInfo)] :: [(Symbol, *)]) +type WebContextAttributeList = ('[ '("localStorageDirectory", WebContextLocalStorageDirectoryPropertyInfo), '("websiteDataManager", WebContextWebsiteDataManagerPropertyInfo)] :: [(Symbol, *)]) data WebContextDownloadStartedSignalInfo instance SignalInfo WebContextDownloadStartedSignalInfo where @@ -364,13 +458,12 @@ connectSignal _ = connectWebContextInitializeWebExtensions type instance SignalList WebContext = WebContextSignalList -type WebContextSignalList = ('[ '("download-started", WebContextDownloadStartedSignalInfo), '("initialize-web-extensions", WebContextInitializeWebExtensionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WebContextSignalList = ('[ '("downloadStarted", WebContextDownloadStartedSignalInfo), '("initializeWebExtensions", WebContextInitializeWebExtensionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method WebContext::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "WebKit2" "WebContext" -- throws : False -- Skip return : False @@ -381,7 +474,7 @@ webContextNew :: (MonadIO m) => - m WebContext + m WebContext -- result webContextNew = liftIO $ do result <- webkit_web_context_new checkUnexpectedReturnNULL "webkit_web_context_new" result @@ -390,9 +483,8 @@ -- method WebContext::new_with_website_data_manager -- method type : Constructor --- Args : [Arg {argName = "manager", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "manager", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "manager", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "WebContext" -- throws : False -- Skip return : False @@ -404,8 +496,8 @@ webContextNewWithWebsiteDataManager :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- manager - m WebContext + a -- manager + -> m WebContext -- result webContextNewWithWebsiteDataManager manager = liftIO $ do let manager' = unsafeManagedPtrCastPtr manager result <- webkit_web_context_new_with_website_data_manager manager' @@ -416,9 +508,8 @@ -- method WebContext::allow_tls_certificate_for_host -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -432,10 +523,10 @@ webContextAllowTlsCertificateForHost :: (MonadIO m, WebContextK a, Gio.TlsCertificateK b) => - a -> -- _obj - b -> -- certificate - T.Text -> -- host - m () + a -- _obj + -> b -- certificate + -> T.Text -- host + -> m () -- result webContextAllowTlsCertificateForHost _obj certificate host = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let certificate' = unsafeManagedPtrCastPtr certificate @@ -446,11 +537,14 @@ freeMem host' return () +data WebContextAllowTlsCertificateForHostMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, WebContextK a, Gio.TlsCertificateK b) => MethodInfo WebContextAllowTlsCertificateForHostMethodInfo a signature where + overloadedMethod _ = webContextAllowTlsCertificateForHost + -- method WebContext::clear_cache -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -462,19 +556,22 @@ webContextClearCache :: (MonadIO m, WebContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result webContextClearCache _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_web_context_clear_cache _obj' touchManagedPtr _obj return () +data WebContextClearCacheMethodInfo +instance (signature ~ (m ()), MonadIO m, WebContextK a) => MethodInfo WebContextClearCacheMethodInfo a signature where + overloadedMethod _ = webContextClearCache + -- method WebContext::download_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", 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" "WebContext", 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" "WebContext", 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 : TInterface "WebKit2" "Download" -- throws : False -- Skip return : False @@ -487,9 +584,9 @@ webContextDownloadUri :: (MonadIO m, WebContextK a) => - a -> -- _obj - T.Text -> -- uri - m Download + a -- _obj + -> T.Text -- uri + -> m Download -- result webContextDownloadUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -500,11 +597,14 @@ freeMem uri' return result' +data WebContextDownloadUriMethodInfo +instance (signature ~ (T.Text -> m Download), MonadIO m, WebContextK a) => MethodInfo WebContextDownloadUriMethodInfo a signature where + overloadedMethod _ = webContextDownloadUri + -- method WebContext::get_cache_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "CacheModel" -- throws : False -- Skip return : False @@ -516,8 +616,8 @@ webContextGetCacheModel :: (MonadIO m, WebContextK a) => - a -> -- _obj - m CacheModel + a -- _obj + -> m CacheModel -- result webContextGetCacheModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_cache_model _obj' @@ -525,11 +625,14 @@ touchManagedPtr _obj return result' +data WebContextGetCacheModelMethodInfo +instance (signature ~ (m CacheModel), MonadIO m, WebContextK a) => MethodInfo WebContextGetCacheModelMethodInfo a signature where + overloadedMethod _ = webContextGetCacheModel + -- method WebContext::get_cookie_manager -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "CookieManager" -- throws : False -- Skip return : False @@ -541,8 +644,8 @@ webContextGetCookieManager :: (MonadIO m, WebContextK a) => - a -> -- _obj - m CookieManager + a -- _obj + -> m CookieManager -- result webContextGetCookieManager _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_cookie_manager _obj' @@ -551,11 +654,14 @@ touchManagedPtr _obj return result' +data WebContextGetCookieManagerMethodInfo +instance (signature ~ (m CookieManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetCookieManagerMethodInfo a signature where + overloadedMethod _ = webContextGetCookieManager + -- method WebContext::get_favicon_database -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "FaviconDatabase" -- throws : False -- Skip return : False @@ -567,8 +673,8 @@ webContextGetFaviconDatabase :: (MonadIO m, WebContextK a) => - a -> -- _obj - m FaviconDatabase + a -- _obj + -> m FaviconDatabase -- result webContextGetFaviconDatabase _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_favicon_database _obj' @@ -577,11 +683,14 @@ touchManagedPtr _obj return result' +data WebContextGetFaviconDatabaseMethodInfo +instance (signature ~ (m FaviconDatabase), MonadIO m, WebContextK a) => MethodInfo WebContextGetFaviconDatabaseMethodInfo a signature where + overloadedMethod _ = webContextGetFaviconDatabase + -- method WebContext::get_favicon_database_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -593,8 +702,8 @@ webContextGetFaviconDatabaseDirectory :: (MonadIO m, WebContextK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result webContextGetFaviconDatabaseDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_favicon_database_directory _obj' @@ -603,11 +712,14 @@ touchManagedPtr _obj return result' +data WebContextGetFaviconDatabaseDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebContextK a) => MethodInfo WebContextGetFaviconDatabaseDirectoryMethodInfo a signature where + overloadedMethod _ = webContextGetFaviconDatabaseDirectory + -- method WebContext::get_plugins -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", 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" "WebContext", 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" "WebContext", 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 @@ -622,10 +734,10 @@ webContextGetPlugins :: (MonadIO m, WebContextK 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 webContextGetPlugins _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -640,17 +752,20 @@ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - webkit_web_context_get_plugins _obj' maybeCancellable maybeCallback user_data + let userData = nullPtr + webkit_web_context_get_plugins _obj' maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr return () +data WebContextGetPluginsMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebContextK a, Gio.CancellableK b) => MethodInfo WebContextGetPluginsMethodInfo a signature where + overloadedMethod _ = webContextGetPlugins + -- method WebContext::get_plugins_finish -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", 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" "WebContext", 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" "WebContext", 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 : TGList (TInterface "WebKit2" "Plugin") -- throws : True -- Skip return : False @@ -664,9 +779,9 @@ webContextGetPluginsFinish :: (MonadIO m, WebContextK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m [Plugin] + a -- _obj + -> b -- result_ + -> m [Plugin] -- result webContextGetPluginsFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -683,11 +798,14 @@ return () ) +data WebContextGetPluginsFinishMethodInfo +instance (signature ~ (b -> m [Plugin]), MonadIO m, WebContextK a, Gio.AsyncResultK b) => MethodInfo WebContextGetPluginsFinishMethodInfo a signature where + overloadedMethod _ = webContextGetPluginsFinish + -- method WebContext::get_process_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ProcessModel" -- throws : False -- Skip return : False @@ -699,8 +817,8 @@ webContextGetProcessModel :: (MonadIO m, WebContextK a) => - a -> -- _obj - m ProcessModel + a -- _obj + -> m ProcessModel -- result webContextGetProcessModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_process_model _obj' @@ -708,11 +826,14 @@ touchManagedPtr _obj return result' +data WebContextGetProcessModelMethodInfo +instance (signature ~ (m ProcessModel), MonadIO m, WebContextK a) => MethodInfo WebContextGetProcessModelMethodInfo a signature where + overloadedMethod _ = webContextGetProcessModel + -- method WebContext::get_security_manager -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "SecurityManager" -- throws : False -- Skip return : False @@ -724,8 +845,8 @@ webContextGetSecurityManager :: (MonadIO m, WebContextK a) => - a -> -- _obj - m SecurityManager + a -- _obj + -> m SecurityManager -- result webContextGetSecurityManager _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_security_manager _obj' @@ -734,11 +855,14 @@ touchManagedPtr _obj return result' +data WebContextGetSecurityManagerMethodInfo +instance (signature ~ (m SecurityManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetSecurityManagerMethodInfo a signature where + overloadedMethod _ = webContextGetSecurityManager + -- method WebContext::get_spell_checking_enabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -750,8 +874,8 @@ webContextGetSpellCheckingEnabled :: (MonadIO m, WebContextK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result webContextGetSpellCheckingEnabled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_spell_checking_enabled _obj' @@ -759,11 +883,14 @@ touchManagedPtr _obj return result' +data WebContextGetSpellCheckingEnabledMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebContextK a) => MethodInfo WebContextGetSpellCheckingEnabledMethodInfo a signature where + overloadedMethod _ = webContextGetSpellCheckingEnabled + -- method WebContext::get_spell_checking_languages -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -775,8 +902,8 @@ webContextGetSpellCheckingLanguages :: (MonadIO m, WebContextK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result webContextGetSpellCheckingLanguages _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_spell_checking_languages _obj' @@ -785,11 +912,14 @@ touchManagedPtr _obj return result' +data WebContextGetSpellCheckingLanguagesMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, WebContextK a) => MethodInfo WebContextGetSpellCheckingLanguagesMethodInfo a signature where + overloadedMethod _ = webContextGetSpellCheckingLanguages + -- method WebContext::get_tls_errors_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "TLSErrorsPolicy" -- throws : False -- Skip return : False @@ -801,8 +931,8 @@ webContextGetTlsErrorsPolicy :: (MonadIO m, WebContextK a) => - a -> -- _obj - m TLSErrorsPolicy + a -- _obj + -> m TLSErrorsPolicy -- result webContextGetTlsErrorsPolicy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_tls_errors_policy _obj' @@ -810,11 +940,14 @@ touchManagedPtr _obj return result' +data WebContextGetTlsErrorsPolicyMethodInfo +instance (signature ~ (m TLSErrorsPolicy), MonadIO m, WebContextK a) => MethodInfo WebContextGetTlsErrorsPolicyMethodInfo a signature where + overloadedMethod _ = webContextGetTlsErrorsPolicy + -- method WebContext::get_web_process_count_limit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -826,19 +959,22 @@ webContextGetWebProcessCountLimit :: (MonadIO m, WebContextK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result webContextGetWebProcessCountLimit _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_web_process_count_limit _obj' touchManagedPtr _obj return result +data WebContextGetWebProcessCountLimitMethodInfo +instance (signature ~ (m Word32), MonadIO m, WebContextK a) => MethodInfo WebContextGetWebProcessCountLimitMethodInfo a signature where + overloadedMethod _ = webContextGetWebProcessCountLimit + -- method WebContext::get_website_data_manager -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "WebsiteDataManager" -- throws : False -- Skip return : False @@ -850,8 +986,8 @@ webContextGetWebsiteDataManager :: (MonadIO m, WebContextK a) => - a -> -- _obj - m WebsiteDataManager + a -- _obj + -> m WebsiteDataManager -- result webContextGetWebsiteDataManager _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_context_get_website_data_manager _obj' @@ -860,11 +996,14 @@ touchManagedPtr _obj return result' +data WebContextGetWebsiteDataManagerMethodInfo +instance (signature ~ (m WebsiteDataManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetWebsiteDataManagerMethodInfo a signature where + overloadedMethod _ = webContextGetWebsiteDataManager + -- method WebContext::prefetch_dns -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -877,9 +1016,9 @@ webContextPrefetchDns :: (MonadIO m, WebContextK a) => - a -> -- _obj - T.Text -> -- hostname - m () + a -- _obj + -> T.Text -- hostname + -> m () -- result webContextPrefetchDns _obj hostname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj hostname' <- textToCString hostname @@ -888,11 +1027,14 @@ freeMem hostname' return () +data WebContextPrefetchDnsMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextPrefetchDnsMethodInfo a signature where + overloadedMethod _ = webContextPrefetchDns + -- method WebContext::register_uri_scheme -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "WebKit2" "URISchemeRequestCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "WebKit2" "URISchemeRequestCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, 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},Arg {argCName = "user_data_destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "WebKit2" "URISchemeRequestCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -908,26 +1050,29 @@ webContextRegisterUriScheme :: (MonadIO m, WebContextK a) => - a -> -- _obj - T.Text -> -- scheme - URISchemeRequestCallback -> -- callback - m () + a -- _obj + -> T.Text -- scheme + -> URISchemeRequestCallback -- callback + -> m () -- result webContextRegisterUriScheme _obj scheme callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme callback' <- mkURISchemeRequestCallback (uRISchemeRequestCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let user_data_destroy_func = safeFreeFunPtrPtr - webkit_web_context_register_uri_scheme _obj' scheme' callback' user_data user_data_destroy_func + let userData = castFunPtrToPtr callback' + let userDataDestroyFunc = safeFreeFunPtrPtr + webkit_web_context_register_uri_scheme _obj' scheme' callback' userData userDataDestroyFunc touchManagedPtr _obj freeMem scheme' return () +data WebContextRegisterUriSchemeMethodInfo +instance (signature ~ (T.Text -> URISchemeRequestCallback -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextRegisterUriSchemeMethodInfo a signature where + overloadedMethod _ = webContextRegisterUriScheme + -- method WebContext::set_additional_plugins_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -940,9 +1085,9 @@ webContextSetAdditionalPluginsDirectory :: (MonadIO m, WebContextK a) => - a -> -- _obj - T.Text -> -- directory - m () + a -- _obj + -> T.Text -- directory + -> m () -- result webContextSetAdditionalPluginsDirectory _obj directory = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj directory' <- textToCString directory @@ -951,11 +1096,14 @@ freeMem directory' return () +data WebContextSetAdditionalPluginsDirectoryMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetAdditionalPluginsDirectoryMethodInfo a signature where + overloadedMethod _ = webContextSetAdditionalPluginsDirectory + -- method WebContext::set_cache_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_model", argType = TInterface "WebKit2" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_model", argType = TInterface "WebKit2" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_model", argType = TInterface "WebKit2" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -968,21 +1116,24 @@ webContextSetCacheModel :: (MonadIO m, WebContextK a) => - a -> -- _obj - CacheModel -> -- cache_model - m () -webContextSetCacheModel _obj cache_model = liftIO $ do + a -- _obj + -> CacheModel -- cacheModel + -> m () -- result +webContextSetCacheModel _obj cacheModel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let cache_model' = (fromIntegral . fromEnum) cache_model - webkit_web_context_set_cache_model _obj' cache_model' + let cacheModel' = (fromIntegral . fromEnum) cacheModel + webkit_web_context_set_cache_model _obj' cacheModel' touchManagedPtr _obj return () +data WebContextSetCacheModelMethodInfo +instance (signature ~ (CacheModel -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetCacheModelMethodInfo a signature where + overloadedMethod _ = webContextSetCacheModel + -- method WebContext::set_disk_cache_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -995,9 +1146,9 @@ {-# DEPRECATED webContextSetDiskCacheDirectory ["(Since version 2.10.)","Use webkit_web_context_new_with_website_data_manager() instead."]#-} webContextSetDiskCacheDirectory :: (MonadIO m, WebContextK a) => - a -> -- _obj - T.Text -> -- directory - m () + a -- _obj + -> T.Text -- directory + -> m () -- result webContextSetDiskCacheDirectory _obj directory = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj directory' <- textToCString directory @@ -1006,11 +1157,14 @@ freeMem directory' return () +data WebContextSetDiskCacheDirectoryMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetDiskCacheDirectoryMethodInfo a signature where + overloadedMethod _ = webContextSetDiskCacheDirectory + -- method WebContext::set_favicon_database_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1023,9 +1177,9 @@ webContextSetFaviconDatabaseDirectory :: (MonadIO m, WebContextK a) => - a -> -- _obj - Maybe (T.Text) -> -- path - m () + a -- _obj + -> Maybe (T.Text) -- path + -> m () -- result webContextSetFaviconDatabaseDirectory _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePath <- case path of @@ -1038,11 +1192,14 @@ freeMem maybePath return () +data WebContextSetFaviconDatabaseDirectoryMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetFaviconDatabaseDirectoryMethodInfo a signature where + overloadedMethod _ = webContextSetFaviconDatabaseDirectory + -- method WebContext::set_preferred_languages -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1055,9 +1212,9 @@ webContextSetPreferredLanguages :: (MonadIO m, WebContextK a) => - a -> -- _obj - Maybe ([T.Text]) -> -- languages - m () + a -- _obj + -> Maybe ([T.Text]) -- languages + -> m () -- result webContextSetPreferredLanguages _obj languages = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLanguages <- case languages of @@ -1071,11 +1228,14 @@ freeMem maybeLanguages return () +data WebContextSetPreferredLanguagesMethodInfo +instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetPreferredLanguagesMethodInfo a signature where + overloadedMethod _ = webContextSetPreferredLanguages + -- method WebContext::set_process_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "process_model", argType = TInterface "WebKit2" "ProcessModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "process_model", argType = TInterface "WebKit2" "ProcessModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "process_model", argType = TInterface "WebKit2" "ProcessModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1088,21 +1248,24 @@ webContextSetProcessModel :: (MonadIO m, WebContextK a) => - a -> -- _obj - ProcessModel -> -- process_model - m () -webContextSetProcessModel _obj process_model = liftIO $ do + a -- _obj + -> ProcessModel -- processModel + -> m () -- result +webContextSetProcessModel _obj processModel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let process_model' = (fromIntegral . fromEnum) process_model - webkit_web_context_set_process_model _obj' process_model' + let processModel' = (fromIntegral . fromEnum) processModel + webkit_web_context_set_process_model _obj' processModel' touchManagedPtr _obj return () +data WebContextSetProcessModelMethodInfo +instance (signature ~ (ProcessModel -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetProcessModelMethodInfo a signature where + overloadedMethod _ = webContextSetProcessModel + -- method WebContext::set_spell_checking_enabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1115,9 +1278,9 @@ webContextSetSpellCheckingEnabled :: (MonadIO m, WebContextK a) => - a -> -- _obj - Bool -> -- enabled - m () + a -- _obj + -> Bool -- enabled + -> m () -- result webContextSetSpellCheckingEnabled _obj enabled = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let enabled' = (fromIntegral . fromEnum) enabled @@ -1125,11 +1288,14 @@ touchManagedPtr _obj return () +data WebContextSetSpellCheckingEnabledMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetSpellCheckingEnabledMethodInfo a signature where + overloadedMethod _ = webContextSetSpellCheckingEnabled + -- method WebContext::set_spell_checking_languages -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", 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 @@ -1142,9 +1308,9 @@ webContextSetSpellCheckingLanguages :: (MonadIO m, WebContextK a) => - a -> -- _obj - [T.Text] -> -- languages - m () + a -- _obj + -> [T.Text] -- languages + -> m () -- result webContextSetSpellCheckingLanguages _obj languages = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj languages' <- packZeroTerminatedUTF8CArray languages @@ -1154,11 +1320,14 @@ freeMem languages' return () +data WebContextSetSpellCheckingLanguagesMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetSpellCheckingLanguagesMethodInfo a signature where + overloadedMethod _ = webContextSetSpellCheckingLanguages + -- method WebContext::set_tls_errors_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit2" "TLSErrorsPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "WebKit2" "TLSErrorsPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit2" "TLSErrorsPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1171,9 +1340,9 @@ webContextSetTlsErrorsPolicy :: (MonadIO m, WebContextK a) => - a -> -- _obj - TLSErrorsPolicy -> -- policy - m () + a -- _obj + -> TLSErrorsPolicy -- policy + -> m () -- result webContextSetTlsErrorsPolicy _obj policy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let policy' = (fromIntegral . fromEnum) policy @@ -1181,11 +1350,14 @@ touchManagedPtr _obj return () +data WebContextSetTlsErrorsPolicyMethodInfo +instance (signature ~ (TLSErrorsPolicy -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetTlsErrorsPolicyMethodInfo a signature where + overloadedMethod _ = webContextSetTlsErrorsPolicy + -- method WebContext::set_web_extensions_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", 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" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1198,9 +1370,9 @@ webContextSetWebExtensionsDirectory :: (MonadIO m, WebContextK a) => - a -> -- _obj - T.Text -> -- directory - m () + a -- _obj + -> T.Text -- directory + -> m () -- result webContextSetWebExtensionsDirectory _obj directory = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj directory' <- textToCString directory @@ -1209,11 +1381,14 @@ freeMem directory' return () +data WebContextSetWebExtensionsDirectoryMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebExtensionsDirectoryMethodInfo a signature where + overloadedMethod _ = webContextSetWebExtensionsDirectory + -- method WebContext::set_web_extensions_initialization_user_data -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", 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" "WebContext", 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" "WebContext", 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 @@ -1226,21 +1401,24 @@ webContextSetWebExtensionsInitializationUserData :: (MonadIO m, WebContextK a) => - a -> -- _obj - GVariant -> -- user_data - m () -webContextSetWebExtensionsInitializationUserData _obj user_data = liftIO $ do + a -- _obj + -> GVariant -- userData + -> m () -- result +webContextSetWebExtensionsInitializationUserData _obj userData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let user_data' = unsafeManagedPtrGetPtr user_data - webkit_web_context_set_web_extensions_initialization_user_data _obj' user_data' + let userData' = unsafeManagedPtrGetPtr userData + webkit_web_context_set_web_extensions_initialization_user_data _obj' userData' touchManagedPtr _obj return () +data WebContextSetWebExtensionsInitializationUserDataMethodInfo +instance (signature ~ (GVariant -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebExtensionsInitializationUserDataMethodInfo a signature where + overloadedMethod _ = webContextSetWebExtensionsInitializationUserData + -- method WebContext::set_web_process_count_limit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebContext", 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" "WebContext", 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" "WebContext", 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 : TBasicType TVoid -- throws : False -- Skip return : False @@ -1253,20 +1431,23 @@ webContextSetWebProcessCountLimit :: (MonadIO m, WebContextK a) => - a -> -- _obj - Word32 -> -- limit - m () + a -- _obj + -> Word32 -- limit + -> m () -- result webContextSetWebProcessCountLimit _obj limit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_web_context_set_web_process_count_limit _obj' limit touchManagedPtr _obj return () +data WebContextSetWebProcessCountLimitMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebProcessCountLimitMethodInfo a signature where + overloadedMethod _ = webContextSetWebProcessCountLimit + -- method WebContext::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "WebKit2" "WebContext" -- throws : False -- Skip return : False @@ -1277,7 +1458,7 @@ webContextGetDefault :: (MonadIO m) => - m WebContext + m WebContext -- result webContextGetDefault = liftIO $ do result <- webkit_web_context_get_default checkUnexpectedReturnNULL "webkit_web_context_get_default" result diff --git a/GI/WebKit2/Objects/WebContext.hs-boot b/GI/WebKit2/Objects/WebContext.hs-boot --- a/GI/WebKit2/Objects/WebContext.hs-boot +++ b/GI/WebKit2/Objects/WebContext.hs-boot @@ -15,3 +15,33 @@ data WebContextWebsiteDataManagerPropertyInfo data WebContextDownloadStartedSignalInfo data WebContextInitializeWebExtensionsSignalInfo +data WebContextAllowTlsCertificateForHostMethodInfo +data WebContextClearCacheMethodInfo +data WebContextDownloadUriMethodInfo +data WebContextGetCacheModelMethodInfo +data WebContextGetCookieManagerMethodInfo +data WebContextGetFaviconDatabaseMethodInfo +data WebContextGetFaviconDatabaseDirectoryMethodInfo +data WebContextGetPluginsMethodInfo +data WebContextGetPluginsFinishMethodInfo +data WebContextGetProcessModelMethodInfo +data WebContextGetSecurityManagerMethodInfo +data WebContextGetSpellCheckingEnabledMethodInfo +data WebContextGetSpellCheckingLanguagesMethodInfo +data WebContextGetTlsErrorsPolicyMethodInfo +data WebContextGetWebProcessCountLimitMethodInfo +data WebContextGetWebsiteDataManagerMethodInfo +data WebContextPrefetchDnsMethodInfo +data WebContextRegisterUriSchemeMethodInfo +data WebContextSetAdditionalPluginsDirectoryMethodInfo +data WebContextSetCacheModelMethodInfo +data WebContextSetDiskCacheDirectoryMethodInfo +data WebContextSetFaviconDatabaseDirectoryMethodInfo +data WebContextSetPreferredLanguagesMethodInfo +data WebContextSetProcessModelMethodInfo +data WebContextSetSpellCheckingEnabledMethodInfo +data WebContextSetSpellCheckingLanguagesMethodInfo +data WebContextSetTlsErrorsPolicyMethodInfo +data WebContextSetWebExtensionsDirectoryMethodInfo +data WebContextSetWebExtensionsInitializationUserDataMethodInfo +data WebContextSetWebProcessCountLimitMethodInfo diff --git a/GI/WebKit2/Objects/WebInspector.hs b/GI/WebKit2/Objects/WebInspector.hs --- a/GI/WebKit2/Objects/WebInspector.hs +++ b/GI/WebKit2/Objects/WebInspector.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** webInspectorAttach + WebInspectorAttachMethodInfo , webInspectorAttach , -- ** webInspectorClose + WebInspectorCloseMethodInfo , webInspectorClose , -- ** webInspectorDetach + WebInspectorDetachMethodInfo , webInspectorDetach , -- ** webInspectorGetAttachedHeight + WebInspectorGetAttachedHeightMethodInfo , webInspectorGetAttachedHeight , -- ** webInspectorGetCanAttach + WebInspectorGetCanAttachMethodInfo , webInspectorGetCanAttach , -- ** webInspectorGetInspectedUri + WebInspectorGetInspectedUriMethodInfo , webInspectorGetInspectedUri , -- ** webInspectorGetWebView + WebInspectorGetWebViewMethodInfo , webInspectorGetWebView , -- ** webInspectorIsAttached + WebInspectorIsAttachedMethodInfo , webInspectorIsAttached , -- ** webInspectorShow + WebInspectorShowMethodInfo , webInspectorShow , @@ -169,6 +179,48 @@ noWebInspector :: Maybe WebInspector noWebInspector = Nothing +type family ResolveWebInspectorMethod (t :: Symbol) (o :: *) :: * where + ResolveWebInspectorMethod "attach" o = WebInspectorAttachMethodInfo + ResolveWebInspectorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWebInspectorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWebInspectorMethod "close" o = WebInspectorCloseMethodInfo + ResolveWebInspectorMethod "detach" o = WebInspectorDetachMethodInfo + ResolveWebInspectorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWebInspectorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWebInspectorMethod "isAttached" o = WebInspectorIsAttachedMethodInfo + ResolveWebInspectorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWebInspectorMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWebInspectorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWebInspectorMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWebInspectorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWebInspectorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWebInspectorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWebInspectorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWebInspectorMethod "show" o = WebInspectorShowMethodInfo + ResolveWebInspectorMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWebInspectorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWebInspectorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWebInspectorMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWebInspectorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWebInspectorMethod "getAttachedHeight" o = WebInspectorGetAttachedHeightMethodInfo + ResolveWebInspectorMethod "getCanAttach" o = WebInspectorGetCanAttachMethodInfo + ResolveWebInspectorMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWebInspectorMethod "getInspectedUri" o = WebInspectorGetInspectedUriMethodInfo + ResolveWebInspectorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWebInspectorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWebInspectorMethod "getWebView" o = WebInspectorGetWebViewMethodInfo + ResolveWebInspectorMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWebInspectorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWebInspectorMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabelProxy t (WebInspector -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabel t (WebInspector -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal WebInspector::attach type WebInspectorAttachCallback = IO Bool @@ -380,7 +432,7 @@ type AttrSetTypeConstraint WebInspectorAttachedHeightPropertyInfo = (~) () type AttrBaseTypeConstraint WebInspectorAttachedHeightPropertyInfo = WebInspectorK type AttrGetType WebInspectorAttachedHeightPropertyInfo = Word32 - type AttrLabel WebInspectorAttachedHeightPropertyInfo = "WebInspector::attached-height" + type AttrLabel WebInspectorAttachedHeightPropertyInfo = "attached-height" attrGet _ = getWebInspectorAttachedHeight attrSet _ = undefined attrConstruct _ = undefined @@ -398,7 +450,7 @@ type AttrSetTypeConstraint WebInspectorCanAttachPropertyInfo = (~) () type AttrBaseTypeConstraint WebInspectorCanAttachPropertyInfo = WebInspectorK type AttrGetType WebInspectorCanAttachPropertyInfo = Bool - type AttrLabel WebInspectorCanAttachPropertyInfo = "WebInspector::can-attach" + type AttrLabel WebInspectorCanAttachPropertyInfo = "can-attach" attrGet _ = getWebInspectorCanAttach attrSet _ = undefined attrConstruct _ = undefined @@ -416,13 +468,13 @@ type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text - type AttrLabel WebInspectorInspectedUriPropertyInfo = "WebInspector::inspected-uri" + type AttrLabel WebInspectorInspectedUriPropertyInfo = "inspected-uri" attrGet _ = getWebInspectorInspectedUri attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList WebInspector = WebInspectorAttributeList -type WebInspectorAttributeList = ('[ '("attached-height", WebInspectorAttachedHeightPropertyInfo), '("can-attach", WebInspectorCanAttachPropertyInfo), '("inspected-uri", WebInspectorInspectedUriPropertyInfo)] :: [(Symbol, *)]) +type WebInspectorAttributeList = ('[ '("attachedHeight", WebInspectorAttachedHeightPropertyInfo), '("canAttach", WebInspectorCanAttachPropertyInfo), '("inspectedUri", WebInspectorInspectedUriPropertyInfo)] :: [(Symbol, *)]) data WebInspectorAttachSignalInfo instance SignalInfo WebInspectorAttachSignalInfo where @@ -450,13 +502,12 @@ connectSignal _ = connectWebInspectorOpenWindow type instance SignalList WebInspector = WebInspectorSignalList -type WebInspectorSignalList = ('[ '("attach", WebInspectorAttachSignalInfo), '("bring-to-front", WebInspectorBringToFrontSignalInfo), '("closed", WebInspectorClosedSignalInfo), '("detach", WebInspectorDetachSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open-window", WebInspectorOpenWindowSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WebInspectorSignalList = ('[ '("attach", WebInspectorAttachSignalInfo), '("bringToFront", WebInspectorBringToFrontSignalInfo), '("closed", WebInspectorClosedSignalInfo), '("detach", WebInspectorDetachSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("openWindow", WebInspectorOpenWindowSignalInfo)] :: [(Symbol, *)]) -- method WebInspector::attach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -468,19 +519,22 @@ webInspectorAttach :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result webInspectorAttach _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_web_inspector_attach _obj' touchManagedPtr _obj return () +data WebInspectorAttachMethodInfo +instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorAttachMethodInfo a signature where + overloadedMethod _ = webInspectorAttach + -- method WebInspector::close -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -492,19 +546,22 @@ webInspectorClose :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result webInspectorClose _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_web_inspector_close _obj' touchManagedPtr _obj return () +data WebInspectorCloseMethodInfo +instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorCloseMethodInfo a signature where + overloadedMethod _ = webInspectorClose + -- method WebInspector::detach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -516,19 +573,22 @@ webInspectorDetach :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result webInspectorDetach _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_web_inspector_detach _obj' touchManagedPtr _obj return () +data WebInspectorDetachMethodInfo +instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorDetachMethodInfo a signature where + overloadedMethod _ = webInspectorDetach + -- method WebInspector::get_attached_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -540,19 +600,22 @@ webInspectorGetAttachedHeight :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result webInspectorGetAttachedHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_inspector_get_attached_height _obj' touchManagedPtr _obj return result +data WebInspectorGetAttachedHeightMethodInfo +instance (signature ~ (m Word32), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetAttachedHeightMethodInfo a signature where + overloadedMethod _ = webInspectorGetAttachedHeight + -- method WebInspector::get_can_attach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -564,8 +627,8 @@ webInspectorGetCanAttach :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result webInspectorGetCanAttach _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_inspector_get_can_attach _obj' @@ -573,11 +636,14 @@ touchManagedPtr _obj return result' +data WebInspectorGetCanAttachMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetCanAttachMethodInfo a signature where + overloadedMethod _ = webInspectorGetCanAttach + -- method WebInspector::get_inspected_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -589,8 +655,8 @@ webInspectorGetInspectedUri :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result webInspectorGetInspectedUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_inspector_get_inspected_uri _obj' @@ -599,11 +665,14 @@ touchManagedPtr _obj return result' +data WebInspectorGetInspectedUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetInspectedUriMethodInfo a signature where + overloadedMethod _ = webInspectorGetInspectedUri + -- method WebInspector::get_web_view -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "WebViewBase" -- throws : False -- Skip return : False @@ -615,8 +684,8 @@ webInspectorGetWebView :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m WebViewBase + a -- _obj + -> m WebViewBase -- result webInspectorGetWebView _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_inspector_get_web_view _obj' @@ -625,11 +694,14 @@ touchManagedPtr _obj return result' +data WebInspectorGetWebViewMethodInfo +instance (signature ~ (m WebViewBase), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetWebViewMethodInfo a signature where + overloadedMethod _ = webInspectorGetWebView + -- method WebInspector::is_attached -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -641,8 +713,8 @@ webInspectorIsAttached :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result webInspectorIsAttached _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_inspector_is_attached _obj' @@ -650,11 +722,14 @@ touchManagedPtr _obj return result' +data WebInspectorIsAttachedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorIsAttachedMethodInfo a signature where + overloadedMethod _ = webInspectorIsAttached + -- method WebInspector::show -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -666,12 +741,16 @@ webInspectorShow :: (MonadIO m, WebInspectorK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result webInspectorShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_web_inspector_show _obj' touchManagedPtr _obj return () + +data WebInspectorShowMethodInfo +instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorShowMethodInfo a signature where + overloadedMethod _ = webInspectorShow diff --git a/GI/WebKit2/Objects/WebInspector.hs-boot b/GI/WebKit2/Objects/WebInspector.hs-boot --- a/GI/WebKit2/Objects/WebInspector.hs-boot +++ b/GI/WebKit2/Objects/WebInspector.hs-boot @@ -19,3 +19,12 @@ data WebInspectorClosedSignalInfo data WebInspectorDetachSignalInfo data WebInspectorOpenWindowSignalInfo +data WebInspectorAttachMethodInfo +data WebInspectorCloseMethodInfo +data WebInspectorDetachMethodInfo +data WebInspectorGetAttachedHeightMethodInfo +data WebInspectorGetCanAttachMethodInfo +data WebInspectorGetInspectedUriMethodInfo +data WebInspectorGetWebViewMethodInfo +data WebInspectorIsAttachedMethodInfo +data WebInspectorShowMethodInfo diff --git a/GI/WebKit2/Objects/WebResource.hs b/GI/WebKit2/Objects/WebResource.hs --- a/GI/WebKit2/Objects/WebResource.hs +++ b/GI/WebKit2/Objects/WebResource.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** webResourceGetData + WebResourceGetDataMethodInfo , webResourceGetData , -- ** webResourceGetDataFinish + WebResourceGetDataFinishMethodInfo , webResourceGetDataFinish , -- ** webResourceGetResponse + WebResourceGetResponseMethodInfo , webResourceGetResponse , -- ** webResourceGetUri + WebResourceGetUriMethodInfo , webResourceGetUri , @@ -145,6 +150,41 @@ noWebResource :: Maybe WebResource noWebResource = Nothing +type family ResolveWebResourceMethod (t :: Symbol) (o :: *) :: * where + ResolveWebResourceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWebResourceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWebResourceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWebResourceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWebResourceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWebResourceMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWebResourceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWebResourceMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWebResourceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWebResourceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWebResourceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWebResourceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWebResourceMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWebResourceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWebResourceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWebResourceMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWebResourceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWebResourceMethod "getDataFinish" o = WebResourceGetDataFinishMethodInfo + ResolveWebResourceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWebResourceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWebResourceMethod "getResponse" o = WebResourceGetResponseMethodInfo + ResolveWebResourceMethod "getUri" o = WebResourceGetUriMethodInfo + ResolveWebResourceMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWebResourceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWebResourceMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWebResourceMethod t WebResource, MethodInfo info WebResource p) => IsLabelProxy t (WebResource -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWebResourceMethod t WebResource, MethodInfo info WebResource p) => IsLabel t (WebResource -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal WebResource::failed type WebResourceFailedCallback = Ptr () -> @@ -297,8 +337,8 @@ Word64 -> Ptr () -> IO () -webResourceReceivedDataCallbackWrapper _cb _ data_length _ = do - _cb data_length +webResourceReceivedDataCallbackWrapper _cb _ dataLength _ = do + _cb dataLength onWebResourceReceivedData :: (GObject a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId onWebResourceReceivedData obj cb = liftIO $ connectWebResourceReceivedData obj cb SignalConnectBefore @@ -341,10 +381,10 @@ Ptr URIResponse -> Ptr () -> IO () -webResourceSentRequestCallbackWrapper _cb _ request redirected_response _ = do +webResourceSentRequestCallbackWrapper _cb _ request redirectedResponse _ = do request' <- (newObject URIRequest) request - redirected_response' <- (newObject URIResponse) redirected_response - _cb request' redirected_response' + redirectedResponse' <- (newObject URIResponse) redirectedResponse + _cb request' redirectedResponse' onWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId onWebResourceSentRequest obj cb = liftIO $ connectWebResourceSentRequest obj cb SignalConnectBefore @@ -370,7 +410,7 @@ type AttrSetTypeConstraint WebResourceResponsePropertyInfo = (~) () type AttrBaseTypeConstraint WebResourceResponsePropertyInfo = WebResourceK type AttrGetType WebResourceResponsePropertyInfo = URIResponse - type AttrLabel WebResourceResponsePropertyInfo = "WebResource::response" + type AttrLabel WebResourceResponsePropertyInfo = "response" attrGet _ = getWebResourceResponse attrSet _ = undefined attrConstruct _ = undefined @@ -388,7 +428,7 @@ type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK type AttrGetType WebResourceUriPropertyInfo = T.Text - type AttrLabel WebResourceUriPropertyInfo = "WebResource::uri" + type AttrLabel WebResourceUriPropertyInfo = "uri" attrGet _ = getWebResourceUri attrSet _ = undefined attrConstruct _ = undefined @@ -422,13 +462,12 @@ connectSignal _ = connectWebResourceSentRequest type instance SignalList WebResource = WebResourceSignalList -type WebResourceSignalList = ('[ '("failed", WebResourceFailedSignalInfo), '("failed-with-tls-errors", WebResourceFailedWithTlsErrorsSignalInfo), '("finished", WebResourceFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("received-data", WebResourceReceivedDataSignalInfo), '("sent-request", WebResourceSentRequestSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WebResourceSignalList = ('[ '("failed", WebResourceFailedSignalInfo), '("failedWithTlsErrors", WebResourceFailedWithTlsErrorsSignalInfo), '("finished", WebResourceFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("receivedData", WebResourceReceivedDataSignalInfo), '("sentRequest", WebResourceSentRequestSignalInfo)] :: [(Symbol, *)]) -- method WebResource::get_data -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebResource", 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" "WebResource", 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" "WebResource", 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 @@ -443,10 +482,10 @@ webResourceGetData :: (MonadIO m, WebResourceK 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 webResourceGetData _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -461,17 +500,20 @@ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - webkit_web_resource_get_data _obj' maybeCancellable maybeCallback user_data + let userData = nullPtr + webkit_web_resource_get_data _obj' maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr return () +data WebResourceGetDataMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebResourceK a, Gio.CancellableK b) => MethodInfo WebResourceGetDataMethodInfo a signature where + overloadedMethod _ = webResourceGetData + -- method WebResource::get_data_finish -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebResource", 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},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebResource", 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" "WebResource", 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},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 2 (TBasicType TUInt8) -- throws : True -- Skip return : False @@ -486,9 +528,9 @@ webResourceGetDataFinish :: (MonadIO m, WebResourceK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m ByteString + a -- _obj + -> b -- result_ + -> m ByteString -- result webResourceGetDataFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -507,11 +549,14 @@ freeMem length_ ) +data WebResourceGetDataFinishMethodInfo +instance (signature ~ (b -> m ByteString), MonadIO m, WebResourceK a, Gio.AsyncResultK b) => MethodInfo WebResourceGetDataFinishMethodInfo a signature where + overloadedMethod _ = webResourceGetDataFinish + -- method WebResource::get_response -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIResponse" -- throws : False -- Skip return : False @@ -523,8 +568,8 @@ webResourceGetResponse :: (MonadIO m, WebResourceK a) => - a -> -- _obj - m URIResponse + a -- _obj + -> m URIResponse -- result webResourceGetResponse _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_resource_get_response _obj' @@ -533,11 +578,14 @@ touchManagedPtr _obj return result' +data WebResourceGetResponseMethodInfo +instance (signature ~ (m URIResponse), MonadIO m, WebResourceK a) => MethodInfo WebResourceGetResponseMethodInfo a signature where + overloadedMethod _ = webResourceGetResponse + -- method WebResource::get_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -549,8 +597,8 @@ webResourceGetUri :: (MonadIO m, WebResourceK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result webResourceGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_resource_get_uri _obj' @@ -558,5 +606,9 @@ result' <- cstringToText result touchManagedPtr _obj return result' + +data WebResourceGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebResourceK a) => MethodInfo WebResourceGetUriMethodInfo a signature where + overloadedMethod _ = webResourceGetUri diff --git a/GI/WebKit2/Objects/WebResource.hs-boot b/GI/WebKit2/Objects/WebResource.hs-boot --- a/GI/WebKit2/Objects/WebResource.hs-boot +++ b/GI/WebKit2/Objects/WebResource.hs-boot @@ -18,3 +18,7 @@ data WebResourceFinishedSignalInfo data WebResourceReceivedDataSignalInfo data WebResourceSentRequestSignalInfo +data WebResourceGetDataMethodInfo +data WebResourceGetDataFinishMethodInfo +data WebResourceGetResponseMethodInfo +data WebResourceGetUriMethodInfo diff --git a/GI/WebKit2/Objects/WebView.hs b/GI/WebKit2/Objects/WebView.hs --- a/GI/WebKit2/Objects/WebView.hs +++ b/GI/WebKit2/Objects/WebView.hs @@ -1,3943 +1,4550 @@ -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WebView - ( - --- * Exported types - WebView(..) , - WebViewK , - toWebView , - noWebView , - - - -- * Methods --- ** webViewCanExecuteEditingCommand - webViewCanExecuteEditingCommand , - - --- ** webViewCanExecuteEditingCommandFinish - webViewCanExecuteEditingCommandFinish , - - --- ** webViewCanGoBack - webViewCanGoBack , - - --- ** webViewCanGoForward - webViewCanGoForward , - - --- ** webViewCanShowMimeType - webViewCanShowMimeType , - - --- ** webViewDownloadUri - webViewDownloadUri , - - --- ** webViewExecuteEditingCommand - webViewExecuteEditingCommand , - - --- ** webViewExecuteEditingCommandWithArgument - webViewExecuteEditingCommandWithArgument, - - --- ** webViewGetBackForwardList - webViewGetBackForwardList , - - --- ** webViewGetBackgroundColor - webViewGetBackgroundColor , - - --- ** webViewGetContext - webViewGetContext , - - --- ** webViewGetCustomCharset - webViewGetCustomCharset , - - --- ** webViewGetEditorState - webViewGetEditorState , - - --- ** webViewGetEstimatedLoadProgress - webViewGetEstimatedLoadProgress , - - --- ** webViewGetFavicon - webViewGetFavicon , - - --- ** webViewGetFindController - webViewGetFindController , - - --- ** webViewGetInspector - webViewGetInspector , - - --- ** webViewGetJavascriptGlobalContext - webViewGetJavascriptGlobalContext , - - --- ** webViewGetMainResource - webViewGetMainResource , - - --- ** webViewGetPageId - webViewGetPageId , - - --- ** webViewGetSettings - webViewGetSettings , - - --- ** webViewGetSnapshot - webViewGetSnapshot , - - --- ** webViewGetSnapshotFinish - webViewGetSnapshotFinish , - - --- ** webViewGetTitle - webViewGetTitle , - - --- ** webViewGetTlsInfo - webViewGetTlsInfo , - - --- ** webViewGetUri - webViewGetUri , - - --- ** webViewGetUserContentManager - webViewGetUserContentManager , - - --- ** webViewGetWindowProperties - webViewGetWindowProperties , - - --- ** webViewGetZoomLevel - webViewGetZoomLevel , - - --- ** webViewGoBack - webViewGoBack , - - --- ** webViewGoForward - webViewGoForward , - - --- ** webViewGoToBackForwardListItem - webViewGoToBackForwardListItem , - - --- ** webViewIsEditable - webViewIsEditable , - - --- ** webViewIsLoading - webViewIsLoading , - - --- ** webViewIsPlayingAudio - webViewIsPlayingAudio , - - --- ** webViewLoadAlternateHtml - webViewLoadAlternateHtml , - - --- ** webViewLoadBytes - webViewLoadBytes , - - --- ** webViewLoadHtml - webViewLoadHtml , - - --- ** webViewLoadPlainText - webViewLoadPlainText , - - --- ** webViewLoadRequest - webViewLoadRequest , - - --- ** webViewLoadUri - webViewLoadUri , - - --- ** webViewNew - webViewNew , - - --- ** webViewNewWithContext - webViewNewWithContext , - - --- ** webViewNewWithRelatedView - webViewNewWithRelatedView , - - --- ** webViewNewWithSettings - webViewNewWithSettings , - - --- ** webViewNewWithUserContentManager - webViewNewWithUserContentManager , - - --- ** webViewReload - webViewReload , - - --- ** webViewReloadBypassCache - webViewReloadBypassCache , - - --- ** webViewRunJavascript - webViewRunJavascript , - - --- ** webViewRunJavascriptFinish - webViewRunJavascriptFinish , - - --- ** webViewRunJavascriptFromGresource - webViewRunJavascriptFromGresource , - - --- ** webViewRunJavascriptFromGresourceFinish - webViewRunJavascriptFromGresourceFinish , - - --- ** webViewSave - webViewSave , - - --- ** webViewSaveFinish - webViewSaveFinish , - - --- ** webViewSaveToFile - webViewSaveToFile , - - --- ** webViewSaveToFileFinish - webViewSaveToFileFinish , - - --- ** webViewSetBackgroundColor - webViewSetBackgroundColor , - - --- ** webViewSetCustomCharset - webViewSetCustomCharset , - - --- ** webViewSetEditable - webViewSetEditable , - - --- ** webViewSetSettings - webViewSetSettings , - - --- ** webViewSetZoomLevel - webViewSetZoomLevel , - - --- ** webViewStopLoading - webViewStopLoading , - - - - - -- * Properties --- ** Editable - WebViewEditablePropertyInfo , - constructWebViewEditable , - getWebViewEditable , - setWebViewEditable , - - --- ** EstimatedLoadProgress - WebViewEstimatedLoadProgressPropertyInfo, - getWebViewEstimatedLoadProgress , - - --- ** Favicon - WebViewFaviconPropertyInfo , - getWebViewFavicon , - - --- ** IsLoading - WebViewIsLoadingPropertyInfo , - getWebViewIsLoading , - - --- ** IsPlayingAudio - WebViewIsPlayingAudioPropertyInfo , - getWebViewIsPlayingAudio , - - --- ** RelatedView - WebViewRelatedViewPropertyInfo , - constructWebViewRelatedView , - - --- ** Settings - WebViewSettingsPropertyInfo , - constructWebViewSettings , - setWebViewSettings , - - --- ** Title - WebViewTitlePropertyInfo , - getWebViewTitle , - - --- ** Uri - WebViewUriPropertyInfo , - getWebViewUri , - - --- ** UserContentManager - WebViewUserContentManagerPropertyInfo , - constructWebViewUserContentManager , - getWebViewUserContentManager , - - --- ** WebContext - WebViewWebContextPropertyInfo , - constructWebViewWebContext , - getWebViewWebContext , - - --- ** ZoomLevel - WebViewZoomLevelPropertyInfo , - constructWebViewZoomLevel , - getWebViewZoomLevel , - setWebViewZoomLevel , - - - - - -- * Signals --- ** Authenticate - WebViewAuthenticateCallback , - WebViewAuthenticateCallbackC , - WebViewAuthenticateSignalInfo , - afterWebViewAuthenticate , - mkWebViewAuthenticateCallback , - noWebViewAuthenticateCallback , - onWebViewAuthenticate , - webViewAuthenticateCallbackWrapper , - webViewAuthenticateClosure , - - --- ** Close - WebViewCloseCallback , - WebViewCloseCallbackC , - WebViewCloseSignalInfo , - afterWebViewClose , - mkWebViewCloseCallback , - noWebViewCloseCallback , - onWebViewClose , - webViewCloseCallbackWrapper , - webViewCloseClosure , - - --- ** ContextMenu - WebViewContextMenuCallback , - WebViewContextMenuCallbackC , - WebViewContextMenuSignalInfo , - afterWebViewContextMenu , - mkWebViewContextMenuCallback , - noWebViewContextMenuCallback , - onWebViewContextMenu , - webViewContextMenuCallbackWrapper , - webViewContextMenuClosure , - - --- ** ContextMenuDismissed - WebViewContextMenuDismissedCallback , - WebViewContextMenuDismissedCallbackC , - WebViewContextMenuDismissedSignalInfo , - afterWebViewContextMenuDismissed , - mkWebViewContextMenuDismissedCallback , - noWebViewContextMenuDismissedCallback , - onWebViewContextMenuDismissed , - webViewContextMenuDismissedCallbackWrapper, - webViewContextMenuDismissedClosure , - - --- ** Create - WebViewCreateCallback , - WebViewCreateCallbackC , - WebViewCreateSignalInfo , - afterWebViewCreate , - mkWebViewCreateCallback , - noWebViewCreateCallback , - onWebViewCreate , - webViewCreateCallbackWrapper , - webViewCreateClosure , - - --- ** DecidePolicy - WebViewDecidePolicyCallback , - WebViewDecidePolicyCallbackC , - WebViewDecidePolicySignalInfo , - afterWebViewDecidePolicy , - mkWebViewDecidePolicyCallback , - noWebViewDecidePolicyCallback , - onWebViewDecidePolicy , - webViewDecidePolicyCallbackWrapper , - webViewDecidePolicyClosure , - - --- ** EnterFullscreen - WebViewEnterFullscreenCallback , - WebViewEnterFullscreenCallbackC , - WebViewEnterFullscreenSignalInfo , - afterWebViewEnterFullscreen , - mkWebViewEnterFullscreenCallback , - noWebViewEnterFullscreenCallback , - onWebViewEnterFullscreen , - webViewEnterFullscreenCallbackWrapper , - webViewEnterFullscreenClosure , - - --- ** InsecureContentDetected - WebViewInsecureContentDetectedCallback , - WebViewInsecureContentDetectedCallbackC , - WebViewInsecureContentDetectedSignalInfo, - afterWebViewInsecureContentDetected , - mkWebViewInsecureContentDetectedCallback, - noWebViewInsecureContentDetectedCallback, - onWebViewInsecureContentDetected , - webViewInsecureContentDetectedCallbackWrapper, - webViewInsecureContentDetectedClosure , - - --- ** LeaveFullscreen - WebViewLeaveFullscreenCallback , - WebViewLeaveFullscreenCallbackC , - WebViewLeaveFullscreenSignalInfo , - afterWebViewLeaveFullscreen , - mkWebViewLeaveFullscreenCallback , - noWebViewLeaveFullscreenCallback , - onWebViewLeaveFullscreen , - webViewLeaveFullscreenCallbackWrapper , - webViewLeaveFullscreenClosure , - - --- ** LoadChanged - WebViewLoadChangedCallback , - WebViewLoadChangedCallbackC , - WebViewLoadChangedSignalInfo , - afterWebViewLoadChanged , - mkWebViewLoadChangedCallback , - noWebViewLoadChangedCallback , - onWebViewLoadChanged , - webViewLoadChangedCallbackWrapper , - webViewLoadChangedClosure , - - --- ** LoadFailed - WebViewLoadFailedCallback , - WebViewLoadFailedCallbackC , - WebViewLoadFailedSignalInfo , - afterWebViewLoadFailed , - mkWebViewLoadFailedCallback , - noWebViewLoadFailedCallback , - onWebViewLoadFailed , - webViewLoadFailedCallbackWrapper , - webViewLoadFailedClosure , - - --- ** LoadFailedWithTlsErrors - WebViewLoadFailedWithTlsErrorsCallback , - WebViewLoadFailedWithTlsErrorsCallbackC , - WebViewLoadFailedWithTlsErrorsSignalInfo, - afterWebViewLoadFailedWithTlsErrors , - mkWebViewLoadFailedWithTlsErrorsCallback, - noWebViewLoadFailedWithTlsErrorsCallback, - onWebViewLoadFailedWithTlsErrors , - webViewLoadFailedWithTlsErrorsCallbackWrapper, - webViewLoadFailedWithTlsErrorsClosure , - - --- ** MouseTargetChanged - WebViewMouseTargetChangedCallback , - WebViewMouseTargetChangedCallbackC , - WebViewMouseTargetChangedSignalInfo , - afterWebViewMouseTargetChanged , - mkWebViewMouseTargetChangedCallback , - noWebViewMouseTargetChangedCallback , - onWebViewMouseTargetChanged , - webViewMouseTargetChangedCallbackWrapper, - webViewMouseTargetChangedClosure , - - --- ** PermissionRequest - WebViewPermissionRequestCallback , - WebViewPermissionRequestCallbackC , - WebViewPermissionRequestSignalInfo , - afterWebViewPermissionRequest , - mkWebViewPermissionRequestCallback , - noWebViewPermissionRequestCallback , - onWebViewPermissionRequest , - webViewPermissionRequestCallbackWrapper , - webViewPermissionRequestClosure , - - --- ** Print - WebViewPrintCallback , - WebViewPrintCallbackC , - WebViewPrintSignalInfo , - afterWebViewPrint , - mkWebViewPrintCallback , - noWebViewPrintCallback , - onWebViewPrint , - webViewPrintCallbackWrapper , - webViewPrintClosure , - - --- ** ReadyToShow - WebViewReadyToShowCallback , - WebViewReadyToShowCallbackC , - WebViewReadyToShowSignalInfo , - afterWebViewReadyToShow , - mkWebViewReadyToShowCallback , - noWebViewReadyToShowCallback , - onWebViewReadyToShow , - webViewReadyToShowCallbackWrapper , - webViewReadyToShowClosure , - - --- ** ResourceLoadStarted - WebViewResourceLoadStartedCallback , - WebViewResourceLoadStartedCallbackC , - WebViewResourceLoadStartedSignalInfo , - afterWebViewResourceLoadStarted , - mkWebViewResourceLoadStartedCallback , - noWebViewResourceLoadStartedCallback , - onWebViewResourceLoadStarted , - webViewResourceLoadStartedCallbackWrapper, - webViewResourceLoadStartedClosure , - - --- ** RunAsModal - WebViewRunAsModalCallback , - WebViewRunAsModalCallbackC , - WebViewRunAsModalSignalInfo , - afterWebViewRunAsModal , - mkWebViewRunAsModalCallback , - noWebViewRunAsModalCallback , - onWebViewRunAsModal , - webViewRunAsModalCallbackWrapper , - webViewRunAsModalClosure , - - --- ** RunColorChooser - WebViewRunColorChooserCallback , - WebViewRunColorChooserCallbackC , - WebViewRunColorChooserSignalInfo , - afterWebViewRunColorChooser , - mkWebViewRunColorChooserCallback , - noWebViewRunColorChooserCallback , - onWebViewRunColorChooser , - webViewRunColorChooserCallbackWrapper , - webViewRunColorChooserClosure , - - --- ** RunFileChooser - WebViewRunFileChooserCallback , - WebViewRunFileChooserCallbackC , - WebViewRunFileChooserSignalInfo , - afterWebViewRunFileChooser , - mkWebViewRunFileChooserCallback , - noWebViewRunFileChooserCallback , - onWebViewRunFileChooser , - webViewRunFileChooserCallbackWrapper , - webViewRunFileChooserClosure , - - --- ** ScriptDialog - WebViewScriptDialogCallback , - WebViewScriptDialogCallbackC , - WebViewScriptDialogSignalInfo , - afterWebViewScriptDialog , - mkWebViewScriptDialogCallback , - noWebViewScriptDialogCallback , - onWebViewScriptDialog , - webViewScriptDialogCallbackWrapper , - webViewScriptDialogClosure , - - --- ** ShowNotification - WebViewShowNotificationCallback , - WebViewShowNotificationCallbackC , - WebViewShowNotificationSignalInfo , - afterWebViewShowNotification , - mkWebViewShowNotificationCallback , - noWebViewShowNotificationCallback , - onWebViewShowNotification , - webViewShowNotificationCallbackWrapper , - webViewShowNotificationClosure , - - --- ** SubmitForm - WebViewSubmitFormCallback , - WebViewSubmitFormCallbackC , - WebViewSubmitFormSignalInfo , - afterWebViewSubmitForm , - mkWebViewSubmitFormCallback , - noWebViewSubmitFormCallback , - onWebViewSubmitForm , - webViewSubmitFormCallbackWrapper , - webViewSubmitFormClosure , - - --- ** WebProcessCrashed - WebViewWebProcessCrashedCallback , - WebViewWebProcessCrashedCallbackC , - WebViewWebProcessCrashedSignalInfo , - afterWebViewWebProcessCrashed , - mkWebViewWebProcessCrashedCallback , - noWebViewWebProcessCrashedCallback , - onWebViewWebProcessCrashed , - webViewWebProcessCrashedCallbackWrapper , - webViewWebProcessCrashedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Gio as Gio -import qualified GI.Gtk as Gtk -import qualified GI.JavaScriptCore as JavaScriptCore -import qualified GI.Cairo as Cairo - -newtype WebView = WebView (ForeignPtr WebView) -foreign import ccall "webkit_web_view_get_type" - c_webkit_web_view_get_type :: IO GType - -type instance ParentTypes WebView = WebViewParentTypes -type WebViewParentTypes = '[WebViewBase, Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable] - -instance GObject WebView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_webkit_web_view_get_type - - -class GObject o => WebViewK o -instance (GObject o, IsDescendantOf WebView o) => WebViewK o - -toWebView :: WebViewK o => o -> IO WebView -toWebView = unsafeCastTo WebView - -noWebView :: Maybe WebView -noWebView = Nothing - --- signal WebView::authenticate -type WebViewAuthenticateCallback = - AuthenticationRequest -> - IO Bool - -noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback -noWebViewAuthenticateCallback = Nothing - -type WebViewAuthenticateCallbackC = - Ptr () -> -- object - Ptr AuthenticationRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewAuthenticateCallback :: WebViewAuthenticateCallbackC -> IO (FunPtr WebViewAuthenticateCallbackC) - -webViewAuthenticateClosure :: WebViewAuthenticateCallback -> IO Closure -webViewAuthenticateClosure cb = newCClosure =<< mkWebViewAuthenticateCallback wrapped - where wrapped = webViewAuthenticateCallbackWrapper cb - -webViewAuthenticateCallbackWrapper :: - WebViewAuthenticateCallback -> - Ptr () -> - Ptr AuthenticationRequest -> - Ptr () -> - IO CInt -webViewAuthenticateCallbackWrapper _cb _ request _ = do - request' <- (newObject AuthenticationRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId -onWebViewAuthenticate obj cb = liftIO $ connectWebViewAuthenticate obj cb SignalConnectBefore -afterWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId -afterWebViewAuthenticate obj cb = connectWebViewAuthenticate obj cb SignalConnectAfter - -connectWebViewAuthenticate :: (GObject a, MonadIO m) => - a -> WebViewAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewAuthenticate obj cb after = liftIO $ do - cb' <- mkWebViewAuthenticateCallback (webViewAuthenticateCallbackWrapper cb) - connectSignalFunPtr obj "authenticate" cb' after - --- signal WebView::close -type WebViewCloseCallback = - IO () - -noWebViewCloseCallback :: Maybe WebViewCloseCallback -noWebViewCloseCallback = Nothing - -type WebViewCloseCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewCloseCallback :: WebViewCloseCallbackC -> IO (FunPtr WebViewCloseCallbackC) - -webViewCloseClosure :: WebViewCloseCallback -> IO Closure -webViewCloseClosure cb = newCClosure =<< mkWebViewCloseCallback wrapped - where wrapped = webViewCloseCallbackWrapper cb - -webViewCloseCallbackWrapper :: - WebViewCloseCallback -> - Ptr () -> - Ptr () -> - IO () -webViewCloseCallbackWrapper _cb _ _ = do - _cb - -onWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId -onWebViewClose obj cb = liftIO $ connectWebViewClose obj cb SignalConnectBefore -afterWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId -afterWebViewClose obj cb = connectWebViewClose obj cb SignalConnectAfter - -connectWebViewClose :: (GObject a, MonadIO m) => - a -> WebViewCloseCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewClose obj cb after = liftIO $ do - cb' <- mkWebViewCloseCallback (webViewCloseCallbackWrapper cb) - connectSignalFunPtr obj "close" cb' after - --- signal WebView::context-menu -type WebViewContextMenuCallback = - ContextMenu -> - Gdk.Event -> - HitTestResult -> - IO Bool - -noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback -noWebViewContextMenuCallback = Nothing - -type WebViewContextMenuCallbackC = - Ptr () -> -- object - Ptr ContextMenu -> - Ptr Gdk.Event -> - Ptr HitTestResult -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewContextMenuCallback :: WebViewContextMenuCallbackC -> IO (FunPtr WebViewContextMenuCallbackC) - -webViewContextMenuClosure :: WebViewContextMenuCallback -> IO Closure -webViewContextMenuClosure cb = newCClosure =<< mkWebViewContextMenuCallback wrapped - where wrapped = webViewContextMenuCallbackWrapper cb - -webViewContextMenuCallbackWrapper :: - WebViewContextMenuCallback -> - Ptr () -> - Ptr ContextMenu -> - Ptr Gdk.Event -> - Ptr HitTestResult -> - Ptr () -> - IO CInt -webViewContextMenuCallbackWrapper _cb _ context_menu event hit_test_result _ = do - context_menu' <- (newObject ContextMenu) context_menu - event' <- (newBoxed Gdk.Event) event - hit_test_result' <- (newObject HitTestResult) hit_test_result - result <- _cb context_menu' event' hit_test_result' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId -onWebViewContextMenu obj cb = liftIO $ connectWebViewContextMenu obj cb SignalConnectBefore -afterWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId -afterWebViewContextMenu obj cb = connectWebViewContextMenu obj cb SignalConnectAfter - -connectWebViewContextMenu :: (GObject a, MonadIO m) => - a -> WebViewContextMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewContextMenu obj cb after = liftIO $ do - cb' <- mkWebViewContextMenuCallback (webViewContextMenuCallbackWrapper cb) - connectSignalFunPtr obj "context-menu" cb' after - --- signal WebView::context-menu-dismissed -type WebViewContextMenuDismissedCallback = - IO () - -noWebViewContextMenuDismissedCallback :: Maybe WebViewContextMenuDismissedCallback -noWebViewContextMenuDismissedCallback = Nothing - -type WebViewContextMenuDismissedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewContextMenuDismissedCallback :: WebViewContextMenuDismissedCallbackC -> IO (FunPtr WebViewContextMenuDismissedCallbackC) - -webViewContextMenuDismissedClosure :: WebViewContextMenuDismissedCallback -> IO Closure -webViewContextMenuDismissedClosure cb = newCClosure =<< mkWebViewContextMenuDismissedCallback wrapped - where wrapped = webViewContextMenuDismissedCallbackWrapper cb - -webViewContextMenuDismissedCallbackWrapper :: - WebViewContextMenuDismissedCallback -> - Ptr () -> - Ptr () -> - IO () -webViewContextMenuDismissedCallbackWrapper _cb _ _ = do - _cb - -onWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId -onWebViewContextMenuDismissed obj cb = liftIO $ connectWebViewContextMenuDismissed obj cb SignalConnectBefore -afterWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId -afterWebViewContextMenuDismissed obj cb = connectWebViewContextMenuDismissed obj cb SignalConnectAfter - -connectWebViewContextMenuDismissed :: (GObject a, MonadIO m) => - a -> WebViewContextMenuDismissedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewContextMenuDismissed obj cb after = liftIO $ do - cb' <- mkWebViewContextMenuDismissedCallback (webViewContextMenuDismissedCallbackWrapper cb) - connectSignalFunPtr obj "context-menu-dismissed" cb' after - --- signal WebView::create -type WebViewCreateCallback = - NavigationAction -> - IO Gtk.Widget - -noWebViewCreateCallback :: Maybe WebViewCreateCallback -noWebViewCreateCallback = Nothing - -type WebViewCreateCallbackC = - Ptr () -> -- object - Ptr NavigationAction -> - Ptr () -> -- user_data - IO (Ptr Gtk.Widget) - -foreign import ccall "wrapper" - mkWebViewCreateCallback :: WebViewCreateCallbackC -> IO (FunPtr WebViewCreateCallbackC) - -webViewCreateClosure :: WebViewCreateCallback -> IO Closure -webViewCreateClosure cb = newCClosure =<< mkWebViewCreateCallback wrapped - where wrapped = webViewCreateCallbackWrapper cb - -webViewCreateCallbackWrapper :: - WebViewCreateCallback -> - Ptr () -> - Ptr NavigationAction -> - Ptr () -> - IO (Ptr Gtk.Widget) -webViewCreateCallbackWrapper _cb _ navigation_action _ = do - navigation_action' <- (newBoxed NavigationAction) navigation_action - result <- _cb navigation_action' - result' <- refObject result - return result' - -onWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId -onWebViewCreate obj cb = liftIO $ connectWebViewCreate obj cb SignalConnectBefore -afterWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId -afterWebViewCreate obj cb = connectWebViewCreate obj cb SignalConnectAfter - -connectWebViewCreate :: (GObject a, MonadIO m) => - a -> WebViewCreateCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewCreate obj cb after = liftIO $ do - cb' <- mkWebViewCreateCallback (webViewCreateCallbackWrapper cb) - connectSignalFunPtr obj "create" cb' after - --- signal WebView::decide-policy -type WebViewDecidePolicyCallback = - PolicyDecision -> - PolicyDecisionType -> - IO Bool - -noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback -noWebViewDecidePolicyCallback = Nothing - -type WebViewDecidePolicyCallbackC = - Ptr () -> -- object - Ptr PolicyDecision -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewDecidePolicyCallback :: WebViewDecidePolicyCallbackC -> IO (FunPtr WebViewDecidePolicyCallbackC) - -webViewDecidePolicyClosure :: WebViewDecidePolicyCallback -> IO Closure -webViewDecidePolicyClosure cb = newCClosure =<< mkWebViewDecidePolicyCallback wrapped - where wrapped = webViewDecidePolicyCallbackWrapper cb - -webViewDecidePolicyCallbackWrapper :: - WebViewDecidePolicyCallback -> - Ptr () -> - Ptr PolicyDecision -> - CUInt -> - Ptr () -> - IO CInt -webViewDecidePolicyCallbackWrapper _cb _ decision decision_type _ = do - decision' <- (newObject PolicyDecision) decision - let decision_type' = (toEnum . fromIntegral) decision_type - result <- _cb decision' decision_type' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId -onWebViewDecidePolicy obj cb = liftIO $ connectWebViewDecidePolicy obj cb SignalConnectBefore -afterWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId -afterWebViewDecidePolicy obj cb = connectWebViewDecidePolicy obj cb SignalConnectAfter - -connectWebViewDecidePolicy :: (GObject a, MonadIO m) => - a -> WebViewDecidePolicyCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewDecidePolicy obj cb after = liftIO $ do - cb' <- mkWebViewDecidePolicyCallback (webViewDecidePolicyCallbackWrapper cb) - connectSignalFunPtr obj "decide-policy" cb' after - --- signal WebView::enter-fullscreen -type WebViewEnterFullscreenCallback = - IO Bool - -noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback -noWebViewEnterFullscreenCallback = Nothing - -type WebViewEnterFullscreenCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewEnterFullscreenCallback :: WebViewEnterFullscreenCallbackC -> IO (FunPtr WebViewEnterFullscreenCallbackC) - -webViewEnterFullscreenClosure :: WebViewEnterFullscreenCallback -> IO Closure -webViewEnterFullscreenClosure cb = newCClosure =<< mkWebViewEnterFullscreenCallback wrapped - where wrapped = webViewEnterFullscreenCallbackWrapper cb - -webViewEnterFullscreenCallbackWrapper :: - WebViewEnterFullscreenCallback -> - Ptr () -> - Ptr () -> - IO CInt -webViewEnterFullscreenCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId -onWebViewEnterFullscreen obj cb = liftIO $ connectWebViewEnterFullscreen obj cb SignalConnectBefore -afterWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId -afterWebViewEnterFullscreen obj cb = connectWebViewEnterFullscreen obj cb SignalConnectAfter - -connectWebViewEnterFullscreen :: (GObject a, MonadIO m) => - a -> WebViewEnterFullscreenCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewEnterFullscreen obj cb after = liftIO $ do - cb' <- mkWebViewEnterFullscreenCallback (webViewEnterFullscreenCallbackWrapper cb) - connectSignalFunPtr obj "enter-fullscreen" cb' after - --- signal WebView::insecure-content-detected -type WebViewInsecureContentDetectedCallback = - InsecureContentEvent -> - IO () - -noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback -noWebViewInsecureContentDetectedCallback = Nothing - -type WebViewInsecureContentDetectedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewInsecureContentDetectedCallback :: WebViewInsecureContentDetectedCallbackC -> IO (FunPtr WebViewInsecureContentDetectedCallbackC) - -webViewInsecureContentDetectedClosure :: WebViewInsecureContentDetectedCallback -> IO Closure -webViewInsecureContentDetectedClosure cb = newCClosure =<< mkWebViewInsecureContentDetectedCallback wrapped - where wrapped = webViewInsecureContentDetectedCallbackWrapper cb - -webViewInsecureContentDetectedCallbackWrapper :: - WebViewInsecureContentDetectedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -webViewInsecureContentDetectedCallbackWrapper _cb _ event _ = do - let event' = (toEnum . fromIntegral) event - _cb event' - -onWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId -onWebViewInsecureContentDetected obj cb = liftIO $ connectWebViewInsecureContentDetected obj cb SignalConnectBefore -afterWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId -afterWebViewInsecureContentDetected obj cb = connectWebViewInsecureContentDetected obj cb SignalConnectAfter - -connectWebViewInsecureContentDetected :: (GObject a, MonadIO m) => - a -> WebViewInsecureContentDetectedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewInsecureContentDetected obj cb after = liftIO $ do - cb' <- mkWebViewInsecureContentDetectedCallback (webViewInsecureContentDetectedCallbackWrapper cb) - connectSignalFunPtr obj "insecure-content-detected" cb' after - --- signal WebView::leave-fullscreen -type WebViewLeaveFullscreenCallback = - IO Bool - -noWebViewLeaveFullscreenCallback :: Maybe WebViewLeaveFullscreenCallback -noWebViewLeaveFullscreenCallback = Nothing - -type WebViewLeaveFullscreenCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewLeaveFullscreenCallback :: WebViewLeaveFullscreenCallbackC -> IO (FunPtr WebViewLeaveFullscreenCallbackC) - -webViewLeaveFullscreenClosure :: WebViewLeaveFullscreenCallback -> IO Closure -webViewLeaveFullscreenClosure cb = newCClosure =<< mkWebViewLeaveFullscreenCallback wrapped - where wrapped = webViewLeaveFullscreenCallbackWrapper cb - -webViewLeaveFullscreenCallbackWrapper :: - WebViewLeaveFullscreenCallback -> - Ptr () -> - Ptr () -> - IO CInt -webViewLeaveFullscreenCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId -onWebViewLeaveFullscreen obj cb = liftIO $ connectWebViewLeaveFullscreen obj cb SignalConnectBefore -afterWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId -afterWebViewLeaveFullscreen obj cb = connectWebViewLeaveFullscreen obj cb SignalConnectAfter - -connectWebViewLeaveFullscreen :: (GObject a, MonadIO m) => - a -> WebViewLeaveFullscreenCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLeaveFullscreen obj cb after = liftIO $ do - cb' <- mkWebViewLeaveFullscreenCallback (webViewLeaveFullscreenCallbackWrapper cb) - connectSignalFunPtr obj "leave-fullscreen" cb' after - --- signal WebView::load-changed -type WebViewLoadChangedCallback = - LoadEvent -> - IO () - -noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback -noWebViewLoadChangedCallback = Nothing - -type WebViewLoadChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewLoadChangedCallback :: WebViewLoadChangedCallbackC -> IO (FunPtr WebViewLoadChangedCallbackC) - -webViewLoadChangedClosure :: WebViewLoadChangedCallback -> IO Closure -webViewLoadChangedClosure cb = newCClosure =<< mkWebViewLoadChangedCallback wrapped - where wrapped = webViewLoadChangedCallbackWrapper cb - -webViewLoadChangedCallbackWrapper :: - WebViewLoadChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -webViewLoadChangedCallbackWrapper _cb _ load_event _ = do - let load_event' = (toEnum . fromIntegral) load_event - _cb load_event' - -onWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId -onWebViewLoadChanged obj cb = liftIO $ connectWebViewLoadChanged obj cb SignalConnectBefore -afterWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId -afterWebViewLoadChanged obj cb = connectWebViewLoadChanged obj cb SignalConnectAfter - -connectWebViewLoadChanged :: (GObject a, MonadIO m) => - a -> WebViewLoadChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLoadChanged obj cb after = liftIO $ do - cb' <- mkWebViewLoadChangedCallback (webViewLoadChangedCallbackWrapper cb) - connectSignalFunPtr obj "load-changed" cb' after - --- signal WebView::load-failed -type WebViewLoadFailedCallback = - LoadEvent -> - T.Text -> - Ptr () -> - IO Bool - -noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback -noWebViewLoadFailedCallback = Nothing - -type WebViewLoadFailedCallbackC = - Ptr () -> -- object - CUInt -> - CString -> - Ptr () -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewLoadFailedCallback :: WebViewLoadFailedCallbackC -> IO (FunPtr WebViewLoadFailedCallbackC) - -webViewLoadFailedClosure :: WebViewLoadFailedCallback -> IO Closure -webViewLoadFailedClosure cb = newCClosure =<< mkWebViewLoadFailedCallback wrapped - where wrapped = webViewLoadFailedCallbackWrapper cb - -webViewLoadFailedCallbackWrapper :: - WebViewLoadFailedCallback -> - Ptr () -> - CUInt -> - CString -> - Ptr () -> - Ptr () -> - IO CInt -webViewLoadFailedCallbackWrapper _cb _ load_event failing_uri error_ _ = do - let load_event' = (toEnum . fromIntegral) load_event - failing_uri' <- cstringToText failing_uri - result <- _cb load_event' failing_uri' error_ - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId -onWebViewLoadFailed obj cb = liftIO $ connectWebViewLoadFailed obj cb SignalConnectBefore -afterWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId -afterWebViewLoadFailed obj cb = connectWebViewLoadFailed obj cb SignalConnectAfter - -connectWebViewLoadFailed :: (GObject a, MonadIO m) => - a -> WebViewLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLoadFailed obj cb after = liftIO $ do - cb' <- mkWebViewLoadFailedCallback (webViewLoadFailedCallbackWrapper cb) - connectSignalFunPtr obj "load-failed" cb' after - --- signal WebView::load-failed-with-tls-errors -type WebViewLoadFailedWithTlsErrorsCallback = - T.Text -> - Gio.TlsCertificate -> - [Gio.TlsCertificateFlags] -> - IO Bool - -noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback -noWebViewLoadFailedWithTlsErrorsCallback = Nothing - -type WebViewLoadFailedWithTlsErrorsCallbackC = - Ptr () -> -- object - CString -> - Ptr Gio.TlsCertificate -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewLoadFailedWithTlsErrorsCallback :: WebViewLoadFailedWithTlsErrorsCallbackC -> IO (FunPtr WebViewLoadFailedWithTlsErrorsCallbackC) - -webViewLoadFailedWithTlsErrorsClosure :: WebViewLoadFailedWithTlsErrorsCallback -> IO Closure -webViewLoadFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebViewLoadFailedWithTlsErrorsCallback wrapped - where wrapped = webViewLoadFailedWithTlsErrorsCallbackWrapper cb - -webViewLoadFailedWithTlsErrorsCallbackWrapper :: - WebViewLoadFailedWithTlsErrorsCallback -> - Ptr () -> - CString -> - Ptr Gio.TlsCertificate -> - CUInt -> - Ptr () -> - IO CInt -webViewLoadFailedWithTlsErrorsCallbackWrapper _cb _ failing_uri certificate errors _ = do - failing_uri' <- cstringToText failing_uri - certificate' <- (newObject Gio.TlsCertificate) certificate - let errors' = wordToGFlags errors - result <- _cb failing_uri' certificate' errors' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId -onWebViewLoadFailedWithTlsErrors obj cb = liftIO $ connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectBefore -afterWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId -afterWebViewLoadFailedWithTlsErrors obj cb = connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectAfter - -connectWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => - a -> WebViewLoadFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLoadFailedWithTlsErrors obj cb after = liftIO $ do - cb' <- mkWebViewLoadFailedWithTlsErrorsCallback (webViewLoadFailedWithTlsErrorsCallbackWrapper cb) - connectSignalFunPtr obj "load-failed-with-tls-errors" cb' after - --- signal WebView::mouse-target-changed -type WebViewMouseTargetChangedCallback = - HitTestResult -> - Word32 -> - IO () - -noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback -noWebViewMouseTargetChangedCallback = Nothing - -type WebViewMouseTargetChangedCallbackC = - Ptr () -> -- object - Ptr HitTestResult -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewMouseTargetChangedCallback :: WebViewMouseTargetChangedCallbackC -> IO (FunPtr WebViewMouseTargetChangedCallbackC) - -webViewMouseTargetChangedClosure :: WebViewMouseTargetChangedCallback -> IO Closure -webViewMouseTargetChangedClosure cb = newCClosure =<< mkWebViewMouseTargetChangedCallback wrapped - where wrapped = webViewMouseTargetChangedCallbackWrapper cb - -webViewMouseTargetChangedCallbackWrapper :: - WebViewMouseTargetChangedCallback -> - Ptr () -> - Ptr HitTestResult -> - Word32 -> - Ptr () -> - IO () -webViewMouseTargetChangedCallbackWrapper _cb _ hit_test_result modifiers _ = do - hit_test_result' <- (newObject HitTestResult) hit_test_result - _cb hit_test_result' modifiers - -onWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId -onWebViewMouseTargetChanged obj cb = liftIO $ connectWebViewMouseTargetChanged obj cb SignalConnectBefore -afterWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId -afterWebViewMouseTargetChanged obj cb = connectWebViewMouseTargetChanged obj cb SignalConnectAfter - -connectWebViewMouseTargetChanged :: (GObject a, MonadIO m) => - a -> WebViewMouseTargetChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewMouseTargetChanged obj cb after = liftIO $ do - cb' <- mkWebViewMouseTargetChangedCallback (webViewMouseTargetChangedCallbackWrapper cb) - connectSignalFunPtr obj "mouse-target-changed" cb' after - --- signal WebView::permission-request -type WebViewPermissionRequestCallback = - PermissionRequest -> - IO Bool - -noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback -noWebViewPermissionRequestCallback = Nothing - -type WebViewPermissionRequestCallbackC = - Ptr () -> -- object - Ptr PermissionRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewPermissionRequestCallback :: WebViewPermissionRequestCallbackC -> IO (FunPtr WebViewPermissionRequestCallbackC) - -webViewPermissionRequestClosure :: WebViewPermissionRequestCallback -> IO Closure -webViewPermissionRequestClosure cb = newCClosure =<< mkWebViewPermissionRequestCallback wrapped - where wrapped = webViewPermissionRequestCallbackWrapper cb - -webViewPermissionRequestCallbackWrapper :: - WebViewPermissionRequestCallback -> - Ptr () -> - Ptr PermissionRequest -> - Ptr () -> - IO CInt -webViewPermissionRequestCallbackWrapper _cb _ request _ = do - request' <- (newObject PermissionRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId -onWebViewPermissionRequest obj cb = liftIO $ connectWebViewPermissionRequest obj cb SignalConnectBefore -afterWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId -afterWebViewPermissionRequest obj cb = connectWebViewPermissionRequest obj cb SignalConnectAfter - -connectWebViewPermissionRequest :: (GObject a, MonadIO m) => - a -> WebViewPermissionRequestCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewPermissionRequest obj cb after = liftIO $ do - cb' <- mkWebViewPermissionRequestCallback (webViewPermissionRequestCallbackWrapper cb) - connectSignalFunPtr obj "permission-request" cb' after - --- signal WebView::print -type WebViewPrintCallback = - PrintOperation -> - IO Bool - -noWebViewPrintCallback :: Maybe WebViewPrintCallback -noWebViewPrintCallback = Nothing - -type WebViewPrintCallbackC = - Ptr () -> -- object - Ptr PrintOperation -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewPrintCallback :: WebViewPrintCallbackC -> IO (FunPtr WebViewPrintCallbackC) - -webViewPrintClosure :: WebViewPrintCallback -> IO Closure -webViewPrintClosure cb = newCClosure =<< mkWebViewPrintCallback wrapped - where wrapped = webViewPrintCallbackWrapper cb - -webViewPrintCallbackWrapper :: - WebViewPrintCallback -> - Ptr () -> - Ptr PrintOperation -> - Ptr () -> - IO CInt -webViewPrintCallbackWrapper _cb _ print_operation _ = do - print_operation' <- (newObject PrintOperation) print_operation - result <- _cb print_operation' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId -onWebViewPrint obj cb = liftIO $ connectWebViewPrint obj cb SignalConnectBefore -afterWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId -afterWebViewPrint obj cb = connectWebViewPrint obj cb SignalConnectAfter - -connectWebViewPrint :: (GObject a, MonadIO m) => - a -> WebViewPrintCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewPrint obj cb after = liftIO $ do - cb' <- mkWebViewPrintCallback (webViewPrintCallbackWrapper cb) - connectSignalFunPtr obj "print" cb' after - --- signal WebView::ready-to-show -type WebViewReadyToShowCallback = - IO () - -noWebViewReadyToShowCallback :: Maybe WebViewReadyToShowCallback -noWebViewReadyToShowCallback = Nothing - -type WebViewReadyToShowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewReadyToShowCallback :: WebViewReadyToShowCallbackC -> IO (FunPtr WebViewReadyToShowCallbackC) - -webViewReadyToShowClosure :: WebViewReadyToShowCallback -> IO Closure -webViewReadyToShowClosure cb = newCClosure =<< mkWebViewReadyToShowCallback wrapped - where wrapped = webViewReadyToShowCallbackWrapper cb - -webViewReadyToShowCallbackWrapper :: - WebViewReadyToShowCallback -> - Ptr () -> - Ptr () -> - IO () -webViewReadyToShowCallbackWrapper _cb _ _ = do - _cb - -onWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId -onWebViewReadyToShow obj cb = liftIO $ connectWebViewReadyToShow obj cb SignalConnectBefore -afterWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId -afterWebViewReadyToShow obj cb = connectWebViewReadyToShow obj cb SignalConnectAfter - -connectWebViewReadyToShow :: (GObject a, MonadIO m) => - a -> WebViewReadyToShowCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewReadyToShow obj cb after = liftIO $ do - cb' <- mkWebViewReadyToShowCallback (webViewReadyToShowCallbackWrapper cb) - connectSignalFunPtr obj "ready-to-show" cb' after - --- signal WebView::resource-load-started -type WebViewResourceLoadStartedCallback = - WebResource -> - URIRequest -> - IO () - -noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback -noWebViewResourceLoadStartedCallback = Nothing - -type WebViewResourceLoadStartedCallbackC = - Ptr () -> -- object - Ptr WebResource -> - Ptr URIRequest -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewResourceLoadStartedCallback :: WebViewResourceLoadStartedCallbackC -> IO (FunPtr WebViewResourceLoadStartedCallbackC) - -webViewResourceLoadStartedClosure :: WebViewResourceLoadStartedCallback -> IO Closure -webViewResourceLoadStartedClosure cb = newCClosure =<< mkWebViewResourceLoadStartedCallback wrapped - where wrapped = webViewResourceLoadStartedCallbackWrapper cb - -webViewResourceLoadStartedCallbackWrapper :: - WebViewResourceLoadStartedCallback -> - Ptr () -> - Ptr WebResource -> - Ptr URIRequest -> - Ptr () -> - IO () -webViewResourceLoadStartedCallbackWrapper _cb _ resource request _ = do - resource' <- (newObject WebResource) resource - request' <- (newObject URIRequest) request - _cb resource' request' - -onWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId -onWebViewResourceLoadStarted obj cb = liftIO $ connectWebViewResourceLoadStarted obj cb SignalConnectBefore -afterWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId -afterWebViewResourceLoadStarted obj cb = connectWebViewResourceLoadStarted obj cb SignalConnectAfter - -connectWebViewResourceLoadStarted :: (GObject a, MonadIO m) => - a -> WebViewResourceLoadStartedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewResourceLoadStarted obj cb after = liftIO $ do - cb' <- mkWebViewResourceLoadStartedCallback (webViewResourceLoadStartedCallbackWrapper cb) - connectSignalFunPtr obj "resource-load-started" cb' after - --- signal WebView::run-as-modal -type WebViewRunAsModalCallback = - IO () - -noWebViewRunAsModalCallback :: Maybe WebViewRunAsModalCallback -noWebViewRunAsModalCallback = Nothing - -type WebViewRunAsModalCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewRunAsModalCallback :: WebViewRunAsModalCallbackC -> IO (FunPtr WebViewRunAsModalCallbackC) - -webViewRunAsModalClosure :: WebViewRunAsModalCallback -> IO Closure -webViewRunAsModalClosure cb = newCClosure =<< mkWebViewRunAsModalCallback wrapped - where wrapped = webViewRunAsModalCallbackWrapper cb - -webViewRunAsModalCallbackWrapper :: - WebViewRunAsModalCallback -> - Ptr () -> - Ptr () -> - IO () -webViewRunAsModalCallbackWrapper _cb _ _ = do - _cb - -onWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId -onWebViewRunAsModal obj cb = liftIO $ connectWebViewRunAsModal obj cb SignalConnectBefore -afterWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId -afterWebViewRunAsModal obj cb = connectWebViewRunAsModal obj cb SignalConnectAfter - -connectWebViewRunAsModal :: (GObject a, MonadIO m) => - a -> WebViewRunAsModalCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewRunAsModal obj cb after = liftIO $ do - cb' <- mkWebViewRunAsModalCallback (webViewRunAsModalCallbackWrapper cb) - connectSignalFunPtr obj "run-as-modal" cb' after - --- signal WebView::run-color-chooser -type WebViewRunColorChooserCallback = - ColorChooserRequest -> - IO Bool - -noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback -noWebViewRunColorChooserCallback = Nothing - -type WebViewRunColorChooserCallbackC = - Ptr () -> -- object - Ptr ColorChooserRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewRunColorChooserCallback :: WebViewRunColorChooserCallbackC -> IO (FunPtr WebViewRunColorChooserCallbackC) - -webViewRunColorChooserClosure :: WebViewRunColorChooserCallback -> IO Closure -webViewRunColorChooserClosure cb = newCClosure =<< mkWebViewRunColorChooserCallback wrapped - where wrapped = webViewRunColorChooserCallbackWrapper cb - -webViewRunColorChooserCallbackWrapper :: - WebViewRunColorChooserCallback -> - Ptr () -> - Ptr ColorChooserRequest -> - Ptr () -> - IO CInt -webViewRunColorChooserCallbackWrapper _cb _ request _ = do - request' <- (newObject ColorChooserRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId -onWebViewRunColorChooser obj cb = liftIO $ connectWebViewRunColorChooser obj cb SignalConnectBefore -afterWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId -afterWebViewRunColorChooser obj cb = connectWebViewRunColorChooser obj cb SignalConnectAfter - -connectWebViewRunColorChooser :: (GObject a, MonadIO m) => - a -> WebViewRunColorChooserCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewRunColorChooser obj cb after = liftIO $ do - cb' <- mkWebViewRunColorChooserCallback (webViewRunColorChooserCallbackWrapper cb) - connectSignalFunPtr obj "run-color-chooser" cb' after - --- signal WebView::run-file-chooser -type WebViewRunFileChooserCallback = - FileChooserRequest -> - IO Bool - -noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback -noWebViewRunFileChooserCallback = Nothing - -type WebViewRunFileChooserCallbackC = - Ptr () -> -- object - Ptr FileChooserRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewRunFileChooserCallback :: WebViewRunFileChooserCallbackC -> IO (FunPtr WebViewRunFileChooserCallbackC) - -webViewRunFileChooserClosure :: WebViewRunFileChooserCallback -> IO Closure -webViewRunFileChooserClosure cb = newCClosure =<< mkWebViewRunFileChooserCallback wrapped - where wrapped = webViewRunFileChooserCallbackWrapper cb - -webViewRunFileChooserCallbackWrapper :: - WebViewRunFileChooserCallback -> - Ptr () -> - Ptr FileChooserRequest -> - Ptr () -> - IO CInt -webViewRunFileChooserCallbackWrapper _cb _ request _ = do - request' <- (newObject FileChooserRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId -onWebViewRunFileChooser obj cb = liftIO $ connectWebViewRunFileChooser obj cb SignalConnectBefore -afterWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId -afterWebViewRunFileChooser obj cb = connectWebViewRunFileChooser obj cb SignalConnectAfter - -connectWebViewRunFileChooser :: (GObject a, MonadIO m) => - a -> WebViewRunFileChooserCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewRunFileChooser obj cb after = liftIO $ do - cb' <- mkWebViewRunFileChooserCallback (webViewRunFileChooserCallbackWrapper cb) - connectSignalFunPtr obj "run-file-chooser" cb' after - --- signal WebView::script-dialog -type WebViewScriptDialogCallback = - ScriptDialog -> - IO Bool - -noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback -noWebViewScriptDialogCallback = Nothing - -type WebViewScriptDialogCallbackC = - Ptr () -> -- object - Ptr ScriptDialog -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewScriptDialogCallback :: WebViewScriptDialogCallbackC -> IO (FunPtr WebViewScriptDialogCallbackC) - -webViewScriptDialogClosure :: WebViewScriptDialogCallback -> IO Closure -webViewScriptDialogClosure cb = newCClosure =<< mkWebViewScriptDialogCallback wrapped - where wrapped = webViewScriptDialogCallbackWrapper cb - -webViewScriptDialogCallbackWrapper :: - WebViewScriptDialogCallback -> - Ptr () -> - Ptr ScriptDialog -> - Ptr () -> - IO CInt -webViewScriptDialogCallbackWrapper _cb _ dialog _ = do - dialog' <- (newBoxed ScriptDialog) dialog - result <- _cb dialog' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId -onWebViewScriptDialog obj cb = liftIO $ connectWebViewScriptDialog obj cb SignalConnectBefore -afterWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId -afterWebViewScriptDialog obj cb = connectWebViewScriptDialog obj cb SignalConnectAfter - -connectWebViewScriptDialog :: (GObject a, MonadIO m) => - a -> WebViewScriptDialogCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewScriptDialog obj cb after = liftIO $ do - cb' <- mkWebViewScriptDialogCallback (webViewScriptDialogCallbackWrapper cb) - connectSignalFunPtr obj "script-dialog" cb' after - --- signal WebView::show-notification -type WebViewShowNotificationCallback = - Notification -> - IO Bool - -noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback -noWebViewShowNotificationCallback = Nothing - -type WebViewShowNotificationCallbackC = - Ptr () -> -- object - Ptr Notification -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewShowNotificationCallback :: WebViewShowNotificationCallbackC -> IO (FunPtr WebViewShowNotificationCallbackC) - -webViewShowNotificationClosure :: WebViewShowNotificationCallback -> IO Closure -webViewShowNotificationClosure cb = newCClosure =<< mkWebViewShowNotificationCallback wrapped - where wrapped = webViewShowNotificationCallbackWrapper cb - -webViewShowNotificationCallbackWrapper :: - WebViewShowNotificationCallback -> - Ptr () -> - Ptr Notification -> - Ptr () -> - IO CInt -webViewShowNotificationCallbackWrapper _cb _ notification _ = do - notification' <- (newObject Notification) notification - result <- _cb notification' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId -onWebViewShowNotification obj cb = liftIO $ connectWebViewShowNotification obj cb SignalConnectBefore -afterWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId -afterWebViewShowNotification obj cb = connectWebViewShowNotification obj cb SignalConnectAfter - -connectWebViewShowNotification :: (GObject a, MonadIO m) => - a -> WebViewShowNotificationCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewShowNotification obj cb after = liftIO $ do - cb' <- mkWebViewShowNotificationCallback (webViewShowNotificationCallbackWrapper cb) - connectSignalFunPtr obj "show-notification" cb' after - --- signal WebView::submit-form -type WebViewSubmitFormCallback = - FormSubmissionRequest -> - IO () - -noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback -noWebViewSubmitFormCallback = Nothing - -type WebViewSubmitFormCallbackC = - Ptr () -> -- object - Ptr FormSubmissionRequest -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewSubmitFormCallback :: WebViewSubmitFormCallbackC -> IO (FunPtr WebViewSubmitFormCallbackC) - -webViewSubmitFormClosure :: WebViewSubmitFormCallback -> IO Closure -webViewSubmitFormClosure cb = newCClosure =<< mkWebViewSubmitFormCallback wrapped - where wrapped = webViewSubmitFormCallbackWrapper cb - -webViewSubmitFormCallbackWrapper :: - WebViewSubmitFormCallback -> - Ptr () -> - Ptr FormSubmissionRequest -> - Ptr () -> - IO () -webViewSubmitFormCallbackWrapper _cb _ request _ = do - request' <- (newObject FormSubmissionRequest) request - _cb request' - -onWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId -onWebViewSubmitForm obj cb = liftIO $ connectWebViewSubmitForm obj cb SignalConnectBefore -afterWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId -afterWebViewSubmitForm obj cb = connectWebViewSubmitForm obj cb SignalConnectAfter - -connectWebViewSubmitForm :: (GObject a, MonadIO m) => - a -> WebViewSubmitFormCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewSubmitForm obj cb after = liftIO $ do - cb' <- mkWebViewSubmitFormCallback (webViewSubmitFormCallbackWrapper cb) - connectSignalFunPtr obj "submit-form" cb' after - --- signal WebView::web-process-crashed -type WebViewWebProcessCrashedCallback = - IO Bool - -noWebViewWebProcessCrashedCallback :: Maybe WebViewWebProcessCrashedCallback -noWebViewWebProcessCrashedCallback = Nothing - -type WebViewWebProcessCrashedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewWebProcessCrashedCallback :: WebViewWebProcessCrashedCallbackC -> IO (FunPtr WebViewWebProcessCrashedCallbackC) - -webViewWebProcessCrashedClosure :: WebViewWebProcessCrashedCallback -> IO Closure -webViewWebProcessCrashedClosure cb = newCClosure =<< mkWebViewWebProcessCrashedCallback wrapped - where wrapped = webViewWebProcessCrashedCallbackWrapper cb - -webViewWebProcessCrashedCallbackWrapper :: - WebViewWebProcessCrashedCallback -> - Ptr () -> - Ptr () -> - IO CInt -webViewWebProcessCrashedCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId -onWebViewWebProcessCrashed obj cb = liftIO $ connectWebViewWebProcessCrashed obj cb SignalConnectBefore -afterWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId -afterWebViewWebProcessCrashed obj cb = connectWebViewWebProcessCrashed obj cb SignalConnectAfter - -connectWebViewWebProcessCrashed :: (GObject a, MonadIO m) => - a -> WebViewWebProcessCrashedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewWebProcessCrashed obj cb after = liftIO $ do - cb' <- mkWebViewWebProcessCrashedCallback (webViewWebProcessCrashedCallbackWrapper cb) - connectSignalFunPtr obj "web-process-crashed" cb' after - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m () -setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructWebViewEditable :: Bool -> IO ([Char], GValue) -constructWebViewEditable val = constructObjectPropertyBool "editable" val - -data WebViewEditablePropertyInfo -instance AttrInfo WebViewEditablePropertyInfo where - type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK - type AttrGetType WebViewEditablePropertyInfo = Bool - type AttrLabel WebViewEditablePropertyInfo = "WebView::editable" - attrGet _ = getWebViewEditable - attrSet _ = setWebViewEditable - attrConstruct _ = constructWebViewEditable - --- VVV Prop "estimated-load-progress" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getWebViewEstimatedLoadProgress :: (MonadIO m, WebViewK o) => o -> m Double -getWebViewEstimatedLoadProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-load-progress" - -data WebViewEstimatedLoadProgressPropertyInfo -instance AttrInfo WebViewEstimatedLoadProgressPropertyInfo where - type AttrAllowedOps WebViewEstimatedLoadProgressPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = WebViewK - type AttrGetType WebViewEstimatedLoadProgressPropertyInfo = Double - type AttrLabel WebViewEstimatedLoadProgressPropertyInfo = "WebView::estimated-load-progress" - attrGet _ = getWebViewEstimatedLoadProgress - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "favicon" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable] - -getWebViewFavicon :: (MonadIO m, WebViewK o) => o -> m (Ptr ()) -getWebViewFavicon obj = liftIO $ getObjectPropertyPtr obj "favicon" - -data WebViewFaviconPropertyInfo -instance AttrInfo WebViewFaviconPropertyInfo where - type AttrAllowedOps WebViewFaviconPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewFaviconPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewFaviconPropertyInfo = WebViewK - type AttrGetType WebViewFaviconPropertyInfo = (Ptr ()) - type AttrLabel WebViewFaviconPropertyInfo = "WebView::favicon" - attrGet _ = getWebViewFavicon - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "is-loading" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWebViewIsLoading :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewIsLoading obj = liftIO $ getObjectPropertyBool obj "is-loading" - -data WebViewIsLoadingPropertyInfo -instance AttrInfo WebViewIsLoadingPropertyInfo where - type AttrAllowedOps WebViewIsLoadingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewIsLoadingPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewIsLoadingPropertyInfo = WebViewK - type AttrGetType WebViewIsLoadingPropertyInfo = Bool - type AttrLabel WebViewIsLoadingPropertyInfo = "WebView::is-loading" - attrGet _ = getWebViewIsLoading - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "is-playing-audio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWebViewIsPlayingAudio :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewIsPlayingAudio obj = liftIO $ getObjectPropertyBool obj "is-playing-audio" - -data WebViewIsPlayingAudioPropertyInfo -instance AttrInfo WebViewIsPlayingAudioPropertyInfo where - type AttrAllowedOps WebViewIsPlayingAudioPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewIsPlayingAudioPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewIsPlayingAudioPropertyInfo = WebViewK - type AttrGetType WebViewIsPlayingAudioPropertyInfo = Bool - type AttrLabel WebViewIsPlayingAudioPropertyInfo = "WebView::is-playing-audio" - attrGet _ = getWebViewIsPlayingAudio - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "related-view" - -- Type: TInterface "WebKit2" "WebView" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -constructWebViewRelatedView :: (WebViewK a) => a -> IO ([Char], GValue) -constructWebViewRelatedView val = constructObjectPropertyObject "related-view" val - -data WebViewRelatedViewPropertyInfo -instance AttrInfo WebViewRelatedViewPropertyInfo where - type AttrAllowedOps WebViewRelatedViewPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK - type AttrBaseTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK - type AttrGetType WebViewRelatedViewPropertyInfo = () - type AttrLabel WebViewRelatedViewPropertyInfo = "WebView::related-view" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructWebViewRelatedView - --- VVV Prop "settings" - -- Type: TInterface "WebKit2" "Settings" - -- Flags: [PropertyWritable,PropertyConstruct] - -setWebViewSettings :: (MonadIO m, WebViewK o, SettingsK a) => o -> a -> m () -setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" val - -constructWebViewSettings :: (SettingsK a) => a -> IO ([Char], GValue) -constructWebViewSettings val = constructObjectPropertyObject "settings" val - -data WebViewSettingsPropertyInfo -instance AttrInfo WebViewSettingsPropertyInfo where - type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint WebViewSettingsPropertyInfo = SettingsK - type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK - type AttrGetType WebViewSettingsPropertyInfo = () - type AttrLabel WebViewSettingsPropertyInfo = "WebView::settings" - attrGet _ = undefined - attrSet _ = setWebViewSettings - attrConstruct _ = constructWebViewSettings - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewTitle obj = liftIO $ getObjectPropertyString obj "title" - -data WebViewTitlePropertyInfo -instance AttrInfo WebViewTitlePropertyInfo where - type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK - type AttrGetType WebViewTitlePropertyInfo = T.Text - type AttrLabel WebViewTitlePropertyInfo = "WebView::title" - attrGet _ = getWebViewTitle - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebViewUri :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri" - -data WebViewUriPropertyInfo -instance AttrInfo WebViewUriPropertyInfo where - type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK - type AttrGetType WebViewUriPropertyInfo = T.Text - type AttrLabel WebViewUriPropertyInfo = "WebView::uri" - attrGet _ = getWebViewUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "user-content-manager" - -- Type: TInterface "WebKit2" "UserContentManager" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebViewUserContentManager :: (MonadIO m, WebViewK o) => o -> m UserContentManager -getWebViewUserContentManager obj = liftIO $ getObjectPropertyObject obj "user-content-manager" UserContentManager - -constructWebViewUserContentManager :: (UserContentManagerK a) => a -> IO ([Char], GValue) -constructWebViewUserContentManager val = constructObjectPropertyObject "user-content-manager" val - -data WebViewUserContentManagerPropertyInfo -instance AttrInfo WebViewUserContentManagerPropertyInfo where - type AttrAllowedOps WebViewUserContentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewUserContentManagerPropertyInfo = UserContentManagerK - type AttrBaseTypeConstraint WebViewUserContentManagerPropertyInfo = WebViewK - type AttrGetType WebViewUserContentManagerPropertyInfo = UserContentManager - type AttrLabel WebViewUserContentManagerPropertyInfo = "WebView::user-content-manager" - attrGet _ = getWebViewUserContentManager - attrSet _ = undefined - attrConstruct _ = constructWebViewUserContentManager - --- VVV Prop "web-context" - -- Type: TInterface "WebKit2" "WebContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebViewWebContext :: (MonadIO m, WebViewK o) => o -> m WebContext -getWebViewWebContext obj = liftIO $ getObjectPropertyObject obj "web-context" WebContext - -constructWebViewWebContext :: (WebContextK a) => a -> IO ([Char], GValue) -constructWebViewWebContext val = constructObjectPropertyObject "web-context" val - -data WebViewWebContextPropertyInfo -instance AttrInfo WebViewWebContextPropertyInfo where - type AttrAllowedOps WebViewWebContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewWebContextPropertyInfo = WebContextK - type AttrBaseTypeConstraint WebViewWebContextPropertyInfo = WebViewK - type AttrGetType WebViewWebContextPropertyInfo = WebContext - type AttrLabel WebViewWebContextPropertyInfo = "WebView::web-context" - attrGet _ = getWebViewWebContext - attrSet _ = undefined - attrConstruct _ = constructWebViewWebContext - --- VVV Prop "zoom-level" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Double -getWebViewZoomLevel obj = liftIO $ getObjectPropertyDouble obj "zoom-level" - -setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Double -> m () -setWebViewZoomLevel obj val = liftIO $ setObjectPropertyDouble obj "zoom-level" val - -constructWebViewZoomLevel :: Double -> IO ([Char], GValue) -constructWebViewZoomLevel val = constructObjectPropertyDouble "zoom-level" val - -data WebViewZoomLevelPropertyInfo -instance AttrInfo WebViewZoomLevelPropertyInfo where - type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Double - type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK - type AttrGetType WebViewZoomLevelPropertyInfo = Double - type AttrLabel WebViewZoomLevelPropertyInfo = "WebView::zoom-level" - attrGet _ = getWebViewZoomLevel - attrSet _ = setWebViewZoomLevel - attrConstruct _ = constructWebViewZoomLevel - -type instance AttributeList WebView = WebViewAttributeList -type WebViewAttributeList = ('[ '("app-paintable", Gtk.WidgetAppPaintablePropertyInfo), '("border-width", Gtk.ContainerBorderWidthPropertyInfo), '("can-default", Gtk.WidgetCanDefaultPropertyInfo), '("can-focus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("composite-child", Gtk.WidgetCompositeChildPropertyInfo), '("double-buffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("estimated-load-progress", WebViewEstimatedLoadProgressPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("favicon", WebViewFaviconPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("has-default", Gtk.WidgetHasDefaultPropertyInfo), '("has-focus", Gtk.WidgetHasFocusPropertyInfo), '("has-tooltip", Gtk.WidgetHasTooltipPropertyInfo), '("height-request", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpand-set", Gtk.WidgetHexpandSetPropertyInfo), '("is-focus", Gtk.WidgetIsFocusPropertyInfo), '("is-loading", WebViewIsLoadingPropertyInfo), '("is-playing-audio", WebViewIsPlayingAudioPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("margin-bottom", Gtk.WidgetMarginBottomPropertyInfo), '("margin-end", Gtk.WidgetMarginEndPropertyInfo), '("margin-left", Gtk.WidgetMarginLeftPropertyInfo), '("margin-right", Gtk.WidgetMarginRightPropertyInfo), '("margin-start", Gtk.WidgetMarginStartPropertyInfo), '("margin-top", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("no-show-all", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receives-default", Gtk.WidgetReceivesDefaultPropertyInfo), '("related-view", WebViewRelatedViewPropertyInfo), '("resize-mode", Gtk.ContainerResizeModePropertyInfo), '("scale-factor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltip-markup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", Gtk.WidgetTooltipTextPropertyInfo), '("uri", WebViewUriPropertyInfo), '("user-content-manager", WebViewUserContentManagerPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpand-set", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("web-context", WebViewWebContextPropertyInfo), '("width-request", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo), '("zoom-level", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)]) - -data WebViewAuthenticateSignalInfo -instance SignalInfo WebViewAuthenticateSignalInfo where - type HaskellCallbackType WebViewAuthenticateSignalInfo = WebViewAuthenticateCallback - connectSignal _ = connectWebViewAuthenticate - -data WebViewCloseSignalInfo -instance SignalInfo WebViewCloseSignalInfo where - type HaskellCallbackType WebViewCloseSignalInfo = WebViewCloseCallback - connectSignal _ = connectWebViewClose - -data WebViewContextMenuSignalInfo -instance SignalInfo WebViewContextMenuSignalInfo where - type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback - connectSignal _ = connectWebViewContextMenu - -data WebViewContextMenuDismissedSignalInfo -instance SignalInfo WebViewContextMenuDismissedSignalInfo where - type HaskellCallbackType WebViewContextMenuDismissedSignalInfo = WebViewContextMenuDismissedCallback - connectSignal _ = connectWebViewContextMenuDismissed - -data WebViewCreateSignalInfo -instance SignalInfo WebViewCreateSignalInfo where - type HaskellCallbackType WebViewCreateSignalInfo = WebViewCreateCallback - connectSignal _ = connectWebViewCreate - -data WebViewDecidePolicySignalInfo -instance SignalInfo WebViewDecidePolicySignalInfo where - type HaskellCallbackType WebViewDecidePolicySignalInfo = WebViewDecidePolicyCallback - connectSignal _ = connectWebViewDecidePolicy - -data WebViewEnterFullscreenSignalInfo -instance SignalInfo WebViewEnterFullscreenSignalInfo where - type HaskellCallbackType WebViewEnterFullscreenSignalInfo = WebViewEnterFullscreenCallback - connectSignal _ = connectWebViewEnterFullscreen - -data WebViewInsecureContentDetectedSignalInfo -instance SignalInfo WebViewInsecureContentDetectedSignalInfo where - type HaskellCallbackType WebViewInsecureContentDetectedSignalInfo = WebViewInsecureContentDetectedCallback - connectSignal _ = connectWebViewInsecureContentDetected - -data WebViewLeaveFullscreenSignalInfo -instance SignalInfo WebViewLeaveFullscreenSignalInfo where - type HaskellCallbackType WebViewLeaveFullscreenSignalInfo = WebViewLeaveFullscreenCallback - connectSignal _ = connectWebViewLeaveFullscreen - -data WebViewLoadChangedSignalInfo -instance SignalInfo WebViewLoadChangedSignalInfo where - type HaskellCallbackType WebViewLoadChangedSignalInfo = WebViewLoadChangedCallback - connectSignal _ = connectWebViewLoadChanged - -data WebViewLoadFailedSignalInfo -instance SignalInfo WebViewLoadFailedSignalInfo where - type HaskellCallbackType WebViewLoadFailedSignalInfo = WebViewLoadFailedCallback - connectSignal _ = connectWebViewLoadFailed - -data WebViewLoadFailedWithTlsErrorsSignalInfo -instance SignalInfo WebViewLoadFailedWithTlsErrorsSignalInfo where - type HaskellCallbackType WebViewLoadFailedWithTlsErrorsSignalInfo = WebViewLoadFailedWithTlsErrorsCallback - connectSignal _ = connectWebViewLoadFailedWithTlsErrors - -data WebViewMouseTargetChangedSignalInfo -instance SignalInfo WebViewMouseTargetChangedSignalInfo where - type HaskellCallbackType WebViewMouseTargetChangedSignalInfo = WebViewMouseTargetChangedCallback - connectSignal _ = connectWebViewMouseTargetChanged - -data WebViewPermissionRequestSignalInfo -instance SignalInfo WebViewPermissionRequestSignalInfo where - type HaskellCallbackType WebViewPermissionRequestSignalInfo = WebViewPermissionRequestCallback - connectSignal _ = connectWebViewPermissionRequest - -data WebViewPrintSignalInfo -instance SignalInfo WebViewPrintSignalInfo where - type HaskellCallbackType WebViewPrintSignalInfo = WebViewPrintCallback - connectSignal _ = connectWebViewPrint - -data WebViewReadyToShowSignalInfo -instance SignalInfo WebViewReadyToShowSignalInfo where - type HaskellCallbackType WebViewReadyToShowSignalInfo = WebViewReadyToShowCallback - connectSignal _ = connectWebViewReadyToShow - -data WebViewResourceLoadStartedSignalInfo -instance SignalInfo WebViewResourceLoadStartedSignalInfo where - type HaskellCallbackType WebViewResourceLoadStartedSignalInfo = WebViewResourceLoadStartedCallback - connectSignal _ = connectWebViewResourceLoadStarted - -data WebViewRunAsModalSignalInfo -instance SignalInfo WebViewRunAsModalSignalInfo where - type HaskellCallbackType WebViewRunAsModalSignalInfo = WebViewRunAsModalCallback - connectSignal _ = connectWebViewRunAsModal - -data WebViewRunColorChooserSignalInfo -instance SignalInfo WebViewRunColorChooserSignalInfo where - type HaskellCallbackType WebViewRunColorChooserSignalInfo = WebViewRunColorChooserCallback - connectSignal _ = connectWebViewRunColorChooser - -data WebViewRunFileChooserSignalInfo -instance SignalInfo WebViewRunFileChooserSignalInfo where - type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback - connectSignal _ = connectWebViewRunFileChooser - -data WebViewScriptDialogSignalInfo -instance SignalInfo WebViewScriptDialogSignalInfo where - type HaskellCallbackType WebViewScriptDialogSignalInfo = WebViewScriptDialogCallback - connectSignal _ = connectWebViewScriptDialog - -data WebViewShowNotificationSignalInfo -instance SignalInfo WebViewShowNotificationSignalInfo where - type HaskellCallbackType WebViewShowNotificationSignalInfo = WebViewShowNotificationCallback - connectSignal _ = connectWebViewShowNotification - -data WebViewSubmitFormSignalInfo -instance SignalInfo WebViewSubmitFormSignalInfo where - type HaskellCallbackType WebViewSubmitFormSignalInfo = WebViewSubmitFormCallback - connectSignal _ = connectWebViewSubmitForm - -data WebViewWebProcessCrashedSignalInfo -instance SignalInfo WebViewWebProcessCrashedSignalInfo where - type HaskellCallbackType WebViewWebProcessCrashedSignalInfo = WebViewWebProcessCrashedCallback - connectSignal _ = connectWebViewWebProcessCrashed - -type instance SignalList WebView = WebViewSignalList -type WebViewSignalList = ('[ '("accel-closures-changed", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("authenticate", WebViewAuthenticateSignalInfo), '("button-press-event", Gtk.WidgetButtonPressEventSignalInfo), '("button-release-event", Gtk.WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", Gtk.WidgetCanActivateAccelSignalInfo), '("check-resize", Gtk.ContainerCheckResizeSignalInfo), '("child-notify", Gtk.WidgetChildNotifySignalInfo), '("close", WebViewCloseSignalInfo), '("composited-changed", Gtk.WidgetCompositedChangedSignalInfo), '("configure-event", Gtk.WidgetConfigureEventSignalInfo), '("context-menu", WebViewContextMenuSignalInfo), '("context-menu-dismissed", WebViewContextMenuDismissedSignalInfo), '("create", WebViewCreateSignalInfo), '("damage-event", Gtk.WidgetDamageEventSignalInfo), '("decide-policy", WebViewDecidePolicySignalInfo), '("delete-event", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroy-event", Gtk.WidgetDestroyEventSignalInfo), '("direction-changed", Gtk.WidgetDirectionChangedSignalInfo), '("drag-begin", Gtk.WidgetDragBeginSignalInfo), '("drag-data-delete", Gtk.WidgetDragDataDeleteSignalInfo), '("drag-data-get", Gtk.WidgetDragDataGetSignalInfo), '("drag-data-received", Gtk.WidgetDragDataReceivedSignalInfo), '("drag-drop", Gtk.WidgetDragDropSignalInfo), '("drag-end", Gtk.WidgetDragEndSignalInfo), '("drag-failed", Gtk.WidgetDragFailedSignalInfo), '("drag-leave", Gtk.WidgetDragLeaveSignalInfo), '("drag-motion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enter-fullscreen", WebViewEnterFullscreenSignalInfo), '("enter-notify-event", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("event-after", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focus-in-event", Gtk.WidgetFocusInEventSignalInfo), '("focus-out-event", Gtk.WidgetFocusOutEventSignalInfo), '("grab-broken-event", Gtk.WidgetGrabBrokenEventSignalInfo), '("grab-focus", Gtk.WidgetGrabFocusSignalInfo), '("grab-notify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchy-changed", Gtk.WidgetHierarchyChangedSignalInfo), '("insecure-content-detected", WebViewInsecureContentDetectedSignalInfo), '("key-press-event", Gtk.WidgetKeyPressEventSignalInfo), '("key-release-event", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynav-failed", Gtk.WidgetKeynavFailedSignalInfo), '("leave-fullscreen", WebViewLeaveFullscreenSignalInfo), '("leave-notify-event", Gtk.WidgetLeaveNotifyEventSignalInfo), '("load-changed", WebViewLoadChangedSignalInfo), '("load-failed", WebViewLoadFailedSignalInfo), '("load-failed-with-tls-errors", WebViewLoadFailedWithTlsErrorsSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("map-event", Gtk.WidgetMapEventSignalInfo), '("mnemonic-activate", Gtk.WidgetMnemonicActivateSignalInfo), '("motion-notify-event", Gtk.WidgetMotionNotifyEventSignalInfo), '("mouse-target-changed", WebViewMouseTargetChangedSignalInfo), '("move-focus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", Gtk.WidgetParentSetSignalInfo), '("permission-request", WebViewPermissionRequestSignalInfo), '("popup-menu", Gtk.WidgetPopupMenuSignalInfo), '("print", WebViewPrintSignalInfo), '("property-notify-event", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", Gtk.WidgetProximityInEventSignalInfo), '("proximity-out-event", Gtk.WidgetProximityOutEventSignalInfo), '("query-tooltip", Gtk.WidgetQueryTooltipSignalInfo), '("ready-to-show", WebViewReadyToShowSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resource-load-started", WebViewResourceLoadStartedSignalInfo), '("run-as-modal", WebViewRunAsModalSignalInfo), '("run-color-chooser", WebViewRunColorChooserSignalInfo), '("run-file-chooser", WebViewRunFileChooserSignalInfo), '("screen-changed", Gtk.WidgetScreenChangedSignalInfo), '("script-dialog", WebViewScriptDialogSignalInfo), '("scroll-event", Gtk.WidgetScrollEventSignalInfo), '("selection-clear-event", Gtk.WidgetSelectionClearEventSignalInfo), '("selection-get", Gtk.WidgetSelectionGetSignalInfo), '("selection-notify-event", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selection-received", Gtk.WidgetSelectionReceivedSignalInfo), '("selection-request-event", Gtk.WidgetSelectionRequestEventSignalInfo), '("set-focus-child", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("show-help", Gtk.WidgetShowHelpSignalInfo), '("show-notification", WebViewShowNotificationSignalInfo), '("size-allocate", Gtk.WidgetSizeAllocateSignalInfo), '("state-changed", Gtk.WidgetStateChangedSignalInfo), '("state-flags-changed", Gtk.WidgetStateFlagsChangedSignalInfo), '("style-set", Gtk.WidgetStyleSetSignalInfo), '("style-updated", Gtk.WidgetStyleUpdatedSignalInfo), '("submit-form", WebViewSubmitFormSignalInfo), '("touch-event", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmap-event", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibility-notify-event", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("web-process-crashed", WebViewWebProcessCrashedSignalInfo), '("window-state-event", Gtk.WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WebView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "WebKit2" "WebView" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new" webkit_web_view_new :: - IO (Ptr WebView) - - -webViewNew :: - (MonadIO m) => - m WebView -webViewNew = liftIO $ do - result <- webkit_web_view_new - checkUnexpectedReturnNULL "webkit_web_view_new" result - result' <- (newObject WebView) result - return result' - --- method WebView::new_with_context --- method type : Constructor --- Args : [Arg {argName = "context", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "WebView" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_context" webkit_web_view_new_with_context :: - Ptr WebContext -> -- context : TInterface "WebKit2" "WebContext" - IO (Ptr WebView) - - -webViewNewWithContext :: - (MonadIO m, WebContextK a) => - a -> -- context - m WebView -webViewNewWithContext context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - result <- webkit_web_view_new_with_context context' - checkUnexpectedReturnNULL "webkit_web_view_new_with_context" result - result' <- (newObject WebView) result - touchManagedPtr context - return result' - --- method WebView::new_with_settings --- method type : Constructor --- Args : [Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "WebView" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_settings" webkit_web_view_new_with_settings :: - Ptr Settings -> -- settings : TInterface "WebKit2" "Settings" - IO (Ptr WebView) - - -webViewNewWithSettings :: - (MonadIO m, SettingsK a) => - a -> -- settings - m WebView -webViewNewWithSettings settings = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - result <- webkit_web_view_new_with_settings settings' - checkUnexpectedReturnNULL "webkit_web_view_new_with_settings" result - result' <- (newObject WebView) result - touchManagedPtr settings - return result' - --- method WebView::new_with_user_content_manager --- method type : Constructor --- Args : [Arg {argName = "user_content_manager", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "user_content_manager", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "WebView" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_user_content_manager" webkit_web_view_new_with_user_content_manager :: - Ptr UserContentManager -> -- user_content_manager : TInterface "WebKit2" "UserContentManager" - IO (Ptr WebView) - - -webViewNewWithUserContentManager :: - (MonadIO m, UserContentManagerK a) => - a -> -- user_content_manager - m WebView -webViewNewWithUserContentManager user_content_manager = liftIO $ do - let user_content_manager' = unsafeManagedPtrCastPtr user_content_manager - result <- webkit_web_view_new_with_user_content_manager user_content_manager' - checkUnexpectedReturnNULL "webkit_web_view_new_with_user_content_manager" result - result' <- (newObject WebView) result - touchManagedPtr user_content_manager - return result' - --- method WebView::can_execute_editing_command --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", 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 - -foreign import ccall "webkit_web_view_can_execute_editing_command" webkit_web_view_can_execute_editing_command :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- command : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -webViewCanExecuteEditingCommand :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -> -- _obj - T.Text -> -- command - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -webViewCanExecuteEditingCommand _obj command cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - command' <- textToCString command - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - webkit_web_view_can_execute_editing_command _obj' command' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem command' - return () - --- method WebView::can_execute_editing_command_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_can_execute_editing_command_finish" webkit_web_view_can_execute_editing_command_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -webViewCanExecuteEditingCommandFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m () -webViewCanExecuteEditingCommandFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ webkit_web_view_can_execute_editing_command_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - --- method WebView::can_go_back --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewCanGoBack :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Bool -webViewCanGoBack _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_can_go_back _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WebView::can_go_forward --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewCanGoForward :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Bool -webViewCanGoForward _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_can_go_forward _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WebView::can_show_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- mime_type : TBasicType TUTF8 - IO CInt - - -webViewCanShowMimeType :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- mime_type - m Bool -webViewCanShowMimeType _obj mime_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - result <- webkit_web_view_can_show_mime_type _obj' mime_type' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem mime_type' - return result' - --- method WebView::download_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : TInterface "WebKit2" "Download" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_download_uri" webkit_web_view_download_uri :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- uri : TBasicType TUTF8 - IO (Ptr Download) - - -webViewDownloadUri :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- uri - m Download -webViewDownloadUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- webkit_web_view_download_uri _obj' uri' - checkUnexpectedReturnNULL "webkit_web_view_download_uri" result - result' <- (wrapObject Download) result - touchManagedPtr _obj - freeMem uri' - return result' - --- method WebView::execute_editing_command --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_execute_editing_command" webkit_web_view_execute_editing_command :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- command : TBasicType TUTF8 - IO () - - -webViewExecuteEditingCommand :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- command - m () -webViewExecuteEditingCommand _obj command = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - command' <- textToCString command - webkit_web_view_execute_editing_command _obj' command' - touchManagedPtr _obj - freeMem command' - return () - --- method WebView::execute_editing_command_with_argument --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argument", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argument", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_execute_editing_command_with_argument" webkit_web_view_execute_editing_command_with_argument :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- command : TBasicType TUTF8 - CString -> -- argument : TBasicType TUTF8 - IO () - - -webViewExecuteEditingCommandWithArgument :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- command - T.Text -> -- argument - m () -webViewExecuteEditingCommandWithArgument _obj command argument = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - command' <- textToCString command - argument' <- textToCString argument - webkit_web_view_execute_editing_command_with_argument _obj' command' argument' - touchManagedPtr _obj - freeMem command' - freeMem argument' - return () - --- method WebView::get_back_forward_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "BackForwardList" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr BackForwardList) - - -webViewGetBackForwardList :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m BackForwardList -webViewGetBackForwardList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_back_forward_list _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_back_forward_list" result - result' <- (newObject BackForwardList) result - touchManagedPtr _obj - return result' - --- method WebView::get_background_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_background_color" webkit_web_view_get_background_color :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -webViewGetBackgroundColor :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m (Gdk.RGBA) -webViewGetBackgroundColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - webkit_web_view_get_background_color _obj' rgba - rgba' <- (wrapBoxed Gdk.RGBA) rgba - touchManagedPtr _obj - return rgba' - --- method WebView::get_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "WebContext" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_context" webkit_web_view_get_context :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WebContext) - - -webViewGetContext :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m WebContext -webViewGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_context _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_context" result - result' <- (newObject WebContext) result - touchManagedPtr _obj - return result' - --- method WebView::get_custom_charset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_custom_charset" webkit_web_view_get_custom_charset :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CString - - -webViewGetCustomCharset :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m T.Text -webViewGetCustomCharset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_custom_charset _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_custom_charset" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method WebView::get_editor_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "EditorState" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_editor_state" webkit_web_view_get_editor_state :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr EditorState) - - -webViewGetEditorState :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m EditorState -webViewGetEditorState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_editor_state _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_editor_state" result - result' <- (newObject EditorState) result - touchManagedPtr _obj - return result' - --- method WebView::get_estimated_load_progress --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_estimated_load_progress" webkit_web_view_get_estimated_load_progress :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CDouble - - -webViewGetEstimatedLoadProgress :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Double -webViewGetEstimatedLoadProgress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_estimated_load_progress _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method WebView::get_favicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "cairo" "Surface" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_favicon" webkit_web_view_get_favicon :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr Cairo.Surface) - - -webViewGetFavicon :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Cairo.Surface -webViewGetFavicon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_favicon _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_favicon" result - result' <- (newBoxed Cairo.Surface) result - touchManagedPtr _obj - return result' - --- method WebView::get_find_controller --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "FindController" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_find_controller" webkit_web_view_get_find_controller :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr FindController) - - -webViewGetFindController :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m FindController -webViewGetFindController _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_find_controller _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_find_controller" result - result' <- (newObject FindController) result - touchManagedPtr _obj - return result' - --- method WebView::get_inspector --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "WebInspector" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WebInspector) - - -webViewGetInspector :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m WebInspector -webViewGetInspector _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_inspector _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_inspector" result - result' <- (newObject WebInspector) result - touchManagedPtr _obj - return result' - --- method WebView::get_javascript_global_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "JavaScriptCore" "GlobalContext" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_javascript_global_context" webkit_web_view_get_javascript_global_context :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr JavaScriptCore.GlobalContext) - - -webViewGetJavascriptGlobalContext :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m JavaScriptCore.GlobalContext -webViewGetJavascriptGlobalContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_javascript_global_context _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_javascript_global_context" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result - touchManagedPtr _obj - return result' - --- method WebView::get_main_resource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "WebResource" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_main_resource" webkit_web_view_get_main_resource :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WebResource) - - -webViewGetMainResource :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m WebResource -webViewGetMainResource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_main_resource _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_main_resource" result - result' <- (newObject WebResource) result - touchManagedPtr _obj - return result' - --- method WebView::get_page_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_page_id" webkit_web_view_get_page_id :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO Word64 - - -webViewGetPageId :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Word64 -webViewGetPageId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_page_id _obj' - touchManagedPtr _obj - return result - --- method WebView::get_settings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "Settings" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr Settings) - - -webViewGetSettings :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Settings -webViewGetSettings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_settings _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_settings" result - result' <- (newObject Settings) result - touchManagedPtr _obj - return result' - --- method WebView::get_snapshot --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "WebKit2" "SnapshotRegion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "WebKit2" "SnapshotOptions", 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 = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "WebKit2" "SnapshotRegion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "WebKit2" "SnapshotOptions", 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 = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CUInt -> -- region : TInterface "WebKit2" "SnapshotRegion" - CUInt -> -- options : TInterface "WebKit2" "SnapshotOptions" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -webViewGetSnapshot :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -> -- _obj - SnapshotRegion -> -- region - [SnapshotOptions] -> -- options - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -webViewGetSnapshot _obj region options cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = (fromIntegral . fromEnum) region - let options' = gflagsToWord options - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - webkit_web_view_get_snapshot _obj' region' options' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method WebView::get_snapshot_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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 - -foreign import ccall "webkit_web_view_get_snapshot_finish" webkit_web_view_get_snapshot_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Cairo.Surface) - - -webViewGetSnapshotFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m Cairo.Surface -webViewGetSnapshotFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_get_snapshot_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_get_snapshot_finish" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - --- method WebView::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CString - - -webViewGetTitle :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m T.Text -webViewGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_title _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method WebView::get_tls_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_tls_info" webkit_web_view_get_tls_info :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr (Ptr Gio.TlsCertificate) -> -- certificate : TInterface "Gio" "TlsCertificate" - Ptr CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags" - IO CInt - - -webViewGetTlsInfo :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags]) -webViewGetTlsInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate)) - errors <- allocMem :: IO (Ptr CUInt) - result <- webkit_web_view_get_tls_info _obj' certificate errors - let result' = (/= 0) result - certificate' <- peek certificate - certificate'' <- (newObject Gio.TlsCertificate) certificate' - errors' <- peek errors - let errors'' = wordToGFlags errors' - touchManagedPtr _obj - freeMem certificate - freeMem errors - return (result', certificate'', errors'') - --- method WebView::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CString - - -webViewGetUri :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m T.Text -webViewGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_uri _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_uri" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method WebView::get_user_content_manager --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "UserContentManager" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_user_content_manager" webkit_web_view_get_user_content_manager :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr UserContentManager) - - -webViewGetUserContentManager :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m UserContentManager -webViewGetUserContentManager _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_user_content_manager _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_user_content_manager" result - result' <- (newObject UserContentManager) result - touchManagedPtr _obj - return result' - --- method WebView::get_window_properties --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "WebKit2" "WindowProperties" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_window_properties" webkit_web_view_get_window_properties :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WindowProperties) - - -webViewGetWindowProperties :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m WindowProperties -webViewGetWindowProperties _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_window_properties _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_window_properties" result - result' <- (newObject WindowProperties) result - touchManagedPtr _obj - return result' - --- method WebView::get_zoom_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CDouble - - -webViewGetZoomLevel :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Double -webViewGetZoomLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_zoom_level _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method WebView::go_back --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewGoBack :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m () -webViewGoBack _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_go_back _obj' - touchManagedPtr _obj - return () - --- method WebView::go_forward --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewGoForward :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m () -webViewGoForward _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_go_forward _obj' - touchManagedPtr _obj - return () - --- method WebView::go_to_back_forward_list_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list_item", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list_item", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_go_to_back_forward_list_item" webkit_web_view_go_to_back_forward_list_item :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr BackForwardListItem -> -- list_item : TInterface "WebKit2" "BackForwardListItem" - IO () - - -webViewGoToBackForwardListItem :: - (MonadIO m, WebViewK a, BackForwardListItemK b) => - a -> -- _obj - b -> -- list_item - m () -webViewGoToBackForwardListItem _obj list_item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let list_item' = unsafeManagedPtrCastPtr list_item - webkit_web_view_go_to_back_forward_list_item _obj' list_item' - touchManagedPtr _obj - touchManagedPtr list_item - return () - --- method WebView::is_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_is_editable" webkit_web_view_is_editable :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewIsEditable :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Bool -webViewIsEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_is_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WebView::is_loading --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_is_loading" webkit_web_view_is_loading :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewIsLoading :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Bool -webViewIsLoading _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_is_loading _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WebView::is_playing_audio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_is_playing_audio" webkit_web_view_is_playing_audio :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewIsPlayingAudio :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Bool -webViewIsPlayingAudio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_is_playing_audio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WebView::load_alternate_html --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_alternate_html" webkit_web_view_load_alternate_html :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- content : TBasicType TUTF8 - CString -> -- content_uri : TBasicType TUTF8 - CString -> -- base_uri : TBasicType TUTF8 - IO () - - -webViewLoadAlternateHtml :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- content - T.Text -> -- content_uri - Maybe (T.Text) -> -- base_uri - m () -webViewLoadAlternateHtml _obj content content_uri base_uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - content' <- textToCString content - content_uri' <- textToCString content_uri - maybeBase_uri <- case base_uri of - Nothing -> return nullPtr - Just jBase_uri -> do - jBase_uri' <- textToCString jBase_uri - return jBase_uri' - webkit_web_view_load_alternate_html _obj' content' content_uri' maybeBase_uri - touchManagedPtr _obj - freeMem content' - freeMem content_uri' - freeMem maybeBase_uri - return () - --- method WebView::load_bytes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_bytes" webkit_web_view_load_bytes :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" - CString -> -- mime_type : TBasicType TUTF8 - CString -> -- encoding : TBasicType TUTF8 - CString -> -- base_uri : TBasicType TUTF8 - IO () - - -webViewLoadBytes :: - (MonadIO m, WebViewK a) => - a -> -- _obj - GLib.Bytes -> -- bytes - Maybe (T.Text) -> -- mime_type - Maybe (T.Text) -> -- encoding - Maybe (T.Text) -> -- base_uri - m () -webViewLoadBytes _obj bytes mime_type encoding base_uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let bytes' = unsafeManagedPtrGetPtr bytes - maybeMime_type <- case mime_type of - Nothing -> return nullPtr - Just jMime_type -> do - jMime_type' <- textToCString jMime_type - return jMime_type' - maybeEncoding <- case encoding of - Nothing -> return nullPtr - Just jEncoding -> do - jEncoding' <- textToCString jEncoding - return jEncoding' - maybeBase_uri <- case base_uri of - Nothing -> return nullPtr - Just jBase_uri -> do - jBase_uri' <- textToCString jBase_uri - return jBase_uri' - webkit_web_view_load_bytes _obj' bytes' maybeMime_type maybeEncoding maybeBase_uri - touchManagedPtr _obj - touchManagedPtr bytes - freeMem maybeMime_type - freeMem maybeEncoding - freeMem maybeBase_uri - return () - --- method WebView::load_html --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_html" webkit_web_view_load_html :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- content : TBasicType TUTF8 - CString -> -- base_uri : TBasicType TUTF8 - IO () - - -webViewLoadHtml :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- content - Maybe (T.Text) -> -- base_uri - m () -webViewLoadHtml _obj content base_uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - content' <- textToCString content - maybeBase_uri <- case base_uri of - Nothing -> return nullPtr - Just jBase_uri -> do - jBase_uri' <- textToCString jBase_uri - return jBase_uri' - webkit_web_view_load_html _obj' content' maybeBase_uri - touchManagedPtr _obj - freeMem content' - freeMem maybeBase_uri - return () - --- method WebView::load_plain_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_plain_text" webkit_web_view_load_plain_text :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- plain_text : TBasicType TUTF8 - IO () - - -webViewLoadPlainText :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- plain_text - m () -webViewLoadPlainText _obj plain_text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - plain_text' <- textToCString plain_text - webkit_web_view_load_plain_text _obj' plain_text' - touchManagedPtr _obj - freeMem plain_text' - return () - --- method WebView::load_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr URIRequest -> -- request : TInterface "WebKit2" "URIRequest" - IO () - - -webViewLoadRequest :: - (MonadIO m, WebViewK a, URIRequestK b) => - a -> -- _obj - b -> -- request - m () -webViewLoadRequest _obj request = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let request' = unsafeManagedPtrCastPtr request - webkit_web_view_load_request _obj' request' - touchManagedPtr _obj - touchManagedPtr request - return () - --- method WebView::load_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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 - -foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- uri : TBasicType TUTF8 - IO () - - -webViewLoadUri :: - (MonadIO m, WebViewK a) => - a -> -- _obj - T.Text -> -- uri - m () -webViewLoadUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - webkit_web_view_load_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - --- method WebView::new_with_related_view --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_related_view" webkit_web_view_new_with_related_view :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr Gtk.Widget) - - -webViewNewWithRelatedView :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m Gtk.Widget -webViewNewWithRelatedView _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_new_with_related_view _obj' - checkUnexpectedReturnNULL "webkit_web_view_new_with_related_view" result - result' <- (wrapObject Gtk.Widget) result - touchManagedPtr _obj - return result' - --- method WebView::reload --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_reload" webkit_web_view_reload :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewReload :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m () -webViewReload _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_reload _obj' - touchManagedPtr _obj - return () - --- method WebView::reload_bypass_cache --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewReloadBypassCache :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m () -webViewReloadBypassCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_reload_bypass_cache _obj' - touchManagedPtr _obj - return () - --- method WebView::run_javascript --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", 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 - -foreign import ccall "webkit_web_view_run_javascript" webkit_web_view_run_javascript :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- script : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -webViewRunJavascript :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -> -- _obj - T.Text -> -- script - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -webViewRunJavascript _obj script cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - script' <- textToCString script - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - webkit_web_view_run_javascript _obj' script' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem script' - return () - --- method WebView::run_javascript_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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" "JavascriptResult" --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_run_javascript_finish" webkit_web_view_run_javascript_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr JavascriptResult) - - -webViewRunJavascriptFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m JavascriptResult -webViewRunJavascriptFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_run_javascript_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_run_javascript_finish" result - result' <- (wrapBoxed JavascriptResult) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - --- method WebView::run_javascript_from_gresource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource", 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 - -foreign import ccall "webkit_web_view_run_javascript_from_gresource" webkit_web_view_run_javascript_from_gresource :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- resource : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -webViewRunJavascriptFromGresource :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -> -- _obj - T.Text -> -- resource - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -webViewRunJavascriptFromGresource _obj resource cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resource' <- textToCString resource - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - webkit_web_view_run_javascript_from_gresource _obj' resource' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem resource' - return () - --- method WebView::run_javascript_from_gresource_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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" "JavascriptResult" --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_run_javascript_from_gresource_finish" webkit_web_view_run_javascript_from_gresource_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr JavascriptResult) - - -webViewRunJavascriptFromGresourceFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m JavascriptResult -webViewRunJavascriptFromGresourceFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_run_javascript_from_gresource_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_run_javascript_from_gresource_finish" result - result' <- (wrapBoxed JavascriptResult) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - --- method WebView::save --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", 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 - -foreign import ccall "webkit_web_view_save" webkit_web_view_save :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CUInt -> -- save_mode : TInterface "WebKit2" "SaveMode" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -webViewSave :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -> -- _obj - SaveMode -> -- save_mode - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -webViewSave _obj save_mode cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let save_mode' = (fromIntegral . fromEnum) save_mode - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - webkit_web_view_save _obj' save_mode' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method WebView::save_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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 "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_save_finish" webkit_web_view_save_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -webViewSaveFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m Gio.InputStream -webViewSaveFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_save_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_save_finish" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - --- method WebView::save_to_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", 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 = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", 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 = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_save_to_file" webkit_web_view_save_to_file :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - CUInt -> -- save_mode : TInterface "WebKit2" "SaveMode" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -webViewSaveToFile :: - (MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) => - a -> -- _obj - b -> -- file - SaveMode -> -- save_mode - Maybe (c) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -webViewSaveToFile _obj file save_mode cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - let save_mode' = (fromIntegral . fromEnum) save_mode - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - webkit_web_view_save_to_file _obj' file' save_mode' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr file - whenJust cancellable touchManagedPtr - return () - --- method WebView::save_to_file_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_save_to_file_finish" webkit_web_view_save_to_file_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -webViewSaveToFileFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m () -webViewSaveToFileFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ webkit_web_view_save_to_file_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - --- method WebView::set_background_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", 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 - -foreign import ccall "webkit_web_view_set_background_color" webkit_web_view_set_background_color :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -webViewSetBackgroundColor :: - (MonadIO m, WebViewK a) => - a -> -- _obj - Gdk.RGBA -> -- rgba - m () -webViewSetBackgroundColor _obj rgba = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rgba' = unsafeManagedPtrGetPtr rgba - webkit_web_view_set_background_color _obj' rgba' - touchManagedPtr _obj - touchManagedPtr rgba - return () - --- method WebView::set_custom_charset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_custom_charset" webkit_web_view_set_custom_charset :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- charset : TBasicType TUTF8 - IO () - - -webViewSetCustomCharset :: - (MonadIO m, WebViewK a) => - a -> -- _obj - Maybe (T.Text) -> -- charset - m () -webViewSetCustomCharset _obj charset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCharset <- case charset of - Nothing -> return nullPtr - Just jCharset -> do - jCharset' <- textToCString jCharset - return jCharset' - webkit_web_view_set_custom_charset _obj' maybeCharset - touchManagedPtr _obj - freeMem maybeCharset - return () - --- method WebView::set_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CInt -> -- editable : TBasicType TBoolean - IO () - - -webViewSetEditable :: - (MonadIO m, WebViewK a) => - a -> -- _obj - Bool -> -- editable - m () -webViewSetEditable _obj editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let editable' = (fromIntegral . fromEnum) editable - webkit_web_view_set_editable _obj' editable' - touchManagedPtr _obj - return () - --- method WebView::set_settings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Settings -> -- settings : TInterface "WebKit2" "Settings" - IO () - - -webViewSetSettings :: - (MonadIO m, WebViewK a, SettingsK b) => - a -> -- _obj - b -> -- settings - m () -webViewSetSettings _obj settings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let settings' = unsafeManagedPtrCastPtr settings - webkit_web_view_set_settings _obj' settings' - touchManagedPtr _obj - touchManagedPtr settings - return () - --- method WebView::set_zoom_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CDouble -> -- zoom_level : TBasicType TDouble - IO () - - -webViewSetZoomLevel :: - (MonadIO m, WebViewK a) => - a -> -- _obj - Double -> -- zoom_level - m () -webViewSetZoomLevel _obj zoom_level = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let zoom_level' = realToFrac zoom_level - webkit_web_view_set_zoom_level _obj' zoom_level' - touchManagedPtr _obj - return () - --- method WebView::stop_loading --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewStopLoading :: - (MonadIO m, WebViewK a) => - a -> -- _obj - m () -webViewStopLoading _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_stop_loading _obj' - touchManagedPtr _obj - return () + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit2.Objects.WebView + ( + +-- * Exported types + WebView(..) , + WebViewK , + toWebView , + noWebView , + + + -- * Methods +-- ** webViewCanExecuteEditingCommand + WebViewCanExecuteEditingCommandMethodInfo, + webViewCanExecuteEditingCommand , + + +-- ** webViewCanExecuteEditingCommandFinish + WebViewCanExecuteEditingCommandFinishMethodInfo, + webViewCanExecuteEditingCommandFinish , + + +-- ** webViewCanGoBack + WebViewCanGoBackMethodInfo , + webViewCanGoBack , + + +-- ** webViewCanGoForward + WebViewCanGoForwardMethodInfo , + webViewCanGoForward , + + +-- ** webViewCanShowMimeType + WebViewCanShowMimeTypeMethodInfo , + webViewCanShowMimeType , + + +-- ** webViewDownloadUri + WebViewDownloadUriMethodInfo , + webViewDownloadUri , + + +-- ** webViewExecuteEditingCommand + WebViewExecuteEditingCommandMethodInfo , + webViewExecuteEditingCommand , + + +-- ** webViewExecuteEditingCommandWithArgument + WebViewExecuteEditingCommandWithArgumentMethodInfo, + webViewExecuteEditingCommandWithArgument, + + +-- ** webViewGetBackForwardList + WebViewGetBackForwardListMethodInfo , + webViewGetBackForwardList , + + +-- ** webViewGetBackgroundColor + WebViewGetBackgroundColorMethodInfo , + webViewGetBackgroundColor , + + +-- ** webViewGetContext + WebViewGetContextMethodInfo , + webViewGetContext , + + +-- ** webViewGetCustomCharset + WebViewGetCustomCharsetMethodInfo , + webViewGetCustomCharset , + + +-- ** webViewGetEditorState + WebViewGetEditorStateMethodInfo , + webViewGetEditorState , + + +-- ** webViewGetEstimatedLoadProgress + WebViewGetEstimatedLoadProgressMethodInfo, + webViewGetEstimatedLoadProgress , + + +-- ** webViewGetFavicon + WebViewGetFaviconMethodInfo , + webViewGetFavicon , + + +-- ** webViewGetFindController + WebViewGetFindControllerMethodInfo , + webViewGetFindController , + + +-- ** webViewGetInspector + WebViewGetInspectorMethodInfo , + webViewGetInspector , + + +-- ** webViewGetJavascriptGlobalContext + WebViewGetJavascriptGlobalContextMethodInfo, + webViewGetJavascriptGlobalContext , + + +-- ** webViewGetMainResource + WebViewGetMainResourceMethodInfo , + webViewGetMainResource , + + +-- ** webViewGetPageId + WebViewGetPageIdMethodInfo , + webViewGetPageId , + + +-- ** webViewGetSettings + WebViewGetSettingsMethodInfo , + webViewGetSettings , + + +-- ** webViewGetSnapshot + WebViewGetSnapshotMethodInfo , + webViewGetSnapshot , + + +-- ** webViewGetSnapshotFinish + WebViewGetSnapshotFinishMethodInfo , + webViewGetSnapshotFinish , + + +-- ** webViewGetTitle + WebViewGetTitleMethodInfo , + webViewGetTitle , + + +-- ** webViewGetTlsInfo + WebViewGetTlsInfoMethodInfo , + webViewGetTlsInfo , + + +-- ** webViewGetUri + WebViewGetUriMethodInfo , + webViewGetUri , + + +-- ** webViewGetUserContentManager + WebViewGetUserContentManagerMethodInfo , + webViewGetUserContentManager , + + +-- ** webViewGetWindowProperties + WebViewGetWindowPropertiesMethodInfo , + webViewGetWindowProperties , + + +-- ** webViewGetZoomLevel + WebViewGetZoomLevelMethodInfo , + webViewGetZoomLevel , + + +-- ** webViewGoBack + WebViewGoBackMethodInfo , + webViewGoBack , + + +-- ** webViewGoForward + WebViewGoForwardMethodInfo , + webViewGoForward , + + +-- ** webViewGoToBackForwardListItem + WebViewGoToBackForwardListItemMethodInfo, + webViewGoToBackForwardListItem , + + +-- ** webViewIsEditable + WebViewIsEditableMethodInfo , + webViewIsEditable , + + +-- ** webViewIsLoading + WebViewIsLoadingMethodInfo , + webViewIsLoading , + + +-- ** webViewIsPlayingAudio + WebViewIsPlayingAudioMethodInfo , + webViewIsPlayingAudio , + + +-- ** webViewLoadAlternateHtml + WebViewLoadAlternateHtmlMethodInfo , + webViewLoadAlternateHtml , + + +-- ** webViewLoadBytes + WebViewLoadBytesMethodInfo , + webViewLoadBytes , + + +-- ** webViewLoadHtml + WebViewLoadHtmlMethodInfo , + webViewLoadHtml , + + +-- ** webViewLoadPlainText + WebViewLoadPlainTextMethodInfo , + webViewLoadPlainText , + + +-- ** webViewLoadRequest + WebViewLoadRequestMethodInfo , + webViewLoadRequest , + + +-- ** webViewLoadUri + WebViewLoadUriMethodInfo , + webViewLoadUri , + + +-- ** webViewNew + webViewNew , + + +-- ** webViewNewWithContext + webViewNewWithContext , + + +-- ** webViewNewWithRelatedView + WebViewNewWithRelatedViewMethodInfo , + webViewNewWithRelatedView , + + +-- ** webViewNewWithSettings + webViewNewWithSettings , + + +-- ** webViewNewWithUserContentManager + webViewNewWithUserContentManager , + + +-- ** webViewReload + WebViewReloadMethodInfo , + webViewReload , + + +-- ** webViewReloadBypassCache + WebViewReloadBypassCacheMethodInfo , + webViewReloadBypassCache , + + +-- ** webViewRunJavascript + WebViewRunJavascriptMethodInfo , + webViewRunJavascript , + + +-- ** webViewRunJavascriptFinish + WebViewRunJavascriptFinishMethodInfo , + webViewRunJavascriptFinish , + + +-- ** webViewRunJavascriptFromGresource + WebViewRunJavascriptFromGresourceMethodInfo, + webViewRunJavascriptFromGresource , + + +-- ** webViewRunJavascriptFromGresourceFinish + WebViewRunJavascriptFromGresourceFinishMethodInfo, + webViewRunJavascriptFromGresourceFinish , + + +-- ** webViewSave + WebViewSaveMethodInfo , + webViewSave , + + +-- ** webViewSaveFinish + WebViewSaveFinishMethodInfo , + webViewSaveFinish , + + +-- ** webViewSaveToFile + WebViewSaveToFileMethodInfo , + webViewSaveToFile , + + +-- ** webViewSaveToFileFinish + WebViewSaveToFileFinishMethodInfo , + webViewSaveToFileFinish , + + +-- ** webViewSetBackgroundColor + WebViewSetBackgroundColorMethodInfo , + webViewSetBackgroundColor , + + +-- ** webViewSetCustomCharset + WebViewSetCustomCharsetMethodInfo , + webViewSetCustomCharset , + + +-- ** webViewSetEditable + WebViewSetEditableMethodInfo , + webViewSetEditable , + + +-- ** webViewSetSettings + WebViewSetSettingsMethodInfo , + webViewSetSettings , + + +-- ** webViewSetZoomLevel + WebViewSetZoomLevelMethodInfo , + webViewSetZoomLevel , + + +-- ** webViewStopLoading + WebViewStopLoadingMethodInfo , + webViewStopLoading , + + + + + -- * Properties +-- ** Editable + WebViewEditablePropertyInfo , + constructWebViewEditable , + getWebViewEditable , + setWebViewEditable , + + +-- ** EstimatedLoadProgress + WebViewEstimatedLoadProgressPropertyInfo, + getWebViewEstimatedLoadProgress , + + +-- ** Favicon + WebViewFaviconPropertyInfo , + getWebViewFavicon , + + +-- ** IsLoading + WebViewIsLoadingPropertyInfo , + getWebViewIsLoading , + + +-- ** IsPlayingAudio + WebViewIsPlayingAudioPropertyInfo , + getWebViewIsPlayingAudio , + + +-- ** RelatedView + WebViewRelatedViewPropertyInfo , + constructWebViewRelatedView , + + +-- ** Settings + WebViewSettingsPropertyInfo , + constructWebViewSettings , + setWebViewSettings , + + +-- ** Title + WebViewTitlePropertyInfo , + getWebViewTitle , + + +-- ** Uri + WebViewUriPropertyInfo , + getWebViewUri , + + +-- ** UserContentManager + WebViewUserContentManagerPropertyInfo , + constructWebViewUserContentManager , + getWebViewUserContentManager , + + +-- ** WebContext + WebViewWebContextPropertyInfo , + constructWebViewWebContext , + getWebViewWebContext , + + +-- ** ZoomLevel + WebViewZoomLevelPropertyInfo , + constructWebViewZoomLevel , + getWebViewZoomLevel , + setWebViewZoomLevel , + + + + + -- * Signals +-- ** Authenticate + WebViewAuthenticateCallback , + WebViewAuthenticateCallbackC , + WebViewAuthenticateSignalInfo , + afterWebViewAuthenticate , + mkWebViewAuthenticateCallback , + noWebViewAuthenticateCallback , + onWebViewAuthenticate , + webViewAuthenticateCallbackWrapper , + webViewAuthenticateClosure , + + +-- ** Close + WebViewCloseCallback , + WebViewCloseCallbackC , + WebViewCloseSignalInfo , + afterWebViewClose , + mkWebViewCloseCallback , + noWebViewCloseCallback , + onWebViewClose , + webViewCloseCallbackWrapper , + webViewCloseClosure , + + +-- ** ContextMenu + WebViewContextMenuCallback , + WebViewContextMenuCallbackC , + WebViewContextMenuSignalInfo , + afterWebViewContextMenu , + mkWebViewContextMenuCallback , + noWebViewContextMenuCallback , + onWebViewContextMenu , + webViewContextMenuCallbackWrapper , + webViewContextMenuClosure , + + +-- ** ContextMenuDismissed + WebViewContextMenuDismissedCallback , + WebViewContextMenuDismissedCallbackC , + WebViewContextMenuDismissedSignalInfo , + afterWebViewContextMenuDismissed , + mkWebViewContextMenuDismissedCallback , + noWebViewContextMenuDismissedCallback , + onWebViewContextMenuDismissed , + webViewContextMenuDismissedCallbackWrapper, + webViewContextMenuDismissedClosure , + + +-- ** Create + WebViewCreateCallback , + WebViewCreateCallbackC , + WebViewCreateSignalInfo , + afterWebViewCreate , + mkWebViewCreateCallback , + noWebViewCreateCallback , + onWebViewCreate , + webViewCreateCallbackWrapper , + webViewCreateClosure , + + +-- ** DecidePolicy + WebViewDecidePolicyCallback , + WebViewDecidePolicyCallbackC , + WebViewDecidePolicySignalInfo , + afterWebViewDecidePolicy , + mkWebViewDecidePolicyCallback , + noWebViewDecidePolicyCallback , + onWebViewDecidePolicy , + webViewDecidePolicyCallbackWrapper , + webViewDecidePolicyClosure , + + +-- ** EnterFullscreen + WebViewEnterFullscreenCallback , + WebViewEnterFullscreenCallbackC , + WebViewEnterFullscreenSignalInfo , + afterWebViewEnterFullscreen , + mkWebViewEnterFullscreenCallback , + noWebViewEnterFullscreenCallback , + onWebViewEnterFullscreen , + webViewEnterFullscreenCallbackWrapper , + webViewEnterFullscreenClosure , + + +-- ** InsecureContentDetected + WebViewInsecureContentDetectedCallback , + WebViewInsecureContentDetectedCallbackC , + WebViewInsecureContentDetectedSignalInfo, + afterWebViewInsecureContentDetected , + mkWebViewInsecureContentDetectedCallback, + noWebViewInsecureContentDetectedCallback, + onWebViewInsecureContentDetected , + webViewInsecureContentDetectedCallbackWrapper, + webViewInsecureContentDetectedClosure , + + +-- ** LeaveFullscreen + WebViewLeaveFullscreenCallback , + WebViewLeaveFullscreenCallbackC , + WebViewLeaveFullscreenSignalInfo , + afterWebViewLeaveFullscreen , + mkWebViewLeaveFullscreenCallback , + noWebViewLeaveFullscreenCallback , + onWebViewLeaveFullscreen , + webViewLeaveFullscreenCallbackWrapper , + webViewLeaveFullscreenClosure , + + +-- ** LoadChanged + WebViewLoadChangedCallback , + WebViewLoadChangedCallbackC , + WebViewLoadChangedSignalInfo , + afterWebViewLoadChanged , + mkWebViewLoadChangedCallback , + noWebViewLoadChangedCallback , + onWebViewLoadChanged , + webViewLoadChangedCallbackWrapper , + webViewLoadChangedClosure , + + +-- ** LoadFailed + WebViewLoadFailedCallback , + WebViewLoadFailedCallbackC , + WebViewLoadFailedSignalInfo , + afterWebViewLoadFailed , + mkWebViewLoadFailedCallback , + noWebViewLoadFailedCallback , + onWebViewLoadFailed , + webViewLoadFailedCallbackWrapper , + webViewLoadFailedClosure , + + +-- ** LoadFailedWithTlsErrors + WebViewLoadFailedWithTlsErrorsCallback , + WebViewLoadFailedWithTlsErrorsCallbackC , + WebViewLoadFailedWithTlsErrorsSignalInfo, + afterWebViewLoadFailedWithTlsErrors , + mkWebViewLoadFailedWithTlsErrorsCallback, + noWebViewLoadFailedWithTlsErrorsCallback, + onWebViewLoadFailedWithTlsErrors , + webViewLoadFailedWithTlsErrorsCallbackWrapper, + webViewLoadFailedWithTlsErrorsClosure , + + +-- ** MouseTargetChanged + WebViewMouseTargetChangedCallback , + WebViewMouseTargetChangedCallbackC , + WebViewMouseTargetChangedSignalInfo , + afterWebViewMouseTargetChanged , + mkWebViewMouseTargetChangedCallback , + noWebViewMouseTargetChangedCallback , + onWebViewMouseTargetChanged , + webViewMouseTargetChangedCallbackWrapper, + webViewMouseTargetChangedClosure , + + +-- ** PermissionRequest + WebViewPermissionRequestCallback , + WebViewPermissionRequestCallbackC , + WebViewPermissionRequestSignalInfo , + afterWebViewPermissionRequest , + mkWebViewPermissionRequestCallback , + noWebViewPermissionRequestCallback , + onWebViewPermissionRequest , + webViewPermissionRequestCallbackWrapper , + webViewPermissionRequestClosure , + + +-- ** Print + WebViewPrintCallback , + WebViewPrintCallbackC , + WebViewPrintSignalInfo , + afterWebViewPrint , + mkWebViewPrintCallback , + noWebViewPrintCallback , + onWebViewPrint , + webViewPrintCallbackWrapper , + webViewPrintClosure , + + +-- ** ReadyToShow + WebViewReadyToShowCallback , + WebViewReadyToShowCallbackC , + WebViewReadyToShowSignalInfo , + afterWebViewReadyToShow , + mkWebViewReadyToShowCallback , + noWebViewReadyToShowCallback , + onWebViewReadyToShow , + webViewReadyToShowCallbackWrapper , + webViewReadyToShowClosure , + + +-- ** ResourceLoadStarted + WebViewResourceLoadStartedCallback , + WebViewResourceLoadStartedCallbackC , + WebViewResourceLoadStartedSignalInfo , + afterWebViewResourceLoadStarted , + mkWebViewResourceLoadStartedCallback , + noWebViewResourceLoadStartedCallback , + onWebViewResourceLoadStarted , + webViewResourceLoadStartedCallbackWrapper, + webViewResourceLoadStartedClosure , + + +-- ** RunAsModal + WebViewRunAsModalCallback , + WebViewRunAsModalCallbackC , + WebViewRunAsModalSignalInfo , + afterWebViewRunAsModal , + mkWebViewRunAsModalCallback , + noWebViewRunAsModalCallback , + onWebViewRunAsModal , + webViewRunAsModalCallbackWrapper , + webViewRunAsModalClosure , + + +-- ** RunColorChooser + WebViewRunColorChooserCallback , + WebViewRunColorChooserCallbackC , + WebViewRunColorChooserSignalInfo , + afterWebViewRunColorChooser , + mkWebViewRunColorChooserCallback , + noWebViewRunColorChooserCallback , + onWebViewRunColorChooser , + webViewRunColorChooserCallbackWrapper , + webViewRunColorChooserClosure , + + +-- ** RunFileChooser + WebViewRunFileChooserCallback , + WebViewRunFileChooserCallbackC , + WebViewRunFileChooserSignalInfo , + afterWebViewRunFileChooser , + mkWebViewRunFileChooserCallback , + noWebViewRunFileChooserCallback , + onWebViewRunFileChooser , + webViewRunFileChooserCallbackWrapper , + webViewRunFileChooserClosure , + + +-- ** ScriptDialog + WebViewScriptDialogCallback , + WebViewScriptDialogCallbackC , + WebViewScriptDialogSignalInfo , + afterWebViewScriptDialog , + mkWebViewScriptDialogCallback , + noWebViewScriptDialogCallback , + onWebViewScriptDialog , + webViewScriptDialogCallbackWrapper , + webViewScriptDialogClosure , + + +-- ** ShowNotification + WebViewShowNotificationCallback , + WebViewShowNotificationCallbackC , + WebViewShowNotificationSignalInfo , + afterWebViewShowNotification , + mkWebViewShowNotificationCallback , + noWebViewShowNotificationCallback , + onWebViewShowNotification , + webViewShowNotificationCallbackWrapper , + webViewShowNotificationClosure , + + +-- ** SubmitForm + WebViewSubmitFormCallback , + WebViewSubmitFormCallbackC , + WebViewSubmitFormSignalInfo , + afterWebViewSubmitForm , + mkWebViewSubmitFormCallback , + noWebViewSubmitFormCallback , + onWebViewSubmitForm , + webViewSubmitFormCallbackWrapper , + webViewSubmitFormClosure , + + +-- ** WebProcessCrashed + WebViewWebProcessCrashedCallback , + WebViewWebProcessCrashedCallbackC , + WebViewWebProcessCrashedSignalInfo , + afterWebViewWebProcessCrashed , + mkWebViewWebProcessCrashedCallback , + noWebViewWebProcessCrashedCallback , + onWebViewWebProcessCrashed , + webViewWebProcessCrashedCallbackWrapper , + webViewWebProcessCrashedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit2.Types +import GI.WebKit2.Callbacks +import qualified GI.Atk as Atk +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk +import qualified GI.Gio as Gio +import qualified GI.Gtk as Gtk +import qualified GI.JavaScriptCore as JavaScriptCore +import qualified GI.Cairo as Cairo + +newtype WebView = WebView (ForeignPtr WebView) +foreign import ccall "webkit_web_view_get_type" + c_webkit_web_view_get_type :: IO GType + +type instance ParentTypes WebView = WebViewParentTypes +type WebViewParentTypes = '[WebViewBase, Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable] + +instance GObject WebView where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_webkit_web_view_get_type + + +class GObject o => WebViewK o +instance (GObject o, IsDescendantOf WebView o) => WebViewK o + +toWebView :: WebViewK o => o -> IO WebView +toWebView = unsafeCastTo WebView + +noWebView :: Maybe WebView +noWebView = Nothing + +type family ResolveWebViewMethod (t :: Symbol) (o :: *) :: * where + ResolveWebViewMethod "activate" o = Gtk.WidgetActivateMethodInfo + ResolveWebViewMethod "add" o = Gtk.ContainerAddMethodInfo + ResolveWebViewMethod "addAccelerator" o = Gtk.WidgetAddAcceleratorMethodInfo + ResolveWebViewMethod "addChild" o = Gtk.BuildableAddChildMethodInfo + ResolveWebViewMethod "addDeviceEvents" o = Gtk.WidgetAddDeviceEventsMethodInfo + ResolveWebViewMethod "addEvents" o = Gtk.WidgetAddEventsMethodInfo + ResolveWebViewMethod "addMnemonicLabel" o = Gtk.WidgetAddMnemonicLabelMethodInfo + ResolveWebViewMethod "addTickCallback" o = Gtk.WidgetAddTickCallbackMethodInfo + ResolveWebViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWebViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWebViewMethod "canActivateAccel" o = Gtk.WidgetCanActivateAccelMethodInfo + ResolveWebViewMethod "canExecuteEditingCommand" o = WebViewCanExecuteEditingCommandMethodInfo + ResolveWebViewMethod "canExecuteEditingCommandFinish" o = WebViewCanExecuteEditingCommandFinishMethodInfo + ResolveWebViewMethod "canGoBack" o = WebViewCanGoBackMethodInfo + ResolveWebViewMethod "canGoForward" o = WebViewCanGoForwardMethodInfo + ResolveWebViewMethod "canShowMimeType" o = WebViewCanShowMimeTypeMethodInfo + ResolveWebViewMethod "checkResize" o = Gtk.ContainerCheckResizeMethodInfo + ResolveWebViewMethod "childFocus" o = Gtk.WidgetChildFocusMethodInfo + ResolveWebViewMethod "childGetProperty" o = Gtk.ContainerChildGetPropertyMethodInfo + ResolveWebViewMethod "childNotifyByPspec" o = Gtk.ContainerChildNotifyByPspecMethodInfo + ResolveWebViewMethod "childSetProperty" o = Gtk.ContainerChildSetPropertyMethodInfo + ResolveWebViewMethod "childType" o = Gtk.ContainerChildTypeMethodInfo + ResolveWebViewMethod "classPath" o = Gtk.WidgetClassPathMethodInfo + ResolveWebViewMethod "computeExpand" o = Gtk.WidgetComputeExpandMethodInfo + ResolveWebViewMethod "constructChild" o = Gtk.BuildableConstructChildMethodInfo + ResolveWebViewMethod "createPangoContext" o = Gtk.WidgetCreatePangoContextMethodInfo + ResolveWebViewMethod "createPangoLayout" o = Gtk.WidgetCreatePangoLayoutMethodInfo + ResolveWebViewMethod "customFinished" o = Gtk.BuildableCustomFinishedMethodInfo + ResolveWebViewMethod "customTagEnd" o = Gtk.BuildableCustomTagEndMethodInfo + ResolveWebViewMethod "customTagStart" o = Gtk.BuildableCustomTagStartMethodInfo + ResolveWebViewMethod "destroy" o = Gtk.WidgetDestroyMethodInfo + ResolveWebViewMethod "destroyed" o = Gtk.WidgetDestroyedMethodInfo + ResolveWebViewMethod "deviceIsShadowed" o = Gtk.WidgetDeviceIsShadowedMethodInfo + ResolveWebViewMethod "downloadUri" o = WebViewDownloadUriMethodInfo + ResolveWebViewMethod "dragBegin" o = Gtk.WidgetDragBeginMethodInfo + ResolveWebViewMethod "dragBeginWithCoordinates" o = Gtk.WidgetDragBeginWithCoordinatesMethodInfo + ResolveWebViewMethod "dragCheckThreshold" o = Gtk.WidgetDragCheckThresholdMethodInfo + ResolveWebViewMethod "dragDestAddImageTargets" o = Gtk.WidgetDragDestAddImageTargetsMethodInfo + ResolveWebViewMethod "dragDestAddTextTargets" o = Gtk.WidgetDragDestAddTextTargetsMethodInfo + ResolveWebViewMethod "dragDestAddUriTargets" o = Gtk.WidgetDragDestAddUriTargetsMethodInfo + ResolveWebViewMethod "dragDestFindTarget" o = Gtk.WidgetDragDestFindTargetMethodInfo + ResolveWebViewMethod "dragDestGetTargetList" o = Gtk.WidgetDragDestGetTargetListMethodInfo + ResolveWebViewMethod "dragDestGetTrackMotion" o = Gtk.WidgetDragDestGetTrackMotionMethodInfo + ResolveWebViewMethod "dragDestSet" o = Gtk.WidgetDragDestSetMethodInfo + ResolveWebViewMethod "dragDestSetProxy" o = Gtk.WidgetDragDestSetProxyMethodInfo + ResolveWebViewMethod "dragDestSetTargetList" o = Gtk.WidgetDragDestSetTargetListMethodInfo + ResolveWebViewMethod "dragDestSetTrackMotion" o = Gtk.WidgetDragDestSetTrackMotionMethodInfo + ResolveWebViewMethod "dragDestUnset" o = Gtk.WidgetDragDestUnsetMethodInfo + ResolveWebViewMethod "dragGetData" o = Gtk.WidgetDragGetDataMethodInfo + ResolveWebViewMethod "dragHighlight" o = Gtk.WidgetDragHighlightMethodInfo + ResolveWebViewMethod "dragSourceAddImageTargets" o = Gtk.WidgetDragSourceAddImageTargetsMethodInfo + ResolveWebViewMethod "dragSourceAddTextTargets" o = Gtk.WidgetDragSourceAddTextTargetsMethodInfo + ResolveWebViewMethod "dragSourceAddUriTargets" o = Gtk.WidgetDragSourceAddUriTargetsMethodInfo + ResolveWebViewMethod "dragSourceGetTargetList" o = Gtk.WidgetDragSourceGetTargetListMethodInfo + ResolveWebViewMethod "dragSourceSet" o = Gtk.WidgetDragSourceSetMethodInfo + ResolveWebViewMethod "dragSourceSetIconGicon" o = Gtk.WidgetDragSourceSetIconGiconMethodInfo + ResolveWebViewMethod "dragSourceSetIconName" o = Gtk.WidgetDragSourceSetIconNameMethodInfo + ResolveWebViewMethod "dragSourceSetIconPixbuf" o = Gtk.WidgetDragSourceSetIconPixbufMethodInfo + ResolveWebViewMethod "dragSourceSetIconStock" o = Gtk.WidgetDragSourceSetIconStockMethodInfo + ResolveWebViewMethod "dragSourceSetTargetList" o = Gtk.WidgetDragSourceSetTargetListMethodInfo + ResolveWebViewMethod "dragSourceUnset" o = Gtk.WidgetDragSourceUnsetMethodInfo + ResolveWebViewMethod "dragUnhighlight" o = Gtk.WidgetDragUnhighlightMethodInfo + ResolveWebViewMethod "draw" o = Gtk.WidgetDrawMethodInfo + ResolveWebViewMethod "ensureStyle" o = Gtk.WidgetEnsureStyleMethodInfo + ResolveWebViewMethod "errorBell" o = Gtk.WidgetErrorBellMethodInfo + ResolveWebViewMethod "event" o = Gtk.WidgetEventMethodInfo + ResolveWebViewMethod "executeEditingCommand" o = WebViewExecuteEditingCommandMethodInfo + ResolveWebViewMethod "executeEditingCommandWithArgument" o = WebViewExecuteEditingCommandWithArgumentMethodInfo + ResolveWebViewMethod "forall" o = Gtk.ContainerForallMethodInfo + ResolveWebViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWebViewMethod "foreach" o = Gtk.ContainerForeachMethodInfo + ResolveWebViewMethod "freezeChildNotify" o = Gtk.WidgetFreezeChildNotifyMethodInfo + ResolveWebViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWebViewMethod "goBack" o = WebViewGoBackMethodInfo + ResolveWebViewMethod "goForward" o = WebViewGoForwardMethodInfo + ResolveWebViewMethod "goToBackForwardListItem" o = WebViewGoToBackForwardListItemMethodInfo + ResolveWebViewMethod "grabAdd" o = Gtk.WidgetGrabAddMethodInfo + ResolveWebViewMethod "grabDefault" o = Gtk.WidgetGrabDefaultMethodInfo + ResolveWebViewMethod "grabFocus" o = Gtk.WidgetGrabFocusMethodInfo + ResolveWebViewMethod "grabRemove" o = Gtk.WidgetGrabRemoveMethodInfo + ResolveWebViewMethod "hasDefault" o = Gtk.WidgetHasDefaultMethodInfo + ResolveWebViewMethod "hasFocus" o = Gtk.WidgetHasFocusMethodInfo + ResolveWebViewMethod "hasGrab" o = Gtk.WidgetHasGrabMethodInfo + ResolveWebViewMethod "hasRcStyle" o = Gtk.WidgetHasRcStyleMethodInfo + ResolveWebViewMethod "hasScreen" o = Gtk.WidgetHasScreenMethodInfo + ResolveWebViewMethod "hasVisibleFocus" o = Gtk.WidgetHasVisibleFocusMethodInfo + ResolveWebViewMethod "hide" o = Gtk.WidgetHideMethodInfo + ResolveWebViewMethod "hideOnDelete" o = Gtk.WidgetHideOnDeleteMethodInfo + ResolveWebViewMethod "inDestruction" o = Gtk.WidgetInDestructionMethodInfo + ResolveWebViewMethod "initTemplate" o = Gtk.WidgetInitTemplateMethodInfo + ResolveWebViewMethod "inputShapeCombineRegion" o = Gtk.WidgetInputShapeCombineRegionMethodInfo + ResolveWebViewMethod "insertActionGroup" o = Gtk.WidgetInsertActionGroupMethodInfo + ResolveWebViewMethod "intersect" o = Gtk.WidgetIntersectMethodInfo + ResolveWebViewMethod "isAncestor" o = Gtk.WidgetIsAncestorMethodInfo + ResolveWebViewMethod "isComposited" o = Gtk.WidgetIsCompositedMethodInfo + ResolveWebViewMethod "isDrawable" o = Gtk.WidgetIsDrawableMethodInfo + ResolveWebViewMethod "isEditable" o = WebViewIsEditableMethodInfo + ResolveWebViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWebViewMethod "isFocus" o = Gtk.WidgetIsFocusMethodInfo + ResolveWebViewMethod "isLoading" o = WebViewIsLoadingMethodInfo + ResolveWebViewMethod "isPlayingAudio" o = WebViewIsPlayingAudioMethodInfo + ResolveWebViewMethod "isSensitive" o = Gtk.WidgetIsSensitiveMethodInfo + ResolveWebViewMethod "isToplevel" o = Gtk.WidgetIsToplevelMethodInfo + ResolveWebViewMethod "isVisible" o = Gtk.WidgetIsVisibleMethodInfo + ResolveWebViewMethod "keynavFailed" o = Gtk.WidgetKeynavFailedMethodInfo + ResolveWebViewMethod "listAccelClosures" o = Gtk.WidgetListAccelClosuresMethodInfo + ResolveWebViewMethod "listActionPrefixes" o = Gtk.WidgetListActionPrefixesMethodInfo + ResolveWebViewMethod "listMnemonicLabels" o = Gtk.WidgetListMnemonicLabelsMethodInfo + ResolveWebViewMethod "loadAlternateHtml" o = WebViewLoadAlternateHtmlMethodInfo + ResolveWebViewMethod "loadBytes" o = WebViewLoadBytesMethodInfo + ResolveWebViewMethod "loadHtml" o = WebViewLoadHtmlMethodInfo + ResolveWebViewMethod "loadPlainText" o = WebViewLoadPlainTextMethodInfo + ResolveWebViewMethod "loadRequest" o = WebViewLoadRequestMethodInfo + ResolveWebViewMethod "loadUri" o = WebViewLoadUriMethodInfo + ResolveWebViewMethod "map" o = Gtk.WidgetMapMethodInfo + ResolveWebViewMethod "mnemonicActivate" o = Gtk.WidgetMnemonicActivateMethodInfo + ResolveWebViewMethod "modifyBase" o = Gtk.WidgetModifyBaseMethodInfo + ResolveWebViewMethod "modifyBg" o = Gtk.WidgetModifyBgMethodInfo + ResolveWebViewMethod "modifyCursor" o = Gtk.WidgetModifyCursorMethodInfo + ResolveWebViewMethod "modifyFg" o = Gtk.WidgetModifyFgMethodInfo + ResolveWebViewMethod "modifyFont" o = Gtk.WidgetModifyFontMethodInfo + ResolveWebViewMethod "modifyStyle" o = Gtk.WidgetModifyStyleMethodInfo + ResolveWebViewMethod "modifyText" o = Gtk.WidgetModifyTextMethodInfo + ResolveWebViewMethod "newWithRelatedView" o = WebViewNewWithRelatedViewMethodInfo + ResolveWebViewMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWebViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWebViewMethod "overrideBackgroundColor" o = Gtk.WidgetOverrideBackgroundColorMethodInfo + ResolveWebViewMethod "overrideColor" o = Gtk.WidgetOverrideColorMethodInfo + ResolveWebViewMethod "overrideCursor" o = Gtk.WidgetOverrideCursorMethodInfo + ResolveWebViewMethod "overrideFont" o = Gtk.WidgetOverrideFontMethodInfo + ResolveWebViewMethod "overrideSymbolicColor" o = Gtk.WidgetOverrideSymbolicColorMethodInfo + ResolveWebViewMethod "parserFinished" o = Gtk.BuildableParserFinishedMethodInfo + ResolveWebViewMethod "path" o = Gtk.WidgetPathMethodInfo + ResolveWebViewMethod "propagateDraw" o = Gtk.ContainerPropagateDrawMethodInfo + ResolveWebViewMethod "queueComputeExpand" o = Gtk.WidgetQueueComputeExpandMethodInfo + ResolveWebViewMethod "queueDraw" o = Gtk.WidgetQueueDrawMethodInfo + ResolveWebViewMethod "queueDrawArea" o = Gtk.WidgetQueueDrawAreaMethodInfo + ResolveWebViewMethod "queueDrawRegion" o = Gtk.WidgetQueueDrawRegionMethodInfo + ResolveWebViewMethod "queueResize" o = Gtk.WidgetQueueResizeMethodInfo + ResolveWebViewMethod "queueResizeNoRedraw" o = Gtk.WidgetQueueResizeNoRedrawMethodInfo + ResolveWebViewMethod "realize" o = Gtk.WidgetRealizeMethodInfo + ResolveWebViewMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWebViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWebViewMethod "regionIntersect" o = Gtk.WidgetRegionIntersectMethodInfo + ResolveWebViewMethod "registerWindow" o = Gtk.WidgetRegisterWindowMethodInfo + ResolveWebViewMethod "reload" o = WebViewReloadMethodInfo + ResolveWebViewMethod "reloadBypassCache" o = WebViewReloadBypassCacheMethodInfo + ResolveWebViewMethod "remove" o = Gtk.ContainerRemoveMethodInfo + ResolveWebViewMethod "removeAccelerator" o = Gtk.WidgetRemoveAcceleratorMethodInfo + ResolveWebViewMethod "removeMnemonicLabel" o = Gtk.WidgetRemoveMnemonicLabelMethodInfo + ResolveWebViewMethod "removeTickCallback" o = Gtk.WidgetRemoveTickCallbackMethodInfo + ResolveWebViewMethod "renderIcon" o = Gtk.WidgetRenderIconMethodInfo + ResolveWebViewMethod "renderIconPixbuf" o = Gtk.WidgetRenderIconPixbufMethodInfo + ResolveWebViewMethod "reparent" o = Gtk.WidgetReparentMethodInfo + ResolveWebViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWebViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWebViewMethod "resetRcStyles" o = Gtk.WidgetResetRcStylesMethodInfo + ResolveWebViewMethod "resetStyle" o = Gtk.WidgetResetStyleMethodInfo + ResolveWebViewMethod "resizeChildren" o = Gtk.ContainerResizeChildrenMethodInfo + ResolveWebViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWebViewMethod "runJavascript" o = WebViewRunJavascriptMethodInfo + ResolveWebViewMethod "runJavascriptFinish" o = WebViewRunJavascriptFinishMethodInfo + ResolveWebViewMethod "runJavascriptFromGresource" o = WebViewRunJavascriptFromGresourceMethodInfo + ResolveWebViewMethod "runJavascriptFromGresourceFinish" o = WebViewRunJavascriptFromGresourceFinishMethodInfo + ResolveWebViewMethod "save" o = WebViewSaveMethodInfo + ResolveWebViewMethod "saveFinish" o = WebViewSaveFinishMethodInfo + ResolveWebViewMethod "saveToFile" o = WebViewSaveToFileMethodInfo + ResolveWebViewMethod "saveToFileFinish" o = WebViewSaveToFileFinishMethodInfo + ResolveWebViewMethod "sendExpose" o = Gtk.WidgetSendExposeMethodInfo + ResolveWebViewMethod "sendFocusChange" o = Gtk.WidgetSendFocusChangeMethodInfo + ResolveWebViewMethod "shapeCombineRegion" o = Gtk.WidgetShapeCombineRegionMethodInfo + ResolveWebViewMethod "show" o = Gtk.WidgetShowMethodInfo + ResolveWebViewMethod "showAll" o = Gtk.WidgetShowAllMethodInfo + ResolveWebViewMethod "showNow" o = Gtk.WidgetShowNowMethodInfo + ResolveWebViewMethod "sizeAllocate" o = Gtk.WidgetSizeAllocateMethodInfo + ResolveWebViewMethod "sizeAllocateWithBaseline" o = Gtk.WidgetSizeAllocateWithBaselineMethodInfo + ResolveWebViewMethod "sizeRequest" o = Gtk.WidgetSizeRequestMethodInfo + ResolveWebViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWebViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWebViewMethod "stopLoading" o = WebViewStopLoadingMethodInfo + ResolveWebViewMethod "styleAttach" o = Gtk.WidgetStyleAttachMethodInfo + ResolveWebViewMethod "styleGetProperty" o = Gtk.WidgetStyleGetPropertyMethodInfo + ResolveWebViewMethod "thawChildNotify" o = Gtk.WidgetThawChildNotifyMethodInfo + ResolveWebViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWebViewMethod "translateCoordinates" o = Gtk.WidgetTranslateCoordinatesMethodInfo + ResolveWebViewMethod "triggerTooltipQuery" o = Gtk.WidgetTriggerTooltipQueryMethodInfo + ResolveWebViewMethod "unmap" o = Gtk.WidgetUnmapMethodInfo + ResolveWebViewMethod "unparent" o = Gtk.WidgetUnparentMethodInfo + ResolveWebViewMethod "unrealize" o = Gtk.WidgetUnrealizeMethodInfo + ResolveWebViewMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWebViewMethod "unregisterWindow" o = Gtk.WidgetUnregisterWindowMethodInfo + ResolveWebViewMethod "unsetFocusChain" o = Gtk.ContainerUnsetFocusChainMethodInfo + ResolveWebViewMethod "unsetStateFlags" o = Gtk.WidgetUnsetStateFlagsMethodInfo + ResolveWebViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWebViewMethod "getAccessible" o = Gtk.WidgetGetAccessibleMethodInfo + ResolveWebViewMethod "getActionGroup" o = Gtk.WidgetGetActionGroupMethodInfo + ResolveWebViewMethod "getAllocatedBaseline" o = Gtk.WidgetGetAllocatedBaselineMethodInfo + ResolveWebViewMethod "getAllocatedHeight" o = Gtk.WidgetGetAllocatedHeightMethodInfo + ResolveWebViewMethod "getAllocatedWidth" o = Gtk.WidgetGetAllocatedWidthMethodInfo + ResolveWebViewMethod "getAllocation" o = Gtk.WidgetGetAllocationMethodInfo + ResolveWebViewMethod "getAncestor" o = Gtk.WidgetGetAncestorMethodInfo + ResolveWebViewMethod "getAppPaintable" o = Gtk.WidgetGetAppPaintableMethodInfo + ResolveWebViewMethod "getBackForwardList" o = WebViewGetBackForwardListMethodInfo + ResolveWebViewMethod "getBackgroundColor" o = WebViewGetBackgroundColorMethodInfo + ResolveWebViewMethod "getBorderWidth" o = Gtk.ContainerGetBorderWidthMethodInfo + ResolveWebViewMethod "getCanDefault" o = Gtk.WidgetGetCanDefaultMethodInfo + ResolveWebViewMethod "getCanFocus" o = Gtk.WidgetGetCanFocusMethodInfo + ResolveWebViewMethod "getChildRequisition" o = Gtk.WidgetGetChildRequisitionMethodInfo + ResolveWebViewMethod "getChildVisible" o = Gtk.WidgetGetChildVisibleMethodInfo + ResolveWebViewMethod "getChildren" o = Gtk.ContainerGetChildrenMethodInfo + ResolveWebViewMethod "getClip" o = Gtk.WidgetGetClipMethodInfo + ResolveWebViewMethod "getClipboard" o = Gtk.WidgetGetClipboardMethodInfo + ResolveWebViewMethod "getCompositeName" o = Gtk.WidgetGetCompositeNameMethodInfo + ResolveWebViewMethod "getContext" o = WebViewGetContextMethodInfo + ResolveWebViewMethod "getCustomCharset" o = WebViewGetCustomCharsetMethodInfo + ResolveWebViewMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWebViewMethod "getDeviceEnabled" o = Gtk.WidgetGetDeviceEnabledMethodInfo + ResolveWebViewMethod "getDeviceEvents" o = Gtk.WidgetGetDeviceEventsMethodInfo + ResolveWebViewMethod "getDirection" o = Gtk.WidgetGetDirectionMethodInfo + ResolveWebViewMethod "getDisplay" o = Gtk.WidgetGetDisplayMethodInfo + ResolveWebViewMethod "getDoubleBuffered" o = Gtk.WidgetGetDoubleBufferedMethodInfo + ResolveWebViewMethod "getEditorState" o = WebViewGetEditorStateMethodInfo + ResolveWebViewMethod "getEstimatedLoadProgress" o = WebViewGetEstimatedLoadProgressMethodInfo + ResolveWebViewMethod "getEvents" o = Gtk.WidgetGetEventsMethodInfo + ResolveWebViewMethod "getFavicon" o = WebViewGetFaviconMethodInfo + ResolveWebViewMethod "getFindController" o = WebViewGetFindControllerMethodInfo + ResolveWebViewMethod "getFocusChain" o = Gtk.ContainerGetFocusChainMethodInfo + ResolveWebViewMethod "getFocusChild" o = Gtk.ContainerGetFocusChildMethodInfo + ResolveWebViewMethod "getFocusHadjustment" o = Gtk.ContainerGetFocusHadjustmentMethodInfo + ResolveWebViewMethod "getFocusVadjustment" o = Gtk.ContainerGetFocusVadjustmentMethodInfo + ResolveWebViewMethod "getFontMap" o = Gtk.WidgetGetFontMapMethodInfo + ResolveWebViewMethod "getFontOptions" o = Gtk.WidgetGetFontOptionsMethodInfo + ResolveWebViewMethod "getFrameClock" o = Gtk.WidgetGetFrameClockMethodInfo + ResolveWebViewMethod "getHalign" o = Gtk.WidgetGetHalignMethodInfo + ResolveWebViewMethod "getHasTooltip" o = Gtk.WidgetGetHasTooltipMethodInfo + ResolveWebViewMethod "getHasWindow" o = Gtk.WidgetGetHasWindowMethodInfo + ResolveWebViewMethod "getHexpand" o = Gtk.WidgetGetHexpandMethodInfo + ResolveWebViewMethod "getHexpandSet" o = Gtk.WidgetGetHexpandSetMethodInfo + ResolveWebViewMethod "getInspector" o = WebViewGetInspectorMethodInfo + ResolveWebViewMethod "getInternalChild" o = Gtk.BuildableGetInternalChildMethodInfo + ResolveWebViewMethod "getJavascriptGlobalContext" o = WebViewGetJavascriptGlobalContextMethodInfo + ResolveWebViewMethod "getMainResource" o = WebViewGetMainResourceMethodInfo + ResolveWebViewMethod "getMapped" o = Gtk.WidgetGetMappedMethodInfo + ResolveWebViewMethod "getMarginBottom" o = Gtk.WidgetGetMarginBottomMethodInfo + ResolveWebViewMethod "getMarginEnd" o = Gtk.WidgetGetMarginEndMethodInfo + ResolveWebViewMethod "getMarginLeft" o = Gtk.WidgetGetMarginLeftMethodInfo + ResolveWebViewMethod "getMarginRight" o = Gtk.WidgetGetMarginRightMethodInfo + ResolveWebViewMethod "getMarginStart" o = Gtk.WidgetGetMarginStartMethodInfo + ResolveWebViewMethod "getMarginTop" o = Gtk.WidgetGetMarginTopMethodInfo + ResolveWebViewMethod "getModifierMask" o = Gtk.WidgetGetModifierMaskMethodInfo + ResolveWebViewMethod "getModifierStyle" o = Gtk.WidgetGetModifierStyleMethodInfo + ResolveWebViewMethod "getNoShowAll" o = Gtk.WidgetGetNoShowAllMethodInfo + ResolveWebViewMethod "getOpacity" o = Gtk.WidgetGetOpacityMethodInfo + ResolveWebViewMethod "getPageId" o = WebViewGetPageIdMethodInfo + ResolveWebViewMethod "getPangoContext" o = Gtk.WidgetGetPangoContextMethodInfo + ResolveWebViewMethod "getParent" o = Gtk.WidgetGetParentMethodInfo + ResolveWebViewMethod "getParentWindow" o = Gtk.WidgetGetParentWindowMethodInfo + ResolveWebViewMethod "getPath" o = Gtk.WidgetGetPathMethodInfo + ResolveWebViewMethod "getPathForChild" o = Gtk.ContainerGetPathForChildMethodInfo + ResolveWebViewMethod "getPointer" o = Gtk.WidgetGetPointerMethodInfo + ResolveWebViewMethod "getPreferredHeight" o = Gtk.WidgetGetPreferredHeightMethodInfo + ResolveWebViewMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveWebViewMethod "getPreferredHeightForWidth" o = Gtk.WidgetGetPreferredHeightForWidthMethodInfo + ResolveWebViewMethod "getPreferredSize" o = Gtk.WidgetGetPreferredSizeMethodInfo + ResolveWebViewMethod "getPreferredWidth" o = Gtk.WidgetGetPreferredWidthMethodInfo + ResolveWebViewMethod "getPreferredWidthForHeight" o = Gtk.WidgetGetPreferredWidthForHeightMethodInfo + ResolveWebViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWebViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWebViewMethod "getRealized" o = Gtk.WidgetGetRealizedMethodInfo + ResolveWebViewMethod "getReceivesDefault" o = Gtk.WidgetGetReceivesDefaultMethodInfo + ResolveWebViewMethod "getRequestMode" o = Gtk.WidgetGetRequestModeMethodInfo + ResolveWebViewMethod "getRequisition" o = Gtk.WidgetGetRequisitionMethodInfo + ResolveWebViewMethod "getResizeMode" o = Gtk.ContainerGetResizeModeMethodInfo + ResolveWebViewMethod "getRootWindow" o = Gtk.WidgetGetRootWindowMethodInfo + ResolveWebViewMethod "getScaleFactor" o = Gtk.WidgetGetScaleFactorMethodInfo + ResolveWebViewMethod "getScreen" o = Gtk.WidgetGetScreenMethodInfo + ResolveWebViewMethod "getSensitive" o = Gtk.WidgetGetSensitiveMethodInfo + ResolveWebViewMethod "getSizeRequest" o = Gtk.WidgetGetSizeRequestMethodInfo + ResolveWebViewMethod "getSnapshot" o = WebViewGetSnapshotMethodInfo + ResolveWebViewMethod "getSnapshotFinish" o = WebViewGetSnapshotFinishMethodInfo + ResolveWebViewMethod "getState" o = Gtk.WidgetGetStateMethodInfo + ResolveWebViewMethod "getStateFlags" o = Gtk.WidgetGetStateFlagsMethodInfo + ResolveWebViewMethod "getStyle" o = Gtk.WidgetGetStyleMethodInfo + ResolveWebViewMethod "getStyleContext" o = Gtk.WidgetGetStyleContextMethodInfo + ResolveWebViewMethod "getSupportMultidevice" o = Gtk.WidgetGetSupportMultideviceMethodInfo + ResolveWebViewMethod "getTemplateChild" o = Gtk.WidgetGetTemplateChildMethodInfo + ResolveWebViewMethod "getTitle" o = WebViewGetTitleMethodInfo + ResolveWebViewMethod "getTlsInfo" o = WebViewGetTlsInfoMethodInfo + ResolveWebViewMethod "getTooltipMarkup" o = Gtk.WidgetGetTooltipMarkupMethodInfo + ResolveWebViewMethod "getTooltipText" o = Gtk.WidgetGetTooltipTextMethodInfo + ResolveWebViewMethod "getTooltipWindow" o = Gtk.WidgetGetTooltipWindowMethodInfo + ResolveWebViewMethod "getToplevel" o = Gtk.WidgetGetToplevelMethodInfo + ResolveWebViewMethod "getUri" o = WebViewGetUriMethodInfo + ResolveWebViewMethod "getUserContentManager" o = WebViewGetUserContentManagerMethodInfo + ResolveWebViewMethod "getValign" o = Gtk.WidgetGetValignMethodInfo + ResolveWebViewMethod "getValignWithBaseline" o = Gtk.WidgetGetValignWithBaselineMethodInfo + ResolveWebViewMethod "getVexpand" o = Gtk.WidgetGetVexpandMethodInfo + ResolveWebViewMethod "getVexpandSet" o = Gtk.WidgetGetVexpandSetMethodInfo + ResolveWebViewMethod "getVisible" o = Gtk.WidgetGetVisibleMethodInfo + ResolveWebViewMethod "getVisual" o = Gtk.WidgetGetVisualMethodInfo + ResolveWebViewMethod "getWindow" o = Gtk.WidgetGetWindowMethodInfo + ResolveWebViewMethod "getWindowProperties" o = WebViewGetWindowPropertiesMethodInfo + ResolveWebViewMethod "getZoomLevel" o = WebViewGetZoomLevelMethodInfo + ResolveWebViewMethod "setAccelPath" o = Gtk.WidgetSetAccelPathMethodInfo + ResolveWebViewMethod "setAllocation" o = Gtk.WidgetSetAllocationMethodInfo + ResolveWebViewMethod "setAppPaintable" o = Gtk.WidgetSetAppPaintableMethodInfo + ResolveWebViewMethod "setBackgroundColor" o = WebViewSetBackgroundColorMethodInfo + ResolveWebViewMethod "setBorderWidth" o = Gtk.ContainerSetBorderWidthMethodInfo + ResolveWebViewMethod "setBuildableProperty" o = Gtk.BuildableSetBuildablePropertyMethodInfo + ResolveWebViewMethod "setCanDefault" o = Gtk.WidgetSetCanDefaultMethodInfo + ResolveWebViewMethod "setCanFocus" o = Gtk.WidgetSetCanFocusMethodInfo + ResolveWebViewMethod "setChildVisible" o = Gtk.WidgetSetChildVisibleMethodInfo + ResolveWebViewMethod "setClip" o = Gtk.WidgetSetClipMethodInfo + ResolveWebViewMethod "setCompositeName" o = Gtk.WidgetSetCompositeNameMethodInfo + ResolveWebViewMethod "setCustomCharset" o = WebViewSetCustomCharsetMethodInfo + ResolveWebViewMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWebViewMethod "setDeviceEnabled" o = Gtk.WidgetSetDeviceEnabledMethodInfo + ResolveWebViewMethod "setDeviceEvents" o = Gtk.WidgetSetDeviceEventsMethodInfo + ResolveWebViewMethod "setDirection" o = Gtk.WidgetSetDirectionMethodInfo + ResolveWebViewMethod "setDoubleBuffered" o = Gtk.WidgetSetDoubleBufferedMethodInfo + ResolveWebViewMethod "setEditable" o = WebViewSetEditableMethodInfo + ResolveWebViewMethod "setEvents" o = Gtk.WidgetSetEventsMethodInfo + ResolveWebViewMethod "setFocusChain" o = Gtk.ContainerSetFocusChainMethodInfo + ResolveWebViewMethod "setFocusChild" o = Gtk.ContainerSetFocusChildMethodInfo + ResolveWebViewMethod "setFocusHadjustment" o = Gtk.ContainerSetFocusHadjustmentMethodInfo + ResolveWebViewMethod "setFocusVadjustment" o = Gtk.ContainerSetFocusVadjustmentMethodInfo + ResolveWebViewMethod "setFontMap" o = Gtk.WidgetSetFontMapMethodInfo + ResolveWebViewMethod "setFontOptions" o = Gtk.WidgetSetFontOptionsMethodInfo + ResolveWebViewMethod "setHalign" o = Gtk.WidgetSetHalignMethodInfo + ResolveWebViewMethod "setHasTooltip" o = Gtk.WidgetSetHasTooltipMethodInfo + ResolveWebViewMethod "setHasWindow" o = Gtk.WidgetSetHasWindowMethodInfo + ResolveWebViewMethod "setHexpand" o = Gtk.WidgetSetHexpandMethodInfo + ResolveWebViewMethod "setHexpandSet" o = Gtk.WidgetSetHexpandSetMethodInfo + ResolveWebViewMethod "setMapped" o = Gtk.WidgetSetMappedMethodInfo + ResolveWebViewMethod "setMarginBottom" o = Gtk.WidgetSetMarginBottomMethodInfo + ResolveWebViewMethod "setMarginEnd" o = Gtk.WidgetSetMarginEndMethodInfo + ResolveWebViewMethod "setMarginLeft" o = Gtk.WidgetSetMarginLeftMethodInfo + ResolveWebViewMethod "setMarginRight" o = Gtk.WidgetSetMarginRightMethodInfo + ResolveWebViewMethod "setMarginStart" o = Gtk.WidgetSetMarginStartMethodInfo + ResolveWebViewMethod "setMarginTop" o = Gtk.WidgetSetMarginTopMethodInfo + ResolveWebViewMethod "setNoShowAll" o = Gtk.WidgetSetNoShowAllMethodInfo + ResolveWebViewMethod "setOpacity" o = Gtk.WidgetSetOpacityMethodInfo + ResolveWebViewMethod "setParent" o = Gtk.WidgetSetParentMethodInfo + ResolveWebViewMethod "setParentWindow" o = Gtk.WidgetSetParentWindowMethodInfo + ResolveWebViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWebViewMethod "setRealized" o = Gtk.WidgetSetRealizedMethodInfo + ResolveWebViewMethod "setReallocateRedraws" o = Gtk.ContainerSetReallocateRedrawsMethodInfo + ResolveWebViewMethod "setReceivesDefault" o = Gtk.WidgetSetReceivesDefaultMethodInfo + ResolveWebViewMethod "setRedrawOnAllocate" o = Gtk.WidgetSetRedrawOnAllocateMethodInfo + ResolveWebViewMethod "setResizeMode" o = Gtk.ContainerSetResizeModeMethodInfo + ResolveWebViewMethod "setSensitive" o = Gtk.WidgetSetSensitiveMethodInfo + ResolveWebViewMethod "setSettings" o = WebViewSetSettingsMethodInfo + ResolveWebViewMethod "setSizeRequest" o = Gtk.WidgetSetSizeRequestMethodInfo + ResolveWebViewMethod "setState" o = Gtk.WidgetSetStateMethodInfo + ResolveWebViewMethod "setStateFlags" o = Gtk.WidgetSetStateFlagsMethodInfo + ResolveWebViewMethod "setStyle" o = Gtk.WidgetSetStyleMethodInfo + ResolveWebViewMethod "setSupportMultidevice" o = Gtk.WidgetSetSupportMultideviceMethodInfo + ResolveWebViewMethod "setTooltipMarkup" o = Gtk.WidgetSetTooltipMarkupMethodInfo + ResolveWebViewMethod "setTooltipText" o = Gtk.WidgetSetTooltipTextMethodInfo + ResolveWebViewMethod "setTooltipWindow" o = Gtk.WidgetSetTooltipWindowMethodInfo + ResolveWebViewMethod "setValign" o = Gtk.WidgetSetValignMethodInfo + ResolveWebViewMethod "setVexpand" o = Gtk.WidgetSetVexpandMethodInfo + ResolveWebViewMethod "setVexpandSet" o = Gtk.WidgetSetVexpandSetMethodInfo + ResolveWebViewMethod "setVisible" o = Gtk.WidgetSetVisibleMethodInfo + ResolveWebViewMethod "setVisual" o = Gtk.WidgetSetVisualMethodInfo + ResolveWebViewMethod "setWindow" o = Gtk.WidgetSetWindowMethodInfo + ResolveWebViewMethod "setZoomLevel" o = WebViewSetZoomLevelMethodInfo + ResolveWebViewMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWebViewMethod t WebView, MethodInfo info WebView p) => IsLabelProxy t (WebView -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWebViewMethod t WebView, MethodInfo info WebView p) => IsLabel t (WebView -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal WebView::authenticate +type WebViewAuthenticateCallback = + AuthenticationRequest -> + IO Bool + +noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback +noWebViewAuthenticateCallback = Nothing + +type WebViewAuthenticateCallbackC = + Ptr () -> -- object + Ptr AuthenticationRequest -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewAuthenticateCallback :: WebViewAuthenticateCallbackC -> IO (FunPtr WebViewAuthenticateCallbackC) + +webViewAuthenticateClosure :: WebViewAuthenticateCallback -> IO Closure +webViewAuthenticateClosure cb = newCClosure =<< mkWebViewAuthenticateCallback wrapped + where wrapped = webViewAuthenticateCallbackWrapper cb + +webViewAuthenticateCallbackWrapper :: + WebViewAuthenticateCallback -> + Ptr () -> + Ptr AuthenticationRequest -> + Ptr () -> + IO CInt +webViewAuthenticateCallbackWrapper _cb _ request _ = do + request' <- (newObject AuthenticationRequest) request + result <- _cb request' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId +onWebViewAuthenticate obj cb = liftIO $ connectWebViewAuthenticate obj cb SignalConnectBefore +afterWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId +afterWebViewAuthenticate obj cb = connectWebViewAuthenticate obj cb SignalConnectAfter + +connectWebViewAuthenticate :: (GObject a, MonadIO m) => + a -> WebViewAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewAuthenticate obj cb after = liftIO $ do + cb' <- mkWebViewAuthenticateCallback (webViewAuthenticateCallbackWrapper cb) + connectSignalFunPtr obj "authenticate" cb' after + +-- signal WebView::close +type WebViewCloseCallback = + IO () + +noWebViewCloseCallback :: Maybe WebViewCloseCallback +noWebViewCloseCallback = Nothing + +type WebViewCloseCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewCloseCallback :: WebViewCloseCallbackC -> IO (FunPtr WebViewCloseCallbackC) + +webViewCloseClosure :: WebViewCloseCallback -> IO Closure +webViewCloseClosure cb = newCClosure =<< mkWebViewCloseCallback wrapped + where wrapped = webViewCloseCallbackWrapper cb + +webViewCloseCallbackWrapper :: + WebViewCloseCallback -> + Ptr () -> + Ptr () -> + IO () +webViewCloseCallbackWrapper _cb _ _ = do + _cb + +onWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId +onWebViewClose obj cb = liftIO $ connectWebViewClose obj cb SignalConnectBefore +afterWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId +afterWebViewClose obj cb = connectWebViewClose obj cb SignalConnectAfter + +connectWebViewClose :: (GObject a, MonadIO m) => + a -> WebViewCloseCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewClose obj cb after = liftIO $ do + cb' <- mkWebViewCloseCallback (webViewCloseCallbackWrapper cb) + connectSignalFunPtr obj "close" cb' after + +-- signal WebView::context-menu +type WebViewContextMenuCallback = + ContextMenu -> + Gdk.Event -> + HitTestResult -> + IO Bool + +noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback +noWebViewContextMenuCallback = Nothing + +type WebViewContextMenuCallbackC = + Ptr () -> -- object + Ptr ContextMenu -> + Ptr Gdk.Event -> + Ptr HitTestResult -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewContextMenuCallback :: WebViewContextMenuCallbackC -> IO (FunPtr WebViewContextMenuCallbackC) + +webViewContextMenuClosure :: WebViewContextMenuCallback -> IO Closure +webViewContextMenuClosure cb = newCClosure =<< mkWebViewContextMenuCallback wrapped + where wrapped = webViewContextMenuCallbackWrapper cb + +webViewContextMenuCallbackWrapper :: + WebViewContextMenuCallback -> + Ptr () -> + Ptr ContextMenu -> + Ptr Gdk.Event -> + Ptr HitTestResult -> + Ptr () -> + IO CInt +webViewContextMenuCallbackWrapper _cb _ contextMenu event hitTestResult _ = do + contextMenu' <- (newObject ContextMenu) contextMenu + event' <- (newBoxed Gdk.Event) event + hitTestResult' <- (newObject HitTestResult) hitTestResult + result <- _cb contextMenu' event' hitTestResult' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId +onWebViewContextMenu obj cb = liftIO $ connectWebViewContextMenu obj cb SignalConnectBefore +afterWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId +afterWebViewContextMenu obj cb = connectWebViewContextMenu obj cb SignalConnectAfter + +connectWebViewContextMenu :: (GObject a, MonadIO m) => + a -> WebViewContextMenuCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewContextMenu obj cb after = liftIO $ do + cb' <- mkWebViewContextMenuCallback (webViewContextMenuCallbackWrapper cb) + connectSignalFunPtr obj "context-menu" cb' after + +-- signal WebView::context-menu-dismissed +type WebViewContextMenuDismissedCallback = + IO () + +noWebViewContextMenuDismissedCallback :: Maybe WebViewContextMenuDismissedCallback +noWebViewContextMenuDismissedCallback = Nothing + +type WebViewContextMenuDismissedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewContextMenuDismissedCallback :: WebViewContextMenuDismissedCallbackC -> IO (FunPtr WebViewContextMenuDismissedCallbackC) + +webViewContextMenuDismissedClosure :: WebViewContextMenuDismissedCallback -> IO Closure +webViewContextMenuDismissedClosure cb = newCClosure =<< mkWebViewContextMenuDismissedCallback wrapped + where wrapped = webViewContextMenuDismissedCallbackWrapper cb + +webViewContextMenuDismissedCallbackWrapper :: + WebViewContextMenuDismissedCallback -> + Ptr () -> + Ptr () -> + IO () +webViewContextMenuDismissedCallbackWrapper _cb _ _ = do + _cb + +onWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId +onWebViewContextMenuDismissed obj cb = liftIO $ connectWebViewContextMenuDismissed obj cb SignalConnectBefore +afterWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId +afterWebViewContextMenuDismissed obj cb = connectWebViewContextMenuDismissed obj cb SignalConnectAfter + +connectWebViewContextMenuDismissed :: (GObject a, MonadIO m) => + a -> WebViewContextMenuDismissedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewContextMenuDismissed obj cb after = liftIO $ do + cb' <- mkWebViewContextMenuDismissedCallback (webViewContextMenuDismissedCallbackWrapper cb) + connectSignalFunPtr obj "context-menu-dismissed" cb' after + +-- signal WebView::create +type WebViewCreateCallback = + NavigationAction -> + IO Gtk.Widget + +noWebViewCreateCallback :: Maybe WebViewCreateCallback +noWebViewCreateCallback = Nothing + +type WebViewCreateCallbackC = + Ptr () -> -- object + Ptr NavigationAction -> + Ptr () -> -- user_data + IO (Ptr Gtk.Widget) + +foreign import ccall "wrapper" + mkWebViewCreateCallback :: WebViewCreateCallbackC -> IO (FunPtr WebViewCreateCallbackC) + +webViewCreateClosure :: WebViewCreateCallback -> IO Closure +webViewCreateClosure cb = newCClosure =<< mkWebViewCreateCallback wrapped + where wrapped = webViewCreateCallbackWrapper cb + +webViewCreateCallbackWrapper :: + WebViewCreateCallback -> + Ptr () -> + Ptr NavigationAction -> + Ptr () -> + IO (Ptr Gtk.Widget) +webViewCreateCallbackWrapper _cb _ navigationAction _ = do + navigationAction' <- (newBoxed NavigationAction) navigationAction + result <- _cb navigationAction' + result' <- refObject result + return result' + +onWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId +onWebViewCreate obj cb = liftIO $ connectWebViewCreate obj cb SignalConnectBefore +afterWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId +afterWebViewCreate obj cb = connectWebViewCreate obj cb SignalConnectAfter + +connectWebViewCreate :: (GObject a, MonadIO m) => + a -> WebViewCreateCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewCreate obj cb after = liftIO $ do + cb' <- mkWebViewCreateCallback (webViewCreateCallbackWrapper cb) + connectSignalFunPtr obj "create" cb' after + +-- signal WebView::decide-policy +type WebViewDecidePolicyCallback = + PolicyDecision -> + PolicyDecisionType -> + IO Bool + +noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback +noWebViewDecidePolicyCallback = Nothing + +type WebViewDecidePolicyCallbackC = + Ptr () -> -- object + Ptr PolicyDecision -> + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewDecidePolicyCallback :: WebViewDecidePolicyCallbackC -> IO (FunPtr WebViewDecidePolicyCallbackC) + +webViewDecidePolicyClosure :: WebViewDecidePolicyCallback -> IO Closure +webViewDecidePolicyClosure cb = newCClosure =<< mkWebViewDecidePolicyCallback wrapped + where wrapped = webViewDecidePolicyCallbackWrapper cb + +webViewDecidePolicyCallbackWrapper :: + WebViewDecidePolicyCallback -> + Ptr () -> + Ptr PolicyDecision -> + CUInt -> + Ptr () -> + IO CInt +webViewDecidePolicyCallbackWrapper _cb _ decision decisionType _ = do + decision' <- (newObject PolicyDecision) decision + let decisionType' = (toEnum . fromIntegral) decisionType + result <- _cb decision' decisionType' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId +onWebViewDecidePolicy obj cb = liftIO $ connectWebViewDecidePolicy obj cb SignalConnectBefore +afterWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId +afterWebViewDecidePolicy obj cb = connectWebViewDecidePolicy obj cb SignalConnectAfter + +connectWebViewDecidePolicy :: (GObject a, MonadIO m) => + a -> WebViewDecidePolicyCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewDecidePolicy obj cb after = liftIO $ do + cb' <- mkWebViewDecidePolicyCallback (webViewDecidePolicyCallbackWrapper cb) + connectSignalFunPtr obj "decide-policy" cb' after + +-- signal WebView::enter-fullscreen +type WebViewEnterFullscreenCallback = + IO Bool + +noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback +noWebViewEnterFullscreenCallback = Nothing + +type WebViewEnterFullscreenCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewEnterFullscreenCallback :: WebViewEnterFullscreenCallbackC -> IO (FunPtr WebViewEnterFullscreenCallbackC) + +webViewEnterFullscreenClosure :: WebViewEnterFullscreenCallback -> IO Closure +webViewEnterFullscreenClosure cb = newCClosure =<< mkWebViewEnterFullscreenCallback wrapped + where wrapped = webViewEnterFullscreenCallbackWrapper cb + +webViewEnterFullscreenCallbackWrapper :: + WebViewEnterFullscreenCallback -> + Ptr () -> + Ptr () -> + IO CInt +webViewEnterFullscreenCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId +onWebViewEnterFullscreen obj cb = liftIO $ connectWebViewEnterFullscreen obj cb SignalConnectBefore +afterWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId +afterWebViewEnterFullscreen obj cb = connectWebViewEnterFullscreen obj cb SignalConnectAfter + +connectWebViewEnterFullscreen :: (GObject a, MonadIO m) => + a -> WebViewEnterFullscreenCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewEnterFullscreen obj cb after = liftIO $ do + cb' <- mkWebViewEnterFullscreenCallback (webViewEnterFullscreenCallbackWrapper cb) + connectSignalFunPtr obj "enter-fullscreen" cb' after + +-- signal WebView::insecure-content-detected +type WebViewInsecureContentDetectedCallback = + InsecureContentEvent -> + IO () + +noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback +noWebViewInsecureContentDetectedCallback = Nothing + +type WebViewInsecureContentDetectedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewInsecureContentDetectedCallback :: WebViewInsecureContentDetectedCallbackC -> IO (FunPtr WebViewInsecureContentDetectedCallbackC) + +webViewInsecureContentDetectedClosure :: WebViewInsecureContentDetectedCallback -> IO Closure +webViewInsecureContentDetectedClosure cb = newCClosure =<< mkWebViewInsecureContentDetectedCallback wrapped + where wrapped = webViewInsecureContentDetectedCallbackWrapper cb + +webViewInsecureContentDetectedCallbackWrapper :: + WebViewInsecureContentDetectedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +webViewInsecureContentDetectedCallbackWrapper _cb _ event _ = do + let event' = (toEnum . fromIntegral) event + _cb event' + +onWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId +onWebViewInsecureContentDetected obj cb = liftIO $ connectWebViewInsecureContentDetected obj cb SignalConnectBefore +afterWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId +afterWebViewInsecureContentDetected obj cb = connectWebViewInsecureContentDetected obj cb SignalConnectAfter + +connectWebViewInsecureContentDetected :: (GObject a, MonadIO m) => + a -> WebViewInsecureContentDetectedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewInsecureContentDetected obj cb after = liftIO $ do + cb' <- mkWebViewInsecureContentDetectedCallback (webViewInsecureContentDetectedCallbackWrapper cb) + connectSignalFunPtr obj "insecure-content-detected" cb' after + +-- signal WebView::leave-fullscreen +type WebViewLeaveFullscreenCallback = + IO Bool + +noWebViewLeaveFullscreenCallback :: Maybe WebViewLeaveFullscreenCallback +noWebViewLeaveFullscreenCallback = Nothing + +type WebViewLeaveFullscreenCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewLeaveFullscreenCallback :: WebViewLeaveFullscreenCallbackC -> IO (FunPtr WebViewLeaveFullscreenCallbackC) + +webViewLeaveFullscreenClosure :: WebViewLeaveFullscreenCallback -> IO Closure +webViewLeaveFullscreenClosure cb = newCClosure =<< mkWebViewLeaveFullscreenCallback wrapped + where wrapped = webViewLeaveFullscreenCallbackWrapper cb + +webViewLeaveFullscreenCallbackWrapper :: + WebViewLeaveFullscreenCallback -> + Ptr () -> + Ptr () -> + IO CInt +webViewLeaveFullscreenCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId +onWebViewLeaveFullscreen obj cb = liftIO $ connectWebViewLeaveFullscreen obj cb SignalConnectBefore +afterWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId +afterWebViewLeaveFullscreen obj cb = connectWebViewLeaveFullscreen obj cb SignalConnectAfter + +connectWebViewLeaveFullscreen :: (GObject a, MonadIO m) => + a -> WebViewLeaveFullscreenCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLeaveFullscreen obj cb after = liftIO $ do + cb' <- mkWebViewLeaveFullscreenCallback (webViewLeaveFullscreenCallbackWrapper cb) + connectSignalFunPtr obj "leave-fullscreen" cb' after + +-- signal WebView::load-changed +type WebViewLoadChangedCallback = + LoadEvent -> + IO () + +noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback +noWebViewLoadChangedCallback = Nothing + +type WebViewLoadChangedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewLoadChangedCallback :: WebViewLoadChangedCallbackC -> IO (FunPtr WebViewLoadChangedCallbackC) + +webViewLoadChangedClosure :: WebViewLoadChangedCallback -> IO Closure +webViewLoadChangedClosure cb = newCClosure =<< mkWebViewLoadChangedCallback wrapped + where wrapped = webViewLoadChangedCallbackWrapper cb + +webViewLoadChangedCallbackWrapper :: + WebViewLoadChangedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +webViewLoadChangedCallbackWrapper _cb _ loadEvent _ = do + let loadEvent' = (toEnum . fromIntegral) loadEvent + _cb loadEvent' + +onWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId +onWebViewLoadChanged obj cb = liftIO $ connectWebViewLoadChanged obj cb SignalConnectBefore +afterWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId +afterWebViewLoadChanged obj cb = connectWebViewLoadChanged obj cb SignalConnectAfter + +connectWebViewLoadChanged :: (GObject a, MonadIO m) => + a -> WebViewLoadChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadChanged obj cb after = liftIO $ do + cb' <- mkWebViewLoadChangedCallback (webViewLoadChangedCallbackWrapper cb) + connectSignalFunPtr obj "load-changed" cb' after + +-- signal WebView::load-failed +type WebViewLoadFailedCallback = + LoadEvent -> + T.Text -> + Ptr () -> + IO Bool + +noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback +noWebViewLoadFailedCallback = Nothing + +type WebViewLoadFailedCallbackC = + Ptr () -> -- object + CUInt -> + CString -> + Ptr () -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewLoadFailedCallback :: WebViewLoadFailedCallbackC -> IO (FunPtr WebViewLoadFailedCallbackC) + +webViewLoadFailedClosure :: WebViewLoadFailedCallback -> IO Closure +webViewLoadFailedClosure cb = newCClosure =<< mkWebViewLoadFailedCallback wrapped + where wrapped = webViewLoadFailedCallbackWrapper cb + +webViewLoadFailedCallbackWrapper :: + WebViewLoadFailedCallback -> + Ptr () -> + CUInt -> + CString -> + Ptr () -> + Ptr () -> + IO CInt +webViewLoadFailedCallbackWrapper _cb _ loadEvent failingUri error_ _ = do + let loadEvent' = (toEnum . fromIntegral) loadEvent + failingUri' <- cstringToText failingUri + result <- _cb loadEvent' failingUri' error_ + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId +onWebViewLoadFailed obj cb = liftIO $ connectWebViewLoadFailed obj cb SignalConnectBefore +afterWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId +afterWebViewLoadFailed obj cb = connectWebViewLoadFailed obj cb SignalConnectAfter + +connectWebViewLoadFailed :: (GObject a, MonadIO m) => + a -> WebViewLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadFailed obj cb after = liftIO $ do + cb' <- mkWebViewLoadFailedCallback (webViewLoadFailedCallbackWrapper cb) + connectSignalFunPtr obj "load-failed" cb' after + +-- signal WebView::load-failed-with-tls-errors +type WebViewLoadFailedWithTlsErrorsCallback = + T.Text -> + Gio.TlsCertificate -> + [Gio.TlsCertificateFlags] -> + IO Bool + +noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback +noWebViewLoadFailedWithTlsErrorsCallback = Nothing + +type WebViewLoadFailedWithTlsErrorsCallbackC = + Ptr () -> -- object + CString -> + Ptr Gio.TlsCertificate -> + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewLoadFailedWithTlsErrorsCallback :: WebViewLoadFailedWithTlsErrorsCallbackC -> IO (FunPtr WebViewLoadFailedWithTlsErrorsCallbackC) + +webViewLoadFailedWithTlsErrorsClosure :: WebViewLoadFailedWithTlsErrorsCallback -> IO Closure +webViewLoadFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebViewLoadFailedWithTlsErrorsCallback wrapped + where wrapped = webViewLoadFailedWithTlsErrorsCallbackWrapper cb + +webViewLoadFailedWithTlsErrorsCallbackWrapper :: + WebViewLoadFailedWithTlsErrorsCallback -> + Ptr () -> + CString -> + Ptr Gio.TlsCertificate -> + CUInt -> + Ptr () -> + IO CInt +webViewLoadFailedWithTlsErrorsCallbackWrapper _cb _ failingUri certificate errors _ = do + failingUri' <- cstringToText failingUri + certificate' <- (newObject Gio.TlsCertificate) certificate + let errors' = wordToGFlags errors + result <- _cb failingUri' certificate' errors' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId +onWebViewLoadFailedWithTlsErrors obj cb = liftIO $ connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectBefore +afterWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId +afterWebViewLoadFailedWithTlsErrors obj cb = connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectAfter + +connectWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => + a -> WebViewLoadFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadFailedWithTlsErrors obj cb after = liftIO $ do + cb' <- mkWebViewLoadFailedWithTlsErrorsCallback (webViewLoadFailedWithTlsErrorsCallbackWrapper cb) + connectSignalFunPtr obj "load-failed-with-tls-errors" cb' after + +-- signal WebView::mouse-target-changed +type WebViewMouseTargetChangedCallback = + HitTestResult -> + Word32 -> + IO () + +noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback +noWebViewMouseTargetChangedCallback = Nothing + +type WebViewMouseTargetChangedCallbackC = + Ptr () -> -- object + Ptr HitTestResult -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewMouseTargetChangedCallback :: WebViewMouseTargetChangedCallbackC -> IO (FunPtr WebViewMouseTargetChangedCallbackC) + +webViewMouseTargetChangedClosure :: WebViewMouseTargetChangedCallback -> IO Closure +webViewMouseTargetChangedClosure cb = newCClosure =<< mkWebViewMouseTargetChangedCallback wrapped + where wrapped = webViewMouseTargetChangedCallbackWrapper cb + +webViewMouseTargetChangedCallbackWrapper :: + WebViewMouseTargetChangedCallback -> + Ptr () -> + Ptr HitTestResult -> + Word32 -> + Ptr () -> + IO () +webViewMouseTargetChangedCallbackWrapper _cb _ hitTestResult modifiers _ = do + hitTestResult' <- (newObject HitTestResult) hitTestResult + _cb hitTestResult' modifiers + +onWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId +onWebViewMouseTargetChanged obj cb = liftIO $ connectWebViewMouseTargetChanged obj cb SignalConnectBefore +afterWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId +afterWebViewMouseTargetChanged obj cb = connectWebViewMouseTargetChanged obj cb SignalConnectAfter + +connectWebViewMouseTargetChanged :: (GObject a, MonadIO m) => + a -> WebViewMouseTargetChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewMouseTargetChanged obj cb after = liftIO $ do + cb' <- mkWebViewMouseTargetChangedCallback (webViewMouseTargetChangedCallbackWrapper cb) + connectSignalFunPtr obj "mouse-target-changed" cb' after + +-- signal WebView::permission-request +type WebViewPermissionRequestCallback = + PermissionRequest -> + IO Bool + +noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback +noWebViewPermissionRequestCallback = Nothing + +type WebViewPermissionRequestCallbackC = + Ptr () -> -- object + Ptr PermissionRequest -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewPermissionRequestCallback :: WebViewPermissionRequestCallbackC -> IO (FunPtr WebViewPermissionRequestCallbackC) + +webViewPermissionRequestClosure :: WebViewPermissionRequestCallback -> IO Closure +webViewPermissionRequestClosure cb = newCClosure =<< mkWebViewPermissionRequestCallback wrapped + where wrapped = webViewPermissionRequestCallbackWrapper cb + +webViewPermissionRequestCallbackWrapper :: + WebViewPermissionRequestCallback -> + Ptr () -> + Ptr PermissionRequest -> + Ptr () -> + IO CInt +webViewPermissionRequestCallbackWrapper _cb _ request _ = do + request' <- (newObject PermissionRequest) request + result <- _cb request' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId +onWebViewPermissionRequest obj cb = liftIO $ connectWebViewPermissionRequest obj cb SignalConnectBefore +afterWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId +afterWebViewPermissionRequest obj cb = connectWebViewPermissionRequest obj cb SignalConnectAfter + +connectWebViewPermissionRequest :: (GObject a, MonadIO m) => + a -> WebViewPermissionRequestCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewPermissionRequest obj cb after = liftIO $ do + cb' <- mkWebViewPermissionRequestCallback (webViewPermissionRequestCallbackWrapper cb) + connectSignalFunPtr obj "permission-request" cb' after + +-- signal WebView::print +type WebViewPrintCallback = + PrintOperation -> + IO Bool + +noWebViewPrintCallback :: Maybe WebViewPrintCallback +noWebViewPrintCallback = Nothing + +type WebViewPrintCallbackC = + Ptr () -> -- object + Ptr PrintOperation -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewPrintCallback :: WebViewPrintCallbackC -> IO (FunPtr WebViewPrintCallbackC) + +webViewPrintClosure :: WebViewPrintCallback -> IO Closure +webViewPrintClosure cb = newCClosure =<< mkWebViewPrintCallback wrapped + where wrapped = webViewPrintCallbackWrapper cb + +webViewPrintCallbackWrapper :: + WebViewPrintCallback -> + Ptr () -> + Ptr PrintOperation -> + Ptr () -> + IO CInt +webViewPrintCallbackWrapper _cb _ printOperation _ = do + printOperation' <- (newObject PrintOperation) printOperation + result <- _cb printOperation' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId +onWebViewPrint obj cb = liftIO $ connectWebViewPrint obj cb SignalConnectBefore +afterWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId +afterWebViewPrint obj cb = connectWebViewPrint obj cb SignalConnectAfter + +connectWebViewPrint :: (GObject a, MonadIO m) => + a -> WebViewPrintCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewPrint obj cb after = liftIO $ do + cb' <- mkWebViewPrintCallback (webViewPrintCallbackWrapper cb) + connectSignalFunPtr obj "print" cb' after + +-- signal WebView::ready-to-show +type WebViewReadyToShowCallback = + IO () + +noWebViewReadyToShowCallback :: Maybe WebViewReadyToShowCallback +noWebViewReadyToShowCallback = Nothing + +type WebViewReadyToShowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewReadyToShowCallback :: WebViewReadyToShowCallbackC -> IO (FunPtr WebViewReadyToShowCallbackC) + +webViewReadyToShowClosure :: WebViewReadyToShowCallback -> IO Closure +webViewReadyToShowClosure cb = newCClosure =<< mkWebViewReadyToShowCallback wrapped + where wrapped = webViewReadyToShowCallbackWrapper cb + +webViewReadyToShowCallbackWrapper :: + WebViewReadyToShowCallback -> + Ptr () -> + Ptr () -> + IO () +webViewReadyToShowCallbackWrapper _cb _ _ = do + _cb + +onWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId +onWebViewReadyToShow obj cb = liftIO $ connectWebViewReadyToShow obj cb SignalConnectBefore +afterWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId +afterWebViewReadyToShow obj cb = connectWebViewReadyToShow obj cb SignalConnectAfter + +connectWebViewReadyToShow :: (GObject a, MonadIO m) => + a -> WebViewReadyToShowCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewReadyToShow obj cb after = liftIO $ do + cb' <- mkWebViewReadyToShowCallback (webViewReadyToShowCallbackWrapper cb) + connectSignalFunPtr obj "ready-to-show" cb' after + +-- signal WebView::resource-load-started +type WebViewResourceLoadStartedCallback = + WebResource -> + URIRequest -> + IO () + +noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback +noWebViewResourceLoadStartedCallback = Nothing + +type WebViewResourceLoadStartedCallbackC = + Ptr () -> -- object + Ptr WebResource -> + Ptr URIRequest -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewResourceLoadStartedCallback :: WebViewResourceLoadStartedCallbackC -> IO (FunPtr WebViewResourceLoadStartedCallbackC) + +webViewResourceLoadStartedClosure :: WebViewResourceLoadStartedCallback -> IO Closure +webViewResourceLoadStartedClosure cb = newCClosure =<< mkWebViewResourceLoadStartedCallback wrapped + where wrapped = webViewResourceLoadStartedCallbackWrapper cb + +webViewResourceLoadStartedCallbackWrapper :: + WebViewResourceLoadStartedCallback -> + Ptr () -> + Ptr WebResource -> + Ptr URIRequest -> + Ptr () -> + IO () +webViewResourceLoadStartedCallbackWrapper _cb _ resource request _ = do + resource' <- (newObject WebResource) resource + request' <- (newObject URIRequest) request + _cb resource' request' + +onWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId +onWebViewResourceLoadStarted obj cb = liftIO $ connectWebViewResourceLoadStarted obj cb SignalConnectBefore +afterWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId +afterWebViewResourceLoadStarted obj cb = connectWebViewResourceLoadStarted obj cb SignalConnectAfter + +connectWebViewResourceLoadStarted :: (GObject a, MonadIO m) => + a -> WebViewResourceLoadStartedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewResourceLoadStarted obj cb after = liftIO $ do + cb' <- mkWebViewResourceLoadStartedCallback (webViewResourceLoadStartedCallbackWrapper cb) + connectSignalFunPtr obj "resource-load-started" cb' after + +-- signal WebView::run-as-modal +type WebViewRunAsModalCallback = + IO () + +noWebViewRunAsModalCallback :: Maybe WebViewRunAsModalCallback +noWebViewRunAsModalCallback = Nothing + +type WebViewRunAsModalCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewRunAsModalCallback :: WebViewRunAsModalCallbackC -> IO (FunPtr WebViewRunAsModalCallbackC) + +webViewRunAsModalClosure :: WebViewRunAsModalCallback -> IO Closure +webViewRunAsModalClosure cb = newCClosure =<< mkWebViewRunAsModalCallback wrapped + where wrapped = webViewRunAsModalCallbackWrapper cb + +webViewRunAsModalCallbackWrapper :: + WebViewRunAsModalCallback -> + Ptr () -> + Ptr () -> + IO () +webViewRunAsModalCallbackWrapper _cb _ _ = do + _cb + +onWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId +onWebViewRunAsModal obj cb = liftIO $ connectWebViewRunAsModal obj cb SignalConnectBefore +afterWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId +afterWebViewRunAsModal obj cb = connectWebViewRunAsModal obj cb SignalConnectAfter + +connectWebViewRunAsModal :: (GObject a, MonadIO m) => + a -> WebViewRunAsModalCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewRunAsModal obj cb after = liftIO $ do + cb' <- mkWebViewRunAsModalCallback (webViewRunAsModalCallbackWrapper cb) + connectSignalFunPtr obj "run-as-modal" cb' after + +-- signal WebView::run-color-chooser +type WebViewRunColorChooserCallback = + ColorChooserRequest -> + IO Bool + +noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback +noWebViewRunColorChooserCallback = Nothing + +type WebViewRunColorChooserCallbackC = + Ptr () -> -- object + Ptr ColorChooserRequest -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewRunColorChooserCallback :: WebViewRunColorChooserCallbackC -> IO (FunPtr WebViewRunColorChooserCallbackC) + +webViewRunColorChooserClosure :: WebViewRunColorChooserCallback -> IO Closure +webViewRunColorChooserClosure cb = newCClosure =<< mkWebViewRunColorChooserCallback wrapped + where wrapped = webViewRunColorChooserCallbackWrapper cb + +webViewRunColorChooserCallbackWrapper :: + WebViewRunColorChooserCallback -> + Ptr () -> + Ptr ColorChooserRequest -> + Ptr () -> + IO CInt +webViewRunColorChooserCallbackWrapper _cb _ request _ = do + request' <- (newObject ColorChooserRequest) request + result <- _cb request' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId +onWebViewRunColorChooser obj cb = liftIO $ connectWebViewRunColorChooser obj cb SignalConnectBefore +afterWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId +afterWebViewRunColorChooser obj cb = connectWebViewRunColorChooser obj cb SignalConnectAfter + +connectWebViewRunColorChooser :: (GObject a, MonadIO m) => + a -> WebViewRunColorChooserCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewRunColorChooser obj cb after = liftIO $ do + cb' <- mkWebViewRunColorChooserCallback (webViewRunColorChooserCallbackWrapper cb) + connectSignalFunPtr obj "run-color-chooser" cb' after + +-- signal WebView::run-file-chooser +type WebViewRunFileChooserCallback = + FileChooserRequest -> + IO Bool + +noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback +noWebViewRunFileChooserCallback = Nothing + +type WebViewRunFileChooserCallbackC = + Ptr () -> -- object + Ptr FileChooserRequest -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewRunFileChooserCallback :: WebViewRunFileChooserCallbackC -> IO (FunPtr WebViewRunFileChooserCallbackC) + +webViewRunFileChooserClosure :: WebViewRunFileChooserCallback -> IO Closure +webViewRunFileChooserClosure cb = newCClosure =<< mkWebViewRunFileChooserCallback wrapped + where wrapped = webViewRunFileChooserCallbackWrapper cb + +webViewRunFileChooserCallbackWrapper :: + WebViewRunFileChooserCallback -> + Ptr () -> + Ptr FileChooserRequest -> + Ptr () -> + IO CInt +webViewRunFileChooserCallbackWrapper _cb _ request _ = do + request' <- (newObject FileChooserRequest) request + result <- _cb request' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId +onWebViewRunFileChooser obj cb = liftIO $ connectWebViewRunFileChooser obj cb SignalConnectBefore +afterWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId +afterWebViewRunFileChooser obj cb = connectWebViewRunFileChooser obj cb SignalConnectAfter + +connectWebViewRunFileChooser :: (GObject a, MonadIO m) => + a -> WebViewRunFileChooserCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewRunFileChooser obj cb after = liftIO $ do + cb' <- mkWebViewRunFileChooserCallback (webViewRunFileChooserCallbackWrapper cb) + connectSignalFunPtr obj "run-file-chooser" cb' after + +-- signal WebView::script-dialog +type WebViewScriptDialogCallback = + ScriptDialog -> + IO Bool + +noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback +noWebViewScriptDialogCallback = Nothing + +type WebViewScriptDialogCallbackC = + Ptr () -> -- object + Ptr ScriptDialog -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewScriptDialogCallback :: WebViewScriptDialogCallbackC -> IO (FunPtr WebViewScriptDialogCallbackC) + +webViewScriptDialogClosure :: WebViewScriptDialogCallback -> IO Closure +webViewScriptDialogClosure cb = newCClosure =<< mkWebViewScriptDialogCallback wrapped + where wrapped = webViewScriptDialogCallbackWrapper cb + +webViewScriptDialogCallbackWrapper :: + WebViewScriptDialogCallback -> + Ptr () -> + Ptr ScriptDialog -> + Ptr () -> + IO CInt +webViewScriptDialogCallbackWrapper _cb _ dialog _ = do + dialog' <- (newBoxed ScriptDialog) dialog + result <- _cb dialog' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId +onWebViewScriptDialog obj cb = liftIO $ connectWebViewScriptDialog obj cb SignalConnectBefore +afterWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId +afterWebViewScriptDialog obj cb = connectWebViewScriptDialog obj cb SignalConnectAfter + +connectWebViewScriptDialog :: (GObject a, MonadIO m) => + a -> WebViewScriptDialogCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewScriptDialog obj cb after = liftIO $ do + cb' <- mkWebViewScriptDialogCallback (webViewScriptDialogCallbackWrapper cb) + connectSignalFunPtr obj "script-dialog" cb' after + +-- signal WebView::show-notification +type WebViewShowNotificationCallback = + Notification -> + IO Bool + +noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback +noWebViewShowNotificationCallback = Nothing + +type WebViewShowNotificationCallbackC = + Ptr () -> -- object + Ptr Notification -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShowNotificationCallback :: WebViewShowNotificationCallbackC -> IO (FunPtr WebViewShowNotificationCallbackC) + +webViewShowNotificationClosure :: WebViewShowNotificationCallback -> IO Closure +webViewShowNotificationClosure cb = newCClosure =<< mkWebViewShowNotificationCallback wrapped + where wrapped = webViewShowNotificationCallbackWrapper cb + +webViewShowNotificationCallbackWrapper :: + WebViewShowNotificationCallback -> + Ptr () -> + Ptr Notification -> + Ptr () -> + IO CInt +webViewShowNotificationCallbackWrapper _cb _ notification _ = do + notification' <- (newObject Notification) notification + result <- _cb notification' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId +onWebViewShowNotification obj cb = liftIO $ connectWebViewShowNotification obj cb SignalConnectBefore +afterWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId +afterWebViewShowNotification obj cb = connectWebViewShowNotification obj cb SignalConnectAfter + +connectWebViewShowNotification :: (GObject a, MonadIO m) => + a -> WebViewShowNotificationCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShowNotification obj cb after = liftIO $ do + cb' <- mkWebViewShowNotificationCallback (webViewShowNotificationCallbackWrapper cb) + connectSignalFunPtr obj "show-notification" cb' after + +-- signal WebView::submit-form +type WebViewSubmitFormCallback = + FormSubmissionRequest -> + IO () + +noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback +noWebViewSubmitFormCallback = Nothing + +type WebViewSubmitFormCallbackC = + Ptr () -> -- object + Ptr FormSubmissionRequest -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewSubmitFormCallback :: WebViewSubmitFormCallbackC -> IO (FunPtr WebViewSubmitFormCallbackC) + +webViewSubmitFormClosure :: WebViewSubmitFormCallback -> IO Closure +webViewSubmitFormClosure cb = newCClosure =<< mkWebViewSubmitFormCallback wrapped + where wrapped = webViewSubmitFormCallbackWrapper cb + +webViewSubmitFormCallbackWrapper :: + WebViewSubmitFormCallback -> + Ptr () -> + Ptr FormSubmissionRequest -> + Ptr () -> + IO () +webViewSubmitFormCallbackWrapper _cb _ request _ = do + request' <- (newObject FormSubmissionRequest) request + _cb request' + +onWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId +onWebViewSubmitForm obj cb = liftIO $ connectWebViewSubmitForm obj cb SignalConnectBefore +afterWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId +afterWebViewSubmitForm obj cb = connectWebViewSubmitForm obj cb SignalConnectAfter + +connectWebViewSubmitForm :: (GObject a, MonadIO m) => + a -> WebViewSubmitFormCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewSubmitForm obj cb after = liftIO $ do + cb' <- mkWebViewSubmitFormCallback (webViewSubmitFormCallbackWrapper cb) + connectSignalFunPtr obj "submit-form" cb' after + +-- signal WebView::web-process-crashed +type WebViewWebProcessCrashedCallback = + IO Bool + +noWebViewWebProcessCrashedCallback :: Maybe WebViewWebProcessCrashedCallback +noWebViewWebProcessCrashedCallback = Nothing + +type WebViewWebProcessCrashedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewWebProcessCrashedCallback :: WebViewWebProcessCrashedCallbackC -> IO (FunPtr WebViewWebProcessCrashedCallbackC) + +webViewWebProcessCrashedClosure :: WebViewWebProcessCrashedCallback -> IO Closure +webViewWebProcessCrashedClosure cb = newCClosure =<< mkWebViewWebProcessCrashedCallback wrapped + where wrapped = webViewWebProcessCrashedCallbackWrapper cb + +webViewWebProcessCrashedCallbackWrapper :: + WebViewWebProcessCrashedCallback -> + Ptr () -> + Ptr () -> + IO CInt +webViewWebProcessCrashedCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId +onWebViewWebProcessCrashed obj cb = liftIO $ connectWebViewWebProcessCrashed obj cb SignalConnectBefore +afterWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId +afterWebViewWebProcessCrashed obj cb = connectWebViewWebProcessCrashed obj cb SignalConnectAfter + +connectWebViewWebProcessCrashed :: (GObject a, MonadIO m) => + a -> WebViewWebProcessCrashedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewWebProcessCrashed obj cb after = liftIO $ do + cb' <- mkWebViewWebProcessCrashedCallback (webViewWebProcessCrashedCallbackWrapper cb) + connectSignalFunPtr obj "web-process-crashed" cb' after + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" + +setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m () +setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val + +constructWebViewEditable :: Bool -> IO ([Char], GValue) +constructWebViewEditable val = constructObjectPropertyBool "editable" val + +data WebViewEditablePropertyInfo +instance AttrInfo WebViewEditablePropertyInfo where + type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK + type AttrGetType WebViewEditablePropertyInfo = Bool + type AttrLabel WebViewEditablePropertyInfo = "editable" + attrGet _ = getWebViewEditable + attrSet _ = setWebViewEditable + attrConstruct _ = constructWebViewEditable + +-- VVV Prop "estimated-load-progress" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getWebViewEstimatedLoadProgress :: (MonadIO m, WebViewK o) => o -> m Double +getWebViewEstimatedLoadProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-load-progress" + +data WebViewEstimatedLoadProgressPropertyInfo +instance AttrInfo WebViewEstimatedLoadProgressPropertyInfo where + type AttrAllowedOps WebViewEstimatedLoadProgressPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = WebViewK + type AttrGetType WebViewEstimatedLoadProgressPropertyInfo = Double + type AttrLabel WebViewEstimatedLoadProgressPropertyInfo = "estimated-load-progress" + attrGet _ = getWebViewEstimatedLoadProgress + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "favicon" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable] + +getWebViewFavicon :: (MonadIO m, WebViewK o) => o -> m (Ptr ()) +getWebViewFavicon obj = liftIO $ getObjectPropertyPtr obj "favicon" + +data WebViewFaviconPropertyInfo +instance AttrInfo WebViewFaviconPropertyInfo where + type AttrAllowedOps WebViewFaviconPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewFaviconPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewFaviconPropertyInfo = WebViewK + type AttrGetType WebViewFaviconPropertyInfo = (Ptr ()) + type AttrLabel WebViewFaviconPropertyInfo = "favicon" + attrGet _ = getWebViewFavicon + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-loading" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getWebViewIsLoading :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewIsLoading obj = liftIO $ getObjectPropertyBool obj "is-loading" + +data WebViewIsLoadingPropertyInfo +instance AttrInfo WebViewIsLoadingPropertyInfo where + type AttrAllowedOps WebViewIsLoadingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewIsLoadingPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewIsLoadingPropertyInfo = WebViewK + type AttrGetType WebViewIsLoadingPropertyInfo = Bool + type AttrLabel WebViewIsLoadingPropertyInfo = "is-loading" + attrGet _ = getWebViewIsLoading + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-playing-audio" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getWebViewIsPlayingAudio :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewIsPlayingAudio obj = liftIO $ getObjectPropertyBool obj "is-playing-audio" + +data WebViewIsPlayingAudioPropertyInfo +instance AttrInfo WebViewIsPlayingAudioPropertyInfo where + type AttrAllowedOps WebViewIsPlayingAudioPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewIsPlayingAudioPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewIsPlayingAudioPropertyInfo = WebViewK + type AttrGetType WebViewIsPlayingAudioPropertyInfo = Bool + type AttrLabel WebViewIsPlayingAudioPropertyInfo = "is-playing-audio" + attrGet _ = getWebViewIsPlayingAudio + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "related-view" + -- Type: TInterface "WebKit2" "WebView" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructWebViewRelatedView :: (WebViewK a) => a -> IO ([Char], GValue) +constructWebViewRelatedView val = constructObjectPropertyObject "related-view" val + +data WebViewRelatedViewPropertyInfo +instance AttrInfo WebViewRelatedViewPropertyInfo where + type AttrAllowedOps WebViewRelatedViewPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK + type AttrBaseTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK + type AttrGetType WebViewRelatedViewPropertyInfo = () + type AttrLabel WebViewRelatedViewPropertyInfo = "related-view" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructWebViewRelatedView + +-- VVV Prop "settings" + -- Type: TInterface "WebKit2" "Settings" + -- Flags: [PropertyWritable,PropertyConstruct] + +setWebViewSettings :: (MonadIO m, WebViewK o, SettingsK a) => o -> a -> m () +setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" val + +constructWebViewSettings :: (SettingsK a) => a -> IO ([Char], GValue) +constructWebViewSettings val = constructObjectPropertyObject "settings" val + +data WebViewSettingsPropertyInfo +instance AttrInfo WebViewSettingsPropertyInfo where + type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint WebViewSettingsPropertyInfo = SettingsK + type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK + type AttrGetType WebViewSettingsPropertyInfo = () + type AttrLabel WebViewSettingsPropertyInfo = "settings" + attrGet _ = undefined + attrSet _ = setWebViewSettings + attrConstruct _ = constructWebViewSettings + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewTitle obj = liftIO $ getObjectPropertyString obj "title" + +data WebViewTitlePropertyInfo +instance AttrInfo WebViewTitlePropertyInfo where + type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK + type AttrGetType WebViewTitlePropertyInfo = T.Text + type AttrLabel WebViewTitlePropertyInfo = "title" + attrGet _ = getWebViewTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewUri :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri" + +data WebViewUriPropertyInfo +instance AttrInfo WebViewUriPropertyInfo where + type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK + type AttrGetType WebViewUriPropertyInfo = T.Text + type AttrLabel WebViewUriPropertyInfo = "uri" + attrGet _ = getWebViewUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "user-content-manager" + -- Type: TInterface "WebKit2" "UserContentManager" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebViewUserContentManager :: (MonadIO m, WebViewK o) => o -> m UserContentManager +getWebViewUserContentManager obj = liftIO $ getObjectPropertyObject obj "user-content-manager" UserContentManager + +constructWebViewUserContentManager :: (UserContentManagerK a) => a -> IO ([Char], GValue) +constructWebViewUserContentManager val = constructObjectPropertyObject "user-content-manager" val + +data WebViewUserContentManagerPropertyInfo +instance AttrInfo WebViewUserContentManagerPropertyInfo where + type AttrAllowedOps WebViewUserContentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewUserContentManagerPropertyInfo = UserContentManagerK + type AttrBaseTypeConstraint WebViewUserContentManagerPropertyInfo = WebViewK + type AttrGetType WebViewUserContentManagerPropertyInfo = UserContentManager + type AttrLabel WebViewUserContentManagerPropertyInfo = "user-content-manager" + attrGet _ = getWebViewUserContentManager + attrSet _ = undefined + attrConstruct _ = constructWebViewUserContentManager + +-- VVV Prop "web-context" + -- Type: TInterface "WebKit2" "WebContext" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebViewWebContext :: (MonadIO m, WebViewK o) => o -> m WebContext +getWebViewWebContext obj = liftIO $ getObjectPropertyObject obj "web-context" WebContext + +constructWebViewWebContext :: (WebContextK a) => a -> IO ([Char], GValue) +constructWebViewWebContext val = constructObjectPropertyObject "web-context" val + +data WebViewWebContextPropertyInfo +instance AttrInfo WebViewWebContextPropertyInfo where + type AttrAllowedOps WebViewWebContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewWebContextPropertyInfo = WebContextK + type AttrBaseTypeConstraint WebViewWebContextPropertyInfo = WebViewK + type AttrGetType WebViewWebContextPropertyInfo = WebContext + type AttrLabel WebViewWebContextPropertyInfo = "web-context" + attrGet _ = getWebViewWebContext + attrSet _ = undefined + attrConstruct _ = constructWebViewWebContext + +-- VVV Prop "zoom-level" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Double +getWebViewZoomLevel obj = liftIO $ getObjectPropertyDouble obj "zoom-level" + +setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Double -> m () +setWebViewZoomLevel obj val = liftIO $ setObjectPropertyDouble obj "zoom-level" val + +constructWebViewZoomLevel :: Double -> IO ([Char], GValue) +constructWebViewZoomLevel val = constructObjectPropertyDouble "zoom-level" val + +data WebViewZoomLevelPropertyInfo +instance AttrInfo WebViewZoomLevelPropertyInfo where + type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Double + type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK + type AttrGetType WebViewZoomLevelPropertyInfo = Double + type AttrLabel WebViewZoomLevelPropertyInfo = "zoom-level" + attrGet _ = getWebViewZoomLevel + attrSet _ = setWebViewZoomLevel + attrConstruct _ = constructWebViewZoomLevel + +type instance AttributeList WebView = WebViewAttributeList +type WebViewAttributeList = ('[ '("appPaintable", Gtk.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("compositeChild", Gtk.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("estimatedLoadProgress", WebViewEstimatedLoadProgressPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("favicon", WebViewFaviconPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("hasDefault", Gtk.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.WidgetIsFocusPropertyInfo), '("isLoading", WebViewIsLoadingPropertyInfo), '("isPlayingAudio", WebViewIsPlayingAudioPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("marginBottom", Gtk.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("noShowAll", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receivesDefault", Gtk.WidgetReceivesDefaultPropertyInfo), '("relatedView", WebViewRelatedViewPropertyInfo), '("resizeMode", Gtk.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltipMarkup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.WidgetTooltipTextPropertyInfo), '("uri", WebViewUriPropertyInfo), '("userContentManager", WebViewUserContentManagerPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("webContext", WebViewWebContextPropertyInfo), '("widthRequest", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo), '("zoomLevel", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)]) + +data WebViewAuthenticateSignalInfo +instance SignalInfo WebViewAuthenticateSignalInfo where + type HaskellCallbackType WebViewAuthenticateSignalInfo = WebViewAuthenticateCallback + connectSignal _ = connectWebViewAuthenticate + +data WebViewCloseSignalInfo +instance SignalInfo WebViewCloseSignalInfo where + type HaskellCallbackType WebViewCloseSignalInfo = WebViewCloseCallback + connectSignal _ = connectWebViewClose + +data WebViewContextMenuSignalInfo +instance SignalInfo WebViewContextMenuSignalInfo where + type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback + connectSignal _ = connectWebViewContextMenu + +data WebViewContextMenuDismissedSignalInfo +instance SignalInfo WebViewContextMenuDismissedSignalInfo where + type HaskellCallbackType WebViewContextMenuDismissedSignalInfo = WebViewContextMenuDismissedCallback + connectSignal _ = connectWebViewContextMenuDismissed + +data WebViewCreateSignalInfo +instance SignalInfo WebViewCreateSignalInfo where + type HaskellCallbackType WebViewCreateSignalInfo = WebViewCreateCallback + connectSignal _ = connectWebViewCreate + +data WebViewDecidePolicySignalInfo +instance SignalInfo WebViewDecidePolicySignalInfo where + type HaskellCallbackType WebViewDecidePolicySignalInfo = WebViewDecidePolicyCallback + connectSignal _ = connectWebViewDecidePolicy + +data WebViewEnterFullscreenSignalInfo +instance SignalInfo WebViewEnterFullscreenSignalInfo where + type HaskellCallbackType WebViewEnterFullscreenSignalInfo = WebViewEnterFullscreenCallback + connectSignal _ = connectWebViewEnterFullscreen + +data WebViewInsecureContentDetectedSignalInfo +instance SignalInfo WebViewInsecureContentDetectedSignalInfo where + type HaskellCallbackType WebViewInsecureContentDetectedSignalInfo = WebViewInsecureContentDetectedCallback + connectSignal _ = connectWebViewInsecureContentDetected + +data WebViewLeaveFullscreenSignalInfo +instance SignalInfo WebViewLeaveFullscreenSignalInfo where + type HaskellCallbackType WebViewLeaveFullscreenSignalInfo = WebViewLeaveFullscreenCallback + connectSignal _ = connectWebViewLeaveFullscreen + +data WebViewLoadChangedSignalInfo +instance SignalInfo WebViewLoadChangedSignalInfo where + type HaskellCallbackType WebViewLoadChangedSignalInfo = WebViewLoadChangedCallback + connectSignal _ = connectWebViewLoadChanged + +data WebViewLoadFailedSignalInfo +instance SignalInfo WebViewLoadFailedSignalInfo where + type HaskellCallbackType WebViewLoadFailedSignalInfo = WebViewLoadFailedCallback + connectSignal _ = connectWebViewLoadFailed + +data WebViewLoadFailedWithTlsErrorsSignalInfo +instance SignalInfo WebViewLoadFailedWithTlsErrorsSignalInfo where + type HaskellCallbackType WebViewLoadFailedWithTlsErrorsSignalInfo = WebViewLoadFailedWithTlsErrorsCallback + connectSignal _ = connectWebViewLoadFailedWithTlsErrors + +data WebViewMouseTargetChangedSignalInfo +instance SignalInfo WebViewMouseTargetChangedSignalInfo where + type HaskellCallbackType WebViewMouseTargetChangedSignalInfo = WebViewMouseTargetChangedCallback + connectSignal _ = connectWebViewMouseTargetChanged + +data WebViewPermissionRequestSignalInfo +instance SignalInfo WebViewPermissionRequestSignalInfo where + type HaskellCallbackType WebViewPermissionRequestSignalInfo = WebViewPermissionRequestCallback + connectSignal _ = connectWebViewPermissionRequest + +data WebViewPrintSignalInfo +instance SignalInfo WebViewPrintSignalInfo where + type HaskellCallbackType WebViewPrintSignalInfo = WebViewPrintCallback + connectSignal _ = connectWebViewPrint + +data WebViewReadyToShowSignalInfo +instance SignalInfo WebViewReadyToShowSignalInfo where + type HaskellCallbackType WebViewReadyToShowSignalInfo = WebViewReadyToShowCallback + connectSignal _ = connectWebViewReadyToShow + +data WebViewResourceLoadStartedSignalInfo +instance SignalInfo WebViewResourceLoadStartedSignalInfo where + type HaskellCallbackType WebViewResourceLoadStartedSignalInfo = WebViewResourceLoadStartedCallback + connectSignal _ = connectWebViewResourceLoadStarted + +data WebViewRunAsModalSignalInfo +instance SignalInfo WebViewRunAsModalSignalInfo where + type HaskellCallbackType WebViewRunAsModalSignalInfo = WebViewRunAsModalCallback + connectSignal _ = connectWebViewRunAsModal + +data WebViewRunColorChooserSignalInfo +instance SignalInfo WebViewRunColorChooserSignalInfo where + type HaskellCallbackType WebViewRunColorChooserSignalInfo = WebViewRunColorChooserCallback + connectSignal _ = connectWebViewRunColorChooser + +data WebViewRunFileChooserSignalInfo +instance SignalInfo WebViewRunFileChooserSignalInfo where + type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback + connectSignal _ = connectWebViewRunFileChooser + +data WebViewScriptDialogSignalInfo +instance SignalInfo WebViewScriptDialogSignalInfo where + type HaskellCallbackType WebViewScriptDialogSignalInfo = WebViewScriptDialogCallback + connectSignal _ = connectWebViewScriptDialog + +data WebViewShowNotificationSignalInfo +instance SignalInfo WebViewShowNotificationSignalInfo where + type HaskellCallbackType WebViewShowNotificationSignalInfo = WebViewShowNotificationCallback + connectSignal _ = connectWebViewShowNotification + +data WebViewSubmitFormSignalInfo +instance SignalInfo WebViewSubmitFormSignalInfo where + type HaskellCallbackType WebViewSubmitFormSignalInfo = WebViewSubmitFormCallback + connectSignal _ = connectWebViewSubmitForm + +data WebViewWebProcessCrashedSignalInfo +instance SignalInfo WebViewWebProcessCrashedSignalInfo where + type HaskellCallbackType WebViewWebProcessCrashedSignalInfo = WebViewWebProcessCrashedCallback + connectSignal _ = connectWebViewWebProcessCrashed + +type instance SignalList WebView = WebViewSignalList +type WebViewSignalList = ('[ '("accelClosuresChanged", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("authenticate", WebViewAuthenticateSignalInfo), '("buttonPressEvent", Gtk.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.WidgetChildNotifySignalInfo), '("close", WebViewCloseSignalInfo), '("compositedChanged", Gtk.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.WidgetConfigureEventSignalInfo), '("contextMenu", WebViewContextMenuSignalInfo), '("contextMenuDismissed", WebViewContextMenuDismissedSignalInfo), '("create", WebViewCreateSignalInfo), '("damageEvent", Gtk.WidgetDamageEventSignalInfo), '("decidePolicy", WebViewDecidePolicySignalInfo), '("deleteEvent", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroyEvent", Gtk.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.WidgetDragDropSignalInfo), '("dragEnd", Gtk.WidgetDragEndSignalInfo), '("dragFailed", Gtk.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enterFullscreen", WebViewEnterFullscreenSignalInfo), '("enterNotifyEvent", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("eventAfter", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focusInEvent", Gtk.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.WidgetHierarchyChangedSignalInfo), '("insecureContentDetected", WebViewInsecureContentDetectedSignalInfo), '("keyPressEvent", Gtk.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.WidgetKeynavFailedSignalInfo), '("leaveFullscreen", WebViewLeaveFullscreenSignalInfo), '("leaveNotifyEvent", Gtk.WidgetLeaveNotifyEventSignalInfo), '("loadChanged", WebViewLoadChangedSignalInfo), '("loadFailed", WebViewLoadFailedSignalInfo), '("loadFailedWithTlsErrors", WebViewLoadFailedWithTlsErrorsSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("mapEvent", Gtk.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.WidgetMotionNotifyEventSignalInfo), '("mouseTargetChanged", WebViewMouseTargetChangedSignalInfo), '("moveFocus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", Gtk.WidgetParentSetSignalInfo), '("permissionRequest", WebViewPermissionRequestSignalInfo), '("popupMenu", Gtk.WidgetPopupMenuSignalInfo), '("print", WebViewPrintSignalInfo), '("propertyNotifyEvent", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.WidgetQueryTooltipSignalInfo), '("readyToShow", WebViewReadyToShowSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resourceLoadStarted", WebViewResourceLoadStartedSignalInfo), '("runAsModal", WebViewRunAsModalSignalInfo), '("runColorChooser", WebViewRunColorChooserSignalInfo), '("runFileChooser", WebViewRunFileChooserSignalInfo), '("screenChanged", Gtk.WidgetScreenChangedSignalInfo), '("scriptDialog", WebViewScriptDialogSignalInfo), '("scrollEvent", Gtk.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("showHelp", Gtk.WidgetShowHelpSignalInfo), '("showNotification", WebViewShowNotificationSignalInfo), '("sizeAllocate", Gtk.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.WidgetStyleUpdatedSignalInfo), '("submitForm", WebViewSubmitFormSignalInfo), '("touchEvent", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("webProcessCrashed", WebViewWebProcessCrashedSignalInfo), '("windowStateEvent", Gtk.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method WebView::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WebView" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_new" webkit_web_view_new :: + IO (Ptr WebView) + + +webViewNew :: + (MonadIO m) => + m WebView -- result +webViewNew = liftIO $ do + result <- webkit_web_view_new + checkUnexpectedReturnNULL "webkit_web_view_new" result + result' <- (newObject WebView) result + return result' + +-- method WebView::new_with_context +-- method type : Constructor +-- Args : [Arg {argCName = "context", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WebView" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_new_with_context" webkit_web_view_new_with_context :: + Ptr WebContext -> -- context : TInterface "WebKit2" "WebContext" + IO (Ptr WebView) + + +webViewNewWithContext :: + (MonadIO m, WebContextK a) => + a -- context + -> m WebView -- result +webViewNewWithContext context = liftIO $ do + let context' = unsafeManagedPtrCastPtr context + result <- webkit_web_view_new_with_context context' + checkUnexpectedReturnNULL "webkit_web_view_new_with_context" result + result' <- (newObject WebView) result + touchManagedPtr context + return result' + +-- method WebView::new_with_settings +-- method type : Constructor +-- Args : [Arg {argCName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WebView" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_new_with_settings" webkit_web_view_new_with_settings :: + Ptr Settings -> -- settings : TInterface "WebKit2" "Settings" + IO (Ptr WebView) + + +webViewNewWithSettings :: + (MonadIO m, SettingsK a) => + a -- settings + -> m WebView -- result +webViewNewWithSettings settings = liftIO $ do + let settings' = unsafeManagedPtrCastPtr settings + result <- webkit_web_view_new_with_settings settings' + checkUnexpectedReturnNULL "webkit_web_view_new_with_settings" result + result' <- (newObject WebView) result + touchManagedPtr settings + return result' + +-- method WebView::new_with_user_content_manager +-- method type : Constructor +-- Args : [Arg {argCName = "user_content_manager", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WebView" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_new_with_user_content_manager" webkit_web_view_new_with_user_content_manager :: + Ptr UserContentManager -> -- user_content_manager : TInterface "WebKit2" "UserContentManager" + IO (Ptr WebView) + + +webViewNewWithUserContentManager :: + (MonadIO m, UserContentManagerK a) => + a -- userContentManager + -> m WebView -- result +webViewNewWithUserContentManager userContentManager = liftIO $ do + let userContentManager' = unsafeManagedPtrCastPtr userContentManager + result <- webkit_web_view_new_with_user_content_manager userContentManager' + checkUnexpectedReturnNULL "webkit_web_view_new_with_user_content_manager" result + result' <- (newObject WebView) result + touchManagedPtr userContentManager + return result' + +-- method WebView::can_execute_editing_command +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_execute_editing_command" webkit_web_view_can_execute_editing_command :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- command : TBasicType TUTF8 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +webViewCanExecuteEditingCommand :: + (MonadIO m, WebViewK a, Gio.CancellableK b) => + a -- _obj + -> T.Text -- command + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +webViewCanExecuteEditingCommand _obj command cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + webkit_web_view_can_execute_editing_command _obj' command' maybeCancellable maybeCallback userData + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem command' + return () + +data WebViewCanExecuteEditingCommandMethodInfo +instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewCanExecuteEditingCommandMethodInfo a signature where + overloadedMethod _ = webViewCanExecuteEditingCommand + +-- method WebView::can_execute_editing_command_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_web_view_can_execute_editing_command_finish" webkit_web_view_can_execute_editing_command_finish :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO CInt + + +webViewCanExecuteEditingCommandFinish :: + (MonadIO m, WebViewK a, Gio.AsyncResultK b) => + a -- _obj + -> b -- result_ + -> m () -- result +webViewCanExecuteEditingCommandFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + _ <- propagateGError $ webkit_web_view_can_execute_editing_command_finish _obj' result_' + touchManagedPtr _obj + touchManagedPtr result_ + return () + ) (do + return () + ) + +data WebViewCanExecuteEditingCommandFinishMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewCanExecuteEditingCommandFinishMethodInfo a signature where + overloadedMethod _ = webViewCanExecuteEditingCommandFinish + +-- method WebView::can_go_back +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CInt + + +webViewCanGoBack :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Bool -- result +webViewCanGoBack _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_go_back _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WebViewCanGoBackMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanGoBackMethodInfo a signature where + overloadedMethod _ = webViewCanGoBack + +-- method WebView::can_go_forward +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CInt + + +webViewCanGoForward :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Bool -- result +webViewCanGoForward _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_go_forward _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WebViewCanGoForwardMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanGoForwardMethodInfo a signature where + overloadedMethod _ = webViewCanGoForward + +-- method WebView::can_show_mime_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- mime_type : TBasicType TUTF8 + IO CInt + + +webViewCanShowMimeType :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- mimeType + -> m Bool -- result +webViewCanShowMimeType _obj mimeType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mimeType' <- textToCString mimeType + result <- webkit_web_view_can_show_mime_type _obj' mimeType' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem mimeType' + return result' + +data WebViewCanShowMimeTypeMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanShowMimeTypeMethodInfo a signature where + overloadedMethod _ = webViewCanShowMimeType + +-- method WebView::download_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TInterface "WebKit2" "Download" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_download_uri" webkit_web_view_download_uri :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- uri : TBasicType TUTF8 + IO (Ptr Download) + + +webViewDownloadUri :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- uri + -> m Download -- result +webViewDownloadUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + result <- webkit_web_view_download_uri _obj' uri' + checkUnexpectedReturnNULL "webkit_web_view_download_uri" result + result' <- (wrapObject Download) result + touchManagedPtr _obj + freeMem uri' + return result' + +data WebViewDownloadUriMethodInfo +instance (signature ~ (T.Text -> m Download), MonadIO m, WebViewK a) => MethodInfo WebViewDownloadUriMethodInfo a signature where + overloadedMethod _ = webViewDownloadUri + +-- method WebView::execute_editing_command +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_execute_editing_command" webkit_web_view_execute_editing_command :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- command : TBasicType TUTF8 + IO () + + +webViewExecuteEditingCommand :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- command + -> m () -- result +webViewExecuteEditingCommand _obj command = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + webkit_web_view_execute_editing_command _obj' command' + touchManagedPtr _obj + freeMem command' + return () + +data WebViewExecuteEditingCommandMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewExecuteEditingCommandMethodInfo a signature where + overloadedMethod _ = webViewExecuteEditingCommand + +-- method WebView::execute_editing_command_with_argument +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argument", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_execute_editing_command_with_argument" webkit_web_view_execute_editing_command_with_argument :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- command : TBasicType TUTF8 + CString -> -- argument : TBasicType TUTF8 + IO () + + +webViewExecuteEditingCommandWithArgument :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- command + -> T.Text -- argument + -> m () -- result +webViewExecuteEditingCommandWithArgument _obj command argument = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + argument' <- textToCString argument + webkit_web_view_execute_editing_command_with_argument _obj' command' argument' + touchManagedPtr _obj + freeMem command' + freeMem argument' + return () + +data WebViewExecuteEditingCommandWithArgumentMethodInfo +instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewExecuteEditingCommandWithArgumentMethodInfo a signature where + overloadedMethod _ = webViewExecuteEditingCommandWithArgument + +-- method WebView::get_back_forward_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "BackForwardList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr BackForwardList) + + +webViewGetBackForwardList :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m BackForwardList -- result +webViewGetBackForwardList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_back_forward_list _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_back_forward_list" result + result' <- (newObject BackForwardList) result + touchManagedPtr _obj + return result' + +data WebViewGetBackForwardListMethodInfo +instance (signature ~ (m BackForwardList), MonadIO m, WebViewK a) => MethodInfo WebViewGetBackForwardListMethodInfo a signature where + overloadedMethod _ = webViewGetBackForwardList + +-- method WebView::get_background_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_background_color" webkit_web_view_get_background_color :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" + IO () + + +webViewGetBackgroundColor :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m (Gdk.RGBA) -- result +webViewGetBackgroundColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) + webkit_web_view_get_background_color _obj' rgba + rgba' <- (wrapBoxed Gdk.RGBA) rgba + touchManagedPtr _obj + return rgba' + +data WebViewGetBackgroundColorMethodInfo +instance (signature ~ (m (Gdk.RGBA)), MonadIO m, WebViewK a) => MethodInfo WebViewGetBackgroundColorMethodInfo a signature where + overloadedMethod _ = webViewGetBackgroundColor + +-- method WebView::get_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WebContext" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_context" webkit_web_view_get_context :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr WebContext) + + +webViewGetContext :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m WebContext -- result +webViewGetContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_context _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_context" result + result' <- (newObject WebContext) result + touchManagedPtr _obj + return result' + +data WebViewGetContextMethodInfo +instance (signature ~ (m WebContext), MonadIO m, WebViewK a) => MethodInfo WebViewGetContextMethodInfo a signature where + overloadedMethod _ = webViewGetContext + +-- method WebView::get_custom_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_custom_charset" webkit_web_view_get_custom_charset :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CString + + +webViewGetCustomCharset :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m T.Text -- result +webViewGetCustomCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_custom_charset _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_custom_charset" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WebViewGetCustomCharsetMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetCustomCharsetMethodInfo a signature where + overloadedMethod _ = webViewGetCustomCharset + +-- method WebView::get_editor_state +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "EditorState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_editor_state" webkit_web_view_get_editor_state :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr EditorState) + + +webViewGetEditorState :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m EditorState -- result +webViewGetEditorState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_editor_state _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_editor_state" result + result' <- (newObject EditorState) result + touchManagedPtr _obj + return result' + +data WebViewGetEditorStateMethodInfo +instance (signature ~ (m EditorState), MonadIO m, WebViewK a) => MethodInfo WebViewGetEditorStateMethodInfo a signature where + overloadedMethod _ = webViewGetEditorState + +-- method WebView::get_estimated_load_progress +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_estimated_load_progress" webkit_web_view_get_estimated_load_progress :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CDouble + + +webViewGetEstimatedLoadProgress :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Double -- result +webViewGetEstimatedLoadProgress _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_estimated_load_progress _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data WebViewGetEstimatedLoadProgressMethodInfo +instance (signature ~ (m Double), MonadIO m, WebViewK a) => MethodInfo WebViewGetEstimatedLoadProgressMethodInfo a signature where + overloadedMethod _ = webViewGetEstimatedLoadProgress + +-- method WebView::get_favicon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "cairo" "Surface" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_favicon" webkit_web_view_get_favicon :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr Cairo.Surface) + + +webViewGetFavicon :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Cairo.Surface -- result +webViewGetFavicon _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_favicon _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_favicon" result + result' <- (newBoxed Cairo.Surface) result + touchManagedPtr _obj + return result' + +data WebViewGetFaviconMethodInfo +instance (signature ~ (m Cairo.Surface), MonadIO m, WebViewK a) => MethodInfo WebViewGetFaviconMethodInfo a signature where + overloadedMethod _ = webViewGetFavicon + +-- method WebView::get_find_controller +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "FindController" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_find_controller" webkit_web_view_get_find_controller :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr FindController) + + +webViewGetFindController :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m FindController -- result +webViewGetFindController _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_find_controller _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_find_controller" result + result' <- (newObject FindController) result + touchManagedPtr _obj + return result' + +data WebViewGetFindControllerMethodInfo +instance (signature ~ (m FindController), MonadIO m, WebViewK a) => MethodInfo WebViewGetFindControllerMethodInfo a signature where + overloadedMethod _ = webViewGetFindController + +-- method WebView::get_inspector +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WebInspector" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr WebInspector) + + +webViewGetInspector :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m WebInspector -- result +webViewGetInspector _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_inspector _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_inspector" result + result' <- (newObject WebInspector) result + touchManagedPtr _obj + return result' + +data WebViewGetInspectorMethodInfo +instance (signature ~ (m WebInspector), MonadIO m, WebViewK a) => MethodInfo WebViewGetInspectorMethodInfo a signature where + overloadedMethod _ = webViewGetInspector + +-- method WebView::get_javascript_global_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "JavaScriptCore" "GlobalContext" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_javascript_global_context" webkit_web_view_get_javascript_global_context :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr JavaScriptCore.GlobalContext) + + +webViewGetJavascriptGlobalContext :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m JavaScriptCore.GlobalContext -- result +webViewGetJavascriptGlobalContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_javascript_global_context _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_javascript_global_context" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result + touchManagedPtr _obj + return result' + +data WebViewGetJavascriptGlobalContextMethodInfo +instance (signature ~ (m JavaScriptCore.GlobalContext), MonadIO m, WebViewK a) => MethodInfo WebViewGetJavascriptGlobalContextMethodInfo a signature where + overloadedMethod _ = webViewGetJavascriptGlobalContext + +-- method WebView::get_main_resource +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WebResource" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_main_resource" webkit_web_view_get_main_resource :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr WebResource) + + +webViewGetMainResource :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m WebResource -- result +webViewGetMainResource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_main_resource _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_main_resource" result + result' <- (newObject WebResource) result + touchManagedPtr _obj + return result' + +data WebViewGetMainResourceMethodInfo +instance (signature ~ (m WebResource), MonadIO m, WebViewK a) => MethodInfo WebViewGetMainResourceMethodInfo a signature where + overloadedMethod _ = webViewGetMainResource + +-- method WebView::get_page_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_page_id" webkit_web_view_get_page_id :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO Word64 + + +webViewGetPageId :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Word64 -- result +webViewGetPageId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_page_id _obj' + touchManagedPtr _obj + return result + +data WebViewGetPageIdMethodInfo +instance (signature ~ (m Word64), MonadIO m, WebViewK a) => MethodInfo WebViewGetPageIdMethodInfo a signature where + overloadedMethod _ = webViewGetPageId + +-- method WebView::get_settings +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "Settings" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr Settings) + + +webViewGetSettings :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Settings -- result +webViewGetSettings _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_settings _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_settings" result + result' <- (newObject Settings) result + touchManagedPtr _obj + return result' + +data WebViewGetSettingsMethodInfo +instance (signature ~ (m Settings), MonadIO m, WebViewK a) => MethodInfo WebViewGetSettingsMethodInfo a signature where + overloadedMethod _ = webViewGetSettings + +-- method WebView::get_snapshot +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "WebKit2" "SnapshotRegion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "WebKit2" "SnapshotOptions", 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 = 5, 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CUInt -> -- region : TInterface "WebKit2" "SnapshotRegion" + CUInt -> -- options : TInterface "WebKit2" "SnapshotOptions" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +webViewGetSnapshot :: + (MonadIO m, WebViewK a, Gio.CancellableK b) => + a -- _obj + -> SnapshotRegion -- region + -> [SnapshotOptions] -- options + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +webViewGetSnapshot _obj region options cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let region' = (fromIntegral . fromEnum) region + let options' = gflagsToWord options + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + webkit_web_view_get_snapshot _obj' region' options' maybeCancellable maybeCallback userData + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return () + +data WebViewGetSnapshotMethodInfo +instance (signature ~ (SnapshotRegion -> [SnapshotOptions] -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewGetSnapshotMethodInfo a signature where + overloadedMethod _ = webViewGetSnapshot + +-- method WebView::get_snapshot_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TInterface "cairo" "Surface" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_web_view_get_snapshot_finish" webkit_web_view_get_snapshot_finish :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr Cairo.Surface) + + +webViewGetSnapshotFinish :: + (MonadIO m, WebViewK a, Gio.AsyncResultK b) => + a -- _obj + -> b -- result_ + -> m Cairo.Surface -- result +webViewGetSnapshotFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ webkit_web_view_get_snapshot_finish _obj' result_' + checkUnexpectedReturnNULL "webkit_web_view_get_snapshot_finish" result + result' <- (wrapBoxed Cairo.Surface) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +data WebViewGetSnapshotFinishMethodInfo +instance (signature ~ (b -> m Cairo.Surface), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewGetSnapshotFinishMethodInfo a signature where + overloadedMethod _ = webViewGetSnapshotFinish + +-- method WebView::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CString + + +webViewGetTitle :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m T.Text -- result +webViewGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_title _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_title" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WebViewGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetTitleMethodInfo a signature where + overloadedMethod _ = webViewGetTitle + +-- method WebView::get_tls_info +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_tls_info" webkit_web_view_get_tls_info :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr (Ptr Gio.TlsCertificate) -> -- certificate : TInterface "Gio" "TlsCertificate" + Ptr CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags" + IO CInt + + +webViewGetTlsInfo :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])-- result +webViewGetTlsInfo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate)) + errors <- allocMem :: IO (Ptr CUInt) + result <- webkit_web_view_get_tls_info _obj' certificate errors + let result' = (/= 0) result + certificate' <- peek certificate + certificate'' <- (newObject Gio.TlsCertificate) certificate' + errors' <- peek errors + let errors'' = wordToGFlags errors' + touchManagedPtr _obj + freeMem certificate + freeMem errors + return (result', certificate'', errors'') + +data WebViewGetTlsInfoMethodInfo +instance (signature ~ (m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])), MonadIO m, WebViewK a) => MethodInfo WebViewGetTlsInfoMethodInfo a signature where + overloadedMethod _ = webViewGetTlsInfo + +-- method WebView::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CString + + +webViewGetUri :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m T.Text -- result +webViewGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_uri _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WebViewGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetUriMethodInfo a signature where + overloadedMethod _ = webViewGetUri + +-- method WebView::get_user_content_manager +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "UserContentManager" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_user_content_manager" webkit_web_view_get_user_content_manager :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr UserContentManager) + + +webViewGetUserContentManager :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m UserContentManager -- result +webViewGetUserContentManager _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_user_content_manager _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_user_content_manager" result + result' <- (newObject UserContentManager) result + touchManagedPtr _obj + return result' + +data WebViewGetUserContentManagerMethodInfo +instance (signature ~ (m UserContentManager), MonadIO m, WebViewK a) => MethodInfo WebViewGetUserContentManagerMethodInfo a signature where + overloadedMethod _ = webViewGetUserContentManager + +-- method WebView::get_window_properties +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "WebKit2" "WindowProperties" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_window_properties" webkit_web_view_get_window_properties :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr WindowProperties) + + +webViewGetWindowProperties :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m WindowProperties -- result +webViewGetWindowProperties _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_window_properties _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_window_properties" result + result' <- (newObject WindowProperties) result + touchManagedPtr _obj + return result' + +data WebViewGetWindowPropertiesMethodInfo +instance (signature ~ (m WindowProperties), MonadIO m, WebViewK a) => MethodInfo WebViewGetWindowPropertiesMethodInfo a signature where + overloadedMethod _ = webViewGetWindowProperties + +-- method WebView::get_zoom_level +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CDouble + + +webViewGetZoomLevel :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Double -- result +webViewGetZoomLevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_zoom_level _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data WebViewGetZoomLevelMethodInfo +instance (signature ~ (m Double), MonadIO m, WebViewK a) => MethodInfo WebViewGetZoomLevelMethodInfo a signature where + overloadedMethod _ = webViewGetZoomLevel + +-- method WebView::go_back +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO () + + +webViewGoBack :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m () -- result +webViewGoBack _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_go_back _obj' + touchManagedPtr _obj + return () + +data WebViewGoBackMethodInfo +instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewGoBackMethodInfo a signature where + overloadedMethod _ = webViewGoBack + +-- method WebView::go_forward +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO () + + +webViewGoForward :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m () -- result +webViewGoForward _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_go_forward _obj' + touchManagedPtr _obj + return () + +data WebViewGoForwardMethodInfo +instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewGoForwardMethodInfo a signature where + overloadedMethod _ = webViewGoForward + +-- method WebView::go_to_back_forward_list_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list_item", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_go_to_back_forward_list_item" webkit_web_view_go_to_back_forward_list_item :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr BackForwardListItem -> -- list_item : TInterface "WebKit2" "BackForwardListItem" + IO () + + +webViewGoToBackForwardListItem :: + (MonadIO m, WebViewK a, BackForwardListItemK b) => + a -- _obj + -> b -- listItem + -> m () -- result +webViewGoToBackForwardListItem _obj listItem = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let listItem' = unsafeManagedPtrCastPtr listItem + webkit_web_view_go_to_back_forward_list_item _obj' listItem' + touchManagedPtr _obj + touchManagedPtr listItem + return () + +data WebViewGoToBackForwardListItemMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, BackForwardListItemK b) => MethodInfo WebViewGoToBackForwardListItemMethodInfo a signature where + overloadedMethod _ = webViewGoToBackForwardListItem + +-- method WebView::is_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_is_editable" webkit_web_view_is_editable :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CInt + + +webViewIsEditable :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Bool -- result +webViewIsEditable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_is_editable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WebViewIsEditableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsEditableMethodInfo a signature where + overloadedMethod _ = webViewIsEditable + +-- method WebView::is_loading +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_is_loading" webkit_web_view_is_loading :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CInt + + +webViewIsLoading :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Bool -- result +webViewIsLoading _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_is_loading _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WebViewIsLoadingMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsLoadingMethodInfo a signature where + overloadedMethod _ = webViewIsLoading + +-- method WebView::is_playing_audio +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_is_playing_audio" webkit_web_view_is_playing_audio :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO CInt + + +webViewIsPlayingAudio :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Bool -- result +webViewIsPlayingAudio _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_is_playing_audio _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WebViewIsPlayingAudioMethodInfo +instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsPlayingAudioMethodInfo a signature where + overloadedMethod _ = webViewIsPlayingAudio + +-- method WebView::load_alternate_html +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_alternate_html" webkit_web_view_load_alternate_html :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- content : TBasicType TUTF8 + CString -> -- content_uri : TBasicType TUTF8 + CString -> -- base_uri : TBasicType TUTF8 + IO () + + +webViewLoadAlternateHtml :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- content + -> T.Text -- contentUri + -> Maybe (T.Text) -- baseUri + -> m () -- result +webViewLoadAlternateHtml _obj content contentUri baseUri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content' <- textToCString content + contentUri' <- textToCString contentUri + maybeBaseUri <- case baseUri of + Nothing -> return nullPtr + Just jBaseUri -> do + jBaseUri' <- textToCString jBaseUri + return jBaseUri' + webkit_web_view_load_alternate_html _obj' content' contentUri' maybeBaseUri + touchManagedPtr _obj + freeMem content' + freeMem contentUri' + freeMem maybeBaseUri + return () + +data WebViewLoadAlternateHtmlMethodInfo +instance (signature ~ (T.Text -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadAlternateHtmlMethodInfo a signature where + overloadedMethod _ = webViewLoadAlternateHtml + +-- method WebView::load_bytes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_bytes" webkit_web_view_load_bytes :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" + CString -> -- mime_type : TBasicType TUTF8 + CString -> -- encoding : TBasicType TUTF8 + CString -> -- base_uri : TBasicType TUTF8 + IO () + + +webViewLoadBytes :: + (MonadIO m, WebViewK a) => + a -- _obj + -> GLib.Bytes -- bytes + -> Maybe (T.Text) -- mimeType + -> Maybe (T.Text) -- encoding + -> Maybe (T.Text) -- baseUri + -> m () -- result +webViewLoadBytes _obj bytes mimeType encoding baseUri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let bytes' = unsafeManagedPtrGetPtr bytes + maybeMimeType <- case mimeType of + Nothing -> return nullPtr + Just jMimeType -> do + jMimeType' <- textToCString jMimeType + return jMimeType' + maybeEncoding <- case encoding of + Nothing -> return nullPtr + Just jEncoding -> do + jEncoding' <- textToCString jEncoding + return jEncoding' + maybeBaseUri <- case baseUri of + Nothing -> return nullPtr + Just jBaseUri -> do + jBaseUri' <- textToCString jBaseUri + return jBaseUri' + webkit_web_view_load_bytes _obj' bytes' maybeMimeType maybeEncoding maybeBaseUri + touchManagedPtr _obj + touchManagedPtr bytes + freeMem maybeMimeType + freeMem maybeEncoding + freeMem maybeBaseUri + return () + +data WebViewLoadBytesMethodInfo +instance (signature ~ (GLib.Bytes -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadBytesMethodInfo a signature where + overloadedMethod _ = webViewLoadBytes + +-- method WebView::load_html +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_html" webkit_web_view_load_html :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- content : TBasicType TUTF8 + CString -> -- base_uri : TBasicType TUTF8 + IO () + + +webViewLoadHtml :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- content + -> Maybe (T.Text) -- baseUri + -> m () -- result +webViewLoadHtml _obj content baseUri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content' <- textToCString content + maybeBaseUri <- case baseUri of + Nothing -> return nullPtr + Just jBaseUri -> do + jBaseUri' <- textToCString jBaseUri + return jBaseUri' + webkit_web_view_load_html _obj' content' maybeBaseUri + touchManagedPtr _obj + freeMem content' + freeMem maybeBaseUri + return () + +data WebViewLoadHtmlMethodInfo +instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadHtmlMethodInfo a signature where + overloadedMethod _ = webViewLoadHtml + +-- method WebView::load_plain_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_plain_text" webkit_web_view_load_plain_text :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- plain_text : TBasicType TUTF8 + IO () + + +webViewLoadPlainText :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- plainText + -> m () -- result +webViewLoadPlainText _obj plainText = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + plainText' <- textToCString plainText + webkit_web_view_load_plain_text _obj' plainText' + touchManagedPtr _obj + freeMem plainText' + return () + +data WebViewLoadPlainTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadPlainTextMethodInfo a signature where + overloadedMethod _ = webViewLoadPlainText + +-- method WebView::load_request +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr URIRequest -> -- request : TInterface "WebKit2" "URIRequest" + IO () + + +webViewLoadRequest :: + (MonadIO m, WebViewK a, URIRequestK b) => + a -- _obj + -> b -- request + -> m () -- result +webViewLoadRequest _obj request = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let request' = unsafeManagedPtrCastPtr request + webkit_web_view_load_request _obj' request' + touchManagedPtr _obj + touchManagedPtr request + return () + +data WebViewLoadRequestMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, URIRequestK b) => MethodInfo WebViewLoadRequestMethodInfo a signature where + overloadedMethod _ = webViewLoadRequest + +-- method WebView::load_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- uri : TBasicType TUTF8 + IO () + + +webViewLoadUri :: + (MonadIO m, WebViewK a) => + a -- _obj + -> T.Text -- uri + -> m () -- result +webViewLoadUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + webkit_web_view_load_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + +data WebViewLoadUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadUriMethodInfo a signature where + overloadedMethod _ = webViewLoadUri + +-- method WebView::new_with_related_view +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_new_with_related_view" webkit_web_view_new_with_related_view :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO (Ptr Gtk.Widget) + + +webViewNewWithRelatedView :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m Gtk.Widget -- result +webViewNewWithRelatedView _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_new_with_related_view _obj' + checkUnexpectedReturnNULL "webkit_web_view_new_with_related_view" result + result' <- (wrapObject Gtk.Widget) result + touchManagedPtr _obj + return result' + +data WebViewNewWithRelatedViewMethodInfo +instance (signature ~ (m Gtk.Widget), MonadIO m, WebViewK a) => MethodInfo WebViewNewWithRelatedViewMethodInfo a signature where + overloadedMethod _ = webViewNewWithRelatedView + +-- method WebView::reload +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_reload" webkit_web_view_reload :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO () + + +webViewReload :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m () -- result +webViewReload _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_reload _obj' + touchManagedPtr _obj + return () + +data WebViewReloadMethodInfo +instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewReloadMethodInfo a signature where + overloadedMethod _ = webViewReload + +-- method WebView::reload_bypass_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO () + + +webViewReloadBypassCache :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m () -- result +webViewReloadBypassCache _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_reload_bypass_cache _obj' + touchManagedPtr _obj + return () + +data WebViewReloadBypassCacheMethodInfo +instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewReloadBypassCacheMethodInfo a signature where + overloadedMethod _ = webViewReloadBypassCache + +-- method WebView::run_javascript +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_run_javascript" webkit_web_view_run_javascript :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- script : TBasicType TUTF8 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +webViewRunJavascript :: + (MonadIO m, WebViewK a, Gio.CancellableK b) => + a -- _obj + -> T.Text -- script + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +webViewRunJavascript _obj script cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + script' <- textToCString script + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + webkit_web_view_run_javascript _obj' script' maybeCancellable maybeCallback userData + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem script' + return () + +data WebViewRunJavascriptMethodInfo +instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewRunJavascriptMethodInfo a signature where + overloadedMethod _ = webViewRunJavascript + +-- method WebView::run_javascript_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TInterface "WebKit2" "JavascriptResult" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_web_view_run_javascript_finish" webkit_web_view_run_javascript_finish :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr JavascriptResult) + + +webViewRunJavascriptFinish :: + (MonadIO m, WebViewK a, Gio.AsyncResultK b) => + a -- _obj + -> b -- result_ + -> m JavascriptResult -- result +webViewRunJavascriptFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ webkit_web_view_run_javascript_finish _obj' result_' + checkUnexpectedReturnNULL "webkit_web_view_run_javascript_finish" result + result' <- (wrapBoxed JavascriptResult) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +data WebViewRunJavascriptFinishMethodInfo +instance (signature ~ (b -> m JavascriptResult), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewRunJavascriptFinishMethodInfo a signature where + overloadedMethod _ = webViewRunJavascriptFinish + +-- method WebView::run_javascript_from_gresource +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_run_javascript_from_gresource" webkit_web_view_run_javascript_from_gresource :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- resource : TBasicType TUTF8 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +webViewRunJavascriptFromGresource :: + (MonadIO m, WebViewK a, Gio.CancellableK b) => + a -- _obj + -> T.Text -- resource + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +webViewRunJavascriptFromGresource _obj resource cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + resource' <- textToCString resource + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + webkit_web_view_run_javascript_from_gresource _obj' resource' maybeCancellable maybeCallback userData + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem resource' + return () + +data WebViewRunJavascriptFromGresourceMethodInfo +instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewRunJavascriptFromGresourceMethodInfo a signature where + overloadedMethod _ = webViewRunJavascriptFromGresource + +-- method WebView::run_javascript_from_gresource_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TInterface "WebKit2" "JavascriptResult" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_web_view_run_javascript_from_gresource_finish" webkit_web_view_run_javascript_from_gresource_finish :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr JavascriptResult) + + +webViewRunJavascriptFromGresourceFinish :: + (MonadIO m, WebViewK a, Gio.AsyncResultK b) => + a -- _obj + -> b -- result_ + -> m JavascriptResult -- result +webViewRunJavascriptFromGresourceFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ webkit_web_view_run_javascript_from_gresource_finish _obj' result_' + checkUnexpectedReturnNULL "webkit_web_view_run_javascript_from_gresource_finish" result + result' <- (wrapBoxed JavascriptResult) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +data WebViewRunJavascriptFromGresourceFinishMethodInfo +instance (signature ~ (b -> m JavascriptResult), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewRunJavascriptFromGresourceFinishMethodInfo a signature where + overloadedMethod _ = webViewRunJavascriptFromGresourceFinish + +-- method WebView::save +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface "WebKit2" "SaveMode", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_save" webkit_web_view_save :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CUInt -> -- save_mode : TInterface "WebKit2" "SaveMode" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +webViewSave :: + (MonadIO m, WebViewK a, Gio.CancellableK b) => + a -- _obj + -> SaveMode -- saveMode + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +webViewSave _obj saveMode cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let saveMode' = (fromIntegral . fromEnum) saveMode + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + webkit_web_view_save _obj' saveMode' maybeCancellable maybeCallback userData + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return () + +data WebViewSaveMethodInfo +instance (signature ~ (SaveMode -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewSaveMethodInfo a signature where + overloadedMethod _ = webViewSave + +-- method WebView::save_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_web_view_save_finish" webkit_web_view_save_finish :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr Gio.InputStream) + + +webViewSaveFinish :: + (MonadIO m, WebViewK a, Gio.AsyncResultK b) => + a -- _obj + -> b -- result_ + -> m Gio.InputStream -- result +webViewSaveFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ webkit_web_view_save_finish _obj' result_' + checkUnexpectedReturnNULL "webkit_web_view_save_finish" result + result' <- (wrapObject Gio.InputStream) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +data WebViewSaveFinishMethodInfo +instance (signature ~ (b -> m Gio.InputStream), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewSaveFinishMethodInfo a signature where + overloadedMethod _ = webViewSaveFinish + +-- method WebView::save_to_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface "WebKit2" "SaveMode", 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 = 5, 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_save_to_file" webkit_web_view_save_to_file :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gio.File -> -- file : TInterface "Gio" "File" + CUInt -> -- save_mode : TInterface "WebKit2" "SaveMode" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +webViewSaveToFile :: + (MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) => + a -- _obj + -> b -- file + -> SaveMode -- saveMode + -> Maybe (c) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +webViewSaveToFile _obj file saveMode cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let file' = unsafeManagedPtrCastPtr file + let saveMode' = (fromIntegral . fromEnum) saveMode + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + webkit_web_view_save_to_file _obj' file' saveMode' maybeCancellable maybeCallback userData + touchManagedPtr _obj + touchManagedPtr file + whenJust cancellable touchManagedPtr + return () + +data WebViewSaveToFileMethodInfo +instance (signature ~ (b -> SaveMode -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) => MethodInfo WebViewSaveToFileMethodInfo a signature where + overloadedMethod _ = webViewSaveToFile + +-- method WebView::save_to_file_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_web_view_save_to_file_finish" webkit_web_view_save_to_file_finish :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO CInt + + +webViewSaveToFileFinish :: + (MonadIO m, WebViewK a, Gio.AsyncResultK b) => + a -- _obj + -> b -- result_ + -> m () -- result +webViewSaveToFileFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + _ <- propagateGError $ webkit_web_view_save_to_file_finish _obj' result_' + touchManagedPtr _obj + touchManagedPtr result_ + return () + ) (do + return () + ) + +data WebViewSaveToFileFinishMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewSaveToFileFinishMethodInfo a signature where + overloadedMethod _ = webViewSaveToFileFinish + +-- method WebView::set_background_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", 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 : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_background_color" webkit_web_view_set_background_color :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" + IO () + + +webViewSetBackgroundColor :: + (MonadIO m, WebViewK a) => + a -- _obj + -> Gdk.RGBA -- rgba + -> m () -- result +webViewSetBackgroundColor _obj rgba = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let rgba' = unsafeManagedPtrGetPtr rgba + webkit_web_view_set_background_color _obj' rgba' + touchManagedPtr _obj + touchManagedPtr rgba + return () + +data WebViewSetBackgroundColorMethodInfo +instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetBackgroundColorMethodInfo a signature where + overloadedMethod _ = webViewSetBackgroundColor + +-- method WebView::set_custom_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_custom_charset" webkit_web_view_set_custom_charset :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CString -> -- charset : TBasicType TUTF8 + IO () + + +webViewSetCustomCharset :: + (MonadIO m, WebViewK a) => + a -- _obj + -> Maybe (T.Text) -- charset + -> m () -- result +webViewSetCustomCharset _obj charset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCharset <- case charset of + Nothing -> return nullPtr + Just jCharset -> do + jCharset' <- textToCString jCharset + return jCharset' + webkit_web_view_set_custom_charset _obj' maybeCharset + touchManagedPtr _obj + freeMem maybeCharset + return () + +data WebViewSetCustomCharsetMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetCustomCharsetMethodInfo a signature where + overloadedMethod _ = webViewSetCustomCharset + +-- method WebView::set_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CInt -> -- editable : TBasicType TBoolean + IO () + + +webViewSetEditable :: + (MonadIO m, WebViewK a) => + a -- _obj + -> Bool -- editable + -> m () -- result +webViewSetEditable _obj editable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let editable' = (fromIntegral . fromEnum) editable + webkit_web_view_set_editable _obj' editable' + touchManagedPtr _obj + return () + +data WebViewSetEditableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetEditableMethodInfo a signature where + overloadedMethod _ = webViewSetEditable + +-- method WebView::set_settings +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + Ptr Settings -> -- settings : TInterface "WebKit2" "Settings" + IO () + + +webViewSetSettings :: + (MonadIO m, WebViewK a, SettingsK b) => + a -- _obj + -> b -- settings + -> m () -- result +webViewSetSettings _obj settings = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let settings' = unsafeManagedPtrCastPtr settings + webkit_web_view_set_settings _obj' settings' + touchManagedPtr _obj + touchManagedPtr settings + return () + +data WebViewSetSettingsMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, SettingsK b) => MethodInfo WebViewSetSettingsMethodInfo a signature where + overloadedMethod _ = webViewSetSettings + +-- method WebView::set_zoom_level +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + CDouble -> -- zoom_level : TBasicType TDouble + IO () + + +webViewSetZoomLevel :: + (MonadIO m, WebViewK a) => + a -- _obj + -> Double -- zoomLevel + -> m () -- result +webViewSetZoomLevel _obj zoomLevel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let zoomLevel' = realToFrac zoomLevel + webkit_web_view_set_zoom_level _obj' zoomLevel' + touchManagedPtr _obj + return () + +data WebViewSetZoomLevelMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetZoomLevelMethodInfo a signature where + overloadedMethod _ = webViewSetZoomLevel + +-- method WebView::stop_loading +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading :: + Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" + IO () + + +webViewStopLoading :: + (MonadIO m, WebViewK a) => + a -- _obj + -> m () -- result +webViewStopLoading _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_stop_loading _obj' + touchManagedPtr _obj + return () + +data WebViewStopLoadingMethodInfo +instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewStopLoadingMethodInfo a signature where + overloadedMethod _ = webViewStopLoading diff --git a/GI/WebKit2/Objects/WebView.hs-boot b/GI/WebKit2/Objects/WebView.hs-boot --- a/GI/WebKit2/Objects/WebView.hs-boot +++ b/GI/WebKit2/Objects/WebView.hs-boot @@ -47,3 +47,61 @@ data WebViewShowNotificationSignalInfo data WebViewSubmitFormSignalInfo data WebViewWebProcessCrashedSignalInfo +data WebViewCanExecuteEditingCommandMethodInfo +data WebViewCanExecuteEditingCommandFinishMethodInfo +data WebViewCanGoBackMethodInfo +data WebViewCanGoForwardMethodInfo +data WebViewCanShowMimeTypeMethodInfo +data WebViewDownloadUriMethodInfo +data WebViewExecuteEditingCommandMethodInfo +data WebViewExecuteEditingCommandWithArgumentMethodInfo +data WebViewGetBackForwardListMethodInfo +data WebViewGetBackgroundColorMethodInfo +data WebViewGetContextMethodInfo +data WebViewGetCustomCharsetMethodInfo +data WebViewGetEditorStateMethodInfo +data WebViewGetEstimatedLoadProgressMethodInfo +data WebViewGetFaviconMethodInfo +data WebViewGetFindControllerMethodInfo +data WebViewGetInspectorMethodInfo +data WebViewGetJavascriptGlobalContextMethodInfo +data WebViewGetMainResourceMethodInfo +data WebViewGetPageIdMethodInfo +data WebViewGetSettingsMethodInfo +data WebViewGetSnapshotMethodInfo +data WebViewGetSnapshotFinishMethodInfo +data WebViewGetTitleMethodInfo +data WebViewGetTlsInfoMethodInfo +data WebViewGetUriMethodInfo +data WebViewGetUserContentManagerMethodInfo +data WebViewGetWindowPropertiesMethodInfo +data WebViewGetZoomLevelMethodInfo +data WebViewGoBackMethodInfo +data WebViewGoForwardMethodInfo +data WebViewGoToBackForwardListItemMethodInfo +data WebViewIsEditableMethodInfo +data WebViewIsLoadingMethodInfo +data WebViewIsPlayingAudioMethodInfo +data WebViewLoadAlternateHtmlMethodInfo +data WebViewLoadBytesMethodInfo +data WebViewLoadHtmlMethodInfo +data WebViewLoadPlainTextMethodInfo +data WebViewLoadRequestMethodInfo +data WebViewLoadUriMethodInfo +data WebViewNewWithRelatedViewMethodInfo +data WebViewReloadMethodInfo +data WebViewReloadBypassCacheMethodInfo +data WebViewRunJavascriptMethodInfo +data WebViewRunJavascriptFinishMethodInfo +data WebViewRunJavascriptFromGresourceMethodInfo +data WebViewRunJavascriptFromGresourceFinishMethodInfo +data WebViewSaveMethodInfo +data WebViewSaveFinishMethodInfo +data WebViewSaveToFileMethodInfo +data WebViewSaveToFileFinishMethodInfo +data WebViewSetBackgroundColorMethodInfo +data WebViewSetCustomCharsetMethodInfo +data WebViewSetEditableMethodInfo +data WebViewSetSettingsMethodInfo +data WebViewSetZoomLevelMethodInfo +data WebViewStopLoadingMethodInfo diff --git a/GI/WebKit2/Objects/WebViewBase.hs b/GI/WebKit2/Objects/WebViewBase.hs --- a/GI/WebKit2/Objects/WebViewBase.hs +++ b/GI/WebKit2/Objects/WebViewBase.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -51,10 +52,332 @@ noWebViewBase :: Maybe WebViewBase noWebViewBase = Nothing +type family ResolveWebViewBaseMethod (t :: Symbol) (o :: *) :: * where + ResolveWebViewBaseMethod "activate" o = Gtk.WidgetActivateMethodInfo + ResolveWebViewBaseMethod "add" o = Gtk.ContainerAddMethodInfo + ResolveWebViewBaseMethod "addAccelerator" o = Gtk.WidgetAddAcceleratorMethodInfo + ResolveWebViewBaseMethod "addChild" o = Gtk.BuildableAddChildMethodInfo + ResolveWebViewBaseMethod "addDeviceEvents" o = Gtk.WidgetAddDeviceEventsMethodInfo + ResolveWebViewBaseMethod "addEvents" o = Gtk.WidgetAddEventsMethodInfo + ResolveWebViewBaseMethod "addMnemonicLabel" o = Gtk.WidgetAddMnemonicLabelMethodInfo + ResolveWebViewBaseMethod "addTickCallback" o = Gtk.WidgetAddTickCallbackMethodInfo + ResolveWebViewBaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWebViewBaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWebViewBaseMethod "canActivateAccel" o = Gtk.WidgetCanActivateAccelMethodInfo + ResolveWebViewBaseMethod "checkResize" o = Gtk.ContainerCheckResizeMethodInfo + ResolveWebViewBaseMethod "childFocus" o = Gtk.WidgetChildFocusMethodInfo + ResolveWebViewBaseMethod "childGetProperty" o = Gtk.ContainerChildGetPropertyMethodInfo + ResolveWebViewBaseMethod "childNotifyByPspec" o = Gtk.ContainerChildNotifyByPspecMethodInfo + ResolveWebViewBaseMethod "childSetProperty" o = Gtk.ContainerChildSetPropertyMethodInfo + ResolveWebViewBaseMethod "childType" o = Gtk.ContainerChildTypeMethodInfo + ResolveWebViewBaseMethod "classPath" o = Gtk.WidgetClassPathMethodInfo + ResolveWebViewBaseMethod "computeExpand" o = Gtk.WidgetComputeExpandMethodInfo + ResolveWebViewBaseMethod "constructChild" o = Gtk.BuildableConstructChildMethodInfo + ResolveWebViewBaseMethod "createPangoContext" o = Gtk.WidgetCreatePangoContextMethodInfo + ResolveWebViewBaseMethod "createPangoLayout" o = Gtk.WidgetCreatePangoLayoutMethodInfo + ResolveWebViewBaseMethod "customFinished" o = Gtk.BuildableCustomFinishedMethodInfo + ResolveWebViewBaseMethod "customTagEnd" o = Gtk.BuildableCustomTagEndMethodInfo + ResolveWebViewBaseMethod "customTagStart" o = Gtk.BuildableCustomTagStartMethodInfo + ResolveWebViewBaseMethod "destroy" o = Gtk.WidgetDestroyMethodInfo + ResolveWebViewBaseMethod "destroyed" o = Gtk.WidgetDestroyedMethodInfo + ResolveWebViewBaseMethod "deviceIsShadowed" o = Gtk.WidgetDeviceIsShadowedMethodInfo + ResolveWebViewBaseMethod "dragBegin" o = Gtk.WidgetDragBeginMethodInfo + ResolveWebViewBaseMethod "dragBeginWithCoordinates" o = Gtk.WidgetDragBeginWithCoordinatesMethodInfo + ResolveWebViewBaseMethod "dragCheckThreshold" o = Gtk.WidgetDragCheckThresholdMethodInfo + ResolveWebViewBaseMethod "dragDestAddImageTargets" o = Gtk.WidgetDragDestAddImageTargetsMethodInfo + ResolveWebViewBaseMethod "dragDestAddTextTargets" o = Gtk.WidgetDragDestAddTextTargetsMethodInfo + ResolveWebViewBaseMethod "dragDestAddUriTargets" o = Gtk.WidgetDragDestAddUriTargetsMethodInfo + ResolveWebViewBaseMethod "dragDestFindTarget" o = Gtk.WidgetDragDestFindTargetMethodInfo + ResolveWebViewBaseMethod "dragDestGetTargetList" o = Gtk.WidgetDragDestGetTargetListMethodInfo + ResolveWebViewBaseMethod "dragDestGetTrackMotion" o = Gtk.WidgetDragDestGetTrackMotionMethodInfo + ResolveWebViewBaseMethod "dragDestSet" o = Gtk.WidgetDragDestSetMethodInfo + ResolveWebViewBaseMethod "dragDestSetProxy" o = Gtk.WidgetDragDestSetProxyMethodInfo + ResolveWebViewBaseMethod "dragDestSetTargetList" o = Gtk.WidgetDragDestSetTargetListMethodInfo + ResolveWebViewBaseMethod "dragDestSetTrackMotion" o = Gtk.WidgetDragDestSetTrackMotionMethodInfo + ResolveWebViewBaseMethod "dragDestUnset" o = Gtk.WidgetDragDestUnsetMethodInfo + ResolveWebViewBaseMethod "dragGetData" o = Gtk.WidgetDragGetDataMethodInfo + ResolveWebViewBaseMethod "dragHighlight" o = Gtk.WidgetDragHighlightMethodInfo + ResolveWebViewBaseMethod "dragSourceAddImageTargets" o = Gtk.WidgetDragSourceAddImageTargetsMethodInfo + ResolveWebViewBaseMethod "dragSourceAddTextTargets" o = Gtk.WidgetDragSourceAddTextTargetsMethodInfo + ResolveWebViewBaseMethod "dragSourceAddUriTargets" o = Gtk.WidgetDragSourceAddUriTargetsMethodInfo + ResolveWebViewBaseMethod "dragSourceGetTargetList" o = Gtk.WidgetDragSourceGetTargetListMethodInfo + ResolveWebViewBaseMethod "dragSourceSet" o = Gtk.WidgetDragSourceSetMethodInfo + ResolveWebViewBaseMethod "dragSourceSetIconGicon" o = Gtk.WidgetDragSourceSetIconGiconMethodInfo + ResolveWebViewBaseMethod "dragSourceSetIconName" o = Gtk.WidgetDragSourceSetIconNameMethodInfo + ResolveWebViewBaseMethod "dragSourceSetIconPixbuf" o = Gtk.WidgetDragSourceSetIconPixbufMethodInfo + ResolveWebViewBaseMethod "dragSourceSetIconStock" o = Gtk.WidgetDragSourceSetIconStockMethodInfo + ResolveWebViewBaseMethod "dragSourceSetTargetList" o = Gtk.WidgetDragSourceSetTargetListMethodInfo + ResolveWebViewBaseMethod "dragSourceUnset" o = Gtk.WidgetDragSourceUnsetMethodInfo + ResolveWebViewBaseMethod "dragUnhighlight" o = Gtk.WidgetDragUnhighlightMethodInfo + ResolveWebViewBaseMethod "draw" o = Gtk.WidgetDrawMethodInfo + ResolveWebViewBaseMethod "ensureStyle" o = Gtk.WidgetEnsureStyleMethodInfo + ResolveWebViewBaseMethod "errorBell" o = Gtk.WidgetErrorBellMethodInfo + ResolveWebViewBaseMethod "event" o = Gtk.WidgetEventMethodInfo + ResolveWebViewBaseMethod "forall" o = Gtk.ContainerForallMethodInfo + ResolveWebViewBaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWebViewBaseMethod "foreach" o = Gtk.ContainerForeachMethodInfo + ResolveWebViewBaseMethod "freezeChildNotify" o = Gtk.WidgetFreezeChildNotifyMethodInfo + ResolveWebViewBaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWebViewBaseMethod "grabAdd" o = Gtk.WidgetGrabAddMethodInfo + ResolveWebViewBaseMethod "grabDefault" o = Gtk.WidgetGrabDefaultMethodInfo + ResolveWebViewBaseMethod "grabFocus" o = Gtk.WidgetGrabFocusMethodInfo + ResolveWebViewBaseMethod "grabRemove" o = Gtk.WidgetGrabRemoveMethodInfo + ResolveWebViewBaseMethod "hasDefault" o = Gtk.WidgetHasDefaultMethodInfo + ResolveWebViewBaseMethod "hasFocus" o = Gtk.WidgetHasFocusMethodInfo + ResolveWebViewBaseMethod "hasGrab" o = Gtk.WidgetHasGrabMethodInfo + ResolveWebViewBaseMethod "hasRcStyle" o = Gtk.WidgetHasRcStyleMethodInfo + ResolveWebViewBaseMethod "hasScreen" o = Gtk.WidgetHasScreenMethodInfo + ResolveWebViewBaseMethod "hasVisibleFocus" o = Gtk.WidgetHasVisibleFocusMethodInfo + ResolveWebViewBaseMethod "hide" o = Gtk.WidgetHideMethodInfo + ResolveWebViewBaseMethod "hideOnDelete" o = Gtk.WidgetHideOnDeleteMethodInfo + ResolveWebViewBaseMethod "inDestruction" o = Gtk.WidgetInDestructionMethodInfo + ResolveWebViewBaseMethod "initTemplate" o = Gtk.WidgetInitTemplateMethodInfo + ResolveWebViewBaseMethod "inputShapeCombineRegion" o = Gtk.WidgetInputShapeCombineRegionMethodInfo + ResolveWebViewBaseMethod "insertActionGroup" o = Gtk.WidgetInsertActionGroupMethodInfo + ResolveWebViewBaseMethod "intersect" o = Gtk.WidgetIntersectMethodInfo + ResolveWebViewBaseMethod "isAncestor" o = Gtk.WidgetIsAncestorMethodInfo + ResolveWebViewBaseMethod "isComposited" o = Gtk.WidgetIsCompositedMethodInfo + ResolveWebViewBaseMethod "isDrawable" o = Gtk.WidgetIsDrawableMethodInfo + ResolveWebViewBaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWebViewBaseMethod "isFocus" o = Gtk.WidgetIsFocusMethodInfo + ResolveWebViewBaseMethod "isSensitive" o = Gtk.WidgetIsSensitiveMethodInfo + ResolveWebViewBaseMethod "isToplevel" o = Gtk.WidgetIsToplevelMethodInfo + ResolveWebViewBaseMethod "isVisible" o = Gtk.WidgetIsVisibleMethodInfo + ResolveWebViewBaseMethod "keynavFailed" o = Gtk.WidgetKeynavFailedMethodInfo + ResolveWebViewBaseMethod "listAccelClosures" o = Gtk.WidgetListAccelClosuresMethodInfo + ResolveWebViewBaseMethod "listActionPrefixes" o = Gtk.WidgetListActionPrefixesMethodInfo + ResolveWebViewBaseMethod "listMnemonicLabels" o = Gtk.WidgetListMnemonicLabelsMethodInfo + ResolveWebViewBaseMethod "map" o = Gtk.WidgetMapMethodInfo + ResolveWebViewBaseMethod "mnemonicActivate" o = Gtk.WidgetMnemonicActivateMethodInfo + ResolveWebViewBaseMethod "modifyBase" o = Gtk.WidgetModifyBaseMethodInfo + ResolveWebViewBaseMethod "modifyBg" o = Gtk.WidgetModifyBgMethodInfo + ResolveWebViewBaseMethod "modifyCursor" o = Gtk.WidgetModifyCursorMethodInfo + ResolveWebViewBaseMethod "modifyFg" o = Gtk.WidgetModifyFgMethodInfo + ResolveWebViewBaseMethod "modifyFont" o = Gtk.WidgetModifyFontMethodInfo + ResolveWebViewBaseMethod "modifyStyle" o = Gtk.WidgetModifyStyleMethodInfo + ResolveWebViewBaseMethod "modifyText" o = Gtk.WidgetModifyTextMethodInfo + ResolveWebViewBaseMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWebViewBaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWebViewBaseMethod "overrideBackgroundColor" o = Gtk.WidgetOverrideBackgroundColorMethodInfo + ResolveWebViewBaseMethod "overrideColor" o = Gtk.WidgetOverrideColorMethodInfo + ResolveWebViewBaseMethod "overrideCursor" o = Gtk.WidgetOverrideCursorMethodInfo + ResolveWebViewBaseMethod "overrideFont" o = Gtk.WidgetOverrideFontMethodInfo + ResolveWebViewBaseMethod "overrideSymbolicColor" o = Gtk.WidgetOverrideSymbolicColorMethodInfo + ResolveWebViewBaseMethod "parserFinished" o = Gtk.BuildableParserFinishedMethodInfo + ResolveWebViewBaseMethod "path" o = Gtk.WidgetPathMethodInfo + ResolveWebViewBaseMethod "propagateDraw" o = Gtk.ContainerPropagateDrawMethodInfo + ResolveWebViewBaseMethod "queueComputeExpand" o = Gtk.WidgetQueueComputeExpandMethodInfo + ResolveWebViewBaseMethod "queueDraw" o = Gtk.WidgetQueueDrawMethodInfo + ResolveWebViewBaseMethod "queueDrawArea" o = Gtk.WidgetQueueDrawAreaMethodInfo + ResolveWebViewBaseMethod "queueDrawRegion" o = Gtk.WidgetQueueDrawRegionMethodInfo + ResolveWebViewBaseMethod "queueResize" o = Gtk.WidgetQueueResizeMethodInfo + ResolveWebViewBaseMethod "queueResizeNoRedraw" o = Gtk.WidgetQueueResizeNoRedrawMethodInfo + ResolveWebViewBaseMethod "realize" o = Gtk.WidgetRealizeMethodInfo + ResolveWebViewBaseMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWebViewBaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWebViewBaseMethod "regionIntersect" o = Gtk.WidgetRegionIntersectMethodInfo + ResolveWebViewBaseMethod "registerWindow" o = Gtk.WidgetRegisterWindowMethodInfo + ResolveWebViewBaseMethod "remove" o = Gtk.ContainerRemoveMethodInfo + ResolveWebViewBaseMethod "removeAccelerator" o = Gtk.WidgetRemoveAcceleratorMethodInfo + ResolveWebViewBaseMethod "removeMnemonicLabel" o = Gtk.WidgetRemoveMnemonicLabelMethodInfo + ResolveWebViewBaseMethod "removeTickCallback" o = Gtk.WidgetRemoveTickCallbackMethodInfo + ResolveWebViewBaseMethod "renderIcon" o = Gtk.WidgetRenderIconMethodInfo + ResolveWebViewBaseMethod "renderIconPixbuf" o = Gtk.WidgetRenderIconPixbufMethodInfo + ResolveWebViewBaseMethod "reparent" o = Gtk.WidgetReparentMethodInfo + ResolveWebViewBaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWebViewBaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWebViewBaseMethod "resetRcStyles" o = Gtk.WidgetResetRcStylesMethodInfo + ResolveWebViewBaseMethod "resetStyle" o = Gtk.WidgetResetStyleMethodInfo + ResolveWebViewBaseMethod "resizeChildren" o = Gtk.ContainerResizeChildrenMethodInfo + ResolveWebViewBaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWebViewBaseMethod "sendExpose" o = Gtk.WidgetSendExposeMethodInfo + ResolveWebViewBaseMethod "sendFocusChange" o = Gtk.WidgetSendFocusChangeMethodInfo + ResolveWebViewBaseMethod "shapeCombineRegion" o = Gtk.WidgetShapeCombineRegionMethodInfo + ResolveWebViewBaseMethod "show" o = Gtk.WidgetShowMethodInfo + ResolveWebViewBaseMethod "showAll" o = Gtk.WidgetShowAllMethodInfo + ResolveWebViewBaseMethod "showNow" o = Gtk.WidgetShowNowMethodInfo + ResolveWebViewBaseMethod "sizeAllocate" o = Gtk.WidgetSizeAllocateMethodInfo + ResolveWebViewBaseMethod "sizeAllocateWithBaseline" o = Gtk.WidgetSizeAllocateWithBaselineMethodInfo + ResolveWebViewBaseMethod "sizeRequest" o = Gtk.WidgetSizeRequestMethodInfo + ResolveWebViewBaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWebViewBaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWebViewBaseMethod "styleAttach" o = Gtk.WidgetStyleAttachMethodInfo + ResolveWebViewBaseMethod "styleGetProperty" o = Gtk.WidgetStyleGetPropertyMethodInfo + ResolveWebViewBaseMethod "thawChildNotify" o = Gtk.WidgetThawChildNotifyMethodInfo + ResolveWebViewBaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWebViewBaseMethod "translateCoordinates" o = Gtk.WidgetTranslateCoordinatesMethodInfo + ResolveWebViewBaseMethod "triggerTooltipQuery" o = Gtk.WidgetTriggerTooltipQueryMethodInfo + ResolveWebViewBaseMethod "unmap" o = Gtk.WidgetUnmapMethodInfo + ResolveWebViewBaseMethod "unparent" o = Gtk.WidgetUnparentMethodInfo + ResolveWebViewBaseMethod "unrealize" o = Gtk.WidgetUnrealizeMethodInfo + ResolveWebViewBaseMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWebViewBaseMethod "unregisterWindow" o = Gtk.WidgetUnregisterWindowMethodInfo + ResolveWebViewBaseMethod "unsetFocusChain" o = Gtk.ContainerUnsetFocusChainMethodInfo + ResolveWebViewBaseMethod "unsetStateFlags" o = Gtk.WidgetUnsetStateFlagsMethodInfo + ResolveWebViewBaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWebViewBaseMethod "getAccessible" o = Gtk.WidgetGetAccessibleMethodInfo + ResolveWebViewBaseMethod "getActionGroup" o = Gtk.WidgetGetActionGroupMethodInfo + ResolveWebViewBaseMethod "getAllocatedBaseline" o = Gtk.WidgetGetAllocatedBaselineMethodInfo + ResolveWebViewBaseMethod "getAllocatedHeight" o = Gtk.WidgetGetAllocatedHeightMethodInfo + ResolveWebViewBaseMethod "getAllocatedWidth" o = Gtk.WidgetGetAllocatedWidthMethodInfo + ResolveWebViewBaseMethod "getAllocation" o = Gtk.WidgetGetAllocationMethodInfo + ResolveWebViewBaseMethod "getAncestor" o = Gtk.WidgetGetAncestorMethodInfo + ResolveWebViewBaseMethod "getAppPaintable" o = Gtk.WidgetGetAppPaintableMethodInfo + ResolveWebViewBaseMethod "getBorderWidth" o = Gtk.ContainerGetBorderWidthMethodInfo + ResolveWebViewBaseMethod "getCanDefault" o = Gtk.WidgetGetCanDefaultMethodInfo + ResolveWebViewBaseMethod "getCanFocus" o = Gtk.WidgetGetCanFocusMethodInfo + ResolveWebViewBaseMethod "getChildRequisition" o = Gtk.WidgetGetChildRequisitionMethodInfo + ResolveWebViewBaseMethod "getChildVisible" o = Gtk.WidgetGetChildVisibleMethodInfo + ResolveWebViewBaseMethod "getChildren" o = Gtk.ContainerGetChildrenMethodInfo + ResolveWebViewBaseMethod "getClip" o = Gtk.WidgetGetClipMethodInfo + ResolveWebViewBaseMethod "getClipboard" o = Gtk.WidgetGetClipboardMethodInfo + ResolveWebViewBaseMethod "getCompositeName" o = Gtk.WidgetGetCompositeNameMethodInfo + ResolveWebViewBaseMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWebViewBaseMethod "getDeviceEnabled" o = Gtk.WidgetGetDeviceEnabledMethodInfo + ResolveWebViewBaseMethod "getDeviceEvents" o = Gtk.WidgetGetDeviceEventsMethodInfo + ResolveWebViewBaseMethod "getDirection" o = Gtk.WidgetGetDirectionMethodInfo + ResolveWebViewBaseMethod "getDisplay" o = Gtk.WidgetGetDisplayMethodInfo + ResolveWebViewBaseMethod "getDoubleBuffered" o = Gtk.WidgetGetDoubleBufferedMethodInfo + ResolveWebViewBaseMethod "getEvents" o = Gtk.WidgetGetEventsMethodInfo + ResolveWebViewBaseMethod "getFocusChain" o = Gtk.ContainerGetFocusChainMethodInfo + ResolveWebViewBaseMethod "getFocusChild" o = Gtk.ContainerGetFocusChildMethodInfo + ResolveWebViewBaseMethod "getFocusHadjustment" o = Gtk.ContainerGetFocusHadjustmentMethodInfo + ResolveWebViewBaseMethod "getFocusVadjustment" o = Gtk.ContainerGetFocusVadjustmentMethodInfo + ResolveWebViewBaseMethod "getFontMap" o = Gtk.WidgetGetFontMapMethodInfo + ResolveWebViewBaseMethod "getFontOptions" o = Gtk.WidgetGetFontOptionsMethodInfo + ResolveWebViewBaseMethod "getFrameClock" o = Gtk.WidgetGetFrameClockMethodInfo + ResolveWebViewBaseMethod "getHalign" o = Gtk.WidgetGetHalignMethodInfo + ResolveWebViewBaseMethod "getHasTooltip" o = Gtk.WidgetGetHasTooltipMethodInfo + ResolveWebViewBaseMethod "getHasWindow" o = Gtk.WidgetGetHasWindowMethodInfo + ResolveWebViewBaseMethod "getHexpand" o = Gtk.WidgetGetHexpandMethodInfo + ResolveWebViewBaseMethod "getHexpandSet" o = Gtk.WidgetGetHexpandSetMethodInfo + ResolveWebViewBaseMethod "getInternalChild" o = Gtk.BuildableGetInternalChildMethodInfo + ResolveWebViewBaseMethod "getMapped" o = Gtk.WidgetGetMappedMethodInfo + ResolveWebViewBaseMethod "getMarginBottom" o = Gtk.WidgetGetMarginBottomMethodInfo + ResolveWebViewBaseMethod "getMarginEnd" o = Gtk.WidgetGetMarginEndMethodInfo + ResolveWebViewBaseMethod "getMarginLeft" o = Gtk.WidgetGetMarginLeftMethodInfo + ResolveWebViewBaseMethod "getMarginRight" o = Gtk.WidgetGetMarginRightMethodInfo + ResolveWebViewBaseMethod "getMarginStart" o = Gtk.WidgetGetMarginStartMethodInfo + ResolveWebViewBaseMethod "getMarginTop" o = Gtk.WidgetGetMarginTopMethodInfo + ResolveWebViewBaseMethod "getModifierMask" o = Gtk.WidgetGetModifierMaskMethodInfo + ResolveWebViewBaseMethod "getModifierStyle" o = Gtk.WidgetGetModifierStyleMethodInfo + ResolveWebViewBaseMethod "getNoShowAll" o = Gtk.WidgetGetNoShowAllMethodInfo + ResolveWebViewBaseMethod "getOpacity" o = Gtk.WidgetGetOpacityMethodInfo + ResolveWebViewBaseMethod "getPangoContext" o = Gtk.WidgetGetPangoContextMethodInfo + ResolveWebViewBaseMethod "getParent" o = Gtk.WidgetGetParentMethodInfo + ResolveWebViewBaseMethod "getParentWindow" o = Gtk.WidgetGetParentWindowMethodInfo + ResolveWebViewBaseMethod "getPath" o = Gtk.WidgetGetPathMethodInfo + ResolveWebViewBaseMethod "getPathForChild" o = Gtk.ContainerGetPathForChildMethodInfo + ResolveWebViewBaseMethod "getPointer" o = Gtk.WidgetGetPointerMethodInfo + ResolveWebViewBaseMethod "getPreferredHeight" o = Gtk.WidgetGetPreferredHeightMethodInfo + ResolveWebViewBaseMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveWebViewBaseMethod "getPreferredHeightForWidth" o = Gtk.WidgetGetPreferredHeightForWidthMethodInfo + ResolveWebViewBaseMethod "getPreferredSize" o = Gtk.WidgetGetPreferredSizeMethodInfo + ResolveWebViewBaseMethod "getPreferredWidth" o = Gtk.WidgetGetPreferredWidthMethodInfo + ResolveWebViewBaseMethod "getPreferredWidthForHeight" o = Gtk.WidgetGetPreferredWidthForHeightMethodInfo + ResolveWebViewBaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWebViewBaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWebViewBaseMethod "getRealized" o = Gtk.WidgetGetRealizedMethodInfo + ResolveWebViewBaseMethod "getReceivesDefault" o = Gtk.WidgetGetReceivesDefaultMethodInfo + ResolveWebViewBaseMethod "getRequestMode" o = Gtk.WidgetGetRequestModeMethodInfo + ResolveWebViewBaseMethod "getRequisition" o = Gtk.WidgetGetRequisitionMethodInfo + ResolveWebViewBaseMethod "getResizeMode" o = Gtk.ContainerGetResizeModeMethodInfo + ResolveWebViewBaseMethod "getRootWindow" o = Gtk.WidgetGetRootWindowMethodInfo + ResolveWebViewBaseMethod "getScaleFactor" o = Gtk.WidgetGetScaleFactorMethodInfo + ResolveWebViewBaseMethod "getScreen" o = Gtk.WidgetGetScreenMethodInfo + ResolveWebViewBaseMethod "getSensitive" o = Gtk.WidgetGetSensitiveMethodInfo + ResolveWebViewBaseMethod "getSettings" o = Gtk.WidgetGetSettingsMethodInfo + ResolveWebViewBaseMethod "getSizeRequest" o = Gtk.WidgetGetSizeRequestMethodInfo + ResolveWebViewBaseMethod "getState" o = Gtk.WidgetGetStateMethodInfo + ResolveWebViewBaseMethod "getStateFlags" o = Gtk.WidgetGetStateFlagsMethodInfo + ResolveWebViewBaseMethod "getStyle" o = Gtk.WidgetGetStyleMethodInfo + ResolveWebViewBaseMethod "getStyleContext" o = Gtk.WidgetGetStyleContextMethodInfo + ResolveWebViewBaseMethod "getSupportMultidevice" o = Gtk.WidgetGetSupportMultideviceMethodInfo + ResolveWebViewBaseMethod "getTemplateChild" o = Gtk.WidgetGetTemplateChildMethodInfo + ResolveWebViewBaseMethod "getTooltipMarkup" o = Gtk.WidgetGetTooltipMarkupMethodInfo + ResolveWebViewBaseMethod "getTooltipText" o = Gtk.WidgetGetTooltipTextMethodInfo + ResolveWebViewBaseMethod "getTooltipWindow" o = Gtk.WidgetGetTooltipWindowMethodInfo + ResolveWebViewBaseMethod "getToplevel" o = Gtk.WidgetGetToplevelMethodInfo + ResolveWebViewBaseMethod "getValign" o = Gtk.WidgetGetValignMethodInfo + ResolveWebViewBaseMethod "getValignWithBaseline" o = Gtk.WidgetGetValignWithBaselineMethodInfo + ResolveWebViewBaseMethod "getVexpand" o = Gtk.WidgetGetVexpandMethodInfo + ResolveWebViewBaseMethod "getVexpandSet" o = Gtk.WidgetGetVexpandSetMethodInfo + ResolveWebViewBaseMethod "getVisible" o = Gtk.WidgetGetVisibleMethodInfo + ResolveWebViewBaseMethod "getVisual" o = Gtk.WidgetGetVisualMethodInfo + ResolveWebViewBaseMethod "getWindow" o = Gtk.WidgetGetWindowMethodInfo + ResolveWebViewBaseMethod "setAccelPath" o = Gtk.WidgetSetAccelPathMethodInfo + ResolveWebViewBaseMethod "setAllocation" o = Gtk.WidgetSetAllocationMethodInfo + ResolveWebViewBaseMethod "setAppPaintable" o = Gtk.WidgetSetAppPaintableMethodInfo + ResolveWebViewBaseMethod "setBorderWidth" o = Gtk.ContainerSetBorderWidthMethodInfo + ResolveWebViewBaseMethod "setBuildableProperty" o = Gtk.BuildableSetBuildablePropertyMethodInfo + ResolveWebViewBaseMethod "setCanDefault" o = Gtk.WidgetSetCanDefaultMethodInfo + ResolveWebViewBaseMethod "setCanFocus" o = Gtk.WidgetSetCanFocusMethodInfo + ResolveWebViewBaseMethod "setChildVisible" o = Gtk.WidgetSetChildVisibleMethodInfo + ResolveWebViewBaseMethod "setClip" o = Gtk.WidgetSetClipMethodInfo + ResolveWebViewBaseMethod "setCompositeName" o = Gtk.WidgetSetCompositeNameMethodInfo + ResolveWebViewBaseMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWebViewBaseMethod "setDeviceEnabled" o = Gtk.WidgetSetDeviceEnabledMethodInfo + ResolveWebViewBaseMethod "setDeviceEvents" o = Gtk.WidgetSetDeviceEventsMethodInfo + ResolveWebViewBaseMethod "setDirection" o = Gtk.WidgetSetDirectionMethodInfo + ResolveWebViewBaseMethod "setDoubleBuffered" o = Gtk.WidgetSetDoubleBufferedMethodInfo + ResolveWebViewBaseMethod "setEvents" o = Gtk.WidgetSetEventsMethodInfo + ResolveWebViewBaseMethod "setFocusChain" o = Gtk.ContainerSetFocusChainMethodInfo + ResolveWebViewBaseMethod "setFocusChild" o = Gtk.ContainerSetFocusChildMethodInfo + ResolveWebViewBaseMethod "setFocusHadjustment" o = Gtk.ContainerSetFocusHadjustmentMethodInfo + ResolveWebViewBaseMethod "setFocusVadjustment" o = Gtk.ContainerSetFocusVadjustmentMethodInfo + ResolveWebViewBaseMethod "setFontMap" o = Gtk.WidgetSetFontMapMethodInfo + ResolveWebViewBaseMethod "setFontOptions" o = Gtk.WidgetSetFontOptionsMethodInfo + ResolveWebViewBaseMethod "setHalign" o = Gtk.WidgetSetHalignMethodInfo + ResolveWebViewBaseMethod "setHasTooltip" o = Gtk.WidgetSetHasTooltipMethodInfo + ResolveWebViewBaseMethod "setHasWindow" o = Gtk.WidgetSetHasWindowMethodInfo + ResolveWebViewBaseMethod "setHexpand" o = Gtk.WidgetSetHexpandMethodInfo + ResolveWebViewBaseMethod "setHexpandSet" o = Gtk.WidgetSetHexpandSetMethodInfo + ResolveWebViewBaseMethod "setMapped" o = Gtk.WidgetSetMappedMethodInfo + ResolveWebViewBaseMethod "setMarginBottom" o = Gtk.WidgetSetMarginBottomMethodInfo + ResolveWebViewBaseMethod "setMarginEnd" o = Gtk.WidgetSetMarginEndMethodInfo + ResolveWebViewBaseMethod "setMarginLeft" o = Gtk.WidgetSetMarginLeftMethodInfo + ResolveWebViewBaseMethod "setMarginRight" o = Gtk.WidgetSetMarginRightMethodInfo + ResolveWebViewBaseMethod "setMarginStart" o = Gtk.WidgetSetMarginStartMethodInfo + ResolveWebViewBaseMethod "setMarginTop" o = Gtk.WidgetSetMarginTopMethodInfo + ResolveWebViewBaseMethod "setNoShowAll" o = Gtk.WidgetSetNoShowAllMethodInfo + ResolveWebViewBaseMethod "setOpacity" o = Gtk.WidgetSetOpacityMethodInfo + ResolveWebViewBaseMethod "setParent" o = Gtk.WidgetSetParentMethodInfo + ResolveWebViewBaseMethod "setParentWindow" o = Gtk.WidgetSetParentWindowMethodInfo + ResolveWebViewBaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWebViewBaseMethod "setRealized" o = Gtk.WidgetSetRealizedMethodInfo + ResolveWebViewBaseMethod "setReallocateRedraws" o = Gtk.ContainerSetReallocateRedrawsMethodInfo + ResolveWebViewBaseMethod "setReceivesDefault" o = Gtk.WidgetSetReceivesDefaultMethodInfo + ResolveWebViewBaseMethod "setRedrawOnAllocate" o = Gtk.WidgetSetRedrawOnAllocateMethodInfo + ResolveWebViewBaseMethod "setResizeMode" o = Gtk.ContainerSetResizeModeMethodInfo + ResolveWebViewBaseMethod "setSensitive" o = Gtk.WidgetSetSensitiveMethodInfo + ResolveWebViewBaseMethod "setSizeRequest" o = Gtk.WidgetSetSizeRequestMethodInfo + ResolveWebViewBaseMethod "setState" o = Gtk.WidgetSetStateMethodInfo + ResolveWebViewBaseMethod "setStateFlags" o = Gtk.WidgetSetStateFlagsMethodInfo + ResolveWebViewBaseMethod "setStyle" o = Gtk.WidgetSetStyleMethodInfo + ResolveWebViewBaseMethod "setSupportMultidevice" o = Gtk.WidgetSetSupportMultideviceMethodInfo + ResolveWebViewBaseMethod "setTooltipMarkup" o = Gtk.WidgetSetTooltipMarkupMethodInfo + ResolveWebViewBaseMethod "setTooltipText" o = Gtk.WidgetSetTooltipTextMethodInfo + ResolveWebViewBaseMethod "setTooltipWindow" o = Gtk.WidgetSetTooltipWindowMethodInfo + ResolveWebViewBaseMethod "setValign" o = Gtk.WidgetSetValignMethodInfo + ResolveWebViewBaseMethod "setVexpand" o = Gtk.WidgetSetVexpandMethodInfo + ResolveWebViewBaseMethod "setVexpandSet" o = Gtk.WidgetSetVexpandSetMethodInfo + ResolveWebViewBaseMethod "setVisible" o = Gtk.WidgetSetVisibleMethodInfo + ResolveWebViewBaseMethod "setVisual" o = Gtk.WidgetSetVisualMethodInfo + ResolveWebViewBaseMethod "setWindow" o = Gtk.WidgetSetWindowMethodInfo + ResolveWebViewBaseMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWebViewBaseMethod t WebViewBase, MethodInfo info WebViewBase p) => IsLabelProxy t (WebViewBase -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWebViewBaseMethod t WebViewBase, MethodInfo info WebViewBase p) => IsLabel t (WebViewBase -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList WebViewBase = WebViewBaseAttributeList -type WebViewBaseAttributeList = ('[ '("app-paintable", Gtk.WidgetAppPaintablePropertyInfo), '("border-width", Gtk.ContainerBorderWidthPropertyInfo), '("can-default", Gtk.WidgetCanDefaultPropertyInfo), '("can-focus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("composite-child", Gtk.WidgetCompositeChildPropertyInfo), '("double-buffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("has-default", Gtk.WidgetHasDefaultPropertyInfo), '("has-focus", Gtk.WidgetHasFocusPropertyInfo), '("has-tooltip", Gtk.WidgetHasTooltipPropertyInfo), '("height-request", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpand-set", Gtk.WidgetHexpandSetPropertyInfo), '("is-focus", Gtk.WidgetIsFocusPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("margin-bottom", Gtk.WidgetMarginBottomPropertyInfo), '("margin-end", Gtk.WidgetMarginEndPropertyInfo), '("margin-left", Gtk.WidgetMarginLeftPropertyInfo), '("margin-right", Gtk.WidgetMarginRightPropertyInfo), '("margin-start", Gtk.WidgetMarginStartPropertyInfo), '("margin-top", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("no-show-all", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receives-default", Gtk.WidgetReceivesDefaultPropertyInfo), '("resize-mode", Gtk.ContainerResizeModePropertyInfo), '("scale-factor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("tooltip-markup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", Gtk.WidgetTooltipTextPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpand-set", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("width-request", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type WebViewBaseAttributeList = ('[ '("appPaintable", Gtk.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("compositeChild", Gtk.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("hasDefault", Gtk.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.WidgetIsFocusPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("marginBottom", Gtk.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("noShowAll", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receivesDefault", Gtk.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.WidgetTooltipTextPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList WebViewBase = WebViewBaseSignalList -type WebViewBaseSignalList = ('[ '("accel-closures-changed", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("button-press-event", Gtk.WidgetButtonPressEventSignalInfo), '("button-release-event", Gtk.WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", Gtk.WidgetCanActivateAccelSignalInfo), '("check-resize", Gtk.ContainerCheckResizeSignalInfo), '("child-notify", Gtk.WidgetChildNotifySignalInfo), '("composited-changed", Gtk.WidgetCompositedChangedSignalInfo), '("configure-event", Gtk.WidgetConfigureEventSignalInfo), '("damage-event", Gtk.WidgetDamageEventSignalInfo), '("delete-event", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroy-event", Gtk.WidgetDestroyEventSignalInfo), '("direction-changed", Gtk.WidgetDirectionChangedSignalInfo), '("drag-begin", Gtk.WidgetDragBeginSignalInfo), '("drag-data-delete", Gtk.WidgetDragDataDeleteSignalInfo), '("drag-data-get", Gtk.WidgetDragDataGetSignalInfo), '("drag-data-received", Gtk.WidgetDragDataReceivedSignalInfo), '("drag-drop", Gtk.WidgetDragDropSignalInfo), '("drag-end", Gtk.WidgetDragEndSignalInfo), '("drag-failed", Gtk.WidgetDragFailedSignalInfo), '("drag-leave", Gtk.WidgetDragLeaveSignalInfo), '("drag-motion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enter-notify-event", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("event-after", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focus-in-event", Gtk.WidgetFocusInEventSignalInfo), '("focus-out-event", Gtk.WidgetFocusOutEventSignalInfo), '("grab-broken-event", Gtk.WidgetGrabBrokenEventSignalInfo), '("grab-focus", Gtk.WidgetGrabFocusSignalInfo), '("grab-notify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchy-changed", Gtk.WidgetHierarchyChangedSignalInfo), '("key-press-event", Gtk.WidgetKeyPressEventSignalInfo), '("key-release-event", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynav-failed", Gtk.WidgetKeynavFailedSignalInfo), '("leave-notify-event", Gtk.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("map-event", Gtk.WidgetMapEventSignalInfo), '("mnemonic-activate", Gtk.WidgetMnemonicActivateSignalInfo), '("motion-notify-event", Gtk.WidgetMotionNotifyEventSignalInfo), '("move-focus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", Gtk.WidgetParentSetSignalInfo), '("popup-menu", Gtk.WidgetPopupMenuSignalInfo), '("property-notify-event", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", Gtk.WidgetProximityInEventSignalInfo), '("proximity-out-event", Gtk.WidgetProximityOutEventSignalInfo), '("query-tooltip", Gtk.WidgetQueryTooltipSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("screen-changed", Gtk.WidgetScreenChangedSignalInfo), '("scroll-event", Gtk.WidgetScrollEventSignalInfo), '("selection-clear-event", Gtk.WidgetSelectionClearEventSignalInfo), '("selection-get", Gtk.WidgetSelectionGetSignalInfo), '("selection-notify-event", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selection-received", Gtk.WidgetSelectionReceivedSignalInfo), '("selection-request-event", Gtk.WidgetSelectionRequestEventSignalInfo), '("set-focus-child", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("show-help", Gtk.WidgetShowHelpSignalInfo), '("size-allocate", Gtk.WidgetSizeAllocateSignalInfo), '("state-changed", Gtk.WidgetStateChangedSignalInfo), '("state-flags-changed", Gtk.WidgetStateFlagsChangedSignalInfo), '("style-set", Gtk.WidgetStyleSetSignalInfo), '("style-updated", Gtk.WidgetStyleUpdatedSignalInfo), '("touch-event", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmap-event", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibility-notify-event", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", Gtk.WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WebViewBaseSignalList = ('[ '("accelClosuresChanged", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroyEvent", Gtk.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.WidgetDragDropSignalInfo), '("dragEnd", Gtk.WidgetDragEndSignalInfo), '("dragFailed", Gtk.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("eventAfter", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focusInEvent", Gtk.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("mapEvent", Gtk.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", Gtk.WidgetParentSetSignalInfo), '("popupMenu", Gtk.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.WidgetQueryTooltipSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("screenChanged", Gtk.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("showHelp", Gtk.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit2/Objects/WebsiteDataManager.hs b/GI/WebKit2/Objects/WebsiteDataManager.hs --- a/GI/WebKit2/Objects/WebsiteDataManager.hs +++ b/GI/WebKit2/Objects/WebsiteDataManager.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** websiteDataManagerGetBaseCacheDirectory + WebsiteDataManagerGetBaseCacheDirectoryMethodInfo, websiteDataManagerGetBaseCacheDirectory , -- ** websiteDataManagerGetBaseDataDirectory + WebsiteDataManagerGetBaseDataDirectoryMethodInfo, websiteDataManagerGetBaseDataDirectory , -- ** websiteDataManagerGetDiskCacheDirectory + WebsiteDataManagerGetDiskCacheDirectoryMethodInfo, websiteDataManagerGetDiskCacheDirectory , -- ** websiteDataManagerGetIndexeddbDirectory + WebsiteDataManagerGetIndexeddbDirectoryMethodInfo, websiteDataManagerGetIndexeddbDirectory , -- ** websiteDataManagerGetLocalStorageDirectory + WebsiteDataManagerGetLocalStorageDirectoryMethodInfo, websiteDataManagerGetLocalStorageDirectory, -- ** websiteDataManagerGetOfflineApplicationCacheDirectory + WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo, websiteDataManagerGetOfflineApplicationCacheDirectory, -- ** websiteDataManagerGetWebsqlDirectory + WebsiteDataManagerGetWebsqlDirectoryMethodInfo, websiteDataManagerGetWebsqlDirectory , @@ -125,6 +133,46 @@ noWebsiteDataManager :: Maybe WebsiteDataManager noWebsiteDataManager = Nothing +type family ResolveWebsiteDataManagerMethod (t :: Symbol) (o :: *) :: * where + ResolveWebsiteDataManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWebsiteDataManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWebsiteDataManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWebsiteDataManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWebsiteDataManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWebsiteDataManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWebsiteDataManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWebsiteDataManagerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWebsiteDataManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWebsiteDataManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWebsiteDataManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWebsiteDataManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWebsiteDataManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWebsiteDataManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWebsiteDataManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWebsiteDataManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWebsiteDataManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWebsiteDataManagerMethod "getBaseCacheDirectory" o = WebsiteDataManagerGetBaseCacheDirectoryMethodInfo + ResolveWebsiteDataManagerMethod "getBaseDataDirectory" o = WebsiteDataManagerGetBaseDataDirectoryMethodInfo + ResolveWebsiteDataManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWebsiteDataManagerMethod "getDiskCacheDirectory" o = WebsiteDataManagerGetDiskCacheDirectoryMethodInfo + ResolveWebsiteDataManagerMethod "getIndexeddbDirectory" o = WebsiteDataManagerGetIndexeddbDirectoryMethodInfo + ResolveWebsiteDataManagerMethod "getLocalStorageDirectory" o = WebsiteDataManagerGetLocalStorageDirectoryMethodInfo + ResolveWebsiteDataManagerMethod "getOfflineApplicationCacheDirectory" o = WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo + ResolveWebsiteDataManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWebsiteDataManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWebsiteDataManagerMethod "getWebsqlDirectory" o = WebsiteDataManagerGetWebsqlDirectoryMethodInfo + ResolveWebsiteDataManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWebsiteDataManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWebsiteDataManagerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, MethodInfo info WebsiteDataManager p) => IsLabelProxy t (WebsiteDataManager -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, MethodInfo info WebsiteDataManager p) => IsLabel t (WebsiteDataManager -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "base-cache-directory" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -141,7 +189,7 @@ type AttrSetTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = WebsiteDataManagerK type AttrGetType WebsiteDataManagerBaseCacheDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerBaseCacheDirectoryPropertyInfo = "WebsiteDataManager::base-cache-directory" + type AttrLabel WebsiteDataManagerBaseCacheDirectoryPropertyInfo = "base-cache-directory" attrGet _ = getWebsiteDataManagerBaseCacheDirectory attrSet _ = undefined attrConstruct _ = constructWebsiteDataManagerBaseCacheDirectory @@ -162,7 +210,7 @@ type AttrSetTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = WebsiteDataManagerK type AttrGetType WebsiteDataManagerBaseDataDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerBaseDataDirectoryPropertyInfo = "WebsiteDataManager::base-data-directory" + type AttrLabel WebsiteDataManagerBaseDataDirectoryPropertyInfo = "base-data-directory" attrGet _ = getWebsiteDataManagerBaseDataDirectory attrSet _ = undefined attrConstruct _ = constructWebsiteDataManagerBaseDataDirectory @@ -183,7 +231,7 @@ type AttrSetTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = WebsiteDataManagerK type AttrGetType WebsiteDataManagerDiskCacheDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerDiskCacheDirectoryPropertyInfo = "WebsiteDataManager::disk-cache-directory" + type AttrLabel WebsiteDataManagerDiskCacheDirectoryPropertyInfo = "disk-cache-directory" attrGet _ = getWebsiteDataManagerDiskCacheDirectory attrSet _ = undefined attrConstruct _ = constructWebsiteDataManagerDiskCacheDirectory @@ -204,7 +252,7 @@ type AttrSetTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = WebsiteDataManagerK type AttrGetType WebsiteDataManagerIndexeddbDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerIndexeddbDirectoryPropertyInfo = "WebsiteDataManager::indexeddb-directory" + type AttrLabel WebsiteDataManagerIndexeddbDirectoryPropertyInfo = "indexeddb-directory" attrGet _ = getWebsiteDataManagerIndexeddbDirectory attrSet _ = undefined attrConstruct _ = constructWebsiteDataManagerIndexeddbDirectory @@ -225,7 +273,7 @@ type AttrSetTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = WebsiteDataManagerK type AttrGetType WebsiteDataManagerLocalStorageDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerLocalStorageDirectoryPropertyInfo = "WebsiteDataManager::local-storage-directory" + type AttrLabel WebsiteDataManagerLocalStorageDirectoryPropertyInfo = "local-storage-directory" attrGet _ = getWebsiteDataManagerLocalStorageDirectory attrSet _ = undefined attrConstruct _ = constructWebsiteDataManagerLocalStorageDirectory @@ -246,7 +294,7 @@ type AttrSetTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = WebsiteDataManagerK type AttrGetType WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = "WebsiteDataManager::offline-application-cache-directory" + type AttrLabel WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = "offline-application-cache-directory" attrGet _ = getWebsiteDataManagerOfflineApplicationCacheDirectory attrSet _ = undefined attrConstruct _ = constructWebsiteDataManagerOfflineApplicationCacheDirectory @@ -267,22 +315,21 @@ type AttrSetTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = WebsiteDataManagerK type AttrGetType WebsiteDataManagerWebsqlDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerWebsqlDirectoryPropertyInfo = "WebsiteDataManager::websql-directory" + type AttrLabel WebsiteDataManagerWebsqlDirectoryPropertyInfo = "websql-directory" attrGet _ = getWebsiteDataManagerWebsqlDirectory attrSet _ = undefined attrConstruct _ = constructWebsiteDataManagerWebsqlDirectory type instance AttributeList WebsiteDataManager = WebsiteDataManagerAttributeList -type WebsiteDataManagerAttributeList = ('[ '("base-cache-directory", WebsiteDataManagerBaseCacheDirectoryPropertyInfo), '("base-data-directory", WebsiteDataManagerBaseDataDirectoryPropertyInfo), '("disk-cache-directory", WebsiteDataManagerDiskCacheDirectoryPropertyInfo), '("indexeddb-directory", WebsiteDataManagerIndexeddbDirectoryPropertyInfo), '("local-storage-directory", WebsiteDataManagerLocalStorageDirectoryPropertyInfo), '("offline-application-cache-directory", WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo), '("websql-directory", WebsiteDataManagerWebsqlDirectoryPropertyInfo)] :: [(Symbol, *)]) +type WebsiteDataManagerAttributeList = ('[ '("baseCacheDirectory", WebsiteDataManagerBaseCacheDirectoryPropertyInfo), '("baseDataDirectory", WebsiteDataManagerBaseDataDirectoryPropertyInfo), '("diskCacheDirectory", WebsiteDataManagerDiskCacheDirectoryPropertyInfo), '("indexeddbDirectory", WebsiteDataManagerIndexeddbDirectoryPropertyInfo), '("localStorageDirectory", WebsiteDataManagerLocalStorageDirectoryPropertyInfo), '("offlineApplicationCacheDirectory", WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo), '("websqlDirectory", WebsiteDataManagerWebsqlDirectoryPropertyInfo)] :: [(Symbol, *)]) type instance SignalList WebsiteDataManager = WebsiteDataManagerSignalList -type WebsiteDataManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WebsiteDataManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method WebsiteDataManager::get_base_cache_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -294,8 +341,8 @@ websiteDataManagerGetBaseCacheDirectory :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result websiteDataManagerGetBaseCacheDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_website_data_manager_get_base_cache_directory _obj' @@ -304,11 +351,14 @@ touchManagedPtr _obj return result' +data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetBaseCacheDirectoryMethodInfo a signature where + overloadedMethod _ = websiteDataManagerGetBaseCacheDirectory + -- method WebsiteDataManager::get_base_data_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -320,8 +370,8 @@ websiteDataManagerGetBaseDataDirectory :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result websiteDataManagerGetBaseDataDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_website_data_manager_get_base_data_directory _obj' @@ -330,11 +380,14 @@ touchManagedPtr _obj return result' +data WebsiteDataManagerGetBaseDataDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetBaseDataDirectoryMethodInfo a signature where + overloadedMethod _ = websiteDataManagerGetBaseDataDirectory + -- method WebsiteDataManager::get_disk_cache_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -346,8 +399,8 @@ websiteDataManagerGetDiskCacheDirectory :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result websiteDataManagerGetDiskCacheDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_website_data_manager_get_disk_cache_directory _obj' @@ -356,11 +409,14 @@ touchManagedPtr _obj return result' +data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetDiskCacheDirectoryMethodInfo a signature where + overloadedMethod _ = websiteDataManagerGetDiskCacheDirectory + -- method WebsiteDataManager::get_indexeddb_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -372,8 +428,8 @@ websiteDataManagerGetIndexeddbDirectory :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result websiteDataManagerGetIndexeddbDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_website_data_manager_get_indexeddb_directory _obj' @@ -382,11 +438,14 @@ touchManagedPtr _obj return result' +data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetIndexeddbDirectoryMethodInfo a signature where + overloadedMethod _ = websiteDataManagerGetIndexeddbDirectory + -- method WebsiteDataManager::get_local_storage_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -398,8 +457,8 @@ websiteDataManagerGetLocalStorageDirectory :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result websiteDataManagerGetLocalStorageDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_website_data_manager_get_local_storage_directory _obj' @@ -408,11 +467,14 @@ touchManagedPtr _obj return result' +data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetLocalStorageDirectoryMethodInfo a signature where + overloadedMethod _ = websiteDataManagerGetLocalStorageDirectory + -- method WebsiteDataManager::get_offline_application_cache_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -424,8 +486,8 @@ websiteDataManagerGetOfflineApplicationCacheDirectory :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result websiteDataManagerGetOfflineApplicationCacheDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_website_data_manager_get_offline_application_cache_directory _obj' @@ -434,11 +496,14 @@ touchManagedPtr _obj return result' +data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo a signature where + overloadedMethod _ = websiteDataManagerGetOfflineApplicationCacheDirectory + -- method WebsiteDataManager::get_websql_directory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -450,8 +515,8 @@ websiteDataManagerGetWebsqlDirectory :: (MonadIO m, WebsiteDataManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result websiteDataManagerGetWebsqlDirectory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_website_data_manager_get_websql_directory _obj' @@ -459,5 +524,9 @@ result' <- cstringToText result touchManagedPtr _obj return result' + +data WebsiteDataManagerGetWebsqlDirectoryMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetWebsqlDirectoryMethodInfo a signature where + overloadedMethod _ = websiteDataManagerGetWebsqlDirectory diff --git a/GI/WebKit2/Objects/WebsiteDataManager.hs-boot b/GI/WebKit2/Objects/WebsiteDataManager.hs-boot --- a/GI/WebKit2/Objects/WebsiteDataManager.hs-boot +++ b/GI/WebKit2/Objects/WebsiteDataManager.hs-boot @@ -18,3 +18,10 @@ data WebsiteDataManagerLocalStorageDirectoryPropertyInfo data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo data WebsiteDataManagerWebsqlDirectoryPropertyInfo +data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo +data WebsiteDataManagerGetBaseDataDirectoryMethodInfo +data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo +data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo +data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo +data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo +data WebsiteDataManagerGetWebsqlDirectoryMethodInfo diff --git a/GI/WebKit2/Objects/WindowProperties.hs b/GI/WebKit2/Objects/WindowProperties.hs --- a/GI/WebKit2/Objects/WindowProperties.hs +++ b/GI/WebKit2/Objects/WindowProperties.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** windowPropertiesGetFullscreen + WindowPropertiesGetFullscreenMethodInfo , windowPropertiesGetFullscreen , -- ** windowPropertiesGetGeometry + WindowPropertiesGetGeometryMethodInfo , windowPropertiesGetGeometry , -- ** windowPropertiesGetLocationbarVisible + WindowPropertiesGetLocationbarVisibleMethodInfo, windowPropertiesGetLocationbarVisible , -- ** windowPropertiesGetMenubarVisible + WindowPropertiesGetMenubarVisibleMethodInfo, windowPropertiesGetMenubarVisible , -- ** windowPropertiesGetResizable + WindowPropertiesGetResizableMethodInfo , windowPropertiesGetResizable , -- ** windowPropertiesGetScrollbarsVisible + WindowPropertiesGetScrollbarsVisibleMethodInfo, windowPropertiesGetScrollbarsVisible , -- ** windowPropertiesGetStatusbarVisible + WindowPropertiesGetStatusbarVisibleMethodInfo, windowPropertiesGetStatusbarVisible , -- ** windowPropertiesGetToolbarVisible + WindowPropertiesGetToolbarVisibleMethodInfo, windowPropertiesGetToolbarVisible , @@ -136,6 +145,47 @@ noWindowProperties :: Maybe WindowProperties noWindowProperties = Nothing +type family ResolveWindowPropertiesMethod (t :: Symbol) (o :: *) :: * where + ResolveWindowPropertiesMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWindowPropertiesMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWindowPropertiesMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWindowPropertiesMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWindowPropertiesMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWindowPropertiesMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWindowPropertiesMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWindowPropertiesMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWindowPropertiesMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWindowPropertiesMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWindowPropertiesMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWindowPropertiesMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWindowPropertiesMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWindowPropertiesMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWindowPropertiesMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWindowPropertiesMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWindowPropertiesMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWindowPropertiesMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWindowPropertiesMethod "getFullscreen" o = WindowPropertiesGetFullscreenMethodInfo + ResolveWindowPropertiesMethod "getGeometry" o = WindowPropertiesGetGeometryMethodInfo + ResolveWindowPropertiesMethod "getLocationbarVisible" o = WindowPropertiesGetLocationbarVisibleMethodInfo + ResolveWindowPropertiesMethod "getMenubarVisible" o = WindowPropertiesGetMenubarVisibleMethodInfo + ResolveWindowPropertiesMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWindowPropertiesMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWindowPropertiesMethod "getResizable" o = WindowPropertiesGetResizableMethodInfo + ResolveWindowPropertiesMethod "getScrollbarsVisible" o = WindowPropertiesGetScrollbarsVisibleMethodInfo + ResolveWindowPropertiesMethod "getStatusbarVisible" o = WindowPropertiesGetStatusbarVisibleMethodInfo + ResolveWindowPropertiesMethod "getToolbarVisible" o = WindowPropertiesGetToolbarVisibleMethodInfo + ResolveWindowPropertiesMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWindowPropertiesMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWindowPropertiesMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, MethodInfo info WindowProperties p) => IsLabelProxy t (WindowProperties -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, MethodInfo info WindowProperties p) => IsLabel t (WindowProperties -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "fullscreen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -152,7 +202,7 @@ type AttrSetTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool type AttrBaseTypeConstraint WindowPropertiesFullscreenPropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesFullscreenPropertyInfo = Bool - type AttrLabel WindowPropertiesFullscreenPropertyInfo = "WindowProperties::fullscreen" + type AttrLabel WindowPropertiesFullscreenPropertyInfo = "fullscreen" attrGet _ = getWindowPropertiesFullscreen attrSet _ = undefined attrConstruct _ = constructWindowPropertiesFullscreen @@ -173,7 +223,7 @@ type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Gdk.Rectangle type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesGeometryPropertyInfo = Gdk.Rectangle - type AttrLabel WindowPropertiesGeometryPropertyInfo = "WindowProperties::geometry" + type AttrLabel WindowPropertiesGeometryPropertyInfo = "geometry" attrGet _ = getWindowPropertiesGeometry attrSet _ = undefined attrConstruct _ = constructWindowPropertiesGeometry @@ -194,7 +244,7 @@ type AttrSetTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesLocationbarVisiblePropertyInfo = Bool - type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "WindowProperties::locationbar-visible" + type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "locationbar-visible" attrGet _ = getWindowPropertiesLocationbarVisible attrSet _ = undefined attrConstruct _ = constructWindowPropertiesLocationbarVisible @@ -215,7 +265,7 @@ type AttrSetTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesMenubarVisiblePropertyInfo = Bool - type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "WindowProperties::menubar-visible" + type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "menubar-visible" attrGet _ = getWindowPropertiesMenubarVisible attrSet _ = undefined attrConstruct _ = constructWindowPropertiesMenubarVisible @@ -236,7 +286,7 @@ type AttrSetTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool type AttrBaseTypeConstraint WindowPropertiesResizablePropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesResizablePropertyInfo = Bool - type AttrLabel WindowPropertiesResizablePropertyInfo = "WindowProperties::resizable" + type AttrLabel WindowPropertiesResizablePropertyInfo = "resizable" attrGet _ = getWindowPropertiesResizable attrSet _ = undefined attrConstruct _ = constructWindowPropertiesResizable @@ -257,7 +307,7 @@ type AttrSetTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool - type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "WindowProperties::scrollbars-visible" + type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "scrollbars-visible" attrGet _ = getWindowPropertiesScrollbarsVisible attrSet _ = undefined attrConstruct _ = constructWindowPropertiesScrollbarsVisible @@ -278,7 +328,7 @@ type AttrSetTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesStatusbarVisiblePropertyInfo = Bool - type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "WindowProperties::statusbar-visible" + type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "statusbar-visible" attrGet _ = getWindowPropertiesStatusbarVisible attrSet _ = undefined attrConstruct _ = constructWindowPropertiesStatusbarVisible @@ -299,22 +349,21 @@ type AttrSetTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = WindowPropertiesK type AttrGetType WindowPropertiesToolbarVisiblePropertyInfo = Bool - type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "WindowProperties::toolbar-visible" + type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "toolbar-visible" attrGet _ = getWindowPropertiesToolbarVisible attrSet _ = undefined attrConstruct _ = constructWindowPropertiesToolbarVisible type instance AttributeList WindowProperties = WindowPropertiesAttributeList -type WindowPropertiesAttributeList = ('[ '("fullscreen", WindowPropertiesFullscreenPropertyInfo), '("geometry", WindowPropertiesGeometryPropertyInfo), '("locationbar-visible", WindowPropertiesLocationbarVisiblePropertyInfo), '("menubar-visible", WindowPropertiesMenubarVisiblePropertyInfo), '("resizable", WindowPropertiesResizablePropertyInfo), '("scrollbars-visible", WindowPropertiesScrollbarsVisiblePropertyInfo), '("statusbar-visible", WindowPropertiesStatusbarVisiblePropertyInfo), '("toolbar-visible", WindowPropertiesToolbarVisiblePropertyInfo)] :: [(Symbol, *)]) +type WindowPropertiesAttributeList = ('[ '("fullscreen", WindowPropertiesFullscreenPropertyInfo), '("geometry", WindowPropertiesGeometryPropertyInfo), '("locationbarVisible", WindowPropertiesLocationbarVisiblePropertyInfo), '("menubarVisible", WindowPropertiesMenubarVisiblePropertyInfo), '("resizable", WindowPropertiesResizablePropertyInfo), '("scrollbarsVisible", WindowPropertiesScrollbarsVisiblePropertyInfo), '("statusbarVisible", WindowPropertiesStatusbarVisiblePropertyInfo), '("toolbarVisible", WindowPropertiesToolbarVisiblePropertyInfo)] :: [(Symbol, *)]) type instance SignalList WindowProperties = WindowPropertiesSignalList -type WindowPropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WindowPropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method WindowProperties::get_fullscreen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -326,8 +375,8 @@ windowPropertiesGetFullscreen :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result windowPropertiesGetFullscreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_window_properties_get_fullscreen _obj' @@ -335,11 +384,14 @@ touchManagedPtr _obj return result' +data WindowPropertiesGetFullscreenMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetFullscreenMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetFullscreen + -- method WindowProperties::get_geometry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", 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" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -352,8 +404,8 @@ windowPropertiesGetGeometry :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m (Gdk.Rectangle) + a -- _obj + -> m (Gdk.Rectangle) -- result windowPropertiesGetGeometry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj geometry <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) @@ -362,11 +414,14 @@ touchManagedPtr _obj return geometry' +data WindowPropertiesGetGeometryMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetGeometryMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetGeometry + -- method WindowProperties::get_locationbar_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -378,8 +433,8 @@ windowPropertiesGetLocationbarVisible :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result windowPropertiesGetLocationbarVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_window_properties_get_locationbar_visible _obj' @@ -387,11 +442,14 @@ touchManagedPtr _obj return result' +data WindowPropertiesGetLocationbarVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetLocationbarVisibleMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetLocationbarVisible + -- method WindowProperties::get_menubar_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -403,8 +461,8 @@ windowPropertiesGetMenubarVisible :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result windowPropertiesGetMenubarVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_window_properties_get_menubar_visible _obj' @@ -412,11 +470,14 @@ touchManagedPtr _obj return result' +data WindowPropertiesGetMenubarVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetMenubarVisibleMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetMenubarVisible + -- method WindowProperties::get_resizable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -428,8 +489,8 @@ windowPropertiesGetResizable :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result windowPropertiesGetResizable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_window_properties_get_resizable _obj' @@ -437,11 +498,14 @@ touchManagedPtr _obj return result' +data WindowPropertiesGetResizableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetResizableMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetResizable + -- method WindowProperties::get_scrollbars_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -453,8 +517,8 @@ windowPropertiesGetScrollbarsVisible :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result windowPropertiesGetScrollbarsVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_window_properties_get_scrollbars_visible _obj' @@ -462,11 +526,14 @@ touchManagedPtr _obj return result' +data WindowPropertiesGetScrollbarsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetScrollbarsVisibleMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetScrollbarsVisible + -- method WindowProperties::get_statusbar_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -478,8 +545,8 @@ windowPropertiesGetStatusbarVisible :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result windowPropertiesGetStatusbarVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_window_properties_get_statusbar_visible _obj' @@ -487,11 +554,14 @@ touchManagedPtr _obj return result' +data WindowPropertiesGetStatusbarVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetStatusbarVisibleMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetStatusbarVisible + -- method WindowProperties::get_toolbar_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -503,13 +573,17 @@ windowPropertiesGetToolbarVisible :: (MonadIO m, WindowPropertiesK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result windowPropertiesGetToolbarVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_window_properties_get_toolbar_visible _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data WindowPropertiesGetToolbarVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetToolbarVisibleMethodInfo a signature where + overloadedMethod _ = windowPropertiesGetToolbarVisible diff --git a/GI/WebKit2/Objects/WindowProperties.hs-boot b/GI/WebKit2/Objects/WindowProperties.hs-boot --- a/GI/WebKit2/Objects/WindowProperties.hs-boot +++ b/GI/WebKit2/Objects/WindowProperties.hs-boot @@ -19,3 +19,11 @@ data WindowPropertiesScrollbarsVisiblePropertyInfo data WindowPropertiesStatusbarVisiblePropertyInfo data WindowPropertiesToolbarVisiblePropertyInfo +data WindowPropertiesGetFullscreenMethodInfo +data WindowPropertiesGetGeometryMethodInfo +data WindowPropertiesGetLocationbarVisibleMethodInfo +data WindowPropertiesGetMenubarVisibleMethodInfo +data WindowPropertiesGetResizableMethodInfo +data WindowPropertiesGetScrollbarsVisibleMethodInfo +data WindowPropertiesGetStatusbarVisibleMethodInfo +data WindowPropertiesGetToolbarVisibleMethodInfo diff --git a/GI/WebKit2/Structs.hs b/GI/WebKit2/Structs.hs --- a/GI/WebKit2/Structs.hs +++ b/GI/WebKit2/Structs.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/WebKit2/Structs/Credential.hs b/GI/WebKit2/Structs/Credential.hs --- a/GI/WebKit2/Structs/Credential.hs +++ b/GI/WebKit2/Structs/Credential.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,26 +16,32 @@ -- * Methods -- ** credentialCopy + CredentialCopyMethodInfo , credentialCopy , -- ** credentialFree + CredentialFreeMethodInfo , credentialFree , -- ** credentialGetPassword + CredentialGetPasswordMethodInfo , credentialGetPassword , -- ** credentialGetPersistence + CredentialGetPersistenceMethodInfo , credentialGetPersistence , -- ** credentialGetUsername + CredentialGetUsernameMethodInfo , credentialGetUsername , -- ** credentialHasPassword + CredentialHasPasswordMethodInfo , credentialHasPassword , @@ -68,9 +75,8 @@ -- method Credential::new -- method type : Constructor --- Args : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "persistence", argType = TInterface "WebKit2" "CredentialPersistence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "persistence", argType = TInterface "WebKit2" "CredentialPersistence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "persistence", argType = TInterface "WebKit2" "CredentialPersistence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "Credential" -- throws : False -- Skip return : False @@ -84,10 +90,10 @@ credentialNew :: (MonadIO m) => - T.Text -> -- username - T.Text -> -- password - CredentialPersistence -> -- persistence - m Credential + T.Text -- username + -> T.Text -- password + -> CredentialPersistence -- persistence + -> m Credential -- result credentialNew username password persistence = liftIO $ do username' <- textToCString username password' <- textToCString password @@ -101,9 +107,8 @@ -- method Credential::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "Credential" -- throws : False -- Skip return : False @@ -115,8 +120,8 @@ credentialCopy :: (MonadIO m) => - Credential -> -- _obj - m Credential + Credential -- _obj + -> m Credential -- result credentialCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_credential_copy _obj' @@ -125,11 +130,14 @@ touchManagedPtr _obj return result' +data CredentialCopyMethodInfo +instance (signature ~ (m Credential), MonadIO m) => MethodInfo CredentialCopyMethodInfo Credential signature where + overloadedMethod _ = credentialCopy + -- method Credential::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -141,19 +149,22 @@ credentialFree :: (MonadIO m) => - Credential -> -- _obj - m () + Credential -- _obj + -> m () -- result credentialFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj webkit_credential_free _obj' touchManagedPtr _obj return () +data CredentialFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo CredentialFreeMethodInfo Credential signature where + overloadedMethod _ = credentialFree + -- method Credential::get_password -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -165,8 +176,8 @@ credentialGetPassword :: (MonadIO m) => - Credential -> -- _obj - m T.Text + Credential -- _obj + -> m T.Text -- result credentialGetPassword _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_credential_get_password _obj' @@ -175,11 +186,14 @@ touchManagedPtr _obj return result' +data CredentialGetPasswordMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CredentialGetPasswordMethodInfo Credential signature where + overloadedMethod _ = credentialGetPassword + -- method Credential::get_persistence -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "CredentialPersistence" -- throws : False -- Skip return : False @@ -191,8 +205,8 @@ credentialGetPersistence :: (MonadIO m) => - Credential -> -- _obj - m CredentialPersistence + Credential -- _obj + -> m CredentialPersistence -- result credentialGetPersistence _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_credential_get_persistence _obj' @@ -200,11 +214,14 @@ touchManagedPtr _obj return result' +data CredentialGetPersistenceMethodInfo +instance (signature ~ (m CredentialPersistence), MonadIO m) => MethodInfo CredentialGetPersistenceMethodInfo Credential signature where + overloadedMethod _ = credentialGetPersistence + -- method Credential::get_username -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -216,8 +233,8 @@ credentialGetUsername :: (MonadIO m) => - Credential -> -- _obj - m T.Text + Credential -- _obj + -> m T.Text -- result credentialGetUsername _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_credential_get_username _obj' @@ -226,11 +243,14 @@ touchManagedPtr _obj return result' +data CredentialGetUsernameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CredentialGetUsernameMethodInfo Credential signature where + overloadedMethod _ = credentialGetUsername + -- method Credential::has_password -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -242,13 +262,34 @@ credentialHasPassword :: (MonadIO m) => - Credential -> -- _obj - m Bool + Credential -- _obj + -> m Bool -- result credentialHasPassword _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_credential_has_password _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data CredentialHasPasswordMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo CredentialHasPasswordMethodInfo Credential signature where + overloadedMethod _ = credentialHasPassword + +type family ResolveCredentialMethod (t :: Symbol) (o :: *) :: * where + ResolveCredentialMethod "copy" o = CredentialCopyMethodInfo + ResolveCredentialMethod "free" o = CredentialFreeMethodInfo + ResolveCredentialMethod "hasPassword" o = CredentialHasPasswordMethodInfo + ResolveCredentialMethod "getPassword" o = CredentialGetPasswordMethodInfo + ResolveCredentialMethod "getPersistence" o = CredentialGetPersistenceMethodInfo + ResolveCredentialMethod "getUsername" o = CredentialGetUsernameMethodInfo + ResolveCredentialMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCredentialMethod t Credential, MethodInfo info Credential p) => IsLabelProxy t (Credential -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCredentialMethod t Credential, MethodInfo info Credential p) => IsLabel t (Credential -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/WebKit2/Structs/Credential.hs-boot b/GI/WebKit2/Structs/Credential.hs-boot --- a/GI/WebKit2/Structs/Credential.hs-boot +++ b/GI/WebKit2/Structs/Credential.hs-boot @@ -9,3 +9,9 @@ newtype Credential = Credential (ForeignPtr Credential) instance BoxedObject Credential where +data CredentialCopyMethodInfo +data CredentialFreeMethodInfo +data CredentialGetPasswordMethodInfo +data CredentialGetPersistenceMethodInfo +data CredentialGetUsernameMethodInfo +data CredentialHasPasswordMethodInfo diff --git a/GI/WebKit2/Structs/JavascriptResult.hs b/GI/WebKit2/Structs/JavascriptResult.hs --- a/GI/WebKit2/Structs/JavascriptResult.hs +++ b/GI/WebKit2/Structs/JavascriptResult.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,18 +16,22 @@ -- * Methods -- ** javascriptResultGetGlobalContext + JavascriptResultGetGlobalContextMethodInfo, javascriptResultGetGlobalContext , -- ** javascriptResultGetValue + JavascriptResultGetValueMethodInfo , javascriptResultGetValue , -- ** javascriptResultRef + JavascriptResultRefMethodInfo , javascriptResultRef , -- ** javascriptResultUnref + JavascriptResultUnrefMethodInfo , javascriptResultUnref , @@ -57,9 +62,8 @@ -- method JavascriptResult::get_global_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "JavaScriptCore" "GlobalContext" -- throws : False -- Skip return : False @@ -71,8 +75,8 @@ javascriptResultGetGlobalContext :: (MonadIO m) => - JavascriptResult -> -- _obj - m JavaScriptCore.GlobalContext + JavascriptResult -- _obj + -> m JavaScriptCore.GlobalContext -- result javascriptResultGetGlobalContext _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_javascript_result_get_global_context _obj' @@ -82,11 +86,14 @@ touchManagedPtr _obj return result' +data JavascriptResultGetGlobalContextMethodInfo +instance (signature ~ (m JavaScriptCore.GlobalContext), MonadIO m) => MethodInfo JavascriptResultGetGlobalContextMethodInfo JavascriptResult signature where + overloadedMethod _ = javascriptResultGetGlobalContext + -- method JavascriptResult::get_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "JavaScriptCore" "Value" -- throws : False -- Skip return : False @@ -98,8 +105,8 @@ javascriptResultGetValue :: (MonadIO m) => - JavascriptResult -> -- _obj - m JavaScriptCore.Value + JavascriptResult -- _obj + -> m JavaScriptCore.Value -- result javascriptResultGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_javascript_result_get_value _obj' @@ -109,11 +116,14 @@ touchManagedPtr _obj return result' +data JavascriptResultGetValueMethodInfo +instance (signature ~ (m JavaScriptCore.Value), MonadIO m) => MethodInfo JavascriptResultGetValueMethodInfo JavascriptResult signature where + overloadedMethod _ = javascriptResultGetValue + -- method JavascriptResult::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "JavascriptResult" -- throws : False -- Skip return : False @@ -125,8 +135,8 @@ javascriptResultRef :: (MonadIO m) => - JavascriptResult -> -- _obj - m JavascriptResult + JavascriptResult -- _obj + -> m JavascriptResult -- result javascriptResultRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_javascript_result_ref _obj' @@ -135,11 +145,14 @@ touchManagedPtr _obj return result' +data JavascriptResultRefMethodInfo +instance (signature ~ (m JavascriptResult), MonadIO m) => MethodInfo JavascriptResultRefMethodInfo JavascriptResult signature where + overloadedMethod _ = javascriptResultRef + -- method JavascriptResult::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -151,12 +164,31 @@ javascriptResultUnref :: (MonadIO m) => - JavascriptResult -> -- _obj - m () + JavascriptResult -- _obj + -> m () -- result javascriptResultUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj webkit_javascript_result_unref _obj' touchManagedPtr _obj return () + +data JavascriptResultUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo JavascriptResultUnrefMethodInfo JavascriptResult signature where + overloadedMethod _ = javascriptResultUnref + +type family ResolveJavascriptResultMethod (t :: Symbol) (o :: *) :: * where + ResolveJavascriptResultMethod "ref" o = JavascriptResultRefMethodInfo + ResolveJavascriptResultMethod "unref" o = JavascriptResultUnrefMethodInfo + ResolveJavascriptResultMethod "getGlobalContext" o = JavascriptResultGetGlobalContextMethodInfo + ResolveJavascriptResultMethod "getValue" o = JavascriptResultGetValueMethodInfo + ResolveJavascriptResultMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, MethodInfo info JavascriptResult p) => IsLabelProxy t (JavascriptResult -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, MethodInfo info JavascriptResult p) => IsLabel t (JavascriptResult -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/WebKit2/Structs/JavascriptResult.hs-boot b/GI/WebKit2/Structs/JavascriptResult.hs-boot --- a/GI/WebKit2/Structs/JavascriptResult.hs-boot +++ b/GI/WebKit2/Structs/JavascriptResult.hs-boot @@ -9,3 +9,7 @@ newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult) instance BoxedObject JavascriptResult where +data JavascriptResultGetGlobalContextMethodInfo +data JavascriptResultGetValueMethodInfo +data JavascriptResultRefMethodInfo +data JavascriptResultUnrefMethodInfo diff --git a/GI/WebKit2/Structs/MimeInfo.hs b/GI/WebKit2/Structs/MimeInfo.hs --- a/GI/WebKit2/Structs/MimeInfo.hs +++ b/GI/WebKit2/Structs/MimeInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,22 +16,27 @@ -- * Methods -- ** mimeInfoGetDescription + MimeInfoGetDescriptionMethodInfo , mimeInfoGetDescription , -- ** mimeInfoGetExtensions + MimeInfoGetExtensionsMethodInfo , mimeInfoGetExtensions , -- ** mimeInfoGetMimeType + MimeInfoGetMimeTypeMethodInfo , mimeInfoGetMimeType , -- ** mimeInfoRef + MimeInfoRefMethodInfo , mimeInfoRef , -- ** mimeInfoUnref + MimeInfoUnrefMethodInfo , mimeInfoUnref , @@ -60,9 +66,8 @@ -- method MimeInfo::get_description -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -74,8 +79,8 @@ mimeInfoGetDescription :: (MonadIO m) => - MimeInfo -> -- _obj - m T.Text + MimeInfo -- _obj + -> m T.Text -- result mimeInfoGetDescription _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_mime_info_get_description _obj' @@ -84,11 +89,14 @@ touchManagedPtr _obj return result' +data MimeInfoGetDescriptionMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MimeInfoGetDescriptionMethodInfo MimeInfo signature where + overloadedMethod _ = mimeInfoGetDescription + -- method MimeInfo::get_extensions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -100,8 +108,8 @@ mimeInfoGetExtensions :: (MonadIO m) => - MimeInfo -> -- _obj - m [T.Text] + MimeInfo -- _obj + -> m [T.Text] -- result mimeInfoGetExtensions _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_mime_info_get_extensions _obj' @@ -110,11 +118,14 @@ touchManagedPtr _obj return result' +data MimeInfoGetExtensionsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo MimeInfoGetExtensionsMethodInfo MimeInfo signature where + overloadedMethod _ = mimeInfoGetExtensions + -- method MimeInfo::get_mime_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -126,8 +137,8 @@ mimeInfoGetMimeType :: (MonadIO m) => - MimeInfo -> -- _obj - m T.Text + MimeInfo -- _obj + -> m T.Text -- result mimeInfoGetMimeType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_mime_info_get_mime_type _obj' @@ -136,11 +147,14 @@ touchManagedPtr _obj return result' +data MimeInfoGetMimeTypeMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MimeInfoGetMimeTypeMethodInfo MimeInfo signature where + overloadedMethod _ = mimeInfoGetMimeType + -- method MimeInfo::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "MimeInfo" -- throws : False -- Skip return : False @@ -152,8 +166,8 @@ mimeInfoRef :: (MonadIO m) => - MimeInfo -> -- _obj - m MimeInfo + MimeInfo -- _obj + -> m MimeInfo -- result mimeInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_mime_info_ref _obj' @@ -162,11 +176,14 @@ touchManagedPtr _obj return result' +data MimeInfoRefMethodInfo +instance (signature ~ (m MimeInfo), MonadIO m) => MethodInfo MimeInfoRefMethodInfo MimeInfo signature where + overloadedMethod _ = mimeInfoRef + -- method MimeInfo::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -178,12 +195,32 @@ mimeInfoUnref :: (MonadIO m) => - MimeInfo -> -- _obj - m () + MimeInfo -- _obj + -> m () -- result mimeInfoUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj webkit_mime_info_unref _obj' touchManagedPtr _obj return () + +data MimeInfoUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo MimeInfoUnrefMethodInfo MimeInfo signature where + overloadedMethod _ = mimeInfoUnref + +type family ResolveMimeInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveMimeInfoMethod "ref" o = MimeInfoRefMethodInfo + ResolveMimeInfoMethod "unref" o = MimeInfoUnrefMethodInfo + ResolveMimeInfoMethod "getDescription" o = MimeInfoGetDescriptionMethodInfo + ResolveMimeInfoMethod "getExtensions" o = MimeInfoGetExtensionsMethodInfo + ResolveMimeInfoMethod "getMimeType" o = MimeInfoGetMimeTypeMethodInfo + ResolveMimeInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMimeInfoMethod t MimeInfo, MethodInfo info MimeInfo p) => IsLabelProxy t (MimeInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMimeInfoMethod t MimeInfo, MethodInfo info MimeInfo p) => IsLabel t (MimeInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/WebKit2/Structs/MimeInfo.hs-boot b/GI/WebKit2/Structs/MimeInfo.hs-boot --- a/GI/WebKit2/Structs/MimeInfo.hs-boot +++ b/GI/WebKit2/Structs/MimeInfo.hs-boot @@ -9,3 +9,8 @@ newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo) instance BoxedObject MimeInfo where +data MimeInfoGetDescriptionMethodInfo +data MimeInfoGetExtensionsMethodInfo +data MimeInfoGetMimeTypeMethodInfo +data MimeInfoRefMethodInfo +data MimeInfoUnrefMethodInfo diff --git a/GI/WebKit2/Structs/NavigationAction.hs b/GI/WebKit2/Structs/NavigationAction.hs --- a/GI/WebKit2/Structs/NavigationAction.hs +++ b/GI/WebKit2/Structs/NavigationAction.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,30 +16,37 @@ -- * Methods -- ** navigationActionCopy + NavigationActionCopyMethodInfo , navigationActionCopy , -- ** navigationActionFree + NavigationActionFreeMethodInfo , navigationActionFree , -- ** navigationActionGetModifiers + NavigationActionGetModifiersMethodInfo , navigationActionGetModifiers , -- ** navigationActionGetMouseButton + NavigationActionGetMouseButtonMethodInfo, navigationActionGetMouseButton , -- ** navigationActionGetNavigationType + NavigationActionGetNavigationTypeMethodInfo, navigationActionGetNavigationType , -- ** navigationActionGetRequest + NavigationActionGetRequestMethodInfo , navigationActionGetRequest , -- ** navigationActionIsUserGesture + NavigationActionIsUserGestureMethodInfo , navigationActionIsUserGesture , @@ -68,9 +76,8 @@ -- method NavigationAction::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "NavigationAction" -- throws : False -- Skip return : False @@ -82,8 +89,8 @@ navigationActionCopy :: (MonadIO m) => - NavigationAction -> -- _obj - m NavigationAction + NavigationAction -- _obj + -> m NavigationAction -- result navigationActionCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_navigation_action_copy _obj' @@ -92,11 +99,14 @@ touchManagedPtr _obj return result' +data NavigationActionCopyMethodInfo +instance (signature ~ (m NavigationAction), MonadIO m) => MethodInfo NavigationActionCopyMethodInfo NavigationAction signature where + overloadedMethod _ = navigationActionCopy + -- method NavigationAction::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -108,19 +118,22 @@ navigationActionFree :: (MonadIO m) => - NavigationAction -> -- _obj - m () + NavigationAction -- _obj + -> m () -- result navigationActionFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj webkit_navigation_action_free _obj' touchManagedPtr _obj return () +data NavigationActionFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo NavigationActionFreeMethodInfo NavigationAction signature where + overloadedMethod _ = navigationActionFree + -- method NavigationAction::get_modifiers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -132,19 +145,22 @@ navigationActionGetModifiers :: (MonadIO m) => - NavigationAction -> -- _obj - m Word32 + NavigationAction -- _obj + -> m Word32 -- result navigationActionGetModifiers _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_navigation_action_get_modifiers _obj' touchManagedPtr _obj return result +data NavigationActionGetModifiersMethodInfo +instance (signature ~ (m Word32), MonadIO m) => MethodInfo NavigationActionGetModifiersMethodInfo NavigationAction signature where + overloadedMethod _ = navigationActionGetModifiers + -- method NavigationAction::get_mouse_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -156,19 +172,22 @@ navigationActionGetMouseButton :: (MonadIO m) => - NavigationAction -> -- _obj - m Word32 + NavigationAction -- _obj + -> m Word32 -- result navigationActionGetMouseButton _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_navigation_action_get_mouse_button _obj' touchManagedPtr _obj return result +data NavigationActionGetMouseButtonMethodInfo +instance (signature ~ (m Word32), MonadIO m) => MethodInfo NavigationActionGetMouseButtonMethodInfo NavigationAction signature where + overloadedMethod _ = navigationActionGetMouseButton + -- method NavigationAction::get_navigation_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "NavigationType" -- throws : False -- Skip return : False @@ -180,8 +199,8 @@ navigationActionGetNavigationType :: (MonadIO m) => - NavigationAction -> -- _obj - m NavigationType + NavigationAction -- _obj + -> m NavigationType -- result navigationActionGetNavigationType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_navigation_action_get_navigation_type _obj' @@ -189,11 +208,14 @@ touchManagedPtr _obj return result' +data NavigationActionGetNavigationTypeMethodInfo +instance (signature ~ (m NavigationType), MonadIO m) => MethodInfo NavigationActionGetNavigationTypeMethodInfo NavigationAction signature where + overloadedMethod _ = navigationActionGetNavigationType + -- method NavigationAction::get_request -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "URIRequest" -- throws : False -- Skip return : False @@ -205,8 +227,8 @@ navigationActionGetRequest :: (MonadIO m) => - NavigationAction -> -- _obj - m URIRequest + NavigationAction -- _obj + -> m URIRequest -- result navigationActionGetRequest _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_navigation_action_get_request _obj' @@ -215,11 +237,14 @@ touchManagedPtr _obj return result' +data NavigationActionGetRequestMethodInfo +instance (signature ~ (m URIRequest), MonadIO m) => MethodInfo NavigationActionGetRequestMethodInfo NavigationAction signature where + overloadedMethod _ = navigationActionGetRequest + -- method NavigationAction::is_user_gesture -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -231,13 +256,35 @@ navigationActionIsUserGesture :: (MonadIO m) => - NavigationAction -> -- _obj - m Bool + NavigationAction -- _obj + -> m Bool -- result navigationActionIsUserGesture _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_navigation_action_is_user_gesture _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data NavigationActionIsUserGestureMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo NavigationActionIsUserGestureMethodInfo NavigationAction signature where + overloadedMethod _ = navigationActionIsUserGesture + +type family ResolveNavigationActionMethod (t :: Symbol) (o :: *) :: * where + ResolveNavigationActionMethod "copy" o = NavigationActionCopyMethodInfo + ResolveNavigationActionMethod "free" o = NavigationActionFreeMethodInfo + ResolveNavigationActionMethod "isUserGesture" o = NavigationActionIsUserGestureMethodInfo + ResolveNavigationActionMethod "getModifiers" o = NavigationActionGetModifiersMethodInfo + ResolveNavigationActionMethod "getMouseButton" o = NavigationActionGetMouseButtonMethodInfo + ResolveNavigationActionMethod "getNavigationType" o = NavigationActionGetNavigationTypeMethodInfo + ResolveNavigationActionMethod "getRequest" o = NavigationActionGetRequestMethodInfo + ResolveNavigationActionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNavigationActionMethod t NavigationAction, MethodInfo info NavigationAction p) => IsLabelProxy t (NavigationAction -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNavigationActionMethod t NavigationAction, MethodInfo info NavigationAction p) => IsLabel t (NavigationAction -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/WebKit2/Structs/NavigationAction.hs-boot b/GI/WebKit2/Structs/NavigationAction.hs-boot --- a/GI/WebKit2/Structs/NavigationAction.hs-boot +++ b/GI/WebKit2/Structs/NavigationAction.hs-boot @@ -9,3 +9,10 @@ newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction) instance BoxedObject NavigationAction where +data NavigationActionCopyMethodInfo +data NavigationActionFreeMethodInfo +data NavigationActionGetModifiersMethodInfo +data NavigationActionGetMouseButtonMethodInfo +data NavigationActionGetNavigationTypeMethodInfo +data NavigationActionGetRequestMethodInfo +data NavigationActionIsUserGestureMethodInfo diff --git a/GI/WebKit2/Structs/ScriptDialog.hs b/GI/WebKit2/Structs/ScriptDialog.hs --- a/GI/WebKit2/Structs/ScriptDialog.hs +++ b/GI/WebKit2/Structs/ScriptDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,22 +16,27 @@ -- * Methods -- ** scriptDialogConfirmSetConfirmed + ScriptDialogConfirmSetConfirmedMethodInfo, scriptDialogConfirmSetConfirmed , -- ** scriptDialogGetDialogType + ScriptDialogGetDialogTypeMethodInfo , scriptDialogGetDialogType , -- ** scriptDialogGetMessage + ScriptDialogGetMessageMethodInfo , scriptDialogGetMessage , -- ** scriptDialogPromptGetDefaultText + ScriptDialogPromptGetDefaultTextMethodInfo, scriptDialogPromptGetDefaultText , -- ** scriptDialogPromptSetText + ScriptDialogPromptSetTextMethodInfo , scriptDialogPromptSetText , @@ -60,9 +66,8 @@ -- method ScriptDialog::confirm_set_confirmed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confirmed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confirmed", 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" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confirmed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -75,9 +80,9 @@ scriptDialogConfirmSetConfirmed :: (MonadIO m) => - ScriptDialog -> -- _obj - Bool -> -- confirmed - m () + ScriptDialog -- _obj + -> Bool -- confirmed + -> m () -- result scriptDialogConfirmSetConfirmed _obj confirmed = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let confirmed' = (fromIntegral . fromEnum) confirmed @@ -85,11 +90,14 @@ touchManagedPtr _obj return () +data ScriptDialogConfirmSetConfirmedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo ScriptDialogConfirmSetConfirmedMethodInfo ScriptDialog signature where + overloadedMethod _ = scriptDialogConfirmSetConfirmed + -- method ScriptDialog::get_dialog_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "ScriptDialogType" -- throws : False -- Skip return : False @@ -101,8 +109,8 @@ scriptDialogGetDialogType :: (MonadIO m) => - ScriptDialog -> -- _obj - m ScriptDialogType + ScriptDialog -- _obj + -> m ScriptDialogType -- result scriptDialogGetDialogType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_script_dialog_get_dialog_type _obj' @@ -110,11 +118,14 @@ touchManagedPtr _obj return result' +data ScriptDialogGetDialogTypeMethodInfo +instance (signature ~ (m ScriptDialogType), MonadIO m) => MethodInfo ScriptDialogGetDialogTypeMethodInfo ScriptDialog signature where + overloadedMethod _ = scriptDialogGetDialogType + -- method ScriptDialog::get_message -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -126,8 +137,8 @@ scriptDialogGetMessage :: (MonadIO m) => - ScriptDialog -> -- _obj - m T.Text + ScriptDialog -- _obj + -> m T.Text -- result scriptDialogGetMessage _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_script_dialog_get_message _obj' @@ -136,11 +147,14 @@ touchManagedPtr _obj return result' +data ScriptDialogGetMessageMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ScriptDialogGetMessageMethodInfo ScriptDialog signature where + overloadedMethod _ = scriptDialogGetMessage + -- method ScriptDialog::prompt_get_default_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -152,8 +166,8 @@ scriptDialogPromptGetDefaultText :: (MonadIO m) => - ScriptDialog -> -- _obj - m T.Text + ScriptDialog -- _obj + -> m T.Text -- result scriptDialogPromptGetDefaultText _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_script_dialog_prompt_get_default_text _obj' @@ -162,11 +176,14 @@ touchManagedPtr _obj return result' +data ScriptDialogPromptGetDefaultTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ScriptDialogPromptGetDefaultTextMethodInfo ScriptDialog signature where + overloadedMethod _ = scriptDialogPromptGetDefaultText + -- method ScriptDialog::prompt_set_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -179,9 +196,9 @@ scriptDialogPromptSetText :: (MonadIO m) => - ScriptDialog -> -- _obj - T.Text -> -- text - m () + ScriptDialog -- _obj + -> T.Text -- text + -> m () -- result scriptDialogPromptSetText _obj text = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj text' <- textToCString text @@ -189,5 +206,25 @@ touchManagedPtr _obj freeMem text' return () + +data ScriptDialogPromptSetTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo ScriptDialogPromptSetTextMethodInfo ScriptDialog signature where + overloadedMethod _ = scriptDialogPromptSetText + +type family ResolveScriptDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveScriptDialogMethod "confirmSetConfirmed" o = ScriptDialogConfirmSetConfirmedMethodInfo + ResolveScriptDialogMethod "promptGetDefaultText" o = ScriptDialogPromptGetDefaultTextMethodInfo + ResolveScriptDialogMethod "promptSetText" o = ScriptDialogPromptSetTextMethodInfo + ResolveScriptDialogMethod "getDialogType" o = ScriptDialogGetDialogTypeMethodInfo + ResolveScriptDialogMethod "getMessage" o = ScriptDialogGetMessageMethodInfo + ResolveScriptDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScriptDialogMethod t ScriptDialog, MethodInfo info ScriptDialog p) => IsLabelProxy t (ScriptDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScriptDialogMethod t ScriptDialog, MethodInfo info ScriptDialog p) => IsLabel t (ScriptDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/WebKit2/Structs/ScriptDialog.hs-boot b/GI/WebKit2/Structs/ScriptDialog.hs-boot --- a/GI/WebKit2/Structs/ScriptDialog.hs-boot +++ b/GI/WebKit2/Structs/ScriptDialog.hs-boot @@ -9,3 +9,8 @@ newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog) instance BoxedObject ScriptDialog where +data ScriptDialogConfirmSetConfirmedMethodInfo +data ScriptDialogGetDialogTypeMethodInfo +data ScriptDialogGetMessageMethodInfo +data ScriptDialogPromptGetDefaultTextMethodInfo +data ScriptDialogPromptSetTextMethodInfo diff --git a/GI/WebKit2/Structs/UserScript.hs b/GI/WebKit2/Structs/UserScript.hs --- a/GI/WebKit2/Structs/UserScript.hs +++ b/GI/WebKit2/Structs/UserScript.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -19,10 +20,12 @@ -- ** userScriptRef + UserScriptRefMethodInfo , userScriptRef , -- ** userScriptUnref + UserScriptUnrefMethodInfo , userScriptUnref , @@ -52,9 +55,8 @@ -- method UserScript::new -- method type : Constructor --- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "injection_time", argType = TInterface "WebKit2" "UserScriptInjectionTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injection_time", argType = TInterface "WebKit2" "UserScriptInjectionTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "injection_time", argType = TInterface "WebKit2" "UserScriptInjectionTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "UserScript" -- throws : False -- Skip return : False @@ -70,16 +72,16 @@ userScriptNew :: (MonadIO m) => - T.Text -> -- source - UserContentInjectedFrames -> -- injected_frames - UserScriptInjectionTime -> -- injection_time - Maybe ([T.Text]) -> -- whitelist - Maybe ([T.Text]) -> -- blacklist - m UserScript -userScriptNew source injected_frames injection_time whitelist blacklist = liftIO $ do + T.Text -- source + -> UserContentInjectedFrames -- injectedFrames + -> UserScriptInjectionTime -- injectionTime + -> Maybe ([T.Text]) -- whitelist + -> Maybe ([T.Text]) -- blacklist + -> m UserScript -- result +userScriptNew source injectedFrames injectionTime whitelist blacklist = liftIO $ do source' <- textToCString source - let injected_frames' = (fromIntegral . fromEnum) injected_frames - let injection_time' = (fromIntegral . fromEnum) injection_time + let injectedFrames' = (fromIntegral . fromEnum) injectedFrames + let injectionTime' = (fromIntegral . fromEnum) injectionTime maybeWhitelist <- case whitelist of Nothing -> return nullPtr Just jWhitelist -> do @@ -90,7 +92,7 @@ Just jBlacklist -> do jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist return jBlacklist' - result <- webkit_user_script_new source' injected_frames' injection_time' maybeWhitelist maybeBlacklist + result <- webkit_user_script_new source' injectedFrames' injectionTime' maybeWhitelist maybeBlacklist checkUnexpectedReturnNULL "webkit_user_script_new" result result' <- (wrapBoxed UserScript) result freeMem source' @@ -102,9 +104,8 @@ -- method UserScript::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "UserScript" -- throws : False -- Skip return : False @@ -116,8 +117,8 @@ userScriptRef :: (MonadIO m) => - UserScript -> -- _obj - m UserScript + UserScript -- _obj + -> m UserScript -- result userScriptRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_user_script_ref _obj' @@ -126,11 +127,14 @@ touchManagedPtr _obj return result' +data UserScriptRefMethodInfo +instance (signature ~ (m UserScript), MonadIO m) => MethodInfo UserScriptRefMethodInfo UserScript signature where + overloadedMethod _ = userScriptRef + -- method UserScript::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -142,12 +146,29 @@ userScriptUnref :: (MonadIO m) => - UserScript -> -- _obj - m () + UserScript -- _obj + -> m () -- result userScriptUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj webkit_user_script_unref _obj' touchManagedPtr _obj return () + +data UserScriptUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo UserScriptUnrefMethodInfo UserScript signature where + overloadedMethod _ = userScriptUnref + +type family ResolveUserScriptMethod (t :: Symbol) (o :: *) :: * where + ResolveUserScriptMethod "ref" o = UserScriptRefMethodInfo + ResolveUserScriptMethod "unref" o = UserScriptUnrefMethodInfo + ResolveUserScriptMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveUserScriptMethod t UserScript, MethodInfo info UserScript p) => IsLabelProxy t (UserScript -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveUserScriptMethod t UserScript, MethodInfo info UserScript p) => IsLabel t (UserScript -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/WebKit2/Structs/UserScript.hs-boot b/GI/WebKit2/Structs/UserScript.hs-boot --- a/GI/WebKit2/Structs/UserScript.hs-boot +++ b/GI/WebKit2/Structs/UserScript.hs-boot @@ -9,3 +9,5 @@ newtype UserScript = UserScript (ForeignPtr UserScript) instance BoxedObject UserScript where +data UserScriptRefMethodInfo +data UserScriptUnrefMethodInfo diff --git a/GI/WebKit2/Structs/UserStyleSheet.hs b/GI/WebKit2/Structs/UserStyleSheet.hs --- a/GI/WebKit2/Structs/UserStyleSheet.hs +++ b/GI/WebKit2/Structs/UserStyleSheet.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -19,10 +20,12 @@ -- ** userStyleSheetRef + UserStyleSheetRefMethodInfo , userStyleSheetRef , -- ** userStyleSheetUnref + UserStyleSheetUnrefMethodInfo , userStyleSheetUnref , @@ -52,9 +55,8 @@ -- method UserStyleSheet::new -- method type : Constructor --- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TInterface "WebKit2" "UserStyleLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface "WebKit2" "UserStyleLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TInterface "WebKit2" "UserStyleLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "UserStyleSheet" -- throws : False -- Skip return : False @@ -70,15 +72,15 @@ userStyleSheetNew :: (MonadIO m) => - T.Text -> -- source - UserContentInjectedFrames -> -- injected_frames - UserStyleLevel -> -- level - Maybe ([T.Text]) -> -- whitelist - Maybe ([T.Text]) -> -- blacklist - m UserStyleSheet -userStyleSheetNew source injected_frames level whitelist blacklist = liftIO $ do + T.Text -- source + -> UserContentInjectedFrames -- injectedFrames + -> UserStyleLevel -- level + -> Maybe ([T.Text]) -- whitelist + -> Maybe ([T.Text]) -- blacklist + -> m UserStyleSheet -- result +userStyleSheetNew source injectedFrames level whitelist blacklist = liftIO $ do source' <- textToCString source - let injected_frames' = (fromIntegral . fromEnum) injected_frames + let injectedFrames' = (fromIntegral . fromEnum) injectedFrames let level' = (fromIntegral . fromEnum) level maybeWhitelist <- case whitelist of Nothing -> return nullPtr @@ -90,7 +92,7 @@ Just jBlacklist -> do jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist return jBlacklist' - result <- webkit_user_style_sheet_new source' injected_frames' level' maybeWhitelist maybeBlacklist + result <- webkit_user_style_sheet_new source' injectedFrames' level' maybeWhitelist maybeBlacklist checkUnexpectedReturnNULL "webkit_user_style_sheet_new" result result' <- (wrapBoxed UserStyleSheet) result freeMem source' @@ -102,9 +104,8 @@ -- method UserStyleSheet::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit2" "UserStyleSheet" -- throws : False -- Skip return : False @@ -116,8 +117,8 @@ userStyleSheetRef :: (MonadIO m) => - UserStyleSheet -> -- _obj - m UserStyleSheet + UserStyleSheet -- _obj + -> m UserStyleSheet -- result userStyleSheetRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- webkit_user_style_sheet_ref _obj' @@ -126,11 +127,14 @@ touchManagedPtr _obj return result' +data UserStyleSheetRefMethodInfo +instance (signature ~ (m UserStyleSheet), MonadIO m) => MethodInfo UserStyleSheetRefMethodInfo UserStyleSheet signature where + overloadedMethod _ = userStyleSheetRef + -- method UserStyleSheet::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -142,12 +146,29 @@ userStyleSheetUnref :: (MonadIO m) => - UserStyleSheet -> -- _obj - m () + UserStyleSheet -- _obj + -> m () -- result userStyleSheetUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj webkit_user_style_sheet_unref _obj' touchManagedPtr _obj return () + +data UserStyleSheetUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo UserStyleSheetUnrefMethodInfo UserStyleSheet signature where + overloadedMethod _ = userStyleSheetUnref + +type family ResolveUserStyleSheetMethod (t :: Symbol) (o :: *) :: * where + ResolveUserStyleSheetMethod "ref" o = UserStyleSheetRefMethodInfo + ResolveUserStyleSheetMethod "unref" o = UserStyleSheetUnrefMethodInfo + ResolveUserStyleSheetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveUserStyleSheetMethod t UserStyleSheet, MethodInfo info UserStyleSheet p) => IsLabelProxy t (UserStyleSheet -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveUserStyleSheetMethod t UserStyleSheet, MethodInfo info UserStyleSheet p) => IsLabel t (UserStyleSheet -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/WebKit2/Structs/UserStyleSheet.hs-boot b/GI/WebKit2/Structs/UserStyleSheet.hs-boot --- a/GI/WebKit2/Structs/UserStyleSheet.hs-boot +++ b/GI/WebKit2/Structs/UserStyleSheet.hs-boot @@ -9,3 +9,5 @@ newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet) instance BoxedObject UserStyleSheet where +data UserStyleSheetRefMethodInfo +data UserStyleSheetUnrefMethodInfo diff --git a/gi-webkit2.cabal b/gi-webkit2.cabal --- a/gi-webkit2.cabal +++ b/gi-webkit2.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-webkit2 -version: 0.2.10.12 +version: 0.2.10.13 synopsis: WebKit2 bindings description: Bindings for WebKit2, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,8 +14,8 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + default-extensions: ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations exposed-modules: GI.WebKit2.Types GI.WebKit2 @@ -74,16 +74,16 @@ GI.WebKit2.Structs.UserStyleSheet pkgconfig-depends: webkit2gtk-4.0 >= 2.10 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-atk >= 0.2.18.12 && < 0.2.19, - gi-glib >= 0.2.46.12 && < 0.2.47, - gi-gobject >= 0.2.46.12 && < 0.2.47, - gi-gdk >= 0.3.18.12 && < 0.3.19, - gi-gio >= 0.2.46.12 && < 0.2.47, - gi-gtk >= 0.3.18.12 && < 0.3.19, - gi-javascriptcore >= 0.2.10.12 && < 0.2.11, - gi-soup >= 0.2.52.12 && < 0.2.53, - gi-cairo >= 0.1.14.12 && < 0.1.15, + haskell-gi-base >= 0.13 && < 1, + gi-atk >= 0.2.18.13 && < 0.2.19, + gi-glib >= 0.2.46.13 && < 0.2.47, + gi-gobject >= 0.2.46.13 && < 0.2.47, + gi-gdk >= 0.3.18.13 && < 0.3.19, + gi-gio >= 0.2.46.13 && < 0.2.47, + gi-gtk >= 0.3.18.13 && < 0.3.19, + gi-javascriptcore >= 0.2.10.13 && < 0.2.11, + gi-soup >= 0.2.52.13 && < 0.2.53, + gi-cairo >= 0.1.14.13 && < 0.1.15, bytestring >= 0.10, containers >= 0.5, text >= 1.0,