packages feed

gi-webkit2 0.2.8.11 → 0.2.8.12

raw patch · 97 files changed

+24371/−18647 lines, 97 filesdep ~gi-atkdep ~gi-cairodep ~gi-gdk

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

Files

GI/WebKit2.hs view
@@ -1,15679 +1,40 @@--- Generated code.--{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,-    TypeFamilies, MultiParamTypeClasses, KindSignatures,-    FlexibleInstances, UndecidableInstances, DataKinds,-    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}--module GI.WebKit2 where--import Prelude ()-import Data.GI.Base.ShortPrelude-import Data.Char-import Data.Int-import Data.Word-import qualified Data.ByteString.Char8 as B-import Data.ByteString.Char8 (ByteString)-import qualified Data.Map as Map-import Foreign.C-import Foreign.Ptr-import Foreign.ForeignPtr-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)-import Foreign.Storable (peek, poke, sizeOf)-import Control.Applicative ((<$>))-import Control.Exception (onException)-import Control.Monad.IO.Class-import qualified Data.Text as T--import Data.GI.Base.Attributes hiding (get, set)-import Data.GI.Base.BasicTypes-import Data.GI.Base.BasicConversions-import Data.GI.Base.Closure-import Data.GI.Base.GError-import Data.GI.Base.GHashTable-import Data.GI.Base.GParamSpec-import Data.GI.Base.GVariant-import Data.GI.Base.GValue-import Data.GI.Base.ManagedPtr-import Data.GI.Base.Overloading-import Data.GI.Base.Properties hiding (new)-import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)-import Data.GI.Base.Utils--import qualified GI.Atk as Atk-import qualified GI.AtkAttributes as AtkA-import qualified GI.GLib as GLib-import qualified GI.GLibAttributes as GLibA-import qualified GI.GObject as GObject-import qualified GI.GObjectAttributes as GObjectA-import qualified GI.Gdk as Gdk-import qualified GI.GdkAttributes as GdkA-import qualified GI.Gio as Gio-import qualified GI.GioAttributes as GioA-import qualified GI.Gtk as Gtk-import qualified GI.GtkAttributes as GtkA-import qualified GI.JavaScriptCore as JavaScriptCore-import qualified GI.JavaScriptCoreAttributes as JavaScriptCoreA-import qualified GI.Soup as Soup-import qualified GI.SoupAttributes as SoupA-import qualified GI.Cairo as Cairo-import qualified GI.CairoAttributes as CairoA---- object AuthenticationRequest -newtype AuthenticationRequest = AuthenticationRequest (ForeignPtr AuthenticationRequest)-noAuthenticationRequest :: Maybe AuthenticationRequest-noAuthenticationRequest = Nothing--foreign import ccall "webkit_authentication_request_get_type"-    c_webkit_authentication_request_get_type :: IO GType--type instance ParentTypes AuthenticationRequest = '[GObject.Object]--instance GObject AuthenticationRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_authentication_request_get_type-    --class GObject o => AuthenticationRequestK o-instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o--toAuthenticationRequest :: AuthenticationRequestK o => o -> IO AuthenticationRequest-toAuthenticationRequest = unsafeCastTo AuthenticationRequest---- 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}]--- 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--foreign import ccall "webkit_authentication_request_authenticate" webkit_authentication_request_authenticate :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    Ptr Credential ->                       -- credential : TInterface "WebKit2" "Credential"-    IO ()---authenticationRequestAuthenticate ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    Maybe (Credential) ->                   -- credential-    m ()-authenticationRequestAuthenticate _obj credential = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCredential <- case credential of-        Nothing -> return nullPtr-        Just jCredential -> do-            let jCredential' = unsafeManagedPtrGetPtr jCredential-            return jCredential'-    webkit_authentication_request_authenticate _obj' maybeCredential-    touchManagedPtr _obj-    whenJust credential touchManagedPtr-    return ()---- 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}]--- 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--foreign import ccall "webkit_authentication_request_can_save_credentials" webkit_authentication_request_can_save_credentials :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CInt---authenticationRequestCanSaveCredentials ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Bool-authenticationRequestCanSaveCredentials _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_can_save_credentials _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_authentication_request_cancel" webkit_authentication_request_cancel :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO ()---authenticationRequestCancel ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m ()-authenticationRequestCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_authentication_request_cancel _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_authentication_request_get_host" webkit_authentication_request_get_host :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CString---authenticationRequestGetHost ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m T.Text-authenticationRequestGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_host _obj'-    checkUnexpectedReturnNULL "webkit_authentication_request_get_host" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_authentication_request_get_port" webkit_authentication_request_get_port :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO Word32---authenticationRequestGetPort ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Word32-authenticationRequestGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_port _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_authentication_request_get_proposed_credential" webkit_authentication_request_get_proposed_credential :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO (Ptr Credential)---authenticationRequestGetProposedCredential ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Credential-authenticationRequestGetProposedCredential _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_proposed_credential _obj'-    checkUnexpectedReturnNULL "webkit_authentication_request_get_proposed_credential" result-    result' <- (wrapBoxed Credential) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_authentication_request_get_realm" webkit_authentication_request_get_realm :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CString---authenticationRequestGetRealm ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m T.Text-authenticationRequestGetRealm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_realm _obj'-    checkUnexpectedReturnNULL "webkit_authentication_request_get_realm" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_authentication_request_get_scheme" webkit_authentication_request_get_scheme :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CUInt---authenticationRequestGetScheme ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m AuthenticationScheme-authenticationRequestGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_scheme _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_authentication_request_is_for_proxy" webkit_authentication_request_is_for_proxy :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CInt---authenticationRequestIsForProxy ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Bool-authenticationRequestIsForProxy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_is_for_proxy _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_authentication_request_is_retry" webkit_authentication_request_is_retry :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CInt---authenticationRequestIsRetry ::-    (MonadIO m, AuthenticationRequestK a) =>-    a ->                                    -- _obj-    m Bool-authenticationRequestIsRetry _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_is_retry _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- signal AuthenticationRequest::cancelled-type AuthenticationRequestCancelledCallback =-    IO ()--noAuthenticationRequestCancelledCallback :: Maybe AuthenticationRequestCancelledCallback-noAuthenticationRequestCancelledCallback = Nothing--type AuthenticationRequestCancelledCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkAuthenticationRequestCancelledCallback :: AuthenticationRequestCancelledCallbackC -> IO (FunPtr AuthenticationRequestCancelledCallbackC)--authenticationRequestCancelledClosure :: AuthenticationRequestCancelledCallback -> IO Closure-authenticationRequestCancelledClosure cb = newCClosure =<< mkAuthenticationRequestCancelledCallback wrapped-    where wrapped = authenticationRequestCancelledCallbackWrapper cb--authenticationRequestCancelledCallbackWrapper ::-    AuthenticationRequestCancelledCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-authenticationRequestCancelledCallbackWrapper _cb _ _ = do-    _cb --onAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId-onAuthenticationRequestCancelled obj cb = liftIO $ connectAuthenticationRequestCancelled obj cb SignalConnectBefore-afterAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId-afterAuthenticationRequestCancelled obj cb = connectAuthenticationRequestCancelled obj cb SignalConnectAfter--connectAuthenticationRequestCancelled :: (GObject a, MonadIO m) =>-                                         a -> AuthenticationRequestCancelledCallback -> SignalConnectMode -> m SignalHandlerId-connectAuthenticationRequestCancelled obj cb after = liftIO $ do-    cb' <- mkAuthenticationRequestCancelledCallback (authenticationRequestCancelledCallbackWrapper cb)-    connectSignalFunPtr obj "cancelled" cb' after---- Enum AuthenticationScheme--data AuthenticationScheme = -      AuthenticationSchemeDefault-    | AuthenticationSchemeHttpBasic-    | AuthenticationSchemeHttpDigest-    | AuthenticationSchemeHtmlForm-    | AuthenticationSchemeNtlm-    | AuthenticationSchemeNegotiate-    | AuthenticationSchemeClientCertificateRequested-    | AuthenticationSchemeServerTrustEvaluationRequested-    | AuthenticationSchemeUnknown-    | AnotherAuthenticationScheme Int-    deriving (Show, Eq)--instance Enum AuthenticationScheme where-    fromEnum AuthenticationSchemeDefault = 1-    fromEnum AuthenticationSchemeHttpBasic = 2-    fromEnum AuthenticationSchemeHttpDigest = 3-    fromEnum AuthenticationSchemeHtmlForm = 4-    fromEnum AuthenticationSchemeNtlm = 5-    fromEnum AuthenticationSchemeNegotiate = 6-    fromEnum AuthenticationSchemeClientCertificateRequested = 7-    fromEnum AuthenticationSchemeServerTrustEvaluationRequested = 8-    fromEnum AuthenticationSchemeUnknown = 100-    fromEnum (AnotherAuthenticationScheme k) = k--    toEnum 1 = AuthenticationSchemeDefault-    toEnum 2 = AuthenticationSchemeHttpBasic-    toEnum 3 = AuthenticationSchemeHttpDigest-    toEnum 4 = AuthenticationSchemeHtmlForm-    toEnum 5 = AuthenticationSchemeNtlm-    toEnum 6 = AuthenticationSchemeNegotiate-    toEnum 7 = AuthenticationSchemeClientCertificateRequested-    toEnum 8 = AuthenticationSchemeServerTrustEvaluationRequested-    toEnum 100 = AuthenticationSchemeUnknown-    toEnum k = AnotherAuthenticationScheme k--foreign import ccall "webkit_authentication_scheme_get_type" c_webkit_authentication_scheme_get_type :: -    IO GType--instance BoxedEnum AuthenticationScheme where-    boxedEnumType _ = c_webkit_authentication_scheme_get_type---- object BackForwardList -newtype BackForwardList = BackForwardList (ForeignPtr BackForwardList)-noBackForwardList :: Maybe BackForwardList-noBackForwardList = Nothing--foreign import ccall "webkit_back_forward_list_get_type"-    c_webkit_back_forward_list_get_type :: IO GType--type instance ParentTypes BackForwardList = '[GObject.Object]--instance GObject BackForwardList where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_back_forward_list_get_type-    --class GObject o => BackForwardListK o-instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o--toBackForwardList :: BackForwardListK o => o -> IO BackForwardList-toBackForwardList = unsafeCastTo BackForwardList---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_back_item" webkit_back_forward_list_get_back_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr BackForwardListItem)---backForwardListGetBackItem ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m BackForwardListItem-backForwardListGetBackItem _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_back_item _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_back_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_back_list" webkit_back_forward_list_get_back_list :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetBackList ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m [BackForwardListItem]-backForwardListGetBackList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_back_list _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_back_list" result-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_back_list_with_limit" webkit_back_forward_list_get_back_list_with_limit :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    Word32 ->                               -- limit : TBasicType TUInt32-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetBackListWithLimit ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- limit-    m [BackForwardListItem]-backForwardListGetBackListWithLimit _obj limit = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_back_list_with_limit _obj' limit-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_back_list_with_limit" result-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_current_item" webkit_back_forward_list_get_current_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr BackForwardListItem)---backForwardListGetCurrentItem ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m BackForwardListItem-backForwardListGetCurrentItem _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_current_item _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_current_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_forward_item" webkit_back_forward_list_get_forward_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr BackForwardListItem)---backForwardListGetForwardItem ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m BackForwardListItem-backForwardListGetForwardItem _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_forward_item _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_forward_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_forward_list" webkit_back_forward_list_get_forward_list :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetForwardList ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m [BackForwardListItem]-backForwardListGetForwardList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_forward_list _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_forward_list" result-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_forward_list_with_limit" webkit_back_forward_list_get_forward_list_with_limit :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    Word32 ->                               -- limit : TBasicType TUInt32-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetForwardListWithLimit ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- limit-    m [BackForwardListItem]-backForwardListGetForwardListWithLimit _obj limit = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_forward_list_with_limit _obj' limit-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_forward_list_with_limit" result-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_length" webkit_back_forward_list_get_length :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO Word32---backForwardListGetLength ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    m Word32-backForwardListGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_length _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_get_nth_item" webkit_back_forward_list_get_nth_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    Int32 ->                                -- index : TBasicType TInt32-    IO (Ptr BackForwardListItem)---backForwardListGetNthItem ::-    (MonadIO m, BackForwardListK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index-    m BackForwardListItem-backForwardListGetNthItem _obj index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_nth_item _obj' index-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_nth_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'---- signal BackForwardList::changed-type BackForwardListChangedCallback =-    Maybe BackForwardListItem ->-    Ptr () ->-    IO ()--noBackForwardListChangedCallback :: Maybe BackForwardListChangedCallback-noBackForwardListChangedCallback = Nothing--type BackForwardListChangedCallbackC =-    Ptr () ->                               -- object-    Ptr BackForwardListItem ->-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkBackForwardListChangedCallback :: BackForwardListChangedCallbackC -> IO (FunPtr BackForwardListChangedCallbackC)--backForwardListChangedClosure :: BackForwardListChangedCallback -> IO Closure-backForwardListChangedClosure cb = newCClosure =<< mkBackForwardListChangedCallback wrapped-    where wrapped = backForwardListChangedCallbackWrapper cb--backForwardListChangedCallbackWrapper ::-    BackForwardListChangedCallback ->-    Ptr () ->-    Ptr BackForwardListItem ->-    Ptr () ->-    Ptr () ->-    IO ()-backForwardListChangedCallbackWrapper _cb _ item_added items_removed _ = do-    maybeItem_added <--        if item_added == nullPtr-        then return Nothing-        else do-            item_added' <- (newObject BackForwardListItem) item_added-            return $ Just item_added'-    _cb  maybeItem_added items_removed--onBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId-onBackForwardListChanged obj cb = liftIO $ connectBackForwardListChanged obj cb SignalConnectBefore-afterBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId-afterBackForwardListChanged obj cb = connectBackForwardListChanged obj cb SignalConnectAfter--connectBackForwardListChanged :: (GObject a, MonadIO m) =>-                                 a -> BackForwardListChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectBackForwardListChanged obj cb after = liftIO $ do-    cb' <- mkBackForwardListChangedCallback (backForwardListChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- object BackForwardListItem -newtype BackForwardListItem = BackForwardListItem (ForeignPtr BackForwardListItem)-noBackForwardListItem :: Maybe BackForwardListItem-noBackForwardListItem = Nothing--foreign import ccall "webkit_back_forward_list_item_get_type"-    c_webkit_back_forward_list_item_get_type :: IO GType--type instance ParentTypes BackForwardListItem = '[GObject.Object]--instance GObject BackForwardListItem where-    gobjectIsInitiallyUnowned _ = True-    gobjectType _ = c_webkit_back_forward_list_item_get_type-    --class GObject o => BackForwardListItemK o-instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o--toBackForwardListItem :: BackForwardListItemK o => o -> IO BackForwardListItem-toBackForwardListItem = unsafeCastTo BackForwardListItem---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_item_get_original_uri" webkit_back_forward_list_item_get_original_uri :: -    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"-    IO CString---backForwardListItemGetOriginalUri ::-    (MonadIO m, BackForwardListItemK a) =>-    a ->                                    -- _obj-    m T.Text-backForwardListItemGetOriginalUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_item_get_original_uri _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_original_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_item_get_title" webkit_back_forward_list_item_get_title :: -    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"-    IO CString---backForwardListItemGetTitle ::-    (MonadIO m, BackForwardListItemK a) =>-    a ->                                    -- _obj-    m T.Text-backForwardListItemGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_item_get_title _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_back_forward_list_item_get_uri" webkit_back_forward_list_item_get_uri :: -    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"-    IO CString---backForwardListItemGetUri ::-    (MonadIO m, BackForwardListItemK a) =>-    a ->                                    -- _obj-    m T.Text-backForwardListItemGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_item_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- Enum CacheModel--data CacheModel = -      CacheModelDocumentViewer-    | CacheModelWebBrowser-    | CacheModelDocumentBrowser-    | AnotherCacheModel Int-    deriving (Show, Eq)--instance Enum CacheModel where-    fromEnum CacheModelDocumentViewer = 0-    fromEnum CacheModelWebBrowser = 1-    fromEnum CacheModelDocumentBrowser = 2-    fromEnum (AnotherCacheModel k) = k--    toEnum 0 = CacheModelDocumentViewer-    toEnum 1 = CacheModelWebBrowser-    toEnum 2 = CacheModelDocumentBrowser-    toEnum k = AnotherCacheModel k--foreign import ccall "webkit_cache_model_get_type" c_webkit_cache_model_get_type :: -    IO GType--instance BoxedEnum CacheModel where-    boxedEnumType _ = c_webkit_cache_model_get_type---- object ColorChooserRequest -newtype ColorChooserRequest = ColorChooserRequest (ForeignPtr ColorChooserRequest)-noColorChooserRequest :: Maybe ColorChooserRequest-noColorChooserRequest = Nothing--foreign import ccall "webkit_color_chooser_request_get_type"-    c_webkit_color_chooser_request_get_type :: IO GType--type instance ParentTypes ColorChooserRequest = '[GObject.Object]--instance GObject ColorChooserRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_color_chooser_request_get_type-    --class GObject o => ColorChooserRequestK o-instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o--toColorChooserRequest :: ColorChooserRequestK o => o -> IO ColorChooserRequest-toColorChooserRequest = unsafeCastTo ColorChooserRequest---- 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}]--- 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--foreign import ccall "webkit_color_chooser_request_cancel" webkit_color_chooser_request_cancel :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    IO ()---colorChooserRequestCancel ::-    (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m ()-colorChooserRequestCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_color_chooser_request_cancel _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_color_chooser_request_finish" webkit_color_chooser_request_finish :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    IO ()---colorChooserRequestFinish ::-    (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m ()-colorChooserRequestFinish _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_color_chooser_request_finish _obj'-    touchManagedPtr _obj-    return ()---- 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 "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, 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--foreign import ccall "webkit_color_chooser_request_get_element_rectangle" webkit_color_chooser_request_get_element_rectangle :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    Ptr Cairo.RectangleInt ->               -- rect : TInterface "cairo" "RectangleInt"-    IO ()---colorChooserRequestGetElementRectangle ::-    (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m (Cairo.RectangleInt)-colorChooserRequestGetElementRectangle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    webkit_color_chooser_request_get_element_rectangle _obj' rect-    rect' <- (wrapBoxed Cairo.RectangleInt) rect-    touchManagedPtr _obj-    return rect'---- 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}]--- 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--foreign import ccall "webkit_color_chooser_request_get_rgba" webkit_color_chooser_request_get_rgba :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"-    IO ()---colorChooserRequestGetRgba ::-    (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    m (Gdk.RGBA)-colorChooserRequestGetRgba _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)-    webkit_color_chooser_request_get_rgba _obj' rgba-    rgba' <- (wrapBoxed Gdk.RGBA) rgba-    touchManagedPtr _obj-    return rgba'---- 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}]--- 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--foreign import ccall "webkit_color_chooser_request_set_rgba" webkit_color_chooser_request_set_rgba :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"-    IO ()---colorChooserRequestSetRgba ::-    (MonadIO m, ColorChooserRequestK a) =>-    a ->                                    -- _obj-    Gdk.RGBA ->                             -- rgba-    m ()-colorChooserRequestSetRgba _obj rgba = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let rgba' = unsafeManagedPtrGetPtr rgba-    webkit_color_chooser_request_set_rgba _obj' rgba'-    touchManagedPtr _obj-    touchManagedPtr rgba-    return ()---- signal ColorChooserRequest::finished-type ColorChooserRequestFinishedCallback =-    IO ()--noColorChooserRequestFinishedCallback :: Maybe ColorChooserRequestFinishedCallback-noColorChooserRequestFinishedCallback = Nothing--type ColorChooserRequestFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkColorChooserRequestFinishedCallback :: ColorChooserRequestFinishedCallbackC -> IO (FunPtr ColorChooserRequestFinishedCallbackC)--colorChooserRequestFinishedClosure :: ColorChooserRequestFinishedCallback -> IO Closure-colorChooserRequestFinishedClosure cb = newCClosure =<< mkColorChooserRequestFinishedCallback wrapped-    where wrapped = colorChooserRequestFinishedCallbackWrapper cb--colorChooserRequestFinishedCallbackWrapper ::-    ColorChooserRequestFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-colorChooserRequestFinishedCallbackWrapper _cb _ _ = do-    _cb --onColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId-onColorChooserRequestFinished obj cb = liftIO $ connectColorChooserRequestFinished obj cb SignalConnectBefore-afterColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId-afterColorChooserRequestFinished obj cb = connectColorChooserRequestFinished obj cb SignalConnectAfter--connectColorChooserRequestFinished :: (GObject a, MonadIO m) =>-                                      a -> ColorChooserRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectColorChooserRequestFinished obj cb after = liftIO $ do-    cb' <- mkColorChooserRequestFinishedCallback (colorChooserRequestFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- object ContextMenu -newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu)-noContextMenu :: Maybe ContextMenu-noContextMenu = Nothing--foreign import ccall "webkit_context_menu_get_type"-    c_webkit_context_menu_get_type :: IO GType--type instance ParentTypes ContextMenu = '[GObject.Object]--instance GObject ContextMenu where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_context_menu_get_type-    --class GObject o => ContextMenuK o-instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o--toContextMenu :: ContextMenuK o => o -> IO ContextMenu-toContextMenu = unsafeCastTo ContextMenu---- method ContextMenu::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "WebKit2" "ContextMenu"--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_new" webkit_context_menu_new :: -    IO (Ptr ContextMenu)---contextMenuNew ::-    (MonadIO m) =>-    m ContextMenu-contextMenuNew  = liftIO $ do-    result <- webkit_context_menu_new-    checkUnexpectedReturnNULL "webkit_context_menu_new" result-    result' <- (wrapObject ContextMenu) result-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_new_with_items" webkit_context_menu_new_with_items :: -    Ptr (GList (Ptr ContextMenuItem)) ->    -- items : TGList (TInterface "WebKit2" "ContextMenuItem")-    IO (Ptr ContextMenu)---contextMenuNewWithItems ::-    (MonadIO m, ContextMenuItemK a) =>-    [a] ->                                  -- items-    m ContextMenu-contextMenuNewWithItems items = liftIO $ do-    let items' = map unsafeManagedPtrCastPtr items-    items'' <- packGList items'-    result <- webkit_context_menu_new_with_items items''-    checkUnexpectedReturnNULL "webkit_context_menu_new_with_items" result-    result' <- (wrapObject ContextMenu) result-    mapM_ touchManagedPtr items-    g_list_free items''-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_append" webkit_context_menu_append :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    IO ()---contextMenuAppend ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    m ()-contextMenuAppend _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_append _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()---- 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}]--- 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--foreign import ccall "webkit_context_menu_first" webkit_context_menu_first :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr ContextMenuItem)---contextMenuFirst ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m ContextMenuItem-contextMenuFirst _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_first _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_first" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_get_item_at_position" webkit_context_menu_get_item_at_position :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Word32 ->                               -- position : TBasicType TUInt32-    IO (Ptr ContextMenuItem)---contextMenuGetItemAtPosition ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- position-    m ContextMenuItem-contextMenuGetItemAtPosition _obj position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_item_at_position _obj' position-    checkUnexpectedReturnNULL "webkit_context_menu_get_item_at_position" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_get_items" webkit_context_menu_get_items :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr (GList (Ptr ContextMenuItem)))---contextMenuGetItems ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m [ContextMenuItem]-contextMenuGetItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_items _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_get_items" result-    result' <- unpackGList result-    result'' <- mapM (newObject ContextMenuItem) result'-    touchManagedPtr _obj-    return result''---- 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}]--- 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--foreign import ccall "webkit_context_menu_get_n_items" webkit_context_menu_get_n_items :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO Word32---contextMenuGetNItems ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m Word32-contextMenuGetNItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_n_items _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_context_menu_get_user_data" webkit_context_menu_get_user_data :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr GVariant)---contextMenuGetUserData ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m GVariant-contextMenuGetUserData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_user_data _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_get_user_data" result-    result' <- newGVariantFromPtr result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_insert" webkit_context_menu_insert :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    Int32 ->                                -- position : TBasicType TInt32-    IO ()---contextMenuInsert ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    Int32 ->                                -- position-    m ()-contextMenuInsert _obj item position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_insert _obj' item' position-    touchManagedPtr _obj-    touchManagedPtr item-    return ()---- 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}]--- 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--foreign import ccall "webkit_context_menu_last" webkit_context_menu_last :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr ContextMenuItem)---contextMenuLast ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m ContextMenuItem-contextMenuLast _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_last _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_last" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_move_item" webkit_context_menu_move_item :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    Int32 ->                                -- position : TBasicType TInt32-    IO ()---contextMenuMoveItem ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    Int32 ->                                -- position-    m ()-contextMenuMoveItem _obj item position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_move_item _obj' item' position-    touchManagedPtr _obj-    touchManagedPtr item-    return ()---- 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}]--- 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--foreign import ccall "webkit_context_menu_prepend" webkit_context_menu_prepend :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    IO ()---contextMenuPrepend ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    m ()-contextMenuPrepend _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_prepend _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()---- 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}]--- 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--foreign import ccall "webkit_context_menu_remove" webkit_context_menu_remove :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    IO ()---contextMenuRemove ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a ->                                    -- _obj-    b ->                                    -- item-    m ()-contextMenuRemove _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_remove _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()---- 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}]--- 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--foreign import ccall "webkit_context_menu_remove_all" webkit_context_menu_remove_all :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO ()---contextMenuRemoveAll ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    m ()-contextMenuRemoveAll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_context_menu_remove_all _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_context_menu_set_user_data" webkit_context_menu_set_user_data :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr GVariant ->                         -- user_data : TVariant-    IO ()---contextMenuSetUserData ::-    (MonadIO m, ContextMenuK a) =>-    a ->                                    -- _obj-    GVariant ->                             -- user_data-    m ()-contextMenuSetUserData _obj user_data = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let user_data' = unsafeManagedPtrGetPtr user_data-    webkit_context_menu_set_user_data _obj' user_data'-    touchManagedPtr _obj-    return ()---- Enum ContextMenuAction--data ContextMenuAction = -      ContextMenuActionNoAction-    | ContextMenuActionOpenLink-    | ContextMenuActionOpenLinkInNewWindow-    | ContextMenuActionDownloadLinkToDisk-    | ContextMenuActionCopyLinkToClipboard-    | ContextMenuActionOpenImageInNewWindow-    | ContextMenuActionDownloadImageToDisk-    | ContextMenuActionCopyImageToClipboard-    | ContextMenuActionCopyImageUrlToClipboard-    | ContextMenuActionOpenFrameInNewWindow-    | ContextMenuActionGoBack-    | ContextMenuActionGoForward-    | ContextMenuActionStop-    | ContextMenuActionReload-    | ContextMenuActionCopy-    | ContextMenuActionCut-    | ContextMenuActionPaste-    | ContextMenuActionDelete-    | ContextMenuActionSelectAll-    | ContextMenuActionInputMethods-    | ContextMenuActionUnicode-    | ContextMenuActionSpellingGuess-    | ContextMenuActionNoGuessesFound-    | ContextMenuActionIgnoreSpelling-    | ContextMenuActionLearnSpelling-    | ContextMenuActionIgnoreGrammar-    | ContextMenuActionFontMenu-    | ContextMenuActionBold-    | ContextMenuActionItalic-    | ContextMenuActionUnderline-    | ContextMenuActionOutline-    | ContextMenuActionInspectElement-    | ContextMenuActionOpenVideoInNewWindow-    | ContextMenuActionOpenAudioInNewWindow-    | ContextMenuActionCopyVideoLinkToClipboard-    | ContextMenuActionCopyAudioLinkToClipboard-    | ContextMenuActionToggleMediaControls-    | ContextMenuActionToggleMediaLoop-    | ContextMenuActionEnterVideoFullscreen-    | ContextMenuActionMediaPlay-    | ContextMenuActionMediaPause-    | ContextMenuActionMediaMute-    | ContextMenuActionDownloadVideoToDisk-    | ContextMenuActionDownloadAudioToDisk-    | ContextMenuActionCustom-    | AnotherContextMenuAction Int-    deriving (Show, Eq)--instance Enum ContextMenuAction where-    fromEnum ContextMenuActionNoAction = 0-    fromEnum ContextMenuActionOpenLink = 1-    fromEnum ContextMenuActionOpenLinkInNewWindow = 2-    fromEnum ContextMenuActionDownloadLinkToDisk = 3-    fromEnum ContextMenuActionCopyLinkToClipboard = 4-    fromEnum ContextMenuActionOpenImageInNewWindow = 5-    fromEnum ContextMenuActionDownloadImageToDisk = 6-    fromEnum ContextMenuActionCopyImageToClipboard = 7-    fromEnum ContextMenuActionCopyImageUrlToClipboard = 8-    fromEnum ContextMenuActionOpenFrameInNewWindow = 9-    fromEnum ContextMenuActionGoBack = 10-    fromEnum ContextMenuActionGoForward = 11-    fromEnum ContextMenuActionStop = 12-    fromEnum ContextMenuActionReload = 13-    fromEnum ContextMenuActionCopy = 14-    fromEnum ContextMenuActionCut = 15-    fromEnum ContextMenuActionPaste = 16-    fromEnum ContextMenuActionDelete = 17-    fromEnum ContextMenuActionSelectAll = 18-    fromEnum ContextMenuActionInputMethods = 19-    fromEnum ContextMenuActionUnicode = 20-    fromEnum ContextMenuActionSpellingGuess = 21-    fromEnum ContextMenuActionNoGuessesFound = 22-    fromEnum ContextMenuActionIgnoreSpelling = 23-    fromEnum ContextMenuActionLearnSpelling = 24-    fromEnum ContextMenuActionIgnoreGrammar = 25-    fromEnum ContextMenuActionFontMenu = 26-    fromEnum ContextMenuActionBold = 27-    fromEnum ContextMenuActionItalic = 28-    fromEnum ContextMenuActionUnderline = 29-    fromEnum ContextMenuActionOutline = 30-    fromEnum ContextMenuActionInspectElement = 31-    fromEnum ContextMenuActionOpenVideoInNewWindow = 32-    fromEnum ContextMenuActionOpenAudioInNewWindow = 33-    fromEnum ContextMenuActionCopyVideoLinkToClipboard = 34-    fromEnum ContextMenuActionCopyAudioLinkToClipboard = 35-    fromEnum ContextMenuActionToggleMediaControls = 36-    fromEnum ContextMenuActionToggleMediaLoop = 37-    fromEnum ContextMenuActionEnterVideoFullscreen = 38-    fromEnum ContextMenuActionMediaPlay = 39-    fromEnum ContextMenuActionMediaPause = 40-    fromEnum ContextMenuActionMediaMute = 41-    fromEnum ContextMenuActionDownloadVideoToDisk = 42-    fromEnum ContextMenuActionDownloadAudioToDisk = 43-    fromEnum ContextMenuActionCustom = 10000-    fromEnum (AnotherContextMenuAction k) = k--    toEnum 0 = ContextMenuActionNoAction-    toEnum 1 = ContextMenuActionOpenLink-    toEnum 2 = ContextMenuActionOpenLinkInNewWindow-    toEnum 3 = ContextMenuActionDownloadLinkToDisk-    toEnum 4 = ContextMenuActionCopyLinkToClipboard-    toEnum 5 = ContextMenuActionOpenImageInNewWindow-    toEnum 6 = ContextMenuActionDownloadImageToDisk-    toEnum 7 = ContextMenuActionCopyImageToClipboard-    toEnum 8 = ContextMenuActionCopyImageUrlToClipboard-    toEnum 9 = ContextMenuActionOpenFrameInNewWindow-    toEnum 10 = ContextMenuActionGoBack-    toEnum 11 = ContextMenuActionGoForward-    toEnum 12 = ContextMenuActionStop-    toEnum 13 = ContextMenuActionReload-    toEnum 14 = ContextMenuActionCopy-    toEnum 15 = ContextMenuActionCut-    toEnum 16 = ContextMenuActionPaste-    toEnum 17 = ContextMenuActionDelete-    toEnum 18 = ContextMenuActionSelectAll-    toEnum 19 = ContextMenuActionInputMethods-    toEnum 20 = ContextMenuActionUnicode-    toEnum 21 = ContextMenuActionSpellingGuess-    toEnum 22 = ContextMenuActionNoGuessesFound-    toEnum 23 = ContextMenuActionIgnoreSpelling-    toEnum 24 = ContextMenuActionLearnSpelling-    toEnum 25 = ContextMenuActionIgnoreGrammar-    toEnum 26 = ContextMenuActionFontMenu-    toEnum 27 = ContextMenuActionBold-    toEnum 28 = ContextMenuActionItalic-    toEnum 29 = ContextMenuActionUnderline-    toEnum 30 = ContextMenuActionOutline-    toEnum 31 = ContextMenuActionInspectElement-    toEnum 32 = ContextMenuActionOpenVideoInNewWindow-    toEnum 33 = ContextMenuActionOpenAudioInNewWindow-    toEnum 34 = ContextMenuActionCopyVideoLinkToClipboard-    toEnum 35 = ContextMenuActionCopyAudioLinkToClipboard-    toEnum 36 = ContextMenuActionToggleMediaControls-    toEnum 37 = ContextMenuActionToggleMediaLoop-    toEnum 38 = ContextMenuActionEnterVideoFullscreen-    toEnum 39 = ContextMenuActionMediaPlay-    toEnum 40 = ContextMenuActionMediaPause-    toEnum 41 = ContextMenuActionMediaMute-    toEnum 42 = ContextMenuActionDownloadVideoToDisk-    toEnum 43 = ContextMenuActionDownloadAudioToDisk-    toEnum 10000 = ContextMenuActionCustom-    toEnum k = AnotherContextMenuAction k--foreign import ccall "webkit_context_menu_action_get_type" c_webkit_context_menu_action_get_type :: -    IO GType--instance BoxedEnum ContextMenuAction where-    boxedEnumType _ = c_webkit_context_menu_action_get_type---- object ContextMenuItem -newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem)-noContextMenuItem :: Maybe ContextMenuItem-noContextMenuItem = Nothing--foreign import ccall "webkit_context_menu_item_get_type"-    c_webkit_context_menu_item_get_type :: IO GType--type instance ParentTypes ContextMenuItem = '[GObject.Object]--instance GObject ContextMenuItem where-    gobjectIsInitiallyUnowned _ = True-    gobjectType _ = c_webkit_context_menu_item_get_type-    --class GObject o => ContextMenuItemK o-instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o--toContextMenuItem :: ContextMenuItemK o => o -> IO ContextMenuItem-toContextMenuItem = unsafeCastTo ContextMenuItem---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_new" webkit_context_menu_item_new :: -    Ptr Gtk.Action ->                       -- action : TInterface "Gtk" "Action"-    IO (Ptr ContextMenuItem)---contextMenuItemNew ::-    (MonadIO m, Gtk.ActionK a) =>-    a ->                                    -- action-    m ContextMenuItem-contextMenuItemNew action = liftIO $ do-    let action' = unsafeManagedPtrCastPtr action-    result <- webkit_context_menu_item_new action'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr action-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_new_from_stock_action" webkit_context_menu_item_new_from_stock_action :: -    CUInt ->                                -- action : TInterface "WebKit2" "ContextMenuAction"-    IO (Ptr ContextMenuItem)---contextMenuItemNewFromStockAction ::-    (MonadIO m) =>-    ContextMenuAction ->                    -- action-    m ContextMenuItem-contextMenuItemNewFromStockAction action = liftIO $ do-    let action' = (fromIntegral . fromEnum) action-    result <- webkit_context_menu_item_new_from_stock_action action'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action" result-    result' <- (newObject ContextMenuItem) result-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_new_from_stock_action_with_label" webkit_context_menu_item_new_from_stock_action_with_label :: -    CUInt ->                                -- action : TInterface "WebKit2" "ContextMenuAction"-    CString ->                              -- label : TBasicType TUTF8-    IO (Ptr ContextMenuItem)---contextMenuItemNewFromStockActionWithLabel ::-    (MonadIO m) =>-    ContextMenuAction ->                    -- action-    T.Text ->                               -- label-    m ContextMenuItem-contextMenuItemNewFromStockActionWithLabel action label = liftIO $ do-    let action' = (fromIntegral . fromEnum) action-    label' <- textToCString label-    result <- webkit_context_menu_item_new_from_stock_action_with_label action' label'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action_with_label" result-    result' <- (newObject ContextMenuItem) result-    freeMem label'-    return result'---- method ContextMenuItem::new_separator--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "WebKit2" "ContextMenuItem"--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_new_separator" webkit_context_menu_item_new_separator :: -    IO (Ptr ContextMenuItem)---contextMenuItemNewSeparator ::-    (MonadIO m) =>-    m ContextMenuItem-contextMenuItemNewSeparator  = liftIO $ do-    result <- webkit_context_menu_item_new_separator-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_separator" result-    result' <- (newObject ContextMenuItem) result-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_new_with_submenu" webkit_context_menu_item_new_with_submenu :: -    CString ->                              -- label : TBasicType TUTF8-    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2" "ContextMenu"-    IO (Ptr ContextMenuItem)---contextMenuItemNewWithSubmenu ::-    (MonadIO m, ContextMenuK a) =>-    T.Text ->                               -- label-    a ->                                    -- submenu-    m ContextMenuItem-contextMenuItemNewWithSubmenu label submenu = liftIO $ do-    label' <- textToCString label-    let submenu' = unsafeManagedPtrCastPtr submenu-    result <- webkit_context_menu_item_new_with_submenu label' submenu'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_with_submenu" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr submenu-    freeMem label'-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO (Ptr Gtk.Action)---contextMenuItemGetAction ::-    (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m Gtk.Action-contextMenuItemGetAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_get_action _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_item_get_action" result-    result' <- (newObject Gtk.Action) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_get_stock_action" webkit_context_menu_item_get_stock_action :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO CUInt---contextMenuItemGetStockAction ::-    (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m ContextMenuAction-contextMenuItemGetStockAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_get_stock_action _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_get_submenu" webkit_context_menu_item_get_submenu :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO (Ptr ContextMenu)---contextMenuItemGetSubmenu ::-    (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m ContextMenu-contextMenuItemGetSubmenu _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_get_submenu _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_item_get_submenu" result-    result' <- (newObject ContextMenu) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_is_separator" webkit_context_menu_item_is_separator :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO CInt---contextMenuItemIsSeparator ::-    (MonadIO m, ContextMenuItemK a) =>-    a ->                                    -- _obj-    m Bool-contextMenuItemIsSeparator _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_is_separator _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_context_menu_item_set_submenu" webkit_context_menu_item_set_submenu :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2" "ContextMenu"-    IO ()---contextMenuItemSetSubmenu ::-    (MonadIO m, ContextMenuItemK a, ContextMenuK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- submenu-    m ()-contextMenuItemSetSubmenu _obj submenu = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeSubmenu <- case submenu of-        Nothing -> return nullPtr-        Just jSubmenu -> do-            let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu-            return jSubmenu'-    webkit_context_menu_item_set_submenu _obj' maybeSubmenu-    touchManagedPtr _obj-    whenJust submenu touchManagedPtr-    return ()---- Enum CookieAcceptPolicy--data CookieAcceptPolicy = -      CookieAcceptPolicyAlways-    | CookieAcceptPolicyNever-    | CookieAcceptPolicyNoThirdParty-    | AnotherCookieAcceptPolicy Int-    deriving (Show, Eq)--instance Enum CookieAcceptPolicy where-    fromEnum CookieAcceptPolicyAlways = 0-    fromEnum CookieAcceptPolicyNever = 1-    fromEnum CookieAcceptPolicyNoThirdParty = 2-    fromEnum (AnotherCookieAcceptPolicy k) = k--    toEnum 0 = CookieAcceptPolicyAlways-    toEnum 1 = CookieAcceptPolicyNever-    toEnum 2 = CookieAcceptPolicyNoThirdParty-    toEnum k = AnotherCookieAcceptPolicy k--foreign import ccall "webkit_cookie_accept_policy_get_type" c_webkit_cookie_accept_policy_get_type :: -    IO GType--instance BoxedEnum CookieAcceptPolicy where-    boxedEnumType _ = c_webkit_cookie_accept_policy_get_type---- object CookieManager -newtype CookieManager = CookieManager (ForeignPtr CookieManager)-noCookieManager :: Maybe CookieManager-noCookieManager = Nothing--foreign import ccall "webkit_cookie_manager_get_type"-    c_webkit_cookie_manager_get_type :: IO GType--type instance ParentTypes CookieManager = '[GObject.Object]--instance GObject CookieManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_cookie_manager_get_type-    --class GObject o => CookieManagerK o-instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o--toCookieManager :: CookieManagerK o => o -> IO CookieManager-toCookieManager = unsafeCastTo CookieManager---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_delete_all_cookies" webkit_cookie_manager_delete_all_cookies :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    IO ()---cookieManagerDeleteAllCookies ::-    (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    m ()-cookieManagerDeleteAllCookies _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_cookie_manager_delete_all_cookies _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_delete_cookies_for_domain" webkit_cookie_manager_delete_cookies_for_domain :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    CString ->                              -- domain : TBasicType TUTF8-    IO ()---cookieManagerDeleteCookiesForDomain ::-    (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- domain-    m ()-cookieManagerDeleteCookiesForDomain _obj domain = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    domain' <- textToCString domain-    webkit_cookie_manager_delete_cookies_for_domain _obj' domain'-    touchManagedPtr _obj-    freeMem domain'-    return ()---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_get_accept_policy" webkit_cookie_manager_get_accept_policy :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---cookieManagerGetAcceptPolicy ::-    (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-cookieManagerGetAcceptPolicy _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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_cookie_manager_get_accept_policy _obj' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_get_accept_policy_finish" webkit_cookie_manager_get_accept_policy_finish :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---cookieManagerGetAcceptPolicyFinish ::-    (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m CookieAcceptPolicy-cookieManagerGetAcceptPolicyFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_cookie_manager_get_accept_policy_finish _obj' result_'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_get_domains_with_cookies" webkit_cookie_manager_get_domains_with_cookies :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---cookieManagerGetDomainsWithCookies ::-    (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-cookieManagerGetDomainsWithCookies _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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_cookie_manager_get_domains_with_cookies _obj' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_get_domains_with_cookies_finish" webkit_cookie_manager_get_domains_with_cookies_finish :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---cookieManagerGetDomainsWithCookiesFinish ::-    (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m [T.Text]-cookieManagerGetDomainsWithCookiesFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_cookie_manager_get_domains_with_cookies_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_cookie_manager_get_domains_with_cookies_finish" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_set_accept_policy" webkit_cookie_manager_set_accept_policy :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    CUInt ->                                -- policy : TInterface "WebKit2" "CookieAcceptPolicy"-    IO ()---cookieManagerSetAcceptPolicy ::-    (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    CookieAcceptPolicy ->                   -- policy-    m ()-cookieManagerSetAcceptPolicy _obj policy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let policy' = (fromIntegral . fromEnum) policy-    webkit_cookie_manager_set_accept_policy _obj' policy'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_cookie_manager_set_persistent_storage" webkit_cookie_manager_set_persistent_storage :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    CString ->                              -- filename : TBasicType TUTF8-    CUInt ->                                -- storage : TInterface "WebKit2" "CookiePersistentStorage"-    IO ()---cookieManagerSetPersistentStorage ::-    (MonadIO m, CookieManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- filename-    CookiePersistentStorage ->              -- storage-    m ()-cookieManagerSetPersistentStorage _obj filename storage = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    filename' <- textToCString filename-    let storage' = (fromIntegral . fromEnum) storage-    webkit_cookie_manager_set_persistent_storage _obj' filename' storage'-    touchManagedPtr _obj-    freeMem filename'-    return ()---- signal CookieManager::changed-type CookieManagerChangedCallback =-    IO ()--noCookieManagerChangedCallback :: Maybe CookieManagerChangedCallback-noCookieManagerChangedCallback = Nothing--type CookieManagerChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkCookieManagerChangedCallback :: CookieManagerChangedCallbackC -> IO (FunPtr CookieManagerChangedCallbackC)--cookieManagerChangedClosure :: CookieManagerChangedCallback -> IO Closure-cookieManagerChangedClosure cb = newCClosure =<< mkCookieManagerChangedCallback wrapped-    where wrapped = cookieManagerChangedCallbackWrapper cb--cookieManagerChangedCallbackWrapper ::-    CookieManagerChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-cookieManagerChangedCallbackWrapper _cb _ _ = do-    _cb --onCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId-onCookieManagerChanged obj cb = liftIO $ connectCookieManagerChanged obj cb SignalConnectBefore-afterCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId-afterCookieManagerChanged obj cb = connectCookieManagerChanged obj cb SignalConnectAfter--connectCookieManagerChanged :: (GObject a, MonadIO m) =>-                               a -> CookieManagerChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectCookieManagerChanged obj cb after = liftIO $ do-    cb' <- mkCookieManagerChangedCallback (cookieManagerChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- Enum CookiePersistentStorage--data CookiePersistentStorage = -      CookiePersistentStorageText-    | CookiePersistentStorageSqlite-    | AnotherCookiePersistentStorage Int-    deriving (Show, Eq)--instance Enum CookiePersistentStorage where-    fromEnum CookiePersistentStorageText = 0-    fromEnum CookiePersistentStorageSqlite = 1-    fromEnum (AnotherCookiePersistentStorage k) = k--    toEnum 0 = CookiePersistentStorageText-    toEnum 1 = CookiePersistentStorageSqlite-    toEnum k = AnotherCookiePersistentStorage k--foreign import ccall "webkit_cookie_persistent_storage_get_type" c_webkit_cookie_persistent_storage_get_type :: -    IO GType--instance BoxedEnum CookiePersistentStorage where-    boxedEnumType _ = c_webkit_cookie_persistent_storage_get_type---- struct Credential-newtype Credential = Credential (ForeignPtr Credential)-noCredential :: Maybe Credential-noCredential = Nothing--foreign import ccall "webkit_credential_get_type" c_webkit_credential_get_type :: -    IO GType--instance BoxedObject Credential where-    boxedType _ = c_webkit_credential_get_type---- 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}]--- 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--foreign import ccall "webkit_credential_new" webkit_credential_new :: -    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    CUInt ->                                -- persistence : TInterface "WebKit2" "CredentialPersistence"-    IO (Ptr Credential)---credentialNew ::-    (MonadIO m) =>-    T.Text ->                               -- username-    T.Text ->                               -- password-    CredentialPersistence ->                -- persistence-    m Credential-credentialNew username password persistence = liftIO $ do-    username' <- textToCString username-    password' <- textToCString password-    let persistence' = (fromIntegral . fromEnum) persistence-    result <- webkit_credential_new username' password' persistence'-    checkUnexpectedReturnNULL "webkit_credential_new" result-    result' <- (wrapBoxed Credential) result-    freeMem username'-    freeMem password'-    return result'---- 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}]--- 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--foreign import ccall "webkit_credential_copy" webkit_credential_copy :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO (Ptr Credential)---credentialCopy ::-    (MonadIO m) =>-    Credential ->                           -- _obj-    m Credential-credentialCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_copy _obj'-    checkUnexpectedReturnNULL "webkit_credential_copy" result-    result' <- (wrapBoxed Credential) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_credential_free" webkit_credential_free :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO ()---credentialFree ::-    (MonadIO m) =>-    Credential ->                           -- _obj-    m ()-credentialFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_credential_free _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_credential_get_password" webkit_credential_get_password :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CString---credentialGetPassword ::-    (MonadIO m) =>-    Credential ->                           -- _obj-    m T.Text-credentialGetPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_get_password _obj'-    checkUnexpectedReturnNULL "webkit_credential_get_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_credential_get_persistence" webkit_credential_get_persistence :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CUInt---credentialGetPersistence ::-    (MonadIO m) =>-    Credential ->                           -- _obj-    m CredentialPersistence-credentialGetPersistence _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_get_persistence _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_credential_get_username" webkit_credential_get_username :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CString---credentialGetUsername ::-    (MonadIO m) =>-    Credential ->                           -- _obj-    m T.Text-credentialGetUsername _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_get_username _obj'-    checkUnexpectedReturnNULL "webkit_credential_get_username" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_credential_has_password" webkit_credential_has_password :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CInt---credentialHasPassword ::-    (MonadIO m) =>-    Credential ->                           -- _obj-    m Bool-credentialHasPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_has_password _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- Enum CredentialPersistence--data CredentialPersistence = -      CredentialPersistenceNone-    | CredentialPersistenceForSession-    | CredentialPersistencePermanent-    | AnotherCredentialPersistence Int-    deriving (Show, Eq)--instance Enum CredentialPersistence where-    fromEnum CredentialPersistenceNone = 0-    fromEnum CredentialPersistenceForSession = 1-    fromEnum CredentialPersistencePermanent = 2-    fromEnum (AnotherCredentialPersistence k) = k--    toEnum 0 = CredentialPersistenceNone-    toEnum 1 = CredentialPersistenceForSession-    toEnum 2 = CredentialPersistencePermanent-    toEnum k = AnotherCredentialPersistence k--foreign import ccall "webkit_credential_persistence_get_type" c_webkit_credential_persistence_get_type :: -    IO GType--instance BoxedEnum CredentialPersistence where-    boxedEnumType _ = c_webkit_credential_persistence_get_type---- object Download -newtype Download = Download (ForeignPtr Download)-noDownload :: Maybe Download-noDownload = Nothing--foreign import ccall "webkit_download_get_type"-    c_webkit_download_get_type :: IO GType--type instance ParentTypes Download = '[GObject.Object]--instance GObject Download where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_download_get_type-    --class GObject o => DownloadK o-instance (GObject o, IsDescendantOf Download o) => DownloadK o--toDownload :: DownloadK o => o -> IO Download-toDownload = unsafeCastTo Download---- 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}]--- 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--foreign import ccall "webkit_download_cancel" webkit_download_cancel :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO ()---downloadCancel ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m ()-downloadCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_download_cancel _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_download_get_allow_overwrite" webkit_download_get_allow_overwrite :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CInt---downloadGetAllowOverwrite ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Bool-downloadGetAllowOverwrite _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_allow_overwrite _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_download_get_destination" webkit_download_get_destination :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CString---downloadGetDestination ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m T.Text-downloadGetDestination _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_destination _obj'-    checkUnexpectedReturnNULL "webkit_download_get_destination" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_download_get_elapsed_time" webkit_download_get_elapsed_time :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CDouble---downloadGetElapsedTime ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Double-downloadGetElapsedTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_elapsed_time _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_download_get_estimated_progress" webkit_download_get_estimated_progress :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CDouble---downloadGetEstimatedProgress ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Double-downloadGetEstimatedProgress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_estimated_progress _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_download_get_received_data_length" webkit_download_get_received_data_length :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO Word64---downloadGetReceivedDataLength ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m Word64-downloadGetReceivedDataLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_received_data_length _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_download_get_request" webkit_download_get_request :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO (Ptr URIRequest)---downloadGetRequest ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m URIRequest-downloadGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_request _obj'-    checkUnexpectedReturnNULL "webkit_download_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_download_get_response" webkit_download_get_response :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO (Ptr URIResponse)---downloadGetResponse ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m URIResponse-downloadGetResponse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_response _obj'-    checkUnexpectedReturnNULL "webkit_download_get_response" result-    result' <- (newObject URIResponse) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_download_get_web_view" webkit_download_get_web_view :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO (Ptr WebView)---downloadGetWebView ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    m WebView-downloadGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_download_get_web_view" result-    result' <- (newObject WebView) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_download_set_allow_overwrite" webkit_download_set_allow_overwrite :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    CInt ->                                 -- allowed : TBasicType TBoolean-    IO ()---downloadSetAllowOverwrite ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- allowed-    m ()-downloadSetAllowOverwrite _obj allowed = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let allowed' = (fromIntegral . fromEnum) allowed-    webkit_download_set_allow_overwrite _obj' allowed'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_download_set_destination" webkit_download_set_destination :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    CString ->                              -- uri : TBasicType TUTF8-    IO ()---downloadSetDestination ::-    (MonadIO m, DownloadK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri-    m ()-downloadSetDestination _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    webkit_download_set_destination _obj' uri'-    touchManagedPtr _obj-    freeMem uri'-    return ()---- signal Download::created-destination-type DownloadCreatedDestinationCallback =-    T.Text ->-    IO ()--noDownloadCreatedDestinationCallback :: Maybe DownloadCreatedDestinationCallback-noDownloadCreatedDestinationCallback = Nothing--type DownloadCreatedDestinationCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadCreatedDestinationCallback :: DownloadCreatedDestinationCallbackC -> IO (FunPtr DownloadCreatedDestinationCallbackC)--downloadCreatedDestinationClosure :: DownloadCreatedDestinationCallback -> IO Closure-downloadCreatedDestinationClosure cb = newCClosure =<< mkDownloadCreatedDestinationCallback wrapped-    where wrapped = downloadCreatedDestinationCallbackWrapper cb--downloadCreatedDestinationCallbackWrapper ::-    DownloadCreatedDestinationCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO ()-downloadCreatedDestinationCallbackWrapper _cb _ destination _ = do-    destination' <- cstringToText destination-    _cb  destination'--onDownloadCreatedDestination :: (GObject a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId-onDownloadCreatedDestination obj cb = liftIO $ connectDownloadCreatedDestination obj cb SignalConnectBefore-afterDownloadCreatedDestination :: (GObject a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId-afterDownloadCreatedDestination obj cb = connectDownloadCreatedDestination obj cb SignalConnectAfter--connectDownloadCreatedDestination :: (GObject a, MonadIO m) =>-                                     a -> DownloadCreatedDestinationCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadCreatedDestination obj cb after = liftIO $ do-    cb' <- mkDownloadCreatedDestinationCallback (downloadCreatedDestinationCallbackWrapper cb)-    connectSignalFunPtr obj "created-destination" cb' after---- signal Download::decide-destination-type DownloadDecideDestinationCallback =-    T.Text ->-    IO Bool--noDownloadDecideDestinationCallback :: Maybe DownloadDecideDestinationCallback-noDownloadDecideDestinationCallback = Nothing--type DownloadDecideDestinationCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkDownloadDecideDestinationCallback :: DownloadDecideDestinationCallbackC -> IO (FunPtr DownloadDecideDestinationCallbackC)--downloadDecideDestinationClosure :: DownloadDecideDestinationCallback -> IO Closure-downloadDecideDestinationClosure cb = newCClosure =<< mkDownloadDecideDestinationCallback wrapped-    where wrapped = downloadDecideDestinationCallbackWrapper cb--downloadDecideDestinationCallbackWrapper ::-    DownloadDecideDestinationCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO CInt-downloadDecideDestinationCallbackWrapper _cb _ suggested_filename _ = do-    suggested_filename' <- cstringToText suggested_filename-    result <- _cb  suggested_filename'-    let result' = (fromIntegral . fromEnum) result-    return result'--onDownloadDecideDestination :: (GObject a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId-onDownloadDecideDestination obj cb = liftIO $ connectDownloadDecideDestination obj cb SignalConnectBefore-afterDownloadDecideDestination :: (GObject a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId-afterDownloadDecideDestination obj cb = connectDownloadDecideDestination obj cb SignalConnectAfter--connectDownloadDecideDestination :: (GObject a, MonadIO m) =>-                                    a -> DownloadDecideDestinationCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadDecideDestination obj cb after = liftIO $ do-    cb' <- mkDownloadDecideDestinationCallback (downloadDecideDestinationCallbackWrapper cb)-    connectSignalFunPtr obj "decide-destination" cb' after---- signal Download::failed-type DownloadFailedCallback =-    Ptr () ->-    IO ()--noDownloadFailedCallback :: Maybe DownloadFailedCallback-noDownloadFailedCallback = Nothing--type DownloadFailedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadFailedCallback :: DownloadFailedCallbackC -> IO (FunPtr DownloadFailedCallbackC)--downloadFailedClosure :: DownloadFailedCallback -> IO Closure-downloadFailedClosure cb = newCClosure =<< mkDownloadFailedCallback wrapped-    where wrapped = downloadFailedCallbackWrapper cb--downloadFailedCallbackWrapper ::-    DownloadFailedCallback ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO ()-downloadFailedCallbackWrapper _cb _ error_ _ = do-    _cb  error_--onDownloadFailed :: (GObject a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId-onDownloadFailed obj cb = liftIO $ connectDownloadFailed obj cb SignalConnectBefore-afterDownloadFailed :: (GObject a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId-afterDownloadFailed obj cb = connectDownloadFailed obj cb SignalConnectAfter--connectDownloadFailed :: (GObject a, MonadIO m) =>-                         a -> DownloadFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadFailed obj cb after = liftIO $ do-    cb' <- mkDownloadFailedCallback (downloadFailedCallbackWrapper cb)-    connectSignalFunPtr obj "failed" cb' after---- signal Download::finished-type DownloadFinishedCallback =-    IO ()--noDownloadFinishedCallback :: Maybe DownloadFinishedCallback-noDownloadFinishedCallback = Nothing--type DownloadFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadFinishedCallback :: DownloadFinishedCallbackC -> IO (FunPtr DownloadFinishedCallbackC)--downloadFinishedClosure :: DownloadFinishedCallback -> IO Closure-downloadFinishedClosure cb = newCClosure =<< mkDownloadFinishedCallback wrapped-    where wrapped = downloadFinishedCallbackWrapper cb--downloadFinishedCallbackWrapper ::-    DownloadFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-downloadFinishedCallbackWrapper _cb _ _ = do-    _cb --onDownloadFinished :: (GObject a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId-onDownloadFinished obj cb = liftIO $ connectDownloadFinished obj cb SignalConnectBefore-afterDownloadFinished :: (GObject a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId-afterDownloadFinished obj cb = connectDownloadFinished obj cb SignalConnectAfter--connectDownloadFinished :: (GObject a, MonadIO m) =>-                           a -> DownloadFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadFinished obj cb after = liftIO $ do-    cb' <- mkDownloadFinishedCallback (downloadFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- signal Download::received-data-type DownloadReceivedDataCallback =-    Word64 ->-    IO ()--noDownloadReceivedDataCallback :: Maybe DownloadReceivedDataCallback-noDownloadReceivedDataCallback = Nothing--type DownloadReceivedDataCallbackC =-    Ptr () ->                               -- object-    Word64 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadReceivedDataCallback :: DownloadReceivedDataCallbackC -> IO (FunPtr DownloadReceivedDataCallbackC)--downloadReceivedDataClosure :: DownloadReceivedDataCallback -> IO Closure-downloadReceivedDataClosure cb = newCClosure =<< mkDownloadReceivedDataCallback wrapped-    where wrapped = downloadReceivedDataCallbackWrapper cb--downloadReceivedDataCallbackWrapper ::-    DownloadReceivedDataCallback ->-    Ptr () ->-    Word64 ->-    Ptr () ->-    IO ()-downloadReceivedDataCallbackWrapper _cb _ data_length _ = do-    _cb  data_length--onDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId-onDownloadReceivedData obj cb = liftIO $ connectDownloadReceivedData obj cb SignalConnectBefore-afterDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId-afterDownloadReceivedData obj cb = connectDownloadReceivedData obj cb SignalConnectAfter--connectDownloadReceivedData :: (GObject a, MonadIO m) =>-                               a -> DownloadReceivedDataCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadReceivedData obj cb after = liftIO $ do-    cb' <- mkDownloadReceivedDataCallback (downloadReceivedDataCallbackWrapper cb)-    connectSignalFunPtr obj "received-data" cb' after---- Enum DownloadError--data DownloadError = -      DownloadErrorNetwork-    | DownloadErrorCancelledByUser-    | DownloadErrorDestination-    | AnotherDownloadError Int-    deriving (Show, Eq)--instance Enum DownloadError where-    fromEnum DownloadErrorNetwork = 499-    fromEnum DownloadErrorCancelledByUser = 400-    fromEnum DownloadErrorDestination = 401-    fromEnum (AnotherDownloadError k) = k--    toEnum 400 = DownloadErrorCancelledByUser-    toEnum 401 = DownloadErrorDestination-    toEnum 499 = DownloadErrorNetwork-    toEnum k = AnotherDownloadError k--instance GErrorClass DownloadError where-    gerrorClassDomain _ = "WebKitDownloadError"--catchDownloadError ::-    IO a ->-    (DownloadError -> GErrorMessage -> IO a) ->-    IO a-catchDownloadError = catchGErrorJustDomain--handleDownloadError ::-    (DownloadError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleDownloadError = handleGErrorJustDomain--foreign import ccall "webkit_download_error_get_type" c_webkit_download_error_get_type :: -    IO GType--instance BoxedEnum DownloadError where-    boxedEnumType _ = c_webkit_download_error_get_type---- object FaviconDatabase -newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase)-noFaviconDatabase :: Maybe FaviconDatabase-noFaviconDatabase = Nothing--foreign import ccall "webkit_favicon_database_get_type"-    c_webkit_favicon_database_get_type :: IO GType--type instance ParentTypes FaviconDatabase = '[GObject.Object]--instance GObject FaviconDatabase where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_favicon_database_get_type-    --class GObject o => FaviconDatabaseK o-instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o--toFaviconDatabase :: FaviconDatabaseK o => o -> IO FaviconDatabase-toFaviconDatabase = unsafeCastTo FaviconDatabase---- 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}]--- 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--foreign import ccall "webkit_favicon_database_clear" webkit_favicon_database_clear :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    IO ()---faviconDatabaseClear ::-    (MonadIO m, FaviconDatabaseK a) =>-    a ->                                    -- _obj-    m ()-faviconDatabaseClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_favicon_database_clear _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_favicon_database_get_favicon" webkit_favicon_database_get_favicon :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    CString ->                              -- page_uri : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---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-    let _obj' = unsafeManagedPtrCastPtr _obj-    page_uri' <- textToCString page_uri-    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_favicon_database_get_favicon _obj' page_uri' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem page_uri'-    return ()---- 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}]--- 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--foreign import ccall "webkit_favicon_database_get_favicon_finish" webkit_favicon_database_get_favicon_finish :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Cairo.Surface)---faviconDatabaseGetFaviconFinish ::-    (MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m Cairo.Surface-faviconDatabaseGetFaviconFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_favicon_database_get_favicon_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_finish" result-        result' <- (wrapBoxed Cairo.Surface) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )---- 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}]--- 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--foreign import ccall "webkit_favicon_database_get_favicon_uri" webkit_favicon_database_get_favicon_uri :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    CString ->                              -- page_uri : TBasicType TUTF8-    IO CString---faviconDatabaseGetFaviconUri ::-    (MonadIO m, FaviconDatabaseK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- page_uri-    m T.Text-faviconDatabaseGetFaviconUri _obj page_uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    page_uri' <- textToCString page_uri-    result <- webkit_favicon_database_get_favicon_uri _obj' page_uri'-    checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_uri" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem page_uri'-    return result'---- signal FaviconDatabase::favicon-changed-type FaviconDatabaseFaviconChangedCallback =-    T.Text ->-    T.Text ->-    IO ()--noFaviconDatabaseFaviconChangedCallback :: Maybe FaviconDatabaseFaviconChangedCallback-noFaviconDatabaseFaviconChangedCallback = Nothing--type FaviconDatabaseFaviconChangedCallbackC =-    Ptr () ->                               -- object-    CString ->-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFaviconDatabaseFaviconChangedCallback :: FaviconDatabaseFaviconChangedCallbackC -> IO (FunPtr FaviconDatabaseFaviconChangedCallbackC)--faviconDatabaseFaviconChangedClosure :: FaviconDatabaseFaviconChangedCallback -> IO Closure-faviconDatabaseFaviconChangedClosure cb = newCClosure =<< mkFaviconDatabaseFaviconChangedCallback wrapped-    where wrapped = faviconDatabaseFaviconChangedCallbackWrapper cb--faviconDatabaseFaviconChangedCallbackWrapper ::-    FaviconDatabaseFaviconChangedCallback ->-    Ptr () ->-    CString ->-    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'--onFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId-onFaviconDatabaseFaviconChanged obj cb = liftIO $ connectFaviconDatabaseFaviconChanged obj cb SignalConnectBefore-afterFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId-afterFaviconDatabaseFaviconChanged obj cb = connectFaviconDatabaseFaviconChanged obj cb SignalConnectAfter--connectFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) =>-                                        a -> FaviconDatabaseFaviconChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectFaviconDatabaseFaviconChanged obj cb after = liftIO $ do-    cb' <- mkFaviconDatabaseFaviconChangedCallback (faviconDatabaseFaviconChangedCallbackWrapper cb)-    connectSignalFunPtr obj "favicon-changed" cb' after---- Enum FaviconDatabaseError--data FaviconDatabaseError = -      FaviconDatabaseErrorNotInitialized-    | FaviconDatabaseErrorFaviconNotFound-    | FaviconDatabaseErrorFaviconUnknown-    | AnotherFaviconDatabaseError Int-    deriving (Show, Eq)--instance Enum FaviconDatabaseError where-    fromEnum FaviconDatabaseErrorNotInitialized = 0-    fromEnum FaviconDatabaseErrorFaviconNotFound = 1-    fromEnum FaviconDatabaseErrorFaviconUnknown = 2-    fromEnum (AnotherFaviconDatabaseError k) = k--    toEnum 0 = FaviconDatabaseErrorNotInitialized-    toEnum 1 = FaviconDatabaseErrorFaviconNotFound-    toEnum 2 = FaviconDatabaseErrorFaviconUnknown-    toEnum k = AnotherFaviconDatabaseError k--instance GErrorClass FaviconDatabaseError where-    gerrorClassDomain _ = "WebKitFaviconDatabaseError"--catchFaviconDatabaseError ::-    IO a ->-    (FaviconDatabaseError -> GErrorMessage -> IO a) ->-    IO a-catchFaviconDatabaseError = catchGErrorJustDomain--handleFaviconDatabaseError ::-    (FaviconDatabaseError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleFaviconDatabaseError = handleGErrorJustDomain--foreign import ccall "webkit_favicon_database_error_get_type" c_webkit_favicon_database_error_get_type :: -    IO GType--instance BoxedEnum FaviconDatabaseError where-    boxedEnumType _ = c_webkit_favicon_database_error_get_type---- object FileChooserRequest -newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest)-noFileChooserRequest :: Maybe FileChooserRequest-noFileChooserRequest = Nothing--foreign import ccall "webkit_file_chooser_request_get_type"-    c_webkit_file_chooser_request_get_type :: IO GType--type instance ParentTypes FileChooserRequest = '[GObject.Object]--instance GObject FileChooserRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_file_chooser_request_get_type-    --class GObject o => FileChooserRequestK o-instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o--toFileChooserRequest :: FileChooserRequestK o => o -> IO FileChooserRequest-toFileChooserRequest = unsafeCastTo FileChooserRequest---- 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}]--- 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--foreign import ccall "webkit_file_chooser_request_cancel" webkit_file_chooser_request_cancel :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO ()---fileChooserRequestCancel ::-    (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m ()-fileChooserRequestCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_file_chooser_request_cancel _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO (Ptr CString)---fileChooserRequestGetMimeTypes ::-    (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m [T.Text]-fileChooserRequestGetMimeTypes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_mime_types _obj'-    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_file_chooser_request_get_mime_types_filter" webkit_file_chooser_request_get_mime_types_filter :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO (Ptr Gtk.FileFilter)---fileChooserRequestGetMimeTypesFilter ::-    (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m Gtk.FileFilter-fileChooserRequestGetMimeTypesFilter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_mime_types_filter _obj'-    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types_filter" result-    result' <- (newObject Gtk.FileFilter) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO CInt---fileChooserRequestGetSelectMultiple ::-    (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m Bool-fileChooserRequestGetSelectMultiple _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_select_multiple _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO (Ptr CString)---fileChooserRequestGetSelectedFiles ::-    (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    m [T.Text]-fileChooserRequestGetSelectedFiles _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_selected_files _obj'-    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_selected_files" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_file_chooser_request_select_files" webkit_file_chooser_request_select_files :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    Ptr CString ->                          -- files : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---fileChooserRequestSelectFiles ::-    (MonadIO m, FileChooserRequestK a) =>-    a ->                                    -- _obj-    [T.Text] ->                             -- files-    m ()-fileChooserRequestSelectFiles _obj files = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    files' <- packZeroTerminatedUTF8CArray files-    webkit_file_chooser_request_select_files _obj' files'-    touchManagedPtr _obj-    mapZeroTerminatedCArray freeMem files'-    freeMem files'-    return ()---- object FindController -newtype FindController = FindController (ForeignPtr FindController)-noFindController :: Maybe FindController-noFindController = Nothing--foreign import ccall "webkit_find_controller_get_type"-    c_webkit_find_controller_get_type :: IO GType--type instance ParentTypes FindController = '[GObject.Object]--instance GObject FindController where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_find_controller_get_type-    --class GObject o => FindControllerK o-instance (GObject o, IsDescendantOf FindController o) => FindControllerK o--toFindController :: FindControllerK o => o -> IO FindController-toFindController = unsafeCastTo FindController---- 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}]--- 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--foreign import ccall "webkit_find_controller_count_matches" webkit_find_controller_count_matches :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    CString ->                              -- search_text : TBasicType TUTF8-    Word32 ->                               -- find_options : TBasicType TUInt32-    Word32 ->                               -- max_match_count : TBasicType TUInt32-    IO ()---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-    let _obj' = unsafeManagedPtrCastPtr _obj-    search_text' <- textToCString search_text-    webkit_find_controller_count_matches _obj' search_text' find_options max_match_count-    touchManagedPtr _obj-    freeMem search_text'-    return ()---- 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}]--- 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--foreign import ccall "webkit_find_controller_get_max_match_count" webkit_find_controller_get_max_match_count :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO Word32---findControllerGetMaxMatchCount ::-    (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m Word32-findControllerGetMaxMatchCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_max_match_count _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_find_controller_get_options" webkit_find_controller_get_options :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO Word32---findControllerGetOptions ::-    (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m Word32-findControllerGetOptions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_options _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_find_controller_get_search_text" webkit_find_controller_get_search_text :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO CString---findControllerGetSearchText ::-    (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m T.Text-findControllerGetSearchText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_search_text _obj'-    checkUnexpectedReturnNULL "webkit_find_controller_get_search_text" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_find_controller_get_web_view" webkit_find_controller_get_web_view :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO (Ptr WebView)---findControllerGetWebView ::-    (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m WebView-findControllerGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_find_controller_get_web_view" result-    result' <- (newObject WebView) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_find_controller_search" webkit_find_controller_search :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    CString ->                              -- search_text : TBasicType TUTF8-    Word32 ->                               -- find_options : TBasicType TUInt32-    Word32 ->                               -- max_match_count : TBasicType TUInt32-    IO ()---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-    let _obj' = unsafeManagedPtrCastPtr _obj-    search_text' <- textToCString search_text-    webkit_find_controller_search _obj' search_text' find_options max_match_count-    touchManagedPtr _obj-    freeMem search_text'-    return ()---- 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}]--- 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--foreign import ccall "webkit_find_controller_search_finish" webkit_find_controller_search_finish :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO ()---findControllerSearchFinish ::-    (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m ()-findControllerSearchFinish _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_find_controller_search_finish _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_find_controller_search_next" webkit_find_controller_search_next :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO ()---findControllerSearchNext ::-    (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m ()-findControllerSearchNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_find_controller_search_next _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_find_controller_search_previous" webkit_find_controller_search_previous :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO ()---findControllerSearchPrevious ::-    (MonadIO m, FindControllerK a) =>-    a ->                                    -- _obj-    m ()-findControllerSearchPrevious _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_find_controller_search_previous _obj'-    touchManagedPtr _obj-    return ()---- signal FindController::counted-matches-type FindControllerCountedMatchesCallback =-    Word32 ->-    IO ()--noFindControllerCountedMatchesCallback :: Maybe FindControllerCountedMatchesCallback-noFindControllerCountedMatchesCallback = Nothing--type FindControllerCountedMatchesCallbackC =-    Ptr () ->                               -- object-    Word32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFindControllerCountedMatchesCallback :: FindControllerCountedMatchesCallbackC -> IO (FunPtr FindControllerCountedMatchesCallbackC)--findControllerCountedMatchesClosure :: FindControllerCountedMatchesCallback -> IO Closure-findControllerCountedMatchesClosure cb = newCClosure =<< mkFindControllerCountedMatchesCallback wrapped-    where wrapped = findControllerCountedMatchesCallbackWrapper cb--findControllerCountedMatchesCallbackWrapper ::-    FindControllerCountedMatchesCallback ->-    Ptr () ->-    Word32 ->-    Ptr () ->-    IO ()-findControllerCountedMatchesCallbackWrapper _cb _ match_count _ = do-    _cb  match_count--onFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId-onFindControllerCountedMatches obj cb = liftIO $ connectFindControllerCountedMatches obj cb SignalConnectBefore-afterFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId-afterFindControllerCountedMatches obj cb = connectFindControllerCountedMatches obj cb SignalConnectAfter--connectFindControllerCountedMatches :: (GObject a, MonadIO m) =>-                                       a -> FindControllerCountedMatchesCallback -> SignalConnectMode -> m SignalHandlerId-connectFindControllerCountedMatches obj cb after = liftIO $ do-    cb' <- mkFindControllerCountedMatchesCallback (findControllerCountedMatchesCallbackWrapper cb)-    connectSignalFunPtr obj "counted-matches" cb' after---- signal FindController::failed-to-find-text-type FindControllerFailedToFindTextCallback =-    IO ()--noFindControllerFailedToFindTextCallback :: Maybe FindControllerFailedToFindTextCallback-noFindControllerFailedToFindTextCallback = Nothing--type FindControllerFailedToFindTextCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFindControllerFailedToFindTextCallback :: FindControllerFailedToFindTextCallbackC -> IO (FunPtr FindControllerFailedToFindTextCallbackC)--findControllerFailedToFindTextClosure :: FindControllerFailedToFindTextCallback -> IO Closure-findControllerFailedToFindTextClosure cb = newCClosure =<< mkFindControllerFailedToFindTextCallback wrapped-    where wrapped = findControllerFailedToFindTextCallbackWrapper cb--findControllerFailedToFindTextCallbackWrapper ::-    FindControllerFailedToFindTextCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-findControllerFailedToFindTextCallbackWrapper _cb _ _ = do-    _cb --onFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId-onFindControllerFailedToFindText obj cb = liftIO $ connectFindControllerFailedToFindText obj cb SignalConnectBefore-afterFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId-afterFindControllerFailedToFindText obj cb = connectFindControllerFailedToFindText obj cb SignalConnectAfter--connectFindControllerFailedToFindText :: (GObject a, MonadIO m) =>-                                         a -> FindControllerFailedToFindTextCallback -> SignalConnectMode -> m SignalHandlerId-connectFindControllerFailedToFindText obj cb after = liftIO $ do-    cb' <- mkFindControllerFailedToFindTextCallback (findControllerFailedToFindTextCallbackWrapper cb)-    connectSignalFunPtr obj "failed-to-find-text" cb' after---- signal FindController::found-text-type FindControllerFoundTextCallback =-    Word32 ->-    IO ()--noFindControllerFoundTextCallback :: Maybe FindControllerFoundTextCallback-noFindControllerFoundTextCallback = Nothing--type FindControllerFoundTextCallbackC =-    Ptr () ->                               -- object-    Word32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFindControllerFoundTextCallback :: FindControllerFoundTextCallbackC -> IO (FunPtr FindControllerFoundTextCallbackC)--findControllerFoundTextClosure :: FindControllerFoundTextCallback -> IO Closure-findControllerFoundTextClosure cb = newCClosure =<< mkFindControllerFoundTextCallback wrapped-    where wrapped = findControllerFoundTextCallbackWrapper cb--findControllerFoundTextCallbackWrapper ::-    FindControllerFoundTextCallback ->-    Ptr () ->-    Word32 ->-    Ptr () ->-    IO ()-findControllerFoundTextCallbackWrapper _cb _ match_count _ = do-    _cb  match_count--onFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId-onFindControllerFoundText obj cb = liftIO $ connectFindControllerFoundText obj cb SignalConnectBefore-afterFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId-afterFindControllerFoundText obj cb = connectFindControllerFoundText obj cb SignalConnectAfter--connectFindControllerFoundText :: (GObject a, MonadIO m) =>-                                  a -> FindControllerFoundTextCallback -> SignalConnectMode -> m SignalHandlerId-connectFindControllerFoundText obj cb after = liftIO $ do-    cb' <- mkFindControllerFoundTextCallback (findControllerFoundTextCallbackWrapper cb)-    connectSignalFunPtr obj "found-text" cb' after---- Flags FindOptions--data FindOptions = -      FindOptionsNone-    | FindOptionsCaseInsensitive-    | FindOptionsAtWordStarts-    | FindOptionsTreatMedialCapitalAsWordStart-    | FindOptionsBackwards-    | FindOptionsWrapAround-    | AnotherFindOptions Int-    deriving (Show, Eq)--instance Enum FindOptions where-    fromEnum FindOptionsNone = 0-    fromEnum FindOptionsCaseInsensitive = 1-    fromEnum FindOptionsAtWordStarts = 2-    fromEnum FindOptionsTreatMedialCapitalAsWordStart = 4-    fromEnum FindOptionsBackwards = 8-    fromEnum FindOptionsWrapAround = 16-    fromEnum (AnotherFindOptions k) = k--    toEnum 0 = FindOptionsNone-    toEnum 1 = FindOptionsCaseInsensitive-    toEnum 2 = FindOptionsAtWordStarts-    toEnum 4 = FindOptionsTreatMedialCapitalAsWordStart-    toEnum 8 = FindOptionsBackwards-    toEnum 16 = FindOptionsWrapAround-    toEnum k = AnotherFindOptions k--foreign import ccall "webkit_find_options_get_type" c_webkit_find_options_get_type :: -    IO GType--instance BoxedEnum FindOptions where-    boxedEnumType _ = c_webkit_find_options_get_type--instance IsGFlag FindOptions---- object FormSubmissionRequest -newtype FormSubmissionRequest = FormSubmissionRequest (ForeignPtr FormSubmissionRequest)-noFormSubmissionRequest :: Maybe FormSubmissionRequest-noFormSubmissionRequest = Nothing--foreign import ccall "webkit_form_submission_request_get_type"-    c_webkit_form_submission_request_get_type :: IO GType--type instance ParentTypes FormSubmissionRequest = '[GObject.Object]--instance GObject FormSubmissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_form_submission_request_get_type-    --class GObject o => FormSubmissionRequestK o-instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o--toFormSubmissionRequest :: FormSubmissionRequestK o => o -> IO FormSubmissionRequest-toFormSubmissionRequest = unsafeCastTo FormSubmissionRequest---- 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}]--- 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--foreign import ccall "webkit_form_submission_request_get_text_fields" webkit_form_submission_request_get_text_fields :: -    Ptr FormSubmissionRequest ->            -- _obj : TInterface "WebKit2" "FormSubmissionRequest"-    IO (Ptr (GHashTable (Ptr ()) (Ptr ())))---formSubmissionRequestGetTextFields ::-    (MonadIO m, FormSubmissionRequestK a) =>-    a ->                                    -- _obj-    m (Map.Map (Ptr ()) (Ptr ()))-formSubmissionRequestGetTextFields _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_form_submission_request_get_text_fields _obj'-    checkUnexpectedReturnNULL "webkit_form_submission_request_get_text_fields" result-    result' <- unpackGHashTable result-    let result'' = mapFirst ptrUnpackPtr result'-    let result''' = mapSecond ptrUnpackPtr result''-    let result'''' = Map.fromList result'''-    touchManagedPtr _obj-    return result''''---- 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}]--- 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--foreign import ccall "webkit_form_submission_request_submit" webkit_form_submission_request_submit :: -    Ptr FormSubmissionRequest ->            -- _obj : TInterface "WebKit2" "FormSubmissionRequest"-    IO ()---formSubmissionRequestSubmit ::-    (MonadIO m, FormSubmissionRequestK a) =>-    a ->                                    -- _obj-    m ()-formSubmissionRequestSubmit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_form_submission_request_submit _obj'-    touchManagedPtr _obj-    return ()---- object GeolocationPermissionRequest -newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ForeignPtr GeolocationPermissionRequest)-noGeolocationPermissionRequest :: Maybe GeolocationPermissionRequest-noGeolocationPermissionRequest = Nothing--foreign import ccall "webkit_geolocation_permission_request_get_type"-    c_webkit_geolocation_permission_request_get_type :: IO GType--type instance ParentTypes GeolocationPermissionRequest = '[GObject.Object, PermissionRequest]--instance GObject GeolocationPermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_geolocation_permission_request_get_type-    --class GObject o => GeolocationPermissionRequestK o-instance (GObject o, IsDescendantOf GeolocationPermissionRequest o) => GeolocationPermissionRequestK o--toGeolocationPermissionRequest :: GeolocationPermissionRequestK o => o -> IO GeolocationPermissionRequest-toGeolocationPermissionRequest = unsafeCastTo GeolocationPermissionRequest---- object HitTestResult -newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult)-noHitTestResult :: Maybe HitTestResult-noHitTestResult = Nothing--foreign import ccall "webkit_hit_test_result_get_type"-    c_webkit_hit_test_result_get_type :: IO GType--type instance ParentTypes HitTestResult = '[GObject.Object]--instance GObject HitTestResult where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_hit_test_result_get_type-    --class GObject o => HitTestResultK o-instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o--toHitTestResult :: HitTestResultK o => o -> IO HitTestResult-toHitTestResult = unsafeCastTo HitTestResult---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_context_is_editable" webkit_hit_test_result_context_is_editable :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsEditable ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool-hitTestResultContextIsEditable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_editable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_context_is_image" webkit_hit_test_result_context_is_image :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsImage ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool-hitTestResultContextIsImage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_image _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_context_is_link" webkit_hit_test_result_context_is_link :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsLink ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool-hitTestResultContextIsLink _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_link _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_context_is_media" webkit_hit_test_result_context_is_media :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsMedia ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool-hitTestResultContextIsMedia _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_media _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_context_is_scrollbar" webkit_hit_test_result_context_is_scrollbar :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsScrollbar ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool-hitTestResultContextIsScrollbar _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_scrollbar _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_context_is_selection" webkit_hit_test_result_context_is_selection :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsSelection ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Bool-hitTestResultContextIsSelection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_selection _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_get_context" webkit_hit_test_result_get_context :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO Word32---hitTestResultGetContext ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m Word32-hitTestResultGetContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_context _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_get_image_uri" webkit_hit_test_result_get_image_uri :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetImageUri ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text-hitTestResultGetImageUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_image_uri _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_image_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_get_link_label" webkit_hit_test_result_get_link_label :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetLinkLabel ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text-hitTestResultGetLinkLabel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_link_label _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_label" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_get_link_title" webkit_hit_test_result_get_link_title :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetLinkTitle ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text-hitTestResultGetLinkTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_link_title _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_get_link_uri" webkit_hit_test_result_get_link_uri :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetLinkUri ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text-hitTestResultGetLinkUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_link_uri _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_hit_test_result_get_media_uri" webkit_hit_test_result_get_media_uri :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetMediaUri ::-    (MonadIO m, HitTestResultK a) =>-    a ->                                    -- _obj-    m T.Text-hitTestResultGetMediaUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_media_uri _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_media_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- Flags HitTestResultContext--data HitTestResultContext = -      HitTestResultContextDocument-    | HitTestResultContextLink-    | HitTestResultContextImage-    | HitTestResultContextMedia-    | HitTestResultContextEditable-    | HitTestResultContextScrollbar-    | HitTestResultContextSelection-    | AnotherHitTestResultContext Int-    deriving (Show, Eq)--instance Enum HitTestResultContext where-    fromEnum HitTestResultContextDocument = 2-    fromEnum HitTestResultContextLink = 4-    fromEnum HitTestResultContextImage = 8-    fromEnum HitTestResultContextMedia = 16-    fromEnum HitTestResultContextEditable = 32-    fromEnum HitTestResultContextScrollbar = 64-    fromEnum HitTestResultContextSelection = 128-    fromEnum (AnotherHitTestResultContext k) = k--    toEnum 2 = HitTestResultContextDocument-    toEnum 4 = HitTestResultContextLink-    toEnum 8 = HitTestResultContextImage-    toEnum 16 = HitTestResultContextMedia-    toEnum 32 = HitTestResultContextEditable-    toEnum 64 = HitTestResultContextScrollbar-    toEnum 128 = HitTestResultContextSelection-    toEnum k = AnotherHitTestResultContext k--foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type :: -    IO GType--instance BoxedEnum HitTestResultContext where-    boxedEnumType _ = c_webkit_hit_test_result_context_get_type--instance IsGFlag HitTestResultContext---- Enum InsecureContentEvent--data InsecureContentEvent = -      InsecureContentEventRun-    | InsecureContentEventDisplayed-    | AnotherInsecureContentEvent Int-    deriving (Show, Eq)--instance Enum InsecureContentEvent where-    fromEnum InsecureContentEventRun = 0-    fromEnum InsecureContentEventDisplayed = 1-    fromEnum (AnotherInsecureContentEvent k) = k--    toEnum 0 = InsecureContentEventRun-    toEnum 1 = InsecureContentEventDisplayed-    toEnum k = AnotherInsecureContentEvent k--foreign import ccall "webkit_insecure_content_event_get_type" c_webkit_insecure_content_event_get_type :: -    IO GType--instance BoxedEnum InsecureContentEvent where-    boxedEnumType _ = c_webkit_insecure_content_event_get_type---- Enum JavascriptError--data JavascriptError = -      JavascriptErrorFailed-    | AnotherJavascriptError Int-    deriving (Show, Eq)--instance Enum JavascriptError where-    fromEnum JavascriptErrorFailed = 699-    fromEnum (AnotherJavascriptError k) = k--    toEnum 699 = JavascriptErrorFailed-    toEnum k = AnotherJavascriptError k--instance GErrorClass JavascriptError where-    gerrorClassDomain _ = "WebKitJavascriptError"--catchJavascriptError ::-    IO a ->-    (JavascriptError -> GErrorMessage -> IO a) ->-    IO a-catchJavascriptError = catchGErrorJustDomain--handleJavascriptError ::-    (JavascriptError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleJavascriptError = handleGErrorJustDomain--foreign import ccall "webkit_javascript_error_get_type" c_webkit_javascript_error_get_type :: -    IO GType--instance BoxedEnum JavascriptError where-    boxedEnumType _ = c_webkit_javascript_error_get_type---- struct JavascriptResult-newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult)-noJavascriptResult :: Maybe JavascriptResult-noJavascriptResult = Nothing--foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type :: -    IO GType--instance BoxedObject JavascriptResult where-    boxedType _ = c_webkit_javascript_result_get_type---- 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}]--- 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--foreign import ccall "webkit_javascript_result_get_global_context" webkit_javascript_result_get_global_context :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO (Ptr JavaScriptCore.GlobalContext)---javascriptResultGetGlobalContext ::-    (MonadIO m) =>-    JavascriptResult ->                     -- _obj-    m JavaScriptCore.GlobalContext-javascriptResultGetGlobalContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_javascript_result_get_global_context _obj'-    checkUnexpectedReturnNULL "webkit_javascript_result_get_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 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}]--- 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--foreign import ccall "webkit_javascript_result_get_value" webkit_javascript_result_get_value :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO (Ptr JavaScriptCore.Value)---javascriptResultGetValue ::-    (MonadIO m) =>-    JavascriptResult ->                     -- _obj-    m JavaScriptCore.Value-javascriptResultGetValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_javascript_result_get_value _obj'-    checkUnexpectedReturnNULL "webkit_javascript_result_get_value" result-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    result' <- (\x -> JavaScriptCore.Value <$> newForeignPtr_ x) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_javascript_result_ref" webkit_javascript_result_ref :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO (Ptr JavascriptResult)---javascriptResultRef ::-    (MonadIO m) =>-    JavascriptResult ->                     -- _obj-    m JavascriptResult-javascriptResultRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_javascript_result_ref _obj'-    checkUnexpectedReturnNULL "webkit_javascript_result_ref" result-    result' <- (wrapBoxed JavascriptResult) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO ()---javascriptResultUnref ::-    (MonadIO m) =>-    JavascriptResult ->                     -- _obj-    m ()-javascriptResultUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_javascript_result_unref _obj'-    touchManagedPtr _obj-    return ()---- Enum LoadEvent--data LoadEvent = -      LoadEventStarted-    | LoadEventRedirected-    | LoadEventCommitted-    | LoadEventFinished-    | AnotherLoadEvent Int-    deriving (Show, Eq)--instance Enum LoadEvent where-    fromEnum LoadEventStarted = 0-    fromEnum LoadEventRedirected = 1-    fromEnum LoadEventCommitted = 2-    fromEnum LoadEventFinished = 3-    fromEnum (AnotherLoadEvent k) = k--    toEnum 0 = LoadEventStarted-    toEnum 1 = LoadEventRedirected-    toEnum 2 = LoadEventCommitted-    toEnum 3 = LoadEventFinished-    toEnum k = AnotherLoadEvent k--foreign import ccall "webkit_load_event_get_type" c_webkit_load_event_get_type :: -    IO GType--instance BoxedEnum LoadEvent where-    boxedEnumType _ = c_webkit_load_event_get_type---- struct MimeInfo-newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo)-noMimeInfo :: Maybe MimeInfo-noMimeInfo = Nothing--foreign import ccall "webkit_mime_info_get_type" c_webkit_mime_info_get_type :: -    IO GType--instance BoxedObject MimeInfo where-    boxedType _ = c_webkit_mime_info_get_type---- 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}]--- 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--foreign import ccall "webkit_mime_info_get_description" webkit_mime_info_get_description :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO CString---mimeInfoGetDescription ::-    (MonadIO m) =>-    MimeInfo ->                             -- _obj-    m T.Text-mimeInfoGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_get_description _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_mime_info_get_extensions" webkit_mime_info_get_extensions :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO (Ptr CString)---mimeInfoGetExtensions ::-    (MonadIO m) =>-    MimeInfo ->                             -- _obj-    m [T.Text]-mimeInfoGetExtensions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_get_extensions _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_get_extensions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_mime_info_get_mime_type" webkit_mime_info_get_mime_type :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO CString---mimeInfoGetMimeType ::-    (MonadIO m) =>-    MimeInfo ->                             -- _obj-    m T.Text-mimeInfoGetMimeType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_get_mime_type _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_get_mime_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_mime_info_ref" webkit_mime_info_ref :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO (Ptr MimeInfo)---mimeInfoRef ::-    (MonadIO m) =>-    MimeInfo ->                             -- _obj-    m MimeInfo-mimeInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_ref _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_ref" result-    result' <- (wrapBoxed MimeInfo) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_mime_info_unref" webkit_mime_info_unref :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO ()---mimeInfoUnref ::-    (MonadIO m) =>-    MimeInfo ->                             -- _obj-    m ()-mimeInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_mime_info_unref _obj'-    touchManagedPtr _obj-    return ()---- struct NavigationAction-newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction)-noNavigationAction :: Maybe NavigationAction-noNavigationAction = Nothing--foreign import ccall "webkit_navigation_action_get_type" c_webkit_navigation_action_get_type :: -    IO GType--instance BoxedObject NavigationAction where-    boxedType _ = c_webkit_navigation_action_get_type---- 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}]--- 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--foreign import ccall "webkit_navigation_action_copy" webkit_navigation_action_copy :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO (Ptr NavigationAction)---navigationActionCopy ::-    (MonadIO m) =>-    NavigationAction ->                     -- _obj-    m NavigationAction-navigationActionCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_copy _obj'-    checkUnexpectedReturnNULL "webkit_navigation_action_copy" result-    result' <- (wrapBoxed NavigationAction) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_navigation_action_free" webkit_navigation_action_free :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO ()---navigationActionFree ::-    (MonadIO m) =>-    NavigationAction ->                     -- _obj-    m ()-navigationActionFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_navigation_action_free _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_navigation_action_get_modifiers" webkit_navigation_action_get_modifiers :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO Word32---navigationActionGetModifiers ::-    (MonadIO m) =>-    NavigationAction ->                     -- _obj-    m Word32-navigationActionGetModifiers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_modifiers _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_navigation_action_get_mouse_button" webkit_navigation_action_get_mouse_button :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO Word32---navigationActionGetMouseButton ::-    (MonadIO m) =>-    NavigationAction ->                     -- _obj-    m Word32-navigationActionGetMouseButton _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_mouse_button _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_navigation_action_get_navigation_type" webkit_navigation_action_get_navigation_type :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO CUInt---navigationActionGetNavigationType ::-    (MonadIO m) =>-    NavigationAction ->                     -- _obj-    m NavigationType-navigationActionGetNavigationType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_navigation_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_navigation_action_get_request" webkit_navigation_action_get_request :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO (Ptr URIRequest)---navigationActionGetRequest ::-    (MonadIO m) =>-    NavigationAction ->                     -- _obj-    m URIRequest-navigationActionGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_request _obj'-    checkUnexpectedReturnNULL "webkit_navigation_action_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_navigation_action_is_user_gesture" webkit_navigation_action_is_user_gesture :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO CInt---navigationActionIsUserGesture ::-    (MonadIO m) =>-    NavigationAction ->                     -- _obj-    m Bool-navigationActionIsUserGesture _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_is_user_gesture _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- object NavigationPolicyDecision -newtype NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision)-noNavigationPolicyDecision :: Maybe NavigationPolicyDecision-noNavigationPolicyDecision = Nothing--foreign import ccall "webkit_navigation_policy_decision_get_type"-    c_webkit_navigation_policy_decision_get_type :: IO GType--type instance ParentTypes NavigationPolicyDecision = '[PolicyDecision, GObject.Object]--instance GObject NavigationPolicyDecision where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_navigation_policy_decision_get_type-    --class GObject o => NavigationPolicyDecisionK o-instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o--toNavigationPolicyDecision :: NavigationPolicyDecisionK o => o -> IO NavigationPolicyDecision-toNavigationPolicyDecision = unsafeCastTo NavigationPolicyDecision---- 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}]--- 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--foreign import ccall "webkit_navigation_policy_decision_get_frame_name" webkit_navigation_policy_decision_get_frame_name :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO CString---navigationPolicyDecisionGetFrameName ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m T.Text-navigationPolicyDecisionGetFrameName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_frame_name _obj'-    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_frame_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_navigation_policy_decision_get_modifiers" webkit_navigation_policy_decision_get_modifiers :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO Word32--{-# DEPRECATED navigationPolicyDecisionGetModifiers ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetModifiers ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m Word32-navigationPolicyDecisionGetModifiers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_modifiers _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_navigation_policy_decision_get_mouse_button" webkit_navigation_policy_decision_get_mouse_button :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO Word32--{-# DEPRECATED navigationPolicyDecisionGetMouseButton ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetMouseButton ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m Word32-navigationPolicyDecisionGetMouseButton _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_mouse_button _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_navigation_policy_decision_get_navigation_action" webkit_navigation_policy_decision_get_navigation_action :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO (Ptr NavigationAction)---navigationPolicyDecisionGetNavigationAction ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m NavigationAction-navigationPolicyDecisionGetNavigationAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_navigation_action _obj'-    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_navigation_action" result-    result' <- (newBoxed NavigationAction) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_navigation_policy_decision_get_navigation_type" webkit_navigation_policy_decision_get_navigation_type :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO CUInt--{-# DEPRECATED navigationPolicyDecisionGetNavigationType ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetNavigationType ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m NavigationType-navigationPolicyDecisionGetNavigationType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_navigation_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_navigation_policy_decision_get_request" webkit_navigation_policy_decision_get_request :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO (Ptr URIRequest)--{-# DEPRECATED navigationPolicyDecisionGetRequest ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetRequest ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a ->                                    -- _obj-    m URIRequest-navigationPolicyDecisionGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_request _obj'-    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'---- Enum NavigationType--data NavigationType = -      NavigationTypeLinkClicked-    | NavigationTypeFormSubmitted-    | NavigationTypeBackForward-    | NavigationTypeReload-    | NavigationTypeFormResubmitted-    | NavigationTypeOther-    | AnotherNavigationType Int-    deriving (Show, Eq)--instance Enum NavigationType where-    fromEnum NavigationTypeLinkClicked = 0-    fromEnum NavigationTypeFormSubmitted = 1-    fromEnum NavigationTypeBackForward = 2-    fromEnum NavigationTypeReload = 3-    fromEnum NavigationTypeFormResubmitted = 4-    fromEnum NavigationTypeOther = 5-    fromEnum (AnotherNavigationType k) = k--    toEnum 0 = NavigationTypeLinkClicked-    toEnum 1 = NavigationTypeFormSubmitted-    toEnum 2 = NavigationTypeBackForward-    toEnum 3 = NavigationTypeReload-    toEnum 4 = NavigationTypeFormResubmitted-    toEnum 5 = NavigationTypeOther-    toEnum k = AnotherNavigationType k--foreign import ccall "webkit_navigation_type_get_type" c_webkit_navigation_type_get_type :: -    IO GType--instance BoxedEnum NavigationType where-    boxedEnumType _ = c_webkit_navigation_type_get_type---- Enum NetworkError--data NetworkError = -      NetworkErrorFailed-    | NetworkErrorTransport-    | NetworkErrorUnknownProtocol-    | NetworkErrorCancelled-    | NetworkErrorFileDoesNotExist-    | AnotherNetworkError Int-    deriving (Show, Eq)--instance Enum NetworkError where-    fromEnum NetworkErrorFailed = 399-    fromEnum NetworkErrorTransport = 300-    fromEnum NetworkErrorUnknownProtocol = 301-    fromEnum NetworkErrorCancelled = 302-    fromEnum NetworkErrorFileDoesNotExist = 303-    fromEnum (AnotherNetworkError k) = k--    toEnum 300 = NetworkErrorTransport-    toEnum 301 = NetworkErrorUnknownProtocol-    toEnum 302 = NetworkErrorCancelled-    toEnum 303 = NetworkErrorFileDoesNotExist-    toEnum 399 = NetworkErrorFailed-    toEnum k = AnotherNetworkError k--instance GErrorClass NetworkError where-    gerrorClassDomain _ = "WebKitNetworkError"--catchNetworkError ::-    IO a ->-    (NetworkError -> GErrorMessage -> IO a) ->-    IO a-catchNetworkError = catchGErrorJustDomain--handleNetworkError ::-    (NetworkError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleNetworkError = handleGErrorJustDomain--foreign import ccall "webkit_network_error_get_type" c_webkit_network_error_get_type :: -    IO GType--instance BoxedEnum NetworkError where-    boxedEnumType _ = c_webkit_network_error_get_type---- object Notification -newtype Notification = Notification (ForeignPtr Notification)-noNotification :: Maybe Notification-noNotification = Nothing--foreign import ccall "webkit_notification_get_type"-    c_webkit_notification_get_type :: IO GType--type instance ParentTypes Notification = '[GObject.Object]--instance GObject Notification where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_notification_get_type-    --class GObject o => NotificationK o-instance (GObject o, IsDescendantOf Notification o) => NotificationK o--toNotification :: NotificationK o => o -> IO Notification-toNotification = unsafeCastTo Notification---- 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}]--- 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--foreign import ccall "webkit_notification_close" webkit_notification_close :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO ()---notificationClose ::-    (MonadIO m, NotificationK a) =>-    a ->                                    -- _obj-    m ()-notificationClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_notification_close _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_notification_get_body" webkit_notification_get_body :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO CString---notificationGetBody ::-    (MonadIO m, NotificationK a) =>-    a ->                                    -- _obj-    m T.Text-notificationGetBody _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_notification_get_body _obj'-    checkUnexpectedReturnNULL "webkit_notification_get_body" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_notification_get_id" webkit_notification_get_id :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO Word64---notificationGetId ::-    (MonadIO m, NotificationK a) =>-    a ->                                    -- _obj-    m Word64-notificationGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_notification_get_id _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_notification_get_title" webkit_notification_get_title :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO CString---notificationGetTitle ::-    (MonadIO m, NotificationK a) =>-    a ->                                    -- _obj-    m T.Text-notificationGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_notification_get_title _obj'-    checkUnexpectedReturnNULL "webkit_notification_get_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- signal Notification::closed-type NotificationClosedCallback =-    IO ()--noNotificationClosedCallback :: Maybe NotificationClosedCallback-noNotificationClosedCallback = Nothing--type NotificationClosedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkNotificationClosedCallback :: NotificationClosedCallbackC -> IO (FunPtr NotificationClosedCallbackC)--notificationClosedClosure :: NotificationClosedCallback -> IO Closure-notificationClosedClosure cb = newCClosure =<< mkNotificationClosedCallback wrapped-    where wrapped = notificationClosedCallbackWrapper cb--notificationClosedCallbackWrapper ::-    NotificationClosedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-notificationClosedCallbackWrapper _cb _ _ = do-    _cb --onNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId-onNotificationClosed obj cb = liftIO $ connectNotificationClosed obj cb SignalConnectBefore-afterNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId-afterNotificationClosed obj cb = connectNotificationClosed obj cb SignalConnectAfter--connectNotificationClosed :: (GObject a, MonadIO m) =>-                             a -> NotificationClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectNotificationClosed obj cb after = liftIO $ do-    cb' <- mkNotificationClosedCallback (notificationClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- object NotificationPermissionRequest -newtype NotificationPermissionRequest = NotificationPermissionRequest (ForeignPtr NotificationPermissionRequest)-noNotificationPermissionRequest :: Maybe NotificationPermissionRequest-noNotificationPermissionRequest = Nothing--foreign import ccall "webkit_notification_permission_request_get_type"-    c_webkit_notification_permission_request_get_type :: IO GType--type instance ParentTypes NotificationPermissionRequest = '[GObject.Object, PermissionRequest]--instance GObject NotificationPermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_notification_permission_request_get_type-    --class GObject o => NotificationPermissionRequestK o-instance (GObject o, IsDescendantOf NotificationPermissionRequest o) => NotificationPermissionRequestK o--toNotificationPermissionRequest :: NotificationPermissionRequestK o => o -> IO NotificationPermissionRequest-toNotificationPermissionRequest = unsafeCastTo NotificationPermissionRequest---- interface PermissionRequest --newtype PermissionRequest = PermissionRequest (ForeignPtr PermissionRequest)-noPermissionRequest :: Maybe PermissionRequest-noPermissionRequest = Nothing--foreign import ccall "webkit_permission_request_get_type"-    c_webkit_permission_request_get_type :: IO GType--type instance ParentTypes PermissionRequest = '[GObject.Object]--instance GObject PermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_permission_request_get_type-    --class GObject o => PermissionRequestK o-instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o--toPermissionRequest :: PermissionRequestK o => o -> IO PermissionRequest-toPermissionRequest = unsafeCastTo PermissionRequest---- 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}]--- 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--foreign import ccall "webkit_permission_request_allow" webkit_permission_request_allow :: -    Ptr PermissionRequest ->                -- _obj : TInterface "WebKit2" "PermissionRequest"-    IO ()---permissionRequestAllow ::-    (MonadIO m, PermissionRequestK a) =>-    a ->                                    -- _obj-    m ()-permissionRequestAllow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_permission_request_allow _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_permission_request_deny" webkit_permission_request_deny :: -    Ptr PermissionRequest ->                -- _obj : TInterface "WebKit2" "PermissionRequest"-    IO ()---permissionRequestDeny ::-    (MonadIO m, PermissionRequestK a) =>-    a ->                                    -- _obj-    m ()-permissionRequestDeny _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_permission_request_deny _obj'-    touchManagedPtr _obj-    return ()---- object Plugin -newtype Plugin = Plugin (ForeignPtr Plugin)-noPlugin :: Maybe Plugin-noPlugin = Nothing--foreign import ccall "webkit_plugin_get_type"-    c_webkit_plugin_get_type :: IO GType--type instance ParentTypes Plugin = '[GObject.Object]--instance GObject Plugin where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_plugin_get_type-    --class GObject o => PluginK o-instance (GObject o, IsDescendantOf Plugin o) => PluginK o--toPlugin :: PluginK o => o -> IO Plugin-toPlugin = unsafeCastTo Plugin---- 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}]--- 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--foreign import ccall "webkit_plugin_get_description" webkit_plugin_get_description :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO CString---pluginGetDescription ::-    (MonadIO m, PluginK a) =>-    a ->                                    -- _obj-    m T.Text-pluginGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_description _obj'-    checkUnexpectedReturnNULL "webkit_plugin_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_plugin_get_mime_info_list" webkit_plugin_get_mime_info_list :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO (Ptr (GList (Ptr MimeInfo)))---pluginGetMimeInfoList ::-    (MonadIO m, PluginK a) =>-    a ->                                    -- _obj-    m [MimeInfo]-pluginGetMimeInfoList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_mime_info_list _obj'-    checkUnexpectedReturnNULL "webkit_plugin_get_mime_info_list" result-    result' <- unpackGList result-    result'' <- mapM (newBoxed MimeInfo) result'-    touchManagedPtr _obj-    return result''---- 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}]--- 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--foreign import ccall "webkit_plugin_get_name" webkit_plugin_get_name :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO CString---pluginGetName ::-    (MonadIO m, PluginK a) =>-    a ->                                    -- _obj-    m T.Text-pluginGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_name _obj'-    checkUnexpectedReturnNULL "webkit_plugin_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_plugin_get_path" webkit_plugin_get_path :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO CString---pluginGetPath ::-    (MonadIO m, PluginK a) =>-    a ->                                    -- _obj-    m T.Text-pluginGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_path _obj'-    checkUnexpectedReturnNULL "webkit_plugin_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- Enum PluginError--data PluginError = -      PluginErrorFailed-    | PluginErrorCannotFindPlugin-    | PluginErrorCannotLoadPlugin-    | PluginErrorJavaUnavailable-    | PluginErrorConnectionCancelled-    | PluginErrorWillHandleLoad-    | AnotherPluginError Int-    deriving (Show, Eq)--instance Enum PluginError where-    fromEnum PluginErrorFailed = 299-    fromEnum PluginErrorCannotFindPlugin = 200-    fromEnum PluginErrorCannotLoadPlugin = 201-    fromEnum PluginErrorJavaUnavailable = 202-    fromEnum PluginErrorConnectionCancelled = 203-    fromEnum PluginErrorWillHandleLoad = 204-    fromEnum (AnotherPluginError k) = k--    toEnum 200 = PluginErrorCannotFindPlugin-    toEnum 201 = PluginErrorCannotLoadPlugin-    toEnum 202 = PluginErrorJavaUnavailable-    toEnum 203 = PluginErrorConnectionCancelled-    toEnum 204 = PluginErrorWillHandleLoad-    toEnum 299 = PluginErrorFailed-    toEnum k = AnotherPluginError k--instance GErrorClass PluginError where-    gerrorClassDomain _ = "WebKitPluginError"--catchPluginError ::-    IO a ->-    (PluginError -> GErrorMessage -> IO a) ->-    IO a-catchPluginError = catchGErrorJustDomain--handlePluginError ::-    (PluginError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handlePluginError = handleGErrorJustDomain--foreign import ccall "webkit_plugin_error_get_type" c_webkit_plugin_error_get_type :: -    IO GType--instance BoxedEnum PluginError where-    boxedEnumType _ = c_webkit_plugin_error_get_type---- object PolicyDecision -newtype PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision)-noPolicyDecision :: Maybe PolicyDecision-noPolicyDecision = Nothing--foreign import ccall "webkit_policy_decision_get_type"-    c_webkit_policy_decision_get_type :: IO GType--type instance ParentTypes PolicyDecision = '[GObject.Object]--instance GObject PolicyDecision where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_policy_decision_get_type-    --class GObject o => PolicyDecisionK o-instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o--toPolicyDecision :: PolicyDecisionK o => o -> IO PolicyDecision-toPolicyDecision = unsafeCastTo PolicyDecision---- 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}]--- 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--foreign import ccall "webkit_policy_decision_download" webkit_policy_decision_download :: -    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"-    IO ()---policyDecisionDownload ::-    (MonadIO m, PolicyDecisionK a) =>-    a ->                                    -- _obj-    m ()-policyDecisionDownload _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_policy_decision_download _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_policy_decision_ignore" webkit_policy_decision_ignore :: -    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"-    IO ()---policyDecisionIgnore ::-    (MonadIO m, PolicyDecisionK a) =>-    a ->                                    -- _obj-    m ()-policyDecisionIgnore _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_policy_decision_ignore _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_policy_decision_use" webkit_policy_decision_use :: -    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"-    IO ()---policyDecisionUse ::-    (MonadIO m, PolicyDecisionK a) =>-    a ->                                    -- _obj-    m ()-policyDecisionUse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_policy_decision_use _obj'-    touchManagedPtr _obj-    return ()---- Enum PolicyDecisionType--data PolicyDecisionType = -      PolicyDecisionTypeNavigationAction-    | PolicyDecisionTypeNewWindowAction-    | PolicyDecisionTypeResponse-    | AnotherPolicyDecisionType Int-    deriving (Show, Eq)--instance Enum PolicyDecisionType where-    fromEnum PolicyDecisionTypeNavigationAction = 0-    fromEnum PolicyDecisionTypeNewWindowAction = 1-    fromEnum PolicyDecisionTypeResponse = 2-    fromEnum (AnotherPolicyDecisionType k) = k--    toEnum 0 = PolicyDecisionTypeNavigationAction-    toEnum 1 = PolicyDecisionTypeNewWindowAction-    toEnum 2 = PolicyDecisionTypeResponse-    toEnum k = AnotherPolicyDecisionType k--foreign import ccall "webkit_policy_decision_type_get_type" c_webkit_policy_decision_type_get_type :: -    IO GType--instance BoxedEnum PolicyDecisionType where-    boxedEnumType _ = c_webkit_policy_decision_type_get_type---- Enum PolicyError--data PolicyError = -      PolicyErrorFailed-    | PolicyErrorCannotShowMimeType-    | PolicyErrorCannotShowUri-    | PolicyErrorFrameLoadInterruptedByPolicyChange-    | PolicyErrorCannotUseRestrictedPort-    | AnotherPolicyError Int-    deriving (Show, Eq)--instance Enum PolicyError where-    fromEnum PolicyErrorFailed = 199-    fromEnum PolicyErrorCannotShowMimeType = 100-    fromEnum PolicyErrorCannotShowUri = 101-    fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102-    fromEnum PolicyErrorCannotUseRestrictedPort = 103-    fromEnum (AnotherPolicyError k) = k--    toEnum 100 = PolicyErrorCannotShowMimeType-    toEnum 101 = PolicyErrorCannotShowUri-    toEnum 102 = PolicyErrorFrameLoadInterruptedByPolicyChange-    toEnum 103 = PolicyErrorCannotUseRestrictedPort-    toEnum 199 = PolicyErrorFailed-    toEnum k = AnotherPolicyError k--instance GErrorClass PolicyError where-    gerrorClassDomain _ = "WebKitPolicyError"--catchPolicyError ::-    IO a ->-    (PolicyError -> GErrorMessage -> IO a) ->-    IO a-catchPolicyError = catchGErrorJustDomain--handlePolicyError ::-    (PolicyError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handlePolicyError = handleGErrorJustDomain--foreign import ccall "webkit_policy_error_get_type" c_webkit_policy_error_get_type :: -    IO GType--instance BoxedEnum PolicyError where-    boxedEnumType _ = c_webkit_policy_error_get_type---- Enum PrintError--data PrintError = -      PrintErrorGeneral-    | PrintErrorPrinterNotFound-    | PrintErrorInvalidPageRange-    | AnotherPrintError Int-    deriving (Show, Eq)--instance Enum PrintError where-    fromEnum PrintErrorGeneral = 599-    fromEnum PrintErrorPrinterNotFound = 500-    fromEnum PrintErrorInvalidPageRange = 501-    fromEnum (AnotherPrintError k) = k--    toEnum 500 = PrintErrorPrinterNotFound-    toEnum 501 = PrintErrorInvalidPageRange-    toEnum 599 = PrintErrorGeneral-    toEnum k = AnotherPrintError k--instance GErrorClass PrintError where-    gerrorClassDomain _ = "WebKitPrintError"--catchPrintError ::-    IO a ->-    (PrintError -> GErrorMessage -> IO a) ->-    IO a-catchPrintError = catchGErrorJustDomain--handlePrintError ::-    (PrintError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handlePrintError = handleGErrorJustDomain--foreign import ccall "webkit_print_error_get_type" c_webkit_print_error_get_type :: -    IO GType--instance BoxedEnum PrintError where-    boxedEnumType _ = c_webkit_print_error_get_type---- object PrintOperation -newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation)-noPrintOperation :: Maybe PrintOperation-noPrintOperation = Nothing--foreign import ccall "webkit_print_operation_get_type"-    c_webkit_print_operation_get_type :: IO GType--type instance ParentTypes PrintOperation = '[GObject.Object]--instance GObject PrintOperation where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_print_operation_get_type-    --class GObject o => PrintOperationK o-instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o--toPrintOperation :: PrintOperationK o => o -> IO PrintOperation-toPrintOperation = unsafeCastTo PrintOperation---- 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}]--- 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--foreign import ccall "webkit_print_operation_new" webkit_print_operation_new :: -    Ptr WebView ->                          -- web_view : TInterface "WebKit2" "WebView"-    IO (Ptr PrintOperation)---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'-    checkUnexpectedReturnNULL "webkit_print_operation_new" result-    result' <- (wrapObject PrintOperation) result-    touchManagedPtr web_view-    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}]--- 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--foreign import ccall "webkit_print_operation_get_page_setup" webkit_print_operation_get_page_setup :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    IO (Ptr Gtk.PageSetup)---printOperationGetPageSetup ::-    (MonadIO m, PrintOperationK a) =>-    a ->                                    -- _obj-    m Gtk.PageSetup-printOperationGetPageSetup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_print_operation_get_page_setup _obj'-    checkUnexpectedReturnNULL "webkit_print_operation_get_page_setup" result-    result' <- (newObject Gtk.PageSetup) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_print_operation_get_print_settings" webkit_print_operation_get_print_settings :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    IO (Ptr Gtk.PrintSettings)---printOperationGetPrintSettings ::-    (MonadIO m, PrintOperationK a) =>-    a ->                                    -- _obj-    m Gtk.PrintSettings-printOperationGetPrintSettings _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_print_operation_get_print_settings _obj'-    checkUnexpectedReturnNULL "webkit_print_operation_get_print_settings" result-    result' <- (newObject Gtk.PrintSettings) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_print_operation_print" webkit_print_operation_print :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    IO ()---printOperationPrint ::-    (MonadIO m, PrintOperationK a) =>-    a ->                                    -- _obj-    m ()-printOperationPrint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_print_operation_print _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_print_operation_run_dialog" webkit_print_operation_run_dialog :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    Ptr Gtk.Window ->                       -- parent : TInterface "Gtk" "Window"-    IO CUInt---printOperationRunDialog ::-    (MonadIO m, PrintOperationK a, Gtk.WindowK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- parent-    m PrintOperationResponse-printOperationRunDialog _obj parent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            let jParent' = unsafeManagedPtrCastPtr jParent-            return jParent'-    result <- webkit_print_operation_run_dialog _obj' maybeParent-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    whenJust parent touchManagedPtr-    return result'---- 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}]--- 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--foreign import ccall "webkit_print_operation_set_page_setup" webkit_print_operation_set_page_setup :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    Ptr Gtk.PageSetup ->                    -- page_setup : TInterface "Gtk" "PageSetup"-    IO ()---printOperationSetPageSetup ::-    (MonadIO m, PrintOperationK a, Gtk.PageSetupK b) =>-    a ->                                    -- _obj-    b ->                                    -- page_setup-    m ()-printOperationSetPageSetup _obj page_setup = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let page_setup' = unsafeManagedPtrCastPtr page_setup-    webkit_print_operation_set_page_setup _obj' page_setup'-    touchManagedPtr _obj-    touchManagedPtr page_setup-    return ()---- 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}]--- 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--foreign import ccall "webkit_print_operation_set_print_settings" webkit_print_operation_set_print_settings :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    Ptr Gtk.PrintSettings ->                -- print_settings : TInterface "Gtk" "PrintSettings"-    IO ()---printOperationSetPrintSettings ::-    (MonadIO m, PrintOperationK a, Gtk.PrintSettingsK b) =>-    a ->                                    -- _obj-    b ->                                    -- print_settings-    m ()-printOperationSetPrintSettings _obj print_settings = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let print_settings' = unsafeManagedPtrCastPtr print_settings-    webkit_print_operation_set_print_settings _obj' print_settings'-    touchManagedPtr _obj-    touchManagedPtr print_settings-    return ()---- signal PrintOperation::failed-type PrintOperationFailedCallback =-    Ptr () ->-    IO ()--noPrintOperationFailedCallback :: Maybe PrintOperationFailedCallback-noPrintOperationFailedCallback = Nothing--type PrintOperationFailedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkPrintOperationFailedCallback :: PrintOperationFailedCallbackC -> IO (FunPtr PrintOperationFailedCallbackC)--printOperationFailedClosure :: PrintOperationFailedCallback -> IO Closure-printOperationFailedClosure cb = newCClosure =<< mkPrintOperationFailedCallback wrapped-    where wrapped = printOperationFailedCallbackWrapper cb--printOperationFailedCallbackWrapper ::-    PrintOperationFailedCallback ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO ()-printOperationFailedCallbackWrapper _cb _ error_ _ = do-    _cb  error_--onPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId-onPrintOperationFailed obj cb = liftIO $ connectPrintOperationFailed obj cb SignalConnectBefore-afterPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId-afterPrintOperationFailed obj cb = connectPrintOperationFailed obj cb SignalConnectAfter--connectPrintOperationFailed :: (GObject a, MonadIO m) =>-                               a -> PrintOperationFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectPrintOperationFailed obj cb after = liftIO $ do-    cb' <- mkPrintOperationFailedCallback (printOperationFailedCallbackWrapper cb)-    connectSignalFunPtr obj "failed" cb' after---- signal PrintOperation::finished-type PrintOperationFinishedCallback =-    IO ()--noPrintOperationFinishedCallback :: Maybe PrintOperationFinishedCallback-noPrintOperationFinishedCallback = Nothing--type PrintOperationFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkPrintOperationFinishedCallback :: PrintOperationFinishedCallbackC -> IO (FunPtr PrintOperationFinishedCallbackC)--printOperationFinishedClosure :: PrintOperationFinishedCallback -> IO Closure-printOperationFinishedClosure cb = newCClosure =<< mkPrintOperationFinishedCallback wrapped-    where wrapped = printOperationFinishedCallbackWrapper cb--printOperationFinishedCallbackWrapper ::-    PrintOperationFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-printOperationFinishedCallbackWrapper _cb _ _ = do-    _cb --onPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId-onPrintOperationFinished obj cb = liftIO $ connectPrintOperationFinished obj cb SignalConnectBefore-afterPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId-afterPrintOperationFinished obj cb = connectPrintOperationFinished obj cb SignalConnectAfter--connectPrintOperationFinished :: (GObject a, MonadIO m) =>-                                 a -> PrintOperationFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectPrintOperationFinished obj cb after = liftIO $ do-    cb' <- mkPrintOperationFinishedCallback (printOperationFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- Enum PrintOperationResponse--data PrintOperationResponse = -      PrintOperationResponsePrint-    | PrintOperationResponseCancel-    | AnotherPrintOperationResponse Int-    deriving (Show, Eq)--instance Enum PrintOperationResponse where-    fromEnum PrintOperationResponsePrint = 0-    fromEnum PrintOperationResponseCancel = 1-    fromEnum (AnotherPrintOperationResponse k) = k--    toEnum 0 = PrintOperationResponsePrint-    toEnum 1 = PrintOperationResponseCancel-    toEnum k = AnotherPrintOperationResponse k--foreign import ccall "webkit_print_operation_response_get_type" c_webkit_print_operation_response_get_type :: -    IO GType--instance BoxedEnum PrintOperationResponse where-    boxedEnumType _ = c_webkit_print_operation_response_get_type---- Enum ProcessModel--data ProcessModel = -      ProcessModelSharedSecondaryProcess-    | ProcessModelMultipleSecondaryProcesses-    | AnotherProcessModel Int-    deriving (Show, Eq)--instance Enum ProcessModel where-    fromEnum ProcessModelSharedSecondaryProcess = 0-    fromEnum ProcessModelMultipleSecondaryProcesses = 1-    fromEnum (AnotherProcessModel k) = k--    toEnum 0 = ProcessModelSharedSecondaryProcess-    toEnum 1 = ProcessModelMultipleSecondaryProcesses-    toEnum k = AnotherProcessModel k--foreign import ccall "webkit_process_model_get_type" c_webkit_process_model_get_type :: -    IO GType--instance BoxedEnum ProcessModel where-    boxedEnumType _ = c_webkit_process_model_get_type---- object ResponsePolicyDecision -newtype ResponsePolicyDecision = ResponsePolicyDecision (ForeignPtr ResponsePolicyDecision)-noResponsePolicyDecision :: Maybe ResponsePolicyDecision-noResponsePolicyDecision = Nothing--foreign import ccall "webkit_response_policy_decision_get_type"-    c_webkit_response_policy_decision_get_type :: IO GType--type instance ParentTypes ResponsePolicyDecision = '[PolicyDecision, GObject.Object]--instance GObject ResponsePolicyDecision where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_response_policy_decision_get_type-    --class GObject o => ResponsePolicyDecisionK o-instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o--toResponsePolicyDecision :: ResponsePolicyDecisionK o => o -> IO ResponsePolicyDecision-toResponsePolicyDecision = unsafeCastTo ResponsePolicyDecision---- 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}]--- 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--foreign import ccall "webkit_response_policy_decision_get_request" webkit_response_policy_decision_get_request :: -    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"-    IO (Ptr URIRequest)---responsePolicyDecisionGetRequest ::-    (MonadIO m, ResponsePolicyDecisionK a) =>-    a ->                                    -- _obj-    m URIRequest-responsePolicyDecisionGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_response_policy_decision_get_request _obj'-    checkUnexpectedReturnNULL "webkit_response_policy_decision_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_response_policy_decision_get_response" webkit_response_policy_decision_get_response :: -    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"-    IO (Ptr URIResponse)---responsePolicyDecisionGetResponse ::-    (MonadIO m, ResponsePolicyDecisionK a) =>-    a ->                                    -- _obj-    m URIResponse-responsePolicyDecisionGetResponse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_response_policy_decision_get_response _obj'-    checkUnexpectedReturnNULL "webkit_response_policy_decision_get_response" result-    result' <- (newObject URIResponse) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_response_policy_decision_is_mime_type_supported" webkit_response_policy_decision_is_mime_type_supported :: -    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"-    IO CInt---responsePolicyDecisionIsMimeTypeSupported ::-    (MonadIO m, ResponsePolicyDecisionK a) =>-    a ->                                    -- _obj-    m Bool-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'---- Enum SaveMode--data SaveMode = -      SaveModeMhtml-    | AnotherSaveMode Int-    deriving (Show, Eq)--instance Enum SaveMode where-    fromEnum SaveModeMhtml = 0-    fromEnum (AnotherSaveMode k) = k--    toEnum 0 = SaveModeMhtml-    toEnum k = AnotherSaveMode k--foreign import ccall "webkit_save_mode_get_type" c_webkit_save_mode_get_type :: -    IO GType--instance BoxedEnum SaveMode where-    boxedEnumType _ = c_webkit_save_mode_get_type---- struct ScriptDialog-newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog)-noScriptDialog :: Maybe ScriptDialog-noScriptDialog = Nothing--foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type :: -    IO GType--instance BoxedObject ScriptDialog where-    boxedType _ = c_webkit_script_dialog_get_type---- 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}]--- 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--foreign import ccall "webkit_script_dialog_confirm_set_confirmed" webkit_script_dialog_confirm_set_confirmed :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    CInt ->                                 -- confirmed : TBasicType TBoolean-    IO ()---scriptDialogConfirmSetConfirmed ::-    (MonadIO m) =>-    ScriptDialog ->                         -- _obj-    Bool ->                                 -- confirmed-    m ()-scriptDialogConfirmSetConfirmed _obj confirmed = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let confirmed' = (fromIntegral . fromEnum) confirmed-    webkit_script_dialog_confirm_set_confirmed _obj' confirmed'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_script_dialog_get_dialog_type" webkit_script_dialog_get_dialog_type :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    IO CUInt---scriptDialogGetDialogType ::-    (MonadIO m) =>-    ScriptDialog ->                         -- _obj-    m ScriptDialogType-scriptDialogGetDialogType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_script_dialog_get_dialog_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_script_dialog_get_message" webkit_script_dialog_get_message :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    IO CString---scriptDialogGetMessage ::-    (MonadIO m) =>-    ScriptDialog ->                         -- _obj-    m T.Text-scriptDialogGetMessage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_script_dialog_get_message _obj'-    checkUnexpectedReturnNULL "webkit_script_dialog_get_message" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_script_dialog_prompt_get_default_text" webkit_script_dialog_prompt_get_default_text :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    IO CString---scriptDialogPromptGetDefaultText ::-    (MonadIO m) =>-    ScriptDialog ->                         -- _obj-    m T.Text-scriptDialogPromptGetDefaultText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_script_dialog_prompt_get_default_text _obj'-    checkUnexpectedReturnNULL "webkit_script_dialog_prompt_get_default_text" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_script_dialog_prompt_set_text" webkit_script_dialog_prompt_set_text :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    CString ->                              -- text : TBasicType TUTF8-    IO ()---scriptDialogPromptSetText ::-    (MonadIO m) =>-    ScriptDialog ->                         -- _obj-    T.Text ->                               -- text-    m ()-scriptDialogPromptSetText _obj text = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    webkit_script_dialog_prompt_set_text _obj' text'-    touchManagedPtr _obj-    freeMem text'-    return ()---- Enum ScriptDialogType--data ScriptDialogType = -      ScriptDialogTypeAlert-    | ScriptDialogTypeConfirm-    | ScriptDialogTypePrompt-    | AnotherScriptDialogType Int-    deriving (Show, Eq)--instance Enum ScriptDialogType where-    fromEnum ScriptDialogTypeAlert = 0-    fromEnum ScriptDialogTypeConfirm = 1-    fromEnum ScriptDialogTypePrompt = 2-    fromEnum (AnotherScriptDialogType k) = k--    toEnum 0 = ScriptDialogTypeAlert-    toEnum 1 = ScriptDialogTypeConfirm-    toEnum 2 = ScriptDialogTypePrompt-    toEnum k = AnotherScriptDialogType k--foreign import ccall "webkit_script_dialog_type_get_type" c_webkit_script_dialog_type_get_type :: -    IO GType--instance BoxedEnum ScriptDialogType where-    boxedEnumType _ = c_webkit_script_dialog_type_get_type---- object SecurityManager -newtype SecurityManager = SecurityManager (ForeignPtr SecurityManager)-noSecurityManager :: Maybe SecurityManager-noSecurityManager = Nothing--foreign import ccall "webkit_security_manager_get_type"-    c_webkit_security_manager_get_type :: IO GType--type instance ParentTypes SecurityManager = '[GObject.Object]--instance GObject SecurityManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_security_manager_get_type-    --class GObject o => SecurityManagerK o-instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o--toSecurityManager :: SecurityManagerK o => o -> IO SecurityManager-toSecurityManager = unsafeCastTo SecurityManager---- 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}]--- 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--foreign import ccall "webkit_security_manager_register_uri_scheme_as_cors_enabled" webkit_security_manager_register_uri_scheme_as_cors_enabled :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsCorsEnabled ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m ()-securityManagerRegisterUriSchemeAsCorsEnabled _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_cors_enabled _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- 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}]--- 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--foreign import ccall "webkit_security_manager_register_uri_scheme_as_display_isolated" webkit_security_manager_register_uri_scheme_as_display_isolated :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsDisplayIsolated ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m ()-securityManagerRegisterUriSchemeAsDisplayIsolated _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_display_isolated _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- 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}]--- 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--foreign import ccall "webkit_security_manager_register_uri_scheme_as_empty_document" webkit_security_manager_register_uri_scheme_as_empty_document :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsEmptyDocument ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m ()-securityManagerRegisterUriSchemeAsEmptyDocument _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_empty_document _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- 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}]--- 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--foreign import ccall "webkit_security_manager_register_uri_scheme_as_local" webkit_security_manager_register_uri_scheme_as_local :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsLocal ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m ()-securityManagerRegisterUriSchemeAsLocal _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_local _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- 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}]--- 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--foreign import ccall "webkit_security_manager_register_uri_scheme_as_no_access" webkit_security_manager_register_uri_scheme_as_no_access :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsNoAccess ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m ()-securityManagerRegisterUriSchemeAsNoAccess _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_no_access _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- 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}]--- 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--foreign import ccall "webkit_security_manager_register_uri_scheme_as_secure" webkit_security_manager_register_uri_scheme_as_secure :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsSecure ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m ()-securityManagerRegisterUriSchemeAsSecure _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_secure _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- 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}]--- 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--foreign import ccall "webkit_security_manager_uri_scheme_is_cors_enabled" webkit_security_manager_uri_scheme_is_cors_enabled :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsCorsEnabled ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m Bool-securityManagerUriSchemeIsCorsEnabled _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_cors_enabled _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'---- 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}]--- 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--foreign import ccall "webkit_security_manager_uri_scheme_is_display_isolated" webkit_security_manager_uri_scheme_is_display_isolated :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsDisplayIsolated ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m Bool-securityManagerUriSchemeIsDisplayIsolated _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_display_isolated _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'---- 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}]--- 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--foreign import ccall "webkit_security_manager_uri_scheme_is_empty_document" webkit_security_manager_uri_scheme_is_empty_document :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsEmptyDocument ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m Bool-securityManagerUriSchemeIsEmptyDocument _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_empty_document _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'---- 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}]--- 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--foreign import ccall "webkit_security_manager_uri_scheme_is_local" webkit_security_manager_uri_scheme_is_local :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsLocal ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m Bool-securityManagerUriSchemeIsLocal _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_local _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'---- 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}]--- 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--foreign import ccall "webkit_security_manager_uri_scheme_is_no_access" webkit_security_manager_uri_scheme_is_no_access :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsNoAccess ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m Bool-securityManagerUriSchemeIsNoAccess _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_no_access _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'---- 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}]--- 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--foreign import ccall "webkit_security_manager_uri_scheme_is_secure" webkit_security_manager_uri_scheme_is_secure :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsSecure ::-    (MonadIO m, SecurityManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    m Bool-securityManagerUriSchemeIsSecure _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_secure _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'---- object Settings -newtype Settings = Settings (ForeignPtr Settings)-noSettings :: Maybe Settings-noSettings = Nothing--foreign import ccall "webkit_settings_get_type"-    c_webkit_settings_get_type :: IO GType--type instance ParentTypes Settings = '[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---- 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_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_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 ()---- Enum SnapshotError--data SnapshotError = -      SnapshotErrorCreate-    | AnotherSnapshotError Int-    deriving (Show, Eq)--instance Enum SnapshotError where-    fromEnum SnapshotErrorCreate = 799-    fromEnum (AnotherSnapshotError k) = k--    toEnum 799 = SnapshotErrorCreate-    toEnum k = AnotherSnapshotError k--instance GErrorClass SnapshotError where-    gerrorClassDomain _ = "WebKitSnapshotError"--catchSnapshotError ::-    IO a ->-    (SnapshotError -> GErrorMessage -> IO a) ->-    IO a-catchSnapshotError = catchGErrorJustDomain--handleSnapshotError ::-    (SnapshotError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleSnapshotError = handleGErrorJustDomain--foreign import ccall "webkit_snapshot_error_get_type" c_webkit_snapshot_error_get_type :: -    IO GType--instance BoxedEnum SnapshotError where-    boxedEnumType _ = c_webkit_snapshot_error_get_type---- Flags SnapshotOptions--data SnapshotOptions = -      SnapshotOptionsNone-    | SnapshotOptionsIncludeSelectionHighlighting-    | SnapshotOptionsTransparentBackground-    | AnotherSnapshotOptions Int-    deriving (Show, Eq)--instance Enum SnapshotOptions where-    fromEnum SnapshotOptionsNone = 0-    fromEnum SnapshotOptionsIncludeSelectionHighlighting = 1-    fromEnum SnapshotOptionsTransparentBackground = 2-    fromEnum (AnotherSnapshotOptions k) = k--    toEnum 0 = SnapshotOptionsNone-    toEnum 1 = SnapshotOptionsIncludeSelectionHighlighting-    toEnum 2 = SnapshotOptionsTransparentBackground-    toEnum k = AnotherSnapshotOptions k--foreign import ccall "webkit_snapshot_options_get_type" c_webkit_snapshot_options_get_type :: -    IO GType--instance BoxedEnum SnapshotOptions where-    boxedEnumType _ = c_webkit_snapshot_options_get_type--instance IsGFlag SnapshotOptions---- Enum SnapshotRegion--data SnapshotRegion = -      SnapshotRegionVisible-    | SnapshotRegionFullDocument-    | AnotherSnapshotRegion Int-    deriving (Show, Eq)--instance Enum SnapshotRegion where-    fromEnum SnapshotRegionVisible = 0-    fromEnum SnapshotRegionFullDocument = 1-    fromEnum (AnotherSnapshotRegion k) = k--    toEnum 0 = SnapshotRegionVisible-    toEnum 1 = SnapshotRegionFullDocument-    toEnum k = AnotherSnapshotRegion k--foreign import ccall "webkit_snapshot_region_get_type" c_webkit_snapshot_region_get_type :: -    IO GType--instance BoxedEnum SnapshotRegion where-    boxedEnumType _ = c_webkit_snapshot_region_get_type---- Enum TLSErrorsPolicy--data TLSErrorsPolicy = -      TLSErrorsPolicyIgnore-    | TLSErrorsPolicyFail-    | AnotherTLSErrorsPolicy Int-    deriving (Show, Eq)--instance Enum TLSErrorsPolicy where-    fromEnum TLSErrorsPolicyIgnore = 0-    fromEnum TLSErrorsPolicyFail = 1-    fromEnum (AnotherTLSErrorsPolicy k) = k--    toEnum 0 = TLSErrorsPolicyIgnore-    toEnum 1 = TLSErrorsPolicyFail-    toEnum k = AnotherTLSErrorsPolicy k--foreign import ccall "webkit_tls_errors_policy_get_type" c_webkit_tls_errors_policy_get_type :: -    IO GType--instance BoxedEnum TLSErrorsPolicy where-    boxedEnumType _ = c_webkit_tls_errors_policy_get_type---- object URIRequest -newtype URIRequest = URIRequest (ForeignPtr URIRequest)-noURIRequest :: Maybe URIRequest-noURIRequest = Nothing--foreign import ccall "webkit_uri_request_get_type"-    c_webkit_uri_request_get_type :: IO GType--type instance ParentTypes URIRequest = '[GObject.Object]--instance GObject URIRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_uri_request_get_type-    --class GObject o => URIRequestK o-instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o--toURIRequest :: URIRequestK o => o -> IO URIRequest-toURIRequest = unsafeCastTo URIRequest---- 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}]--- 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--foreign import ccall "webkit_uri_request_new" webkit_uri_request_new :: -    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr URIRequest)---uRIRequestNew ::-    (MonadIO m) =>-    T.Text ->                               -- uri-    m URIRequest-uRIRequestNew uri = liftIO $ do-    uri' <- textToCString uri-    result <- webkit_uri_request_new uri'-    checkUnexpectedReturnNULL "webkit_uri_request_new" result-    result' <- (wrapObject URIRequest) result-    freeMem uri'-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_request_get_http_headers" webkit_uri_request_get_http_headers :: -    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"-    IO (Ptr Soup.MessageHeaders)---uRIRequestGetHttpHeaders ::-    (MonadIO m, URIRequestK a) =>-    a ->                                    -- _obj-    m Soup.MessageHeaders-uRIRequestGetHttpHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_request_get_http_headers _obj'-    checkUnexpectedReturnNULL "webkit_uri_request_get_http_headers" result-    result' <- (newBoxed Soup.MessageHeaders) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_request_get_uri" webkit_uri_request_get_uri :: -    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"-    IO CString---uRIRequestGetUri ::-    (MonadIO m, URIRequestK a) =>-    a ->                                    -- _obj-    m T.Text-uRIRequestGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_request_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_uri_request_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_request_set_uri" webkit_uri_request_set_uri :: -    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"-    CString ->                              -- uri : TBasicType TUTF8-    IO ()---uRIRequestSetUri ::-    (MonadIO m, URIRequestK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri-    m ()-uRIRequestSetUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    webkit_uri_request_set_uri _obj' uri'-    touchManagedPtr _obj-    freeMem uri'-    return ()---- object URIResponse -newtype URIResponse = URIResponse (ForeignPtr URIResponse)-noURIResponse :: Maybe URIResponse-noURIResponse = Nothing--foreign import ccall "webkit_uri_response_get_type"-    c_webkit_uri_response_get_type :: IO GType--type instance ParentTypes URIResponse = '[GObject.Object]--instance GObject URIResponse where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_uri_response_get_type-    --class GObject o => URIResponseK o-instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o--toURIResponse :: URIResponseK o => o -> IO URIResponse-toURIResponse = unsafeCastTo URIResponse---- 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}]--- 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--foreign import ccall "webkit_uri_response_get_content_length" webkit_uri_response_get_content_length :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO Word64---uRIResponseGetContentLength ::-    (MonadIO m, URIResponseK a) =>-    a ->                                    -- _obj-    m Word64-uRIResponseGetContentLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_content_length _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_uri_response_get_http_headers" webkit_uri_response_get_http_headers :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO (Ptr Soup.MessageHeaders)---uRIResponseGetHttpHeaders ::-    (MonadIO m, URIResponseK a) =>-    a ->                                    -- _obj-    m Soup.MessageHeaders-uRIResponseGetHttpHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_http_headers _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_http_headers" result-    result' <- (newBoxed Soup.MessageHeaders) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_response_get_mime_type" webkit_uri_response_get_mime_type :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO CString---uRIResponseGetMimeType ::-    (MonadIO m, URIResponseK a) =>-    a ->                                    -- _obj-    m T.Text-uRIResponseGetMimeType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_mime_type _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_mime_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_response_get_status_code" webkit_uri_response_get_status_code :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO Word32---uRIResponseGetStatusCode ::-    (MonadIO m, URIResponseK a) =>-    a ->                                    -- _obj-    m Word32-uRIResponseGetStatusCode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_status_code _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_uri_response_get_suggested_filename" webkit_uri_response_get_suggested_filename :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO CString---uRIResponseGetSuggestedFilename ::-    (MonadIO m, URIResponseK a) =>-    a ->                                    -- _obj-    m T.Text-uRIResponseGetSuggestedFilename _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_suggested_filename _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_suggested_filename" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_response_get_uri" webkit_uri_response_get_uri :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO CString---uRIResponseGetUri ::-    (MonadIO m, URIResponseK a) =>-    a ->                                    -- _obj-    m T.Text-uRIResponseGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- object URISchemeRequest -newtype URISchemeRequest = URISchemeRequest (ForeignPtr URISchemeRequest)-noURISchemeRequest :: Maybe URISchemeRequest-noURISchemeRequest = Nothing--foreign import ccall "webkit_uri_scheme_request_get_type"-    c_webkit_uri_scheme_request_get_type :: IO GType--type instance ParentTypes URISchemeRequest = '[GObject.Object]--instance GObject URISchemeRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_uri_scheme_request_get_type-    --class GObject o => URISchemeRequestK o-instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o--toURISchemeRequest :: URISchemeRequestK o => o -> IO URISchemeRequest-toURISchemeRequest = unsafeCastTo URISchemeRequest---- 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}]--- 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--foreign import ccall "webkit_uri_scheme_request_finish" webkit_uri_scheme_request_finish :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    Ptr Gio.InputStream ->                  -- stream : TInterface "Gio" "InputStream"-    Int64 ->                                -- stream_length : TBasicType TInt64-    CString ->                              -- mime_type : TBasicType TUTF8-    IO ()---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-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stream' = unsafeManagedPtrCastPtr stream-    maybeMime_type <- case mime_type 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-    touchManagedPtr _obj-    touchManagedPtr stream-    freeMem maybeMime_type-    return ()---- 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}]--- 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--foreign import ccall "webkit_uri_scheme_request_finish_error" webkit_uri_scheme_request_finish_error :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    Ptr GError ->                           -- error : TError-    IO ()---uRISchemeRequestFinishError ::-    (MonadIO m, URISchemeRequestK a) =>-    a ->                                    -- _obj-    GError ->                               -- error-    m ()-uRISchemeRequestFinishError _obj error_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let error_' = unsafeManagedPtrGetPtr error_-    webkit_uri_scheme_request_finish_error _obj' error_'-    touchManagedPtr _obj-    touchManagedPtr error_-    return ()---- 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}]--- 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--foreign import ccall "webkit_uri_scheme_request_get_path" webkit_uri_scheme_request_get_path :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO CString---uRISchemeRequestGetPath ::-    (MonadIO m, URISchemeRequestK a) =>-    a ->                                    -- _obj-    m T.Text-uRISchemeRequestGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_path _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_scheme_request_get_scheme" webkit_uri_scheme_request_get_scheme :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO CString---uRISchemeRequestGetScheme ::-    (MonadIO m, URISchemeRequestK a) =>-    a ->                                    -- _obj-    m T.Text-uRISchemeRequestGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_scheme _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_scheme" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_scheme_request_get_uri" webkit_uri_scheme_request_get_uri :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO CString---uRISchemeRequestGetUri ::-    (MonadIO m, URISchemeRequestK a) =>-    a ->                                    -- _obj-    m T.Text-uRISchemeRequestGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_uri_scheme_request_get_web_view" webkit_uri_scheme_request_get_web_view :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO (Ptr WebView)---uRISchemeRequestGetWebView ::-    (MonadIO m, URISchemeRequestK a) =>-    a ->                                    -- _obj-    m WebView-uRISchemeRequestGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_web_view" result-    result' <- (newObject WebView) result-    touchManagedPtr _obj-    return result'---- callback URISchemeRequestCallback-uRISchemeRequestCallbackClosure :: URISchemeRequestCallback -> IO Closure-uRISchemeRequestCallbackClosure cb = newCClosure =<< mkURISchemeRequestCallback wrapped-    where wrapped = uRISchemeRequestCallbackWrapper Nothing cb--type URISchemeRequestCallbackC =-    Ptr URISchemeRequest ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkURISchemeRequestCallback :: URISchemeRequestCallbackC -> IO (FunPtr URISchemeRequestCallbackC)--type URISchemeRequestCallback =-    URISchemeRequest ->-    IO ()--noURISchemeRequestCallback :: Maybe URISchemeRequestCallback-noURISchemeRequestCallback = Nothing--uRISchemeRequestCallbackWrapper ::-    Maybe (Ptr (FunPtr (URISchemeRequestCallbackC))) ->-    URISchemeRequestCallback ->-    Ptr URISchemeRequest ->-    Ptr () ->-    IO ()-uRISchemeRequestCallbackWrapper funptrptr _cb request _ = do-    request' <- (newObject URISchemeRequest) request-    _cb  request'-    maybeReleaseFunPtr funptrptr---- Enum UserContentInjectedFrames--data UserContentInjectedFrames = -      UserContentInjectedFramesAllFrames-    | UserContentInjectedFramesTopFrame-    | AnotherUserContentInjectedFrames Int-    deriving (Show, Eq)--instance Enum UserContentInjectedFrames where-    fromEnum UserContentInjectedFramesAllFrames = 0-    fromEnum UserContentInjectedFramesTopFrame = 1-    fromEnum (AnotherUserContentInjectedFrames k) = k--    toEnum 0 = UserContentInjectedFramesAllFrames-    toEnum 1 = UserContentInjectedFramesTopFrame-    toEnum k = AnotherUserContentInjectedFrames k--foreign import ccall "webkit_user_content_injected_frames_get_type" c_webkit_user_content_injected_frames_get_type :: -    IO GType--instance BoxedEnum UserContentInjectedFrames where-    boxedEnumType _ = c_webkit_user_content_injected_frames_get_type---- object UserContentManager -newtype UserContentManager = UserContentManager (ForeignPtr UserContentManager)-noUserContentManager :: Maybe UserContentManager-noUserContentManager = Nothing--foreign import ccall "webkit_user_content_manager_get_type"-    c_webkit_user_content_manager_get_type :: IO GType--type instance ParentTypes UserContentManager = '[GObject.Object]--instance GObject UserContentManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_user_content_manager_get_type-    --class GObject o => UserContentManagerK o-instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o--toUserContentManager :: UserContentManagerK o => o -> IO UserContentManager-toUserContentManager = unsafeCastTo UserContentManager---- method UserContentManager::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "WebKit2" "UserContentManager"--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_new" webkit_user_content_manager_new :: -    IO (Ptr UserContentManager)---userContentManagerNew ::-    (MonadIO m) =>-    m UserContentManager-userContentManagerNew  = liftIO $ do-    result <- webkit_user_content_manager_new-    checkUnexpectedReturnNULL "webkit_user_content_manager_new" result-    result' <- (wrapObject UserContentManager) result-    return result'---- 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}]--- 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--foreign import ccall "webkit_user_content_manager_add_script" webkit_user_content_manager_add_script :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    Ptr UserScript ->                       -- script : TInterface "WebKit2" "UserScript"-    IO ()---userContentManagerAddScript ::-    (MonadIO m, UserContentManagerK a) =>-    a ->                                    -- _obj-    UserScript ->                           -- script-    m ()-userContentManagerAddScript _obj script = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let script' = unsafeManagedPtrGetPtr script-    webkit_user_content_manager_add_script _obj' script'-    touchManagedPtr _obj-    touchManagedPtr script-    return ()---- 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}]--- 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--foreign import ccall "webkit_user_content_manager_add_style_sheet" webkit_user_content_manager_add_style_sheet :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    Ptr UserStyleSheet ->                   -- stylesheet : TInterface "WebKit2" "UserStyleSheet"-    IO ()---userContentManagerAddStyleSheet ::-    (MonadIO m, UserContentManagerK a) =>-    a ->                                    -- _obj-    UserStyleSheet ->                       -- stylesheet-    m ()-userContentManagerAddStyleSheet _obj stylesheet = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stylesheet' = unsafeManagedPtrGetPtr stylesheet-    webkit_user_content_manager_add_style_sheet _obj' stylesheet'-    touchManagedPtr _obj-    touchManagedPtr stylesheet-    return ()---- 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}]--- 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--foreign import ccall "webkit_user_content_manager_register_script_message_handler" webkit_user_content_manager_register_script_message_handler :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    CString ->                              -- name : TBasicType TUTF8-    IO CInt---userContentManagerRegisterScriptMessageHandler ::-    (MonadIO m, UserContentManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- name-    m Bool-userContentManagerRegisterScriptMessageHandler _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- webkit_user_content_manager_register_script_message_handler _obj' name'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    return result'---- 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}]--- 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--foreign import ccall "webkit_user_content_manager_remove_all_scripts" webkit_user_content_manager_remove_all_scripts :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    IO ()---userContentManagerRemoveAllScripts ::-    (MonadIO m, UserContentManagerK a) =>-    a ->                                    -- _obj-    m ()-userContentManagerRemoveAllScripts _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_user_content_manager_remove_all_scripts _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_user_content_manager_remove_all_style_sheets" webkit_user_content_manager_remove_all_style_sheets :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    IO ()---userContentManagerRemoveAllStyleSheets ::-    (MonadIO m, UserContentManagerK a) =>-    a ->                                    -- _obj-    m ()-userContentManagerRemoveAllStyleSheets _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_user_content_manager_remove_all_style_sheets _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_user_content_manager_unregister_script_message_handler" webkit_user_content_manager_unregister_script_message_handler :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---userContentManagerUnregisterScriptMessageHandler ::-    (MonadIO m, UserContentManagerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- name-    m ()-userContentManagerUnregisterScriptMessageHandler _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    webkit_user_content_manager_unregister_script_message_handler _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()---- signal UserContentManager::script-message-received-type UserContentManagerScriptMessageReceivedCallback =-    JavascriptResult ->-    IO ()--noUserContentManagerScriptMessageReceivedCallback :: Maybe UserContentManagerScriptMessageReceivedCallback-noUserContentManagerScriptMessageReceivedCallback = Nothing--type UserContentManagerScriptMessageReceivedCallbackC =-    Ptr () ->                               -- object-    Ptr JavascriptResult ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkUserContentManagerScriptMessageReceivedCallback :: UserContentManagerScriptMessageReceivedCallbackC -> IO (FunPtr UserContentManagerScriptMessageReceivedCallbackC)--userContentManagerScriptMessageReceivedClosure :: UserContentManagerScriptMessageReceivedCallback -> IO Closure-userContentManagerScriptMessageReceivedClosure cb = newCClosure =<< mkUserContentManagerScriptMessageReceivedCallback wrapped-    where wrapped = userContentManagerScriptMessageReceivedCallbackWrapper cb--userContentManagerScriptMessageReceivedCallbackWrapper ::-    UserContentManagerScriptMessageReceivedCallback ->-    Ptr () ->-    Ptr JavascriptResult ->-    Ptr () ->-    IO ()-userContentManagerScriptMessageReceivedCallbackWrapper _cb _ js_result _ = do-    js_result' <- (newBoxed JavascriptResult) js_result-    _cb  js_result'--onUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId-onUserContentManagerScriptMessageReceived obj cb = liftIO $ connectUserContentManagerScriptMessageReceived obj cb SignalConnectBefore-afterUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId-afterUserContentManagerScriptMessageReceived obj cb = connectUserContentManagerScriptMessageReceived obj cb SignalConnectAfter--connectUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) =>-                                                  a -> UserContentManagerScriptMessageReceivedCallback -> SignalConnectMode -> m SignalHandlerId-connectUserContentManagerScriptMessageReceived obj cb after = liftIO $ do-    cb' <- mkUserContentManagerScriptMessageReceivedCallback (userContentManagerScriptMessageReceivedCallbackWrapper cb)-    connectSignalFunPtr obj "script-message-received" cb' after---- object UserMediaPermissionRequest -newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ForeignPtr UserMediaPermissionRequest)-noUserMediaPermissionRequest :: Maybe UserMediaPermissionRequest-noUserMediaPermissionRequest = Nothing--foreign import ccall "webkit_user_media_permission_request_get_type"-    c_webkit_user_media_permission_request_get_type :: IO GType--type instance ParentTypes UserMediaPermissionRequest = '[GObject.Object, PermissionRequest]--instance GObject UserMediaPermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_user_media_permission_request_get_type-    --class GObject o => UserMediaPermissionRequestK o-instance (GObject o, IsDescendantOf UserMediaPermissionRequest o) => UserMediaPermissionRequestK o--toUserMediaPermissionRequest :: UserMediaPermissionRequestK o => o -> IO UserMediaPermissionRequest-toUserMediaPermissionRequest = unsafeCastTo UserMediaPermissionRequest---- struct UserScript-newtype UserScript = UserScript (ForeignPtr UserScript)-noUserScript :: Maybe UserScript-noUserScript = Nothing--foreign import ccall "webkit_user_script_get_type" c_webkit_user_script_get_type :: -    IO GType--instance BoxedObject UserScript where-    boxedType _ = c_webkit_user_script_get_type---- 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}]--- 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--foreign import ccall "webkit_user_script_new" webkit_user_script_new :: -    CString ->                              -- source : TBasicType TUTF8-    CUInt ->                                -- injected_frames : TInterface "WebKit2" "UserContentInjectedFrames"-    CUInt ->                                -- injection_time : TInterface "WebKit2" "UserScriptInjectionTime"-    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO (Ptr UserScript)---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-    source' <- textToCString source-    let injected_frames' = (fromIntegral . fromEnum) injected_frames-    let injection_time' = (fromIntegral . fromEnum) injection_time-    maybeWhitelist <- case whitelist of-        Nothing -> return nullPtr-        Just jWhitelist -> do-            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist-            return jWhitelist'-    maybeBlacklist <- case blacklist of-        Nothing -> return nullPtr-        Just jBlacklist -> do-            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist-            return jBlacklist'-    result <- webkit_user_script_new source' injected_frames' injection_time' maybeWhitelist maybeBlacklist-    checkUnexpectedReturnNULL "webkit_user_script_new" result-    result' <- (wrapBoxed UserScript) result-    freeMem source'-    mapZeroTerminatedCArray freeMem maybeWhitelist-    freeMem maybeWhitelist-    mapZeroTerminatedCArray freeMem maybeBlacklist-    freeMem maybeBlacklist-    return result'---- 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}]--- 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--foreign import ccall "webkit_user_script_ref" webkit_user_script_ref :: -    Ptr UserScript ->                       -- _obj : TInterface "WebKit2" "UserScript"-    IO (Ptr UserScript)---userScriptRef ::-    (MonadIO m) =>-    UserScript ->                           -- _obj-    m UserScript-userScriptRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_user_script_ref _obj'-    checkUnexpectedReturnNULL "webkit_user_script_ref" result-    result' <- (wrapBoxed UserScript) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_user_script_unref" webkit_user_script_unref :: -    Ptr UserScript ->                       -- _obj : TInterface "WebKit2" "UserScript"-    IO ()---userScriptUnref ::-    (MonadIO m) =>-    UserScript ->                           -- _obj-    m ()-userScriptUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_user_script_unref _obj'-    touchManagedPtr _obj-    return ()---- Enum UserScriptInjectionTime--data UserScriptInjectionTime = -      UserScriptInjectionTimeStart-    | UserScriptInjectionTimeEnd-    | AnotherUserScriptInjectionTime Int-    deriving (Show, Eq)--instance Enum UserScriptInjectionTime where-    fromEnum UserScriptInjectionTimeStart = 0-    fromEnum UserScriptInjectionTimeEnd = 1-    fromEnum (AnotherUserScriptInjectionTime k) = k--    toEnum 0 = UserScriptInjectionTimeStart-    toEnum 1 = UserScriptInjectionTimeEnd-    toEnum k = AnotherUserScriptInjectionTime k--foreign import ccall "webkit_user_script_injection_time_get_type" c_webkit_user_script_injection_time_get_type :: -    IO GType--instance BoxedEnum UserScriptInjectionTime where-    boxedEnumType _ = c_webkit_user_script_injection_time_get_type---- Enum UserStyleLevel--data UserStyleLevel = -      UserStyleLevelUser-    | UserStyleLevelAuthor-    | AnotherUserStyleLevel Int-    deriving (Show, Eq)--instance Enum UserStyleLevel where-    fromEnum UserStyleLevelUser = 0-    fromEnum UserStyleLevelAuthor = 1-    fromEnum (AnotherUserStyleLevel k) = k--    toEnum 0 = UserStyleLevelUser-    toEnum 1 = UserStyleLevelAuthor-    toEnum k = AnotherUserStyleLevel k--foreign import ccall "webkit_user_style_level_get_type" c_webkit_user_style_level_get_type :: -    IO GType--instance BoxedEnum UserStyleLevel where-    boxedEnumType _ = c_webkit_user_style_level_get_type---- struct UserStyleSheet-newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet)-noUserStyleSheet :: Maybe UserStyleSheet-noUserStyleSheet = Nothing--foreign import ccall "webkit_user_style_sheet_get_type" c_webkit_user_style_sheet_get_type :: -    IO GType--instance BoxedObject UserStyleSheet where-    boxedType _ = c_webkit_user_style_sheet_get_type---- 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}]--- 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--foreign import ccall "webkit_user_style_sheet_new" webkit_user_style_sheet_new :: -    CString ->                              -- source : TBasicType TUTF8-    CUInt ->                                -- injected_frames : TInterface "WebKit2" "UserContentInjectedFrames"-    CUInt ->                                -- level : TInterface "WebKit2" "UserStyleLevel"-    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO (Ptr UserStyleSheet)---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-    source' <- textToCString source-    let injected_frames' = (fromIntegral . fromEnum) injected_frames-    let level' = (fromIntegral . fromEnum) level-    maybeWhitelist <- case whitelist of-        Nothing -> return nullPtr-        Just jWhitelist -> do-            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist-            return jWhitelist'-    maybeBlacklist <- case blacklist of-        Nothing -> return nullPtr-        Just jBlacklist -> do-            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist-            return jBlacklist'-    result <- webkit_user_style_sheet_new source' injected_frames' level' maybeWhitelist maybeBlacklist-    checkUnexpectedReturnNULL "webkit_user_style_sheet_new" result-    result' <- (wrapBoxed UserStyleSheet) result-    freeMem source'-    mapZeroTerminatedCArray freeMem maybeWhitelist-    freeMem maybeWhitelist-    mapZeroTerminatedCArray freeMem maybeBlacklist-    freeMem maybeBlacklist-    return result'---- 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}]--- 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--foreign import ccall "webkit_user_style_sheet_ref" webkit_user_style_sheet_ref :: -    Ptr UserStyleSheet ->                   -- _obj : TInterface "WebKit2" "UserStyleSheet"-    IO (Ptr UserStyleSheet)---userStyleSheetRef ::-    (MonadIO m) =>-    UserStyleSheet ->                       -- _obj-    m UserStyleSheet-userStyleSheetRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_user_style_sheet_ref _obj'-    checkUnexpectedReturnNULL "webkit_user_style_sheet_ref" result-    result' <- (wrapBoxed UserStyleSheet) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_user_style_sheet_unref" webkit_user_style_sheet_unref :: -    Ptr UserStyleSheet ->                   -- _obj : TInterface "WebKit2" "UserStyleSheet"-    IO ()---userStyleSheetUnref ::-    (MonadIO m) =>-    UserStyleSheet ->                       -- _obj-    m ()-userStyleSheetUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_user_style_sheet_unref _obj'-    touchManagedPtr _obj-    return ()---- object WebContext -newtype WebContext = WebContext (ForeignPtr WebContext)-noWebContext :: Maybe WebContext-noWebContext = Nothing--foreign import ccall "webkit_web_context_get_type"-    c_webkit_web_context_get_type :: IO GType--type instance ParentTypes WebContext = '[GObject.Object]--instance GObject WebContext where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_web_context_get_type-    --class GObject o => WebContextK o-instance (GObject o, IsDescendantOf WebContext o) => WebContextK o--toWebContext :: WebContextK o => o -> IO WebContext-toWebContext = unsafeCastTo WebContext---- method WebContext::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "WebKit2" "WebContext"--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_new" webkit_web_context_new :: -    IO (Ptr WebContext)---webContextNew ::-    (MonadIO m) =>-    m WebContext-webContextNew  = liftIO $ do-    result <- webkit_web_context_new-    checkUnexpectedReturnNULL "webkit_web_context_new" result-    result' <- (wrapObject WebContext) result-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_allow_tls_certificate_for_host" webkit_web_context_allow_tls_certificate_for_host :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr Gio.TlsCertificate ->               -- certificate : TInterface "Gio" "TlsCertificate"-    CString ->                              -- host : TBasicType TUTF8-    IO ()---webContextAllowTlsCertificateForHost ::-    (MonadIO m, WebContextK a, Gio.TlsCertificateK b) =>-    a ->                                    -- _obj-    b ->                                    -- certificate-    T.Text ->                               -- host-    m ()-webContextAllowTlsCertificateForHost _obj certificate host = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let certificate' = unsafeManagedPtrCastPtr certificate-    host' <- textToCString host-    webkit_web_context_allow_tls_certificate_for_host _obj' certificate' host'-    touchManagedPtr _obj-    touchManagedPtr certificate-    freeMem host'-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_clear_cache" webkit_web_context_clear_cache :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO ()---webContextClearCache ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m ()-webContextClearCache _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_context_clear_cache _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_download_uri" webkit_web_context_download_uri :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr Download)---webContextDownloadUri ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri-    m Download-webContextDownloadUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    result <- webkit_web_context_download_uri _obj' uri'-    checkUnexpectedReturnNULL "webkit_web_context_download_uri" result-    result' <- (wrapObject Download) result-    touchManagedPtr _obj-    freeMem uri'-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_cache_model" webkit_web_context_get_cache_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CUInt---webContextGetCacheModel ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m CacheModel-webContextGetCacheModel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_cache_model _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_cookie_manager" webkit_web_context_get_cookie_manager :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr CookieManager)---webContextGetCookieManager ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m CookieManager-webContextGetCookieManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_cookie_manager _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_cookie_manager" result-    result' <- (newObject CookieManager) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_favicon_database" webkit_web_context_get_favicon_database :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr FaviconDatabase)---webContextGetFaviconDatabase ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m FaviconDatabase-webContextGetFaviconDatabase _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_favicon_database _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_favicon_database" result-    result' <- (newObject FaviconDatabase) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_favicon_database_directory" webkit_web_context_get_favicon_database_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CString---webContextGetFaviconDatabaseDirectory ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m T.Text-webContextGetFaviconDatabaseDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_favicon_database_directory _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_favicon_database_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_plugins" webkit_web_context_get_plugins :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---webContextGetPlugins ::-    (MonadIO m, WebContextK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-webContextGetPlugins _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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_context_get_plugins _obj' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_get_plugins_finish" webkit_web_context_get_plugins_finish :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Plugin)))---webContextGetPluginsFinish ::-    (MonadIO m, WebContextK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m [Plugin]-webContextGetPluginsFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_web_context_get_plugins_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_web_context_get_plugins_finish" result-        result' <- unpackGList result-        result'' <- mapM (wrapObject Plugin) result'-        g_list_free result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )---- 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}]--- 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--foreign import ccall "webkit_web_context_get_process_model" webkit_web_context_get_process_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CUInt---webContextGetProcessModel ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m ProcessModel-webContextGetProcessModel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_process_model _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_security_manager" webkit_web_context_get_security_manager :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr SecurityManager)---webContextGetSecurityManager ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m SecurityManager-webContextGetSecurityManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_security_manager _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_security_manager" result-    result' <- (newObject SecurityManager) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_spell_checking_enabled" webkit_web_context_get_spell_checking_enabled :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CInt---webContextGetSpellCheckingEnabled ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m Bool-webContextGetSpellCheckingEnabled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_spell_checking_enabled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_spell_checking_languages" webkit_web_context_get_spell_checking_languages :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr CString)---webContextGetSpellCheckingLanguages ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m [T.Text]-webContextGetSpellCheckingLanguages _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_spell_checking_languages _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_spell_checking_languages" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_get_tls_errors_policy" webkit_web_context_get_tls_errors_policy :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CUInt---webContextGetTlsErrorsPolicy ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    m TLSErrorsPolicy-webContextGetTlsErrorsPolicy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_tls_errors_policy _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_context_prefetch_dns" webkit_web_context_prefetch_dns :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- hostname : TBasicType TUTF8-    IO ()---webContextPrefetchDns ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- hostname-    m ()-webContextPrefetchDns _obj hostname = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostname' <- textToCString hostname-    webkit_web_context_prefetch_dns _obj' hostname'-    touchManagedPtr _obj-    freeMem hostname'-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_register_uri_scheme" webkit_web_context_register_uri_scheme :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- scheme : TBasicType TUTF8-    FunPtr URISchemeRequestCallbackC ->     -- callback : TInterface "WebKit2" "URISchemeRequestCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- user_data_destroy_func : TInterface "GLib" "DestroyNotify"-    IO ()---webContextRegisterUriScheme ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- scheme-    URISchemeRequestCallback ->             -- callback-    m ()-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-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_additional_plugins_directory" webkit_web_context_set_additional_plugins_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- directory : TBasicType TUTF8-    IO ()---webContextSetAdditionalPluginsDirectory ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- directory-    m ()-webContextSetAdditionalPluginsDirectory _obj directory = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    directory' <- textToCString directory-    webkit_web_context_set_additional_plugins_directory _obj' directory'-    touchManagedPtr _obj-    freeMem directory'-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_cache_model" webkit_web_context_set_cache_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CUInt ->                                -- cache_model : TInterface "WebKit2" "CacheModel"-    IO ()---webContextSetCacheModel ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    CacheModel ->                           -- cache_model-    m ()-webContextSetCacheModel _obj cache_model = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cache_model' = (fromIntegral . fromEnum) cache_model-    webkit_web_context_set_cache_model _obj' cache_model'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_disk_cache_directory" webkit_web_context_set_disk_cache_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- directory : TBasicType TUTF8-    IO ()---webContextSetDiskCacheDirectory ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- directory-    m ()-webContextSetDiskCacheDirectory _obj directory = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    directory' <- textToCString directory-    webkit_web_context_set_disk_cache_directory _obj' directory'-    touchManagedPtr _obj-    freeMem directory'-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_favicon_database_directory" webkit_web_context_set_favicon_database_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---webContextSetFaviconDatabaseDirectory ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- path-    m ()-webContextSetFaviconDatabaseDirectory _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    webkit_web_context_set_favicon_database_directory _obj' maybePath-    touchManagedPtr _obj-    freeMem maybePath-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_preferred_languages" webkit_web_context_set_preferred_languages :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---webContextSetPreferredLanguages ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    Maybe ([T.Text]) ->                     -- languages-    m ()-webContextSetPreferredLanguages _obj languages = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLanguages <- case languages of-        Nothing -> return nullPtr-        Just jLanguages -> do-            jLanguages' <- packZeroTerminatedUTF8CArray jLanguages-            return jLanguages'-    webkit_web_context_set_preferred_languages _obj' maybeLanguages-    touchManagedPtr _obj-    mapZeroTerminatedCArray freeMem maybeLanguages-    freeMem maybeLanguages-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_process_model" webkit_web_context_set_process_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CUInt ->                                -- process_model : TInterface "WebKit2" "ProcessModel"-    IO ()---webContextSetProcessModel ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    ProcessModel ->                         -- process_model-    m ()-webContextSetProcessModel _obj process_model = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let process_model' = (fromIntegral . fromEnum) process_model-    webkit_web_context_set_process_model _obj' process_model'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_spell_checking_enabled" webkit_web_context_set_spell_checking_enabled :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---webContextSetSpellCheckingEnabled ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- enabled-    m ()-webContextSetSpellCheckingEnabled _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_web_context_set_spell_checking_enabled _obj' enabled'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_spell_checking_languages" webkit_web_context_set_spell_checking_languages :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---webContextSetSpellCheckingLanguages ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    [T.Text] ->                             -- languages-    m ()-webContextSetSpellCheckingLanguages _obj languages = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    languages' <- packZeroTerminatedUTF8CArray languages-    webkit_web_context_set_spell_checking_languages _obj' languages'-    touchManagedPtr _obj-    mapZeroTerminatedCArray freeMem languages'-    freeMem languages'-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_tls_errors_policy" webkit_web_context_set_tls_errors_policy :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CUInt ->                                -- policy : TInterface "WebKit2" "TLSErrorsPolicy"-    IO ()---webContextSetTlsErrorsPolicy ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    TLSErrorsPolicy ->                      -- policy-    m ()-webContextSetTlsErrorsPolicy _obj policy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let policy' = (fromIntegral . fromEnum) policy-    webkit_web_context_set_tls_errors_policy _obj' policy'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_web_extensions_directory" webkit_web_context_set_web_extensions_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- directory : TBasicType TUTF8-    IO ()---webContextSetWebExtensionsDirectory ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- directory-    m ()-webContextSetWebExtensionsDirectory _obj directory = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    directory' <- textToCString directory-    webkit_web_context_set_web_extensions_directory _obj' directory'-    touchManagedPtr _obj-    freeMem directory'-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_context_set_web_extensions_initialization_user_data" webkit_web_context_set_web_extensions_initialization_user_data :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr GVariant ->                         -- user_data : TVariant-    IO ()---webContextSetWebExtensionsInitializationUserData ::-    (MonadIO m, WebContextK a) =>-    a ->                                    -- _obj-    GVariant ->                             -- user_data-    m ()-webContextSetWebExtensionsInitializationUserData _obj user_data = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let user_data' = unsafeManagedPtrGetPtr user_data-    webkit_web_context_set_web_extensions_initialization_user_data _obj' user_data'-    touchManagedPtr _obj-    return ()---- method WebContext::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "WebKit2" "WebContext"--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_default" webkit_web_context_get_default :: -    IO (Ptr WebContext)---webContextGetDefault ::-    (MonadIO m) =>-    m WebContext-webContextGetDefault  = liftIO $ do-    result <- webkit_web_context_get_default-    checkUnexpectedReturnNULL "webkit_web_context_get_default" result-    result' <- (newObject WebContext) result-    return result'---- signal WebContext::download-started-type WebContextDownloadStartedCallback =-    Download ->-    IO ()--noWebContextDownloadStartedCallback :: Maybe WebContextDownloadStartedCallback-noWebContextDownloadStartedCallback = Nothing--type WebContextDownloadStartedCallbackC =-    Ptr () ->                               -- object-    Ptr Download ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebContextDownloadStartedCallback :: WebContextDownloadStartedCallbackC -> IO (FunPtr WebContextDownloadStartedCallbackC)--webContextDownloadStartedClosure :: WebContextDownloadStartedCallback -> IO Closure-webContextDownloadStartedClosure cb = newCClosure =<< mkWebContextDownloadStartedCallback wrapped-    where wrapped = webContextDownloadStartedCallbackWrapper cb--webContextDownloadStartedCallbackWrapper ::-    WebContextDownloadStartedCallback ->-    Ptr () ->-    Ptr Download ->-    Ptr () ->-    IO ()-webContextDownloadStartedCallbackWrapper _cb _ download _ = do-    download' <- (newObject Download) download-    _cb  download'--onWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId-onWebContextDownloadStarted obj cb = liftIO $ connectWebContextDownloadStarted obj cb SignalConnectBefore-afterWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId-afterWebContextDownloadStarted obj cb = connectWebContextDownloadStarted obj cb SignalConnectAfter--connectWebContextDownloadStarted :: (GObject a, MonadIO m) =>-                                    a -> WebContextDownloadStartedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebContextDownloadStarted obj cb after = liftIO $ do-    cb' <- mkWebContextDownloadStartedCallback (webContextDownloadStartedCallbackWrapper cb)-    connectSignalFunPtr obj "download-started" cb' after---- signal WebContext::initialize-web-extensions-type WebContextInitializeWebExtensionsCallback =-    IO ()--noWebContextInitializeWebExtensionsCallback :: Maybe WebContextInitializeWebExtensionsCallback-noWebContextInitializeWebExtensionsCallback = Nothing--type WebContextInitializeWebExtensionsCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebContextInitializeWebExtensionsCallback :: WebContextInitializeWebExtensionsCallbackC -> IO (FunPtr WebContextInitializeWebExtensionsCallbackC)--webContextInitializeWebExtensionsClosure :: WebContextInitializeWebExtensionsCallback -> IO Closure-webContextInitializeWebExtensionsClosure cb = newCClosure =<< mkWebContextInitializeWebExtensionsCallback wrapped-    where wrapped = webContextInitializeWebExtensionsCallbackWrapper cb--webContextInitializeWebExtensionsCallbackWrapper ::-    WebContextInitializeWebExtensionsCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webContextInitializeWebExtensionsCallbackWrapper _cb _ _ = do-    _cb --onWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId-onWebContextInitializeWebExtensions obj cb = liftIO $ connectWebContextInitializeWebExtensions obj cb SignalConnectBefore-afterWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId-afterWebContextInitializeWebExtensions obj cb = connectWebContextInitializeWebExtensions obj cb SignalConnectAfter--connectWebContextInitializeWebExtensions :: (GObject a, MonadIO m) =>-                                            a -> WebContextInitializeWebExtensionsCallback -> SignalConnectMode -> m SignalHandlerId-connectWebContextInitializeWebExtensions obj cb after = liftIO $ do-    cb' <- mkWebContextInitializeWebExtensionsCallback (webContextInitializeWebExtensionsCallbackWrapper cb)-    connectSignalFunPtr obj "initialize-web-extensions" cb' after---- object WebInspector -newtype WebInspector = WebInspector (ForeignPtr WebInspector)-noWebInspector :: Maybe WebInspector-noWebInspector = Nothing--foreign import ccall "webkit_web_inspector_get_type"-    c_webkit_web_inspector_get_type :: IO GType--type instance ParentTypes WebInspector = '[GObject.Object]--instance GObject WebInspector where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_web_inspector_get_type-    --class GObject o => WebInspectorK o-instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o--toWebInspector :: WebInspectorK o => o -> IO WebInspector-toWebInspector = unsafeCastTo WebInspector---- 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}]--- 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--foreign import ccall "webkit_web_inspector_attach" webkit_web_inspector_attach :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorAttach ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m ()-webInspectorAttach _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_attach _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorClose ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m ()-webInspectorClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_close _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_inspector_detach" webkit_web_inspector_detach :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorDetach ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m ()-webInspectorDetach _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_detach _obj'-    touchManagedPtr _obj-    return ()---- 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}]--- 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--foreign import ccall "webkit_web_inspector_get_attached_height" webkit_web_inspector_get_attached_height :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO Word32---webInspectorGetAttachedHeight ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m Word32-webInspectorGetAttachedHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_attached_height _obj'-    touchManagedPtr _obj-    return result---- 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}]--- 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--foreign import ccall "webkit_web_inspector_get_can_attach" webkit_web_inspector_get_can_attach :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO CInt---webInspectorGetCanAttach ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m Bool-webInspectorGetCanAttach _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_can_attach _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO CString---webInspectorGetInspectedUri ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m T.Text-webInspectorGetInspectedUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_inspected_uri _obj'-    checkUnexpectedReturnNULL "webkit_web_inspector_get_inspected_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO (Ptr WebViewBase)---webInspectorGetWebView ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m WebViewBase-webInspectorGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_web_inspector_get_web_view" result-    result' <- (newObject WebViewBase) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_inspector_is_attached" webkit_web_inspector_is_attached :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO CInt---webInspectorIsAttached ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m Bool-webInspectorIsAttached _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_is_attached _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorShow ::-    (MonadIO m, WebInspectorK a) =>-    a ->                                    -- _obj-    m ()-webInspectorShow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_show _obj'-    touchManagedPtr _obj-    return ()---- signal WebInspector::attach-type WebInspectorAttachCallback =-    IO Bool--noWebInspectorAttachCallback :: Maybe WebInspectorAttachCallback-noWebInspectorAttachCallback = Nothing--type WebInspectorAttachCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorAttachCallback :: WebInspectorAttachCallbackC -> IO (FunPtr WebInspectorAttachCallbackC)--webInspectorAttachClosure :: WebInspectorAttachCallback -> IO Closure-webInspectorAttachClosure cb = newCClosure =<< mkWebInspectorAttachCallback wrapped-    where wrapped = webInspectorAttachCallbackWrapper cb--webInspectorAttachCallbackWrapper ::-    WebInspectorAttachCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorAttachCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId-onWebInspectorAttach obj cb = liftIO $ connectWebInspectorAttach obj cb SignalConnectBefore-afterWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId-afterWebInspectorAttach obj cb = connectWebInspectorAttach obj cb SignalConnectAfter--connectWebInspectorAttach :: (GObject a, MonadIO m) =>-                             a -> WebInspectorAttachCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorAttach obj cb after = liftIO $ do-    cb' <- mkWebInspectorAttachCallback (webInspectorAttachCallbackWrapper cb)-    connectSignalFunPtr obj "attach" cb' after---- signal WebInspector::bring-to-front-type WebInspectorBringToFrontCallback =-    IO Bool--noWebInspectorBringToFrontCallback :: Maybe WebInspectorBringToFrontCallback-noWebInspectorBringToFrontCallback = Nothing--type WebInspectorBringToFrontCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorBringToFrontCallback :: WebInspectorBringToFrontCallbackC -> IO (FunPtr WebInspectorBringToFrontCallbackC)--webInspectorBringToFrontClosure :: WebInspectorBringToFrontCallback -> IO Closure-webInspectorBringToFrontClosure cb = newCClosure =<< mkWebInspectorBringToFrontCallback wrapped-    where wrapped = webInspectorBringToFrontCallbackWrapper cb--webInspectorBringToFrontCallbackWrapper ::-    WebInspectorBringToFrontCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorBringToFrontCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId-onWebInspectorBringToFront obj cb = liftIO $ connectWebInspectorBringToFront obj cb SignalConnectBefore-afterWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId-afterWebInspectorBringToFront obj cb = connectWebInspectorBringToFront obj cb SignalConnectAfter--connectWebInspectorBringToFront :: (GObject a, MonadIO m) =>-                                   a -> WebInspectorBringToFrontCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorBringToFront obj cb after = liftIO $ do-    cb' <- mkWebInspectorBringToFrontCallback (webInspectorBringToFrontCallbackWrapper cb)-    connectSignalFunPtr obj "bring-to-front" cb' after---- signal WebInspector::closed-type WebInspectorClosedCallback =-    IO ()--noWebInspectorClosedCallback :: Maybe WebInspectorClosedCallback-noWebInspectorClosedCallback = Nothing--type WebInspectorClosedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebInspectorClosedCallback :: WebInspectorClosedCallbackC -> IO (FunPtr WebInspectorClosedCallbackC)--webInspectorClosedClosure :: WebInspectorClosedCallback -> IO Closure-webInspectorClosedClosure cb = newCClosure =<< mkWebInspectorClosedCallback wrapped-    where wrapped = webInspectorClosedCallbackWrapper cb--webInspectorClosedCallbackWrapper ::-    WebInspectorClosedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webInspectorClosedCallbackWrapper _cb _ _ = do-    _cb --onWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId-onWebInspectorClosed obj cb = liftIO $ connectWebInspectorClosed obj cb SignalConnectBefore-afterWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId-afterWebInspectorClosed obj cb = connectWebInspectorClosed obj cb SignalConnectAfter--connectWebInspectorClosed :: (GObject a, MonadIO m) =>-                             a -> WebInspectorClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorClosed obj cb after = liftIO $ do-    cb' <- mkWebInspectorClosedCallback (webInspectorClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- signal WebInspector::detach-type WebInspectorDetachCallback =-    IO Bool--noWebInspectorDetachCallback :: Maybe WebInspectorDetachCallback-noWebInspectorDetachCallback = Nothing--type WebInspectorDetachCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorDetachCallback :: WebInspectorDetachCallbackC -> IO (FunPtr WebInspectorDetachCallbackC)--webInspectorDetachClosure :: WebInspectorDetachCallback -> IO Closure-webInspectorDetachClosure cb = newCClosure =<< mkWebInspectorDetachCallback wrapped-    where wrapped = webInspectorDetachCallbackWrapper cb--webInspectorDetachCallbackWrapper ::-    WebInspectorDetachCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorDetachCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId-onWebInspectorDetach obj cb = liftIO $ connectWebInspectorDetach obj cb SignalConnectBefore-afterWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId-afterWebInspectorDetach obj cb = connectWebInspectorDetach obj cb SignalConnectAfter--connectWebInspectorDetach :: (GObject a, MonadIO m) =>-                             a -> WebInspectorDetachCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorDetach obj cb after = liftIO $ do-    cb' <- mkWebInspectorDetachCallback (webInspectorDetachCallbackWrapper cb)-    connectSignalFunPtr obj "detach" cb' after---- signal WebInspector::open-window-type WebInspectorOpenWindowCallback =-    IO Bool--noWebInspectorOpenWindowCallback :: Maybe WebInspectorOpenWindowCallback-noWebInspectorOpenWindowCallback = Nothing--type WebInspectorOpenWindowCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorOpenWindowCallback :: WebInspectorOpenWindowCallbackC -> IO (FunPtr WebInspectorOpenWindowCallbackC)--webInspectorOpenWindowClosure :: WebInspectorOpenWindowCallback -> IO Closure-webInspectorOpenWindowClosure cb = newCClosure =<< mkWebInspectorOpenWindowCallback wrapped-    where wrapped = webInspectorOpenWindowCallbackWrapper cb--webInspectorOpenWindowCallbackWrapper ::-    WebInspectorOpenWindowCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorOpenWindowCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId-onWebInspectorOpenWindow obj cb = liftIO $ connectWebInspectorOpenWindow obj cb SignalConnectBefore-afterWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId-afterWebInspectorOpenWindow obj cb = connectWebInspectorOpenWindow obj cb SignalConnectAfter--connectWebInspectorOpenWindow :: (GObject a, MonadIO m) =>-                                 a -> WebInspectorOpenWindowCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorOpenWindow obj cb after = liftIO $ do-    cb' <- mkWebInspectorOpenWindowCallback (webInspectorOpenWindowCallbackWrapper cb)-    connectSignalFunPtr obj "open-window" cb' after---- object WebResource -newtype WebResource = WebResource (ForeignPtr WebResource)-noWebResource :: Maybe WebResource-noWebResource = Nothing--foreign import ccall "webkit_web_resource_get_type"-    c_webkit_web_resource_get_type :: IO GType--type instance ParentTypes WebResource = '[GObject.Object]--instance GObject WebResource where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_web_resource_get_type-    --class GObject o => WebResourceK o-instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o--toWebResource :: WebResourceK o => o -> IO WebResource-toWebResource = unsafeCastTo WebResource---- 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}]--- 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--foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---webResourceGetData ::-    (MonadIO m, WebResourceK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-webResourceGetData _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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_resource_get_data _obj' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()---- 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}]--- returnType : TCArray False (-1) 2 (TBasicType TUInt8)--- throws : True--- Skip return : False--foreign import ccall "webkit_web_resource_get_data_finish" webkit_web_resource_get_data_finish :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)---webResourceGetDataFinish ::-    (MonadIO m, WebResourceK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m ByteString-webResourceGetDataFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ webkit_web_resource_get_data_finish _obj' result_' length_-        length_' <- peek length_-        checkUnexpectedReturnNULL "webkit_web_resource_get_data_finish" result-        result' <- (unpackByteStringWithLength length_') result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem length_-        return result'-     ) (do-        freeMem length_-     )---- 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}]--- 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--foreign import ccall "webkit_web_resource_get_response" webkit_web_resource_get_response :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    IO (Ptr URIResponse)---webResourceGetResponse ::-    (MonadIO m, WebResourceK a) =>-    a ->                                    -- _obj-    m URIResponse-webResourceGetResponse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_resource_get_response _obj'-    checkUnexpectedReturnNULL "webkit_web_resource_get_response" result-    result' <- (newObject URIResponse) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    IO CString---webResourceGetUri ::-    (MonadIO m, WebResourceK a) =>-    a ->                                    -- _obj-    m T.Text-webResourceGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_resource_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_web_resource_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- signal WebResource::failed-type WebResourceFailedCallback =-    Ptr () ->-    IO ()--noWebResourceFailedCallback :: Maybe WebResourceFailedCallback-noWebResourceFailedCallback = Nothing--type WebResourceFailedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceFailedCallback :: WebResourceFailedCallbackC -> IO (FunPtr WebResourceFailedCallbackC)--webResourceFailedClosure :: WebResourceFailedCallback -> IO Closure-webResourceFailedClosure cb = newCClosure =<< mkWebResourceFailedCallback wrapped-    where wrapped = webResourceFailedCallbackWrapper cb--webResourceFailedCallbackWrapper ::-    WebResourceFailedCallback ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO ()-webResourceFailedCallbackWrapper _cb _ error_ _ = do-    _cb  error_--onWebResourceFailed :: (GObject a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId-onWebResourceFailed obj cb = liftIO $ connectWebResourceFailed obj cb SignalConnectBefore-afterWebResourceFailed :: (GObject a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId-afterWebResourceFailed obj cb = connectWebResourceFailed obj cb SignalConnectAfter--connectWebResourceFailed :: (GObject a, MonadIO m) =>-                            a -> WebResourceFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceFailed obj cb after = liftIO $ do-    cb' <- mkWebResourceFailedCallback (webResourceFailedCallbackWrapper cb)-    connectSignalFunPtr obj "failed" cb' after---- signal WebResource::failed-with-tls-errors-type WebResourceFailedWithTlsErrorsCallback =-    Gio.TlsCertificate ->-    [Gio.TlsCertificateFlags] ->-    IO ()--noWebResourceFailedWithTlsErrorsCallback :: Maybe WebResourceFailedWithTlsErrorsCallback-noWebResourceFailedWithTlsErrorsCallback = Nothing--type WebResourceFailedWithTlsErrorsCallbackC =-    Ptr () ->                               -- object-    Ptr Gio.TlsCertificate ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceFailedWithTlsErrorsCallback :: WebResourceFailedWithTlsErrorsCallbackC -> IO (FunPtr WebResourceFailedWithTlsErrorsCallbackC)--webResourceFailedWithTlsErrorsClosure :: WebResourceFailedWithTlsErrorsCallback -> IO Closure-webResourceFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebResourceFailedWithTlsErrorsCallback wrapped-    where wrapped = webResourceFailedWithTlsErrorsCallbackWrapper cb--webResourceFailedWithTlsErrorsCallbackWrapper ::-    WebResourceFailedWithTlsErrorsCallback ->-    Ptr () ->-    Ptr Gio.TlsCertificate ->-    CUInt ->-    Ptr () ->-    IO ()-webResourceFailedWithTlsErrorsCallbackWrapper _cb _ certificate errors _ = do-    certificate' <- (newObject Gio.TlsCertificate) certificate-    let errors' = wordToGFlags errors-    _cb  certificate' errors'--onWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId-onWebResourceFailedWithTlsErrors obj cb = liftIO $ connectWebResourceFailedWithTlsErrors obj cb SignalConnectBefore-afterWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId-afterWebResourceFailedWithTlsErrors obj cb = connectWebResourceFailedWithTlsErrors obj cb SignalConnectAfter--connectWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) =>-                                         a -> WebResourceFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceFailedWithTlsErrors obj cb after = liftIO $ do-    cb' <- mkWebResourceFailedWithTlsErrorsCallback (webResourceFailedWithTlsErrorsCallbackWrapper cb)-    connectSignalFunPtr obj "failed-with-tls-errors" cb' after---- signal WebResource::finished-type WebResourceFinishedCallback =-    IO ()--noWebResourceFinishedCallback :: Maybe WebResourceFinishedCallback-noWebResourceFinishedCallback = Nothing--type WebResourceFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceFinishedCallback :: WebResourceFinishedCallbackC -> IO (FunPtr WebResourceFinishedCallbackC)--webResourceFinishedClosure :: WebResourceFinishedCallback -> IO Closure-webResourceFinishedClosure cb = newCClosure =<< mkWebResourceFinishedCallback wrapped-    where wrapped = webResourceFinishedCallbackWrapper cb--webResourceFinishedCallbackWrapper ::-    WebResourceFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webResourceFinishedCallbackWrapper _cb _ _ = do-    _cb --onWebResourceFinished :: (GObject a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId-onWebResourceFinished obj cb = liftIO $ connectWebResourceFinished obj cb SignalConnectBefore-afterWebResourceFinished :: (GObject a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId-afterWebResourceFinished obj cb = connectWebResourceFinished obj cb SignalConnectAfter--connectWebResourceFinished :: (GObject a, MonadIO m) =>-                              a -> WebResourceFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceFinished obj cb after = liftIO $ do-    cb' <- mkWebResourceFinishedCallback (webResourceFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- signal WebResource::received-data-type WebResourceReceivedDataCallback =-    Word64 ->-    IO ()--noWebResourceReceivedDataCallback :: Maybe WebResourceReceivedDataCallback-noWebResourceReceivedDataCallback = Nothing--type WebResourceReceivedDataCallbackC =-    Ptr () ->                               -- object-    Word64 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceReceivedDataCallback :: WebResourceReceivedDataCallbackC -> IO (FunPtr WebResourceReceivedDataCallbackC)--webResourceReceivedDataClosure :: WebResourceReceivedDataCallback -> IO Closure-webResourceReceivedDataClosure cb = newCClosure =<< mkWebResourceReceivedDataCallback wrapped-    where wrapped = webResourceReceivedDataCallbackWrapper cb--webResourceReceivedDataCallbackWrapper ::-    WebResourceReceivedDataCallback ->-    Ptr () ->-    Word64 ->-    Ptr () ->-    IO ()-webResourceReceivedDataCallbackWrapper _cb _ data_length _ = do-    _cb  data_length--onWebResourceReceivedData :: (GObject a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId-onWebResourceReceivedData obj cb = liftIO $ connectWebResourceReceivedData obj cb SignalConnectBefore-afterWebResourceReceivedData :: (GObject a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId-afterWebResourceReceivedData obj cb = connectWebResourceReceivedData obj cb SignalConnectAfter--connectWebResourceReceivedData :: (GObject a, MonadIO m) =>-                                  a -> WebResourceReceivedDataCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceReceivedData obj cb after = liftIO $ do-    cb' <- mkWebResourceReceivedDataCallback (webResourceReceivedDataCallbackWrapper cb)-    connectSignalFunPtr obj "received-data" cb' after---- signal WebResource::sent-request-type WebResourceSentRequestCallback =-    URIRequest ->-    URIResponse ->-    IO ()--noWebResourceSentRequestCallback :: Maybe WebResourceSentRequestCallback-noWebResourceSentRequestCallback = Nothing--type WebResourceSentRequestCallbackC =-    Ptr () ->                               -- object-    Ptr URIRequest ->-    Ptr URIResponse ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceSentRequestCallback :: WebResourceSentRequestCallbackC -> IO (FunPtr WebResourceSentRequestCallbackC)--webResourceSentRequestClosure :: WebResourceSentRequestCallback -> IO Closure-webResourceSentRequestClosure cb = newCClosure =<< mkWebResourceSentRequestCallback wrapped-    where wrapped = webResourceSentRequestCallbackWrapper cb--webResourceSentRequestCallbackWrapper ::-    WebResourceSentRequestCallback ->-    Ptr () ->-    Ptr URIRequest ->-    Ptr URIResponse ->-    Ptr () ->-    IO ()-webResourceSentRequestCallbackWrapper _cb _ request redirected_response _ = do-    request' <- (newObject URIRequest) request-    redirected_response' <- (newObject URIResponse) redirected_response-    _cb  request' redirected_response'--onWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId-onWebResourceSentRequest obj cb = liftIO $ connectWebResourceSentRequest obj cb SignalConnectBefore-afterWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId-afterWebResourceSentRequest obj cb = connectWebResourceSentRequest obj cb SignalConnectAfter--connectWebResourceSentRequest :: (GObject a, MonadIO m) =>-                                 a -> WebResourceSentRequestCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceSentRequest obj cb after = liftIO $ do-    cb' <- mkWebResourceSentRequestCallback (webResourceSentRequestCallbackWrapper cb)-    connectSignalFunPtr obj "sent-request" cb' after---- object WebView -newtype WebView = WebView (ForeignPtr WebView)-noWebView :: Maybe WebView-noWebView = Nothing--foreign import ccall "webkit_web_view_get_type"-    c_webkit_web_view_get_type :: IO GType--type instance ParentTypes WebView = '[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---- 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::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_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 ()---- 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---- object WebViewBase -newtype WebViewBase = WebViewBase (ForeignPtr WebViewBase)-noWebViewBase :: Maybe WebViewBase-noWebViewBase = Nothing--foreign import ccall "webkit_web_view_base_get_type"-    c_webkit_web_view_base_get_type :: IO GType--type instance ParentTypes WebViewBase = '[Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable]--instance GObject WebViewBase where-    gobjectIsInitiallyUnowned _ = True-    gobjectType _ = c_webkit_web_view_base_get_type-    --class GObject o => WebViewBaseK o-instance (GObject o, IsDescendantOf WebViewBase o) => WebViewBaseK o--toWebViewBase :: WebViewBaseK o => o -> IO WebViewBase-toWebViewBase = unsafeCastTo WebViewBase---- object WindowProperties -newtype WindowProperties = WindowProperties (ForeignPtr WindowProperties)-noWindowProperties :: Maybe WindowProperties-noWindowProperties = Nothing--foreign import ccall "webkit_window_properties_get_type"-    c_webkit_window_properties_get_type :: IO GType--type instance ParentTypes WindowProperties = '[GObject.Object]--instance GObject WindowProperties where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_window_properties_get_type-    --class GObject o => WindowPropertiesK o-instance (GObject o, IsDescendantOf WindowProperties o) => WindowPropertiesK o--toWindowProperties :: WindowPropertiesK o => o -> IO WindowProperties-toWindowProperties = unsafeCastTo WindowProperties---- 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}]--- 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--foreign import ccall "webkit_window_properties_get_fullscreen" webkit_window_properties_get_fullscreen :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetFullscreen ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m Bool-windowPropertiesGetFullscreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_fullscreen _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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 "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, 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--foreign import ccall "webkit_window_properties_get_geometry" webkit_window_properties_get_geometry :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    Ptr Cairo.RectangleInt ->               -- geometry : TInterface "cairo" "RectangleInt"-    IO ()---windowPropertiesGetGeometry ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m (Cairo.RectangleInt)-windowPropertiesGetGeometry _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    geometry <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    webkit_window_properties_get_geometry _obj' geometry-    geometry' <- (wrapBoxed Cairo.RectangleInt) geometry-    touchManagedPtr _obj-    return geometry'---- 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}]--- 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--foreign import ccall "webkit_window_properties_get_locationbar_visible" webkit_window_properties_get_locationbar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetLocationbarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m Bool-windowPropertiesGetLocationbarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_locationbar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_window_properties_get_menubar_visible" webkit_window_properties_get_menubar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetMenubarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m Bool-windowPropertiesGetMenubarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_menubar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_window_properties_get_resizable" webkit_window_properties_get_resizable :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetResizable ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m Bool-windowPropertiesGetResizable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_resizable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_window_properties_get_scrollbars_visible" webkit_window_properties_get_scrollbars_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetScrollbarsVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m Bool-windowPropertiesGetScrollbarsVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_scrollbars_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_window_properties_get_statusbar_visible" webkit_window_properties_get_statusbar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetStatusbarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m Bool-windowPropertiesGetStatusbarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_statusbar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- 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}]--- 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--foreign import ccall "webkit_window_properties_get_toolbar_visible" webkit_window_properties_get_toolbar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetToolbarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a ->                                    -- _obj-    m Bool-windowPropertiesGetToolbarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_toolbar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- constant _EDITING_COMMAND_COPY--_EDITING_COMMAND_COPY :: T.Text-_EDITING_COMMAND_COPY = "Copy"--- constant _EDITING_COMMAND_CUT--_EDITING_COMMAND_CUT :: T.Text-_EDITING_COMMAND_CUT = "Cut"--- constant _EDITING_COMMAND_PASTE--_EDITING_COMMAND_PASTE :: T.Text-_EDITING_COMMAND_PASTE = "Paste"--- constant _EDITING_COMMAND_REDO--_EDITING_COMMAND_REDO :: T.Text-_EDITING_COMMAND_REDO = "Redo"--- constant _EDITING_COMMAND_SELECT_ALL--_EDITING_COMMAND_SELECT_ALL :: T.Text-_EDITING_COMMAND_SELECT_ALL = "SelectAll"--- constant _EDITING_COMMAND_UNDO--_EDITING_COMMAND_UNDO :: T.Text-_EDITING_COMMAND_UNDO = "Undo"--- constant _MAJOR_VERSION--_MAJOR_VERSION :: Int32-_MAJOR_VERSION = 2--- constant _MICRO_VERSION--_MICRO_VERSION :: Int32-_MICRO_VERSION = 5--- constant _MINOR_VERSION--_MINOR_VERSION :: Int32-_MINOR_VERSION = 8--- 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---- 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_get_major_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_get_major_version" webkit_get_major_version :: -    IO Word32---getMajorVersion ::-    (MonadIO m) =>-    m Word32-getMajorVersion  = liftIO $ do-    result <- webkit_get_major_version-    return result---- function webkit_get_micro_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_get_micro_version" webkit_get_micro_version :: -    IO Word32---getMicroVersion ::-    (MonadIO m) =>-    m Word32-getMicroVersion  = liftIO $ do-    result <- webkit_get_micro_version-    return result---- function webkit_get_minor_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "webkit_get_minor_version" webkit_get_minor_version :: -    IO Word32---getMinorVersion ::-    (MonadIO m) =>-    m Word32-getMinorVersion  = liftIO $ do-    result <- webkit_get_minor_version-    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_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_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_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_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_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_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}]--- 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--foreign import ccall "webkit_user_media_permission_is_for_audio_device" webkit_user_media_permission_is_for_audio_device :: -    Ptr UserMediaPermissionRequest ->       -- request : TInterface "WebKit2" "UserMediaPermissionRequest"-    IO CInt---userMediaPermissionIsForAudioDevice ::-    (MonadIO m, UserMediaPermissionRequestK a) =>-    a ->                                    -- request-    m Bool-userMediaPermissionIsForAudioDevice request = liftIO $ do-    let request' = unsafeManagedPtrCastPtr request-    result <- webkit_user_media_permission_is_for_audio_device request'-    let result' = (/= 0) result-    touchManagedPtr request-    return result'---- 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}]--- 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--foreign import ccall "webkit_user_media_permission_is_for_video_device" webkit_user_media_permission_is_for_video_device :: -    Ptr UserMediaPermissionRequest ->       -- request : TInterface "WebKit2" "UserMediaPermissionRequest"-    IO CInt---userMediaPermissionIsForVideoDevice ::-    (MonadIO m, UserMediaPermissionRequestK a) =>-    a ->                                    -- request-    m Bool-userMediaPermissionIsForVideoDevice request = liftIO $ do-    let request' = unsafeManagedPtrCastPtr request-    result <- webkit_user_media_permission_is_for_video_device request'-    let result' = (/= 0) result-    touchManagedPtr request-    return result'++{- |+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+    (     module GI.WebKit2.Callbacks             ,+    module GI.WebKit2.Constants             ,+    module GI.WebKit2.Enums                 ,+    module GI.WebKit2.Flags                 ,+    module GI.WebKit2.Functions             ,+    module GI.WebKit2.Interfaces            ,+    module GI.WebKit2.Objects               ,+    module GI.WebKit2.Structs               ,+++    ) where++import GI.WebKit2.Callbacks+import GI.WebKit2.Constants+import GI.WebKit2.Enums+import GI.WebKit2.Flags+import GI.WebKit2.Functions+import GI.WebKit2.Interfaces+import GI.WebKit2.Objects+import GI.WebKit2.Structs++import 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+
+ GI/WebKit2/Callbacks.hs view
@@ -0,0 +1,66 @@++{- |+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.Callbacks+    ( ++ -- * Signals+-- ** URISchemeRequestCallback+    URISchemeRequestCallback                ,+    URISchemeRequestCallbackC               ,+    mkURISchemeRequestCallback              ,+    noURISchemeRequestCallback              ,+    uRISchemeRequestCallbackClosure         ,+    uRISchemeRequestCallbackWrapper         ,+++++    ) 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+++-- callback URISchemeRequestCallback+uRISchemeRequestCallbackClosure :: URISchemeRequestCallback -> IO Closure+uRISchemeRequestCallbackClosure cb = newCClosure =<< mkURISchemeRequestCallback wrapped+    where wrapped = uRISchemeRequestCallbackWrapper Nothing cb++type URISchemeRequestCallbackC =+    Ptr URISchemeRequest ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkURISchemeRequestCallback :: URISchemeRequestCallbackC -> IO (FunPtr URISchemeRequestCallbackC)++type URISchemeRequestCallback =+    URISchemeRequest ->+    IO ()++noURISchemeRequestCallback :: Maybe URISchemeRequestCallback+noURISchemeRequestCallback = Nothing++uRISchemeRequestCallbackWrapper ::+    Maybe (Ptr (FunPtr (URISchemeRequestCallbackC))) ->+    URISchemeRequestCallback ->+    Ptr URISchemeRequest ->+    Ptr () ->+    IO ()+uRISchemeRequestCallbackWrapper funptrptr _cb request _ = do+    request' <- (newObject URISchemeRequest) request+    _cb  request'+    maybeReleaseFunPtr funptrptr++
+ GI/WebKit2/Constants.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2.Constants+    ( +    pattern MINOR_VERSION                   ,+    pattern MICRO_VERSION                   ,+    pattern MAJOR_VERSION                   ,+    pattern EDITING_COMMAND_UNDO            ,+    pattern EDITING_COMMAND_SELECT_ALL      ,+    pattern EDITING_COMMAND_REDO            ,+    pattern EDITING_COMMAND_PASTE           ,+    pattern EDITING_COMMAND_CUT             ,+    pattern EDITING_COMMAND_COPY            ,++    ) 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+++pattern MINOR_VERSION = 8 :: Int32+++pattern MICRO_VERSION = 5 :: Int32+++pattern MAJOR_VERSION = 2 :: Int32+++pattern EDITING_COMMAND_UNDO = "Undo" :: T.Text+++pattern EDITING_COMMAND_SELECT_ALL = "SelectAll" :: T.Text+++pattern EDITING_COMMAND_REDO = "Redo" :: T.Text+++pattern EDITING_COMMAND_PASTE = "Paste" :: T.Text+++pattern EDITING_COMMAND_CUT = "Cut" :: T.Text+++pattern EDITING_COMMAND_COPY = "Copy" :: T.Text++
+ GI/WebKit2/Enums.hs view
@@ -0,0 +1,1023 @@++{- |+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.Enums+    ( +    catchSnapshotError                      ,+    handleSnapshotError                     ,+    catchPrintError                         ,+    handlePrintError                        ,+    catchPolicyError                        ,+    handlePolicyError                       ,+    catchPluginError                        ,+    handlePluginError                       ,+    catchNetworkError                       ,+    handleNetworkError                      ,+    catchJavascriptError                    ,+    handleJavascriptError                   ,+    catchFaviconDatabaseError               ,+    handleFaviconDatabaseError              ,+    catchDownloadError                      ,+    handleDownloadError                     ,++-- * Exported types+    UserStyleLevel(..)                      ,+    UserScriptInjectionTime(..)             ,+    UserContentInjectedFrames(..)           ,+    TLSErrorsPolicy(..)                     ,+    SnapshotRegion(..)                      ,+    SnapshotError(..)                       ,+    ScriptDialogType(..)                    ,+    SaveMode(..)                            ,+    ProcessModel(..)                        ,+    PrintOperationResponse(..)              ,+    PrintError(..)                          ,+    PolicyError(..)                         ,+    PolicyDecisionType(..)                  ,+    PluginError(..)                         ,+    NetworkError(..)                        ,+    NavigationType(..)                      ,+    LoadEvent(..)                           ,+    JavascriptError(..)                     ,+    InsecureContentEvent(..)                ,+    FaviconDatabaseError(..)                ,+    DownloadError(..)                       ,+    CredentialPersistence(..)               ,+    CookiePersistentStorage(..)             ,+    CookieAcceptPolicy(..)                  ,+    ContextMenuAction(..)                   ,+    CacheModel(..)                          ,+    AuthenticationScheme(..)                ,+++    ) 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+++++-- Enum UserStyleLevel++data UserStyleLevel = +      UserStyleLevelUser+    | UserStyleLevelAuthor+    | AnotherUserStyleLevel Int+    deriving (Show, Eq)++instance Enum UserStyleLevel where+    fromEnum UserStyleLevelUser = 0+    fromEnum UserStyleLevelAuthor = 1+    fromEnum (AnotherUserStyleLevel k) = k++    toEnum 0 = UserStyleLevelUser+    toEnum 1 = UserStyleLevelAuthor+    toEnum k = AnotherUserStyleLevel k++foreign import ccall "webkit_user_style_level_get_type" c_webkit_user_style_level_get_type :: +    IO GType++instance BoxedEnum UserStyleLevel where+    boxedEnumType _ = c_webkit_user_style_level_get_type++-- Enum UserScriptInjectionTime++data UserScriptInjectionTime = +      UserScriptInjectionTimeStart+    | UserScriptInjectionTimeEnd+    | AnotherUserScriptInjectionTime Int+    deriving (Show, Eq)++instance Enum UserScriptInjectionTime where+    fromEnum UserScriptInjectionTimeStart = 0+    fromEnum UserScriptInjectionTimeEnd = 1+    fromEnum (AnotherUserScriptInjectionTime k) = k++    toEnum 0 = UserScriptInjectionTimeStart+    toEnum 1 = UserScriptInjectionTimeEnd+    toEnum k = AnotherUserScriptInjectionTime k++foreign import ccall "webkit_user_script_injection_time_get_type" c_webkit_user_script_injection_time_get_type :: +    IO GType++instance BoxedEnum UserScriptInjectionTime where+    boxedEnumType _ = c_webkit_user_script_injection_time_get_type++-- Enum UserContentInjectedFrames++data UserContentInjectedFrames = +      UserContentInjectedFramesAllFrames+    | UserContentInjectedFramesTopFrame+    | AnotherUserContentInjectedFrames Int+    deriving (Show, Eq)++instance Enum UserContentInjectedFrames where+    fromEnum UserContentInjectedFramesAllFrames = 0+    fromEnum UserContentInjectedFramesTopFrame = 1+    fromEnum (AnotherUserContentInjectedFrames k) = k++    toEnum 0 = UserContentInjectedFramesAllFrames+    toEnum 1 = UserContentInjectedFramesTopFrame+    toEnum k = AnotherUserContentInjectedFrames k++foreign import ccall "webkit_user_content_injected_frames_get_type" c_webkit_user_content_injected_frames_get_type :: +    IO GType++instance BoxedEnum UserContentInjectedFrames where+    boxedEnumType _ = c_webkit_user_content_injected_frames_get_type++-- Enum TLSErrorsPolicy++data TLSErrorsPolicy = +      TLSErrorsPolicyIgnore+    | TLSErrorsPolicyFail+    | AnotherTLSErrorsPolicy Int+    deriving (Show, Eq)++instance Enum TLSErrorsPolicy where+    fromEnum TLSErrorsPolicyIgnore = 0+    fromEnum TLSErrorsPolicyFail = 1+    fromEnum (AnotherTLSErrorsPolicy k) = k++    toEnum 0 = TLSErrorsPolicyIgnore+    toEnum 1 = TLSErrorsPolicyFail+    toEnum k = AnotherTLSErrorsPolicy k++foreign import ccall "webkit_tls_errors_policy_get_type" c_webkit_tls_errors_policy_get_type :: +    IO GType++instance BoxedEnum TLSErrorsPolicy where+    boxedEnumType _ = c_webkit_tls_errors_policy_get_type++-- Enum SnapshotRegion++data SnapshotRegion = +      SnapshotRegionVisible+    | SnapshotRegionFullDocument+    | AnotherSnapshotRegion Int+    deriving (Show, Eq)++instance Enum SnapshotRegion where+    fromEnum SnapshotRegionVisible = 0+    fromEnum SnapshotRegionFullDocument = 1+    fromEnum (AnotherSnapshotRegion k) = k++    toEnum 0 = SnapshotRegionVisible+    toEnum 1 = SnapshotRegionFullDocument+    toEnum k = AnotherSnapshotRegion k++foreign import ccall "webkit_snapshot_region_get_type" c_webkit_snapshot_region_get_type :: +    IO GType++instance BoxedEnum SnapshotRegion where+    boxedEnumType _ = c_webkit_snapshot_region_get_type++-- Enum SnapshotError++data SnapshotError = +      SnapshotErrorCreate+    | AnotherSnapshotError Int+    deriving (Show, Eq)++instance Enum SnapshotError where+    fromEnum SnapshotErrorCreate = 799+    fromEnum (AnotherSnapshotError k) = k++    toEnum 799 = SnapshotErrorCreate+    toEnum k = AnotherSnapshotError k++instance GErrorClass SnapshotError where+    gerrorClassDomain _ = "WebKitSnapshotError"++catchSnapshotError ::+    IO a ->+    (SnapshotError -> GErrorMessage -> IO a) ->+    IO a+catchSnapshotError = catchGErrorJustDomain++handleSnapshotError ::+    (SnapshotError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleSnapshotError = handleGErrorJustDomain++foreign import ccall "webkit_snapshot_error_get_type" c_webkit_snapshot_error_get_type :: +    IO GType++instance BoxedEnum SnapshotError where+    boxedEnumType _ = c_webkit_snapshot_error_get_type++-- Enum ScriptDialogType++data ScriptDialogType = +      ScriptDialogTypeAlert+    | ScriptDialogTypeConfirm+    | ScriptDialogTypePrompt+    | AnotherScriptDialogType Int+    deriving (Show, Eq)++instance Enum ScriptDialogType where+    fromEnum ScriptDialogTypeAlert = 0+    fromEnum ScriptDialogTypeConfirm = 1+    fromEnum ScriptDialogTypePrompt = 2+    fromEnum (AnotherScriptDialogType k) = k++    toEnum 0 = ScriptDialogTypeAlert+    toEnum 1 = ScriptDialogTypeConfirm+    toEnum 2 = ScriptDialogTypePrompt+    toEnum k = AnotherScriptDialogType k++foreign import ccall "webkit_script_dialog_type_get_type" c_webkit_script_dialog_type_get_type :: +    IO GType++instance BoxedEnum ScriptDialogType where+    boxedEnumType _ = c_webkit_script_dialog_type_get_type++-- Enum SaveMode++data SaveMode = +      SaveModeMhtml+    | AnotherSaveMode Int+    deriving (Show, Eq)++instance Enum SaveMode where+    fromEnum SaveModeMhtml = 0+    fromEnum (AnotherSaveMode k) = k++    toEnum 0 = SaveModeMhtml+    toEnum k = AnotherSaveMode k++foreign import ccall "webkit_save_mode_get_type" c_webkit_save_mode_get_type :: +    IO GType++instance BoxedEnum SaveMode where+    boxedEnumType _ = c_webkit_save_mode_get_type++-- Enum ProcessModel++data ProcessModel = +      ProcessModelSharedSecondaryProcess+    | ProcessModelMultipleSecondaryProcesses+    | AnotherProcessModel Int+    deriving (Show, Eq)++instance Enum ProcessModel where+    fromEnum ProcessModelSharedSecondaryProcess = 0+    fromEnum ProcessModelMultipleSecondaryProcesses = 1+    fromEnum (AnotherProcessModel k) = k++    toEnum 0 = ProcessModelSharedSecondaryProcess+    toEnum 1 = ProcessModelMultipleSecondaryProcesses+    toEnum k = AnotherProcessModel k++foreign import ccall "webkit_process_model_get_type" c_webkit_process_model_get_type :: +    IO GType++instance BoxedEnum ProcessModel where+    boxedEnumType _ = c_webkit_process_model_get_type++-- Enum PrintOperationResponse++data PrintOperationResponse = +      PrintOperationResponsePrint+    | PrintOperationResponseCancel+    | AnotherPrintOperationResponse Int+    deriving (Show, Eq)++instance Enum PrintOperationResponse where+    fromEnum PrintOperationResponsePrint = 0+    fromEnum PrintOperationResponseCancel = 1+    fromEnum (AnotherPrintOperationResponse k) = k++    toEnum 0 = PrintOperationResponsePrint+    toEnum 1 = PrintOperationResponseCancel+    toEnum k = AnotherPrintOperationResponse k++foreign import ccall "webkit_print_operation_response_get_type" c_webkit_print_operation_response_get_type :: +    IO GType++instance BoxedEnum PrintOperationResponse where+    boxedEnumType _ = c_webkit_print_operation_response_get_type++-- Enum PrintError++data PrintError = +      PrintErrorGeneral+    | PrintErrorPrinterNotFound+    | PrintErrorInvalidPageRange+    | AnotherPrintError Int+    deriving (Show, Eq)++instance Enum PrintError where+    fromEnum PrintErrorGeneral = 599+    fromEnum PrintErrorPrinterNotFound = 500+    fromEnum PrintErrorInvalidPageRange = 501+    fromEnum (AnotherPrintError k) = k++    toEnum 500 = PrintErrorPrinterNotFound+    toEnum 501 = PrintErrorInvalidPageRange+    toEnum 599 = PrintErrorGeneral+    toEnum k = AnotherPrintError k++instance GErrorClass PrintError where+    gerrorClassDomain _ = "WebKitPrintError"++catchPrintError ::+    IO a ->+    (PrintError -> GErrorMessage -> IO a) ->+    IO a+catchPrintError = catchGErrorJustDomain++handlePrintError ::+    (PrintError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handlePrintError = handleGErrorJustDomain++foreign import ccall "webkit_print_error_get_type" c_webkit_print_error_get_type :: +    IO GType++instance BoxedEnum PrintError where+    boxedEnumType _ = c_webkit_print_error_get_type++-- Enum PolicyError++data PolicyError = +      PolicyErrorFailed+    | PolicyErrorCannotShowMimeType+    | PolicyErrorCannotShowUri+    | PolicyErrorFrameLoadInterruptedByPolicyChange+    | PolicyErrorCannotUseRestrictedPort+    | AnotherPolicyError Int+    deriving (Show, Eq)++instance Enum PolicyError where+    fromEnum PolicyErrorFailed = 199+    fromEnum PolicyErrorCannotShowMimeType = 100+    fromEnum PolicyErrorCannotShowUri = 101+    fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102+    fromEnum PolicyErrorCannotUseRestrictedPort = 103+    fromEnum (AnotherPolicyError k) = k++    toEnum 100 = PolicyErrorCannotShowMimeType+    toEnum 101 = PolicyErrorCannotShowUri+    toEnum 102 = PolicyErrorFrameLoadInterruptedByPolicyChange+    toEnum 103 = PolicyErrorCannotUseRestrictedPort+    toEnum 199 = PolicyErrorFailed+    toEnum k = AnotherPolicyError k++instance GErrorClass PolicyError where+    gerrorClassDomain _ = "WebKitPolicyError"++catchPolicyError ::+    IO a ->+    (PolicyError -> GErrorMessage -> IO a) ->+    IO a+catchPolicyError = catchGErrorJustDomain++handlePolicyError ::+    (PolicyError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handlePolicyError = handleGErrorJustDomain++foreign import ccall "webkit_policy_error_get_type" c_webkit_policy_error_get_type :: +    IO GType++instance BoxedEnum PolicyError where+    boxedEnumType _ = c_webkit_policy_error_get_type++-- Enum PolicyDecisionType++data PolicyDecisionType = +      PolicyDecisionTypeNavigationAction+    | PolicyDecisionTypeNewWindowAction+    | PolicyDecisionTypeResponse+    | AnotherPolicyDecisionType Int+    deriving (Show, Eq)++instance Enum PolicyDecisionType where+    fromEnum PolicyDecisionTypeNavigationAction = 0+    fromEnum PolicyDecisionTypeNewWindowAction = 1+    fromEnum PolicyDecisionTypeResponse = 2+    fromEnum (AnotherPolicyDecisionType k) = k++    toEnum 0 = PolicyDecisionTypeNavigationAction+    toEnum 1 = PolicyDecisionTypeNewWindowAction+    toEnum 2 = PolicyDecisionTypeResponse+    toEnum k = AnotherPolicyDecisionType k++foreign import ccall "webkit_policy_decision_type_get_type" c_webkit_policy_decision_type_get_type :: +    IO GType++instance BoxedEnum PolicyDecisionType where+    boxedEnumType _ = c_webkit_policy_decision_type_get_type++-- Enum PluginError++data PluginError = +      PluginErrorFailed+    | PluginErrorCannotFindPlugin+    | PluginErrorCannotLoadPlugin+    | PluginErrorJavaUnavailable+    | PluginErrorConnectionCancelled+    | PluginErrorWillHandleLoad+    | AnotherPluginError Int+    deriving (Show, Eq)++instance Enum PluginError where+    fromEnum PluginErrorFailed = 299+    fromEnum PluginErrorCannotFindPlugin = 200+    fromEnum PluginErrorCannotLoadPlugin = 201+    fromEnum PluginErrorJavaUnavailable = 202+    fromEnum PluginErrorConnectionCancelled = 203+    fromEnum PluginErrorWillHandleLoad = 204+    fromEnum (AnotherPluginError k) = k++    toEnum 200 = PluginErrorCannotFindPlugin+    toEnum 201 = PluginErrorCannotLoadPlugin+    toEnum 202 = PluginErrorJavaUnavailable+    toEnum 203 = PluginErrorConnectionCancelled+    toEnum 204 = PluginErrorWillHandleLoad+    toEnum 299 = PluginErrorFailed+    toEnum k = AnotherPluginError k++instance GErrorClass PluginError where+    gerrorClassDomain _ = "WebKitPluginError"++catchPluginError ::+    IO a ->+    (PluginError -> GErrorMessage -> IO a) ->+    IO a+catchPluginError = catchGErrorJustDomain++handlePluginError ::+    (PluginError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handlePluginError = handleGErrorJustDomain++foreign import ccall "webkit_plugin_error_get_type" c_webkit_plugin_error_get_type :: +    IO GType++instance BoxedEnum PluginError where+    boxedEnumType _ = c_webkit_plugin_error_get_type++-- Enum NetworkError++data NetworkError = +      NetworkErrorFailed+    | NetworkErrorTransport+    | NetworkErrorUnknownProtocol+    | NetworkErrorCancelled+    | NetworkErrorFileDoesNotExist+    | AnotherNetworkError Int+    deriving (Show, Eq)++instance Enum NetworkError where+    fromEnum NetworkErrorFailed = 399+    fromEnum NetworkErrorTransport = 300+    fromEnum NetworkErrorUnknownProtocol = 301+    fromEnum NetworkErrorCancelled = 302+    fromEnum NetworkErrorFileDoesNotExist = 303+    fromEnum (AnotherNetworkError k) = k++    toEnum 300 = NetworkErrorTransport+    toEnum 301 = NetworkErrorUnknownProtocol+    toEnum 302 = NetworkErrorCancelled+    toEnum 303 = NetworkErrorFileDoesNotExist+    toEnum 399 = NetworkErrorFailed+    toEnum k = AnotherNetworkError k++instance GErrorClass NetworkError where+    gerrorClassDomain _ = "WebKitNetworkError"++catchNetworkError ::+    IO a ->+    (NetworkError -> GErrorMessage -> IO a) ->+    IO a+catchNetworkError = catchGErrorJustDomain++handleNetworkError ::+    (NetworkError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleNetworkError = handleGErrorJustDomain++foreign import ccall "webkit_network_error_get_type" c_webkit_network_error_get_type :: +    IO GType++instance BoxedEnum NetworkError where+    boxedEnumType _ = c_webkit_network_error_get_type++-- Enum NavigationType++data NavigationType = +      NavigationTypeLinkClicked+    | NavigationTypeFormSubmitted+    | NavigationTypeBackForward+    | NavigationTypeReload+    | NavigationTypeFormResubmitted+    | NavigationTypeOther+    | AnotherNavigationType Int+    deriving (Show, Eq)++instance Enum NavigationType where+    fromEnum NavigationTypeLinkClicked = 0+    fromEnum NavigationTypeFormSubmitted = 1+    fromEnum NavigationTypeBackForward = 2+    fromEnum NavigationTypeReload = 3+    fromEnum NavigationTypeFormResubmitted = 4+    fromEnum NavigationTypeOther = 5+    fromEnum (AnotherNavigationType k) = k++    toEnum 0 = NavigationTypeLinkClicked+    toEnum 1 = NavigationTypeFormSubmitted+    toEnum 2 = NavigationTypeBackForward+    toEnum 3 = NavigationTypeReload+    toEnum 4 = NavigationTypeFormResubmitted+    toEnum 5 = NavigationTypeOther+    toEnum k = AnotherNavigationType k++foreign import ccall "webkit_navigation_type_get_type" c_webkit_navigation_type_get_type :: +    IO GType++instance BoxedEnum NavigationType where+    boxedEnumType _ = c_webkit_navigation_type_get_type++-- Enum LoadEvent++data LoadEvent = +      LoadEventStarted+    | LoadEventRedirected+    | LoadEventCommitted+    | LoadEventFinished+    | AnotherLoadEvent Int+    deriving (Show, Eq)++instance Enum LoadEvent where+    fromEnum LoadEventStarted = 0+    fromEnum LoadEventRedirected = 1+    fromEnum LoadEventCommitted = 2+    fromEnum LoadEventFinished = 3+    fromEnum (AnotherLoadEvent k) = k++    toEnum 0 = LoadEventStarted+    toEnum 1 = LoadEventRedirected+    toEnum 2 = LoadEventCommitted+    toEnum 3 = LoadEventFinished+    toEnum k = AnotherLoadEvent k++foreign import ccall "webkit_load_event_get_type" c_webkit_load_event_get_type :: +    IO GType++instance BoxedEnum LoadEvent where+    boxedEnumType _ = c_webkit_load_event_get_type++-- Enum JavascriptError++data JavascriptError = +      JavascriptErrorFailed+    | AnotherJavascriptError Int+    deriving (Show, Eq)++instance Enum JavascriptError where+    fromEnum JavascriptErrorFailed = 699+    fromEnum (AnotherJavascriptError k) = k++    toEnum 699 = JavascriptErrorFailed+    toEnum k = AnotherJavascriptError k++instance GErrorClass JavascriptError where+    gerrorClassDomain _ = "WebKitJavascriptError"++catchJavascriptError ::+    IO a ->+    (JavascriptError -> GErrorMessage -> IO a) ->+    IO a+catchJavascriptError = catchGErrorJustDomain++handleJavascriptError ::+    (JavascriptError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleJavascriptError = handleGErrorJustDomain++foreign import ccall "webkit_javascript_error_get_type" c_webkit_javascript_error_get_type :: +    IO GType++instance BoxedEnum JavascriptError where+    boxedEnumType _ = c_webkit_javascript_error_get_type++-- Enum InsecureContentEvent++data InsecureContentEvent = +      InsecureContentEventRun+    | InsecureContentEventDisplayed+    | AnotherInsecureContentEvent Int+    deriving (Show, Eq)++instance Enum InsecureContentEvent where+    fromEnum InsecureContentEventRun = 0+    fromEnum InsecureContentEventDisplayed = 1+    fromEnum (AnotherInsecureContentEvent k) = k++    toEnum 0 = InsecureContentEventRun+    toEnum 1 = InsecureContentEventDisplayed+    toEnum k = AnotherInsecureContentEvent k++foreign import ccall "webkit_insecure_content_event_get_type" c_webkit_insecure_content_event_get_type :: +    IO GType++instance BoxedEnum InsecureContentEvent where+    boxedEnumType _ = c_webkit_insecure_content_event_get_type++-- Enum FaviconDatabaseError++data FaviconDatabaseError = +      FaviconDatabaseErrorNotInitialized+    | FaviconDatabaseErrorFaviconNotFound+    | FaviconDatabaseErrorFaviconUnknown+    | AnotherFaviconDatabaseError Int+    deriving (Show, Eq)++instance Enum FaviconDatabaseError where+    fromEnum FaviconDatabaseErrorNotInitialized = 0+    fromEnum FaviconDatabaseErrorFaviconNotFound = 1+    fromEnum FaviconDatabaseErrorFaviconUnknown = 2+    fromEnum (AnotherFaviconDatabaseError k) = k++    toEnum 0 = FaviconDatabaseErrorNotInitialized+    toEnum 1 = FaviconDatabaseErrorFaviconNotFound+    toEnum 2 = FaviconDatabaseErrorFaviconUnknown+    toEnum k = AnotherFaviconDatabaseError k++instance GErrorClass FaviconDatabaseError where+    gerrorClassDomain _ = "WebKitFaviconDatabaseError"++catchFaviconDatabaseError ::+    IO a ->+    (FaviconDatabaseError -> GErrorMessage -> IO a) ->+    IO a+catchFaviconDatabaseError = catchGErrorJustDomain++handleFaviconDatabaseError ::+    (FaviconDatabaseError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleFaviconDatabaseError = handleGErrorJustDomain++foreign import ccall "webkit_favicon_database_error_get_type" c_webkit_favicon_database_error_get_type :: +    IO GType++instance BoxedEnum FaviconDatabaseError where+    boxedEnumType _ = c_webkit_favicon_database_error_get_type++-- Enum DownloadError++data DownloadError = +      DownloadErrorNetwork+    | DownloadErrorCancelledByUser+    | DownloadErrorDestination+    | AnotherDownloadError Int+    deriving (Show, Eq)++instance Enum DownloadError where+    fromEnum DownloadErrorNetwork = 499+    fromEnum DownloadErrorCancelledByUser = 400+    fromEnum DownloadErrorDestination = 401+    fromEnum (AnotherDownloadError k) = k++    toEnum 400 = DownloadErrorCancelledByUser+    toEnum 401 = DownloadErrorDestination+    toEnum 499 = DownloadErrorNetwork+    toEnum k = AnotherDownloadError k++instance GErrorClass DownloadError where+    gerrorClassDomain _ = "WebKitDownloadError"++catchDownloadError ::+    IO a ->+    (DownloadError -> GErrorMessage -> IO a) ->+    IO a+catchDownloadError = catchGErrorJustDomain++handleDownloadError ::+    (DownloadError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleDownloadError = handleGErrorJustDomain++foreign import ccall "webkit_download_error_get_type" c_webkit_download_error_get_type :: +    IO GType++instance BoxedEnum DownloadError where+    boxedEnumType _ = c_webkit_download_error_get_type++-- Enum CredentialPersistence++data CredentialPersistence = +      CredentialPersistenceNone+    | CredentialPersistenceForSession+    | CredentialPersistencePermanent+    | AnotherCredentialPersistence Int+    deriving (Show, Eq)++instance Enum CredentialPersistence where+    fromEnum CredentialPersistenceNone = 0+    fromEnum CredentialPersistenceForSession = 1+    fromEnum CredentialPersistencePermanent = 2+    fromEnum (AnotherCredentialPersistence k) = k++    toEnum 0 = CredentialPersistenceNone+    toEnum 1 = CredentialPersistenceForSession+    toEnum 2 = CredentialPersistencePermanent+    toEnum k = AnotherCredentialPersistence k++foreign import ccall "webkit_credential_persistence_get_type" c_webkit_credential_persistence_get_type :: +    IO GType++instance BoxedEnum CredentialPersistence where+    boxedEnumType _ = c_webkit_credential_persistence_get_type++-- Enum CookiePersistentStorage++data CookiePersistentStorage = +      CookiePersistentStorageText+    | CookiePersistentStorageSqlite+    | AnotherCookiePersistentStorage Int+    deriving (Show, Eq)++instance Enum CookiePersistentStorage where+    fromEnum CookiePersistentStorageText = 0+    fromEnum CookiePersistentStorageSqlite = 1+    fromEnum (AnotherCookiePersistentStorage k) = k++    toEnum 0 = CookiePersistentStorageText+    toEnum 1 = CookiePersistentStorageSqlite+    toEnum k = AnotherCookiePersistentStorage k++foreign import ccall "webkit_cookie_persistent_storage_get_type" c_webkit_cookie_persistent_storage_get_type :: +    IO GType++instance BoxedEnum CookiePersistentStorage where+    boxedEnumType _ = c_webkit_cookie_persistent_storage_get_type++-- Enum CookieAcceptPolicy++data CookieAcceptPolicy = +      CookieAcceptPolicyAlways+    | CookieAcceptPolicyNever+    | CookieAcceptPolicyNoThirdParty+    | AnotherCookieAcceptPolicy Int+    deriving (Show, Eq)++instance Enum CookieAcceptPolicy where+    fromEnum CookieAcceptPolicyAlways = 0+    fromEnum CookieAcceptPolicyNever = 1+    fromEnum CookieAcceptPolicyNoThirdParty = 2+    fromEnum (AnotherCookieAcceptPolicy k) = k++    toEnum 0 = CookieAcceptPolicyAlways+    toEnum 1 = CookieAcceptPolicyNever+    toEnum 2 = CookieAcceptPolicyNoThirdParty+    toEnum k = AnotherCookieAcceptPolicy k++foreign import ccall "webkit_cookie_accept_policy_get_type" c_webkit_cookie_accept_policy_get_type :: +    IO GType++instance BoxedEnum CookieAcceptPolicy where+    boxedEnumType _ = c_webkit_cookie_accept_policy_get_type++-- Enum ContextMenuAction++data ContextMenuAction = +      ContextMenuActionNoAction+    | ContextMenuActionOpenLink+    | ContextMenuActionOpenLinkInNewWindow+    | ContextMenuActionDownloadLinkToDisk+    | ContextMenuActionCopyLinkToClipboard+    | ContextMenuActionOpenImageInNewWindow+    | ContextMenuActionDownloadImageToDisk+    | ContextMenuActionCopyImageToClipboard+    | ContextMenuActionCopyImageUrlToClipboard+    | ContextMenuActionOpenFrameInNewWindow+    | ContextMenuActionGoBack+    | ContextMenuActionGoForward+    | ContextMenuActionStop+    | ContextMenuActionReload+    | ContextMenuActionCopy+    | ContextMenuActionCut+    | ContextMenuActionPaste+    | ContextMenuActionDelete+    | ContextMenuActionSelectAll+    | ContextMenuActionInputMethods+    | ContextMenuActionUnicode+    | ContextMenuActionSpellingGuess+    | ContextMenuActionNoGuessesFound+    | ContextMenuActionIgnoreSpelling+    | ContextMenuActionLearnSpelling+    | ContextMenuActionIgnoreGrammar+    | ContextMenuActionFontMenu+    | ContextMenuActionBold+    | ContextMenuActionItalic+    | ContextMenuActionUnderline+    | ContextMenuActionOutline+    | ContextMenuActionInspectElement+    | ContextMenuActionOpenVideoInNewWindow+    | ContextMenuActionOpenAudioInNewWindow+    | ContextMenuActionCopyVideoLinkToClipboard+    | ContextMenuActionCopyAudioLinkToClipboard+    | ContextMenuActionToggleMediaControls+    | ContextMenuActionToggleMediaLoop+    | ContextMenuActionEnterVideoFullscreen+    | ContextMenuActionMediaPlay+    | ContextMenuActionMediaPause+    | ContextMenuActionMediaMute+    | ContextMenuActionDownloadVideoToDisk+    | ContextMenuActionDownloadAudioToDisk+    | ContextMenuActionCustom+    | AnotherContextMenuAction Int+    deriving (Show, Eq)++instance Enum ContextMenuAction where+    fromEnum ContextMenuActionNoAction = 0+    fromEnum ContextMenuActionOpenLink = 1+    fromEnum ContextMenuActionOpenLinkInNewWindow = 2+    fromEnum ContextMenuActionDownloadLinkToDisk = 3+    fromEnum ContextMenuActionCopyLinkToClipboard = 4+    fromEnum ContextMenuActionOpenImageInNewWindow = 5+    fromEnum ContextMenuActionDownloadImageToDisk = 6+    fromEnum ContextMenuActionCopyImageToClipboard = 7+    fromEnum ContextMenuActionCopyImageUrlToClipboard = 8+    fromEnum ContextMenuActionOpenFrameInNewWindow = 9+    fromEnum ContextMenuActionGoBack = 10+    fromEnum ContextMenuActionGoForward = 11+    fromEnum ContextMenuActionStop = 12+    fromEnum ContextMenuActionReload = 13+    fromEnum ContextMenuActionCopy = 14+    fromEnum ContextMenuActionCut = 15+    fromEnum ContextMenuActionPaste = 16+    fromEnum ContextMenuActionDelete = 17+    fromEnum ContextMenuActionSelectAll = 18+    fromEnum ContextMenuActionInputMethods = 19+    fromEnum ContextMenuActionUnicode = 20+    fromEnum ContextMenuActionSpellingGuess = 21+    fromEnum ContextMenuActionNoGuessesFound = 22+    fromEnum ContextMenuActionIgnoreSpelling = 23+    fromEnum ContextMenuActionLearnSpelling = 24+    fromEnum ContextMenuActionIgnoreGrammar = 25+    fromEnum ContextMenuActionFontMenu = 26+    fromEnum ContextMenuActionBold = 27+    fromEnum ContextMenuActionItalic = 28+    fromEnum ContextMenuActionUnderline = 29+    fromEnum ContextMenuActionOutline = 30+    fromEnum ContextMenuActionInspectElement = 31+    fromEnum ContextMenuActionOpenVideoInNewWindow = 32+    fromEnum ContextMenuActionOpenAudioInNewWindow = 33+    fromEnum ContextMenuActionCopyVideoLinkToClipboard = 34+    fromEnum ContextMenuActionCopyAudioLinkToClipboard = 35+    fromEnum ContextMenuActionToggleMediaControls = 36+    fromEnum ContextMenuActionToggleMediaLoop = 37+    fromEnum ContextMenuActionEnterVideoFullscreen = 38+    fromEnum ContextMenuActionMediaPlay = 39+    fromEnum ContextMenuActionMediaPause = 40+    fromEnum ContextMenuActionMediaMute = 41+    fromEnum ContextMenuActionDownloadVideoToDisk = 42+    fromEnum ContextMenuActionDownloadAudioToDisk = 43+    fromEnum ContextMenuActionCustom = 10000+    fromEnum (AnotherContextMenuAction k) = k++    toEnum 0 = ContextMenuActionNoAction+    toEnum 1 = ContextMenuActionOpenLink+    toEnum 2 = ContextMenuActionOpenLinkInNewWindow+    toEnum 3 = ContextMenuActionDownloadLinkToDisk+    toEnum 4 = ContextMenuActionCopyLinkToClipboard+    toEnum 5 = ContextMenuActionOpenImageInNewWindow+    toEnum 6 = ContextMenuActionDownloadImageToDisk+    toEnum 7 = ContextMenuActionCopyImageToClipboard+    toEnum 8 = ContextMenuActionCopyImageUrlToClipboard+    toEnum 9 = ContextMenuActionOpenFrameInNewWindow+    toEnum 10 = ContextMenuActionGoBack+    toEnum 11 = ContextMenuActionGoForward+    toEnum 12 = ContextMenuActionStop+    toEnum 13 = ContextMenuActionReload+    toEnum 14 = ContextMenuActionCopy+    toEnum 15 = ContextMenuActionCut+    toEnum 16 = ContextMenuActionPaste+    toEnum 17 = ContextMenuActionDelete+    toEnum 18 = ContextMenuActionSelectAll+    toEnum 19 = ContextMenuActionInputMethods+    toEnum 20 = ContextMenuActionUnicode+    toEnum 21 = ContextMenuActionSpellingGuess+    toEnum 22 = ContextMenuActionNoGuessesFound+    toEnum 23 = ContextMenuActionIgnoreSpelling+    toEnum 24 = ContextMenuActionLearnSpelling+    toEnum 25 = ContextMenuActionIgnoreGrammar+    toEnum 26 = ContextMenuActionFontMenu+    toEnum 27 = ContextMenuActionBold+    toEnum 28 = ContextMenuActionItalic+    toEnum 29 = ContextMenuActionUnderline+    toEnum 30 = ContextMenuActionOutline+    toEnum 31 = ContextMenuActionInspectElement+    toEnum 32 = ContextMenuActionOpenVideoInNewWindow+    toEnum 33 = ContextMenuActionOpenAudioInNewWindow+    toEnum 34 = ContextMenuActionCopyVideoLinkToClipboard+    toEnum 35 = ContextMenuActionCopyAudioLinkToClipboard+    toEnum 36 = ContextMenuActionToggleMediaControls+    toEnum 37 = ContextMenuActionToggleMediaLoop+    toEnum 38 = ContextMenuActionEnterVideoFullscreen+    toEnum 39 = ContextMenuActionMediaPlay+    toEnum 40 = ContextMenuActionMediaPause+    toEnum 41 = ContextMenuActionMediaMute+    toEnum 42 = ContextMenuActionDownloadVideoToDisk+    toEnum 43 = ContextMenuActionDownloadAudioToDisk+    toEnum 10000 = ContextMenuActionCustom+    toEnum k = AnotherContextMenuAction k++foreign import ccall "webkit_context_menu_action_get_type" c_webkit_context_menu_action_get_type :: +    IO GType++instance BoxedEnum ContextMenuAction where+    boxedEnumType _ = c_webkit_context_menu_action_get_type++-- Enum CacheModel++data CacheModel = +      CacheModelDocumentViewer+    | CacheModelWebBrowser+    | CacheModelDocumentBrowser+    | AnotherCacheModel Int+    deriving (Show, Eq)++instance Enum CacheModel where+    fromEnum CacheModelDocumentViewer = 0+    fromEnum CacheModelWebBrowser = 1+    fromEnum CacheModelDocumentBrowser = 2+    fromEnum (AnotherCacheModel k) = k++    toEnum 0 = CacheModelDocumentViewer+    toEnum 1 = CacheModelWebBrowser+    toEnum 2 = CacheModelDocumentBrowser+    toEnum k = AnotherCacheModel k++foreign import ccall "webkit_cache_model_get_type" c_webkit_cache_model_get_type :: +    IO GType++instance BoxedEnum CacheModel where+    boxedEnumType _ = c_webkit_cache_model_get_type++-- Enum AuthenticationScheme++data AuthenticationScheme = +      AuthenticationSchemeDefault+    | AuthenticationSchemeHttpBasic+    | AuthenticationSchemeHttpDigest+    | AuthenticationSchemeHtmlForm+    | AuthenticationSchemeNtlm+    | AuthenticationSchemeNegotiate+    | AuthenticationSchemeClientCertificateRequested+    | AuthenticationSchemeServerTrustEvaluationRequested+    | AuthenticationSchemeUnknown+    | AnotherAuthenticationScheme Int+    deriving (Show, Eq)++instance Enum AuthenticationScheme where+    fromEnum AuthenticationSchemeDefault = 1+    fromEnum AuthenticationSchemeHttpBasic = 2+    fromEnum AuthenticationSchemeHttpDigest = 3+    fromEnum AuthenticationSchemeHtmlForm = 4+    fromEnum AuthenticationSchemeNtlm = 5+    fromEnum AuthenticationSchemeNegotiate = 6+    fromEnum AuthenticationSchemeClientCertificateRequested = 7+    fromEnum AuthenticationSchemeServerTrustEvaluationRequested = 8+    fromEnum AuthenticationSchemeUnknown = 100+    fromEnum (AnotherAuthenticationScheme k) = k++    toEnum 1 = AuthenticationSchemeDefault+    toEnum 2 = AuthenticationSchemeHttpBasic+    toEnum 3 = AuthenticationSchemeHttpDigest+    toEnum 4 = AuthenticationSchemeHtmlForm+    toEnum 5 = AuthenticationSchemeNtlm+    toEnum 6 = AuthenticationSchemeNegotiate+    toEnum 7 = AuthenticationSchemeClientCertificateRequested+    toEnum 8 = AuthenticationSchemeServerTrustEvaluationRequested+    toEnum 100 = AuthenticationSchemeUnknown+    toEnum k = AnotherAuthenticationScheme k++foreign import ccall "webkit_authentication_scheme_get_type" c_webkit_authentication_scheme_get_type :: +    IO GType++instance BoxedEnum AuthenticationScheme where+    boxedEnumType _ = c_webkit_authentication_scheme_get_type++
+ GI/WebKit2/Flags.hs view
@@ -0,0 +1,134 @@++{- |+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.Flags+    ( ++-- * Exported types+    SnapshotOptions(..)                     ,+    HitTestResultContext(..)                ,+    FindOptions(..)                         ,+++    ) 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+++++-- Flags SnapshotOptions++data SnapshotOptions = +      SnapshotOptionsNone+    | SnapshotOptionsIncludeSelectionHighlighting+    | SnapshotOptionsTransparentBackground+    | AnotherSnapshotOptions Int+    deriving (Show, Eq)++instance Enum SnapshotOptions where+    fromEnum SnapshotOptionsNone = 0+    fromEnum SnapshotOptionsIncludeSelectionHighlighting = 1+    fromEnum SnapshotOptionsTransparentBackground = 2+    fromEnum (AnotherSnapshotOptions k) = k++    toEnum 0 = SnapshotOptionsNone+    toEnum 1 = SnapshotOptionsIncludeSelectionHighlighting+    toEnum 2 = SnapshotOptionsTransparentBackground+    toEnum k = AnotherSnapshotOptions k++foreign import ccall "webkit_snapshot_options_get_type" c_webkit_snapshot_options_get_type :: +    IO GType++instance BoxedEnum SnapshotOptions where+    boxedEnumType _ = c_webkit_snapshot_options_get_type++instance IsGFlag SnapshotOptions++-- Flags HitTestResultContext++data HitTestResultContext = +      HitTestResultContextDocument+    | HitTestResultContextLink+    | HitTestResultContextImage+    | HitTestResultContextMedia+    | HitTestResultContextEditable+    | HitTestResultContextScrollbar+    | HitTestResultContextSelection+    | AnotherHitTestResultContext Int+    deriving (Show, Eq)++instance Enum HitTestResultContext where+    fromEnum HitTestResultContextDocument = 2+    fromEnum HitTestResultContextLink = 4+    fromEnum HitTestResultContextImage = 8+    fromEnum HitTestResultContextMedia = 16+    fromEnum HitTestResultContextEditable = 32+    fromEnum HitTestResultContextScrollbar = 64+    fromEnum HitTestResultContextSelection = 128+    fromEnum (AnotherHitTestResultContext k) = k++    toEnum 2 = HitTestResultContextDocument+    toEnum 4 = HitTestResultContextLink+    toEnum 8 = HitTestResultContextImage+    toEnum 16 = HitTestResultContextMedia+    toEnum 32 = HitTestResultContextEditable+    toEnum 64 = HitTestResultContextScrollbar+    toEnum 128 = HitTestResultContextSelection+    toEnum k = AnotherHitTestResultContext k++foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type :: +    IO GType++instance BoxedEnum HitTestResultContext where+    boxedEnumType _ = c_webkit_hit_test_result_context_get_type++instance IsGFlag HitTestResultContext++-- Flags FindOptions++data FindOptions = +      FindOptionsNone+    | FindOptionsCaseInsensitive+    | FindOptionsAtWordStarts+    | FindOptionsTreatMedialCapitalAsWordStart+    | FindOptionsBackwards+    | FindOptionsWrapAround+    | AnotherFindOptions Int+    deriving (Show, Eq)++instance Enum FindOptions where+    fromEnum FindOptionsNone = 0+    fromEnum FindOptionsCaseInsensitive = 1+    fromEnum FindOptionsAtWordStarts = 2+    fromEnum FindOptionsTreatMedialCapitalAsWordStart = 4+    fromEnum FindOptionsBackwards = 8+    fromEnum FindOptionsWrapAround = 16+    fromEnum (AnotherFindOptions k) = k++    toEnum 0 = FindOptionsNone+    toEnum 1 = FindOptionsCaseInsensitive+    toEnum 2 = FindOptionsAtWordStarts+    toEnum 4 = FindOptionsTreatMedialCapitalAsWordStart+    toEnum 8 = FindOptionsBackwards+    toEnum 16 = FindOptionsWrapAround+    toEnum k = AnotherFindOptions k++foreign import ccall "webkit_find_options_get_type" c_webkit_find_options_get_type :: +    IO GType++instance BoxedEnum FindOptions where+    boxedEnumType _ = c_webkit_find_options_get_type++instance IsGFlag FindOptions++
+ GI/WebKit2/Functions.hs view
@@ -0,0 +1,348 @@++{- |+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.Functions+    ( ++ -- * Methods+-- ** downloadErrorQuark+    downloadErrorQuark                      ,+++-- ** faviconDatabaseErrorQuark+    faviconDatabaseErrorQuark               ,+++-- ** getMajorVersion+    getMajorVersion                         ,+++-- ** getMicroVersion+    getMicroVersion                         ,+++-- ** getMinorVersion+    getMinorVersion                         ,+++-- ** javascriptErrorQuark+    javascriptErrorQuark                    ,+++-- ** networkErrorQuark+    networkErrorQuark                       ,+++-- ** pluginErrorQuark+    pluginErrorQuark                        ,+++-- ** policyErrorQuark+    policyErrorQuark                        ,+++-- ** printErrorQuark+    printErrorQuark                         ,+++-- ** snapshotErrorQuark+    snapshotErrorQuark                      ,+++-- ** userMediaPermissionIsForAudioDevice+    userMediaPermissionIsForAudioDevice     ,+++-- ** userMediaPermissionIsForVideoDevice+    userMediaPermissionIsForVideoDevice     ,+++++    ) 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++-- 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}]+-- 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++foreign import ccall "webkit_user_media_permission_is_for_video_device" webkit_user_media_permission_is_for_video_device :: +    Ptr UserMediaPermissionRequest ->       -- request : TInterface "WebKit2" "UserMediaPermissionRequest"+    IO CInt+++userMediaPermissionIsForVideoDevice ::+    (MonadIO m, UserMediaPermissionRequestK a) =>+    a ->                                    -- request+    m Bool+userMediaPermissionIsForVideoDevice request = liftIO $ do+    let request' = unsafeManagedPtrCastPtr request+    result <- webkit_user_media_permission_is_for_video_device request'+    let result' = (/= 0) result+    touchManagedPtr request+    return result'+++-- function webkit_user_media_permission_is_for_audio_device+-- Args : [Arg {argName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, 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++foreign import ccall "webkit_user_media_permission_is_for_audio_device" webkit_user_media_permission_is_for_audio_device :: +    Ptr UserMediaPermissionRequest ->       -- request : TInterface "WebKit2" "UserMediaPermissionRequest"+    IO CInt+++userMediaPermissionIsForAudioDevice ::+    (MonadIO m, UserMediaPermissionRequestK a) =>+    a ->                                    -- request+    m Bool+userMediaPermissionIsForAudioDevice request = liftIO $ do+    let request' = unsafeManagedPtrCastPtr request+    result <- webkit_user_media_permission_is_for_audio_device request'+    let result' = (/= 0) result+    touchManagedPtr request+    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++foreign import ccall "webkit_get_minor_version" webkit_get_minor_version :: +    IO Word32+++getMinorVersion ::+    (MonadIO m) =>+    m Word32+getMinorVersion  = liftIO $ do+    result <- webkit_get_minor_version+    return result+++-- function webkit_get_micro_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "webkit_get_micro_version" webkit_get_micro_version :: +    IO Word32+++getMicroVersion ::+    (MonadIO m) =>+    m Word32+getMicroVersion  = liftIO $ do+    result <- webkit_get_micro_version+    return result+++-- function webkit_get_major_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "webkit_get_major_version" webkit_get_major_version :: +    IO Word32+++getMajorVersion ::+    (MonadIO m) =>+    m Word32+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+++
+ GI/WebKit2/Interfaces.hs view
@@ -0,0 +1,26 @@++{- |+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.Interfaces+    (     module GI.WebKit2.Interfaces.PermissionRequest,+++    ) where++import GI.WebKit2.Interfaces.PermissionRequest++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++
+ GI/WebKit2/Interfaces/PermissionRequest.hs view
@@ -0,0 +1,119 @@++{- |+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.Interfaces.PermissionRequest+    ( ++-- * Exported types+    PermissionRequest(..)                   ,+    noPermissionRequest                     ,+    PermissionRequestK                      ,+    toPermissionRequest                     ,+++ -- * Methods+-- ** permissionRequestAllow+    permissionRequestAllow                  ,+++-- ** permissionRequestDeny+    permissionRequestDeny                   ,+++++    ) 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++-- interface PermissionRequest ++newtype PermissionRequest = PermissionRequest (ForeignPtr PermissionRequest)+noPermissionRequest :: Maybe PermissionRequest+noPermissionRequest = Nothing++type instance AttributeList PermissionRequest = PermissionRequestAttributeList+type PermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList PermissionRequest = PermissionRequestSignalList+type PermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "webkit_permission_request_get_type"+    c_webkit_permission_request_get_type :: IO GType++type instance ParentTypes PermissionRequest = PermissionRequestParentTypes+type PermissionRequestParentTypes = '[GObject.Object]++instance GObject PermissionRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_permission_request_get_type+    ++class GObject o => PermissionRequestK o+instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o++toPermissionRequest :: PermissionRequestK o => o -> IO PermissionRequest+toPermissionRequest = unsafeCastTo PermissionRequest++-- 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}]+-- 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++foreign import ccall "webkit_permission_request_allow" webkit_permission_request_allow :: +    Ptr PermissionRequest ->                -- _obj : TInterface "WebKit2" "PermissionRequest"+    IO ()+++permissionRequestAllow ::+    (MonadIO m, PermissionRequestK a) =>+    a ->                                    -- _obj+    m ()+permissionRequestAllow _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_permission_request_allow _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_permission_request_deny" webkit_permission_request_deny :: +    Ptr PermissionRequest ->                -- _obj : TInterface "WebKit2" "PermissionRequest"+    IO ()+++permissionRequestDeny ::+    (MonadIO m, PermissionRequestK a) =>+    a ->                                    -- _obj+    m ()+permissionRequestDeny _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_permission_request_deny _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Interfaces/PermissionRequest.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Interfaces.PermissionRequest 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++newtype PermissionRequest = PermissionRequest (ForeignPtr PermissionRequest)+instance GObject PermissionRequest where+class GObject o => PermissionRequestK o+instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o
+ GI/WebKit2/Objects.hs view
@@ -0,0 +1,92 @@++{- |+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+    (     module GI.WebKit2.Objects.AuthenticationRequest,+    module GI.WebKit2.Objects.BackForwardList,+    module GI.WebKit2.Objects.BackForwardListItem,+    module GI.WebKit2.Objects.ColorChooserRequest,+    module GI.WebKit2.Objects.ContextMenu   ,+    module GI.WebKit2.Objects.ContextMenuItem,+    module GI.WebKit2.Objects.CookieManager ,+    module GI.WebKit2.Objects.Download      ,+    module GI.WebKit2.Objects.FaviconDatabase,+    module GI.WebKit2.Objects.FileChooserRequest,+    module GI.WebKit2.Objects.FindController,+    module GI.WebKit2.Objects.FormSubmissionRequest,+    module GI.WebKit2.Objects.GeolocationPermissionRequest,+    module GI.WebKit2.Objects.HitTestResult ,+    module GI.WebKit2.Objects.NavigationPolicyDecision,+    module GI.WebKit2.Objects.Notification  ,+    module GI.WebKit2.Objects.NotificationPermissionRequest,+    module GI.WebKit2.Objects.Plugin        ,+    module GI.WebKit2.Objects.PolicyDecision,+    module GI.WebKit2.Objects.PrintOperation,+    module GI.WebKit2.Objects.ResponsePolicyDecision,+    module GI.WebKit2.Objects.SecurityManager,+    module GI.WebKit2.Objects.Settings      ,+    module GI.WebKit2.Objects.URIRequest    ,+    module GI.WebKit2.Objects.URIResponse   ,+    module GI.WebKit2.Objects.URISchemeRequest,+    module GI.WebKit2.Objects.UserContentManager,+    module GI.WebKit2.Objects.UserMediaPermissionRequest,+    module GI.WebKit2.Objects.WebContext    ,+    module GI.WebKit2.Objects.WebInspector  ,+    module GI.WebKit2.Objects.WebResource   ,+    module GI.WebKit2.Objects.WebView       ,+    module GI.WebKit2.Objects.WebViewBase   ,+    module GI.WebKit2.Objects.WindowProperties,+++    ) where++import GI.WebKit2.Objects.AuthenticationRequest+import GI.WebKit2.Objects.BackForwardList+import GI.WebKit2.Objects.BackForwardListItem+import GI.WebKit2.Objects.ColorChooserRequest+import GI.WebKit2.Objects.ContextMenu+import GI.WebKit2.Objects.ContextMenuItem+import GI.WebKit2.Objects.CookieManager+import GI.WebKit2.Objects.Download+import GI.WebKit2.Objects.FaviconDatabase+import GI.WebKit2.Objects.FileChooserRequest+import GI.WebKit2.Objects.FindController+import GI.WebKit2.Objects.FormSubmissionRequest+import GI.WebKit2.Objects.GeolocationPermissionRequest+import GI.WebKit2.Objects.HitTestResult+import GI.WebKit2.Objects.NavigationPolicyDecision+import GI.WebKit2.Objects.Notification+import GI.WebKit2.Objects.NotificationPermissionRequest+import GI.WebKit2.Objects.Plugin+import GI.WebKit2.Objects.PolicyDecision+import GI.WebKit2.Objects.PrintOperation+import GI.WebKit2.Objects.ResponsePolicyDecision+import GI.WebKit2.Objects.SecurityManager+import GI.WebKit2.Objects.Settings+import GI.WebKit2.Objects.URIRequest+import GI.WebKit2.Objects.URIResponse+import GI.WebKit2.Objects.URISchemeRequest+import GI.WebKit2.Objects.UserContentManager+import GI.WebKit2.Objects.UserMediaPermissionRequest+import GI.WebKit2.Objects.WebContext+import GI.WebKit2.Objects.WebInspector+import GI.WebKit2.Objects.WebResource+import GI.WebKit2.Objects.WebView+import GI.WebKit2.Objects.WebViewBase+import GI.WebKit2.Objects.WindowProperties++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++
+ GI/WebKit2/Objects/AuthenticationRequest.hs view
@@ -0,0 +1,417 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2.Objects.AuthenticationRequest+    ( ++-- * Exported types+    AuthenticationRequest(..)               ,+    AuthenticationRequestK                  ,+    toAuthenticationRequest                 ,+    noAuthenticationRequest                 ,+++ -- * Methods+-- ** authenticationRequestAuthenticate+    authenticationRequestAuthenticate       ,+++-- ** authenticationRequestCanSaveCredentials+    authenticationRequestCanSaveCredentials ,+++-- ** authenticationRequestCancel+    authenticationRequestCancel             ,+++-- ** authenticationRequestGetHost+    authenticationRequestGetHost            ,+++-- ** authenticationRequestGetPort+    authenticationRequestGetPort            ,+++-- ** authenticationRequestGetProposedCredential+    authenticationRequestGetProposedCredential,+++-- ** authenticationRequestGetRealm+    authenticationRequestGetRealm           ,+++-- ** authenticationRequestGetScheme+    authenticationRequestGetScheme          ,+++-- ** authenticationRequestIsForProxy+    authenticationRequestIsForProxy         ,+++-- ** authenticationRequestIsRetry+    authenticationRequestIsRetry            ,+++++ -- * Signals+-- ** Cancelled+    AuthenticationRequestCancelledCallback  ,+    AuthenticationRequestCancelledCallbackC ,+    AuthenticationRequestCancelledSignalInfo,+    afterAuthenticationRequestCancelled     ,+    authenticationRequestCancelledCallbackWrapper,+    authenticationRequestCancelledClosure   ,+    mkAuthenticationRequestCancelledCallback,+    noAuthenticationRequestCancelledCallback,+    onAuthenticationRequestCancelled        ,+++++    ) 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 AuthenticationRequest = AuthenticationRequest (ForeignPtr AuthenticationRequest)+foreign import ccall "webkit_authentication_request_get_type"+    c_webkit_authentication_request_get_type :: IO GType++type instance ParentTypes AuthenticationRequest = AuthenticationRequestParentTypes+type AuthenticationRequestParentTypes = '[GObject.Object]++instance GObject AuthenticationRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_authentication_request_get_type+    ++class GObject o => AuthenticationRequestK o+instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o++toAuthenticationRequest :: AuthenticationRequestK o => o -> IO AuthenticationRequest+toAuthenticationRequest = unsafeCastTo AuthenticationRequest++noAuthenticationRequest :: Maybe AuthenticationRequest+noAuthenticationRequest = Nothing++-- signal AuthenticationRequest::cancelled+type AuthenticationRequestCancelledCallback =+    IO ()++noAuthenticationRequestCancelledCallback :: Maybe AuthenticationRequestCancelledCallback+noAuthenticationRequestCancelledCallback = Nothing++type AuthenticationRequestCancelledCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkAuthenticationRequestCancelledCallback :: AuthenticationRequestCancelledCallbackC -> IO (FunPtr AuthenticationRequestCancelledCallbackC)++authenticationRequestCancelledClosure :: AuthenticationRequestCancelledCallback -> IO Closure+authenticationRequestCancelledClosure cb = newCClosure =<< mkAuthenticationRequestCancelledCallback wrapped+    where wrapped = authenticationRequestCancelledCallbackWrapper cb++authenticationRequestCancelledCallbackWrapper ::+    AuthenticationRequestCancelledCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+authenticationRequestCancelledCallbackWrapper _cb _ _ = do+    _cb ++onAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId+onAuthenticationRequestCancelled obj cb = liftIO $ connectAuthenticationRequestCancelled obj cb SignalConnectBefore+afterAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId+afterAuthenticationRequestCancelled obj cb = connectAuthenticationRequestCancelled obj cb SignalConnectAfter++connectAuthenticationRequestCancelled :: (GObject a, MonadIO m) =>+                                         a -> AuthenticationRequestCancelledCallback -> SignalConnectMode -> m SignalHandlerId+connectAuthenticationRequestCancelled obj cb after = liftIO $ do+    cb' <- mkAuthenticationRequestCancelledCallback (authenticationRequestCancelledCallbackWrapper cb)+    connectSignalFunPtr obj "cancelled" cb' after++type instance AttributeList AuthenticationRequest = AuthenticationRequestAttributeList+type AuthenticationRequestAttributeList = ('[ ] :: [(Symbol, *)])++data AuthenticationRequestCancelledSignalInfo+instance SignalInfo AuthenticationRequestCancelledSignalInfo where+    type HaskellCallbackType AuthenticationRequestCancelledSignalInfo = AuthenticationRequestCancelledCallback+    connectSignal _ = connectAuthenticationRequestCancelled++type instance SignalList AuthenticationRequest = AuthenticationRequestSignalList+type AuthenticationRequestSignalList = ('[ '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_authentication_request_authenticate" webkit_authentication_request_authenticate :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    Ptr Credential ->                       -- credential : TInterface "WebKit2" "Credential"+    IO ()+++authenticationRequestAuthenticate ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    Maybe (Credential) ->                   -- credential+    m ()+authenticationRequestAuthenticate _obj credential = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCredential <- case credential of+        Nothing -> return nullPtr+        Just jCredential -> do+            let jCredential' = unsafeManagedPtrGetPtr jCredential+            return jCredential'+    webkit_authentication_request_authenticate _obj' maybeCredential+    touchManagedPtr _obj+    whenJust credential touchManagedPtr+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_can_save_credentials" webkit_authentication_request_can_save_credentials :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO CInt+++authenticationRequestCanSaveCredentials ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m Bool+authenticationRequestCanSaveCredentials _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_can_save_credentials _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_cancel" webkit_authentication_request_cancel :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO ()+++authenticationRequestCancel ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m ()+authenticationRequestCancel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_authentication_request_cancel _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_get_host" webkit_authentication_request_get_host :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO CString+++authenticationRequestGetHost ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m T.Text+authenticationRequestGetHost _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_get_host _obj'+    checkUnexpectedReturnNULL "webkit_authentication_request_get_host" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_get_port" webkit_authentication_request_get_port :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO Word32+++authenticationRequestGetPort ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m Word32+authenticationRequestGetPort _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_get_port _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_get_proposed_credential" webkit_authentication_request_get_proposed_credential :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO (Ptr Credential)+++authenticationRequestGetProposedCredential ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m Credential+authenticationRequestGetProposedCredential _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_get_proposed_credential _obj'+    checkUnexpectedReturnNULL "webkit_authentication_request_get_proposed_credential" result+    result' <- (wrapBoxed Credential) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_get_realm" webkit_authentication_request_get_realm :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO CString+++authenticationRequestGetRealm ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m T.Text+authenticationRequestGetRealm _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_get_realm _obj'+    checkUnexpectedReturnNULL "webkit_authentication_request_get_realm" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_get_scheme" webkit_authentication_request_get_scheme :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO CUInt+++authenticationRequestGetScheme ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m AuthenticationScheme+authenticationRequestGetScheme _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_get_scheme _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_is_for_proxy" webkit_authentication_request_is_for_proxy :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO CInt+++authenticationRequestIsForProxy ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m Bool+authenticationRequestIsForProxy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_is_for_proxy _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_authentication_request_is_retry" webkit_authentication_request_is_retry :: +    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"+    IO CInt+++authenticationRequestIsRetry ::+    (MonadIO m, AuthenticationRequestK a) =>+    a ->                                    -- _obj+    m Bool+authenticationRequestIsRetry _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_authentication_request_is_retry _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/AuthenticationRequest.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2.Objects.AuthenticationRequest 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++newtype AuthenticationRequest = AuthenticationRequest (ForeignPtr AuthenticationRequest)+instance GObject AuthenticationRequest where+class GObject o => AuthenticationRequestK o+instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o+data AuthenticationRequestCancelledSignalInfo
+ GI/WebKit2/Objects/BackForwardList.hs view
@@ -0,0 +1,413 @@++{- |+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.BackForwardList+    ( ++-- * Exported types+    BackForwardList(..)                     ,+    BackForwardListK                        ,+    toBackForwardList                       ,+    noBackForwardList                       ,+++ -- * Methods+-- ** backForwardListGetBackItem+    backForwardListGetBackItem              ,+++-- ** backForwardListGetBackList+    backForwardListGetBackList              ,+++-- ** backForwardListGetBackListWithLimit+    backForwardListGetBackListWithLimit     ,+++-- ** backForwardListGetCurrentItem+    backForwardListGetCurrentItem           ,+++-- ** backForwardListGetForwardItem+    backForwardListGetForwardItem           ,+++-- ** backForwardListGetForwardList+    backForwardListGetForwardList           ,+++-- ** backForwardListGetForwardListWithLimit+    backForwardListGetForwardListWithLimit  ,+++-- ** backForwardListGetLength+    backForwardListGetLength                ,+++-- ** backForwardListGetNthItem+    backForwardListGetNthItem               ,+++++ -- * Signals+-- ** Changed+    BackForwardListChangedCallback          ,+    BackForwardListChangedCallbackC         ,+    BackForwardListChangedSignalInfo        ,+    afterBackForwardListChanged             ,+    backForwardListChangedCallbackWrapper   ,+    backForwardListChangedClosure           ,+    mkBackForwardListChangedCallback        ,+    noBackForwardListChangedCallback        ,+    onBackForwardListChanged                ,+++++    ) 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 BackForwardList = BackForwardList (ForeignPtr BackForwardList)+foreign import ccall "webkit_back_forward_list_get_type"+    c_webkit_back_forward_list_get_type :: IO GType++type instance ParentTypes BackForwardList = BackForwardListParentTypes+type BackForwardListParentTypes = '[GObject.Object]++instance GObject BackForwardList where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_back_forward_list_get_type+    ++class GObject o => BackForwardListK o+instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o++toBackForwardList :: BackForwardListK o => o -> IO BackForwardList+toBackForwardList = unsafeCastTo BackForwardList++noBackForwardList :: Maybe BackForwardList+noBackForwardList = Nothing++-- signal BackForwardList::changed+type BackForwardListChangedCallback =+    Maybe BackForwardListItem ->+    Ptr () ->+    IO ()++noBackForwardListChangedCallback :: Maybe BackForwardListChangedCallback+noBackForwardListChangedCallback = Nothing++type BackForwardListChangedCallbackC =+    Ptr () ->                               -- object+    Ptr BackForwardListItem ->+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkBackForwardListChangedCallback :: BackForwardListChangedCallbackC -> IO (FunPtr BackForwardListChangedCallbackC)++backForwardListChangedClosure :: BackForwardListChangedCallback -> IO Closure+backForwardListChangedClosure cb = newCClosure =<< mkBackForwardListChangedCallback wrapped+    where wrapped = backForwardListChangedCallbackWrapper cb++backForwardListChangedCallbackWrapper ::+    BackForwardListChangedCallback ->+    Ptr () ->+    Ptr BackForwardListItem ->+    Ptr () ->+    Ptr () ->+    IO ()+backForwardListChangedCallbackWrapper _cb _ item_added items_removed _ = do+    maybeItem_added <-+        if item_added == nullPtr+        then return Nothing+        else do+            item_added' <- (newObject BackForwardListItem) item_added+            return $ Just item_added'+    _cb  maybeItem_added items_removed++onBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId+onBackForwardListChanged obj cb = liftIO $ connectBackForwardListChanged obj cb SignalConnectBefore+afterBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId+afterBackForwardListChanged obj cb = connectBackForwardListChanged obj cb SignalConnectAfter++connectBackForwardListChanged :: (GObject a, MonadIO m) =>+                                 a -> BackForwardListChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectBackForwardListChanged obj cb after = liftIO $ do+    cb' <- mkBackForwardListChangedCallback (backForwardListChangedCallbackWrapper cb)+    connectSignalFunPtr obj "changed" cb' after++type instance AttributeList BackForwardList = BackForwardListAttributeList+type BackForwardListAttributeList = ('[ ] :: [(Symbol, *)])++data BackForwardListChangedSignalInfo+instance SignalInfo BackForwardListChangedSignalInfo where+    type HaskellCallbackType BackForwardListChangedSignalInfo = BackForwardListChangedCallback+    connectSignal _ = connectBackForwardListChanged++type instance SignalList BackForwardList = BackForwardListSignalList+type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_back_item" webkit_back_forward_list_get_back_item :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    IO (Ptr BackForwardListItem)+++backForwardListGetBackItem ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    m BackForwardListItem+backForwardListGetBackItem _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_back_item _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_back_item" result+    result' <- (newObject BackForwardListItem) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_back_list" webkit_back_forward_list_get_back_list :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    IO (Ptr (GList (Ptr BackForwardListItem)))+++backForwardListGetBackList ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    m [BackForwardListItem]+backForwardListGetBackList _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_back_list _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_back_list" result+    result' <- unpackGList result+    result'' <- mapM (newObject BackForwardListItem) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_back_list_with_limit" webkit_back_forward_list_get_back_list_with_limit :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    Word32 ->                               -- limit : TBasicType TUInt32+    IO (Ptr (GList (Ptr BackForwardListItem)))+++backForwardListGetBackListWithLimit ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- limit+    m [BackForwardListItem]+backForwardListGetBackListWithLimit _obj limit = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_back_list_with_limit _obj' limit+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_back_list_with_limit" result+    result' <- unpackGList result+    result'' <- mapM (newObject BackForwardListItem) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_current_item" webkit_back_forward_list_get_current_item :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    IO (Ptr BackForwardListItem)+++backForwardListGetCurrentItem ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    m BackForwardListItem+backForwardListGetCurrentItem _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_current_item _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_current_item" result+    result' <- (newObject BackForwardListItem) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_forward_item" webkit_back_forward_list_get_forward_item :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    IO (Ptr BackForwardListItem)+++backForwardListGetForwardItem ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    m BackForwardListItem+backForwardListGetForwardItem _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_forward_item _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_forward_item" result+    result' <- (newObject BackForwardListItem) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_forward_list" webkit_back_forward_list_get_forward_list :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    IO (Ptr (GList (Ptr BackForwardListItem)))+++backForwardListGetForwardList ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    m [BackForwardListItem]+backForwardListGetForwardList _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_forward_list _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_forward_list" result+    result' <- unpackGList result+    result'' <- mapM (newObject BackForwardListItem) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_forward_list_with_limit" webkit_back_forward_list_get_forward_list_with_limit :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    Word32 ->                               -- limit : TBasicType TUInt32+    IO (Ptr (GList (Ptr BackForwardListItem)))+++backForwardListGetForwardListWithLimit ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- limit+    m [BackForwardListItem]+backForwardListGetForwardListWithLimit _obj limit = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_forward_list_with_limit _obj' limit+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_forward_list_with_limit" result+    result' <- unpackGList result+    result'' <- mapM (newObject BackForwardListItem) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_length" webkit_back_forward_list_get_length :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    IO Word32+++backForwardListGetLength ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    m Word32+backForwardListGetLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_length _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_get_nth_item" webkit_back_forward_list_get_nth_item :: +    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"+    Int32 ->                                -- index : TBasicType TInt32+    IO (Ptr BackForwardListItem)+++backForwardListGetNthItem ::+    (MonadIO m, BackForwardListK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- index+    m BackForwardListItem+backForwardListGetNthItem _obj index = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_get_nth_item _obj' index+    checkUnexpectedReturnNULL "webkit_back_forward_list_get_nth_item" result+    result' <- (newObject BackForwardListItem) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/BackForwardList.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2.Objects.BackForwardList 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++newtype BackForwardList = BackForwardList (ForeignPtr BackForwardList)+instance GObject BackForwardList where+class GObject o => BackForwardListK o+instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o+data BackForwardListChangedSignalInfo
+ GI/WebKit2/Objects/BackForwardListItem.hs view
@@ -0,0 +1,151 @@++{- |+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.BackForwardListItem+    ( ++-- * Exported types+    BackForwardListItem(..)                 ,+    BackForwardListItemK                    ,+    toBackForwardListItem                   ,+    noBackForwardListItem                   ,+++ -- * Methods+-- ** backForwardListItemGetOriginalUri+    backForwardListItemGetOriginalUri       ,+++-- ** backForwardListItemGetTitle+    backForwardListItemGetTitle             ,+++-- ** backForwardListItemGetUri+    backForwardListItemGetUri               ,+++++    ) 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 BackForwardListItem = BackForwardListItem (ForeignPtr BackForwardListItem)+foreign import ccall "webkit_back_forward_list_item_get_type"+    c_webkit_back_forward_list_item_get_type :: IO GType++type instance ParentTypes BackForwardListItem = BackForwardListItemParentTypes+type BackForwardListItemParentTypes = '[GObject.Object]++instance GObject BackForwardListItem where+    gobjectIsInitiallyUnowned _ = True+    gobjectType _ = c_webkit_back_forward_list_item_get_type+    ++class GObject o => BackForwardListItemK o+instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o++toBackForwardListItem :: BackForwardListItemK o => o -> IO BackForwardListItem+toBackForwardListItem = unsafeCastTo BackForwardListItem++noBackForwardListItem :: Maybe BackForwardListItem+noBackForwardListItem = Nothing++type instance AttributeList BackForwardListItem = BackForwardListItemAttributeList+type BackForwardListItemAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList BackForwardListItem = BackForwardListItemSignalList+type BackForwardListItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_back_forward_list_item_get_original_uri" webkit_back_forward_list_item_get_original_uri :: +    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"+    IO CString+++backForwardListItemGetOriginalUri ::+    (MonadIO m, BackForwardListItemK a) =>+    a ->                                    -- _obj+    m T.Text+backForwardListItemGetOriginalUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_item_get_original_uri _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_original_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_item_get_title" webkit_back_forward_list_item_get_title :: +    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"+    IO CString+++backForwardListItemGetTitle ::+    (MonadIO m, BackForwardListItemK a) =>+    a ->                                    -- _obj+    m T.Text+backForwardListItemGetTitle _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_item_get_title _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_title" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_back_forward_list_item_get_uri" webkit_back_forward_list_item_get_uri :: +    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"+    IO CString+++backForwardListItemGetUri ::+    (MonadIO m, BackForwardListItemK a) =>+    a ->                                    -- _obj+    m T.Text+backForwardListItemGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_back_forward_list_item_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/BackForwardListItem.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.BackForwardListItem 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++newtype BackForwardListItem = BackForwardListItem (ForeignPtr BackForwardListItem)+instance GObject BackForwardListItem where+class GObject o => BackForwardListItemK o+instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o
+ GI/WebKit2/Objects/ColorChooserRequest.hs view
@@ -0,0 +1,305 @@++{- |+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.ColorChooserRequest+    ( ++-- * Exported types+    ColorChooserRequest(..)                 ,+    ColorChooserRequestK                    ,+    toColorChooserRequest                   ,+    noColorChooserRequest                   ,+++ -- * Methods+-- ** colorChooserRequestCancel+    colorChooserRequestCancel               ,+++-- ** colorChooserRequestFinish+    colorChooserRequestFinish               ,+++-- ** colorChooserRequestGetElementRectangle+    colorChooserRequestGetElementRectangle  ,+++-- ** colorChooserRequestGetRgba+    colorChooserRequestGetRgba              ,+++-- ** colorChooserRequestSetRgba+    colorChooserRequestSetRgba              ,+++++ -- * Properties+-- ** Rgba+    ColorChooserRequestRgbaPropertyInfo     ,+    constructColorChooserRequestRgba        ,+    getColorChooserRequestRgba              ,+    setColorChooserRequestRgba              ,+++++ -- * Signals+-- ** Finished+    ColorChooserRequestFinishedCallback     ,+    ColorChooserRequestFinishedCallbackC    ,+    ColorChooserRequestFinishedSignalInfo   ,+    afterColorChooserRequestFinished        ,+    colorChooserRequestFinishedCallbackWrapper,+    colorChooserRequestFinishedClosure      ,+    mkColorChooserRequestFinishedCallback   ,+    noColorChooserRequestFinishedCallback   ,+    onColorChooserRequestFinished           ,+++++    ) 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+import qualified GI.Gdk as Gdk+import qualified GI.Cairo as Cairo++newtype ColorChooserRequest = ColorChooserRequest (ForeignPtr ColorChooserRequest)+foreign import ccall "webkit_color_chooser_request_get_type"+    c_webkit_color_chooser_request_get_type :: IO GType++type instance ParentTypes ColorChooserRequest = ColorChooserRequestParentTypes+type ColorChooserRequestParentTypes = '[GObject.Object]++instance GObject ColorChooserRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_color_chooser_request_get_type+    ++class GObject o => ColorChooserRequestK o+instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o++toColorChooserRequest :: ColorChooserRequestK o => o -> IO ColorChooserRequest+toColorChooserRequest = unsafeCastTo ColorChooserRequest++noColorChooserRequest :: Maybe ColorChooserRequest+noColorChooserRequest = Nothing++-- signal ColorChooserRequest::finished+type ColorChooserRequestFinishedCallback =+    IO ()++noColorChooserRequestFinishedCallback :: Maybe ColorChooserRequestFinishedCallback+noColorChooserRequestFinishedCallback = Nothing++type ColorChooserRequestFinishedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkColorChooserRequestFinishedCallback :: ColorChooserRequestFinishedCallbackC -> IO (FunPtr ColorChooserRequestFinishedCallbackC)++colorChooserRequestFinishedClosure :: ColorChooserRequestFinishedCallback -> IO Closure+colorChooserRequestFinishedClosure cb = newCClosure =<< mkColorChooserRequestFinishedCallback wrapped+    where wrapped = colorChooserRequestFinishedCallbackWrapper cb++colorChooserRequestFinishedCallbackWrapper ::+    ColorChooserRequestFinishedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+colorChooserRequestFinishedCallbackWrapper _cb _ _ = do+    _cb ++onColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId+onColorChooserRequestFinished obj cb = liftIO $ connectColorChooserRequestFinished obj cb SignalConnectBefore+afterColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId+afterColorChooserRequestFinished obj cb = connectColorChooserRequestFinished obj cb SignalConnectAfter++connectColorChooserRequestFinished :: (GObject a, MonadIO m) =>+                                      a -> ColorChooserRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId+connectColorChooserRequestFinished obj cb after = liftIO $ do+    cb' <- mkColorChooserRequestFinishedCallback (colorChooserRequestFinishedCallbackWrapper cb)+    connectSignalFunPtr obj "finished" cb' after++-- VVV Prop "rgba"+   -- Type: TInterface "Gdk" "RGBA"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]++getColorChooserRequestRgba :: (MonadIO m, ColorChooserRequestK o) => o -> m Gdk.RGBA+getColorChooserRequestRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA++setColorChooserRequestRgba :: (MonadIO m, ColorChooserRequestK o) => o -> Gdk.RGBA -> m ()+setColorChooserRequestRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" val++constructColorChooserRequestRgba :: Gdk.RGBA -> IO ([Char], GValue)+constructColorChooserRequestRgba val = constructObjectPropertyBoxed "rgba" val++data ColorChooserRequestRgbaPropertyInfo+instance AttrInfo ColorChooserRequestRgbaPropertyInfo where+    type AttrAllowedOps ColorChooserRequestRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA+    type AttrBaseTypeConstraint ColorChooserRequestRgbaPropertyInfo = ColorChooserRequestK+    type AttrGetType ColorChooserRequestRgbaPropertyInfo = Gdk.RGBA+    type AttrLabel ColorChooserRequestRgbaPropertyInfo = "ColorChooserRequest::rgba"+    attrGet _ = getColorChooserRequestRgba+    attrSet _ = setColorChooserRequestRgba+    attrConstruct _ = constructColorChooserRequestRgba++type instance AttributeList ColorChooserRequest = ColorChooserRequestAttributeList+type ColorChooserRequestAttributeList = ('[ '("rgba", ColorChooserRequestRgbaPropertyInfo)] :: [(Symbol, *)])++data ColorChooserRequestFinishedSignalInfo+instance SignalInfo ColorChooserRequestFinishedSignalInfo where+    type HaskellCallbackType ColorChooserRequestFinishedSignalInfo = ColorChooserRequestFinishedCallback+    connectSignal _ = connectColorChooserRequestFinished++type instance SignalList ColorChooserRequest = ColorChooserRequestSignalList+type ColorChooserRequestSignalList = ('[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_color_chooser_request_cancel" webkit_color_chooser_request_cancel :: +    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"+    IO ()+++colorChooserRequestCancel ::+    (MonadIO m, ColorChooserRequestK a) =>+    a ->                                    -- _obj+    m ()+colorChooserRequestCancel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_color_chooser_request_cancel _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_color_chooser_request_finish" webkit_color_chooser_request_finish :: +    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"+    IO ()+++colorChooserRequestFinish ::+    (MonadIO m, ColorChooserRequestK a) =>+    a ->                                    -- _obj+    m ()+colorChooserRequestFinish _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_color_chooser_request_finish _obj'+    touchManagedPtr _obj+    return ()++-- 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 "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, 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++foreign import ccall "webkit_color_chooser_request_get_element_rectangle" webkit_color_chooser_request_get_element_rectangle :: +    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"+    Ptr Cairo.RectangleInt ->               -- rect : TInterface "cairo" "RectangleInt"+    IO ()+++colorChooserRequestGetElementRectangle ::+    (MonadIO m, ColorChooserRequestK a) =>+    a ->                                    -- _obj+    m (Cairo.RectangleInt)+colorChooserRequestGetElementRectangle _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)+    webkit_color_chooser_request_get_element_rectangle _obj' rect+    rect' <- (wrapBoxed Cairo.RectangleInt) rect+    touchManagedPtr _obj+    return rect'++-- 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}]+-- 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++foreign import ccall "webkit_color_chooser_request_get_rgba" webkit_color_chooser_request_get_rgba :: +    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"+    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"+    IO ()+++colorChooserRequestGetRgba ::+    (MonadIO m, ColorChooserRequestK a) =>+    a ->                                    -- _obj+    m (Gdk.RGBA)+colorChooserRequestGetRgba _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)+    webkit_color_chooser_request_get_rgba _obj' rgba+    rgba' <- (wrapBoxed Gdk.RGBA) rgba+    touchManagedPtr _obj+    return rgba'++-- 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}]+-- 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++foreign import ccall "webkit_color_chooser_request_set_rgba" webkit_color_chooser_request_set_rgba :: +    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"+    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"+    IO ()+++colorChooserRequestSetRgba ::+    (MonadIO m, ColorChooserRequestK a) =>+    a ->                                    -- _obj+    Gdk.RGBA ->                             -- rgba+    m ()+colorChooserRequestSetRgba _obj rgba = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let rgba' = unsafeManagedPtrGetPtr rgba+    webkit_color_chooser_request_set_rgba _obj' rgba'+    touchManagedPtr _obj+    touchManagedPtr rgba+    return ()++
+ GI/WebKit2/Objects/ColorChooserRequest.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2.Objects.ColorChooserRequest 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++newtype ColorChooserRequest = ColorChooserRequest (ForeignPtr ColorChooserRequest)+instance GObject ColorChooserRequest where+class GObject o => ColorChooserRequestK o+instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o+data ColorChooserRequestRgbaPropertyInfo+data ColorChooserRequestFinishedSignalInfo
+ GI/WebKit2/Objects/ContextMenu.hs view
@@ -0,0 +1,523 @@++{- |+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.ContextMenu+    ( ++-- * Exported types+    ContextMenu(..)                         ,+    ContextMenuK                            ,+    toContextMenu                           ,+    noContextMenu                           ,+++ -- * Methods+-- ** contextMenuAppend+    contextMenuAppend                       ,+++-- ** contextMenuFirst+    contextMenuFirst                        ,+++-- ** contextMenuGetItemAtPosition+    contextMenuGetItemAtPosition            ,+++-- ** contextMenuGetItems+    contextMenuGetItems                     ,+++-- ** contextMenuGetNItems+    contextMenuGetNItems                    ,+++-- ** contextMenuGetUserData+    contextMenuGetUserData                  ,+++-- ** contextMenuInsert+    contextMenuInsert                       ,+++-- ** contextMenuLast+    contextMenuLast                         ,+++-- ** contextMenuMoveItem+    contextMenuMoveItem                     ,+++-- ** contextMenuNew+    contextMenuNew                          ,+++-- ** contextMenuNewWithItems+    contextMenuNewWithItems                 ,+++-- ** contextMenuPrepend+    contextMenuPrepend                      ,+++-- ** contextMenuRemove+    contextMenuRemove                       ,+++-- ** contextMenuRemoveAll+    contextMenuRemoveAll                    ,+++-- ** contextMenuSetUserData+    contextMenuSetUserData                  ,+++++    ) 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 ContextMenu = ContextMenu (ForeignPtr ContextMenu)+foreign import ccall "webkit_context_menu_get_type"+    c_webkit_context_menu_get_type :: IO GType++type instance ParentTypes ContextMenu = ContextMenuParentTypes+type ContextMenuParentTypes = '[GObject.Object]++instance GObject ContextMenu where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_context_menu_get_type+    ++class GObject o => ContextMenuK o+instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o++toContextMenu :: ContextMenuK o => o -> IO ContextMenu+toContextMenu = unsafeCastTo ContextMenu++noContextMenu :: Maybe ContextMenu+noContextMenu = Nothing++type instance AttributeList ContextMenu = ContextMenuAttributeList+type ContextMenuAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ContextMenu = ContextMenuSignalList+type ContextMenuSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method ContextMenu::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2" "ContextMenu"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_new" webkit_context_menu_new :: +    IO (Ptr ContextMenu)+++contextMenuNew ::+    (MonadIO m) =>+    m ContextMenu+contextMenuNew  = liftIO $ do+    result <- webkit_context_menu_new+    checkUnexpectedReturnNULL "webkit_context_menu_new" result+    result' <- (wrapObject ContextMenu) result+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_new_with_items" webkit_context_menu_new_with_items :: +    Ptr (GList (Ptr ContextMenuItem)) ->    -- items : TGList (TInterface "WebKit2" "ContextMenuItem")+    IO (Ptr ContextMenu)+++contextMenuNewWithItems ::+    (MonadIO m, ContextMenuItemK a) =>+    [a] ->                                  -- items+    m ContextMenu+contextMenuNewWithItems items = liftIO $ do+    let items' = map unsafeManagedPtrCastPtr items+    items'' <- packGList items'+    result <- webkit_context_menu_new_with_items items''+    checkUnexpectedReturnNULL "webkit_context_menu_new_with_items" result+    result' <- (wrapObject ContextMenu) result+    mapM_ touchManagedPtr items+    g_list_free items''+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_append" webkit_context_menu_append :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"+    IO ()+++contextMenuAppend ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    m ()+contextMenuAppend _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_append _obj' item'+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_first" webkit_context_menu_first :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    IO (Ptr ContextMenuItem)+++contextMenuFirst ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m ContextMenuItem+contextMenuFirst _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_first _obj'+    checkUnexpectedReturnNULL "webkit_context_menu_first" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_get_item_at_position" webkit_context_menu_get_item_at_position :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    Word32 ->                               -- position : TBasicType TUInt32+    IO (Ptr ContextMenuItem)+++contextMenuGetItemAtPosition ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- position+    m ContextMenuItem+contextMenuGetItemAtPosition _obj position = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_get_item_at_position _obj' position+    checkUnexpectedReturnNULL "webkit_context_menu_get_item_at_position" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_get_items" webkit_context_menu_get_items :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    IO (Ptr (GList (Ptr ContextMenuItem)))+++contextMenuGetItems ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m [ContextMenuItem]+contextMenuGetItems _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_get_items _obj'+    checkUnexpectedReturnNULL "webkit_context_menu_get_items" result+    result' <- unpackGList result+    result'' <- mapM (newObject ContextMenuItem) result'+    touchManagedPtr _obj+    return result''++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_get_n_items" webkit_context_menu_get_n_items :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    IO Word32+++contextMenuGetNItems ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m Word32+contextMenuGetNItems _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_get_n_items _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_get_user_data" webkit_context_menu_get_user_data :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    IO (Ptr GVariant)+++contextMenuGetUserData ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m GVariant+contextMenuGetUserData _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_get_user_data _obj'+    checkUnexpectedReturnNULL "webkit_context_menu_get_user_data" result+    result' <- newGVariantFromPtr result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_insert" webkit_context_menu_insert :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"+    Int32 ->                                -- position : TBasicType TInt32+    IO ()+++contextMenuInsert ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    Int32 ->                                -- position+    m ()+contextMenuInsert _obj item position = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_insert _obj' item' position+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_last" webkit_context_menu_last :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    IO (Ptr ContextMenuItem)+++contextMenuLast ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m ContextMenuItem+contextMenuLast _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_last _obj'+    checkUnexpectedReturnNULL "webkit_context_menu_last" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_move_item" webkit_context_menu_move_item :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"+    Int32 ->                                -- position : TBasicType TInt32+    IO ()+++contextMenuMoveItem ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    Int32 ->                                -- position+    m ()+contextMenuMoveItem _obj item position = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_move_item _obj' item' position+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_prepend" webkit_context_menu_prepend :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"+    IO ()+++contextMenuPrepend ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    m ()+contextMenuPrepend _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_prepend _obj' item'+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_remove" webkit_context_menu_remove :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"+    IO ()+++contextMenuRemove ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    m ()+contextMenuRemove _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_remove _obj' item'+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_remove_all" webkit_context_menu_remove_all :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    IO ()+++contextMenuRemoveAll ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m ()+contextMenuRemoveAll _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_context_menu_remove_all _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_set_user_data" webkit_context_menu_set_user_data :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"+    Ptr GVariant ->                         -- user_data : TVariant+    IO ()+++contextMenuSetUserData ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    GVariant ->                             -- user_data+    m ()+contextMenuSetUserData _obj user_data = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let user_data' = unsafeManagedPtrGetPtr user_data+    webkit_context_menu_set_user_data _obj' user_data'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Objects/ContextMenu.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.ContextMenu 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++newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu)+instance GObject ContextMenu where+class GObject o => ContextMenuK o+instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o
+ GI/WebKit2/Objects/ContextMenuItem.hs view
@@ -0,0 +1,368 @@++{- |+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.ContextMenuItem+    ( ++-- * Exported types+    ContextMenuItem(..)                     ,+    ContextMenuItemK                        ,+    toContextMenuItem                       ,+    noContextMenuItem                       ,+++ -- * Methods+-- ** contextMenuItemGetAction+    contextMenuItemGetAction                ,+++-- ** contextMenuItemGetStockAction+    contextMenuItemGetStockAction           ,+++-- ** contextMenuItemGetSubmenu+    contextMenuItemGetSubmenu               ,+++-- ** contextMenuItemIsSeparator+    contextMenuItemIsSeparator              ,+++-- ** contextMenuItemNew+    contextMenuItemNew                      ,+++-- ** contextMenuItemNewFromStockAction+    contextMenuItemNewFromStockAction       ,+++-- ** contextMenuItemNewFromStockActionWithLabel+    contextMenuItemNewFromStockActionWithLabel,+++-- ** contextMenuItemNewSeparator+    contextMenuItemNewSeparator             ,+++-- ** contextMenuItemNewWithSubmenu+    contextMenuItemNewWithSubmenu           ,+++-- ** contextMenuItemSetSubmenu+    contextMenuItemSetSubmenu               ,+++++    ) 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+import qualified GI.Gtk as Gtk++newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem)+foreign import ccall "webkit_context_menu_item_get_type"+    c_webkit_context_menu_item_get_type :: IO GType++type instance ParentTypes ContextMenuItem = ContextMenuItemParentTypes+type ContextMenuItemParentTypes = '[GObject.Object]++instance GObject ContextMenuItem where+    gobjectIsInitiallyUnowned _ = True+    gobjectType _ = c_webkit_context_menu_item_get_type+    ++class GObject o => ContextMenuItemK o+instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o++toContextMenuItem :: ContextMenuItemK o => o -> IO ContextMenuItem+toContextMenuItem = unsafeCastTo ContextMenuItem++noContextMenuItem :: Maybe ContextMenuItem+noContextMenuItem = Nothing++type instance AttributeList ContextMenuItem = ContextMenuItemAttributeList+type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ContextMenuItem = ContextMenuItemSignalList+type ContextMenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_context_menu_item_new" webkit_context_menu_item_new :: +    Ptr Gtk.Action ->                       -- action : TInterface "Gtk" "Action"+    IO (Ptr ContextMenuItem)+++contextMenuItemNew ::+    (MonadIO m, Gtk.ActionK a) =>+    a ->                                    -- action+    m ContextMenuItem+contextMenuItemNew action = liftIO $ do+    let action' = unsafeManagedPtrCastPtr action+    result <- webkit_context_menu_item_new action'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr action+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_new_from_stock_action" webkit_context_menu_item_new_from_stock_action :: +    CUInt ->                                -- action : TInterface "WebKit2" "ContextMenuAction"+    IO (Ptr ContextMenuItem)+++contextMenuItemNewFromStockAction ::+    (MonadIO m) =>+    ContextMenuAction ->                    -- action+    m ContextMenuItem+contextMenuItemNewFromStockAction action = liftIO $ do+    let action' = (fromIntegral . fromEnum) action+    result <- webkit_context_menu_item_new_from_stock_action action'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action" result+    result' <- (newObject ContextMenuItem) result+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_new_from_stock_action_with_label" webkit_context_menu_item_new_from_stock_action_with_label :: +    CUInt ->                                -- action : TInterface "WebKit2" "ContextMenuAction"+    CString ->                              -- label : TBasicType TUTF8+    IO (Ptr ContextMenuItem)+++contextMenuItemNewFromStockActionWithLabel ::+    (MonadIO m) =>+    ContextMenuAction ->                    -- action+    T.Text ->                               -- label+    m ContextMenuItem+contextMenuItemNewFromStockActionWithLabel action label = liftIO $ do+    let action' = (fromIntegral . fromEnum) action+    label' <- textToCString label+    result <- webkit_context_menu_item_new_from_stock_action_with_label action' label'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action_with_label" result+    result' <- (newObject ContextMenuItem) result+    freeMem label'+    return result'++-- method ContextMenuItem::new_separator+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2" "ContextMenuItem"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_separator" webkit_context_menu_item_new_separator :: +    IO (Ptr ContextMenuItem)+++contextMenuItemNewSeparator ::+    (MonadIO m) =>+    m ContextMenuItem+contextMenuItemNewSeparator  = liftIO $ do+    result <- webkit_context_menu_item_new_separator+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_separator" result+    result' <- (newObject ContextMenuItem) result+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_new_with_submenu" webkit_context_menu_item_new_with_submenu :: +    CString ->                              -- label : TBasicType TUTF8+    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2" "ContextMenu"+    IO (Ptr ContextMenuItem)+++contextMenuItemNewWithSubmenu ::+    (MonadIO m, ContextMenuK a) =>+    T.Text ->                               -- label+    a ->                                    -- submenu+    m ContextMenuItem+contextMenuItemNewWithSubmenu label submenu = liftIO $ do+    label' <- textToCString label+    let submenu' = unsafeManagedPtrCastPtr submenu+    result <- webkit_context_menu_item_new_with_submenu label' submenu'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_with_submenu" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr submenu+    freeMem label'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"+    IO (Ptr Gtk.Action)+++contextMenuItemGetAction ::+    (MonadIO m, ContextMenuItemK a) =>+    a ->                                    -- _obj+    m Gtk.Action+contextMenuItemGetAction _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_item_get_action _obj'+    checkUnexpectedReturnNULL "webkit_context_menu_item_get_action" result+    result' <- (newObject Gtk.Action) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_get_stock_action" webkit_context_menu_item_get_stock_action :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"+    IO CUInt+++contextMenuItemGetStockAction ::+    (MonadIO m, ContextMenuItemK a) =>+    a ->                                    -- _obj+    m ContextMenuAction+contextMenuItemGetStockAction _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_item_get_stock_action _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_get_submenu" webkit_context_menu_item_get_submenu :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"+    IO (Ptr ContextMenu)+++contextMenuItemGetSubmenu ::+    (MonadIO m, ContextMenuItemK a) =>+    a ->                                    -- _obj+    m ContextMenu+contextMenuItemGetSubmenu _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_item_get_submenu _obj'+    checkUnexpectedReturnNULL "webkit_context_menu_item_get_submenu" result+    result' <- (newObject ContextMenu) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_is_separator" webkit_context_menu_item_is_separator :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"+    IO CInt+++contextMenuItemIsSeparator ::+    (MonadIO m, ContextMenuItemK a) =>+    a ->                                    -- _obj+    m Bool+contextMenuItemIsSeparator _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_item_is_separator _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_context_menu_item_set_submenu" webkit_context_menu_item_set_submenu :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"+    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2" "ContextMenu"+    IO ()+++contextMenuItemSetSubmenu ::+    (MonadIO m, ContextMenuItemK a, ContextMenuK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- submenu+    m ()+contextMenuItemSetSubmenu _obj submenu = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeSubmenu <- case submenu of+        Nothing -> return nullPtr+        Just jSubmenu -> do+            let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu+            return jSubmenu'+    webkit_context_menu_item_set_submenu _obj' maybeSubmenu+    touchManagedPtr _obj+    whenJust submenu touchManagedPtr+    return ()++
+ GI/WebKit2/Objects/ContextMenuItem.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.ContextMenuItem 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++newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem)+instance GObject ContextMenuItem where+class GObject o => ContextMenuItemK o+instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o
+ GI/WebKit2/Objects/CookieManager.hs view
@@ -0,0 +1,419 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2.Objects.CookieManager+    ( ++-- * Exported types+    CookieManager(..)                       ,+    CookieManagerK                          ,+    toCookieManager                         ,+    noCookieManager                         ,+++ -- * Methods+-- ** cookieManagerDeleteAllCookies+    cookieManagerDeleteAllCookies           ,+++-- ** cookieManagerDeleteCookiesForDomain+    cookieManagerDeleteCookiesForDomain     ,+++-- ** cookieManagerGetAcceptPolicy+    cookieManagerGetAcceptPolicy            ,+++-- ** cookieManagerGetAcceptPolicyFinish+    cookieManagerGetAcceptPolicyFinish      ,+++-- ** cookieManagerGetDomainsWithCookies+    cookieManagerGetDomainsWithCookies      ,+++-- ** cookieManagerGetDomainsWithCookiesFinish+    cookieManagerGetDomainsWithCookiesFinish,+++-- ** cookieManagerSetAcceptPolicy+    cookieManagerSetAcceptPolicy            ,+++-- ** cookieManagerSetPersistentStorage+    cookieManagerSetPersistentStorage       ,+++++ -- * Signals+-- ** Changed+    CookieManagerChangedCallback            ,+    CookieManagerChangedCallbackC           ,+    CookieManagerChangedSignalInfo          ,+    afterCookieManagerChanged               ,+    cookieManagerChangedCallbackWrapper     ,+    cookieManagerChangedClosure             ,+    mkCookieManagerChangedCallback          ,+    noCookieManagerChangedCallback          ,+    onCookieManagerChanged                  ,+++++    ) 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+import qualified GI.Gio as Gio++newtype CookieManager = CookieManager (ForeignPtr CookieManager)+foreign import ccall "webkit_cookie_manager_get_type"+    c_webkit_cookie_manager_get_type :: IO GType++type instance ParentTypes CookieManager = CookieManagerParentTypes+type CookieManagerParentTypes = '[GObject.Object]++instance GObject CookieManager where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_cookie_manager_get_type+    ++class GObject o => CookieManagerK o+instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o++toCookieManager :: CookieManagerK o => o -> IO CookieManager+toCookieManager = unsafeCastTo CookieManager++noCookieManager :: Maybe CookieManager+noCookieManager = Nothing++-- signal CookieManager::changed+type CookieManagerChangedCallback =+    IO ()++noCookieManagerChangedCallback :: Maybe CookieManagerChangedCallback+noCookieManagerChangedCallback = Nothing++type CookieManagerChangedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkCookieManagerChangedCallback :: CookieManagerChangedCallbackC -> IO (FunPtr CookieManagerChangedCallbackC)++cookieManagerChangedClosure :: CookieManagerChangedCallback -> IO Closure+cookieManagerChangedClosure cb = newCClosure =<< mkCookieManagerChangedCallback wrapped+    where wrapped = cookieManagerChangedCallbackWrapper cb++cookieManagerChangedCallbackWrapper ::+    CookieManagerChangedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+cookieManagerChangedCallbackWrapper _cb _ _ = do+    _cb ++onCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId+onCookieManagerChanged obj cb = liftIO $ connectCookieManagerChanged obj cb SignalConnectBefore+afterCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId+afterCookieManagerChanged obj cb = connectCookieManagerChanged obj cb SignalConnectAfter++connectCookieManagerChanged :: (GObject a, MonadIO m) =>+                               a -> CookieManagerChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectCookieManagerChanged obj cb after = liftIO $ do+    cb' <- mkCookieManagerChangedCallback (cookieManagerChangedCallbackWrapper cb)+    connectSignalFunPtr obj "changed" cb' after++type instance AttributeList CookieManager = CookieManagerAttributeList+type CookieManagerAttributeList = ('[ ] :: [(Symbol, *)])++data CookieManagerChangedSignalInfo+instance SignalInfo CookieManagerChangedSignalInfo where+    type HaskellCallbackType CookieManagerChangedSignalInfo = CookieManagerChangedCallback+    connectSignal _ = connectCookieManagerChanged++type instance SignalList CookieManager = CookieManagerSignalList+type CookieManagerSignalList = ('[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_cookie_manager_delete_all_cookies" webkit_cookie_manager_delete_all_cookies :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    IO ()+++cookieManagerDeleteAllCookies ::+    (MonadIO m, CookieManagerK a) =>+    a ->                                    -- _obj+    m ()+cookieManagerDeleteAllCookies _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_cookie_manager_delete_all_cookies _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_cookie_manager_delete_cookies_for_domain" webkit_cookie_manager_delete_cookies_for_domain :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    CString ->                              -- domain : TBasicType TUTF8+    IO ()+++cookieManagerDeleteCookiesForDomain ::+    (MonadIO m, CookieManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- domain+    m ()+cookieManagerDeleteCookiesForDomain _obj domain = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    domain' <- textToCString domain+    webkit_cookie_manager_delete_cookies_for_domain _obj' domain'+    touchManagedPtr _obj+    freeMem domain'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_cookie_manager_get_accept_policy" webkit_cookie_manager_get_accept_policy :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++cookieManagerGetAcceptPolicy ::+    (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+cookieManagerGetAcceptPolicy _obj cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    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_cookie_manager_get_accept_policy _obj' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_cookie_manager_get_accept_policy_finish" webkit_cookie_manager_get_accept_policy_finish :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++cookieManagerGetAcceptPolicyFinish ::+    (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m CookieAcceptPolicy+cookieManagerGetAcceptPolicyFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_cookie_manager_get_accept_policy_finish _obj' result_'+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++-- 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}]+-- 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++foreign import ccall "webkit_cookie_manager_get_domains_with_cookies" webkit_cookie_manager_get_domains_with_cookies :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++cookieManagerGetDomainsWithCookies ::+    (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+cookieManagerGetDomainsWithCookies _obj cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    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_cookie_manager_get_domains_with_cookies _obj' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_cookie_manager_get_domains_with_cookies_finish" webkit_cookie_manager_get_domains_with_cookies_finish :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)+++cookieManagerGetDomainsWithCookiesFinish ::+    (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m [T.Text]+cookieManagerGetDomainsWithCookiesFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_cookie_manager_get_domains_with_cookies_finish _obj' result_'+        checkUnexpectedReturnNULL "webkit_cookie_manager_get_domains_with_cookies_finish" result+        result' <- unpackZeroTerminatedUTF8CArray result+        mapZeroTerminatedCArray freeMem result+        freeMem result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++-- 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}]+-- 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++foreign import ccall "webkit_cookie_manager_set_accept_policy" webkit_cookie_manager_set_accept_policy :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    CUInt ->                                -- policy : TInterface "WebKit2" "CookieAcceptPolicy"+    IO ()+++cookieManagerSetAcceptPolicy ::+    (MonadIO m, CookieManagerK a) =>+    a ->                                    -- _obj+    CookieAcceptPolicy ->                   -- policy+    m ()+cookieManagerSetAcceptPolicy _obj policy = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let policy' = (fromIntegral . fromEnum) policy+    webkit_cookie_manager_set_accept_policy _obj' policy'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_cookie_manager_set_persistent_storage" webkit_cookie_manager_set_persistent_storage :: +    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"+    CString ->                              -- filename : TBasicType TUTF8+    CUInt ->                                -- storage : TInterface "WebKit2" "CookiePersistentStorage"+    IO ()+++cookieManagerSetPersistentStorage ::+    (MonadIO m, CookieManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- filename+    CookiePersistentStorage ->              -- storage+    m ()+cookieManagerSetPersistentStorage _obj filename storage = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    filename' <- textToCString filename+    let storage' = (fromIntegral . fromEnum) storage+    webkit_cookie_manager_set_persistent_storage _obj' filename' storage'+    touchManagedPtr _obj+    freeMem filename'+    return ()++
+ GI/WebKit2/Objects/CookieManager.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2.Objects.CookieManager 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++newtype CookieManager = CookieManager (ForeignPtr CookieManager)+instance GObject CookieManager where+class GObject o => CookieManagerK o+instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o+data CookieManagerChangedSignalInfo
+ GI/WebKit2/Objects/Download.hs view
@@ -0,0 +1,784 @@++{- |+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.Download+    ( ++-- * Exported types+    Download(..)                            ,+    DownloadK                               ,+    toDownload                              ,+    noDownload                              ,+++ -- * Methods+-- ** downloadCancel+    downloadCancel                          ,+++-- ** downloadGetAllowOverwrite+    downloadGetAllowOverwrite               ,+++-- ** downloadGetDestination+    downloadGetDestination                  ,+++-- ** downloadGetElapsedTime+    downloadGetElapsedTime                  ,+++-- ** downloadGetEstimatedProgress+    downloadGetEstimatedProgress            ,+++-- ** downloadGetReceivedDataLength+    downloadGetReceivedDataLength           ,+++-- ** downloadGetRequest+    downloadGetRequest                      ,+++-- ** downloadGetResponse+    downloadGetResponse                     ,+++-- ** downloadGetWebView+    downloadGetWebView                      ,+++-- ** downloadSetAllowOverwrite+    downloadSetAllowOverwrite               ,+++-- ** downloadSetDestination+    downloadSetDestination                  ,+++++ -- * Properties+-- ** AllowOverwrite+    DownloadAllowOverwritePropertyInfo      ,+    constructDownloadAllowOverwrite         ,+    getDownloadAllowOverwrite               ,+    setDownloadAllowOverwrite               ,+++-- ** Destination+    DownloadDestinationPropertyInfo         ,+    getDownloadDestination                  ,+++-- ** EstimatedProgress+    DownloadEstimatedProgressPropertyInfo   ,+    getDownloadEstimatedProgress            ,+++-- ** Response+    DownloadResponsePropertyInfo            ,+    getDownloadResponse                     ,+++++ -- * Signals+-- ** CreatedDestination+    DownloadCreatedDestinationCallback      ,+    DownloadCreatedDestinationCallbackC     ,+    DownloadCreatedDestinationSignalInfo    ,+    afterDownloadCreatedDestination         ,+    downloadCreatedDestinationCallbackWrapper,+    downloadCreatedDestinationClosure       ,+    mkDownloadCreatedDestinationCallback    ,+    noDownloadCreatedDestinationCallback    ,+    onDownloadCreatedDestination            ,+++-- ** DecideDestination+    DownloadDecideDestinationCallback       ,+    DownloadDecideDestinationCallbackC      ,+    DownloadDecideDestinationSignalInfo     ,+    afterDownloadDecideDestination          ,+    downloadDecideDestinationCallbackWrapper,+    downloadDecideDestinationClosure        ,+    mkDownloadDecideDestinationCallback     ,+    noDownloadDecideDestinationCallback     ,+    onDownloadDecideDestination             ,+++-- ** Failed+    DownloadFailedCallback                  ,+    DownloadFailedCallbackC                 ,+    DownloadFailedSignalInfo                ,+    afterDownloadFailed                     ,+    downloadFailedCallbackWrapper           ,+    downloadFailedClosure                   ,+    mkDownloadFailedCallback                ,+    noDownloadFailedCallback                ,+    onDownloadFailed                        ,+++-- ** Finished+    DownloadFinishedCallback                ,+    DownloadFinishedCallbackC               ,+    DownloadFinishedSignalInfo              ,+    afterDownloadFinished                   ,+    downloadFinishedCallbackWrapper         ,+    downloadFinishedClosure                 ,+    mkDownloadFinishedCallback              ,+    noDownloadFinishedCallback              ,+    onDownloadFinished                      ,+++-- ** ReceivedData+    DownloadReceivedDataCallback            ,+    DownloadReceivedDataCallbackC           ,+    DownloadReceivedDataSignalInfo          ,+    afterDownloadReceivedData               ,+    downloadReceivedDataCallbackWrapper     ,+    downloadReceivedDataClosure             ,+    mkDownloadReceivedDataCallback          ,+    noDownloadReceivedDataCallback          ,+    onDownloadReceivedData                  ,+++++    ) 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 Download = Download (ForeignPtr Download)+foreign import ccall "webkit_download_get_type"+    c_webkit_download_get_type :: IO GType++type instance ParentTypes Download = DownloadParentTypes+type DownloadParentTypes = '[GObject.Object]++instance GObject Download where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_download_get_type+    ++class GObject o => DownloadK o+instance (GObject o, IsDescendantOf Download o) => DownloadK o++toDownload :: DownloadK o => o -> IO Download+toDownload = unsafeCastTo Download++noDownload :: Maybe Download+noDownload = Nothing++-- signal Download::created-destination+type DownloadCreatedDestinationCallback =+    T.Text ->+    IO ()++noDownloadCreatedDestinationCallback :: Maybe DownloadCreatedDestinationCallback+noDownloadCreatedDestinationCallback = Nothing++type DownloadCreatedDestinationCallbackC =+    Ptr () ->                               -- object+    CString ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDownloadCreatedDestinationCallback :: DownloadCreatedDestinationCallbackC -> IO (FunPtr DownloadCreatedDestinationCallbackC)++downloadCreatedDestinationClosure :: DownloadCreatedDestinationCallback -> IO Closure+downloadCreatedDestinationClosure cb = newCClosure =<< mkDownloadCreatedDestinationCallback wrapped+    where wrapped = downloadCreatedDestinationCallbackWrapper cb++downloadCreatedDestinationCallbackWrapper ::+    DownloadCreatedDestinationCallback ->+    Ptr () ->+    CString ->+    Ptr () ->+    IO ()+downloadCreatedDestinationCallbackWrapper _cb _ destination _ = do+    destination' <- cstringToText destination+    _cb  destination'++onDownloadCreatedDestination :: (GObject a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId+onDownloadCreatedDestination obj cb = liftIO $ connectDownloadCreatedDestination obj cb SignalConnectBefore+afterDownloadCreatedDestination :: (GObject a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId+afterDownloadCreatedDestination obj cb = connectDownloadCreatedDestination obj cb SignalConnectAfter++connectDownloadCreatedDestination :: (GObject a, MonadIO m) =>+                                     a -> DownloadCreatedDestinationCallback -> SignalConnectMode -> m SignalHandlerId+connectDownloadCreatedDestination obj cb after = liftIO $ do+    cb' <- mkDownloadCreatedDestinationCallback (downloadCreatedDestinationCallbackWrapper cb)+    connectSignalFunPtr obj "created-destination" cb' after++-- signal Download::decide-destination+type DownloadDecideDestinationCallback =+    T.Text ->+    IO Bool++noDownloadDecideDestinationCallback :: Maybe DownloadDecideDestinationCallback+noDownloadDecideDestinationCallback = Nothing++type DownloadDecideDestinationCallbackC =+    Ptr () ->                               -- object+    CString ->+    Ptr () ->                               -- user_data+    IO CInt++foreign import ccall "wrapper"+    mkDownloadDecideDestinationCallback :: DownloadDecideDestinationCallbackC -> IO (FunPtr DownloadDecideDestinationCallbackC)++downloadDecideDestinationClosure :: DownloadDecideDestinationCallback -> IO Closure+downloadDecideDestinationClosure cb = newCClosure =<< mkDownloadDecideDestinationCallback wrapped+    where wrapped = downloadDecideDestinationCallbackWrapper cb++downloadDecideDestinationCallbackWrapper ::+    DownloadDecideDestinationCallback ->+    Ptr () ->+    CString ->+    Ptr () ->+    IO CInt+downloadDecideDestinationCallbackWrapper _cb _ suggested_filename _ = do+    suggested_filename' <- cstringToText suggested_filename+    result <- _cb  suggested_filename'+    let result' = (fromIntegral . fromEnum) result+    return result'++onDownloadDecideDestination :: (GObject a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId+onDownloadDecideDestination obj cb = liftIO $ connectDownloadDecideDestination obj cb SignalConnectBefore+afterDownloadDecideDestination :: (GObject a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId+afterDownloadDecideDestination obj cb = connectDownloadDecideDestination obj cb SignalConnectAfter++connectDownloadDecideDestination :: (GObject a, MonadIO m) =>+                                    a -> DownloadDecideDestinationCallback -> SignalConnectMode -> m SignalHandlerId+connectDownloadDecideDestination obj cb after = liftIO $ do+    cb' <- mkDownloadDecideDestinationCallback (downloadDecideDestinationCallbackWrapper cb)+    connectSignalFunPtr obj "decide-destination" cb' after++-- signal Download::failed+type DownloadFailedCallback =+    Ptr () ->+    IO ()++noDownloadFailedCallback :: Maybe DownloadFailedCallback+noDownloadFailedCallback = Nothing++type DownloadFailedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDownloadFailedCallback :: DownloadFailedCallbackC -> IO (FunPtr DownloadFailedCallbackC)++downloadFailedClosure :: DownloadFailedCallback -> IO Closure+downloadFailedClosure cb = newCClosure =<< mkDownloadFailedCallback wrapped+    where wrapped = downloadFailedCallbackWrapper cb++downloadFailedCallbackWrapper ::+    DownloadFailedCallback ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO ()+downloadFailedCallbackWrapper _cb _ error_ _ = do+    _cb  error_++onDownloadFailed :: (GObject a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId+onDownloadFailed obj cb = liftIO $ connectDownloadFailed obj cb SignalConnectBefore+afterDownloadFailed :: (GObject a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId+afterDownloadFailed obj cb = connectDownloadFailed obj cb SignalConnectAfter++connectDownloadFailed :: (GObject a, MonadIO m) =>+                         a -> DownloadFailedCallback -> SignalConnectMode -> m SignalHandlerId+connectDownloadFailed obj cb after = liftIO $ do+    cb' <- mkDownloadFailedCallback (downloadFailedCallbackWrapper cb)+    connectSignalFunPtr obj "failed" cb' after++-- signal Download::finished+type DownloadFinishedCallback =+    IO ()++noDownloadFinishedCallback :: Maybe DownloadFinishedCallback+noDownloadFinishedCallback = Nothing++type DownloadFinishedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDownloadFinishedCallback :: DownloadFinishedCallbackC -> IO (FunPtr DownloadFinishedCallbackC)++downloadFinishedClosure :: DownloadFinishedCallback -> IO Closure+downloadFinishedClosure cb = newCClosure =<< mkDownloadFinishedCallback wrapped+    where wrapped = downloadFinishedCallbackWrapper cb++downloadFinishedCallbackWrapper ::+    DownloadFinishedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+downloadFinishedCallbackWrapper _cb _ _ = do+    _cb ++onDownloadFinished :: (GObject a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId+onDownloadFinished obj cb = liftIO $ connectDownloadFinished obj cb SignalConnectBefore+afterDownloadFinished :: (GObject a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId+afterDownloadFinished obj cb = connectDownloadFinished obj cb SignalConnectAfter++connectDownloadFinished :: (GObject a, MonadIO m) =>+                           a -> DownloadFinishedCallback -> SignalConnectMode -> m SignalHandlerId+connectDownloadFinished obj cb after = liftIO $ do+    cb' <- mkDownloadFinishedCallback (downloadFinishedCallbackWrapper cb)+    connectSignalFunPtr obj "finished" cb' after++-- signal Download::received-data+type DownloadReceivedDataCallback =+    Word64 ->+    IO ()++noDownloadReceivedDataCallback :: Maybe DownloadReceivedDataCallback+noDownloadReceivedDataCallback = Nothing++type DownloadReceivedDataCallbackC =+    Ptr () ->                               -- object+    Word64 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDownloadReceivedDataCallback :: DownloadReceivedDataCallbackC -> IO (FunPtr DownloadReceivedDataCallbackC)++downloadReceivedDataClosure :: DownloadReceivedDataCallback -> IO Closure+downloadReceivedDataClosure cb = newCClosure =<< mkDownloadReceivedDataCallback wrapped+    where wrapped = downloadReceivedDataCallbackWrapper cb++downloadReceivedDataCallbackWrapper ::+    DownloadReceivedDataCallback ->+    Ptr () ->+    Word64 ->+    Ptr () ->+    IO ()+downloadReceivedDataCallbackWrapper _cb _ data_length _ = do+    _cb  data_length++onDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId+onDownloadReceivedData obj cb = liftIO $ connectDownloadReceivedData obj cb SignalConnectBefore+afterDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId+afterDownloadReceivedData obj cb = connectDownloadReceivedData obj cb SignalConnectAfter++connectDownloadReceivedData :: (GObject a, MonadIO m) =>+                               a -> DownloadReceivedDataCallback -> SignalConnectMode -> m SignalHandlerId+connectDownloadReceivedData obj cb after = liftIO $ do+    cb' <- mkDownloadReceivedDataCallback (downloadReceivedDataCallbackWrapper cb)+    connectSignalFunPtr obj "received-data" cb' after++-- VVV Prop "allow-overwrite"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDownloadAllowOverwrite :: (MonadIO m, DownloadK o) => o -> m Bool+getDownloadAllowOverwrite obj = liftIO $ getObjectPropertyBool obj "allow-overwrite"++setDownloadAllowOverwrite :: (MonadIO m, DownloadK o) => o -> Bool -> m ()+setDownloadAllowOverwrite obj val = liftIO $ setObjectPropertyBool obj "allow-overwrite" val++constructDownloadAllowOverwrite :: Bool -> IO ([Char], GValue)+constructDownloadAllowOverwrite val = constructObjectPropertyBool "allow-overwrite" val++data DownloadAllowOverwritePropertyInfo+instance AttrInfo DownloadAllowOverwritePropertyInfo where+    type AttrAllowedOps DownloadAllowOverwritePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DownloadAllowOverwritePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DownloadAllowOverwritePropertyInfo = DownloadK+    type AttrGetType DownloadAllowOverwritePropertyInfo = Bool+    type AttrLabel DownloadAllowOverwritePropertyInfo = "Download::allow-overwrite"+    attrGet _ = getDownloadAllowOverwrite+    attrSet _ = setDownloadAllowOverwrite+    attrConstruct _ = constructDownloadAllowOverwrite++-- VVV Prop "destination"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDownloadDestination :: (MonadIO m, DownloadK o) => o -> m T.Text+getDownloadDestination obj = liftIO $ getObjectPropertyString obj "destination"++data DownloadDestinationPropertyInfo+instance AttrInfo DownloadDestinationPropertyInfo where+    type AttrAllowedOps DownloadDestinationPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DownloadDestinationPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DownloadDestinationPropertyInfo = DownloadK+    type AttrGetType DownloadDestinationPropertyInfo = T.Text+    type AttrLabel DownloadDestinationPropertyInfo = "Download::destination"+    attrGet _ = getDownloadDestination+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "estimated-progress"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDownloadEstimatedProgress :: (MonadIO m, DownloadK o) => o -> m Double+getDownloadEstimatedProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-progress"++data DownloadEstimatedProgressPropertyInfo+instance AttrInfo DownloadEstimatedProgressPropertyInfo where+    type AttrAllowedOps DownloadEstimatedProgressPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DownloadEstimatedProgressPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DownloadEstimatedProgressPropertyInfo = DownloadK+    type AttrGetType DownloadEstimatedProgressPropertyInfo = Double+    type AttrLabel DownloadEstimatedProgressPropertyInfo = "Download::estimated-progress"+    attrGet _ = getDownloadEstimatedProgress+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "response"+   -- Type: TInterface "WebKit2" "URIResponse"+   -- Flags: [PropertyReadable]++getDownloadResponse :: (MonadIO m, DownloadK o) => o -> m URIResponse+getDownloadResponse obj = liftIO $ getObjectPropertyObject obj "response" URIResponse++data DownloadResponsePropertyInfo+instance AttrInfo DownloadResponsePropertyInfo where+    type AttrAllowedOps DownloadResponsePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DownloadResponsePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DownloadResponsePropertyInfo = DownloadK+    type AttrGetType DownloadResponsePropertyInfo = URIResponse+    type AttrLabel DownloadResponsePropertyInfo = "Download::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, *)])++data DownloadCreatedDestinationSignalInfo+instance SignalInfo DownloadCreatedDestinationSignalInfo where+    type HaskellCallbackType DownloadCreatedDestinationSignalInfo = DownloadCreatedDestinationCallback+    connectSignal _ = connectDownloadCreatedDestination++data DownloadDecideDestinationSignalInfo+instance SignalInfo DownloadDecideDestinationSignalInfo where+    type HaskellCallbackType DownloadDecideDestinationSignalInfo = DownloadDecideDestinationCallback+    connectSignal _ = connectDownloadDecideDestination++data DownloadFailedSignalInfo+instance SignalInfo DownloadFailedSignalInfo where+    type HaskellCallbackType DownloadFailedSignalInfo = DownloadFailedCallback+    connectSignal _ = connectDownloadFailed++data DownloadFinishedSignalInfo+instance SignalInfo DownloadFinishedSignalInfo where+    type HaskellCallbackType DownloadFinishedSignalInfo = DownloadFinishedCallback+    connectSignal _ = connectDownloadFinished++data DownloadReceivedDataSignalInfo+instance SignalInfo DownloadReceivedDataSignalInfo where+    type HaskellCallbackType DownloadReceivedDataSignalInfo = DownloadReceivedDataCallback+    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, *)])++-- 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}]+-- 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++foreign import ccall "webkit_download_cancel" webkit_download_cancel :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO ()+++downloadCancel ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m ()+downloadCancel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_download_cancel _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_download_get_allow_overwrite" webkit_download_get_allow_overwrite :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO CInt+++downloadGetAllowOverwrite ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m Bool+downloadGetAllowOverwrite _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_allow_overwrite _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_download_get_destination" webkit_download_get_destination :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO CString+++downloadGetDestination ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m T.Text+downloadGetDestination _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_destination _obj'+    checkUnexpectedReturnNULL "webkit_download_get_destination" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_download_get_elapsed_time" webkit_download_get_elapsed_time :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO CDouble+++downloadGetElapsedTime ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m Double+downloadGetElapsedTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_elapsed_time _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_download_get_estimated_progress" webkit_download_get_estimated_progress :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO CDouble+++downloadGetEstimatedProgress ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m Double+downloadGetEstimatedProgress _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_estimated_progress _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_download_get_received_data_length" webkit_download_get_received_data_length :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO Word64+++downloadGetReceivedDataLength ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m Word64+downloadGetReceivedDataLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_received_data_length _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_download_get_request" webkit_download_get_request :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO (Ptr URIRequest)+++downloadGetRequest ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m URIRequest+downloadGetRequest _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_request _obj'+    checkUnexpectedReturnNULL "webkit_download_get_request" result+    result' <- (newObject URIRequest) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_download_get_response" webkit_download_get_response :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO (Ptr URIResponse)+++downloadGetResponse ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m URIResponse+downloadGetResponse _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_response _obj'+    checkUnexpectedReturnNULL "webkit_download_get_response" result+    result' <- (newObject URIResponse) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_download_get_web_view" webkit_download_get_web_view :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    IO (Ptr WebView)+++downloadGetWebView ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    m WebView+downloadGetWebView _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_download_get_web_view _obj'+    checkUnexpectedReturnNULL "webkit_download_get_web_view" result+    result' <- (newObject WebView) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_download_set_allow_overwrite" webkit_download_set_allow_overwrite :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    CInt ->                                 -- allowed : TBasicType TBoolean+    IO ()+++downloadSetAllowOverwrite ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    Bool ->                                 -- allowed+    m ()+downloadSetAllowOverwrite _obj allowed = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let allowed' = (fromIntegral . fromEnum) allowed+    webkit_download_set_allow_overwrite _obj' allowed'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_download_set_destination" webkit_download_set_destination :: +    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"+    CString ->                              -- uri : TBasicType TUTF8+    IO ()+++downloadSetDestination ::+    (MonadIO m, DownloadK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- uri+    m ()+downloadSetDestination _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    uri' <- textToCString uri+    webkit_download_set_destination _obj' uri'+    touchManagedPtr _obj+    freeMem uri'+    return ()++
+ GI/WebKit2/Objects/Download.hs-boot view
@@ -0,0 +1,22 @@+module GI.WebKit2.Objects.Download 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++newtype Download = Download (ForeignPtr Download)+instance GObject Download where+class GObject o => DownloadK o+instance (GObject o, IsDescendantOf Download o) => DownloadK o+data DownloadAllowOverwritePropertyInfo+data DownloadDestinationPropertyInfo+data DownloadEstimatedProgressPropertyInfo+data DownloadResponsePropertyInfo+data DownloadCreatedDestinationSignalInfo+data DownloadDecideDestinationSignalInfo+data DownloadFailedSignalInfo+data DownloadFinishedSignalInfo+data DownloadReceivedDataSignalInfo
+ GI/WebKit2/Objects/FaviconDatabase.hs view
@@ -0,0 +1,282 @@++{- |+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.FaviconDatabase+    ( ++-- * Exported types+    FaviconDatabase(..)                     ,+    FaviconDatabaseK                        ,+    toFaviconDatabase                       ,+    noFaviconDatabase                       ,+++ -- * Methods+-- ** faviconDatabaseClear+    faviconDatabaseClear                    ,+++-- ** faviconDatabaseGetFavicon+    faviconDatabaseGetFavicon               ,+++-- ** faviconDatabaseGetFaviconFinish+    faviconDatabaseGetFaviconFinish         ,+++-- ** faviconDatabaseGetFaviconUri+    faviconDatabaseGetFaviconUri            ,+++++ -- * Signals+-- ** FaviconChanged+    FaviconDatabaseFaviconChangedCallback   ,+    FaviconDatabaseFaviconChangedCallbackC  ,+    FaviconDatabaseFaviconChangedSignalInfo ,+    afterFaviconDatabaseFaviconChanged      ,+    faviconDatabaseFaviconChangedCallbackWrapper,+    faviconDatabaseFaviconChangedClosure    ,+    mkFaviconDatabaseFaviconChangedCallback ,+    noFaviconDatabaseFaviconChangedCallback ,+    onFaviconDatabaseFaviconChanged         ,+++++    ) 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+import qualified GI.Gio as Gio+import qualified GI.Cairo as Cairo++newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase)+foreign import ccall "webkit_favicon_database_get_type"+    c_webkit_favicon_database_get_type :: IO GType++type instance ParentTypes FaviconDatabase = FaviconDatabaseParentTypes+type FaviconDatabaseParentTypes = '[GObject.Object]++instance GObject FaviconDatabase where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_favicon_database_get_type+    ++class GObject o => FaviconDatabaseK o+instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o++toFaviconDatabase :: FaviconDatabaseK o => o -> IO FaviconDatabase+toFaviconDatabase = unsafeCastTo FaviconDatabase++noFaviconDatabase :: Maybe FaviconDatabase+noFaviconDatabase = Nothing++-- signal FaviconDatabase::favicon-changed+type FaviconDatabaseFaviconChangedCallback =+    T.Text ->+    T.Text ->+    IO ()++noFaviconDatabaseFaviconChangedCallback :: Maybe FaviconDatabaseFaviconChangedCallback+noFaviconDatabaseFaviconChangedCallback = Nothing++type FaviconDatabaseFaviconChangedCallbackC =+    Ptr () ->                               -- object+    CString ->+    CString ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkFaviconDatabaseFaviconChangedCallback :: FaviconDatabaseFaviconChangedCallbackC -> IO (FunPtr FaviconDatabaseFaviconChangedCallbackC)++faviconDatabaseFaviconChangedClosure :: FaviconDatabaseFaviconChangedCallback -> IO Closure+faviconDatabaseFaviconChangedClosure cb = newCClosure =<< mkFaviconDatabaseFaviconChangedCallback wrapped+    where wrapped = faviconDatabaseFaviconChangedCallbackWrapper cb++faviconDatabaseFaviconChangedCallbackWrapper ::+    FaviconDatabaseFaviconChangedCallback ->+    Ptr () ->+    CString ->+    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'++onFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId+onFaviconDatabaseFaviconChanged obj cb = liftIO $ connectFaviconDatabaseFaviconChanged obj cb SignalConnectBefore+afterFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId+afterFaviconDatabaseFaviconChanged obj cb = connectFaviconDatabaseFaviconChanged obj cb SignalConnectAfter++connectFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) =>+                                        a -> FaviconDatabaseFaviconChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectFaviconDatabaseFaviconChanged obj cb after = liftIO $ do+    cb' <- mkFaviconDatabaseFaviconChangedCallback (faviconDatabaseFaviconChangedCallbackWrapper cb)+    connectSignalFunPtr obj "favicon-changed" cb' after++type instance AttributeList FaviconDatabase = FaviconDatabaseAttributeList+type FaviconDatabaseAttributeList = ('[ ] :: [(Symbol, *)])++data FaviconDatabaseFaviconChangedSignalInfo+instance SignalInfo FaviconDatabaseFaviconChangedSignalInfo where+    type HaskellCallbackType FaviconDatabaseFaviconChangedSignalInfo = FaviconDatabaseFaviconChangedCallback+    connectSignal _ = connectFaviconDatabaseFaviconChanged++type instance SignalList FaviconDatabase = FaviconDatabaseSignalList+type FaviconDatabaseSignalList = ('[ '("favicon-changed", FaviconDatabaseFaviconChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_favicon_database_clear" webkit_favicon_database_clear :: +    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"+    IO ()+++faviconDatabaseClear ::+    (MonadIO m, FaviconDatabaseK a) =>+    a ->                                    -- _obj+    m ()+faviconDatabaseClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_favicon_database_clear _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_favicon_database_get_favicon" webkit_favicon_database_get_favicon :: +    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"+    CString ->                              -- page_uri : TBasicType TUTF8+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++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+    let _obj' = unsafeManagedPtrCastPtr _obj+    page_uri' <- textToCString page_uri+    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_favicon_database_get_favicon _obj' page_uri' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    freeMem page_uri'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_favicon_database_get_favicon_finish" webkit_favicon_database_get_favicon_finish :: +    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Cairo.Surface)+++faviconDatabaseGetFaviconFinish ::+    (MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m Cairo.Surface+faviconDatabaseGetFaviconFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_favicon_database_get_favicon_finish _obj' result_'+        checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_finish" result+        result' <- (wrapBoxed Cairo.Surface) result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++-- 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}]+-- 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++foreign import ccall "webkit_favicon_database_get_favicon_uri" webkit_favicon_database_get_favicon_uri :: +    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"+    CString ->                              -- page_uri : TBasicType TUTF8+    IO CString+++faviconDatabaseGetFaviconUri ::+    (MonadIO m, FaviconDatabaseK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- page_uri+    m T.Text+faviconDatabaseGetFaviconUri _obj page_uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    page_uri' <- textToCString page_uri+    result <- webkit_favicon_database_get_favicon_uri _obj' page_uri'+    checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_uri" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem page_uri'+    return result'++
+ GI/WebKit2/Objects/FaviconDatabase.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2.Objects.FaviconDatabase 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++newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase)+instance GObject FaviconDatabase where+class GObject o => FaviconDatabaseK o+instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o+data FaviconDatabaseFaviconChangedSignalInfo
+ GI/WebKit2/Objects/FileChooserRequest.hs view
@@ -0,0 +1,337 @@++{- |+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.FileChooserRequest+    ( ++-- * Exported types+    FileChooserRequest(..)                  ,+    FileChooserRequestK                     ,+    toFileChooserRequest                    ,+    noFileChooserRequest                    ,+++ -- * Methods+-- ** fileChooserRequestCancel+    fileChooserRequestCancel                ,+++-- ** fileChooserRequestGetMimeTypes+    fileChooserRequestGetMimeTypes          ,+++-- ** fileChooserRequestGetMimeTypesFilter+    fileChooserRequestGetMimeTypesFilter    ,+++-- ** fileChooserRequestGetSelectMultiple+    fileChooserRequestGetSelectMultiple     ,+++-- ** fileChooserRequestGetSelectedFiles+    fileChooserRequestGetSelectedFiles      ,+++-- ** fileChooserRequestSelectFiles+    fileChooserRequestSelectFiles           ,+++++ -- * Properties+-- ** Filter+    FileChooserRequestFilterPropertyInfo    ,+    getFileChooserRequestFilter             ,+++-- ** MimeTypes+    FileChooserRequestMimeTypesPropertyInfo ,+    getFileChooserRequestMimeTypes          ,+++-- ** SelectMultiple+    FileChooserRequestSelectMultiplePropertyInfo,+    getFileChooserRequestSelectMultiple     ,+++-- ** SelectedFiles+    FileChooserRequestSelectedFilesPropertyInfo,+    getFileChooserRequestSelectedFiles      ,+++++    ) 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+import qualified GI.Gtk as Gtk++newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest)+foreign import ccall "webkit_file_chooser_request_get_type"+    c_webkit_file_chooser_request_get_type :: IO GType++type instance ParentTypes FileChooserRequest = FileChooserRequestParentTypes+type FileChooserRequestParentTypes = '[GObject.Object]++instance GObject FileChooserRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_file_chooser_request_get_type+    ++class GObject o => FileChooserRequestK o+instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o++toFileChooserRequest :: FileChooserRequestK o => o -> IO FileChooserRequest+toFileChooserRequest = unsafeCastTo FileChooserRequest++noFileChooserRequest :: Maybe FileChooserRequest+noFileChooserRequest = Nothing++-- VVV Prop "filter"+   -- Type: TInterface "Gtk" "FileFilter"+   -- Flags: [PropertyReadable]++getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m Gtk.FileFilter+getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter++data FileChooserRequestFilterPropertyInfo+instance AttrInfo FileChooserRequestFilterPropertyInfo where+    type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK+    type AttrGetType FileChooserRequestFilterPropertyInfo = Gtk.FileFilter+    type AttrLabel FileChooserRequestFilterPropertyInfo = "FileChooserRequest::filter"+    attrGet _ = getFileChooserRequestFilter+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "mime-types"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable]++getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text]+getFileChooserRequestMimeTypes obj = liftIO $ getObjectPropertyStringArray obj "mime-types"++data FileChooserRequestMimeTypesPropertyInfo+instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where+    type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK+    type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text]+    type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "FileChooserRequest::mime-types"+    attrGet _ = getFileChooserRequestMimeTypes+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "select-multiple"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getFileChooserRequestSelectMultiple :: (MonadIO m, FileChooserRequestK o) => o -> m Bool+getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple"++data FileChooserRequestSelectMultiplePropertyInfo+instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where+    type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequestK+    type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool+    type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "FileChooserRequest::select-multiple"+    attrGet _ = getFileChooserRequestSelectMultiple+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "selected-files"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable]++getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text]+getFileChooserRequestSelectedFiles obj = liftIO $ getObjectPropertyStringArray obj "selected-files"++data FileChooserRequestSelectedFilesPropertyInfo+instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where+    type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK+    type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text]+    type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "FileChooserRequest::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 instance SignalList FileChooserRequest = FileChooserRequestSignalList+type FileChooserRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_file_chooser_request_cancel" webkit_file_chooser_request_cancel :: +    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"+    IO ()+++fileChooserRequestCancel ::+    (MonadIO m, FileChooserRequestK a) =>+    a ->                                    -- _obj+    m ()+fileChooserRequestCancel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_file_chooser_request_cancel _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types :: +    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"+    IO (Ptr CString)+++fileChooserRequestGetMimeTypes ::+    (MonadIO m, FileChooserRequestK a) =>+    a ->                                    -- _obj+    m [T.Text]+fileChooserRequestGetMimeTypes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_file_chooser_request_get_mime_types _obj'+    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types" result+    result' <- unpackZeroTerminatedUTF8CArray result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_file_chooser_request_get_mime_types_filter" webkit_file_chooser_request_get_mime_types_filter :: +    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"+    IO (Ptr Gtk.FileFilter)+++fileChooserRequestGetMimeTypesFilter ::+    (MonadIO m, FileChooserRequestK a) =>+    a ->                                    -- _obj+    m Gtk.FileFilter+fileChooserRequestGetMimeTypesFilter _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_file_chooser_request_get_mime_types_filter _obj'+    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types_filter" result+    result' <- (newObject Gtk.FileFilter) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple :: +    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"+    IO CInt+++fileChooserRequestGetSelectMultiple ::+    (MonadIO m, FileChooserRequestK a) =>+    a ->                                    -- _obj+    m Bool+fileChooserRequestGetSelectMultiple _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_file_chooser_request_get_select_multiple _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files :: +    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"+    IO (Ptr CString)+++fileChooserRequestGetSelectedFiles ::+    (MonadIO m, FileChooserRequestK a) =>+    a ->                                    -- _obj+    m [T.Text]+fileChooserRequestGetSelectedFiles _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_file_chooser_request_get_selected_files _obj'+    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_selected_files" result+    result' <- unpackZeroTerminatedUTF8CArray result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_file_chooser_request_select_files" webkit_file_chooser_request_select_files :: +    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"+    Ptr CString ->                          -- files : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO ()+++fileChooserRequestSelectFiles ::+    (MonadIO m, FileChooserRequestK a) =>+    a ->                                    -- _obj+    [T.Text] ->                             -- files+    m ()+fileChooserRequestSelectFiles _obj files = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    files' <- packZeroTerminatedUTF8CArray files+    webkit_file_chooser_request_select_files _obj' files'+    touchManagedPtr _obj+    mapZeroTerminatedCArray freeMem files'+    freeMem files'+    return ()++
+ GI/WebKit2/Objects/FileChooserRequest.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2.Objects.FileChooserRequest 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++newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest)+instance GObject FileChooserRequest where+class GObject o => FileChooserRequestK o+instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o+data FileChooserRequestFilterPropertyInfo+data FileChooserRequestMimeTypesPropertyInfo+data FileChooserRequestSelectMultiplePropertyInfo+data FileChooserRequestSelectedFilesPropertyInfo
+ GI/WebKit2/Objects/FindController.hs view
@@ -0,0 +1,606 @@++{- |+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.FindController+    ( ++-- * Exported types+    FindController(..)                      ,+    FindControllerK                         ,+    toFindController                        ,+    noFindController                        ,+++ -- * Methods+-- ** findControllerCountMatches+    findControllerCountMatches              ,+++-- ** findControllerGetMaxMatchCount+    findControllerGetMaxMatchCount          ,+++-- ** findControllerGetOptions+    findControllerGetOptions                ,+++-- ** findControllerGetSearchText+    findControllerGetSearchText             ,+++-- ** findControllerGetWebView+    findControllerGetWebView                ,+++-- ** findControllerSearch+    findControllerSearch                    ,+++-- ** findControllerSearchFinish+    findControllerSearchFinish              ,+++-- ** findControllerSearchNext+    findControllerSearchNext                ,+++-- ** findControllerSearchPrevious+    findControllerSearchPrevious            ,+++++ -- * Properties+-- ** MaxMatchCount+    FindControllerMaxMatchCountPropertyInfo ,+    getFindControllerMaxMatchCount          ,+++-- ** Options+    FindControllerOptionsPropertyInfo       ,+    getFindControllerOptions                ,+++-- ** Text+    FindControllerTextPropertyInfo          ,+    getFindControllerText                   ,+++-- ** WebView+    FindControllerWebViewPropertyInfo       ,+    constructFindControllerWebView          ,+    getFindControllerWebView                ,+++++ -- * Signals+-- ** CountedMatches+    FindControllerCountedMatchesCallback    ,+    FindControllerCountedMatchesCallbackC   ,+    FindControllerCountedMatchesSignalInfo  ,+    afterFindControllerCountedMatches       ,+    findControllerCountedMatchesCallbackWrapper,+    findControllerCountedMatchesClosure     ,+    mkFindControllerCountedMatchesCallback  ,+    noFindControllerCountedMatchesCallback  ,+    onFindControllerCountedMatches          ,+++-- ** FailedToFindText+    FindControllerFailedToFindTextCallback  ,+    FindControllerFailedToFindTextCallbackC ,+    FindControllerFailedToFindTextSignalInfo,+    afterFindControllerFailedToFindText     ,+    findControllerFailedToFindTextCallbackWrapper,+    findControllerFailedToFindTextClosure   ,+    mkFindControllerFailedToFindTextCallback,+    noFindControllerFailedToFindTextCallback,+    onFindControllerFailedToFindText        ,+++-- ** FoundText+    FindControllerFoundTextCallback         ,+    FindControllerFoundTextCallbackC        ,+    FindControllerFoundTextSignalInfo       ,+    afterFindControllerFoundText            ,+    findControllerFoundTextCallbackWrapper  ,+    findControllerFoundTextClosure          ,+    mkFindControllerFoundTextCallback       ,+    noFindControllerFoundTextCallback       ,+    onFindControllerFoundText               ,+++++    ) 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 FindController = FindController (ForeignPtr FindController)+foreign import ccall "webkit_find_controller_get_type"+    c_webkit_find_controller_get_type :: IO GType++type instance ParentTypes FindController = FindControllerParentTypes+type FindControllerParentTypes = '[GObject.Object]++instance GObject FindController where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_find_controller_get_type+    ++class GObject o => FindControllerK o+instance (GObject o, IsDescendantOf FindController o) => FindControllerK o++toFindController :: FindControllerK o => o -> IO FindController+toFindController = unsafeCastTo FindController++noFindController :: Maybe FindController+noFindController = Nothing++-- signal FindController::counted-matches+type FindControllerCountedMatchesCallback =+    Word32 ->+    IO ()++noFindControllerCountedMatchesCallback :: Maybe FindControllerCountedMatchesCallback+noFindControllerCountedMatchesCallback = Nothing++type FindControllerCountedMatchesCallbackC =+    Ptr () ->                               -- object+    Word32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkFindControllerCountedMatchesCallback :: FindControllerCountedMatchesCallbackC -> IO (FunPtr FindControllerCountedMatchesCallbackC)++findControllerCountedMatchesClosure :: FindControllerCountedMatchesCallback -> IO Closure+findControllerCountedMatchesClosure cb = newCClosure =<< mkFindControllerCountedMatchesCallback wrapped+    where wrapped = findControllerCountedMatchesCallbackWrapper cb++findControllerCountedMatchesCallbackWrapper ::+    FindControllerCountedMatchesCallback ->+    Ptr () ->+    Word32 ->+    Ptr () ->+    IO ()+findControllerCountedMatchesCallbackWrapper _cb _ match_count _ = do+    _cb  match_count++onFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId+onFindControllerCountedMatches obj cb = liftIO $ connectFindControllerCountedMatches obj cb SignalConnectBefore+afterFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId+afterFindControllerCountedMatches obj cb = connectFindControllerCountedMatches obj cb SignalConnectAfter++connectFindControllerCountedMatches :: (GObject a, MonadIO m) =>+                                       a -> FindControllerCountedMatchesCallback -> SignalConnectMode -> m SignalHandlerId+connectFindControllerCountedMatches obj cb after = liftIO $ do+    cb' <- mkFindControllerCountedMatchesCallback (findControllerCountedMatchesCallbackWrapper cb)+    connectSignalFunPtr obj "counted-matches" cb' after++-- signal FindController::failed-to-find-text+type FindControllerFailedToFindTextCallback =+    IO ()++noFindControllerFailedToFindTextCallback :: Maybe FindControllerFailedToFindTextCallback+noFindControllerFailedToFindTextCallback = Nothing++type FindControllerFailedToFindTextCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkFindControllerFailedToFindTextCallback :: FindControllerFailedToFindTextCallbackC -> IO (FunPtr FindControllerFailedToFindTextCallbackC)++findControllerFailedToFindTextClosure :: FindControllerFailedToFindTextCallback -> IO Closure+findControllerFailedToFindTextClosure cb = newCClosure =<< mkFindControllerFailedToFindTextCallback wrapped+    where wrapped = findControllerFailedToFindTextCallbackWrapper cb++findControllerFailedToFindTextCallbackWrapper ::+    FindControllerFailedToFindTextCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+findControllerFailedToFindTextCallbackWrapper _cb _ _ = do+    _cb ++onFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId+onFindControllerFailedToFindText obj cb = liftIO $ connectFindControllerFailedToFindText obj cb SignalConnectBefore+afterFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId+afterFindControllerFailedToFindText obj cb = connectFindControllerFailedToFindText obj cb SignalConnectAfter++connectFindControllerFailedToFindText :: (GObject a, MonadIO m) =>+                                         a -> FindControllerFailedToFindTextCallback -> SignalConnectMode -> m SignalHandlerId+connectFindControllerFailedToFindText obj cb after = liftIO $ do+    cb' <- mkFindControllerFailedToFindTextCallback (findControllerFailedToFindTextCallbackWrapper cb)+    connectSignalFunPtr obj "failed-to-find-text" cb' after++-- signal FindController::found-text+type FindControllerFoundTextCallback =+    Word32 ->+    IO ()++noFindControllerFoundTextCallback :: Maybe FindControllerFoundTextCallback+noFindControllerFoundTextCallback = Nothing++type FindControllerFoundTextCallbackC =+    Ptr () ->                               -- object+    Word32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkFindControllerFoundTextCallback :: FindControllerFoundTextCallbackC -> IO (FunPtr FindControllerFoundTextCallbackC)++findControllerFoundTextClosure :: FindControllerFoundTextCallback -> IO Closure+findControllerFoundTextClosure cb = newCClosure =<< mkFindControllerFoundTextCallback wrapped+    where wrapped = findControllerFoundTextCallbackWrapper cb++findControllerFoundTextCallbackWrapper ::+    FindControllerFoundTextCallback ->+    Ptr () ->+    Word32 ->+    Ptr () ->+    IO ()+findControllerFoundTextCallbackWrapper _cb _ match_count _ = do+    _cb  match_count++onFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId+onFindControllerFoundText obj cb = liftIO $ connectFindControllerFoundText obj cb SignalConnectBefore+afterFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId+afterFindControllerFoundText obj cb = connectFindControllerFoundText obj cb SignalConnectAfter++connectFindControllerFoundText :: (GObject a, MonadIO m) =>+                                  a -> FindControllerFoundTextCallback -> SignalConnectMode -> m SignalHandlerId+connectFindControllerFoundText obj cb after = liftIO $ do+    cb' <- mkFindControllerFoundTextCallback (findControllerFoundTextCallbackWrapper cb)+    connectSignalFunPtr obj "found-text" cb' after++-- VVV Prop "max-match-count"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getFindControllerMaxMatchCount :: (MonadIO m, FindControllerK o) => o -> m Word32+getFindControllerMaxMatchCount obj = liftIO $ getObjectPropertyCUInt obj "max-match-count"++data FindControllerMaxMatchCountPropertyInfo+instance AttrInfo FindControllerMaxMatchCountPropertyInfo where+    type AttrAllowedOps FindControllerMaxMatchCountPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FindControllerMaxMatchCountPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FindControllerMaxMatchCountPropertyInfo = FindControllerK+    type AttrGetType FindControllerMaxMatchCountPropertyInfo = Word32+    type AttrLabel FindControllerMaxMatchCountPropertyInfo = "FindController::max-match-count"+    attrGet _ = getFindControllerMaxMatchCount+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "options"+   -- Type: TInterface "WebKit2" "FindOptions"+   -- Flags: [PropertyReadable]++getFindControllerOptions :: (MonadIO m, FindControllerK o) => o -> m [FindOptions]+getFindControllerOptions obj = liftIO $ getObjectPropertyFlags obj "options"++data FindControllerOptionsPropertyInfo+instance AttrInfo FindControllerOptionsPropertyInfo where+    type AttrAllowedOps FindControllerOptionsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FindControllerOptionsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FindControllerOptionsPropertyInfo = FindControllerK+    type AttrGetType FindControllerOptionsPropertyInfo = [FindOptions]+    type AttrLabel FindControllerOptionsPropertyInfo = "FindController::options"+    attrGet _ = getFindControllerOptions+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getFindControllerText :: (MonadIO m, FindControllerK o) => o -> m T.Text+getFindControllerText obj = liftIO $ getObjectPropertyString obj "text"++data FindControllerTextPropertyInfo+instance AttrInfo FindControllerTextPropertyInfo where+    type AttrAllowedOps FindControllerTextPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) ()+    type AttrBaseTypeConstraint FindControllerTextPropertyInfo = FindControllerK+    type AttrGetType FindControllerTextPropertyInfo = T.Text+    type AttrLabel FindControllerTextPropertyInfo = "FindController::text"+    attrGet _ = getFindControllerText+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "web-view"+   -- Type: TInterface "WebKit2" "WebView"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getFindControllerWebView :: (MonadIO m, FindControllerK o) => o -> m WebView+getFindControllerWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView++constructFindControllerWebView :: (WebViewK a) => a -> IO ([Char], GValue)+constructFindControllerWebView val = constructObjectPropertyObject "web-view" val++data FindControllerWebViewPropertyInfo+instance AttrInfo FindControllerWebViewPropertyInfo where+    type AttrAllowedOps FindControllerWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebViewK+    type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = FindControllerK+    type AttrGetType FindControllerWebViewPropertyInfo = WebView+    type AttrLabel FindControllerWebViewPropertyInfo = "FindController::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, *)])++data FindControllerCountedMatchesSignalInfo+instance SignalInfo FindControllerCountedMatchesSignalInfo where+    type HaskellCallbackType FindControllerCountedMatchesSignalInfo = FindControllerCountedMatchesCallback+    connectSignal _ = connectFindControllerCountedMatches++data FindControllerFailedToFindTextSignalInfo+instance SignalInfo FindControllerFailedToFindTextSignalInfo where+    type HaskellCallbackType FindControllerFailedToFindTextSignalInfo = FindControllerFailedToFindTextCallback+    connectSignal _ = connectFindControllerFailedToFindText++data FindControllerFoundTextSignalInfo+instance SignalInfo FindControllerFoundTextSignalInfo where+    type HaskellCallbackType FindControllerFoundTextSignalInfo = FindControllerFoundTextCallback+    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, *)])++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_count_matches" webkit_find_controller_count_matches :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    CString ->                              -- search_text : TBasicType TUTF8+    Word32 ->                               -- find_options : TBasicType TUInt32+    Word32 ->                               -- max_match_count : TBasicType TUInt32+    IO ()+++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+    let _obj' = unsafeManagedPtrCastPtr _obj+    search_text' <- textToCString search_text+    webkit_find_controller_count_matches _obj' search_text' find_options max_match_count+    touchManagedPtr _obj+    freeMem search_text'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_get_max_match_count" webkit_find_controller_get_max_match_count :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    IO Word32+++findControllerGetMaxMatchCount ::+    (MonadIO m, FindControllerK a) =>+    a ->                                    -- _obj+    m Word32+findControllerGetMaxMatchCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_find_controller_get_max_match_count _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_get_options" webkit_find_controller_get_options :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    IO Word32+++findControllerGetOptions ::+    (MonadIO m, FindControllerK a) =>+    a ->                                    -- _obj+    m Word32+findControllerGetOptions _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_find_controller_get_options _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_get_search_text" webkit_find_controller_get_search_text :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    IO CString+++findControllerGetSearchText ::+    (MonadIO m, FindControllerK a) =>+    a ->                                    -- _obj+    m T.Text+findControllerGetSearchText _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_find_controller_get_search_text _obj'+    checkUnexpectedReturnNULL "webkit_find_controller_get_search_text" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_get_web_view" webkit_find_controller_get_web_view :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    IO (Ptr WebView)+++findControllerGetWebView ::+    (MonadIO m, FindControllerK a) =>+    a ->                                    -- _obj+    m WebView+findControllerGetWebView _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_find_controller_get_web_view _obj'+    checkUnexpectedReturnNULL "webkit_find_controller_get_web_view" result+    result' <- (newObject WebView) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_search" webkit_find_controller_search :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    CString ->                              -- search_text : TBasicType TUTF8+    Word32 ->                               -- find_options : TBasicType TUInt32+    Word32 ->                               -- max_match_count : TBasicType TUInt32+    IO ()+++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+    let _obj' = unsafeManagedPtrCastPtr _obj+    search_text' <- textToCString search_text+    webkit_find_controller_search _obj' search_text' find_options max_match_count+    touchManagedPtr _obj+    freeMem search_text'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_search_finish" webkit_find_controller_search_finish :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    IO ()+++findControllerSearchFinish ::+    (MonadIO m, FindControllerK a) =>+    a ->                                    -- _obj+    m ()+findControllerSearchFinish _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_find_controller_search_finish _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_search_next" webkit_find_controller_search_next :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    IO ()+++findControllerSearchNext ::+    (MonadIO m, FindControllerK a) =>+    a ->                                    -- _obj+    m ()+findControllerSearchNext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_find_controller_search_next _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_find_controller_search_previous" webkit_find_controller_search_previous :: +    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"+    IO ()+++findControllerSearchPrevious ::+    (MonadIO m, FindControllerK a) =>+    a ->                                    -- _obj+    m ()+findControllerSearchPrevious _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_find_controller_search_previous _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Objects/FindController.hs-boot view
@@ -0,0 +1,20 @@+module GI.WebKit2.Objects.FindController 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++newtype FindController = FindController (ForeignPtr FindController)+instance GObject FindController where+class GObject o => FindControllerK o+instance (GObject o, IsDescendantOf FindController o) => FindControllerK o+data FindControllerMaxMatchCountPropertyInfo+data FindControllerOptionsPropertyInfo+data FindControllerTextPropertyInfo+data FindControllerWebViewPropertyInfo+data FindControllerCountedMatchesSignalInfo+data FindControllerFailedToFindTextSignalInfo+data FindControllerFoundTextSignalInfo
+ GI/WebKit2/Objects/FormSubmissionRequest.hs view
@@ -0,0 +1,122 @@++{- |+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.FormSubmissionRequest+    ( ++-- * Exported types+    FormSubmissionRequest(..)               ,+    FormSubmissionRequestK                  ,+    toFormSubmissionRequest                 ,+    noFormSubmissionRequest                 ,+++ -- * Methods+-- ** formSubmissionRequestGetTextFields+    formSubmissionRequestGetTextFields      ,+++-- ** formSubmissionRequestSubmit+    formSubmissionRequestSubmit             ,+++++    ) 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 FormSubmissionRequest = FormSubmissionRequest (ForeignPtr FormSubmissionRequest)+foreign import ccall "webkit_form_submission_request_get_type"+    c_webkit_form_submission_request_get_type :: IO GType++type instance ParentTypes FormSubmissionRequest = FormSubmissionRequestParentTypes+type FormSubmissionRequestParentTypes = '[GObject.Object]++instance GObject FormSubmissionRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_form_submission_request_get_type+    ++class GObject o => FormSubmissionRequestK o+instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o++toFormSubmissionRequest :: FormSubmissionRequestK o => o -> IO FormSubmissionRequest+toFormSubmissionRequest = unsafeCastTo FormSubmissionRequest++noFormSubmissionRequest :: Maybe FormSubmissionRequest+noFormSubmissionRequest = Nothing++type instance AttributeList FormSubmissionRequest = FormSubmissionRequestAttributeList+type FormSubmissionRequestAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList FormSubmissionRequest = FormSubmissionRequestSignalList+type FormSubmissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_form_submission_request_get_text_fields" webkit_form_submission_request_get_text_fields :: +    Ptr FormSubmissionRequest ->            -- _obj : TInterface "WebKit2" "FormSubmissionRequest"+    IO (Ptr (GHashTable (Ptr ()) (Ptr ())))+++formSubmissionRequestGetTextFields ::+    (MonadIO m, FormSubmissionRequestK a) =>+    a ->                                    -- _obj+    m (Map.Map (Ptr ()) (Ptr ()))+formSubmissionRequestGetTextFields _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_form_submission_request_get_text_fields _obj'+    checkUnexpectedReturnNULL "webkit_form_submission_request_get_text_fields" result+    result' <- unpackGHashTable result+    let result'' = mapFirst ptrUnpackPtr result'+    let result''' = mapSecond ptrUnpackPtr result''+    let result'''' = Map.fromList result'''+    touchManagedPtr _obj+    return result''''++-- 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}]+-- 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++foreign import ccall "webkit_form_submission_request_submit" webkit_form_submission_request_submit :: +    Ptr FormSubmissionRequest ->            -- _obj : TInterface "WebKit2" "FormSubmissionRequest"+    IO ()+++formSubmissionRequestSubmit ::+    (MonadIO m, FormSubmissionRequestK a) =>+    a ->                                    -- _obj+    m ()+formSubmissionRequestSubmit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_form_submission_request_submit _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Objects/FormSubmissionRequest.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.FormSubmissionRequest 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++newtype FormSubmissionRequest = FormSubmissionRequest (ForeignPtr FormSubmissionRequest)+instance GObject FormSubmissionRequest where+class GObject o => FormSubmissionRequestK o+instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o
+ GI/WebKit2/Objects/GeolocationPermissionRequest.hs view
@@ -0,0 +1,58 @@++{- |+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.GeolocationPermissionRequest+    ( ++-- * Exported types+    GeolocationPermissionRequest(..)        ,+    GeolocationPermissionRequestK           ,+    toGeolocationPermissionRequest          ,+    noGeolocationPermissionRequest          ,+++    ) 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 GeolocationPermissionRequest = GeolocationPermissionRequest (ForeignPtr GeolocationPermissionRequest)+foreign import ccall "webkit_geolocation_permission_request_get_type"+    c_webkit_geolocation_permission_request_get_type :: IO GType++type instance ParentTypes GeolocationPermissionRequest = GeolocationPermissionRequestParentTypes+type GeolocationPermissionRequestParentTypes = '[GObject.Object, PermissionRequest]++instance GObject GeolocationPermissionRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_geolocation_permission_request_get_type+    ++class GObject o => GeolocationPermissionRequestK o+instance (GObject o, IsDescendantOf GeolocationPermissionRequest o) => GeolocationPermissionRequestK o++toGeolocationPermissionRequest :: GeolocationPermissionRequestK o => o -> IO GeolocationPermissionRequest+toGeolocationPermissionRequest = unsafeCastTo GeolocationPermissionRequest++noGeolocationPermissionRequest :: Maybe GeolocationPermissionRequest+noGeolocationPermissionRequest = Nothing++type instance AttributeList GeolocationPermissionRequest = GeolocationPermissionRequestAttributeList+type GeolocationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList GeolocationPermissionRequest = GeolocationPermissionRequestSignalList+type GeolocationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2/Objects/GeolocationPermissionRequest.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.GeolocationPermissionRequest 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++newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ForeignPtr GeolocationPermissionRequest)+instance GObject GeolocationPermissionRequest where+class GObject o => GeolocationPermissionRequestK o+instance (GObject o, IsDescendantOf GeolocationPermissionRequest o) => GeolocationPermissionRequestK o
+ GI/WebKit2/Objects/HitTestResult.hs view
@@ -0,0 +1,578 @@++{- |+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.HitTestResult+    ( ++-- * Exported types+    HitTestResult(..)                       ,+    HitTestResultK                          ,+    toHitTestResult                         ,+    noHitTestResult                         ,+++ -- * Methods+-- ** hitTestResultContextIsEditable+    hitTestResultContextIsEditable          ,+++-- ** hitTestResultContextIsImage+    hitTestResultContextIsImage             ,+++-- ** hitTestResultContextIsLink+    hitTestResultContextIsLink              ,+++-- ** hitTestResultContextIsMedia+    hitTestResultContextIsMedia             ,+++-- ** hitTestResultContextIsScrollbar+    hitTestResultContextIsScrollbar         ,+++-- ** hitTestResultContextIsSelection+    hitTestResultContextIsSelection         ,+++-- ** hitTestResultGetContext+    hitTestResultGetContext                 ,+++-- ** hitTestResultGetImageUri+    hitTestResultGetImageUri                ,+++-- ** hitTestResultGetLinkLabel+    hitTestResultGetLinkLabel               ,+++-- ** hitTestResultGetLinkTitle+    hitTestResultGetLinkTitle               ,+++-- ** hitTestResultGetLinkUri+    hitTestResultGetLinkUri                 ,+++-- ** hitTestResultGetMediaUri+    hitTestResultGetMediaUri                ,+++++ -- * Properties+-- ** Context+    HitTestResultContextPropertyInfo        ,+    constructHitTestResultContext           ,+    getHitTestResultContext                 ,+++-- ** ImageUri+    HitTestResultImageUriPropertyInfo       ,+    constructHitTestResultImageUri          ,+    getHitTestResultImageUri                ,+++-- ** LinkLabel+    HitTestResultLinkLabelPropertyInfo      ,+    constructHitTestResultLinkLabel         ,+    getHitTestResultLinkLabel               ,+++-- ** LinkTitle+    HitTestResultLinkTitlePropertyInfo      ,+    constructHitTestResultLinkTitle         ,+    getHitTestResultLinkTitle               ,+++-- ** LinkUri+    HitTestResultLinkUriPropertyInfo        ,+    constructHitTestResultLinkUri           ,+    getHitTestResultLinkUri                 ,+++-- ** MediaUri+    HitTestResultMediaUriPropertyInfo       ,+    constructHitTestResultMediaUri          ,+    getHitTestResultMediaUri                ,+++++    ) 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 HitTestResult = HitTestResult (ForeignPtr HitTestResult)+foreign import ccall "webkit_hit_test_result_get_type"+    c_webkit_hit_test_result_get_type :: IO GType++type instance ParentTypes HitTestResult = HitTestResultParentTypes+type HitTestResultParentTypes = '[GObject.Object]++instance GObject HitTestResult where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_hit_test_result_get_type+    ++class GObject o => HitTestResultK o+instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o++toHitTestResult :: HitTestResultK o => o -> IO HitTestResult+toHitTestResult = unsafeCastTo HitTestResult++noHitTestResult :: Maybe HitTestResult+noHitTestResult = Nothing++-- VVV Prop "context"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m Word32+getHitTestResultContext obj = liftIO $ getObjectPropertyCUInt obj "context"++constructHitTestResultContext :: Word32 -> IO ([Char], GValue)+constructHitTestResultContext val = constructObjectPropertyCUInt "context" val++data HitTestResultContextPropertyInfo+instance AttrInfo HitTestResultContextPropertyInfo where+    type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) Word32+    type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultContextPropertyInfo = Word32+    type AttrLabel HitTestResultContextPropertyInfo = "HitTestResult::context"+    attrGet _ = getHitTestResultContext+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultContext++-- VVV Prop "image-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri"++constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue)+constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" val++data HitTestResultImageUriPropertyInfo+instance AttrInfo HitTestResultImageUriPropertyInfo where+    type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultImageUriPropertyInfo = T.Text+    type AttrLabel HitTestResultImageUriPropertyInfo = "HitTestResult::image-uri"+    attrGet _ = getHitTestResultImageUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultImageUri++-- VVV Prop "link-label"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultLinkLabel :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultLinkLabel obj = liftIO $ getObjectPropertyString obj "link-label"++constructHitTestResultLinkLabel :: T.Text -> IO ([Char], GValue)+constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" val++data HitTestResultLinkLabelPropertyInfo+instance AttrInfo HitTestResultLinkLabelPropertyInfo where+    type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text+    type AttrLabel HitTestResultLinkLabelPropertyInfo = "HitTestResult::link-label"+    attrGet _ = getHitTestResultLinkLabel+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkLabel++-- VVV Prop "link-title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultLinkTitle :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultLinkTitle obj = liftIO $ getObjectPropertyString obj "link-title"++constructHitTestResultLinkTitle :: T.Text -> IO ([Char], GValue)+constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" val++data HitTestResultLinkTitlePropertyInfo+instance AttrInfo HitTestResultLinkTitlePropertyInfo where+    type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK+    type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text+    type AttrLabel HitTestResultLinkTitlePropertyInfo = "HitTestResult::link-title"+    attrGet _ = getHitTestResultLinkTitle+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkTitle++-- VVV Prop "link-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri"++constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue)+constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" val++data HitTestResultLinkUriPropertyInfo+instance AttrInfo HitTestResultLinkUriPropertyInfo where+    type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text+    type AttrLabel HitTestResultLinkUriPropertyInfo = "HitTestResult::link-uri"+    attrGet _ = getHitTestResultLinkUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkUri++-- VVV Prop "media-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri"++constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue)+constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" val++data HitTestResultMediaUriPropertyInfo+instance AttrInfo HitTestResultMediaUriPropertyInfo where+    type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text+    type AttrLabel HitTestResultMediaUriPropertyInfo = "HitTestResult::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 instance SignalList HitTestResult = HitTestResultSignalList+type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_hit_test_result_context_is_editable" webkit_hit_test_result_context_is_editable :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CInt+++hitTestResultContextIsEditable ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsEditable _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_editable _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_context_is_image" webkit_hit_test_result_context_is_image :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CInt+++hitTestResultContextIsImage ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsImage _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_image _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_context_is_link" webkit_hit_test_result_context_is_link :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CInt+++hitTestResultContextIsLink ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsLink _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_link _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_context_is_media" webkit_hit_test_result_context_is_media :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CInt+++hitTestResultContextIsMedia ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsMedia _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_media _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_context_is_scrollbar" webkit_hit_test_result_context_is_scrollbar :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CInt+++hitTestResultContextIsScrollbar ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsScrollbar _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_scrollbar _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_context_is_selection" webkit_hit_test_result_context_is_selection :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CInt+++hitTestResultContextIsSelection ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsSelection _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_selection _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_get_context" webkit_hit_test_result_get_context :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO Word32+++hitTestResultGetContext ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Word32+hitTestResultGetContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_context _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_get_image_uri" webkit_hit_test_result_get_image_uri :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CString+++hitTestResultGetImageUri ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetImageUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_image_uri _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_image_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_get_link_label" webkit_hit_test_result_get_link_label :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CString+++hitTestResultGetLinkLabel ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetLinkLabel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_link_label _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_label" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_get_link_title" webkit_hit_test_result_get_link_title :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CString+++hitTestResultGetLinkTitle ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetLinkTitle _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_link_title _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_title" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_get_link_uri" webkit_hit_test_result_get_link_uri :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CString+++hitTestResultGetLinkUri ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetLinkUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_link_uri _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_hit_test_result_get_media_uri" webkit_hit_test_result_get_media_uri :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"+    IO CString+++hitTestResultGetMediaUri ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetMediaUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_media_uri _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_media_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/HitTestResult.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2.Objects.HitTestResult 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++newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult)+instance GObject HitTestResult where+class GObject o => HitTestResultK o+instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o+data HitTestResultContextPropertyInfo+data HitTestResultImageUriPropertyInfo+data HitTestResultLinkLabelPropertyInfo+data HitTestResultLinkTitlePropertyInfo+data HitTestResultLinkUriPropertyInfo+data HitTestResultMediaUriPropertyInfo
+ GI/WebKit2/Objects/NavigationPolicyDecision.hs view
@@ -0,0 +1,377 @@++{- |+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.NavigationPolicyDecision+    ( ++-- * Exported types+    NavigationPolicyDecision(..)            ,+    NavigationPolicyDecisionK               ,+    toNavigationPolicyDecision              ,+    noNavigationPolicyDecision              ,+++ -- * Methods+-- ** navigationPolicyDecisionGetFrameName+    navigationPolicyDecisionGetFrameName    ,+++-- ** navigationPolicyDecisionGetModifiers+    navigationPolicyDecisionGetModifiers    ,+++-- ** navigationPolicyDecisionGetMouseButton+    navigationPolicyDecisionGetMouseButton  ,+++-- ** navigationPolicyDecisionGetNavigationAction+    navigationPolicyDecisionGetNavigationAction,+++-- ** navigationPolicyDecisionGetNavigationType+    navigationPolicyDecisionGetNavigationType,+++-- ** navigationPolicyDecisionGetRequest+    navigationPolicyDecisionGetRequest      ,+++++ -- * Properties+-- ** FrameName+    NavigationPolicyDecisionFrameNamePropertyInfo,+    getNavigationPolicyDecisionFrameName    ,+++-- ** Modifiers+    NavigationPolicyDecisionModifiersPropertyInfo,+    getNavigationPolicyDecisionModifiers    ,+++-- ** MouseButton+    NavigationPolicyDecisionMouseButtonPropertyInfo,+    getNavigationPolicyDecisionMouseButton  ,+++-- ** NavigationAction+    NavigationPolicyDecisionNavigationActionPropertyInfo,+    getNavigationPolicyDecisionNavigationAction,+++-- ** NavigationType+    NavigationPolicyDecisionNavigationTypePropertyInfo,+    getNavigationPolicyDecisionNavigationType,+++-- ** Request+    NavigationPolicyDecisionRequestPropertyInfo,+    getNavigationPolicyDecisionRequest      ,+++++    ) 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 NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision)+foreign import ccall "webkit_navigation_policy_decision_get_type"+    c_webkit_navigation_policy_decision_get_type :: IO GType++type instance ParentTypes NavigationPolicyDecision = NavigationPolicyDecisionParentTypes+type NavigationPolicyDecisionParentTypes = '[PolicyDecision, GObject.Object]++instance GObject NavigationPolicyDecision where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_navigation_policy_decision_get_type+    ++class GObject o => NavigationPolicyDecisionK o+instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o++toNavigationPolicyDecision :: NavigationPolicyDecisionK o => o -> IO NavigationPolicyDecision+toNavigationPolicyDecision = unsafeCastTo NavigationPolicyDecision++noNavigationPolicyDecision :: Maybe NavigationPolicyDecision+noNavigationPolicyDecision = Nothing++-- VVV Prop "frame-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getNavigationPolicyDecisionFrameName :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m T.Text+getNavigationPolicyDecisionFrameName obj = liftIO $ getObjectPropertyString obj "frame-name"++data NavigationPolicyDecisionFrameNamePropertyInfo+instance AttrInfo NavigationPolicyDecisionFrameNamePropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionFrameNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecisionK+    type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = T.Text+    type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "NavigationPolicyDecision::frame-name"+    attrGet _ = getNavigationPolicyDecisionFrameName+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "modifiers"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getNavigationPolicyDecisionModifiers :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32+getNavigationPolicyDecisionModifiers obj = liftIO $ getObjectPropertyCUInt obj "modifiers"++data NavigationPolicyDecisionModifiersPropertyInfo+instance AttrInfo NavigationPolicyDecisionModifiersPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionModifiersPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = NavigationPolicyDecisionK+    type AttrGetType NavigationPolicyDecisionModifiersPropertyInfo = Word32+    type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "NavigationPolicyDecision::modifiers"+    attrGet _ = getNavigationPolicyDecisionModifiers+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "mouse-button"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getNavigationPolicyDecisionMouseButton :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32+getNavigationPolicyDecisionMouseButton obj = liftIO $ getObjectPropertyCUInt obj "mouse-button"++data NavigationPolicyDecisionMouseButtonPropertyInfo+instance AttrInfo NavigationPolicyDecisionMouseButtonPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionMouseButtonPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = NavigationPolicyDecisionK+    type AttrGetType NavigationPolicyDecisionMouseButtonPropertyInfo = Word32+    type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "NavigationPolicyDecision::mouse-button"+    attrGet _ = getNavigationPolicyDecisionMouseButton+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "navigation-action"+   -- Type: TInterface "WebKit2" "NavigationAction"+   -- Flags: [PropertyReadable]++getNavigationPolicyDecisionNavigationAction :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationAction+getNavigationPolicyDecisionNavigationAction obj = liftIO $ getObjectPropertyBoxed obj "navigation-action" NavigationAction++data NavigationPolicyDecisionNavigationActionPropertyInfo+instance AttrInfo NavigationPolicyDecisionNavigationActionPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionNavigationActionPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecisionK+    type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationAction+    type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "NavigationPolicyDecision::navigation-action"+    attrGet _ = getNavigationPolicyDecisionNavigationAction+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "navigation-type"+   -- Type: TInterface "WebKit2" "NavigationType"+   -- Flags: [PropertyReadable]++getNavigationPolicyDecisionNavigationType :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationType+getNavigationPolicyDecisionNavigationType obj = liftIO $ getObjectPropertyEnum obj "navigation-type"++data NavigationPolicyDecisionNavigationTypePropertyInfo+instance AttrInfo NavigationPolicyDecisionNavigationTypePropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionNavigationTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationPolicyDecisionK+    type AttrGetType NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationType+    type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "NavigationPolicyDecision::navigation-type"+    attrGet _ = getNavigationPolicyDecisionNavigationType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "request"+   -- Type: TInterface "WebKit2" "URIRequest"+   -- Flags: [PropertyReadable]++getNavigationPolicyDecisionRequest :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m URIRequest+getNavigationPolicyDecisionRequest obj = liftIO $ getObjectPropertyObject obj "request" URIRequest++data NavigationPolicyDecisionRequestPropertyInfo+instance AttrInfo NavigationPolicyDecisionRequestPropertyInfo where+    type AttrAllowedOps NavigationPolicyDecisionRequestPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecisionK+    type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = URIRequest+    type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "NavigationPolicyDecision::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 instance SignalList NavigationPolicyDecision = NavigationPolicyDecisionSignalList+type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_navigation_policy_decision_get_frame_name" webkit_navigation_policy_decision_get_frame_name :: +    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"+    IO CString+++navigationPolicyDecisionGetFrameName ::+    (MonadIO m, NavigationPolicyDecisionK a) =>+    a ->                                    -- _obj+    m T.Text+navigationPolicyDecisionGetFrameName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_navigation_policy_decision_get_frame_name _obj'+    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_frame_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_navigation_policy_decision_get_modifiers" webkit_navigation_policy_decision_get_modifiers :: +    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"+    IO Word32++{-# DEPRECATED navigationPolicyDecisionGetModifiers ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}+navigationPolicyDecisionGetModifiers ::+    (MonadIO m, NavigationPolicyDecisionK a) =>+    a ->                                    -- _obj+    m Word32+navigationPolicyDecisionGetModifiers _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_navigation_policy_decision_get_modifiers _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_navigation_policy_decision_get_mouse_button" webkit_navigation_policy_decision_get_mouse_button :: +    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"+    IO Word32++{-# DEPRECATED navigationPolicyDecisionGetMouseButton ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}+navigationPolicyDecisionGetMouseButton ::+    (MonadIO m, NavigationPolicyDecisionK a) =>+    a ->                                    -- _obj+    m Word32+navigationPolicyDecisionGetMouseButton _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_navigation_policy_decision_get_mouse_button _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_navigation_policy_decision_get_navigation_action" webkit_navigation_policy_decision_get_navigation_action :: +    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"+    IO (Ptr NavigationAction)+++navigationPolicyDecisionGetNavigationAction ::+    (MonadIO m, NavigationPolicyDecisionK a) =>+    a ->                                    -- _obj+    m NavigationAction+navigationPolicyDecisionGetNavigationAction _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_navigation_policy_decision_get_navigation_action _obj'+    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_navigation_action" result+    result' <- (newBoxed NavigationAction) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_navigation_policy_decision_get_navigation_type" webkit_navigation_policy_decision_get_navigation_type :: +    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"+    IO CUInt++{-# DEPRECATED navigationPolicyDecisionGetNavigationType ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}+navigationPolicyDecisionGetNavigationType ::+    (MonadIO m, NavigationPolicyDecisionK a) =>+    a ->                                    -- _obj+    m NavigationType+navigationPolicyDecisionGetNavigationType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_navigation_policy_decision_get_navigation_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_navigation_policy_decision_get_request" webkit_navigation_policy_decision_get_request :: +    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"+    IO (Ptr URIRequest)++{-# DEPRECATED navigationPolicyDecisionGetRequest ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}+navigationPolicyDecisionGetRequest ::+    (MonadIO m, NavigationPolicyDecisionK a) =>+    a ->                                    -- _obj+    m URIRequest+navigationPolicyDecisionGetRequest _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_navigation_policy_decision_get_request _obj'+    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_request" result+    result' <- (newObject URIRequest) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2.Objects.NavigationPolicyDecision 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++newtype NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision)+instance GObject NavigationPolicyDecision where+class GObject o => NavigationPolicyDecisionK o+instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o+data NavigationPolicyDecisionFrameNamePropertyInfo+data NavigationPolicyDecisionModifiersPropertyInfo+data NavigationPolicyDecisionMouseButtonPropertyInfo+data NavigationPolicyDecisionNavigationActionPropertyInfo+data NavigationPolicyDecisionNavigationTypePropertyInfo+data NavigationPolicyDecisionRequestPropertyInfo
+ GI/WebKit2/Objects/Notification.hs view
@@ -0,0 +1,307 @@++{- |+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.Notification+    ( ++-- * Exported types+    Notification(..)                        ,+    NotificationK                           ,+    toNotification                          ,+    noNotification                          ,+++ -- * Methods+-- ** notificationClose+    notificationClose                       ,+++-- ** notificationGetBody+    notificationGetBody                     ,+++-- ** notificationGetId+    notificationGetId                       ,+++-- ** notificationGetTitle+    notificationGetTitle                    ,+++++ -- * Properties+-- ** Body+    NotificationBodyPropertyInfo            ,+    getNotificationBody                     ,+++-- ** Id+    NotificationIdPropertyInfo              ,+    getNotificationId                       ,+++-- ** Title+    NotificationTitlePropertyInfo           ,+    getNotificationTitle                    ,+++++ -- * Signals+-- ** Closed+    NotificationClosedCallback              ,+    NotificationClosedCallbackC             ,+    NotificationClosedSignalInfo            ,+    afterNotificationClosed                 ,+    mkNotificationClosedCallback            ,+    noNotificationClosedCallback            ,+    notificationClosedCallbackWrapper       ,+    notificationClosedClosure               ,+    onNotificationClosed                    ,+++++    ) 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 Notification = Notification (ForeignPtr Notification)+foreign import ccall "webkit_notification_get_type"+    c_webkit_notification_get_type :: IO GType++type instance ParentTypes Notification = NotificationParentTypes+type NotificationParentTypes = '[GObject.Object]++instance GObject Notification where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_notification_get_type+    ++class GObject o => NotificationK o+instance (GObject o, IsDescendantOf Notification o) => NotificationK o++toNotification :: NotificationK o => o -> IO Notification+toNotification = unsafeCastTo Notification++noNotification :: Maybe Notification+noNotification = Nothing++-- signal Notification::closed+type NotificationClosedCallback =+    IO ()++noNotificationClosedCallback :: Maybe NotificationClosedCallback+noNotificationClosedCallback = Nothing++type NotificationClosedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkNotificationClosedCallback :: NotificationClosedCallbackC -> IO (FunPtr NotificationClosedCallbackC)++notificationClosedClosure :: NotificationClosedCallback -> IO Closure+notificationClosedClosure cb = newCClosure =<< mkNotificationClosedCallback wrapped+    where wrapped = notificationClosedCallbackWrapper cb++notificationClosedCallbackWrapper ::+    NotificationClosedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+notificationClosedCallbackWrapper _cb _ _ = do+    _cb ++onNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId+onNotificationClosed obj cb = liftIO $ connectNotificationClosed obj cb SignalConnectBefore+afterNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId+afterNotificationClosed obj cb = connectNotificationClosed obj cb SignalConnectAfter++connectNotificationClosed :: (GObject a, MonadIO m) =>+                             a -> NotificationClosedCallback -> SignalConnectMode -> m SignalHandlerId+connectNotificationClosed obj cb after = liftIO $ do+    cb' <- mkNotificationClosedCallback (notificationClosedCallbackWrapper cb)+    connectSignalFunPtr obj "closed" cb' after++-- VVV Prop "body"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getNotificationBody :: (MonadIO m, NotificationK o) => o -> m T.Text+getNotificationBody obj = liftIO $ getObjectPropertyString obj "body"++data NotificationBodyPropertyInfo+instance AttrInfo NotificationBodyPropertyInfo where+    type AttrAllowedOps NotificationBodyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NotificationBodyPropertyInfo = NotificationK+    type AttrGetType NotificationBodyPropertyInfo = T.Text+    type AttrLabel NotificationBodyPropertyInfo = "Notification::body"+    attrGet _ = getNotificationBody+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "id"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getNotificationId :: (MonadIO m, NotificationK o) => o -> m Word64+getNotificationId obj = liftIO $ getObjectPropertyUInt64 obj "id"++data NotificationIdPropertyInfo+instance AttrInfo NotificationIdPropertyInfo where+    type AttrAllowedOps NotificationIdPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) ()+    type AttrBaseTypeConstraint NotificationIdPropertyInfo = NotificationK+    type AttrGetType NotificationIdPropertyInfo = Word64+    type AttrLabel NotificationIdPropertyInfo = "Notification::id"+    attrGet _ = getNotificationId+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getNotificationTitle :: (MonadIO m, NotificationK o) => o -> m T.Text+getNotificationTitle obj = liftIO $ getObjectPropertyString obj "title"++data NotificationTitlePropertyInfo+instance AttrInfo NotificationTitlePropertyInfo where+    type AttrAllowedOps NotificationTitlePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint NotificationTitlePropertyInfo = (~) ()+    type AttrBaseTypeConstraint NotificationTitlePropertyInfo = NotificationK+    type AttrGetType NotificationTitlePropertyInfo = T.Text+    type AttrLabel NotificationTitlePropertyInfo = "Notification::title"+    attrGet _ = getNotificationTitle+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList Notification = NotificationAttributeList+type NotificationAttributeList = ('[ '("body", NotificationBodyPropertyInfo), '("id", NotificationIdPropertyInfo), '("title", NotificationTitlePropertyInfo)] :: [(Symbol, *)])++data NotificationClosedSignalInfo+instance SignalInfo NotificationClosedSignalInfo where+    type HaskellCallbackType NotificationClosedSignalInfo = NotificationClosedCallback+    connectSignal _ = connectNotificationClosed++type instance SignalList Notification = NotificationSignalList+type NotificationSignalList = ('[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_notification_close" webkit_notification_close :: +    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"+    IO ()+++notificationClose ::+    (MonadIO m, NotificationK a) =>+    a ->                                    -- _obj+    m ()+notificationClose _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_notification_close _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_notification_get_body" webkit_notification_get_body :: +    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"+    IO CString+++notificationGetBody ::+    (MonadIO m, NotificationK a) =>+    a ->                                    -- _obj+    m T.Text+notificationGetBody _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_notification_get_body _obj'+    checkUnexpectedReturnNULL "webkit_notification_get_body" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_notification_get_id" webkit_notification_get_id :: +    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"+    IO Word64+++notificationGetId ::+    (MonadIO m, NotificationK a) =>+    a ->                                    -- _obj+    m Word64+notificationGetId _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_notification_get_id _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_notification_get_title" webkit_notification_get_title :: +    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"+    IO CString+++notificationGetTitle ::+    (MonadIO m, NotificationK a) =>+    a ->                                    -- _obj+    m T.Text+notificationGetTitle _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_notification_get_title _obj'+    checkUnexpectedReturnNULL "webkit_notification_get_title" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/Notification.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2.Objects.Notification 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++newtype Notification = Notification (ForeignPtr Notification)+instance GObject Notification where+class GObject o => NotificationK o+instance (GObject o, IsDescendantOf Notification o) => NotificationK o+data NotificationBodyPropertyInfo+data NotificationIdPropertyInfo+data NotificationTitlePropertyInfo+data NotificationClosedSignalInfo
+ GI/WebKit2/Objects/NotificationPermissionRequest.hs view
@@ -0,0 +1,58 @@++{- |+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.NotificationPermissionRequest+    ( ++-- * Exported types+    NotificationPermissionRequest(..)       ,+    NotificationPermissionRequestK          ,+    toNotificationPermissionRequest         ,+    noNotificationPermissionRequest         ,+++    ) 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 NotificationPermissionRequest = NotificationPermissionRequest (ForeignPtr NotificationPermissionRequest)+foreign import ccall "webkit_notification_permission_request_get_type"+    c_webkit_notification_permission_request_get_type :: IO GType++type instance ParentTypes NotificationPermissionRequest = NotificationPermissionRequestParentTypes+type NotificationPermissionRequestParentTypes = '[GObject.Object, PermissionRequest]++instance GObject NotificationPermissionRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_notification_permission_request_get_type+    ++class GObject o => NotificationPermissionRequestK o+instance (GObject o, IsDescendantOf NotificationPermissionRequest o) => NotificationPermissionRequestK o++toNotificationPermissionRequest :: NotificationPermissionRequestK o => o -> IO NotificationPermissionRequest+toNotificationPermissionRequest = unsafeCastTo NotificationPermissionRequest++noNotificationPermissionRequest :: Maybe NotificationPermissionRequest+noNotificationPermissionRequest = Nothing++type instance AttributeList NotificationPermissionRequest = NotificationPermissionRequestAttributeList+type NotificationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList NotificationPermissionRequest = NotificationPermissionRequestSignalList+type NotificationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2/Objects/NotificationPermissionRequest.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.NotificationPermissionRequest 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++newtype NotificationPermissionRequest = NotificationPermissionRequest (ForeignPtr NotificationPermissionRequest)+instance GObject NotificationPermissionRequest where+class GObject o => NotificationPermissionRequestK o+instance (GObject o, IsDescendantOf NotificationPermissionRequest o) => NotificationPermissionRequestK o
+ GI/WebKit2/Objects/Plugin.hs view
@@ -0,0 +1,182 @@++{- |+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.Plugin+    ( ++-- * Exported types+    Plugin(..)                              ,+    PluginK                                 ,+    toPlugin                                ,+    noPlugin                                ,+++ -- * Methods+-- ** pluginGetDescription+    pluginGetDescription                    ,+++-- ** pluginGetMimeInfoList+    pluginGetMimeInfoList                   ,+++-- ** pluginGetName+    pluginGetName                           ,+++-- ** pluginGetPath+    pluginGetPath                           ,+++++    ) 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 Plugin = Plugin (ForeignPtr Plugin)+foreign import ccall "webkit_plugin_get_type"+    c_webkit_plugin_get_type :: IO GType++type instance ParentTypes Plugin = PluginParentTypes+type PluginParentTypes = '[GObject.Object]++instance GObject Plugin where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_plugin_get_type+    ++class GObject o => PluginK o+instance (GObject o, IsDescendantOf Plugin o) => PluginK o++toPlugin :: PluginK o => o -> IO Plugin+toPlugin = unsafeCastTo Plugin++noPlugin :: Maybe Plugin+noPlugin = Nothing++type instance AttributeList Plugin = PluginAttributeList+type PluginAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Plugin = PluginSignalList+type PluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_plugin_get_description" webkit_plugin_get_description :: +    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"+    IO CString+++pluginGetDescription ::+    (MonadIO m, PluginK a) =>+    a ->                                    -- _obj+    m T.Text+pluginGetDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_plugin_get_description _obj'+    checkUnexpectedReturnNULL "webkit_plugin_get_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_plugin_get_mime_info_list" webkit_plugin_get_mime_info_list :: +    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"+    IO (Ptr (GList (Ptr MimeInfo)))+++pluginGetMimeInfoList ::+    (MonadIO m, PluginK a) =>+    a ->                                    -- _obj+    m [MimeInfo]+pluginGetMimeInfoList _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_plugin_get_mime_info_list _obj'+    checkUnexpectedReturnNULL "webkit_plugin_get_mime_info_list" result+    result' <- unpackGList result+    result'' <- mapM (newBoxed MimeInfo) result'+    touchManagedPtr _obj+    return result''++-- 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}]+-- 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++foreign import ccall "webkit_plugin_get_name" webkit_plugin_get_name :: +    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"+    IO CString+++pluginGetName ::+    (MonadIO m, PluginK a) =>+    a ->                                    -- _obj+    m T.Text+pluginGetName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_plugin_get_name _obj'+    checkUnexpectedReturnNULL "webkit_plugin_get_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_plugin_get_path" webkit_plugin_get_path :: +    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"+    IO CString+++pluginGetPath ::+    (MonadIO m, PluginK a) =>+    a ->                                    -- _obj+    m T.Text+pluginGetPath _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_plugin_get_path _obj'+    checkUnexpectedReturnNULL "webkit_plugin_get_path" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/Plugin.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.Plugin 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++newtype Plugin = Plugin (ForeignPtr Plugin)+instance GObject Plugin where+class GObject o => PluginK o+instance (GObject o, IsDescendantOf Plugin o) => PluginK o
+ GI/WebKit2/Objects/PolicyDecision.hs view
@@ -0,0 +1,145 @@++{- |+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.PolicyDecision+    ( ++-- * Exported types+    PolicyDecision(..)                      ,+    PolicyDecisionK                         ,+    toPolicyDecision                        ,+    noPolicyDecision                        ,+++ -- * Methods+-- ** policyDecisionDownload+    policyDecisionDownload                  ,+++-- ** policyDecisionIgnore+    policyDecisionIgnore                    ,+++-- ** policyDecisionUse+    policyDecisionUse                       ,+++++    ) 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 PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision)+foreign import ccall "webkit_policy_decision_get_type"+    c_webkit_policy_decision_get_type :: IO GType++type instance ParentTypes PolicyDecision = PolicyDecisionParentTypes+type PolicyDecisionParentTypes = '[GObject.Object]++instance GObject PolicyDecision where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_policy_decision_get_type+    ++class GObject o => PolicyDecisionK o+instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o++toPolicyDecision :: PolicyDecisionK o => o -> IO PolicyDecision+toPolicyDecision = unsafeCastTo PolicyDecision++noPolicyDecision :: Maybe PolicyDecision+noPolicyDecision = Nothing++type instance AttributeList PolicyDecision = PolicyDecisionAttributeList+type PolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList PolicyDecision = PolicyDecisionSignalList+type PolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_policy_decision_download" webkit_policy_decision_download :: +    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"+    IO ()+++policyDecisionDownload ::+    (MonadIO m, PolicyDecisionK a) =>+    a ->                                    -- _obj+    m ()+policyDecisionDownload _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_policy_decision_download _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_policy_decision_ignore" webkit_policy_decision_ignore :: +    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"+    IO ()+++policyDecisionIgnore ::+    (MonadIO m, PolicyDecisionK a) =>+    a ->                                    -- _obj+    m ()+policyDecisionIgnore _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_policy_decision_ignore _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_policy_decision_use" webkit_policy_decision_use :: +    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"+    IO ()+++policyDecisionUse ::+    (MonadIO m, PolicyDecisionK a) =>+    a ->                                    -- _obj+    m ()+policyDecisionUse _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_policy_decision_use _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Objects/PolicyDecision.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.PolicyDecision 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++newtype PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision)+instance GObject PolicyDecision where+class GObject o => PolicyDecisionK o+instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o
+ GI/WebKit2/Objects/PrintOperation.hs view
@@ -0,0 +1,489 @@++{- |+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.PrintOperation+    ( ++-- * Exported types+    PrintOperation(..)                      ,+    PrintOperationK                         ,+    toPrintOperation                        ,+    noPrintOperation                        ,+++ -- * Methods+-- ** printOperationGetPageSetup+    printOperationGetPageSetup              ,+++-- ** printOperationGetPrintSettings+    printOperationGetPrintSettings          ,+++-- ** printOperationNew+    printOperationNew                       ,+++-- ** printOperationPrint+    printOperationPrint                     ,+++-- ** printOperationRunDialog+    printOperationRunDialog                 ,+++-- ** printOperationSetPageSetup+    printOperationSetPageSetup              ,+++-- ** printOperationSetPrintSettings+    printOperationSetPrintSettings          ,+++++ -- * Properties+-- ** PageSetup+    PrintOperationPageSetupPropertyInfo     ,+    constructPrintOperationPageSetup        ,+    getPrintOperationPageSetup              ,+    setPrintOperationPageSetup              ,+++-- ** PrintSettings+    PrintOperationPrintSettingsPropertyInfo ,+    constructPrintOperationPrintSettings    ,+    getPrintOperationPrintSettings          ,+    setPrintOperationPrintSettings          ,+++-- ** WebView+    PrintOperationWebViewPropertyInfo       ,+    constructPrintOperationWebView          ,+    getPrintOperationWebView                ,+++++ -- * Signals+-- ** Failed+    PrintOperationFailedCallback            ,+    PrintOperationFailedCallbackC           ,+    PrintOperationFailedSignalInfo          ,+    afterPrintOperationFailed               ,+    mkPrintOperationFailedCallback          ,+    noPrintOperationFailedCallback          ,+    onPrintOperationFailed                  ,+    printOperationFailedCallbackWrapper     ,+    printOperationFailedClosure             ,+++-- ** Finished+    PrintOperationFinishedCallback          ,+    PrintOperationFinishedCallbackC         ,+    PrintOperationFinishedSignalInfo        ,+    afterPrintOperationFinished             ,+    mkPrintOperationFinishedCallback        ,+    noPrintOperationFinishedCallback        ,+    onPrintOperationFinished                ,+    printOperationFinishedCallbackWrapper   ,+    printOperationFinishedClosure           ,+++++    ) 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+import qualified GI.Gtk as Gtk++newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation)+foreign import ccall "webkit_print_operation_get_type"+    c_webkit_print_operation_get_type :: IO GType++type instance ParentTypes PrintOperation = PrintOperationParentTypes+type PrintOperationParentTypes = '[GObject.Object]++instance GObject PrintOperation where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_print_operation_get_type+    ++class GObject o => PrintOperationK o+instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o++toPrintOperation :: PrintOperationK o => o -> IO PrintOperation+toPrintOperation = unsafeCastTo PrintOperation++noPrintOperation :: Maybe PrintOperation+noPrintOperation = Nothing++-- signal PrintOperation::failed+type PrintOperationFailedCallback =+    Ptr () ->+    IO ()++noPrintOperationFailedCallback :: Maybe PrintOperationFailedCallback+noPrintOperationFailedCallback = Nothing++type PrintOperationFailedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkPrintOperationFailedCallback :: PrintOperationFailedCallbackC -> IO (FunPtr PrintOperationFailedCallbackC)++printOperationFailedClosure :: PrintOperationFailedCallback -> IO Closure+printOperationFailedClosure cb = newCClosure =<< mkPrintOperationFailedCallback wrapped+    where wrapped = printOperationFailedCallbackWrapper cb++printOperationFailedCallbackWrapper ::+    PrintOperationFailedCallback ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO ()+printOperationFailedCallbackWrapper _cb _ error_ _ = do+    _cb  error_++onPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId+onPrintOperationFailed obj cb = liftIO $ connectPrintOperationFailed obj cb SignalConnectBefore+afterPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId+afterPrintOperationFailed obj cb = connectPrintOperationFailed obj cb SignalConnectAfter++connectPrintOperationFailed :: (GObject a, MonadIO m) =>+                               a -> PrintOperationFailedCallback -> SignalConnectMode -> m SignalHandlerId+connectPrintOperationFailed obj cb after = liftIO $ do+    cb' <- mkPrintOperationFailedCallback (printOperationFailedCallbackWrapper cb)+    connectSignalFunPtr obj "failed" cb' after++-- signal PrintOperation::finished+type PrintOperationFinishedCallback =+    IO ()++noPrintOperationFinishedCallback :: Maybe PrintOperationFinishedCallback+noPrintOperationFinishedCallback = Nothing++type PrintOperationFinishedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkPrintOperationFinishedCallback :: PrintOperationFinishedCallbackC -> IO (FunPtr PrintOperationFinishedCallbackC)++printOperationFinishedClosure :: PrintOperationFinishedCallback -> IO Closure+printOperationFinishedClosure cb = newCClosure =<< mkPrintOperationFinishedCallback wrapped+    where wrapped = printOperationFinishedCallbackWrapper cb++printOperationFinishedCallbackWrapper ::+    PrintOperationFinishedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+printOperationFinishedCallbackWrapper _cb _ _ = do+    _cb ++onPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId+onPrintOperationFinished obj cb = liftIO $ connectPrintOperationFinished obj cb SignalConnectBefore+afterPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId+afterPrintOperationFinished obj cb = connectPrintOperationFinished obj cb SignalConnectAfter++connectPrintOperationFinished :: (GObject a, MonadIO m) =>+                                 a -> PrintOperationFinishedCallback -> SignalConnectMode -> m SignalHandlerId+connectPrintOperationFinished obj cb after = liftIO $ do+    cb' <- mkPrintOperationFinishedCallback (printOperationFinishedCallbackWrapper cb)+    connectSignalFunPtr obj "finished" cb' after++-- VVV Prop "page-setup"+   -- Type: TInterface "Gtk" "PageSetup"+   -- Flags: [PropertyReadable,PropertyWritable]++getPrintOperationPageSetup :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PageSetup+getPrintOperationPageSetup obj = liftIO $ getObjectPropertyObject obj "page-setup" Gtk.PageSetup++setPrintOperationPageSetup :: (MonadIO m, PrintOperationK o, Gtk.PageSetupK a) => o -> a -> m ()+setPrintOperationPageSetup obj val = liftIO $ setObjectPropertyObject obj "page-setup" val++constructPrintOperationPageSetup :: (Gtk.PageSetupK a) => a -> IO ([Char], GValue)+constructPrintOperationPageSetup val = constructObjectPropertyObject "page-setup" val++data PrintOperationPageSetupPropertyInfo+instance AttrInfo PrintOperationPageSetupPropertyInfo where+    type AttrAllowedOps PrintOperationPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint PrintOperationPageSetupPropertyInfo = Gtk.PageSetupK+    type AttrBaseTypeConstraint PrintOperationPageSetupPropertyInfo = PrintOperationK+    type AttrGetType PrintOperationPageSetupPropertyInfo = Gtk.PageSetup+    type AttrLabel PrintOperationPageSetupPropertyInfo = "PrintOperation::page-setup"+    attrGet _ = getPrintOperationPageSetup+    attrSet _ = setPrintOperationPageSetup+    attrConstruct _ = constructPrintOperationPageSetup++-- VVV Prop "print-settings"+   -- Type: TInterface "Gtk" "PrintSettings"+   -- Flags: [PropertyReadable,PropertyWritable]++getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PrintSettings+getPrintOperationPrintSettings obj = liftIO $ getObjectPropertyObject obj "print-settings" Gtk.PrintSettings++setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, Gtk.PrintSettingsK a) => o -> a -> m ()+setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" val++constructPrintOperationPrintSettings :: (Gtk.PrintSettingsK a) => a -> IO ([Char], GValue)+constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" val++data PrintOperationPrintSettingsPropertyInfo+instance AttrInfo PrintOperationPrintSettingsPropertyInfo where+    type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettingsK+    type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK+    type AttrGetType PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings+    type AttrLabel PrintOperationPrintSettingsPropertyInfo = "PrintOperation::print-settings"+    attrGet _ = getPrintOperationPrintSettings+    attrSet _ = setPrintOperationPrintSettings+    attrConstruct _ = constructPrintOperationPrintSettings++-- VVV Prop "web-view"+   -- Type: TInterface "WebKit2" "WebView"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPrintOperationWebView :: (MonadIO m, PrintOperationK o) => o -> m WebView+getPrintOperationWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView++constructPrintOperationWebView :: (WebViewK a) => a -> IO ([Char], GValue)+constructPrintOperationWebView val = constructObjectPropertyObject "web-view" val++data PrintOperationWebViewPropertyInfo+instance AttrInfo PrintOperationWebViewPropertyInfo where+    type AttrAllowedOps PrintOperationWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint PrintOperationWebViewPropertyInfo = WebViewK+    type AttrBaseTypeConstraint PrintOperationWebViewPropertyInfo = PrintOperationK+    type AttrGetType PrintOperationWebViewPropertyInfo = WebView+    type AttrLabel PrintOperationWebViewPropertyInfo = "PrintOperation::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, *)])++data PrintOperationFailedSignalInfo+instance SignalInfo PrintOperationFailedSignalInfo where+    type HaskellCallbackType PrintOperationFailedSignalInfo = PrintOperationFailedCallback+    connectSignal _ = connectPrintOperationFailed++data PrintOperationFinishedSignalInfo+instance SignalInfo PrintOperationFinishedSignalInfo where+    type HaskellCallbackType PrintOperationFinishedSignalInfo = PrintOperationFinishedCallback+    connectSignal _ = connectPrintOperationFinished++type instance SignalList PrintOperation = PrintOperationSignalList+type PrintOperationSignalList = ('[ '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_print_operation_new" webkit_print_operation_new :: +    Ptr WebView ->                          -- web_view : TInterface "WebKit2" "WebView"+    IO (Ptr PrintOperation)+++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'+    checkUnexpectedReturnNULL "webkit_print_operation_new" result+    result' <- (wrapObject PrintOperation) result+    touchManagedPtr web_view+    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}]+-- 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++foreign import ccall "webkit_print_operation_get_page_setup" webkit_print_operation_get_page_setup :: +    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"+    IO (Ptr Gtk.PageSetup)+++printOperationGetPageSetup ::+    (MonadIO m, PrintOperationK a) =>+    a ->                                    -- _obj+    m Gtk.PageSetup+printOperationGetPageSetup _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_print_operation_get_page_setup _obj'+    checkUnexpectedReturnNULL "webkit_print_operation_get_page_setup" result+    result' <- (newObject Gtk.PageSetup) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_print_operation_get_print_settings" webkit_print_operation_get_print_settings :: +    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"+    IO (Ptr Gtk.PrintSettings)+++printOperationGetPrintSettings ::+    (MonadIO m, PrintOperationK a) =>+    a ->                                    -- _obj+    m Gtk.PrintSettings+printOperationGetPrintSettings _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_print_operation_get_print_settings _obj'+    checkUnexpectedReturnNULL "webkit_print_operation_get_print_settings" result+    result' <- (newObject Gtk.PrintSettings) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_print_operation_print" webkit_print_operation_print :: +    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"+    IO ()+++printOperationPrint ::+    (MonadIO m, PrintOperationK a) =>+    a ->                                    -- _obj+    m ()+printOperationPrint _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_print_operation_print _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_print_operation_run_dialog" webkit_print_operation_run_dialog :: +    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"+    Ptr Gtk.Window ->                       -- parent : TInterface "Gtk" "Window"+    IO CUInt+++printOperationRunDialog ::+    (MonadIO m, PrintOperationK a, Gtk.WindowK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- parent+    m PrintOperationResponse+printOperationRunDialog _obj parent = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeParent <- case parent of+        Nothing -> return nullPtr+        Just jParent -> do+            let jParent' = unsafeManagedPtrCastPtr jParent+            return jParent'+    result <- webkit_print_operation_run_dialog _obj' maybeParent+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    whenJust parent touchManagedPtr+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_print_operation_set_page_setup" webkit_print_operation_set_page_setup :: +    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"+    Ptr Gtk.PageSetup ->                    -- page_setup : TInterface "Gtk" "PageSetup"+    IO ()+++printOperationSetPageSetup ::+    (MonadIO m, PrintOperationK a, Gtk.PageSetupK b) =>+    a ->                                    -- _obj+    b ->                                    -- page_setup+    m ()+printOperationSetPageSetup _obj page_setup = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let page_setup' = unsafeManagedPtrCastPtr page_setup+    webkit_print_operation_set_page_setup _obj' page_setup'+    touchManagedPtr _obj+    touchManagedPtr page_setup+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_print_operation_set_print_settings" webkit_print_operation_set_print_settings :: +    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"+    Ptr Gtk.PrintSettings ->                -- print_settings : TInterface "Gtk" "PrintSettings"+    IO ()+++printOperationSetPrintSettings ::+    (MonadIO m, PrintOperationK a, Gtk.PrintSettingsK b) =>+    a ->                                    -- _obj+    b ->                                    -- print_settings+    m ()+printOperationSetPrintSettings _obj print_settings = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let print_settings' = unsafeManagedPtrCastPtr print_settings+    webkit_print_operation_set_print_settings _obj' print_settings'+    touchManagedPtr _obj+    touchManagedPtr print_settings+    return ()++
+ GI/WebKit2/Objects/PrintOperation.hs-boot view
@@ -0,0 +1,18 @@+module GI.WebKit2.Objects.PrintOperation 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++newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation)+instance GObject PrintOperation where+class GObject o => PrintOperationK o+instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o+data PrintOperationPageSetupPropertyInfo+data PrintOperationPrintSettingsPropertyInfo+data PrintOperationWebViewPropertyInfo+data PrintOperationFailedSignalInfo+data PrintOperationFinishedSignalInfo
+ GI/WebKit2/Objects/ResponsePolicyDecision.hs view
@@ -0,0 +1,199 @@++{- |+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.ResponsePolicyDecision+    ( ++-- * Exported types+    ResponsePolicyDecision(..)              ,+    ResponsePolicyDecisionK                 ,+    toResponsePolicyDecision                ,+    noResponsePolicyDecision                ,+++ -- * Methods+-- ** responsePolicyDecisionGetRequest+    responsePolicyDecisionGetRequest        ,+++-- ** responsePolicyDecisionGetResponse+    responsePolicyDecisionGetResponse       ,+++-- ** responsePolicyDecisionIsMimeTypeSupported+    responsePolicyDecisionIsMimeTypeSupported,+++++ -- * Properties+-- ** Request+    ResponsePolicyDecisionRequestPropertyInfo,+    getResponsePolicyDecisionRequest        ,+++-- ** Response+    ResponsePolicyDecisionResponsePropertyInfo,+    getResponsePolicyDecisionResponse       ,+++++    ) 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 ResponsePolicyDecision = ResponsePolicyDecision (ForeignPtr ResponsePolicyDecision)+foreign import ccall "webkit_response_policy_decision_get_type"+    c_webkit_response_policy_decision_get_type :: IO GType++type instance ParentTypes ResponsePolicyDecision = ResponsePolicyDecisionParentTypes+type ResponsePolicyDecisionParentTypes = '[PolicyDecision, GObject.Object]++instance GObject ResponsePolicyDecision where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_response_policy_decision_get_type+    ++class GObject o => ResponsePolicyDecisionK o+instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o++toResponsePolicyDecision :: ResponsePolicyDecisionK o => o -> IO ResponsePolicyDecision+toResponsePolicyDecision = unsafeCastTo ResponsePolicyDecision++noResponsePolicyDecision :: Maybe ResponsePolicyDecision+noResponsePolicyDecision = Nothing++-- VVV Prop "request"+   -- Type: TInterface "WebKit2" "URIRequest"+   -- Flags: [PropertyReadable]++getResponsePolicyDecisionRequest :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIRequest+getResponsePolicyDecisionRequest obj = liftIO $ getObjectPropertyObject obj "request" URIRequest++data ResponsePolicyDecisionRequestPropertyInfo+instance AttrInfo ResponsePolicyDecisionRequestPropertyInfo where+    type AttrAllowedOps ResponsePolicyDecisionRequestPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) ()+    type AttrBaseTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = ResponsePolicyDecisionK+    type AttrGetType ResponsePolicyDecisionRequestPropertyInfo = URIRequest+    type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "ResponsePolicyDecision::request"+    attrGet _ = getResponsePolicyDecisionRequest+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "response"+   -- Type: TInterface "WebKit2" "URIResponse"+   -- Flags: [PropertyReadable]++getResponsePolicyDecisionResponse :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIResponse+getResponsePolicyDecisionResponse obj = liftIO $ getObjectPropertyObject obj "response" URIResponse++data ResponsePolicyDecisionResponsePropertyInfo+instance AttrInfo ResponsePolicyDecisionResponsePropertyInfo where+    type AttrAllowedOps ResponsePolicyDecisionResponsePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) ()+    type AttrBaseTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = ResponsePolicyDecisionK+    type AttrGetType ResponsePolicyDecisionResponsePropertyInfo = URIResponse+    type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "ResponsePolicyDecision::response"+    attrGet _ = getResponsePolicyDecisionResponse+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList ResponsePolicyDecision = ResponsePolicyDecisionAttributeList+type ResponsePolicyDecisionAttributeList = ('[ '("request", ResponsePolicyDecisionRequestPropertyInfo), '("response", ResponsePolicyDecisionResponsePropertyInfo)] :: [(Symbol, *)])++type instance SignalList ResponsePolicyDecision = ResponsePolicyDecisionSignalList+type ResponsePolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_response_policy_decision_get_request" webkit_response_policy_decision_get_request :: +    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"+    IO (Ptr URIRequest)+++responsePolicyDecisionGetRequest ::+    (MonadIO m, ResponsePolicyDecisionK a) =>+    a ->                                    -- _obj+    m URIRequest+responsePolicyDecisionGetRequest _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_response_policy_decision_get_request _obj'+    checkUnexpectedReturnNULL "webkit_response_policy_decision_get_request" result+    result' <- (newObject URIRequest) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_response_policy_decision_get_response" webkit_response_policy_decision_get_response :: +    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"+    IO (Ptr URIResponse)+++responsePolicyDecisionGetResponse ::+    (MonadIO m, ResponsePolicyDecisionK a) =>+    a ->                                    -- _obj+    m URIResponse+responsePolicyDecisionGetResponse _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_response_policy_decision_get_response _obj'+    checkUnexpectedReturnNULL "webkit_response_policy_decision_get_response" result+    result' <- (newObject URIResponse) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_response_policy_decision_is_mime_type_supported" webkit_response_policy_decision_is_mime_type_supported :: +    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"+    IO CInt+++responsePolicyDecisionIsMimeTypeSupported ::+    (MonadIO m, ResponsePolicyDecisionK a) =>+    a ->                                    -- _obj+    m Bool+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'++
+ GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2.Objects.ResponsePolicyDecision 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++newtype ResponsePolicyDecision = ResponsePolicyDecision (ForeignPtr ResponsePolicyDecision)+instance GObject ResponsePolicyDecision where+class GObject o => ResponsePolicyDecisionK o+instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o+data ResponsePolicyDecisionRequestPropertyInfo+data ResponsePolicyDecisionResponsePropertyInfo
+ GI/WebKit2/Objects/SecurityManager.hs view
@@ -0,0 +1,451 @@++{- |+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.SecurityManager+    ( ++-- * Exported types+    SecurityManager(..)                     ,+    SecurityManagerK                        ,+    toSecurityManager                       ,+    noSecurityManager                       ,+++ -- * Methods+-- ** securityManagerRegisterUriSchemeAsCorsEnabled+    securityManagerRegisterUriSchemeAsCorsEnabled,+++-- ** securityManagerRegisterUriSchemeAsDisplayIsolated+    securityManagerRegisterUriSchemeAsDisplayIsolated,+++-- ** securityManagerRegisterUriSchemeAsEmptyDocument+    securityManagerRegisterUriSchemeAsEmptyDocument,+++-- ** securityManagerRegisterUriSchemeAsLocal+    securityManagerRegisterUriSchemeAsLocal ,+++-- ** securityManagerRegisterUriSchemeAsNoAccess+    securityManagerRegisterUriSchemeAsNoAccess,+++-- ** securityManagerRegisterUriSchemeAsSecure+    securityManagerRegisterUriSchemeAsSecure,+++-- ** securityManagerUriSchemeIsCorsEnabled+    securityManagerUriSchemeIsCorsEnabled   ,+++-- ** securityManagerUriSchemeIsDisplayIsolated+    securityManagerUriSchemeIsDisplayIsolated,+++-- ** securityManagerUriSchemeIsEmptyDocument+    securityManagerUriSchemeIsEmptyDocument ,+++-- ** securityManagerUriSchemeIsLocal+    securityManagerUriSchemeIsLocal         ,+++-- ** securityManagerUriSchemeIsNoAccess+    securityManagerUriSchemeIsNoAccess      ,+++-- ** securityManagerUriSchemeIsSecure+    securityManagerUriSchemeIsSecure        ,+++++    ) 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 SecurityManager = SecurityManager (ForeignPtr SecurityManager)+foreign import ccall "webkit_security_manager_get_type"+    c_webkit_security_manager_get_type :: IO GType++type instance ParentTypes SecurityManager = SecurityManagerParentTypes+type SecurityManagerParentTypes = '[GObject.Object]++instance GObject SecurityManager where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_security_manager_get_type+    ++class GObject o => SecurityManagerK o+instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o++toSecurityManager :: SecurityManagerK o => o -> IO SecurityManager+toSecurityManager = unsafeCastTo SecurityManager++noSecurityManager :: Maybe SecurityManager+noSecurityManager = Nothing++type instance AttributeList SecurityManager = SecurityManagerAttributeList+type SecurityManagerAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList SecurityManager = SecurityManagerSignalList+type SecurityManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_security_manager_register_uri_scheme_as_cors_enabled" webkit_security_manager_register_uri_scheme_as_cors_enabled :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()+++securityManagerRegisterUriSchemeAsCorsEnabled ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m ()+securityManagerRegisterUriSchemeAsCorsEnabled _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_cors_enabled _obj' scheme'+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_register_uri_scheme_as_display_isolated" webkit_security_manager_register_uri_scheme_as_display_isolated :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()+++securityManagerRegisterUriSchemeAsDisplayIsolated ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m ()+securityManagerRegisterUriSchemeAsDisplayIsolated _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_display_isolated _obj' scheme'+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_register_uri_scheme_as_empty_document" webkit_security_manager_register_uri_scheme_as_empty_document :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()+++securityManagerRegisterUriSchemeAsEmptyDocument ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m ()+securityManagerRegisterUriSchemeAsEmptyDocument _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_empty_document _obj' scheme'+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_register_uri_scheme_as_local" webkit_security_manager_register_uri_scheme_as_local :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()+++securityManagerRegisterUriSchemeAsLocal ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m ()+securityManagerRegisterUriSchemeAsLocal _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_local _obj' scheme'+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_register_uri_scheme_as_no_access" webkit_security_manager_register_uri_scheme_as_no_access :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()+++securityManagerRegisterUriSchemeAsNoAccess ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m ()+securityManagerRegisterUriSchemeAsNoAccess _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_no_access _obj' scheme'+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_register_uri_scheme_as_secure" webkit_security_manager_register_uri_scheme_as_secure :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()+++securityManagerRegisterUriSchemeAsSecure ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m ()+securityManagerRegisterUriSchemeAsSecure _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    webkit_security_manager_register_uri_scheme_as_secure _obj' scheme'+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_uri_scheme_is_cors_enabled" webkit_security_manager_uri_scheme_is_cors_enabled :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt+++securityManagerUriSchemeIsCorsEnabled ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m Bool+securityManagerUriSchemeIsCorsEnabled _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_cors_enabled _obj' scheme'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem scheme'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_uri_scheme_is_display_isolated" webkit_security_manager_uri_scheme_is_display_isolated :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt+++securityManagerUriSchemeIsDisplayIsolated ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m Bool+securityManagerUriSchemeIsDisplayIsolated _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_display_isolated _obj' scheme'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem scheme'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_uri_scheme_is_empty_document" webkit_security_manager_uri_scheme_is_empty_document :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt+++securityManagerUriSchemeIsEmptyDocument ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m Bool+securityManagerUriSchemeIsEmptyDocument _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_empty_document _obj' scheme'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem scheme'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_uri_scheme_is_local" webkit_security_manager_uri_scheme_is_local :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt+++securityManagerUriSchemeIsLocal ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m Bool+securityManagerUriSchemeIsLocal _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_local _obj' scheme'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem scheme'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_uri_scheme_is_no_access" webkit_security_manager_uri_scheme_is_no_access :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt+++securityManagerUriSchemeIsNoAccess ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m Bool+securityManagerUriSchemeIsNoAccess _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_no_access _obj' scheme'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem scheme'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_security_manager_uri_scheme_is_secure" webkit_security_manager_uri_scheme_is_secure :: +    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"+    CString ->                              -- scheme : TBasicType TUTF8+    IO CInt+++securityManagerUriSchemeIsSecure ::+    (MonadIO m, SecurityManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    m Bool+securityManagerUriSchemeIsSecure _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    scheme' <- textToCString scheme+    result <- webkit_security_manager_uri_scheme_is_secure _obj' scheme'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem scheme'+    return result'++
+ GI/WebKit2/Objects/SecurityManager.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.SecurityManager 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++newtype SecurityManager = SecurityManager (ForeignPtr SecurityManager)+instance GObject SecurityManager where+class GObject o => SecurityManagerK o+instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o
+ GI/WebKit2/Objects/Settings.hs view
@@ -0,0 +1,4518 @@++{- |+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+-- ** 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                             ,+++-- ** 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+-- ** 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-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-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_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_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 ()++
+ GI/WebKit2/Objects/Settings.hs-boot view
@@ -0,0 +1,61 @@+module GI.WebKit2.Objects.Settings 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++newtype Settings = Settings (ForeignPtr Settings)+instance GObject Settings where+class GObject o => SettingsK o+instance (GObject o, IsDescendantOf Settings o) => SettingsK o+data SettingsAllowModalDialogsPropertyInfo+data SettingsAutoLoadImagesPropertyInfo+data SettingsCursiveFontFamilyPropertyInfo+data SettingsDefaultCharsetPropertyInfo+data SettingsDefaultFontFamilyPropertyInfo+data SettingsDefaultFontSizePropertyInfo+data SettingsDefaultMonospaceFontSizePropertyInfo+data SettingsDrawCompositingIndicatorsPropertyInfo+data SettingsEnableAccelerated2dCanvasPropertyInfo+data SettingsEnableCaretBrowsingPropertyInfo+data SettingsEnableDeveloperExtrasPropertyInfo+data SettingsEnableDnsPrefetchingPropertyInfo+data SettingsEnableFrameFlatteningPropertyInfo+data SettingsEnableFullscreenPropertyInfo+data SettingsEnableHtml5DatabasePropertyInfo+data SettingsEnableHtml5LocalStoragePropertyInfo+data SettingsEnableHyperlinkAuditingPropertyInfo+data SettingsEnableJavaPropertyInfo+data SettingsEnableJavascriptPropertyInfo+data SettingsEnableMediaStreamPropertyInfo+data SettingsEnableMediasourcePropertyInfo+data SettingsEnableOfflineWebApplicationCachePropertyInfo+data SettingsEnablePageCachePropertyInfo+data SettingsEnablePluginsPropertyInfo+data SettingsEnablePrivateBrowsingPropertyInfo+data SettingsEnableResizableTextAreasPropertyInfo+data SettingsEnableSiteSpecificQuirksPropertyInfo+data SettingsEnableSmoothScrollingPropertyInfo+data SettingsEnableSpatialNavigationPropertyInfo+data SettingsEnableTabsToLinksPropertyInfo+data SettingsEnableWebaudioPropertyInfo+data SettingsEnableWebglPropertyInfo+data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo+data SettingsEnableXssAuditorPropertyInfo+data SettingsFantasyFontFamilyPropertyInfo+data SettingsJavascriptCanAccessClipboardPropertyInfo+data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo+data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo+data SettingsMediaPlaybackAllowsInlinePropertyInfo+data SettingsMediaPlaybackRequiresUserGesturePropertyInfo+data SettingsMinimumFontSizePropertyInfo+data SettingsMonospaceFontFamilyPropertyInfo+data SettingsPictographFontFamilyPropertyInfo+data SettingsPrintBackgroundsPropertyInfo+data SettingsSansSerifFontFamilyPropertyInfo+data SettingsSerifFontFamilyPropertyInfo+data SettingsUserAgentPropertyInfo+data SettingsZoomTextOnlyPropertyInfo
+ GI/WebKit2/Objects/URIRequest.hs view
@@ -0,0 +1,218 @@++{- |+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.URIRequest+    ( ++-- * Exported types+    URIRequest(..)                          ,+    URIRequestK                             ,+    toURIRequest                            ,+    noURIRequest                            ,+++ -- * Methods+-- ** uRIRequestGetHttpHeaders+    uRIRequestGetHttpHeaders                ,+++-- ** uRIRequestGetUri+    uRIRequestGetUri                        ,+++-- ** uRIRequestNew+    uRIRequestNew                           ,+++-- ** uRIRequestSetUri+    uRIRequestSetUri                        ,+++++ -- * Properties+-- ** Uri+    URIRequestUriPropertyInfo               ,+    constructURIRequestUri                  ,+    getURIRequestUri                        ,+    setURIRequestUri                        ,+++++    ) 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+import qualified GI.Soup as Soup++newtype URIRequest = URIRequest (ForeignPtr URIRequest)+foreign import ccall "webkit_uri_request_get_type"+    c_webkit_uri_request_get_type :: IO GType++type instance ParentTypes URIRequest = URIRequestParentTypes+type URIRequestParentTypes = '[GObject.Object]++instance GObject URIRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_uri_request_get_type+    ++class GObject o => URIRequestK o+instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o++toURIRequest :: URIRequestK o => o -> IO URIRequest+toURIRequest = unsafeCastTo URIRequest++noURIRequest :: Maybe URIRequest+noURIRequest = Nothing++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]++getURIRequestUri :: (MonadIO m, URIRequestK o) => o -> m T.Text+getURIRequestUri obj = liftIO $ getObjectPropertyString obj "uri"++setURIRequestUri :: (MonadIO m, URIRequestK o) => o -> T.Text -> m ()+setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val++constructURIRequestUri :: T.Text -> IO ([Char], GValue)+constructURIRequestUri val = constructObjectPropertyString "uri" val++data URIRequestUriPropertyInfo+instance AttrInfo URIRequestUriPropertyInfo where+    type AttrAllowedOps URIRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint URIRequestUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint URIRequestUriPropertyInfo = URIRequestK+    type AttrGetType URIRequestUriPropertyInfo = T.Text+    type AttrLabel URIRequestUriPropertyInfo = "URIRequest::uri"+    attrGet _ = getURIRequestUri+    attrSet _ = setURIRequestUri+    attrConstruct _ = constructURIRequestUri++type instance AttributeList URIRequest = URIRequestAttributeList+type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList URIRequest = URIRequestSignalList+type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_uri_request_new" webkit_uri_request_new :: +    CString ->                              -- uri : TBasicType TUTF8+    IO (Ptr URIRequest)+++uRIRequestNew ::+    (MonadIO m) =>+    T.Text ->                               -- uri+    m URIRequest+uRIRequestNew uri = liftIO $ do+    uri' <- textToCString uri+    result <- webkit_uri_request_new uri'+    checkUnexpectedReturnNULL "webkit_uri_request_new" result+    result' <- (wrapObject URIRequest) result+    freeMem uri'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_request_get_http_headers" webkit_uri_request_get_http_headers :: +    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"+    IO (Ptr Soup.MessageHeaders)+++uRIRequestGetHttpHeaders ::+    (MonadIO m, URIRequestK a) =>+    a ->                                    -- _obj+    m Soup.MessageHeaders+uRIRequestGetHttpHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_request_get_http_headers _obj'+    checkUnexpectedReturnNULL "webkit_uri_request_get_http_headers" result+    result' <- (newBoxed Soup.MessageHeaders) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_request_get_uri" webkit_uri_request_get_uri :: +    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"+    IO CString+++uRIRequestGetUri ::+    (MonadIO m, URIRequestK a) =>+    a ->                                    -- _obj+    m T.Text+uRIRequestGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_request_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_uri_request_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_request_set_uri" webkit_uri_request_set_uri :: +    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"+    CString ->                              -- uri : TBasicType TUTF8+    IO ()+++uRIRequestSetUri ::+    (MonadIO m, URIRequestK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- uri+    m ()+uRIRequestSetUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    uri' <- textToCString uri+    webkit_uri_request_set_uri _obj' uri'+    touchManagedPtr _obj+    freeMem uri'+    return ()++
+ GI/WebKit2/Objects/URIRequest.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2.Objects.URIRequest 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++newtype URIRequest = URIRequest (ForeignPtr URIRequest)+instance GObject URIRequest where+class GObject o => URIRequestK o+instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o+data URIRequestUriPropertyInfo
+ GI/WebKit2/Objects/URIResponse.hs view
@@ -0,0 +1,379 @@++{- |+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.URIResponse+    ( ++-- * Exported types+    URIResponse(..)                         ,+    URIResponseK                            ,+    toURIResponse                           ,+    noURIResponse                           ,+++ -- * Methods+-- ** uRIResponseGetContentLength+    uRIResponseGetContentLength             ,+++-- ** uRIResponseGetHttpHeaders+    uRIResponseGetHttpHeaders               ,+++-- ** uRIResponseGetMimeType+    uRIResponseGetMimeType                  ,+++-- ** uRIResponseGetStatusCode+    uRIResponseGetStatusCode                ,+++-- ** uRIResponseGetSuggestedFilename+    uRIResponseGetSuggestedFilename         ,+++-- ** uRIResponseGetUri+    uRIResponseGetUri                       ,+++++ -- * Properties+-- ** ContentLength+    URIResponseContentLengthPropertyInfo    ,+    getURIResponseContentLength             ,+++-- ** HttpHeaders+    URIResponseHttpHeadersPropertyInfo      ,+    getURIResponseHttpHeaders               ,+++-- ** MimeType+    URIResponseMimeTypePropertyInfo         ,+    getURIResponseMimeType                  ,+++-- ** StatusCode+    URIResponseStatusCodePropertyInfo       ,+    getURIResponseStatusCode                ,+++-- ** SuggestedFilename+    URIResponseSuggestedFilenamePropertyInfo,+    getURIResponseSuggestedFilename         ,+++-- ** Uri+    URIResponseUriPropertyInfo              ,+    getURIResponseUri                       ,+++++    ) 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+import qualified GI.Soup as Soup++newtype URIResponse = URIResponse (ForeignPtr URIResponse)+foreign import ccall "webkit_uri_response_get_type"+    c_webkit_uri_response_get_type :: IO GType++type instance ParentTypes URIResponse = URIResponseParentTypes+type URIResponseParentTypes = '[GObject.Object]++instance GObject URIResponse where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_uri_response_get_type+    ++class GObject o => URIResponseK o+instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o++toURIResponse :: URIResponseK o => o -> IO URIResponse+toURIResponse = unsafeCastTo URIResponse++noURIResponse :: Maybe URIResponse+noURIResponse = Nothing++-- VVV Prop "content-length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getURIResponseContentLength :: (MonadIO m, URIResponseK o) => o -> m Word64+getURIResponseContentLength obj = liftIO $ getObjectPropertyUInt64 obj "content-length"++data URIResponseContentLengthPropertyInfo+instance AttrInfo URIResponseContentLengthPropertyInfo where+    type AttrAllowedOps URIResponseContentLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseContentLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseContentLengthPropertyInfo = URIResponseK+    type AttrGetType URIResponseContentLengthPropertyInfo = Word64+    type AttrLabel URIResponseContentLengthPropertyInfo = "URIResponse::content-length"+    attrGet _ = getURIResponseContentLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "http-headers"+   -- Type: TInterface "Soup" "MessageHeaders"+   -- Flags: [PropertyReadable]++getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m Soup.MessageHeaders+getURIResponseHttpHeaders obj = liftIO $ getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders++data URIResponseHttpHeadersPropertyInfo+instance AttrInfo URIResponseHttpHeadersPropertyInfo where+    type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK+    type AttrGetType URIResponseHttpHeadersPropertyInfo = Soup.MessageHeaders+    type AttrLabel URIResponseHttpHeadersPropertyInfo = "URIResponse::http-headers"+    attrGet _ = getURIResponseHttpHeaders+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "mime-type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getURIResponseMimeType :: (MonadIO m, URIResponseK o) => o -> m T.Text+getURIResponseMimeType obj = liftIO $ getObjectPropertyString obj "mime-type"++data URIResponseMimeTypePropertyInfo+instance AttrInfo URIResponseMimeTypePropertyInfo where+    type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK+    type AttrGetType URIResponseMimeTypePropertyInfo = T.Text+    type AttrLabel URIResponseMimeTypePropertyInfo = "URIResponse::mime-type"+    attrGet _ = getURIResponseMimeType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "status-code"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getURIResponseStatusCode :: (MonadIO m, URIResponseK o) => o -> m Word32+getURIResponseStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code"++data URIResponseStatusCodePropertyInfo+instance AttrInfo URIResponseStatusCodePropertyInfo where+    type AttrAllowedOps URIResponseStatusCodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseStatusCodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseStatusCodePropertyInfo = URIResponseK+    type AttrGetType URIResponseStatusCodePropertyInfo = Word32+    type AttrLabel URIResponseStatusCodePropertyInfo = "URIResponse::status-code"+    attrGet _ = getURIResponseStatusCode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "suggested-filename"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getURIResponseSuggestedFilename :: (MonadIO m, URIResponseK o) => o -> m T.Text+getURIResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename"++data URIResponseSuggestedFilenamePropertyInfo+instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where+    type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK+    type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text+    type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "URIResponse::suggested-filename"+    attrGet _ = getURIResponseSuggestedFilename+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getURIResponseUri :: (MonadIO m, URIResponseK o) => o -> m T.Text+getURIResponseUri obj = liftIO $ getObjectPropertyString obj "uri"++data URIResponseUriPropertyInfo+instance AttrInfo URIResponseUriPropertyInfo where+    type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK+    type AttrGetType URIResponseUriPropertyInfo = T.Text+    type AttrLabel URIResponseUriPropertyInfo = "URIResponse::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 instance SignalList URIResponse = URIResponseSignalList+type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_uri_response_get_content_length" webkit_uri_response_get_content_length :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"+    IO Word64+++uRIResponseGetContentLength ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m Word64+uRIResponseGetContentLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_content_length _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_uri_response_get_http_headers" webkit_uri_response_get_http_headers :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"+    IO (Ptr Soup.MessageHeaders)+++uRIResponseGetHttpHeaders ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m Soup.MessageHeaders+uRIResponseGetHttpHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_http_headers _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_http_headers" result+    result' <- (newBoxed Soup.MessageHeaders) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_response_get_mime_type" webkit_uri_response_get_mime_type :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"+    IO CString+++uRIResponseGetMimeType ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m T.Text+uRIResponseGetMimeType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_mime_type _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_mime_type" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_response_get_status_code" webkit_uri_response_get_status_code :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"+    IO Word32+++uRIResponseGetStatusCode ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m Word32+uRIResponseGetStatusCode _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_status_code _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_uri_response_get_suggested_filename" webkit_uri_response_get_suggested_filename :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"+    IO CString+++uRIResponseGetSuggestedFilename ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m T.Text+uRIResponseGetSuggestedFilename _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_suggested_filename _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_suggested_filename" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_response_get_uri" webkit_uri_response_get_uri :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"+    IO CString+++uRIResponseGetUri ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m T.Text+uRIResponseGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/URIResponse.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2.Objects.URIResponse 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++newtype URIResponse = URIResponse (ForeignPtr URIResponse)+instance GObject URIResponse where+class GObject o => URIResponseK o+instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o+data URIResponseContentLengthPropertyInfo+data URIResponseHttpHeadersPropertyInfo+data URIResponseMimeTypePropertyInfo+data URIResponseStatusCodePropertyInfo+data URIResponseSuggestedFilenamePropertyInfo+data URIResponseUriPropertyInfo
+ GI/WebKit2/Objects/URISchemeRequest.hs view
@@ -0,0 +1,256 @@++{- |+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.URISchemeRequest+    ( ++-- * Exported types+    URISchemeRequest(..)                    ,+    URISchemeRequestK                       ,+    toURISchemeRequest                      ,+    noURISchemeRequest                      ,+++ -- * Methods+-- ** uRISchemeRequestFinish+    uRISchemeRequestFinish                  ,+++-- ** uRISchemeRequestFinishError+    uRISchemeRequestFinishError             ,+++-- ** uRISchemeRequestGetPath+    uRISchemeRequestGetPath                 ,+++-- ** uRISchemeRequestGetScheme+    uRISchemeRequestGetScheme               ,+++-- ** uRISchemeRequestGetUri+    uRISchemeRequestGetUri                  ,+++-- ** uRISchemeRequestGetWebView+    uRISchemeRequestGetWebView              ,+++++    ) 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+import qualified GI.Gio as Gio++newtype URISchemeRequest = URISchemeRequest (ForeignPtr URISchemeRequest)+foreign import ccall "webkit_uri_scheme_request_get_type"+    c_webkit_uri_scheme_request_get_type :: IO GType++type instance ParentTypes URISchemeRequest = URISchemeRequestParentTypes+type URISchemeRequestParentTypes = '[GObject.Object]++instance GObject URISchemeRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_uri_scheme_request_get_type+    ++class GObject o => URISchemeRequestK o+instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o++toURISchemeRequest :: URISchemeRequestK o => o -> IO URISchemeRequest+toURISchemeRequest = unsafeCastTo URISchemeRequest++noURISchemeRequest :: Maybe URISchemeRequest+noURISchemeRequest = Nothing++type instance AttributeList URISchemeRequest = URISchemeRequestAttributeList+type URISchemeRequestAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList URISchemeRequest = URISchemeRequestSignalList+type URISchemeRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_uri_scheme_request_finish" webkit_uri_scheme_request_finish :: +    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"+    Ptr Gio.InputStream ->                  -- stream : TInterface "Gio" "InputStream"+    Int64 ->                                -- stream_length : TBasicType TInt64+    CString ->                              -- mime_type : TBasicType TUTF8+    IO ()+++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+    let _obj' = unsafeManagedPtrCastPtr _obj+    let stream' = unsafeManagedPtrCastPtr stream+    maybeMime_type <- case mime_type 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+    touchManagedPtr _obj+    touchManagedPtr stream+    freeMem maybeMime_type+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_uri_scheme_request_finish_error" webkit_uri_scheme_request_finish_error :: +    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"+    Ptr GError ->                           -- error : TError+    IO ()+++uRISchemeRequestFinishError ::+    (MonadIO m, URISchemeRequestK a) =>+    a ->                                    -- _obj+    GError ->                               -- error+    m ()+uRISchemeRequestFinishError _obj error_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let error_' = unsafeManagedPtrGetPtr error_+    webkit_uri_scheme_request_finish_error _obj' error_'+    touchManagedPtr _obj+    touchManagedPtr error_+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_uri_scheme_request_get_path" webkit_uri_scheme_request_get_path :: +    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"+    IO CString+++uRISchemeRequestGetPath ::+    (MonadIO m, URISchemeRequestK a) =>+    a ->                                    -- _obj+    m T.Text+uRISchemeRequestGetPath _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_scheme_request_get_path _obj'+    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_path" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_scheme_request_get_scheme" webkit_uri_scheme_request_get_scheme :: +    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"+    IO CString+++uRISchemeRequestGetScheme ::+    (MonadIO m, URISchemeRequestK a) =>+    a ->                                    -- _obj+    m T.Text+uRISchemeRequestGetScheme _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_scheme_request_get_scheme _obj'+    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_scheme" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_scheme_request_get_uri" webkit_uri_scheme_request_get_uri :: +    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"+    IO CString+++uRISchemeRequestGetUri ::+    (MonadIO m, URISchemeRequestK a) =>+    a ->                                    -- _obj+    m T.Text+uRISchemeRequestGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_scheme_request_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_uri_scheme_request_get_web_view" webkit_uri_scheme_request_get_web_view :: +    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"+    IO (Ptr WebView)+++uRISchemeRequestGetWebView ::+    (MonadIO m, URISchemeRequestK a) =>+    a ->                                    -- _obj+    m WebView+uRISchemeRequestGetWebView _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_scheme_request_get_web_view _obj'+    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_web_view" result+    result' <- (newObject WebView) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/URISchemeRequest.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.URISchemeRequest 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++newtype URISchemeRequest = URISchemeRequest (ForeignPtr URISchemeRequest)+instance GObject URISchemeRequest where+class GObject o => URISchemeRequestK o+instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o
+ GI/WebKit2/Objects/UserContentManager.hs view
@@ -0,0 +1,334 @@++{- |+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.UserContentManager+    ( ++-- * Exported types+    UserContentManager(..)                  ,+    UserContentManagerK                     ,+    toUserContentManager                    ,+    noUserContentManager                    ,+++ -- * Methods+-- ** userContentManagerAddScript+    userContentManagerAddScript             ,+++-- ** userContentManagerAddStyleSheet+    userContentManagerAddStyleSheet         ,+++-- ** userContentManagerNew+    userContentManagerNew                   ,+++-- ** userContentManagerRegisterScriptMessageHandler+    userContentManagerRegisterScriptMessageHandler,+++-- ** userContentManagerRemoveAllScripts+    userContentManagerRemoveAllScripts      ,+++-- ** userContentManagerRemoveAllStyleSheets+    userContentManagerRemoveAllStyleSheets  ,+++-- ** userContentManagerUnregisterScriptMessageHandler+    userContentManagerUnregisterScriptMessageHandler,+++++ -- * Signals+-- ** ScriptMessageReceived+    UserContentManagerScriptMessageReceivedCallback,+    UserContentManagerScriptMessageReceivedCallbackC,+    UserContentManagerScriptMessageReceivedSignalInfo,+    afterUserContentManagerScriptMessageReceived,+    mkUserContentManagerScriptMessageReceivedCallback,+    noUserContentManagerScriptMessageReceivedCallback,+    onUserContentManagerScriptMessageReceived,+    userContentManagerScriptMessageReceivedCallbackWrapper,+    userContentManagerScriptMessageReceivedClosure,+++++    ) 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 UserContentManager = UserContentManager (ForeignPtr UserContentManager)+foreign import ccall "webkit_user_content_manager_get_type"+    c_webkit_user_content_manager_get_type :: IO GType++type instance ParentTypes UserContentManager = UserContentManagerParentTypes+type UserContentManagerParentTypes = '[GObject.Object]++instance GObject UserContentManager where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_user_content_manager_get_type+    ++class GObject o => UserContentManagerK o+instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o++toUserContentManager :: UserContentManagerK o => o -> IO UserContentManager+toUserContentManager = unsafeCastTo UserContentManager++noUserContentManager :: Maybe UserContentManager+noUserContentManager = Nothing++-- signal UserContentManager::script-message-received+type UserContentManagerScriptMessageReceivedCallback =+    JavascriptResult ->+    IO ()++noUserContentManagerScriptMessageReceivedCallback :: Maybe UserContentManagerScriptMessageReceivedCallback+noUserContentManagerScriptMessageReceivedCallback = Nothing++type UserContentManagerScriptMessageReceivedCallbackC =+    Ptr () ->                               -- object+    Ptr JavascriptResult ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkUserContentManagerScriptMessageReceivedCallback :: UserContentManagerScriptMessageReceivedCallbackC -> IO (FunPtr UserContentManagerScriptMessageReceivedCallbackC)++userContentManagerScriptMessageReceivedClosure :: UserContentManagerScriptMessageReceivedCallback -> IO Closure+userContentManagerScriptMessageReceivedClosure cb = newCClosure =<< mkUserContentManagerScriptMessageReceivedCallback wrapped+    where wrapped = userContentManagerScriptMessageReceivedCallbackWrapper cb++userContentManagerScriptMessageReceivedCallbackWrapper ::+    UserContentManagerScriptMessageReceivedCallback ->+    Ptr () ->+    Ptr JavascriptResult ->+    Ptr () ->+    IO ()+userContentManagerScriptMessageReceivedCallbackWrapper _cb _ js_result _ = do+    js_result' <- (newBoxed JavascriptResult) js_result+    _cb  js_result'++onUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId+onUserContentManagerScriptMessageReceived obj cb = liftIO $ connectUserContentManagerScriptMessageReceived obj cb SignalConnectBefore+afterUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId+afterUserContentManagerScriptMessageReceived obj cb = connectUserContentManagerScriptMessageReceived obj cb SignalConnectAfter++connectUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) =>+                                                  a -> UserContentManagerScriptMessageReceivedCallback -> SignalConnectMode -> m SignalHandlerId+connectUserContentManagerScriptMessageReceived obj cb after = liftIO $ do+    cb' <- mkUserContentManagerScriptMessageReceivedCallback (userContentManagerScriptMessageReceivedCallbackWrapper cb)+    connectSignalFunPtr obj "script-message-received" cb' after++type instance AttributeList UserContentManager = UserContentManagerAttributeList+type UserContentManagerAttributeList = ('[ ] :: [(Symbol, *)])++data UserContentManagerScriptMessageReceivedSignalInfo+instance SignalInfo UserContentManagerScriptMessageReceivedSignalInfo where+    type HaskellCallbackType UserContentManagerScriptMessageReceivedSignalInfo = UserContentManagerScriptMessageReceivedCallback+    connectSignal _ = connectUserContentManagerScriptMessageReceived++type instance SignalList UserContentManager = UserContentManagerSignalList+type UserContentManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("script-message-received", UserContentManagerScriptMessageReceivedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method UserContentManager::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2" "UserContentManager"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_user_content_manager_new" webkit_user_content_manager_new :: +    IO (Ptr UserContentManager)+++userContentManagerNew ::+    (MonadIO m) =>+    m UserContentManager+userContentManagerNew  = liftIO $ do+    result <- webkit_user_content_manager_new+    checkUnexpectedReturnNULL "webkit_user_content_manager_new" result+    result' <- (wrapObject UserContentManager) result+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_user_content_manager_add_script" webkit_user_content_manager_add_script :: +    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"+    Ptr UserScript ->                       -- script : TInterface "WebKit2" "UserScript"+    IO ()+++userContentManagerAddScript ::+    (MonadIO m, UserContentManagerK a) =>+    a ->                                    -- _obj+    UserScript ->                           -- script+    m ()+userContentManagerAddScript _obj script = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let script' = unsafeManagedPtrGetPtr script+    webkit_user_content_manager_add_script _obj' script'+    touchManagedPtr _obj+    touchManagedPtr script+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_user_content_manager_add_style_sheet" webkit_user_content_manager_add_style_sheet :: +    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"+    Ptr UserStyleSheet ->                   -- stylesheet : TInterface "WebKit2" "UserStyleSheet"+    IO ()+++userContentManagerAddStyleSheet ::+    (MonadIO m, UserContentManagerK a) =>+    a ->                                    -- _obj+    UserStyleSheet ->                       -- stylesheet+    m ()+userContentManagerAddStyleSheet _obj stylesheet = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let stylesheet' = unsafeManagedPtrGetPtr stylesheet+    webkit_user_content_manager_add_style_sheet _obj' stylesheet'+    touchManagedPtr _obj+    touchManagedPtr stylesheet+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_user_content_manager_register_script_message_handler" webkit_user_content_manager_register_script_message_handler :: +    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"+    CString ->                              -- name : TBasicType TUTF8+    IO CInt+++userContentManagerRegisterScriptMessageHandler ::+    (MonadIO m, UserContentManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- name+    m Bool+userContentManagerRegisterScriptMessageHandler _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    name' <- textToCString name+    result <- webkit_user_content_manager_register_script_message_handler _obj' name'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_user_content_manager_remove_all_scripts" webkit_user_content_manager_remove_all_scripts :: +    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"+    IO ()+++userContentManagerRemoveAllScripts ::+    (MonadIO m, UserContentManagerK a) =>+    a ->                                    -- _obj+    m ()+userContentManagerRemoveAllScripts _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_user_content_manager_remove_all_scripts _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_user_content_manager_remove_all_style_sheets" webkit_user_content_manager_remove_all_style_sheets :: +    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"+    IO ()+++userContentManagerRemoveAllStyleSheets ::+    (MonadIO m, UserContentManagerK a) =>+    a ->                                    -- _obj+    m ()+userContentManagerRemoveAllStyleSheets _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_user_content_manager_remove_all_style_sheets _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_user_content_manager_unregister_script_message_handler" webkit_user_content_manager_unregister_script_message_handler :: +    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"+    CString ->                              -- name : TBasicType TUTF8+    IO ()+++userContentManagerUnregisterScriptMessageHandler ::+    (MonadIO m, UserContentManagerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- name+    m ()+userContentManagerUnregisterScriptMessageHandler _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    name' <- textToCString name+    webkit_user_content_manager_unregister_script_message_handler _obj' name'+    touchManagedPtr _obj+    freeMem name'+    return ()++
+ GI/WebKit2/Objects/UserContentManager.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2.Objects.UserContentManager 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++newtype UserContentManager = UserContentManager (ForeignPtr UserContentManager)+instance GObject UserContentManager where+class GObject o => UserContentManagerK o+instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o+data UserContentManagerScriptMessageReceivedSignalInfo
+ GI/WebKit2/Objects/UserMediaPermissionRequest.hs view
@@ -0,0 +1,107 @@++{- |+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.UserMediaPermissionRequest+    ( ++-- * Exported types+    UserMediaPermissionRequest(..)          ,+    UserMediaPermissionRequestK             ,+    toUserMediaPermissionRequest            ,+    noUserMediaPermissionRequest            ,+++ -- * Properties+-- ** IsForAudioDevice+    UserMediaPermissionRequestIsForAudioDevicePropertyInfo,+    getUserMediaPermissionRequestIsForAudioDevice,+++-- ** IsForVideoDevice+    UserMediaPermissionRequestIsForVideoDevicePropertyInfo,+    getUserMediaPermissionRequestIsForVideoDevice,+++++    ) 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 UserMediaPermissionRequest = UserMediaPermissionRequest (ForeignPtr UserMediaPermissionRequest)+foreign import ccall "webkit_user_media_permission_request_get_type"+    c_webkit_user_media_permission_request_get_type :: IO GType++type instance ParentTypes UserMediaPermissionRequest = UserMediaPermissionRequestParentTypes+type UserMediaPermissionRequestParentTypes = '[GObject.Object, PermissionRequest]++instance GObject UserMediaPermissionRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_user_media_permission_request_get_type+    ++class GObject o => UserMediaPermissionRequestK o+instance (GObject o, IsDescendantOf UserMediaPermissionRequest o) => UserMediaPermissionRequestK o++toUserMediaPermissionRequest :: UserMediaPermissionRequestK o => o -> IO UserMediaPermissionRequest+toUserMediaPermissionRequest = unsafeCastTo UserMediaPermissionRequest++noUserMediaPermissionRequest :: Maybe UserMediaPermissionRequest+noUserMediaPermissionRequest = Nothing++-- VVV Prop "is-for-audio-device"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getUserMediaPermissionRequestIsForAudioDevice :: (MonadIO m, UserMediaPermissionRequestK o) => o -> m Bool+getUserMediaPermissionRequestIsForAudioDevice obj = liftIO $ getObjectPropertyBool obj "is-for-audio-device"++data UserMediaPermissionRequestIsForAudioDevicePropertyInfo+instance AttrInfo UserMediaPermissionRequestIsForAudioDevicePropertyInfo where+    type AttrAllowedOps UserMediaPermissionRequestIsForAudioDevicePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = (~) ()+    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = UserMediaPermissionRequestK+    type AttrGetType UserMediaPermissionRequestIsForAudioDevicePropertyInfo = Bool+    type AttrLabel UserMediaPermissionRequestIsForAudioDevicePropertyInfo = "UserMediaPermissionRequest::is-for-audio-device"+    attrGet _ = getUserMediaPermissionRequestIsForAudioDevice+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "is-for-video-device"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getUserMediaPermissionRequestIsForVideoDevice :: (MonadIO m, UserMediaPermissionRequestK o) => o -> m Bool+getUserMediaPermissionRequestIsForVideoDevice obj = liftIO $ getObjectPropertyBool obj "is-for-video-device"++data UserMediaPermissionRequestIsForVideoDevicePropertyInfo+instance AttrInfo UserMediaPermissionRequestIsForVideoDevicePropertyInfo where+    type AttrAllowedOps UserMediaPermissionRequestIsForVideoDevicePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = (~) ()+    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = UserMediaPermissionRequestK+    type AttrGetType UserMediaPermissionRequestIsForVideoDevicePropertyInfo = Bool+    type AttrLabel UserMediaPermissionRequestIsForVideoDevicePropertyInfo = "UserMediaPermissionRequest::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 instance SignalList UserMediaPermissionRequest = UserMediaPermissionRequestSignalList+type UserMediaPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2/Objects/UserMediaPermissionRequest.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2.Objects.UserMediaPermissionRequest 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++newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ForeignPtr UserMediaPermissionRequest)+instance GObject UserMediaPermissionRequest where+class GObject o => UserMediaPermissionRequestK o+instance (GObject o, IsDescendantOf UserMediaPermissionRequest o) => UserMediaPermissionRequestK o+data UserMediaPermissionRequestIsForAudioDevicePropertyInfo+data UserMediaPermissionRequestIsForVideoDevicePropertyInfo
+ GI/WebKit2/Objects/WebContext.hs view
@@ -0,0 +1,1142 @@++{- |+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.WebContext+    ( ++-- * Exported types+    WebContext(..)                          ,+    WebContextK                             ,+    toWebContext                            ,+    noWebContext                            ,+++ -- * Methods+-- ** webContextAllowTlsCertificateForHost+    webContextAllowTlsCertificateForHost    ,+++-- ** webContextClearCache+    webContextClearCache                    ,+++-- ** webContextDownloadUri+    webContextDownloadUri                   ,+++-- ** webContextGetCacheModel+    webContextGetCacheModel                 ,+++-- ** webContextGetCookieManager+    webContextGetCookieManager              ,+++-- ** webContextGetDefault+    webContextGetDefault                    ,+++-- ** webContextGetFaviconDatabase+    webContextGetFaviconDatabase            ,+++-- ** webContextGetFaviconDatabaseDirectory+    webContextGetFaviconDatabaseDirectory   ,+++-- ** webContextGetPlugins+    webContextGetPlugins                    ,+++-- ** webContextGetPluginsFinish+    webContextGetPluginsFinish              ,+++-- ** webContextGetProcessModel+    webContextGetProcessModel               ,+++-- ** webContextGetSecurityManager+    webContextGetSecurityManager            ,+++-- ** webContextGetSpellCheckingEnabled+    webContextGetSpellCheckingEnabled       ,+++-- ** webContextGetSpellCheckingLanguages+    webContextGetSpellCheckingLanguages     ,+++-- ** webContextGetTlsErrorsPolicy+    webContextGetTlsErrorsPolicy            ,+++-- ** webContextNew+    webContextNew                           ,+++-- ** webContextPrefetchDns+    webContextPrefetchDns                   ,+++-- ** webContextRegisterUriScheme+    webContextRegisterUriScheme             ,+++-- ** webContextSetAdditionalPluginsDirectory+    webContextSetAdditionalPluginsDirectory ,+++-- ** webContextSetCacheModel+    webContextSetCacheModel                 ,+++-- ** webContextSetDiskCacheDirectory+    webContextSetDiskCacheDirectory         ,+++-- ** webContextSetFaviconDatabaseDirectory+    webContextSetFaviconDatabaseDirectory   ,+++-- ** webContextSetPreferredLanguages+    webContextSetPreferredLanguages         ,+++-- ** webContextSetProcessModel+    webContextSetProcessModel               ,+++-- ** webContextSetSpellCheckingEnabled+    webContextSetSpellCheckingEnabled       ,+++-- ** webContextSetSpellCheckingLanguages+    webContextSetSpellCheckingLanguages     ,+++-- ** webContextSetTlsErrorsPolicy+    webContextSetTlsErrorsPolicy            ,+++-- ** webContextSetWebExtensionsDirectory+    webContextSetWebExtensionsDirectory     ,+++-- ** webContextSetWebExtensionsInitializationUserData+    webContextSetWebExtensionsInitializationUserData,+++++ -- * Properties+-- ** LocalStorageDirectory+    WebContextLocalStorageDirectoryPropertyInfo,+    constructWebContextLocalStorageDirectory,+    getWebContextLocalStorageDirectory      ,+++++ -- * Signals+-- ** DownloadStarted+    WebContextDownloadStartedCallback       ,+    WebContextDownloadStartedCallbackC      ,+    WebContextDownloadStartedSignalInfo     ,+    afterWebContextDownloadStarted          ,+    mkWebContextDownloadStartedCallback     ,+    noWebContextDownloadStartedCallback     ,+    onWebContextDownloadStarted             ,+    webContextDownloadStartedCallbackWrapper,+    webContextDownloadStartedClosure        ,+++-- ** InitializeWebExtensions+    WebContextInitializeWebExtensionsCallback,+    WebContextInitializeWebExtensionsCallbackC,+    WebContextInitializeWebExtensionsSignalInfo,+    afterWebContextInitializeWebExtensions  ,+    mkWebContextInitializeWebExtensionsCallback,+    noWebContextInitializeWebExtensionsCallback,+    onWebContextInitializeWebExtensions     ,+    webContextInitializeWebExtensionsCallbackWrapper,+    webContextInitializeWebExtensionsClosure,+++++    ) 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.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype WebContext = WebContext (ForeignPtr WebContext)+foreign import ccall "webkit_web_context_get_type"+    c_webkit_web_context_get_type :: IO GType++type instance ParentTypes WebContext = WebContextParentTypes+type WebContextParentTypes = '[GObject.Object]++instance GObject WebContext where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_web_context_get_type+    ++class GObject o => WebContextK o+instance (GObject o, IsDescendantOf WebContext o) => WebContextK o++toWebContext :: WebContextK o => o -> IO WebContext+toWebContext = unsafeCastTo WebContext++noWebContext :: Maybe WebContext+noWebContext = Nothing++-- signal WebContext::download-started+type WebContextDownloadStartedCallback =+    Download ->+    IO ()++noWebContextDownloadStartedCallback :: Maybe WebContextDownloadStartedCallback+noWebContextDownloadStartedCallback = Nothing++type WebContextDownloadStartedCallbackC =+    Ptr () ->                               -- object+    Ptr Download ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebContextDownloadStartedCallback :: WebContextDownloadStartedCallbackC -> IO (FunPtr WebContextDownloadStartedCallbackC)++webContextDownloadStartedClosure :: WebContextDownloadStartedCallback -> IO Closure+webContextDownloadStartedClosure cb = newCClosure =<< mkWebContextDownloadStartedCallback wrapped+    where wrapped = webContextDownloadStartedCallbackWrapper cb++webContextDownloadStartedCallbackWrapper ::+    WebContextDownloadStartedCallback ->+    Ptr () ->+    Ptr Download ->+    Ptr () ->+    IO ()+webContextDownloadStartedCallbackWrapper _cb _ download _ = do+    download' <- (newObject Download) download+    _cb  download'++onWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId+onWebContextDownloadStarted obj cb = liftIO $ connectWebContextDownloadStarted obj cb SignalConnectBefore+afterWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId+afterWebContextDownloadStarted obj cb = connectWebContextDownloadStarted obj cb SignalConnectAfter++connectWebContextDownloadStarted :: (GObject a, MonadIO m) =>+                                    a -> WebContextDownloadStartedCallback -> SignalConnectMode -> m SignalHandlerId+connectWebContextDownloadStarted obj cb after = liftIO $ do+    cb' <- mkWebContextDownloadStartedCallback (webContextDownloadStartedCallbackWrapper cb)+    connectSignalFunPtr obj "download-started" cb' after++-- signal WebContext::initialize-web-extensions+type WebContextInitializeWebExtensionsCallback =+    IO ()++noWebContextInitializeWebExtensionsCallback :: Maybe WebContextInitializeWebExtensionsCallback+noWebContextInitializeWebExtensionsCallback = Nothing++type WebContextInitializeWebExtensionsCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebContextInitializeWebExtensionsCallback :: WebContextInitializeWebExtensionsCallbackC -> IO (FunPtr WebContextInitializeWebExtensionsCallbackC)++webContextInitializeWebExtensionsClosure :: WebContextInitializeWebExtensionsCallback -> IO Closure+webContextInitializeWebExtensionsClosure cb = newCClosure =<< mkWebContextInitializeWebExtensionsCallback wrapped+    where wrapped = webContextInitializeWebExtensionsCallbackWrapper cb++webContextInitializeWebExtensionsCallbackWrapper ::+    WebContextInitializeWebExtensionsCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+webContextInitializeWebExtensionsCallbackWrapper _cb _ _ = do+    _cb ++onWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId+onWebContextInitializeWebExtensions obj cb = liftIO $ connectWebContextInitializeWebExtensions obj cb SignalConnectBefore+afterWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId+afterWebContextInitializeWebExtensions obj cb = connectWebContextInitializeWebExtensions obj cb SignalConnectAfter++connectWebContextInitializeWebExtensions :: (GObject a, MonadIO m) =>+                                            a -> WebContextInitializeWebExtensionsCallback -> SignalConnectMode -> m SignalHandlerId+connectWebContextInitializeWebExtensions obj cb after = liftIO $ do+    cb' <- mkWebContextInitializeWebExtensionsCallback (webContextInitializeWebExtensionsCallbackWrapper cb)+    connectSignalFunPtr obj "initialize-web-extensions" cb' after++-- VVV Prop "local-storage-directory"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWebContextLocalStorageDirectory :: (MonadIO m, WebContextK o) => o -> m T.Text+getWebContextLocalStorageDirectory obj = liftIO $ getObjectPropertyString obj "local-storage-directory"++constructWebContextLocalStorageDirectory :: T.Text -> IO ([Char], GValue)+constructWebContextLocalStorageDirectory val = constructObjectPropertyString "local-storage-directory" val++data WebContextLocalStorageDirectoryPropertyInfo+instance AttrInfo WebContextLocalStorageDirectoryPropertyInfo where+    type AttrAllowedOps WebContextLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = WebContextK+    type AttrGetType WebContextLocalStorageDirectoryPropertyInfo = T.Text+    type AttrLabel WebContextLocalStorageDirectoryPropertyInfo = "WebContext::local-storage-directory"+    attrGet _ = getWebContextLocalStorageDirectory+    attrSet _ = undefined+    attrConstruct _ = constructWebContextLocalStorageDirectory++type instance AttributeList WebContext = WebContextAttributeList+type WebContextAttributeList = ('[ '("local-storage-directory", WebContextLocalStorageDirectoryPropertyInfo)] :: [(Symbol, *)])++data WebContextDownloadStartedSignalInfo+instance SignalInfo WebContextDownloadStartedSignalInfo where+    type HaskellCallbackType WebContextDownloadStartedSignalInfo = WebContextDownloadStartedCallback+    connectSignal _ = connectWebContextDownloadStarted++data WebContextInitializeWebExtensionsSignalInfo+instance SignalInfo WebContextInitializeWebExtensionsSignalInfo where+    type HaskellCallbackType WebContextInitializeWebExtensionsSignalInfo = WebContextInitializeWebExtensionsCallback+    connectSignal _ = connectWebContextInitializeWebExtensions++type instance SignalList WebContext = WebContextSignalList+type WebContextSignalList = ('[ '("download-started", WebContextDownloadStartedSignalInfo), '("initialize-web-extensions", WebContextInitializeWebExtensionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method WebContext::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2" "WebContext"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_new" webkit_web_context_new :: +    IO (Ptr WebContext)+++webContextNew ::+    (MonadIO m) =>+    m WebContext+webContextNew  = liftIO $ do+    result <- webkit_web_context_new+    checkUnexpectedReturnNULL "webkit_web_context_new" result+    result' <- (wrapObject WebContext) result+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_allow_tls_certificate_for_host" webkit_web_context_allow_tls_certificate_for_host :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    Ptr Gio.TlsCertificate ->               -- certificate : TInterface "Gio" "TlsCertificate"+    CString ->                              -- host : TBasicType TUTF8+    IO ()+++webContextAllowTlsCertificateForHost ::+    (MonadIO m, WebContextK a, Gio.TlsCertificateK b) =>+    a ->                                    -- _obj+    b ->                                    -- certificate+    T.Text ->                               -- host+    m ()+webContextAllowTlsCertificateForHost _obj certificate host = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let certificate' = unsafeManagedPtrCastPtr certificate+    host' <- textToCString host+    webkit_web_context_allow_tls_certificate_for_host _obj' certificate' host'+    touchManagedPtr _obj+    touchManagedPtr certificate+    freeMem host'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_clear_cache" webkit_web_context_clear_cache :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO ()+++webContextClearCache ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m ()+webContextClearCache _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_web_context_clear_cache _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_download_uri" webkit_web_context_download_uri :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CString ->                              -- uri : TBasicType TUTF8+    IO (Ptr Download)+++webContextDownloadUri ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- uri+    m Download+webContextDownloadUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    uri' <- textToCString uri+    result <- webkit_web_context_download_uri _obj' uri'+    checkUnexpectedReturnNULL "webkit_web_context_download_uri" result+    result' <- (wrapObject Download) result+    touchManagedPtr _obj+    freeMem uri'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_cache_model" webkit_web_context_get_cache_model :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO CUInt+++webContextGetCacheModel ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m CacheModel+webContextGetCacheModel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_cache_model _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_cookie_manager" webkit_web_context_get_cookie_manager :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO (Ptr CookieManager)+++webContextGetCookieManager ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m CookieManager+webContextGetCookieManager _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_cookie_manager _obj'+    checkUnexpectedReturnNULL "webkit_web_context_get_cookie_manager" result+    result' <- (newObject CookieManager) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_favicon_database" webkit_web_context_get_favicon_database :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO (Ptr FaviconDatabase)+++webContextGetFaviconDatabase ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m FaviconDatabase+webContextGetFaviconDatabase _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_favicon_database _obj'+    checkUnexpectedReturnNULL "webkit_web_context_get_favicon_database" result+    result' <- (newObject FaviconDatabase) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_favicon_database_directory" webkit_web_context_get_favicon_database_directory :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO CString+++webContextGetFaviconDatabaseDirectory ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m T.Text+webContextGetFaviconDatabaseDirectory _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_favicon_database_directory _obj'+    checkUnexpectedReturnNULL "webkit_web_context_get_favicon_database_directory" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_plugins" webkit_web_context_get_plugins :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++webContextGetPlugins ::+    (MonadIO m, WebContextK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+webContextGetPlugins _obj cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    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_context_get_plugins _obj' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_plugins_finish" webkit_web_context_get_plugins_finish :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr (GList (Ptr Plugin)))+++webContextGetPluginsFinish ::+    (MonadIO m, WebContextK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m [Plugin]+webContextGetPluginsFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ webkit_web_context_get_plugins_finish _obj' result_'+        checkUnexpectedReturnNULL "webkit_web_context_get_plugins_finish" result+        result' <- unpackGList result+        result'' <- mapM (wrapObject Plugin) result'+        g_list_free result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result''+     ) (do+        return ()+     )++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_process_model" webkit_web_context_get_process_model :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO CUInt+++webContextGetProcessModel ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m ProcessModel+webContextGetProcessModel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_process_model _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_security_manager" webkit_web_context_get_security_manager :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO (Ptr SecurityManager)+++webContextGetSecurityManager ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m SecurityManager+webContextGetSecurityManager _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_security_manager _obj'+    checkUnexpectedReturnNULL "webkit_web_context_get_security_manager" result+    result' <- (newObject SecurityManager) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_spell_checking_enabled" webkit_web_context_get_spell_checking_enabled :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO CInt+++webContextGetSpellCheckingEnabled ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m Bool+webContextGetSpellCheckingEnabled _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_spell_checking_enabled _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_spell_checking_languages" webkit_web_context_get_spell_checking_languages :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO (Ptr CString)+++webContextGetSpellCheckingLanguages ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m [T.Text]+webContextGetSpellCheckingLanguages _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_spell_checking_languages _obj'+    checkUnexpectedReturnNULL "webkit_web_context_get_spell_checking_languages" result+    result' <- unpackZeroTerminatedUTF8CArray result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_get_tls_errors_policy" webkit_web_context_get_tls_errors_policy :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    IO CUInt+++webContextGetTlsErrorsPolicy ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    m TLSErrorsPolicy+webContextGetTlsErrorsPolicy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_context_get_tls_errors_policy _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_context_prefetch_dns" webkit_web_context_prefetch_dns :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CString ->                              -- hostname : TBasicType TUTF8+    IO ()+++webContextPrefetchDns ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- hostname+    m ()+webContextPrefetchDns _obj hostname = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    hostname' <- textToCString hostname+    webkit_web_context_prefetch_dns _obj' hostname'+    touchManagedPtr _obj+    freeMem hostname'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_register_uri_scheme" webkit_web_context_register_uri_scheme :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CString ->                              -- scheme : TBasicType TUTF8+    FunPtr URISchemeRequestCallbackC ->     -- callback : TInterface "WebKit2" "URISchemeRequestCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- user_data_destroy_func : TInterface "GLib" "DestroyNotify"+    IO ()+++webContextRegisterUriScheme ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- scheme+    URISchemeRequestCallback ->             -- callback+    m ()+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+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_additional_plugins_directory" webkit_web_context_set_additional_plugins_directory :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CString ->                              -- directory : TBasicType TUTF8+    IO ()+++webContextSetAdditionalPluginsDirectory ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- directory+    m ()+webContextSetAdditionalPluginsDirectory _obj directory = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    directory' <- textToCString directory+    webkit_web_context_set_additional_plugins_directory _obj' directory'+    touchManagedPtr _obj+    freeMem directory'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_cache_model" webkit_web_context_set_cache_model :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CUInt ->                                -- cache_model : TInterface "WebKit2" "CacheModel"+    IO ()+++webContextSetCacheModel ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    CacheModel ->                           -- cache_model+    m ()+webContextSetCacheModel _obj cache_model = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let cache_model' = (fromIntegral . fromEnum) cache_model+    webkit_web_context_set_cache_model _obj' cache_model'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_disk_cache_directory" webkit_web_context_set_disk_cache_directory :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CString ->                              -- directory : TBasicType TUTF8+    IO ()+++webContextSetDiskCacheDirectory ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- directory+    m ()+webContextSetDiskCacheDirectory _obj directory = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    directory' <- textToCString directory+    webkit_web_context_set_disk_cache_directory _obj' directory'+    touchManagedPtr _obj+    freeMem directory'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_favicon_database_directory" webkit_web_context_set_favicon_database_directory :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CString ->                              -- path : TBasicType TUTF8+    IO ()+++webContextSetFaviconDatabaseDirectory ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    Maybe (T.Text) ->                       -- path+    m ()+webContextSetFaviconDatabaseDirectory _obj path = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybePath <- case path of+        Nothing -> return nullPtr+        Just jPath -> do+            jPath' <- textToCString jPath+            return jPath'+    webkit_web_context_set_favicon_database_directory _obj' maybePath+    touchManagedPtr _obj+    freeMem maybePath+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_preferred_languages" webkit_web_context_set_preferred_languages :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO ()+++webContextSetPreferredLanguages ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    Maybe ([T.Text]) ->                     -- languages+    m ()+webContextSetPreferredLanguages _obj languages = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeLanguages <- case languages of+        Nothing -> return nullPtr+        Just jLanguages -> do+            jLanguages' <- packZeroTerminatedUTF8CArray jLanguages+            return jLanguages'+    webkit_web_context_set_preferred_languages _obj' maybeLanguages+    touchManagedPtr _obj+    mapZeroTerminatedCArray freeMem maybeLanguages+    freeMem maybeLanguages+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_process_model" webkit_web_context_set_process_model :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CUInt ->                                -- process_model : TInterface "WebKit2" "ProcessModel"+    IO ()+++webContextSetProcessModel ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    ProcessModel ->                         -- process_model+    m ()+webContextSetProcessModel _obj process_model = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let process_model' = (fromIntegral . fromEnum) process_model+    webkit_web_context_set_process_model _obj' process_model'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_spell_checking_enabled" webkit_web_context_set_spell_checking_enabled :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CInt ->                                 -- enabled : TBasicType TBoolean+    IO ()+++webContextSetSpellCheckingEnabled ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    Bool ->                                 -- enabled+    m ()+webContextSetSpellCheckingEnabled _obj enabled = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let enabled' = (fromIntegral . fromEnum) enabled+    webkit_web_context_set_spell_checking_enabled _obj' enabled'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_spell_checking_languages" webkit_web_context_set_spell_checking_languages :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO ()+++webContextSetSpellCheckingLanguages ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    [T.Text] ->                             -- languages+    m ()+webContextSetSpellCheckingLanguages _obj languages = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    languages' <- packZeroTerminatedUTF8CArray languages+    webkit_web_context_set_spell_checking_languages _obj' languages'+    touchManagedPtr _obj+    mapZeroTerminatedCArray freeMem languages'+    freeMem languages'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_tls_errors_policy" webkit_web_context_set_tls_errors_policy :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CUInt ->                                -- policy : TInterface "WebKit2" "TLSErrorsPolicy"+    IO ()+++webContextSetTlsErrorsPolicy ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    TLSErrorsPolicy ->                      -- policy+    m ()+webContextSetTlsErrorsPolicy _obj policy = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let policy' = (fromIntegral . fromEnum) policy+    webkit_web_context_set_tls_errors_policy _obj' policy'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_web_extensions_directory" webkit_web_context_set_web_extensions_directory :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    CString ->                              -- directory : TBasicType TUTF8+    IO ()+++webContextSetWebExtensionsDirectory ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- directory+    m ()+webContextSetWebExtensionsDirectory _obj directory = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    directory' <- textToCString directory+    webkit_web_context_set_web_extensions_directory _obj' directory'+    touchManagedPtr _obj+    freeMem directory'+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_context_set_web_extensions_initialization_user_data" webkit_web_context_set_web_extensions_initialization_user_data :: +    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"+    Ptr GVariant ->                         -- user_data : TVariant+    IO ()+++webContextSetWebExtensionsInitializationUserData ::+    (MonadIO m, WebContextK a) =>+    a ->                                    -- _obj+    GVariant ->                             -- user_data+    m ()+webContextSetWebExtensionsInitializationUserData _obj user_data = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let user_data' = unsafeManagedPtrGetPtr user_data+    webkit_web_context_set_web_extensions_initialization_user_data _obj' user_data'+    touchManagedPtr _obj+    return ()++-- method WebContext::get_default+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2" "WebContext"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_context_get_default" webkit_web_context_get_default :: +    IO (Ptr WebContext)+++webContextGetDefault ::+    (MonadIO m) =>+    m WebContext+webContextGetDefault  = liftIO $ do+    result <- webkit_web_context_get_default+    checkUnexpectedReturnNULL "webkit_web_context_get_default" result+    result' <- (newObject WebContext) result+    return result'++
+ GI/WebKit2/Objects/WebContext.hs-boot view
@@ -0,0 +1,16 @@+module GI.WebKit2.Objects.WebContext 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++newtype WebContext = WebContext (ForeignPtr WebContext)+instance GObject WebContext where+class GObject o => WebContextK o+instance (GObject o, IsDescendantOf WebContext o) => WebContextK o+data WebContextLocalStorageDirectoryPropertyInfo+data WebContextDownloadStartedSignalInfo+data WebContextInitializeWebExtensionsSignalInfo
+ GI/WebKit2/Objects/WebInspector.hs view
@@ -0,0 +1,677 @@++{- |+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.WebInspector+    ( ++-- * Exported types+    WebInspector(..)                        ,+    WebInspectorK                           ,+    toWebInspector                          ,+    noWebInspector                          ,+++ -- * Methods+-- ** webInspectorAttach+    webInspectorAttach                      ,+++-- ** webInspectorClose+    webInspectorClose                       ,+++-- ** webInspectorDetach+    webInspectorDetach                      ,+++-- ** webInspectorGetAttachedHeight+    webInspectorGetAttachedHeight           ,+++-- ** webInspectorGetCanAttach+    webInspectorGetCanAttach                ,+++-- ** webInspectorGetInspectedUri+    webInspectorGetInspectedUri             ,+++-- ** webInspectorGetWebView+    webInspectorGetWebView                  ,+++-- ** webInspectorIsAttached+    webInspectorIsAttached                  ,+++-- ** webInspectorShow+    webInspectorShow                        ,+++++ -- * Properties+-- ** AttachedHeight+    WebInspectorAttachedHeightPropertyInfo  ,+    getWebInspectorAttachedHeight           ,+++-- ** CanAttach+    WebInspectorCanAttachPropertyInfo       ,+    getWebInspectorCanAttach                ,+++-- ** InspectedUri+    WebInspectorInspectedUriPropertyInfo    ,+    getWebInspectorInspectedUri             ,+++++ -- * Signals+-- ** Attach+    WebInspectorAttachCallback              ,+    WebInspectorAttachCallbackC             ,+    WebInspectorAttachSignalInfo            ,+    afterWebInspectorAttach                 ,+    mkWebInspectorAttachCallback            ,+    noWebInspectorAttachCallback            ,+    onWebInspectorAttach                    ,+    webInspectorAttachCallbackWrapper       ,+    webInspectorAttachClosure               ,+++-- ** BringToFront+    WebInspectorBringToFrontCallback        ,+    WebInspectorBringToFrontCallbackC       ,+    WebInspectorBringToFrontSignalInfo      ,+    afterWebInspectorBringToFront           ,+    mkWebInspectorBringToFrontCallback      ,+    noWebInspectorBringToFrontCallback      ,+    onWebInspectorBringToFront              ,+    webInspectorBringToFrontCallbackWrapper ,+    webInspectorBringToFrontClosure         ,+++-- ** Closed+    WebInspectorClosedCallback              ,+    WebInspectorClosedCallbackC             ,+    WebInspectorClosedSignalInfo            ,+    afterWebInspectorClosed                 ,+    mkWebInspectorClosedCallback            ,+    noWebInspectorClosedCallback            ,+    onWebInspectorClosed                    ,+    webInspectorClosedCallbackWrapper       ,+    webInspectorClosedClosure               ,+++-- ** Detach+    WebInspectorDetachCallback              ,+    WebInspectorDetachCallbackC             ,+    WebInspectorDetachSignalInfo            ,+    afterWebInspectorDetach                 ,+    mkWebInspectorDetachCallback            ,+    noWebInspectorDetachCallback            ,+    onWebInspectorDetach                    ,+    webInspectorDetachCallbackWrapper       ,+    webInspectorDetachClosure               ,+++-- ** OpenWindow+    WebInspectorOpenWindowCallback          ,+    WebInspectorOpenWindowCallbackC         ,+    WebInspectorOpenWindowSignalInfo        ,+    afterWebInspectorOpenWindow             ,+    mkWebInspectorOpenWindowCallback        ,+    noWebInspectorOpenWindowCallback        ,+    onWebInspectorOpenWindow                ,+    webInspectorOpenWindowCallbackWrapper   ,+    webInspectorOpenWindowClosure           ,+++++    ) 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 WebInspector = WebInspector (ForeignPtr WebInspector)+foreign import ccall "webkit_web_inspector_get_type"+    c_webkit_web_inspector_get_type :: IO GType++type instance ParentTypes WebInspector = WebInspectorParentTypes+type WebInspectorParentTypes = '[GObject.Object]++instance GObject WebInspector where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_web_inspector_get_type+    ++class GObject o => WebInspectorK o+instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o++toWebInspector :: WebInspectorK o => o -> IO WebInspector+toWebInspector = unsafeCastTo WebInspector++noWebInspector :: Maybe WebInspector+noWebInspector = Nothing++-- signal WebInspector::attach+type WebInspectorAttachCallback =+    IO Bool++noWebInspectorAttachCallback :: Maybe WebInspectorAttachCallback+noWebInspectorAttachCallback = Nothing++type WebInspectorAttachCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++foreign import ccall "wrapper"+    mkWebInspectorAttachCallback :: WebInspectorAttachCallbackC -> IO (FunPtr WebInspectorAttachCallbackC)++webInspectorAttachClosure :: WebInspectorAttachCallback -> IO Closure+webInspectorAttachClosure cb = newCClosure =<< mkWebInspectorAttachCallback wrapped+    where wrapped = webInspectorAttachCallbackWrapper cb++webInspectorAttachCallbackWrapper ::+    WebInspectorAttachCallback ->+    Ptr () ->+    Ptr () ->+    IO CInt+webInspectorAttachCallbackWrapper _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'++onWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId+onWebInspectorAttach obj cb = liftIO $ connectWebInspectorAttach obj cb SignalConnectBefore+afterWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId+afterWebInspectorAttach obj cb = connectWebInspectorAttach obj cb SignalConnectAfter++connectWebInspectorAttach :: (GObject a, MonadIO m) =>+                             a -> WebInspectorAttachCallback -> SignalConnectMode -> m SignalHandlerId+connectWebInspectorAttach obj cb after = liftIO $ do+    cb' <- mkWebInspectorAttachCallback (webInspectorAttachCallbackWrapper cb)+    connectSignalFunPtr obj "attach" cb' after++-- signal WebInspector::bring-to-front+type WebInspectorBringToFrontCallback =+    IO Bool++noWebInspectorBringToFrontCallback :: Maybe WebInspectorBringToFrontCallback+noWebInspectorBringToFrontCallback = Nothing++type WebInspectorBringToFrontCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++foreign import ccall "wrapper"+    mkWebInspectorBringToFrontCallback :: WebInspectorBringToFrontCallbackC -> IO (FunPtr WebInspectorBringToFrontCallbackC)++webInspectorBringToFrontClosure :: WebInspectorBringToFrontCallback -> IO Closure+webInspectorBringToFrontClosure cb = newCClosure =<< mkWebInspectorBringToFrontCallback wrapped+    where wrapped = webInspectorBringToFrontCallbackWrapper cb++webInspectorBringToFrontCallbackWrapper ::+    WebInspectorBringToFrontCallback ->+    Ptr () ->+    Ptr () ->+    IO CInt+webInspectorBringToFrontCallbackWrapper _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'++onWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId+onWebInspectorBringToFront obj cb = liftIO $ connectWebInspectorBringToFront obj cb SignalConnectBefore+afterWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId+afterWebInspectorBringToFront obj cb = connectWebInspectorBringToFront obj cb SignalConnectAfter++connectWebInspectorBringToFront :: (GObject a, MonadIO m) =>+                                   a -> WebInspectorBringToFrontCallback -> SignalConnectMode -> m SignalHandlerId+connectWebInspectorBringToFront obj cb after = liftIO $ do+    cb' <- mkWebInspectorBringToFrontCallback (webInspectorBringToFrontCallbackWrapper cb)+    connectSignalFunPtr obj "bring-to-front" cb' after++-- signal WebInspector::closed+type WebInspectorClosedCallback =+    IO ()++noWebInspectorClosedCallback :: Maybe WebInspectorClosedCallback+noWebInspectorClosedCallback = Nothing++type WebInspectorClosedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebInspectorClosedCallback :: WebInspectorClosedCallbackC -> IO (FunPtr WebInspectorClosedCallbackC)++webInspectorClosedClosure :: WebInspectorClosedCallback -> IO Closure+webInspectorClosedClosure cb = newCClosure =<< mkWebInspectorClosedCallback wrapped+    where wrapped = webInspectorClosedCallbackWrapper cb++webInspectorClosedCallbackWrapper ::+    WebInspectorClosedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+webInspectorClosedCallbackWrapper _cb _ _ = do+    _cb ++onWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId+onWebInspectorClosed obj cb = liftIO $ connectWebInspectorClosed obj cb SignalConnectBefore+afterWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId+afterWebInspectorClosed obj cb = connectWebInspectorClosed obj cb SignalConnectAfter++connectWebInspectorClosed :: (GObject a, MonadIO m) =>+                             a -> WebInspectorClosedCallback -> SignalConnectMode -> m SignalHandlerId+connectWebInspectorClosed obj cb after = liftIO $ do+    cb' <- mkWebInspectorClosedCallback (webInspectorClosedCallbackWrapper cb)+    connectSignalFunPtr obj "closed" cb' after++-- signal WebInspector::detach+type WebInspectorDetachCallback =+    IO Bool++noWebInspectorDetachCallback :: Maybe WebInspectorDetachCallback+noWebInspectorDetachCallback = Nothing++type WebInspectorDetachCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++foreign import ccall "wrapper"+    mkWebInspectorDetachCallback :: WebInspectorDetachCallbackC -> IO (FunPtr WebInspectorDetachCallbackC)++webInspectorDetachClosure :: WebInspectorDetachCallback -> IO Closure+webInspectorDetachClosure cb = newCClosure =<< mkWebInspectorDetachCallback wrapped+    where wrapped = webInspectorDetachCallbackWrapper cb++webInspectorDetachCallbackWrapper ::+    WebInspectorDetachCallback ->+    Ptr () ->+    Ptr () ->+    IO CInt+webInspectorDetachCallbackWrapper _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'++onWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId+onWebInspectorDetach obj cb = liftIO $ connectWebInspectorDetach obj cb SignalConnectBefore+afterWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId+afterWebInspectorDetach obj cb = connectWebInspectorDetach obj cb SignalConnectAfter++connectWebInspectorDetach :: (GObject a, MonadIO m) =>+                             a -> WebInspectorDetachCallback -> SignalConnectMode -> m SignalHandlerId+connectWebInspectorDetach obj cb after = liftIO $ do+    cb' <- mkWebInspectorDetachCallback (webInspectorDetachCallbackWrapper cb)+    connectSignalFunPtr obj "detach" cb' after++-- signal WebInspector::open-window+type WebInspectorOpenWindowCallback =+    IO Bool++noWebInspectorOpenWindowCallback :: Maybe WebInspectorOpenWindowCallback+noWebInspectorOpenWindowCallback = Nothing++type WebInspectorOpenWindowCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO CInt++foreign import ccall "wrapper"+    mkWebInspectorOpenWindowCallback :: WebInspectorOpenWindowCallbackC -> IO (FunPtr WebInspectorOpenWindowCallbackC)++webInspectorOpenWindowClosure :: WebInspectorOpenWindowCallback -> IO Closure+webInspectorOpenWindowClosure cb = newCClosure =<< mkWebInspectorOpenWindowCallback wrapped+    where wrapped = webInspectorOpenWindowCallbackWrapper cb++webInspectorOpenWindowCallbackWrapper ::+    WebInspectorOpenWindowCallback ->+    Ptr () ->+    Ptr () ->+    IO CInt+webInspectorOpenWindowCallbackWrapper _cb _ _ = do+    result <- _cb +    let result' = (fromIntegral . fromEnum) result+    return result'++onWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId+onWebInspectorOpenWindow obj cb = liftIO $ connectWebInspectorOpenWindow obj cb SignalConnectBefore+afterWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId+afterWebInspectorOpenWindow obj cb = connectWebInspectorOpenWindow obj cb SignalConnectAfter++connectWebInspectorOpenWindow :: (GObject a, MonadIO m) =>+                                 a -> WebInspectorOpenWindowCallback -> SignalConnectMode -> m SignalHandlerId+connectWebInspectorOpenWindow obj cb after = liftIO $ do+    cb' <- mkWebInspectorOpenWindowCallback (webInspectorOpenWindowCallbackWrapper cb)+    connectSignalFunPtr obj "open-window" cb' after++-- VVV Prop "attached-height"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getWebInspectorAttachedHeight :: (MonadIO m, WebInspectorK o) => o -> m Word32+getWebInspectorAttachedHeight obj = liftIO $ getObjectPropertyCUInt obj "attached-height"++data WebInspectorAttachedHeightPropertyInfo+instance AttrInfo WebInspectorAttachedHeightPropertyInfo where+    type AttrAllowedOps WebInspectorAttachedHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebInspectorAttachedHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebInspectorAttachedHeightPropertyInfo = WebInspectorK+    type AttrGetType WebInspectorAttachedHeightPropertyInfo = Word32+    type AttrLabel WebInspectorAttachedHeightPropertyInfo = "WebInspector::attached-height"+    attrGet _ = getWebInspectorAttachedHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "can-attach"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getWebInspectorCanAttach :: (MonadIO m, WebInspectorK o) => o -> m Bool+getWebInspectorCanAttach obj = liftIO $ getObjectPropertyBool obj "can-attach"++data WebInspectorCanAttachPropertyInfo+instance AttrInfo WebInspectorCanAttachPropertyInfo where+    type AttrAllowedOps WebInspectorCanAttachPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebInspectorCanAttachPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebInspectorCanAttachPropertyInfo = WebInspectorK+    type AttrGetType WebInspectorCanAttachPropertyInfo = Bool+    type AttrLabel WebInspectorCanAttachPropertyInfo = "WebInspector::can-attach"+    attrGet _ = getWebInspectorCanAttach+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "inspected-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text+getWebInspectorInspectedUri obj = liftIO $ getObjectPropertyString obj "inspected-uri"++data WebInspectorInspectedUriPropertyInfo+instance AttrInfo WebInspectorInspectedUriPropertyInfo where+    type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK+    type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text+    type AttrLabel WebInspectorInspectedUriPropertyInfo = "WebInspector::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, *)])++data WebInspectorAttachSignalInfo+instance SignalInfo WebInspectorAttachSignalInfo where+    type HaskellCallbackType WebInspectorAttachSignalInfo = WebInspectorAttachCallback+    connectSignal _ = connectWebInspectorAttach++data WebInspectorBringToFrontSignalInfo+instance SignalInfo WebInspectorBringToFrontSignalInfo where+    type HaskellCallbackType WebInspectorBringToFrontSignalInfo = WebInspectorBringToFrontCallback+    connectSignal _ = connectWebInspectorBringToFront++data WebInspectorClosedSignalInfo+instance SignalInfo WebInspectorClosedSignalInfo where+    type HaskellCallbackType WebInspectorClosedSignalInfo = WebInspectorClosedCallback+    connectSignal _ = connectWebInspectorClosed++data WebInspectorDetachSignalInfo+instance SignalInfo WebInspectorDetachSignalInfo where+    type HaskellCallbackType WebInspectorDetachSignalInfo = WebInspectorDetachCallback+    connectSignal _ = connectWebInspectorDetach++data WebInspectorOpenWindowSignalInfo+instance SignalInfo WebInspectorOpenWindowSignalInfo where+    type HaskellCallbackType WebInspectorOpenWindowSignalInfo = WebInspectorOpenWindowCallback+    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, *)])++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_attach" webkit_web_inspector_attach :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO ()+++webInspectorAttach ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m ()+webInspectorAttach _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_web_inspector_attach _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO ()+++webInspectorClose ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m ()+webInspectorClose _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_web_inspector_close _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_detach" webkit_web_inspector_detach :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO ()+++webInspectorDetach ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m ()+webInspectorDetach _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_web_inspector_detach _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_get_attached_height" webkit_web_inspector_get_attached_height :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO Word32+++webInspectorGetAttachedHeight ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m Word32+webInspectorGetAttachedHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_inspector_get_attached_height _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_get_can_attach" webkit_web_inspector_get_can_attach :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO CInt+++webInspectorGetCanAttach ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m Bool+webInspectorGetCanAttach _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_inspector_get_can_attach _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO CString+++webInspectorGetInspectedUri ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m T.Text+webInspectorGetInspectedUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_inspector_get_inspected_uri _obj'+    checkUnexpectedReturnNULL "webkit_web_inspector_get_inspected_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO (Ptr WebViewBase)+++webInspectorGetWebView ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m WebViewBase+webInspectorGetWebView _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_inspector_get_web_view _obj'+    checkUnexpectedReturnNULL "webkit_web_inspector_get_web_view" result+    result' <- (newObject WebViewBase) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_is_attached" webkit_web_inspector_is_attached :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO CInt+++webInspectorIsAttached ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m Bool+webInspectorIsAttached _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_inspector_is_attached _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show :: +    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"+    IO ()+++webInspectorShow ::+    (MonadIO m, WebInspectorK a) =>+    a ->                                    -- _obj+    m ()+webInspectorShow _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_web_inspector_show _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Objects/WebInspector.hs-boot view
@@ -0,0 +1,21 @@+module GI.WebKit2.Objects.WebInspector 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++newtype WebInspector = WebInspector (ForeignPtr WebInspector)+instance GObject WebInspector where+class GObject o => WebInspectorK o+instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o+data WebInspectorAttachedHeightPropertyInfo+data WebInspectorCanAttachPropertyInfo+data WebInspectorInspectedUriPropertyInfo+data WebInspectorAttachSignalInfo+data WebInspectorBringToFrontSignalInfo+data WebInspectorClosedSignalInfo+data WebInspectorDetachSignalInfo+data WebInspectorOpenWindowSignalInfo
+ GI/WebKit2/Objects/WebResource.hs view
@@ -0,0 +1,562 @@++{- |+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.WebResource+    ( ++-- * Exported types+    WebResource(..)                         ,+    WebResourceK                            ,+    toWebResource                           ,+    noWebResource                           ,+++ -- * Methods+-- ** webResourceGetData+    webResourceGetData                      ,+++-- ** webResourceGetDataFinish+    webResourceGetDataFinish                ,+++-- ** webResourceGetResponse+    webResourceGetResponse                  ,+++-- ** webResourceGetUri+    webResourceGetUri                       ,+++++ -- * Properties+-- ** Response+    WebResourceResponsePropertyInfo         ,+    getWebResourceResponse                  ,+++-- ** Uri+    WebResourceUriPropertyInfo              ,+    getWebResourceUri                       ,+++++ -- * Signals+-- ** Failed+    WebResourceFailedCallback               ,+    WebResourceFailedCallbackC              ,+    WebResourceFailedSignalInfo             ,+    afterWebResourceFailed                  ,+    mkWebResourceFailedCallback             ,+    noWebResourceFailedCallback             ,+    onWebResourceFailed                     ,+    webResourceFailedCallbackWrapper        ,+    webResourceFailedClosure                ,+++-- ** FailedWithTlsErrors+    WebResourceFailedWithTlsErrorsCallback  ,+    WebResourceFailedWithTlsErrorsCallbackC ,+    WebResourceFailedWithTlsErrorsSignalInfo,+    afterWebResourceFailedWithTlsErrors     ,+    mkWebResourceFailedWithTlsErrorsCallback,+    noWebResourceFailedWithTlsErrorsCallback,+    onWebResourceFailedWithTlsErrors        ,+    webResourceFailedWithTlsErrorsCallbackWrapper,+    webResourceFailedWithTlsErrorsClosure   ,+++-- ** Finished+    WebResourceFinishedCallback             ,+    WebResourceFinishedCallbackC            ,+    WebResourceFinishedSignalInfo           ,+    afterWebResourceFinished                ,+    mkWebResourceFinishedCallback           ,+    noWebResourceFinishedCallback           ,+    onWebResourceFinished                   ,+    webResourceFinishedCallbackWrapper      ,+    webResourceFinishedClosure              ,+++-- ** ReceivedData+    WebResourceReceivedDataCallback         ,+    WebResourceReceivedDataCallbackC        ,+    WebResourceReceivedDataSignalInfo       ,+    afterWebResourceReceivedData            ,+    mkWebResourceReceivedDataCallback       ,+    noWebResourceReceivedDataCallback       ,+    onWebResourceReceivedData               ,+    webResourceReceivedDataCallbackWrapper  ,+    webResourceReceivedDataClosure          ,+++-- ** SentRequest+    WebResourceSentRequestCallback          ,+    WebResourceSentRequestCallbackC         ,+    WebResourceSentRequestSignalInfo        ,+    afterWebResourceSentRequest             ,+    mkWebResourceSentRequestCallback        ,+    noWebResourceSentRequestCallback        ,+    onWebResourceSentRequest                ,+    webResourceSentRequestCallbackWrapper   ,+    webResourceSentRequestClosure           ,+++++    ) 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+import qualified GI.Gio as Gio++newtype WebResource = WebResource (ForeignPtr WebResource)+foreign import ccall "webkit_web_resource_get_type"+    c_webkit_web_resource_get_type :: IO GType++type instance ParentTypes WebResource = WebResourceParentTypes+type WebResourceParentTypes = '[GObject.Object]++instance GObject WebResource where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_web_resource_get_type+    ++class GObject o => WebResourceK o+instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o++toWebResource :: WebResourceK o => o -> IO WebResource+toWebResource = unsafeCastTo WebResource++noWebResource :: Maybe WebResource+noWebResource = Nothing++-- signal WebResource::failed+type WebResourceFailedCallback =+    Ptr () ->+    IO ()++noWebResourceFailedCallback :: Maybe WebResourceFailedCallback+noWebResourceFailedCallback = Nothing++type WebResourceFailedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebResourceFailedCallback :: WebResourceFailedCallbackC -> IO (FunPtr WebResourceFailedCallbackC)++webResourceFailedClosure :: WebResourceFailedCallback -> IO Closure+webResourceFailedClosure cb = newCClosure =<< mkWebResourceFailedCallback wrapped+    where wrapped = webResourceFailedCallbackWrapper cb++webResourceFailedCallbackWrapper ::+    WebResourceFailedCallback ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO ()+webResourceFailedCallbackWrapper _cb _ error_ _ = do+    _cb  error_++onWebResourceFailed :: (GObject a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId+onWebResourceFailed obj cb = liftIO $ connectWebResourceFailed obj cb SignalConnectBefore+afterWebResourceFailed :: (GObject a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId+afterWebResourceFailed obj cb = connectWebResourceFailed obj cb SignalConnectAfter++connectWebResourceFailed :: (GObject a, MonadIO m) =>+                            a -> WebResourceFailedCallback -> SignalConnectMode -> m SignalHandlerId+connectWebResourceFailed obj cb after = liftIO $ do+    cb' <- mkWebResourceFailedCallback (webResourceFailedCallbackWrapper cb)+    connectSignalFunPtr obj "failed" cb' after++-- signal WebResource::failed-with-tls-errors+type WebResourceFailedWithTlsErrorsCallback =+    Gio.TlsCertificate ->+    [Gio.TlsCertificateFlags] ->+    IO ()++noWebResourceFailedWithTlsErrorsCallback :: Maybe WebResourceFailedWithTlsErrorsCallback+noWebResourceFailedWithTlsErrorsCallback = Nothing++type WebResourceFailedWithTlsErrorsCallbackC =+    Ptr () ->                               -- object+    Ptr Gio.TlsCertificate ->+    CUInt ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebResourceFailedWithTlsErrorsCallback :: WebResourceFailedWithTlsErrorsCallbackC -> IO (FunPtr WebResourceFailedWithTlsErrorsCallbackC)++webResourceFailedWithTlsErrorsClosure :: WebResourceFailedWithTlsErrorsCallback -> IO Closure+webResourceFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebResourceFailedWithTlsErrorsCallback wrapped+    where wrapped = webResourceFailedWithTlsErrorsCallbackWrapper cb++webResourceFailedWithTlsErrorsCallbackWrapper ::+    WebResourceFailedWithTlsErrorsCallback ->+    Ptr () ->+    Ptr Gio.TlsCertificate ->+    CUInt ->+    Ptr () ->+    IO ()+webResourceFailedWithTlsErrorsCallbackWrapper _cb _ certificate errors _ = do+    certificate' <- (newObject Gio.TlsCertificate) certificate+    let errors' = wordToGFlags errors+    _cb  certificate' errors'++onWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId+onWebResourceFailedWithTlsErrors obj cb = liftIO $ connectWebResourceFailedWithTlsErrors obj cb SignalConnectBefore+afterWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId+afterWebResourceFailedWithTlsErrors obj cb = connectWebResourceFailedWithTlsErrors obj cb SignalConnectAfter++connectWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) =>+                                         a -> WebResourceFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId+connectWebResourceFailedWithTlsErrors obj cb after = liftIO $ do+    cb' <- mkWebResourceFailedWithTlsErrorsCallback (webResourceFailedWithTlsErrorsCallbackWrapper cb)+    connectSignalFunPtr obj "failed-with-tls-errors" cb' after++-- signal WebResource::finished+type WebResourceFinishedCallback =+    IO ()++noWebResourceFinishedCallback :: Maybe WebResourceFinishedCallback+noWebResourceFinishedCallback = Nothing++type WebResourceFinishedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebResourceFinishedCallback :: WebResourceFinishedCallbackC -> IO (FunPtr WebResourceFinishedCallbackC)++webResourceFinishedClosure :: WebResourceFinishedCallback -> IO Closure+webResourceFinishedClosure cb = newCClosure =<< mkWebResourceFinishedCallback wrapped+    where wrapped = webResourceFinishedCallbackWrapper cb++webResourceFinishedCallbackWrapper ::+    WebResourceFinishedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+webResourceFinishedCallbackWrapper _cb _ _ = do+    _cb ++onWebResourceFinished :: (GObject a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId+onWebResourceFinished obj cb = liftIO $ connectWebResourceFinished obj cb SignalConnectBefore+afterWebResourceFinished :: (GObject a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId+afterWebResourceFinished obj cb = connectWebResourceFinished obj cb SignalConnectAfter++connectWebResourceFinished :: (GObject a, MonadIO m) =>+                              a -> WebResourceFinishedCallback -> SignalConnectMode -> m SignalHandlerId+connectWebResourceFinished obj cb after = liftIO $ do+    cb' <- mkWebResourceFinishedCallback (webResourceFinishedCallbackWrapper cb)+    connectSignalFunPtr obj "finished" cb' after++-- signal WebResource::received-data+type WebResourceReceivedDataCallback =+    Word64 ->+    IO ()++noWebResourceReceivedDataCallback :: Maybe WebResourceReceivedDataCallback+noWebResourceReceivedDataCallback = Nothing++type WebResourceReceivedDataCallbackC =+    Ptr () ->                               -- object+    Word64 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebResourceReceivedDataCallback :: WebResourceReceivedDataCallbackC -> IO (FunPtr WebResourceReceivedDataCallbackC)++webResourceReceivedDataClosure :: WebResourceReceivedDataCallback -> IO Closure+webResourceReceivedDataClosure cb = newCClosure =<< mkWebResourceReceivedDataCallback wrapped+    where wrapped = webResourceReceivedDataCallbackWrapper cb++webResourceReceivedDataCallbackWrapper ::+    WebResourceReceivedDataCallback ->+    Ptr () ->+    Word64 ->+    Ptr () ->+    IO ()+webResourceReceivedDataCallbackWrapper _cb _ data_length _ = do+    _cb  data_length++onWebResourceReceivedData :: (GObject a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId+onWebResourceReceivedData obj cb = liftIO $ connectWebResourceReceivedData obj cb SignalConnectBefore+afterWebResourceReceivedData :: (GObject a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId+afterWebResourceReceivedData obj cb = connectWebResourceReceivedData obj cb SignalConnectAfter++connectWebResourceReceivedData :: (GObject a, MonadIO m) =>+                                  a -> WebResourceReceivedDataCallback -> SignalConnectMode -> m SignalHandlerId+connectWebResourceReceivedData obj cb after = liftIO $ do+    cb' <- mkWebResourceReceivedDataCallback (webResourceReceivedDataCallbackWrapper cb)+    connectSignalFunPtr obj "received-data" cb' after++-- signal WebResource::sent-request+type WebResourceSentRequestCallback =+    URIRequest ->+    URIResponse ->+    IO ()++noWebResourceSentRequestCallback :: Maybe WebResourceSentRequestCallback+noWebResourceSentRequestCallback = Nothing++type WebResourceSentRequestCallbackC =+    Ptr () ->                               -- object+    Ptr URIRequest ->+    Ptr URIResponse ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebResourceSentRequestCallback :: WebResourceSentRequestCallbackC -> IO (FunPtr WebResourceSentRequestCallbackC)++webResourceSentRequestClosure :: WebResourceSentRequestCallback -> IO Closure+webResourceSentRequestClosure cb = newCClosure =<< mkWebResourceSentRequestCallback wrapped+    where wrapped = webResourceSentRequestCallbackWrapper cb++webResourceSentRequestCallbackWrapper ::+    WebResourceSentRequestCallback ->+    Ptr () ->+    Ptr URIRequest ->+    Ptr URIResponse ->+    Ptr () ->+    IO ()+webResourceSentRequestCallbackWrapper _cb _ request redirected_response _ = do+    request' <- (newObject URIRequest) request+    redirected_response' <- (newObject URIResponse) redirected_response+    _cb  request' redirected_response'++onWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId+onWebResourceSentRequest obj cb = liftIO $ connectWebResourceSentRequest obj cb SignalConnectBefore+afterWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId+afterWebResourceSentRequest obj cb = connectWebResourceSentRequest obj cb SignalConnectAfter++connectWebResourceSentRequest :: (GObject a, MonadIO m) =>+                                 a -> WebResourceSentRequestCallback -> SignalConnectMode -> m SignalHandlerId+connectWebResourceSentRequest obj cb after = liftIO $ do+    cb' <- mkWebResourceSentRequestCallback (webResourceSentRequestCallbackWrapper cb)+    connectSignalFunPtr obj "sent-request" cb' after++-- VVV Prop "response"+   -- Type: TInterface "WebKit2" "URIResponse"+   -- Flags: [PropertyReadable]++getWebResourceResponse :: (MonadIO m, WebResourceK o) => o -> m URIResponse+getWebResourceResponse obj = liftIO $ getObjectPropertyObject obj "response" URIResponse++data WebResourceResponsePropertyInfo+instance AttrInfo WebResourceResponsePropertyInfo where+    type AttrAllowedOps WebResourceResponsePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebResourceResponsePropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebResourceResponsePropertyInfo = WebResourceK+    type AttrGetType WebResourceResponsePropertyInfo = URIResponse+    type AttrLabel WebResourceResponsePropertyInfo = "WebResource::response"+    attrGet _ = getWebResourceResponse+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text+getWebResourceUri obj = liftIO $ getObjectPropertyString obj "uri"++data WebResourceUriPropertyInfo+instance AttrInfo WebResourceUriPropertyInfo where+    type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK+    type AttrGetType WebResourceUriPropertyInfo = T.Text+    type AttrLabel WebResourceUriPropertyInfo = "WebResource::uri"+    attrGet _ = getWebResourceUri+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList WebResource = WebResourceAttributeList+type WebResourceAttributeList = ('[ '("response", WebResourceResponsePropertyInfo), '("uri", WebResourceUriPropertyInfo)] :: [(Symbol, *)])++data WebResourceFailedSignalInfo+instance SignalInfo WebResourceFailedSignalInfo where+    type HaskellCallbackType WebResourceFailedSignalInfo = WebResourceFailedCallback+    connectSignal _ = connectWebResourceFailed++data WebResourceFailedWithTlsErrorsSignalInfo+instance SignalInfo WebResourceFailedWithTlsErrorsSignalInfo where+    type HaskellCallbackType WebResourceFailedWithTlsErrorsSignalInfo = WebResourceFailedWithTlsErrorsCallback+    connectSignal _ = connectWebResourceFailedWithTlsErrors++data WebResourceFinishedSignalInfo+instance SignalInfo WebResourceFinishedSignalInfo where+    type HaskellCallbackType WebResourceFinishedSignalInfo = WebResourceFinishedCallback+    connectSignal _ = connectWebResourceFinished++data WebResourceReceivedDataSignalInfo+instance SignalInfo WebResourceReceivedDataSignalInfo where+    type HaskellCallbackType WebResourceReceivedDataSignalInfo = WebResourceReceivedDataCallback+    connectSignal _ = connectWebResourceReceivedData++data WebResourceSentRequestSignalInfo+instance SignalInfo WebResourceSentRequestSignalInfo where+    type HaskellCallbackType WebResourceSentRequestSignalInfo = WebResourceSentRequestCallback+    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, *)])++-- 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}]+-- 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++foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data :: +    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++webResourceGetData ::+    (MonadIO m, WebResourceK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+webResourceGetData _obj cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    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_resource_get_data _obj' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return ()++-- 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}]+-- returnType : TCArray False (-1) 2 (TBasicType TUInt8)+-- throws : True+-- Skip return : False++foreign import ccall "webkit_web_resource_get_data_finish" webkit_web_resource_get_data_finish :: +    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Word8)+++webResourceGetDataFinish ::+    (MonadIO m, WebResourceK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m ByteString+webResourceGetDataFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ webkit_web_resource_get_data_finish _obj' result_' length_+        length_' <- peek length_+        checkUnexpectedReturnNULL "webkit_web_resource_get_data_finish" result+        result' <- (unpackByteStringWithLength length_') result+        freeMem result+        touchManagedPtr _obj+        touchManagedPtr result_+        freeMem length_+        return result'+     ) (do+        freeMem length_+     )++-- 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}]+-- 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++foreign import ccall "webkit_web_resource_get_response" webkit_web_resource_get_response :: +    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"+    IO (Ptr URIResponse)+++webResourceGetResponse ::+    (MonadIO m, WebResourceK a) =>+    a ->                                    -- _obj+    m URIResponse+webResourceGetResponse _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_resource_get_response _obj'+    checkUnexpectedReturnNULL "webkit_web_resource_get_response" result+    result' <- (newObject URIResponse) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri :: +    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"+    IO CString+++webResourceGetUri ::+    (MonadIO m, WebResourceK a) =>+    a ->                                    -- _obj+    m T.Text+webResourceGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_resource_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_web_resource_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/WebResource.hs-boot view
@@ -0,0 +1,20 @@+module GI.WebKit2.Objects.WebResource 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++newtype WebResource = WebResource (ForeignPtr WebResource)+instance GObject WebResource where+class GObject o => WebResourceK o+instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o+data WebResourceResponsePropertyInfo+data WebResourceUriPropertyInfo+data WebResourceFailedSignalInfo+data WebResourceFailedWithTlsErrorsSignalInfo+data WebResourceFinishedSignalInfo+data WebResourceReceivedDataSignalInfo+data WebResourceSentRequestSignalInfo
+ GI/WebKit2/Objects/WebView.hs view
@@ -0,0 +1,3877 @@++{- |+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            ,+++-- ** webViewGetBackForwardList+    webViewGetBackForwardList               ,+++-- ** webViewGetBackgroundColor+    webViewGetBackgroundColor               ,+++-- ** webViewGetContext+    webViewGetContext                       ,+++-- ** webViewGetCustomCharset+    webViewGetCustomCharset                 ,+++-- ** 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::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_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 ()++
+ GI/WebKit2/Objects/WebView.hs-boot view
@@ -0,0 +1,49 @@+module GI.WebKit2.Objects.WebView 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++newtype WebView = WebView (ForeignPtr WebView)+instance GObject WebView where+class GObject o => WebViewK o+instance (GObject o, IsDescendantOf WebView o) => WebViewK o+data WebViewEditablePropertyInfo+data WebViewEstimatedLoadProgressPropertyInfo+data WebViewFaviconPropertyInfo+data WebViewIsLoadingPropertyInfo+data WebViewIsPlayingAudioPropertyInfo+data WebViewRelatedViewPropertyInfo+data WebViewSettingsPropertyInfo+data WebViewTitlePropertyInfo+data WebViewUriPropertyInfo+data WebViewUserContentManagerPropertyInfo+data WebViewWebContextPropertyInfo+data WebViewZoomLevelPropertyInfo+data WebViewAuthenticateSignalInfo+data WebViewCloseSignalInfo+data WebViewContextMenuSignalInfo+data WebViewContextMenuDismissedSignalInfo+data WebViewCreateSignalInfo+data WebViewDecidePolicySignalInfo+data WebViewEnterFullscreenSignalInfo+data WebViewInsecureContentDetectedSignalInfo+data WebViewLeaveFullscreenSignalInfo+data WebViewLoadChangedSignalInfo+data WebViewLoadFailedSignalInfo+data WebViewLoadFailedWithTlsErrorsSignalInfo+data WebViewMouseTargetChangedSignalInfo+data WebViewPermissionRequestSignalInfo+data WebViewPrintSignalInfo+data WebViewReadyToShowSignalInfo+data WebViewResourceLoadStartedSignalInfo+data WebViewRunAsModalSignalInfo+data WebViewRunColorChooserSignalInfo+data WebViewRunFileChooserSignalInfo+data WebViewScriptDialogSignalInfo+data WebViewShowNotificationSignalInfo+data WebViewSubmitFormSignalInfo+data WebViewWebProcessCrashedSignalInfo
+ GI/WebKit2/Objects/WebViewBase.hs view
@@ -0,0 +1,60 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2.Objects.WebViewBase+    ( ++-- * Exported types+    WebViewBase(..)                         ,+    WebViewBaseK                            ,+    toWebViewBase                           ,+    noWebViewBase                           ,+++    ) 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.GObject as GObject+import qualified GI.Gtk as Gtk++newtype WebViewBase = WebViewBase (ForeignPtr WebViewBase)+foreign import ccall "webkit_web_view_base_get_type"+    c_webkit_web_view_base_get_type :: IO GType++type instance ParentTypes WebViewBase = WebViewBaseParentTypes+type WebViewBaseParentTypes = '[Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable]++instance GObject WebViewBase where+    gobjectIsInitiallyUnowned _ = True+    gobjectType _ = c_webkit_web_view_base_get_type+    ++class GObject o => WebViewBaseK o+instance (GObject o, IsDescendantOf WebViewBase o) => WebViewBaseK o++toWebViewBase :: WebViewBaseK o => o -> IO WebViewBase+toWebViewBase = unsafeCastTo WebViewBase++noWebViewBase :: Maybe WebViewBase+noWebViewBase = Nothing++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 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, *)])++
+ GI/WebKit2/Objects/WebViewBase.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2.Objects.WebViewBase 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++newtype WebViewBase = WebViewBase (ForeignPtr WebViewBase)+instance GObject WebViewBase where+class GObject o => WebViewBaseK o+instance (GObject o, IsDescendantOf WebViewBase o) => WebViewBaseK o
+ GI/WebKit2/Objects/WindowProperties.hs view
@@ -0,0 +1,515 @@++{- |+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.WindowProperties+    ( ++-- * Exported types+    WindowProperties(..)                    ,+    WindowPropertiesK                       ,+    toWindowProperties                      ,+    noWindowProperties                      ,+++ -- * Methods+-- ** windowPropertiesGetFullscreen+    windowPropertiesGetFullscreen           ,+++-- ** windowPropertiesGetGeometry+    windowPropertiesGetGeometry             ,+++-- ** windowPropertiesGetLocationbarVisible+    windowPropertiesGetLocationbarVisible   ,+++-- ** windowPropertiesGetMenubarVisible+    windowPropertiesGetMenubarVisible       ,+++-- ** windowPropertiesGetResizable+    windowPropertiesGetResizable            ,+++-- ** windowPropertiesGetScrollbarsVisible+    windowPropertiesGetScrollbarsVisible    ,+++-- ** windowPropertiesGetStatusbarVisible+    windowPropertiesGetStatusbarVisible     ,+++-- ** windowPropertiesGetToolbarVisible+    windowPropertiesGetToolbarVisible       ,+++++ -- * Properties+-- ** Fullscreen+    WindowPropertiesFullscreenPropertyInfo  ,+    constructWindowPropertiesFullscreen     ,+    getWindowPropertiesFullscreen           ,+++-- ** Geometry+    WindowPropertiesGeometryPropertyInfo    ,+    constructWindowPropertiesGeometry       ,+    getWindowPropertiesGeometry             ,+++-- ** LocationbarVisible+    WindowPropertiesLocationbarVisiblePropertyInfo,+    constructWindowPropertiesLocationbarVisible,+    getWindowPropertiesLocationbarVisible   ,+++-- ** MenubarVisible+    WindowPropertiesMenubarVisiblePropertyInfo,+    constructWindowPropertiesMenubarVisible ,+    getWindowPropertiesMenubarVisible       ,+++-- ** Resizable+    WindowPropertiesResizablePropertyInfo   ,+    constructWindowPropertiesResizable      ,+    getWindowPropertiesResizable            ,+++-- ** ScrollbarsVisible+    WindowPropertiesScrollbarsVisiblePropertyInfo,+    constructWindowPropertiesScrollbarsVisible,+    getWindowPropertiesScrollbarsVisible    ,+++-- ** StatusbarVisible+    WindowPropertiesStatusbarVisiblePropertyInfo,+    constructWindowPropertiesStatusbarVisible,+    getWindowPropertiesStatusbarVisible     ,+++-- ** ToolbarVisible+    WindowPropertiesToolbarVisiblePropertyInfo,+    constructWindowPropertiesToolbarVisible ,+    getWindowPropertiesToolbarVisible       ,+++++    ) 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+import qualified GI.Cairo as Cairo++newtype WindowProperties = WindowProperties (ForeignPtr WindowProperties)+foreign import ccall "webkit_window_properties_get_type"+    c_webkit_window_properties_get_type :: IO GType++type instance ParentTypes WindowProperties = WindowPropertiesParentTypes+type WindowPropertiesParentTypes = '[GObject.Object]++instance GObject WindowProperties where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_window_properties_get_type+    ++class GObject o => WindowPropertiesK o+instance (GObject o, IsDescendantOf WindowProperties o) => WindowPropertiesK o++toWindowProperties :: WindowPropertiesK o => o -> IO WindowProperties+toWindowProperties = unsafeCastTo WindowProperties++noWindowProperties :: Maybe WindowProperties+noWindowProperties = Nothing++-- VVV Prop "fullscreen"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesFullscreen :: (MonadIO m, WindowPropertiesK o) => o -> m Bool+getWindowPropertiesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen"++constructWindowPropertiesFullscreen :: Bool -> IO ([Char], GValue)+constructWindowPropertiesFullscreen val = constructObjectPropertyBool "fullscreen" val++data WindowPropertiesFullscreenPropertyInfo+instance AttrInfo WindowPropertiesFullscreenPropertyInfo where+    type AttrAllowedOps WindowPropertiesFullscreenPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesFullscreenPropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesFullscreenPropertyInfo = Bool+    type AttrLabel WindowPropertiesFullscreenPropertyInfo = "WindowProperties::fullscreen"+    attrGet _ = getWindowPropertiesFullscreen+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesFullscreen++-- VVV Prop "geometry"+   -- Type: TInterface "cairo" "RectangleInt"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesGeometry :: (MonadIO m, WindowPropertiesK o) => o -> m Cairo.RectangleInt+getWindowPropertiesGeometry obj = liftIO $ getObjectPropertyBoxed obj "geometry" Cairo.RectangleInt++constructWindowPropertiesGeometry :: Cairo.RectangleInt -> IO ([Char], GValue)+constructWindowPropertiesGeometry val = constructObjectPropertyBoxed "geometry" val++data WindowPropertiesGeometryPropertyInfo+instance AttrInfo WindowPropertiesGeometryPropertyInfo where+    type AttrAllowedOps WindowPropertiesGeometryPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Cairo.RectangleInt+    type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesGeometryPropertyInfo = Cairo.RectangleInt+    type AttrLabel WindowPropertiesGeometryPropertyInfo = "WindowProperties::geometry"+    attrGet _ = getWindowPropertiesGeometry+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesGeometry++-- VVV Prop "locationbar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesLocationbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool+getWindowPropertiesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible"++constructWindowPropertiesLocationbarVisible :: Bool -> IO ([Char], GValue)+constructWindowPropertiesLocationbarVisible val = constructObjectPropertyBool "locationbar-visible" val++data WindowPropertiesLocationbarVisiblePropertyInfo+instance AttrInfo WindowPropertiesLocationbarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesLocationbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesLocationbarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "WindowProperties::locationbar-visible"+    attrGet _ = getWindowPropertiesLocationbarVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesLocationbarVisible++-- VVV Prop "menubar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesMenubarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool+getWindowPropertiesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible"++constructWindowPropertiesMenubarVisible :: Bool -> IO ([Char], GValue)+constructWindowPropertiesMenubarVisible val = constructObjectPropertyBool "menubar-visible" val++data WindowPropertiesMenubarVisiblePropertyInfo+instance AttrInfo WindowPropertiesMenubarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesMenubarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesMenubarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "WindowProperties::menubar-visible"+    attrGet _ = getWindowPropertiesMenubarVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesMenubarVisible++-- VVV Prop "resizable"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesResizable :: (MonadIO m, WindowPropertiesK o) => o -> m Bool+getWindowPropertiesResizable obj = liftIO $ getObjectPropertyBool obj "resizable"++constructWindowPropertiesResizable :: Bool -> IO ([Char], GValue)+constructWindowPropertiesResizable val = constructObjectPropertyBool "resizable" val++data WindowPropertiesResizablePropertyInfo+instance AttrInfo WindowPropertiesResizablePropertyInfo where+    type AttrAllowedOps WindowPropertiesResizablePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesResizablePropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesResizablePropertyInfo = Bool+    type AttrLabel WindowPropertiesResizablePropertyInfo = "WindowProperties::resizable"+    attrGet _ = getWindowPropertiesResizable+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesResizable++-- VVV Prop "scrollbars-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesScrollbarsVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool+getWindowPropertiesScrollbarsVisible obj = liftIO $ getObjectPropertyBool obj "scrollbars-visible"++constructWindowPropertiesScrollbarsVisible :: Bool -> IO ([Char], GValue)+constructWindowPropertiesScrollbarsVisible val = constructObjectPropertyBool "scrollbars-visible" val++data WindowPropertiesScrollbarsVisiblePropertyInfo+instance AttrInfo WindowPropertiesScrollbarsVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesScrollbarsVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "WindowProperties::scrollbars-visible"+    attrGet _ = getWindowPropertiesScrollbarsVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesScrollbarsVisible++-- VVV Prop "statusbar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesStatusbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool+getWindowPropertiesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible"++constructWindowPropertiesStatusbarVisible :: Bool -> IO ([Char], GValue)+constructWindowPropertiesStatusbarVisible val = constructObjectPropertyBool "statusbar-visible" val++data WindowPropertiesStatusbarVisiblePropertyInfo+instance AttrInfo WindowPropertiesStatusbarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesStatusbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesStatusbarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "WindowProperties::statusbar-visible"+    attrGet _ = getWindowPropertiesStatusbarVisible+    attrSet _ = undefined+    attrConstruct _ = constructWindowPropertiesStatusbarVisible++-- VVV Prop "toolbar-visible"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWindowPropertiesToolbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool+getWindowPropertiesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible"++constructWindowPropertiesToolbarVisible :: Bool -> IO ([Char], GValue)+constructWindowPropertiesToolbarVisible val = constructObjectPropertyBool "toolbar-visible" val++data WindowPropertiesToolbarVisiblePropertyInfo+instance AttrInfo WindowPropertiesToolbarVisiblePropertyInfo where+    type AttrAllowedOps WindowPropertiesToolbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = WindowPropertiesK+    type AttrGetType WindowPropertiesToolbarVisiblePropertyInfo = Bool+    type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "WindowProperties::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 instance SignalList WindowProperties = WindowPropertiesSignalList+type WindowPropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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}]+-- 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++foreign import ccall "webkit_window_properties_get_fullscreen" webkit_window_properties_get_fullscreen :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    IO CInt+++windowPropertiesGetFullscreen ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m Bool+windowPropertiesGetFullscreen _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_window_properties_get_fullscreen _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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 "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, 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++foreign import ccall "webkit_window_properties_get_geometry" webkit_window_properties_get_geometry :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    Ptr Cairo.RectangleInt ->               -- geometry : TInterface "cairo" "RectangleInt"+    IO ()+++windowPropertiesGetGeometry ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m (Cairo.RectangleInt)+windowPropertiesGetGeometry _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    geometry <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)+    webkit_window_properties_get_geometry _obj' geometry+    geometry' <- (wrapBoxed Cairo.RectangleInt) geometry+    touchManagedPtr _obj+    return geometry'++-- 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}]+-- 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++foreign import ccall "webkit_window_properties_get_locationbar_visible" webkit_window_properties_get_locationbar_visible :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    IO CInt+++windowPropertiesGetLocationbarVisible ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m Bool+windowPropertiesGetLocationbarVisible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_window_properties_get_locationbar_visible _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_window_properties_get_menubar_visible" webkit_window_properties_get_menubar_visible :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    IO CInt+++windowPropertiesGetMenubarVisible ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m Bool+windowPropertiesGetMenubarVisible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_window_properties_get_menubar_visible _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_window_properties_get_resizable" webkit_window_properties_get_resizable :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    IO CInt+++windowPropertiesGetResizable ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m Bool+windowPropertiesGetResizable _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_window_properties_get_resizable _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_window_properties_get_scrollbars_visible" webkit_window_properties_get_scrollbars_visible :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    IO CInt+++windowPropertiesGetScrollbarsVisible ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m Bool+windowPropertiesGetScrollbarsVisible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_window_properties_get_scrollbars_visible _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_window_properties_get_statusbar_visible" webkit_window_properties_get_statusbar_visible :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    IO CInt+++windowPropertiesGetStatusbarVisible ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m Bool+windowPropertiesGetStatusbarVisible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_window_properties_get_statusbar_visible _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_window_properties_get_toolbar_visible" webkit_window_properties_get_toolbar_visible :: +    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"+    IO CInt+++windowPropertiesGetToolbarVisible ::+    (MonadIO m, WindowPropertiesK a) =>+    a ->                                    -- _obj+    m Bool+windowPropertiesGetToolbarVisible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_window_properties_get_toolbar_visible _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Objects/WindowProperties.hs-boot view
@@ -0,0 +1,21 @@+module GI.WebKit2.Objects.WindowProperties 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++newtype WindowProperties = WindowProperties (ForeignPtr WindowProperties)+instance GObject WindowProperties where+class GObject o => WindowPropertiesK o+instance (GObject o, IsDescendantOf WindowProperties o) => WindowPropertiesK o+data WindowPropertiesFullscreenPropertyInfo+data WindowPropertiesGeometryPropertyInfo+data WindowPropertiesLocationbarVisiblePropertyInfo+data WindowPropertiesMenubarVisiblePropertyInfo+data WindowPropertiesResizablePropertyInfo+data WindowPropertiesScrollbarsVisiblePropertyInfo+data WindowPropertiesStatusbarVisiblePropertyInfo+data WindowPropertiesToolbarVisiblePropertyInfo
+ GI/WebKit2/Structs.hs view
@@ -0,0 +1,38 @@++{- |+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.Structs+    (     module GI.WebKit2.Structs.Credential    ,+    module GI.WebKit2.Structs.JavascriptResult,+    module GI.WebKit2.Structs.MimeInfo      ,+    module GI.WebKit2.Structs.NavigationAction,+    module GI.WebKit2.Structs.ScriptDialog  ,+    module GI.WebKit2.Structs.UserScript    ,+    module GI.WebKit2.Structs.UserStyleSheet,+++    ) where++import GI.WebKit2.Structs.Credential+import GI.WebKit2.Structs.JavascriptResult+import GI.WebKit2.Structs.MimeInfo+import GI.WebKit2.Structs.NavigationAction+import GI.WebKit2.Structs.ScriptDialog+import GI.WebKit2.Structs.UserScript+import GI.WebKit2.Structs.UserStyleSheet++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++
+ GI/WebKit2/Structs/Credential.hs view
@@ -0,0 +1,254 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2.Structs.Credential+    ( ++-- * Exported types+    Credential(..)                          ,+    noCredential                            ,+++ -- * Methods+-- ** credentialCopy+    credentialCopy                          ,+++-- ** credentialFree+    credentialFree                          ,+++-- ** credentialGetPassword+    credentialGetPassword                   ,+++-- ** credentialGetPersistence+    credentialGetPersistence                ,+++-- ** credentialGetUsername+    credentialGetUsername                   ,+++-- ** credentialHasPassword+    credentialHasPassword                   ,+++-- ** credentialNew+    credentialNew                           ,+++++    ) 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++newtype Credential = Credential (ForeignPtr Credential)+foreign import ccall "webkit_credential_get_type" c_webkit_credential_get_type :: +    IO GType++instance BoxedObject Credential where+    boxedType _ = c_webkit_credential_get_type++noCredential :: Maybe Credential+noCredential = Nothing++-- 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}]+-- 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++foreign import ccall "webkit_credential_new" webkit_credential_new :: +    CString ->                              -- username : TBasicType TUTF8+    CString ->                              -- password : TBasicType TUTF8+    CUInt ->                                -- persistence : TInterface "WebKit2" "CredentialPersistence"+    IO (Ptr Credential)+++credentialNew ::+    (MonadIO m) =>+    T.Text ->                               -- username+    T.Text ->                               -- password+    CredentialPersistence ->                -- persistence+    m Credential+credentialNew username password persistence = liftIO $ do+    username' <- textToCString username+    password' <- textToCString password+    let persistence' = (fromIntegral . fromEnum) persistence+    result <- webkit_credential_new username' password' persistence'+    checkUnexpectedReturnNULL "webkit_credential_new" result+    result' <- (wrapBoxed Credential) result+    freeMem username'+    freeMem password'+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_credential_copy" webkit_credential_copy :: +    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"+    IO (Ptr Credential)+++credentialCopy ::+    (MonadIO m) =>+    Credential ->                           -- _obj+    m Credential+credentialCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_credential_copy _obj'+    checkUnexpectedReturnNULL "webkit_credential_copy" result+    result' <- (wrapBoxed Credential) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_credential_free" webkit_credential_free :: +    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"+    IO ()+++credentialFree ::+    (MonadIO m) =>+    Credential ->                           -- _obj+    m ()+credentialFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    webkit_credential_free _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_credential_get_password" webkit_credential_get_password :: +    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"+    IO CString+++credentialGetPassword ::+    (MonadIO m) =>+    Credential ->                           -- _obj+    m T.Text+credentialGetPassword _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_credential_get_password _obj'+    checkUnexpectedReturnNULL "webkit_credential_get_password" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_credential_get_persistence" webkit_credential_get_persistence :: +    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"+    IO CUInt+++credentialGetPersistence ::+    (MonadIO m) =>+    Credential ->                           -- _obj+    m CredentialPersistence+credentialGetPersistence _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_credential_get_persistence _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_credential_get_username" webkit_credential_get_username :: +    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"+    IO CString+++credentialGetUsername ::+    (MonadIO m) =>+    Credential ->                           -- _obj+    m T.Text+credentialGetUsername _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_credential_get_username _obj'+    checkUnexpectedReturnNULL "webkit_credential_get_username" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_credential_has_password" webkit_credential_has_password :: +    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"+    IO CInt+++credentialHasPassword ::+    (MonadIO m) =>+    Credential ->                           -- _obj+    m Bool+credentialHasPassword _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_credential_has_password _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Structs/Credential.hs-boot view
@@ -0,0 +1,11 @@+module GI.WebKit2.Structs.Credential 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++newtype Credential = Credential (ForeignPtr Credential)+instance BoxedObject Credential where
+ GI/WebKit2/Structs/JavascriptResult.hs view
@@ -0,0 +1,162 @@++{- |+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.Structs.JavascriptResult+    ( ++-- * Exported types+    JavascriptResult(..)                    ,+    noJavascriptResult                      ,+++ -- * Methods+-- ** javascriptResultGetGlobalContext+    javascriptResultGetGlobalContext        ,+++-- ** javascriptResultGetValue+    javascriptResultGetValue                ,+++-- ** javascriptResultRef+    javascriptResultRef                     ,+++-- ** javascriptResultUnref+    javascriptResultUnref                   ,+++++    ) 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.JavaScriptCore as JavaScriptCore++newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult)+foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type :: +    IO GType++instance BoxedObject JavascriptResult where+    boxedType _ = c_webkit_javascript_result_get_type++noJavascriptResult :: Maybe JavascriptResult+noJavascriptResult = Nothing++-- 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}]+-- 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++foreign import ccall "webkit_javascript_result_get_global_context" webkit_javascript_result_get_global_context :: +    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"+    IO (Ptr JavaScriptCore.GlobalContext)+++javascriptResultGetGlobalContext ::+    (MonadIO m) =>+    JavascriptResult ->                     -- _obj+    m JavaScriptCore.GlobalContext+javascriptResultGetGlobalContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_javascript_result_get_global_context _obj'+    checkUnexpectedReturnNULL "webkit_javascript_result_get_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 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}]+-- 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++foreign import ccall "webkit_javascript_result_get_value" webkit_javascript_result_get_value :: +    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"+    IO (Ptr JavaScriptCore.Value)+++javascriptResultGetValue ::+    (MonadIO m) =>+    JavascriptResult ->                     -- _obj+    m JavaScriptCore.Value+javascriptResultGetValue _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_javascript_result_get_value _obj'+    checkUnexpectedReturnNULL "webkit_javascript_result_get_value" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- (\x -> JavaScriptCore.Value <$> newForeignPtr_ x) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_javascript_result_ref" webkit_javascript_result_ref :: +    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"+    IO (Ptr JavascriptResult)+++javascriptResultRef ::+    (MonadIO m) =>+    JavascriptResult ->                     -- _obj+    m JavascriptResult+javascriptResultRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_javascript_result_ref _obj'+    checkUnexpectedReturnNULL "webkit_javascript_result_ref" result+    result' <- (wrapBoxed JavascriptResult) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref :: +    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"+    IO ()+++javascriptResultUnref ::+    (MonadIO m) =>+    JavascriptResult ->                     -- _obj+    m ()+javascriptResultUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    webkit_javascript_result_unref _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Structs/JavascriptResult.hs-boot view
@@ -0,0 +1,11 @@+module GI.WebKit2.Structs.JavascriptResult 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++newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult)+instance BoxedObject JavascriptResult where
+ GI/WebKit2/Structs/MimeInfo.hs view
@@ -0,0 +1,189 @@++{- |+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.Structs.MimeInfo+    ( ++-- * Exported types+    MimeInfo(..)                            ,+    noMimeInfo                              ,+++ -- * Methods+-- ** mimeInfoGetDescription+    mimeInfoGetDescription                  ,+++-- ** mimeInfoGetExtensions+    mimeInfoGetExtensions                   ,+++-- ** mimeInfoGetMimeType+    mimeInfoGetMimeType                     ,+++-- ** mimeInfoRef+    mimeInfoRef                             ,+++-- ** mimeInfoUnref+    mimeInfoUnref                           ,+++++    ) 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++newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo)+foreign import ccall "webkit_mime_info_get_type" c_webkit_mime_info_get_type :: +    IO GType++instance BoxedObject MimeInfo where+    boxedType _ = c_webkit_mime_info_get_type++noMimeInfo :: Maybe MimeInfo+noMimeInfo = Nothing++-- 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}]+-- 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++foreign import ccall "webkit_mime_info_get_description" webkit_mime_info_get_description :: +    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"+    IO CString+++mimeInfoGetDescription ::+    (MonadIO m) =>+    MimeInfo ->                             -- _obj+    m T.Text+mimeInfoGetDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_mime_info_get_description _obj'+    checkUnexpectedReturnNULL "webkit_mime_info_get_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_mime_info_get_extensions" webkit_mime_info_get_extensions :: +    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"+    IO (Ptr CString)+++mimeInfoGetExtensions ::+    (MonadIO m) =>+    MimeInfo ->                             -- _obj+    m [T.Text]+mimeInfoGetExtensions _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_mime_info_get_extensions _obj'+    checkUnexpectedReturnNULL "webkit_mime_info_get_extensions" result+    result' <- unpackZeroTerminatedUTF8CArray result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_mime_info_get_mime_type" webkit_mime_info_get_mime_type :: +    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"+    IO CString+++mimeInfoGetMimeType ::+    (MonadIO m) =>+    MimeInfo ->                             -- _obj+    m T.Text+mimeInfoGetMimeType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_mime_info_get_mime_type _obj'+    checkUnexpectedReturnNULL "webkit_mime_info_get_mime_type" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_mime_info_ref" webkit_mime_info_ref :: +    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"+    IO (Ptr MimeInfo)+++mimeInfoRef ::+    (MonadIO m) =>+    MimeInfo ->                             -- _obj+    m MimeInfo+mimeInfoRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_mime_info_ref _obj'+    checkUnexpectedReturnNULL "webkit_mime_info_ref" result+    result' <- (wrapBoxed MimeInfo) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_mime_info_unref" webkit_mime_info_unref :: +    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"+    IO ()+++mimeInfoUnref ::+    (MonadIO m) =>+    MimeInfo ->                             -- _obj+    m ()+mimeInfoUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    webkit_mime_info_unref _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Structs/MimeInfo.hs-boot view
@@ -0,0 +1,11 @@+module GI.WebKit2.Structs.MimeInfo 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++newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo)+instance BoxedObject MimeInfo where
+ GI/WebKit2/Structs/NavigationAction.hs view
@@ -0,0 +1,243 @@++{- |+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.Structs.NavigationAction+    ( ++-- * Exported types+    NavigationAction(..)                    ,+    noNavigationAction                      ,+++ -- * Methods+-- ** navigationActionCopy+    navigationActionCopy                    ,+++-- ** navigationActionFree+    navigationActionFree                    ,+++-- ** navigationActionGetModifiers+    navigationActionGetModifiers            ,+++-- ** navigationActionGetMouseButton+    navigationActionGetMouseButton          ,+++-- ** navigationActionGetNavigationType+    navigationActionGetNavigationType       ,+++-- ** navigationActionGetRequest+    navigationActionGetRequest              ,+++-- ** navigationActionIsUserGesture+    navigationActionIsUserGesture           ,+++++    ) 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++newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction)+foreign import ccall "webkit_navigation_action_get_type" c_webkit_navigation_action_get_type :: +    IO GType++instance BoxedObject NavigationAction where+    boxedType _ = c_webkit_navigation_action_get_type++noNavigationAction :: Maybe NavigationAction+noNavigationAction = Nothing++-- 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}]+-- 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++foreign import ccall "webkit_navigation_action_copy" webkit_navigation_action_copy :: +    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"+    IO (Ptr NavigationAction)+++navigationActionCopy ::+    (MonadIO m) =>+    NavigationAction ->                     -- _obj+    m NavigationAction+navigationActionCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_navigation_action_copy _obj'+    checkUnexpectedReturnNULL "webkit_navigation_action_copy" result+    result' <- (wrapBoxed NavigationAction) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_navigation_action_free" webkit_navigation_action_free :: +    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"+    IO ()+++navigationActionFree ::+    (MonadIO m) =>+    NavigationAction ->                     -- _obj+    m ()+navigationActionFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    webkit_navigation_action_free _obj'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_navigation_action_get_modifiers" webkit_navigation_action_get_modifiers :: +    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"+    IO Word32+++navigationActionGetModifiers ::+    (MonadIO m) =>+    NavigationAction ->                     -- _obj+    m Word32+navigationActionGetModifiers _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_navigation_action_get_modifiers _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_navigation_action_get_mouse_button" webkit_navigation_action_get_mouse_button :: +    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"+    IO Word32+++navigationActionGetMouseButton ::+    (MonadIO m) =>+    NavigationAction ->                     -- _obj+    m Word32+navigationActionGetMouseButton _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_navigation_action_get_mouse_button _obj'+    touchManagedPtr _obj+    return result++-- 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}]+-- 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++foreign import ccall "webkit_navigation_action_get_navigation_type" webkit_navigation_action_get_navigation_type :: +    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"+    IO CUInt+++navigationActionGetNavigationType ::+    (MonadIO m) =>+    NavigationAction ->                     -- _obj+    m NavigationType+navigationActionGetNavigationType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_navigation_action_get_navigation_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_navigation_action_get_request" webkit_navigation_action_get_request :: +    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"+    IO (Ptr URIRequest)+++navigationActionGetRequest ::+    (MonadIO m) =>+    NavigationAction ->                     -- _obj+    m URIRequest+navigationActionGetRequest _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_navigation_action_get_request _obj'+    checkUnexpectedReturnNULL "webkit_navigation_action_get_request" result+    result' <- (newObject URIRequest) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_navigation_action_is_user_gesture" webkit_navigation_action_is_user_gesture :: +    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"+    IO CInt+++navigationActionIsUserGesture ::+    (MonadIO m) =>+    NavigationAction ->                     -- _obj+    m Bool+navigationActionIsUserGesture _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_navigation_action_is_user_gesture _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2/Structs/NavigationAction.hs-boot view
@@ -0,0 +1,11 @@+module GI.WebKit2.Structs.NavigationAction 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++newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction)+instance BoxedObject NavigationAction where
+ GI/WebKit2/Structs/ScriptDialog.hs view
@@ -0,0 +1,193 @@++{- |+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.Structs.ScriptDialog+    ( ++-- * Exported types+    ScriptDialog(..)                        ,+    noScriptDialog                          ,+++ -- * Methods+-- ** scriptDialogConfirmSetConfirmed+    scriptDialogConfirmSetConfirmed         ,+++-- ** scriptDialogGetDialogType+    scriptDialogGetDialogType               ,+++-- ** scriptDialogGetMessage+    scriptDialogGetMessage                  ,+++-- ** scriptDialogPromptGetDefaultText+    scriptDialogPromptGetDefaultText        ,+++-- ** scriptDialogPromptSetText+    scriptDialogPromptSetText               ,+++++    ) 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++newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog)+foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type :: +    IO GType++instance BoxedObject ScriptDialog where+    boxedType _ = c_webkit_script_dialog_get_type++noScriptDialog :: Maybe ScriptDialog+noScriptDialog = Nothing++-- 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}]+-- 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++foreign import ccall "webkit_script_dialog_confirm_set_confirmed" webkit_script_dialog_confirm_set_confirmed :: +    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"+    CInt ->                                 -- confirmed : TBasicType TBoolean+    IO ()+++scriptDialogConfirmSetConfirmed ::+    (MonadIO m) =>+    ScriptDialog ->                         -- _obj+    Bool ->                                 -- confirmed+    m ()+scriptDialogConfirmSetConfirmed _obj confirmed = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let confirmed' = (fromIntegral . fromEnum) confirmed+    webkit_script_dialog_confirm_set_confirmed _obj' confirmed'+    touchManagedPtr _obj+    return ()++-- 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}]+-- 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++foreign import ccall "webkit_script_dialog_get_dialog_type" webkit_script_dialog_get_dialog_type :: +    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"+    IO CUInt+++scriptDialogGetDialogType ::+    (MonadIO m) =>+    ScriptDialog ->                         -- _obj+    m ScriptDialogType+scriptDialogGetDialogType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_script_dialog_get_dialog_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_script_dialog_get_message" webkit_script_dialog_get_message :: +    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"+    IO CString+++scriptDialogGetMessage ::+    (MonadIO m) =>+    ScriptDialog ->                         -- _obj+    m T.Text+scriptDialogGetMessage _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_script_dialog_get_message _obj'+    checkUnexpectedReturnNULL "webkit_script_dialog_get_message" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_script_dialog_prompt_get_default_text" webkit_script_dialog_prompt_get_default_text :: +    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"+    IO CString+++scriptDialogPromptGetDefaultText ::+    (MonadIO m) =>+    ScriptDialog ->                         -- _obj+    m T.Text+scriptDialogPromptGetDefaultText _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_script_dialog_prompt_get_default_text _obj'+    checkUnexpectedReturnNULL "webkit_script_dialog_prompt_get_default_text" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_script_dialog_prompt_set_text" webkit_script_dialog_prompt_set_text :: +    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"+    CString ->                              -- text : TBasicType TUTF8+    IO ()+++scriptDialogPromptSetText ::+    (MonadIO m) =>+    ScriptDialog ->                         -- _obj+    T.Text ->                               -- text+    m ()+scriptDialogPromptSetText _obj text = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    webkit_script_dialog_prompt_set_text _obj' text'+    touchManagedPtr _obj+    freeMem text'+    return ()++
+ GI/WebKit2/Structs/ScriptDialog.hs-boot view
@@ -0,0 +1,11 @@+module GI.WebKit2.Structs.ScriptDialog 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++newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog)+instance BoxedObject ScriptDialog where
+ GI/WebKit2/Structs/UserScript.hs view
@@ -0,0 +1,153 @@++{- |+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.Structs.UserScript+    ( ++-- * Exported types+    UserScript(..)                          ,+    noUserScript                            ,+++ -- * Methods+-- ** userScriptNew+    userScriptNew                           ,+++-- ** userScriptRef+    userScriptRef                           ,+++-- ** userScriptUnref+    userScriptUnref                         ,+++++    ) 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++newtype UserScript = UserScript (ForeignPtr UserScript)+foreign import ccall "webkit_user_script_get_type" c_webkit_user_script_get_type :: +    IO GType++instance BoxedObject UserScript where+    boxedType _ = c_webkit_user_script_get_type++noUserScript :: Maybe UserScript+noUserScript = Nothing++-- 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}]+-- 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++foreign import ccall "webkit_user_script_new" webkit_user_script_new :: +    CString ->                              -- source : TBasicType TUTF8+    CUInt ->                                -- injected_frames : TInterface "WebKit2" "UserContentInjectedFrames"+    CUInt ->                                -- injection_time : TInterface "WebKit2" "UserScriptInjectionTime"+    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr UserScript)+++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+    source' <- textToCString source+    let injected_frames' = (fromIntegral . fromEnum) injected_frames+    let injection_time' = (fromIntegral . fromEnum) injection_time+    maybeWhitelist <- case whitelist of+        Nothing -> return nullPtr+        Just jWhitelist -> do+            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist+            return jWhitelist'+    maybeBlacklist <- case blacklist of+        Nothing -> return nullPtr+        Just jBlacklist -> do+            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist+            return jBlacklist'+    result <- webkit_user_script_new source' injected_frames' injection_time' maybeWhitelist maybeBlacklist+    checkUnexpectedReturnNULL "webkit_user_script_new" result+    result' <- (wrapBoxed UserScript) result+    freeMem source'+    mapZeroTerminatedCArray freeMem maybeWhitelist+    freeMem maybeWhitelist+    mapZeroTerminatedCArray freeMem maybeBlacklist+    freeMem maybeBlacklist+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_user_script_ref" webkit_user_script_ref :: +    Ptr UserScript ->                       -- _obj : TInterface "WebKit2" "UserScript"+    IO (Ptr UserScript)+++userScriptRef ::+    (MonadIO m) =>+    UserScript ->                           -- _obj+    m UserScript+userScriptRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_user_script_ref _obj'+    checkUnexpectedReturnNULL "webkit_user_script_ref" result+    result' <- (wrapBoxed UserScript) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_user_script_unref" webkit_user_script_unref :: +    Ptr UserScript ->                       -- _obj : TInterface "WebKit2" "UserScript"+    IO ()+++userScriptUnref ::+    (MonadIO m) =>+    UserScript ->                           -- _obj+    m ()+userScriptUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    webkit_user_script_unref _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Structs/UserScript.hs-boot view
@@ -0,0 +1,11 @@+module GI.WebKit2.Structs.UserScript 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++newtype UserScript = UserScript (ForeignPtr UserScript)+instance BoxedObject UserScript where
+ GI/WebKit2/Structs/UserStyleSheet.hs view
@@ -0,0 +1,153 @@++{- |+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.Structs.UserStyleSheet+    ( ++-- * Exported types+    UserStyleSheet(..)                      ,+    noUserStyleSheet                        ,+++ -- * Methods+-- ** userStyleSheetNew+    userStyleSheetNew                       ,+++-- ** userStyleSheetRef+    userStyleSheetRef                       ,+++-- ** userStyleSheetUnref+    userStyleSheetUnref                     ,+++++    ) 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++newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet)+foreign import ccall "webkit_user_style_sheet_get_type" c_webkit_user_style_sheet_get_type :: +    IO GType++instance BoxedObject UserStyleSheet where+    boxedType _ = c_webkit_user_style_sheet_get_type++noUserStyleSheet :: Maybe UserStyleSheet+noUserStyleSheet = Nothing++-- 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}]+-- 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++foreign import ccall "webkit_user_style_sheet_new" webkit_user_style_sheet_new :: +    CString ->                              -- source : TBasicType TUTF8+    CUInt ->                                -- injected_frames : TInterface "WebKit2" "UserContentInjectedFrames"+    CUInt ->                                -- level : TInterface "WebKit2" "UserStyleLevel"+    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr UserStyleSheet)+++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+    source' <- textToCString source+    let injected_frames' = (fromIntegral . fromEnum) injected_frames+    let level' = (fromIntegral . fromEnum) level+    maybeWhitelist <- case whitelist of+        Nothing -> return nullPtr+        Just jWhitelist -> do+            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist+            return jWhitelist'+    maybeBlacklist <- case blacklist of+        Nothing -> return nullPtr+        Just jBlacklist -> do+            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist+            return jBlacklist'+    result <- webkit_user_style_sheet_new source' injected_frames' level' maybeWhitelist maybeBlacklist+    checkUnexpectedReturnNULL "webkit_user_style_sheet_new" result+    result' <- (wrapBoxed UserStyleSheet) result+    freeMem source'+    mapZeroTerminatedCArray freeMem maybeWhitelist+    freeMem maybeWhitelist+    mapZeroTerminatedCArray freeMem maybeBlacklist+    freeMem maybeBlacklist+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_user_style_sheet_ref" webkit_user_style_sheet_ref :: +    Ptr UserStyleSheet ->                   -- _obj : TInterface "WebKit2" "UserStyleSheet"+    IO (Ptr UserStyleSheet)+++userStyleSheetRef ::+    (MonadIO m) =>+    UserStyleSheet ->                       -- _obj+    m UserStyleSheet+userStyleSheetRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- webkit_user_style_sheet_ref _obj'+    checkUnexpectedReturnNULL "webkit_user_style_sheet_ref" result+    result' <- (wrapBoxed UserStyleSheet) result+    touchManagedPtr _obj+    return result'++-- 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}]+-- 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++foreign import ccall "webkit_user_style_sheet_unref" webkit_user_style_sheet_unref :: +    Ptr UserStyleSheet ->                   -- _obj : TInterface "WebKit2" "UserStyleSheet"+    IO ()+++userStyleSheetUnref ::+    (MonadIO m) =>+    UserStyleSheet ->                       -- _obj+    m ()+userStyleSheetUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    webkit_user_style_sheet_unref _obj'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2/Structs/UserStyleSheet.hs-boot view
@@ -0,0 +1,11 @@+module GI.WebKit2.Structs.UserStyleSheet 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++newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet)+instance BoxedObject UserStyleSheet where
+ GI/WebKit2/Types.hs view
@@ -0,0 +1,96 @@+module GI.WebKit2.Types+    (     module GI.WebKit2.Interfaces.PermissionRequest,+    module GI.WebKit2.Objects.AuthenticationRequest,+    module GI.WebKit2.Objects.BackForwardList,+    module GI.WebKit2.Objects.BackForwardListItem,+    module GI.WebKit2.Objects.ColorChooserRequest,+    module GI.WebKit2.Objects.ContextMenu   ,+    module GI.WebKit2.Objects.ContextMenuItem,+    module GI.WebKit2.Objects.CookieManager ,+    module GI.WebKit2.Objects.Download      ,+    module GI.WebKit2.Objects.FaviconDatabase,+    module GI.WebKit2.Objects.FileChooserRequest,+    module GI.WebKit2.Objects.FindController,+    module GI.WebKit2.Objects.FormSubmissionRequest,+    module GI.WebKit2.Objects.GeolocationPermissionRequest,+    module GI.WebKit2.Objects.HitTestResult ,+    module GI.WebKit2.Objects.NavigationPolicyDecision,+    module GI.WebKit2.Objects.Notification  ,+    module GI.WebKit2.Objects.NotificationPermissionRequest,+    module GI.WebKit2.Objects.Plugin        ,+    module GI.WebKit2.Objects.PolicyDecision,+    module GI.WebKit2.Objects.PrintOperation,+    module GI.WebKit2.Objects.ResponsePolicyDecision,+    module GI.WebKit2.Objects.SecurityManager,+    module GI.WebKit2.Objects.Settings      ,+    module GI.WebKit2.Objects.URIRequest    ,+    module GI.WebKit2.Objects.URIResponse   ,+    module GI.WebKit2.Objects.URISchemeRequest,+    module GI.WebKit2.Objects.UserContentManager,+    module GI.WebKit2.Objects.UserMediaPermissionRequest,+    module GI.WebKit2.Objects.WebContext    ,+    module GI.WebKit2.Objects.WebInspector  ,+    module GI.WebKit2.Objects.WebResource   ,+    module GI.WebKit2.Objects.WebView       ,+    module GI.WebKit2.Objects.WebViewBase   ,+    module GI.WebKit2.Objects.WindowProperties,+    module GI.WebKit2.Structs.Credential    ,+    module GI.WebKit2.Structs.JavascriptResult,+    module GI.WebKit2.Structs.MimeInfo      ,+    module GI.WebKit2.Structs.NavigationAction,+    module GI.WebKit2.Structs.ScriptDialog  ,+    module GI.WebKit2.Structs.UserScript    ,+    module GI.WebKit2.Structs.UserStyleSheet,+    module GI.WebKit2.Enums                 ,+    module GI.WebKit2.Flags                 ,+++    ) where+++import {-# SOURCE #-} GI.WebKit2.Interfaces.PermissionRequest+import {-# SOURCE #-} GI.WebKit2.Objects.AuthenticationRequest+import {-# SOURCE #-} GI.WebKit2.Objects.BackForwardList+import {-# SOURCE #-} GI.WebKit2.Objects.BackForwardListItem+import {-# SOURCE #-} GI.WebKit2.Objects.ColorChooserRequest+import {-# SOURCE #-} GI.WebKit2.Objects.ContextMenu+import {-# SOURCE #-} GI.WebKit2.Objects.ContextMenuItem+import {-# SOURCE #-} GI.WebKit2.Objects.CookieManager+import {-# SOURCE #-} GI.WebKit2.Objects.Download+import {-# SOURCE #-} GI.WebKit2.Objects.FaviconDatabase+import {-# SOURCE #-} GI.WebKit2.Objects.FileChooserRequest+import {-# SOURCE #-} GI.WebKit2.Objects.FindController+import {-# SOURCE #-} GI.WebKit2.Objects.FormSubmissionRequest+import {-# SOURCE #-} GI.WebKit2.Objects.GeolocationPermissionRequest+import {-# SOURCE #-} GI.WebKit2.Objects.HitTestResult+import {-# SOURCE #-} GI.WebKit2.Objects.NavigationPolicyDecision+import {-# SOURCE #-} GI.WebKit2.Objects.Notification+import {-# SOURCE #-} GI.WebKit2.Objects.NotificationPermissionRequest+import {-# SOURCE #-} GI.WebKit2.Objects.Plugin+import {-# SOURCE #-} GI.WebKit2.Objects.PolicyDecision+import {-# SOURCE #-} GI.WebKit2.Objects.PrintOperation+import {-# SOURCE #-} GI.WebKit2.Objects.ResponsePolicyDecision+import {-# SOURCE #-} GI.WebKit2.Objects.SecurityManager+import {-# SOURCE #-} GI.WebKit2.Objects.Settings+import {-# SOURCE #-} GI.WebKit2.Objects.URIRequest+import {-# SOURCE #-} GI.WebKit2.Objects.URIResponse+import {-# SOURCE #-} GI.WebKit2.Objects.URISchemeRequest+import {-# SOURCE #-} GI.WebKit2.Objects.UserContentManager+import {-# SOURCE #-} GI.WebKit2.Objects.UserMediaPermissionRequest+import {-# SOURCE #-} GI.WebKit2.Objects.WebContext+import {-# SOURCE #-} GI.WebKit2.Objects.WebInspector+import {-# SOURCE #-} GI.WebKit2.Objects.WebResource+import {-# SOURCE #-} GI.WebKit2.Objects.WebView+import {-# SOURCE #-} GI.WebKit2.Objects.WebViewBase+import {-# SOURCE #-} GI.WebKit2.Objects.WindowProperties+import {-# SOURCE #-} GI.WebKit2.Structs.Credential+import {-# SOURCE #-} GI.WebKit2.Structs.JavascriptResult+import {-# SOURCE #-} GI.WebKit2.Structs.MimeInfo+import {-# SOURCE #-} GI.WebKit2.Structs.NavigationAction+import {-# SOURCE #-} GI.WebKit2.Structs.ScriptDialog+import {-# SOURCE #-} GI.WebKit2.Structs.UserScript+import {-# SOURCE #-} GI.WebKit2.Structs.UserStyleSheet++import GI.WebKit2.Enums+import GI.WebKit2.Flags+
− GI/WebKit2Attributes.hs 
@@ -1,2604 +0,0 @@-{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-}---- Generated code.--{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,-    TypeFamilies, MultiParamTypeClasses, KindSignatures,-    FlexibleInstances, UndecidableInstances, DataKinds,-    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}--module GI.WebKit2Attributes where--import Prelude ()-import Data.GI.Base.ShortPrelude-import Data.Char-import Data.Int-import Data.Word-import qualified Data.ByteString.Char8 as B-import Data.ByteString.Char8 (ByteString)-import qualified Data.Map as Map-import Foreign.C-import Foreign.Ptr-import Foreign.ForeignPtr-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)-import Foreign.Storable (peek, poke, sizeOf)-import Control.Applicative ((<$>))-import Control.Exception (onException)-import Control.Monad.IO.Class-import qualified Data.Text as T--import Data.GI.Base.Attributes hiding (get, set)-import Data.GI.Base.BasicTypes-import Data.GI.Base.BasicConversions-import Data.GI.Base.Closure-import Data.GI.Base.GError-import Data.GI.Base.GHashTable-import Data.GI.Base.GParamSpec-import Data.GI.Base.GVariant-import Data.GI.Base.GValue-import Data.GI.Base.ManagedPtr-import Data.GI.Base.Overloading-import Data.GI.Base.Properties hiding (new)-import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)-import Data.GI.Base.Utils--import qualified GI.Gdk as Gdk-import qualified GI.GdkAttributes as GdkA-import qualified GI.Gtk as Gtk-import qualified GI.GtkAttributes as GtkA-import qualified GI.Soup as Soup-import qualified GI.SoupAttributes as SoupA-import qualified GI.Cairo as Cairo-import qualified GI.CairoAttributes as CairoA-import GI.WebKit2--type instance AttributeList AuthenticationRequest = '[ ]--type instance AttributeList BackForwardList = '[ ]--type instance AttributeList BackForwardListItem = '[ ]---- VVV Prop "rgba"-   -- Type: TInterface "Gdk" "RGBA"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]--getColorChooserRequestRgba :: (MonadIO m, ColorChooserRequestK o) => o -> m Gdk.RGBA-getColorChooserRequestRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA--setColorChooserRequestRgba :: (MonadIO m, ColorChooserRequestK o) => o -> Gdk.RGBA -> m ()-setColorChooserRequestRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" val--constructColorChooserRequestRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructColorChooserRequestRgba val = constructObjectPropertyBoxed "rgba" val--data ColorChooserRequestRgbaPropertyInfo-instance AttrInfo ColorChooserRequestRgbaPropertyInfo where-    type AttrAllowedOps ColorChooserRequestRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA-    type AttrBaseTypeConstraint ColorChooserRequestRgbaPropertyInfo = ColorChooserRequestK-    type AttrGetType ColorChooserRequestRgbaPropertyInfo = Gdk.RGBA-    type AttrLabel ColorChooserRequestRgbaPropertyInfo = "ColorChooserRequest::rgba"-    attrGet _ = getColorChooserRequestRgba-    attrSet _ = setColorChooserRequestRgba-    attrConstruct _ = constructColorChooserRequestRgba--type instance AttributeList ColorChooserRequest = '[ '("rgba", ColorChooserRequestRgbaPropertyInfo)]--type instance AttributeList ContextMenu = '[ ]--type instance AttributeList ContextMenuItem = '[ ]--type instance AttributeList CookieManager = '[ ]---- VVV Prop "allow-overwrite"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getDownloadAllowOverwrite :: (MonadIO m, DownloadK o) => o -> m Bool-getDownloadAllowOverwrite obj = liftIO $ getObjectPropertyBool obj "allow-overwrite"--setDownloadAllowOverwrite :: (MonadIO m, DownloadK o) => o -> Bool -> m ()-setDownloadAllowOverwrite obj val = liftIO $ setObjectPropertyBool obj "allow-overwrite" val--constructDownloadAllowOverwrite :: Bool -> IO ([Char], GValue)-constructDownloadAllowOverwrite val = constructObjectPropertyBool "allow-overwrite" val--data DownloadAllowOverwritePropertyInfo-instance AttrInfo DownloadAllowOverwritePropertyInfo where-    type AttrAllowedOps DownloadAllowOverwritePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DownloadAllowOverwritePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint DownloadAllowOverwritePropertyInfo = DownloadK-    type AttrGetType DownloadAllowOverwritePropertyInfo = Bool-    type AttrLabel DownloadAllowOverwritePropertyInfo = "Download::allow-overwrite"-    attrGet _ = getDownloadAllowOverwrite-    attrSet _ = setDownloadAllowOverwrite-    attrConstruct _ = constructDownloadAllowOverwrite---- VVV Prop "destination"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getDownloadDestination :: (MonadIO m, DownloadK o) => o -> m T.Text-getDownloadDestination obj = liftIO $ getObjectPropertyString obj "destination"--data DownloadDestinationPropertyInfo-instance AttrInfo DownloadDestinationPropertyInfo where-    type AttrAllowedOps DownloadDestinationPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DownloadDestinationPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DownloadDestinationPropertyInfo = DownloadK-    type AttrGetType DownloadDestinationPropertyInfo = T.Text-    type AttrLabel DownloadDestinationPropertyInfo = "Download::destination"-    attrGet _ = getDownloadDestination-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "estimated-progress"-   -- Type: TBasicType TDouble-   -- Flags: [PropertyReadable]--getDownloadEstimatedProgress :: (MonadIO m, DownloadK o) => o -> m Double-getDownloadEstimatedProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-progress"--data DownloadEstimatedProgressPropertyInfo-instance AttrInfo DownloadEstimatedProgressPropertyInfo where-    type AttrAllowedOps DownloadEstimatedProgressPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DownloadEstimatedProgressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DownloadEstimatedProgressPropertyInfo = DownloadK-    type AttrGetType DownloadEstimatedProgressPropertyInfo = Double-    type AttrLabel DownloadEstimatedProgressPropertyInfo = "Download::estimated-progress"-    attrGet _ = getDownloadEstimatedProgress-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "response"-   -- Type: TInterface "WebKit2" "URIResponse"-   -- Flags: [PropertyReadable]--getDownloadResponse :: (MonadIO m, DownloadK o) => o -> m URIResponse-getDownloadResponse obj = liftIO $ getObjectPropertyObject obj "response" URIResponse--data DownloadResponsePropertyInfo-instance AttrInfo DownloadResponsePropertyInfo where-    type AttrAllowedOps DownloadResponsePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DownloadResponsePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DownloadResponsePropertyInfo = DownloadK-    type AttrGetType DownloadResponsePropertyInfo = URIResponse-    type AttrLabel DownloadResponsePropertyInfo = "Download::response"-    attrGet _ = getDownloadResponse-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList Download = '[ '("allow-overwrite", DownloadAllowOverwritePropertyInfo), '("destination", DownloadDestinationPropertyInfo), '("estimated-progress", DownloadEstimatedProgressPropertyInfo), '("response", DownloadResponsePropertyInfo)]--type instance AttributeList FaviconDatabase = '[ ]---- VVV Prop "filter"-   -- Type: TInterface "Gtk" "FileFilter"-   -- Flags: [PropertyReadable]--getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m Gtk.FileFilter-getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter--data FileChooserRequestFilterPropertyInfo-instance AttrInfo FileChooserRequestFilterPropertyInfo where-    type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestFilterPropertyInfo = Gtk.FileFilter-    type AttrLabel FileChooserRequestFilterPropertyInfo = "FileChooserRequest::filter"-    attrGet _ = getFileChooserRequestFilter-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "mime-types"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable]--getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text]-getFileChooserRequestMimeTypes obj = liftIO $ getObjectPropertyStringArray obj "mime-types"--data FileChooserRequestMimeTypesPropertyInfo-instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where-    type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text]-    type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "FileChooserRequest::mime-types"-    attrGet _ = getFileChooserRequestMimeTypes-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "select-multiple"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getFileChooserRequestSelectMultiple :: (MonadIO m, FileChooserRequestK o) => o -> m Bool-getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple"--data FileChooserRequestSelectMultiplePropertyInfo-instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where-    type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool-    type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "FileChooserRequest::select-multiple"-    attrGet _ = getFileChooserRequestSelectMultiple-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "selected-files"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable]--getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text]-getFileChooserRequestSelectedFiles obj = liftIO $ getObjectPropertyStringArray obj "selected-files"--data FileChooserRequestSelectedFilesPropertyInfo-instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where-    type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text]-    type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "FileChooserRequest::selected-files"-    attrGet _ = getFileChooserRequestSelectedFiles-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList FileChooserRequest = '[ '("filter", FileChooserRequestFilterPropertyInfo), '("mime-types", FileChooserRequestMimeTypesPropertyInfo), '("select-multiple", FileChooserRequestSelectMultiplePropertyInfo), '("selected-files", FileChooserRequestSelectedFilesPropertyInfo)]---- VVV Prop "max-match-count"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable]--getFindControllerMaxMatchCount :: (MonadIO m, FindControllerK o) => o -> m Word32-getFindControllerMaxMatchCount obj = liftIO $ getObjectPropertyCUInt obj "max-match-count"--data FindControllerMaxMatchCountPropertyInfo-instance AttrInfo FindControllerMaxMatchCountPropertyInfo where-    type AttrAllowedOps FindControllerMaxMatchCountPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FindControllerMaxMatchCountPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FindControllerMaxMatchCountPropertyInfo = FindControllerK-    type AttrGetType FindControllerMaxMatchCountPropertyInfo = Word32-    type AttrLabel FindControllerMaxMatchCountPropertyInfo = "FindController::max-match-count"-    attrGet _ = getFindControllerMaxMatchCount-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "options"-   -- Type: TInterface "WebKit2" "FindOptions"-   -- Flags: [PropertyReadable]--getFindControllerOptions :: (MonadIO m, FindControllerK o) => o -> m [FindOptions]-getFindControllerOptions obj = liftIO $ getObjectPropertyFlags obj "options"--data FindControllerOptionsPropertyInfo-instance AttrInfo FindControllerOptionsPropertyInfo where-    type AttrAllowedOps FindControllerOptionsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FindControllerOptionsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FindControllerOptionsPropertyInfo = FindControllerK-    type AttrGetType FindControllerOptionsPropertyInfo = [FindOptions]-    type AttrLabel FindControllerOptionsPropertyInfo = "FindController::options"-    attrGet _ = getFindControllerOptions-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "text"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getFindControllerText :: (MonadIO m, FindControllerK o) => o -> m T.Text-getFindControllerText obj = liftIO $ getObjectPropertyString obj "text"--data FindControllerTextPropertyInfo-instance AttrInfo FindControllerTextPropertyInfo where-    type AttrAllowedOps FindControllerTextPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FindControllerTextPropertyInfo = FindControllerK-    type AttrGetType FindControllerTextPropertyInfo = T.Text-    type AttrLabel FindControllerTextPropertyInfo = "FindController::text"-    attrGet _ = getFindControllerText-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "web-view"-   -- Type: TInterface "WebKit2" "WebView"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getFindControllerWebView :: (MonadIO m, FindControllerK o) => o -> m WebView-getFindControllerWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView--constructFindControllerWebView :: (WebViewK a) => a -> IO ([Char], GValue)-constructFindControllerWebView val = constructObjectPropertyObject "web-view" val--data FindControllerWebViewPropertyInfo-instance AttrInfo FindControllerWebViewPropertyInfo where-    type AttrAllowedOps FindControllerWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebViewK-    type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = FindControllerK-    type AttrGetType FindControllerWebViewPropertyInfo = WebView-    type AttrLabel FindControllerWebViewPropertyInfo = "FindController::web-view"-    attrGet _ = getFindControllerWebView-    attrSet _ = undefined-    attrConstruct _ = constructFindControllerWebView--type instance AttributeList FindController = '[ '("max-match-count", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("web-view", FindControllerWebViewPropertyInfo)]--type instance AttributeList FormSubmissionRequest = '[ ]--type instance AttributeList GeolocationPermissionRequest = '[ ]---- VVV Prop "context"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m Word32-getHitTestResultContext obj = liftIO $ getObjectPropertyCUInt obj "context"--constructHitTestResultContext :: Word32 -> IO ([Char], GValue)-constructHitTestResultContext val = constructObjectPropertyCUInt "context" val--data HitTestResultContextPropertyInfo-instance AttrInfo HitTestResultContextPropertyInfo where-    type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultContextPropertyInfo = Word32-    type AttrLabel HitTestResultContextPropertyInfo = "HitTestResult::context"-    attrGet _ = getHitTestResultContext-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultContext---- VVV Prop "image-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri"--constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue)-constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" val--data HitTestResultImageUriPropertyInfo-instance AttrInfo HitTestResultImageUriPropertyInfo where-    type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultImageUriPropertyInfo = T.Text-    type AttrLabel HitTestResultImageUriPropertyInfo = "HitTestResult::image-uri"-    attrGet _ = getHitTestResultImageUri-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultImageUri---- VVV Prop "link-label"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getHitTestResultLinkLabel :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultLinkLabel obj = liftIO $ getObjectPropertyString obj "link-label"--constructHitTestResultLinkLabel :: T.Text -> IO ([Char], GValue)-constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" val--data HitTestResultLinkLabelPropertyInfo-instance AttrInfo HitTestResultLinkLabelPropertyInfo where-    type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text-    type AttrLabel HitTestResultLinkLabelPropertyInfo = "HitTestResult::link-label"-    attrGet _ = getHitTestResultLinkLabel-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultLinkLabel---- VVV Prop "link-title"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getHitTestResultLinkTitle :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultLinkTitle obj = liftIO $ getObjectPropertyString obj "link-title"--constructHitTestResultLinkTitle :: T.Text -> IO ([Char], GValue)-constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" val--data HitTestResultLinkTitlePropertyInfo-instance AttrInfo HitTestResultLinkTitlePropertyInfo where-    type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK-    type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text-    type AttrLabel HitTestResultLinkTitlePropertyInfo = "HitTestResult::link-title"-    attrGet _ = getHitTestResultLinkTitle-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultLinkTitle---- VVV Prop "link-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri"--constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue)-constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" val--data HitTestResultLinkUriPropertyInfo-instance AttrInfo HitTestResultLinkUriPropertyInfo where-    type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text-    type AttrLabel HitTestResultLinkUriPropertyInfo = "HitTestResult::link-uri"-    attrGet _ = getHitTestResultLinkUri-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultLinkUri---- VVV Prop "media-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri"--constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue)-constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" val--data HitTestResultMediaUriPropertyInfo-instance AttrInfo HitTestResultMediaUriPropertyInfo where-    type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text-    type AttrLabel HitTestResultMediaUriPropertyInfo = "HitTestResult::media-uri"-    attrGet _ = getHitTestResultMediaUri-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultMediaUri--type instance AttributeList HitTestResult = '[ '("context", HitTestResultContextPropertyInfo), '("image-uri", HitTestResultImageUriPropertyInfo), '("link-label", HitTestResultLinkLabelPropertyInfo), '("link-title", HitTestResultLinkTitlePropertyInfo), '("link-uri", HitTestResultLinkUriPropertyInfo), '("media-uri", HitTestResultMediaUriPropertyInfo)]---- VVV Prop "frame-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getNavigationPolicyDecisionFrameName :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m T.Text-getNavigationPolicyDecisionFrameName obj = liftIO $ getObjectPropertyString obj "frame-name"--data NavigationPolicyDecisionFrameNamePropertyInfo-instance AttrInfo NavigationPolicyDecisionFrameNamePropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionFrameNamePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = T.Text-    type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "NavigationPolicyDecision::frame-name"-    attrGet _ = getNavigationPolicyDecisionFrameName-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "modifiers"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable]--getNavigationPolicyDecisionModifiers :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32-getNavigationPolicyDecisionModifiers obj = liftIO $ getObjectPropertyCUInt obj "modifiers"--data NavigationPolicyDecisionModifiersPropertyInfo-instance AttrInfo NavigationPolicyDecisionModifiersPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionModifiersPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionModifiersPropertyInfo = Word32-    type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "NavigationPolicyDecision::modifiers"-    attrGet _ = getNavigationPolicyDecisionModifiers-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "mouse-button"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable]--getNavigationPolicyDecisionMouseButton :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32-getNavigationPolicyDecisionMouseButton obj = liftIO $ getObjectPropertyCUInt obj "mouse-button"--data NavigationPolicyDecisionMouseButtonPropertyInfo-instance AttrInfo NavigationPolicyDecisionMouseButtonPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionMouseButtonPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionMouseButtonPropertyInfo = Word32-    type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "NavigationPolicyDecision::mouse-button"-    attrGet _ = getNavigationPolicyDecisionMouseButton-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "navigation-action"-   -- Type: TInterface "WebKit2" "NavigationAction"-   -- Flags: [PropertyReadable]--getNavigationPolicyDecisionNavigationAction :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationAction-getNavigationPolicyDecisionNavigationAction obj = liftIO $ getObjectPropertyBoxed obj "navigation-action" NavigationAction--data NavigationPolicyDecisionNavigationActionPropertyInfo-instance AttrInfo NavigationPolicyDecisionNavigationActionPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionNavigationActionPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationAction-    type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "NavigationPolicyDecision::navigation-action"-    attrGet _ = getNavigationPolicyDecisionNavigationAction-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "navigation-type"-   -- Type: TInterface "WebKit2" "NavigationType"-   -- Flags: [PropertyReadable]--getNavigationPolicyDecisionNavigationType :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationType-getNavigationPolicyDecisionNavigationType obj = liftIO $ getObjectPropertyEnum obj "navigation-type"--data NavigationPolicyDecisionNavigationTypePropertyInfo-instance AttrInfo NavigationPolicyDecisionNavigationTypePropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionNavigationTypePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationType-    type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "NavigationPolicyDecision::navigation-type"-    attrGet _ = getNavigationPolicyDecisionNavigationType-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "request"-   -- Type: TInterface "WebKit2" "URIRequest"-   -- Flags: [PropertyReadable]--getNavigationPolicyDecisionRequest :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m URIRequest-getNavigationPolicyDecisionRequest obj = liftIO $ getObjectPropertyObject obj "request" URIRequest--data NavigationPolicyDecisionRequestPropertyInfo-instance AttrInfo NavigationPolicyDecisionRequestPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionRequestPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = URIRequest-    type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "NavigationPolicyDecision::request"-    attrGet _ = getNavigationPolicyDecisionRequest-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList NavigationPolicyDecision = '[ '("frame-name", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouse-button", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigation-action", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigation-type", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)]---- VVV Prop "body"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getNotificationBody :: (MonadIO m, NotificationK o) => o -> m T.Text-getNotificationBody obj = liftIO $ getObjectPropertyString obj "body"--data NotificationBodyPropertyInfo-instance AttrInfo NotificationBodyPropertyInfo where-    type AttrAllowedOps NotificationBodyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NotificationBodyPropertyInfo = NotificationK-    type AttrGetType NotificationBodyPropertyInfo = T.Text-    type AttrLabel NotificationBodyPropertyInfo = "Notification::body"-    attrGet _ = getNotificationBody-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "id"-   -- Type: TBasicType TUInt64-   -- Flags: [PropertyReadable]--getNotificationId :: (MonadIO m, NotificationK o) => o -> m Word64-getNotificationId obj = liftIO $ getObjectPropertyUInt64 obj "id"--data NotificationIdPropertyInfo-instance AttrInfo NotificationIdPropertyInfo where-    type AttrAllowedOps NotificationIdPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NotificationIdPropertyInfo = NotificationK-    type AttrGetType NotificationIdPropertyInfo = Word64-    type AttrLabel NotificationIdPropertyInfo = "Notification::id"-    attrGet _ = getNotificationId-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "title"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getNotificationTitle :: (MonadIO m, NotificationK o) => o -> m T.Text-getNotificationTitle obj = liftIO $ getObjectPropertyString obj "title"--data NotificationTitlePropertyInfo-instance AttrInfo NotificationTitlePropertyInfo where-    type AttrAllowedOps NotificationTitlePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NotificationTitlePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NotificationTitlePropertyInfo = NotificationK-    type AttrGetType NotificationTitlePropertyInfo = T.Text-    type AttrLabel NotificationTitlePropertyInfo = "Notification::title"-    attrGet _ = getNotificationTitle-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList Notification = '[ '("body", NotificationBodyPropertyInfo), '("id", NotificationIdPropertyInfo), '("title", NotificationTitlePropertyInfo)]--type instance AttributeList NotificationPermissionRequest = '[ ]--type instance AttributeList PermissionRequest = '[ ]--type instance AttributeList Plugin = '[ ]--type instance AttributeList PolicyDecision = '[ ]---- VVV Prop "page-setup"-   -- Type: TInterface "Gtk" "PageSetup"-   -- Flags: [PropertyReadable,PropertyWritable]--getPrintOperationPageSetup :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PageSetup-getPrintOperationPageSetup obj = liftIO $ getObjectPropertyObject obj "page-setup" Gtk.PageSetup--setPrintOperationPageSetup :: (MonadIO m, PrintOperationK o, Gtk.PageSetupK a) => o -> a -> m ()-setPrintOperationPageSetup obj val = liftIO $ setObjectPropertyObject obj "page-setup" val--constructPrintOperationPageSetup :: (Gtk.PageSetupK a) => a -> IO ([Char], GValue)-constructPrintOperationPageSetup val = constructObjectPropertyObject "page-setup" val--data PrintOperationPageSetupPropertyInfo-instance AttrInfo PrintOperationPageSetupPropertyInfo where-    type AttrAllowedOps PrintOperationPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint PrintOperationPageSetupPropertyInfo = Gtk.PageSetupK-    type AttrBaseTypeConstraint PrintOperationPageSetupPropertyInfo = PrintOperationK-    type AttrGetType PrintOperationPageSetupPropertyInfo = Gtk.PageSetup-    type AttrLabel PrintOperationPageSetupPropertyInfo = "PrintOperation::page-setup"-    attrGet _ = getPrintOperationPageSetup-    attrSet _ = setPrintOperationPageSetup-    attrConstruct _ = constructPrintOperationPageSetup---- VVV Prop "print-settings"-   -- Type: TInterface "Gtk" "PrintSettings"-   -- Flags: [PropertyReadable,PropertyWritable]--getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PrintSettings-getPrintOperationPrintSettings obj = liftIO $ getObjectPropertyObject obj "print-settings" Gtk.PrintSettings--setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, Gtk.PrintSettingsK a) => o -> a -> m ()-setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" val--constructPrintOperationPrintSettings :: (Gtk.PrintSettingsK a) => a -> IO ([Char], GValue)-constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" val--data PrintOperationPrintSettingsPropertyInfo-instance AttrInfo PrintOperationPrintSettingsPropertyInfo where-    type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettingsK-    type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK-    type AttrGetType PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings-    type AttrLabel PrintOperationPrintSettingsPropertyInfo = "PrintOperation::print-settings"-    attrGet _ = getPrintOperationPrintSettings-    attrSet _ = setPrintOperationPrintSettings-    attrConstruct _ = constructPrintOperationPrintSettings---- VVV Prop "web-view"-   -- Type: TInterface "WebKit2" "WebView"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getPrintOperationWebView :: (MonadIO m, PrintOperationK o) => o -> m WebView-getPrintOperationWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView--constructPrintOperationWebView :: (WebViewK a) => a -> IO ([Char], GValue)-constructPrintOperationWebView val = constructObjectPropertyObject "web-view" val--data PrintOperationWebViewPropertyInfo-instance AttrInfo PrintOperationWebViewPropertyInfo where-    type AttrAllowedOps PrintOperationWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint PrintOperationWebViewPropertyInfo = WebViewK-    type AttrBaseTypeConstraint PrintOperationWebViewPropertyInfo = PrintOperationK-    type AttrGetType PrintOperationWebViewPropertyInfo = WebView-    type AttrLabel PrintOperationWebViewPropertyInfo = "PrintOperation::web-view"-    attrGet _ = getPrintOperationWebView-    attrSet _ = undefined-    attrConstruct _ = constructPrintOperationWebView--type instance AttributeList PrintOperation = '[ '("page-setup", PrintOperationPageSetupPropertyInfo), '("print-settings", PrintOperationPrintSettingsPropertyInfo), '("web-view", PrintOperationWebViewPropertyInfo)]---- VVV Prop "request"-   -- Type: TInterface "WebKit2" "URIRequest"-   -- Flags: [PropertyReadable]--getResponsePolicyDecisionRequest :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIRequest-getResponsePolicyDecisionRequest obj = liftIO $ getObjectPropertyObject obj "request" URIRequest--data ResponsePolicyDecisionRequestPropertyInfo-instance AttrInfo ResponsePolicyDecisionRequestPropertyInfo where-    type AttrAllowedOps ResponsePolicyDecisionRequestPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = ResponsePolicyDecisionK-    type AttrGetType ResponsePolicyDecisionRequestPropertyInfo = URIRequest-    type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "ResponsePolicyDecision::request"-    attrGet _ = getResponsePolicyDecisionRequest-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "response"-   -- Type: TInterface "WebKit2" "URIResponse"-   -- Flags: [PropertyReadable]--getResponsePolicyDecisionResponse :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIResponse-getResponsePolicyDecisionResponse obj = liftIO $ getObjectPropertyObject obj "response" URIResponse--data ResponsePolicyDecisionResponsePropertyInfo-instance AttrInfo ResponsePolicyDecisionResponsePropertyInfo where-    type AttrAllowedOps ResponsePolicyDecisionResponsePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = ResponsePolicyDecisionK-    type AttrGetType ResponsePolicyDecisionResponsePropertyInfo = URIResponse-    type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "ResponsePolicyDecision::response"-    attrGet _ = getResponsePolicyDecisionResponse-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList ResponsePolicyDecision = '[ '("request", ResponsePolicyDecisionRequestPropertyInfo), '("response", ResponsePolicyDecisionResponsePropertyInfo)]--type instance AttributeList SecurityManager = '[ ]---- 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 = '[ '("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)]---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]--getURIRequestUri :: (MonadIO m, URIRequestK o) => o -> m T.Text-getURIRequestUri obj = liftIO $ getObjectPropertyString obj "uri"--setURIRequestUri :: (MonadIO m, URIRequestK o) => o -> T.Text -> m ()-setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val--constructURIRequestUri :: T.Text -> IO ([Char], GValue)-constructURIRequestUri val = constructObjectPropertyString "uri" val--data URIRequestUriPropertyInfo-instance AttrInfo URIRequestUriPropertyInfo where-    type AttrAllowedOps URIRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint URIRequestUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint URIRequestUriPropertyInfo = URIRequestK-    type AttrGetType URIRequestUriPropertyInfo = T.Text-    type AttrLabel URIRequestUriPropertyInfo = "URIRequest::uri"-    attrGet _ = getURIRequestUri-    attrSet _ = setURIRequestUri-    attrConstruct _ = constructURIRequestUri--type instance AttributeList URIRequest = '[ '("uri", URIRequestUriPropertyInfo)]---- VVV Prop "content-length"-   -- Type: TBasicType TUInt64-   -- Flags: [PropertyReadable]--getURIResponseContentLength :: (MonadIO m, URIResponseK o) => o -> m Word64-getURIResponseContentLength obj = liftIO $ getObjectPropertyUInt64 obj "content-length"--data URIResponseContentLengthPropertyInfo-instance AttrInfo URIResponseContentLengthPropertyInfo where-    type AttrAllowedOps URIResponseContentLengthPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseContentLengthPropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseContentLengthPropertyInfo = URIResponseK-    type AttrGetType URIResponseContentLengthPropertyInfo = Word64-    type AttrLabel URIResponseContentLengthPropertyInfo = "URIResponse::content-length"-    attrGet _ = getURIResponseContentLength-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "http-headers"-   -- Type: TInterface "Soup" "MessageHeaders"-   -- Flags: [PropertyReadable]--getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m Soup.MessageHeaders-getURIResponseHttpHeaders obj = liftIO $ getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders--data URIResponseHttpHeadersPropertyInfo-instance AttrInfo URIResponseHttpHeadersPropertyInfo where-    type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK-    type AttrGetType URIResponseHttpHeadersPropertyInfo = Soup.MessageHeaders-    type AttrLabel URIResponseHttpHeadersPropertyInfo = "URIResponse::http-headers"-    attrGet _ = getURIResponseHttpHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "mime-type"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getURIResponseMimeType :: (MonadIO m, URIResponseK o) => o -> m T.Text-getURIResponseMimeType obj = liftIO $ getObjectPropertyString obj "mime-type"--data URIResponseMimeTypePropertyInfo-instance AttrInfo URIResponseMimeTypePropertyInfo where-    type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK-    type AttrGetType URIResponseMimeTypePropertyInfo = T.Text-    type AttrLabel URIResponseMimeTypePropertyInfo = "URIResponse::mime-type"-    attrGet _ = getURIResponseMimeType-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "status-code"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable]--getURIResponseStatusCode :: (MonadIO m, URIResponseK o) => o -> m Word32-getURIResponseStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code"--data URIResponseStatusCodePropertyInfo-instance AttrInfo URIResponseStatusCodePropertyInfo where-    type AttrAllowedOps URIResponseStatusCodePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseStatusCodePropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseStatusCodePropertyInfo = URIResponseK-    type AttrGetType URIResponseStatusCodePropertyInfo = Word32-    type AttrLabel URIResponseStatusCodePropertyInfo = "URIResponse::status-code"-    attrGet _ = getURIResponseStatusCode-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "suggested-filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getURIResponseSuggestedFilename :: (MonadIO m, URIResponseK o) => o -> m T.Text-getURIResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename"--data URIResponseSuggestedFilenamePropertyInfo-instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where-    type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK-    type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text-    type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "URIResponse::suggested-filename"-    attrGet _ = getURIResponseSuggestedFilename-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getURIResponseUri :: (MonadIO m, URIResponseK o) => o -> m T.Text-getURIResponseUri obj = liftIO $ getObjectPropertyString obj "uri"--data URIResponseUriPropertyInfo-instance AttrInfo URIResponseUriPropertyInfo where-    type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK-    type AttrGetType URIResponseUriPropertyInfo = T.Text-    type AttrLabel URIResponseUriPropertyInfo = "URIResponse::uri"-    attrGet _ = getURIResponseUri-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList URIResponse = '[ '("content-length", URIResponseContentLengthPropertyInfo), '("http-headers", URIResponseHttpHeadersPropertyInfo), '("mime-type", URIResponseMimeTypePropertyInfo), '("status-code", URIResponseStatusCodePropertyInfo), '("suggested-filename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)]--type instance AttributeList URISchemeRequest = '[ ]--type instance AttributeList UserContentManager = '[ ]---- VVV Prop "is-for-audio-device"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getUserMediaPermissionRequestIsForAudioDevice :: (MonadIO m, UserMediaPermissionRequestK o) => o -> m Bool-getUserMediaPermissionRequestIsForAudioDevice obj = liftIO $ getObjectPropertyBool obj "is-for-audio-device"--data UserMediaPermissionRequestIsForAudioDevicePropertyInfo-instance AttrInfo UserMediaPermissionRequestIsForAudioDevicePropertyInfo where-    type AttrAllowedOps UserMediaPermissionRequestIsForAudioDevicePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = (~) ()-    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = UserMediaPermissionRequestK-    type AttrGetType UserMediaPermissionRequestIsForAudioDevicePropertyInfo = Bool-    type AttrLabel UserMediaPermissionRequestIsForAudioDevicePropertyInfo = "UserMediaPermissionRequest::is-for-audio-device"-    attrGet _ = getUserMediaPermissionRequestIsForAudioDevice-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "is-for-video-device"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getUserMediaPermissionRequestIsForVideoDevice :: (MonadIO m, UserMediaPermissionRequestK o) => o -> m Bool-getUserMediaPermissionRequestIsForVideoDevice obj = liftIO $ getObjectPropertyBool obj "is-for-video-device"--data UserMediaPermissionRequestIsForVideoDevicePropertyInfo-instance AttrInfo UserMediaPermissionRequestIsForVideoDevicePropertyInfo where-    type AttrAllowedOps UserMediaPermissionRequestIsForVideoDevicePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = (~) ()-    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = UserMediaPermissionRequestK-    type AttrGetType UserMediaPermissionRequestIsForVideoDevicePropertyInfo = Bool-    type AttrLabel UserMediaPermissionRequestIsForVideoDevicePropertyInfo = "UserMediaPermissionRequest::is-for-video-device"-    attrGet _ = getUserMediaPermissionRequestIsForVideoDevice-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList UserMediaPermissionRequest = '[ '("is-for-audio-device", UserMediaPermissionRequestIsForAudioDevicePropertyInfo), '("is-for-video-device", UserMediaPermissionRequestIsForVideoDevicePropertyInfo)]---- VVV Prop "local-storage-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWebContextLocalStorageDirectory :: (MonadIO m, WebContextK o) => o -> m T.Text-getWebContextLocalStorageDirectory obj = liftIO $ getObjectPropertyString obj "local-storage-directory"--constructWebContextLocalStorageDirectory :: T.Text -> IO ([Char], GValue)-constructWebContextLocalStorageDirectory val = constructObjectPropertyString "local-storage-directory" val--data WebContextLocalStorageDirectoryPropertyInfo-instance AttrInfo WebContextLocalStorageDirectoryPropertyInfo where-    type AttrAllowedOps WebContextLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = WebContextK-    type AttrGetType WebContextLocalStorageDirectoryPropertyInfo = T.Text-    type AttrLabel WebContextLocalStorageDirectoryPropertyInfo = "WebContext::local-storage-directory"-    attrGet _ = getWebContextLocalStorageDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebContextLocalStorageDirectory--type instance AttributeList WebContext = '[ '("local-storage-directory", WebContextLocalStorageDirectoryPropertyInfo)]---- VVV Prop "attached-height"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable]--getWebInspectorAttachedHeight :: (MonadIO m, WebInspectorK o) => o -> m Word32-getWebInspectorAttachedHeight obj = liftIO $ getObjectPropertyCUInt obj "attached-height"--data WebInspectorAttachedHeightPropertyInfo-instance AttrInfo WebInspectorAttachedHeightPropertyInfo where-    type AttrAllowedOps WebInspectorAttachedHeightPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebInspectorAttachedHeightPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebInspectorAttachedHeightPropertyInfo = WebInspectorK-    type AttrGetType WebInspectorAttachedHeightPropertyInfo = Word32-    type AttrLabel WebInspectorAttachedHeightPropertyInfo = "WebInspector::attached-height"-    attrGet _ = getWebInspectorAttachedHeight-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "can-attach"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getWebInspectorCanAttach :: (MonadIO m, WebInspectorK o) => o -> m Bool-getWebInspectorCanAttach obj = liftIO $ getObjectPropertyBool obj "can-attach"--data WebInspectorCanAttachPropertyInfo-instance AttrInfo WebInspectorCanAttachPropertyInfo where-    type AttrAllowedOps WebInspectorCanAttachPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebInspectorCanAttachPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebInspectorCanAttachPropertyInfo = WebInspectorK-    type AttrGetType WebInspectorCanAttachPropertyInfo = Bool-    type AttrLabel WebInspectorCanAttachPropertyInfo = "WebInspector::can-attach"-    attrGet _ = getWebInspectorCanAttach-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "inspected-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text-getWebInspectorInspectedUri obj = liftIO $ getObjectPropertyString obj "inspected-uri"--data WebInspectorInspectedUriPropertyInfo-instance AttrInfo WebInspectorInspectedUriPropertyInfo where-    type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK-    type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text-    type AttrLabel WebInspectorInspectedUriPropertyInfo = "WebInspector::inspected-uri"-    attrGet _ = getWebInspectorInspectedUri-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList WebInspector = '[ '("attached-height", WebInspectorAttachedHeightPropertyInfo), '("can-attach", WebInspectorCanAttachPropertyInfo), '("inspected-uri", WebInspectorInspectedUriPropertyInfo)]---- VVV Prop "response"-   -- Type: TInterface "WebKit2" "URIResponse"-   -- Flags: [PropertyReadable]--getWebResourceResponse :: (MonadIO m, WebResourceK o) => o -> m URIResponse-getWebResourceResponse obj = liftIO $ getObjectPropertyObject obj "response" URIResponse--data WebResourceResponsePropertyInfo-instance AttrInfo WebResourceResponsePropertyInfo where-    type AttrAllowedOps WebResourceResponsePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebResourceResponsePropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebResourceResponsePropertyInfo = WebResourceK-    type AttrGetType WebResourceResponsePropertyInfo = URIResponse-    type AttrLabel WebResourceResponsePropertyInfo = "WebResource::response"-    attrGet _ = getWebResourceResponse-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text-getWebResourceUri obj = liftIO $ getObjectPropertyString obj "uri"--data WebResourceUriPropertyInfo-instance AttrInfo WebResourceUriPropertyInfo where-    type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK-    type AttrGetType WebResourceUriPropertyInfo = T.Text-    type AttrLabel WebResourceUriPropertyInfo = "WebResource::uri"-    attrGet _ = getWebResourceUri-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList WebResource = '[ '("response", WebResourceResponsePropertyInfo), '("uri", WebResourceUriPropertyInfo)]---- 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 = '[ '("app-paintable", GtkA.WidgetAppPaintablePropertyInfo), '("border-width", GtkA.ContainerBorderWidthPropertyInfo), '("can-default", GtkA.WidgetCanDefaultPropertyInfo), '("can-focus", GtkA.WidgetCanFocusPropertyInfo), '("child", GtkA.ContainerChildPropertyInfo), '("composite-child", GtkA.WidgetCompositeChildPropertyInfo), '("double-buffered", GtkA.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("estimated-load-progress", WebViewEstimatedLoadProgressPropertyInfo), '("events", GtkA.WidgetEventsPropertyInfo), '("expand", GtkA.WidgetExpandPropertyInfo), '("favicon", WebViewFaviconPropertyInfo), '("halign", GtkA.WidgetHalignPropertyInfo), '("has-default", GtkA.WidgetHasDefaultPropertyInfo), '("has-focus", GtkA.WidgetHasFocusPropertyInfo), '("has-tooltip", GtkA.WidgetHasTooltipPropertyInfo), '("height-request", GtkA.WidgetHeightRequestPropertyInfo), '("hexpand", GtkA.WidgetHexpandPropertyInfo), '("hexpand-set", GtkA.WidgetHexpandSetPropertyInfo), '("is-focus", GtkA.WidgetIsFocusPropertyInfo), '("is-loading", WebViewIsLoadingPropertyInfo), '("is-playing-audio", WebViewIsPlayingAudioPropertyInfo), '("margin", GtkA.WidgetMarginPropertyInfo), '("margin-bottom", GtkA.WidgetMarginBottomPropertyInfo), '("margin-end", GtkA.WidgetMarginEndPropertyInfo), '("margin-left", GtkA.WidgetMarginLeftPropertyInfo), '("margin-right", GtkA.WidgetMarginRightPropertyInfo), '("margin-start", GtkA.WidgetMarginStartPropertyInfo), '("margin-top", GtkA.WidgetMarginTopPropertyInfo), '("name", GtkA.WidgetNamePropertyInfo), '("no-show-all", GtkA.WidgetNoShowAllPropertyInfo), '("opacity", GtkA.WidgetOpacityPropertyInfo), '("parent", GtkA.WidgetParentPropertyInfo), '("receives-default", GtkA.WidgetReceivesDefaultPropertyInfo), '("related-view", WebViewRelatedViewPropertyInfo), '("resize-mode", GtkA.ContainerResizeModePropertyInfo), '("scale-factor", GtkA.WidgetScaleFactorPropertyInfo), '("sensitive", GtkA.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", GtkA.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltip-markup", GtkA.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", GtkA.WidgetTooltipTextPropertyInfo), '("uri", WebViewUriPropertyInfo), '("user-content-manager", WebViewUserContentManagerPropertyInfo), '("valign", GtkA.WidgetValignPropertyInfo), '("vexpand", GtkA.WidgetVexpandPropertyInfo), '("vexpand-set", GtkA.WidgetVexpandSetPropertyInfo), '("visible", GtkA.WidgetVisiblePropertyInfo), '("web-context", WebViewWebContextPropertyInfo), '("width-request", GtkA.WidgetWidthRequestPropertyInfo), '("window", GtkA.WidgetWindowPropertyInfo), '("zoom-level", WebViewZoomLevelPropertyInfo)]--type instance AttributeList WebViewBase = '[ '("app-paintable", GtkA.WidgetAppPaintablePropertyInfo), '("border-width", GtkA.ContainerBorderWidthPropertyInfo), '("can-default", GtkA.WidgetCanDefaultPropertyInfo), '("can-focus", GtkA.WidgetCanFocusPropertyInfo), '("child", GtkA.ContainerChildPropertyInfo), '("composite-child", GtkA.WidgetCompositeChildPropertyInfo), '("double-buffered", GtkA.WidgetDoubleBufferedPropertyInfo), '("events", GtkA.WidgetEventsPropertyInfo), '("expand", GtkA.WidgetExpandPropertyInfo), '("halign", GtkA.WidgetHalignPropertyInfo), '("has-default", GtkA.WidgetHasDefaultPropertyInfo), '("has-focus", GtkA.WidgetHasFocusPropertyInfo), '("has-tooltip", GtkA.WidgetHasTooltipPropertyInfo), '("height-request", GtkA.WidgetHeightRequestPropertyInfo), '("hexpand", GtkA.WidgetHexpandPropertyInfo), '("hexpand-set", GtkA.WidgetHexpandSetPropertyInfo), '("is-focus", GtkA.WidgetIsFocusPropertyInfo), '("margin", GtkA.WidgetMarginPropertyInfo), '("margin-bottom", GtkA.WidgetMarginBottomPropertyInfo), '("margin-end", GtkA.WidgetMarginEndPropertyInfo), '("margin-left", GtkA.WidgetMarginLeftPropertyInfo), '("margin-right", GtkA.WidgetMarginRightPropertyInfo), '("margin-start", GtkA.WidgetMarginStartPropertyInfo), '("margin-top", GtkA.WidgetMarginTopPropertyInfo), '("name", GtkA.WidgetNamePropertyInfo), '("no-show-all", GtkA.WidgetNoShowAllPropertyInfo), '("opacity", GtkA.WidgetOpacityPropertyInfo), '("parent", GtkA.WidgetParentPropertyInfo), '("receives-default", GtkA.WidgetReceivesDefaultPropertyInfo), '("resize-mode", GtkA.ContainerResizeModePropertyInfo), '("scale-factor", GtkA.WidgetScaleFactorPropertyInfo), '("sensitive", GtkA.WidgetSensitivePropertyInfo), '("style", GtkA.WidgetStylePropertyInfo), '("tooltip-markup", GtkA.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", GtkA.WidgetTooltipTextPropertyInfo), '("valign", GtkA.WidgetValignPropertyInfo), '("vexpand", GtkA.WidgetVexpandPropertyInfo), '("vexpand-set", GtkA.WidgetVexpandSetPropertyInfo), '("visible", GtkA.WidgetVisiblePropertyInfo), '("width-request", GtkA.WidgetWidthRequestPropertyInfo), '("window", GtkA.WidgetWindowPropertyInfo)]---- VVV Prop "fullscreen"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesFullscreen :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen"--constructWindowPropertiesFullscreen :: Bool -> IO ([Char], GValue)-constructWindowPropertiesFullscreen val = constructObjectPropertyBool "fullscreen" val--data WindowPropertiesFullscreenPropertyInfo-instance AttrInfo WindowPropertiesFullscreenPropertyInfo where-    type AttrAllowedOps WindowPropertiesFullscreenPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesFullscreenPropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesFullscreenPropertyInfo = Bool-    type AttrLabel WindowPropertiesFullscreenPropertyInfo = "WindowProperties::fullscreen"-    attrGet _ = getWindowPropertiesFullscreen-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesFullscreen---- VVV Prop "geometry"-   -- Type: TInterface "cairo" "RectangleInt"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesGeometry :: (MonadIO m, WindowPropertiesK o) => o -> m Cairo.RectangleInt-getWindowPropertiesGeometry obj = liftIO $ getObjectPropertyBoxed obj "geometry" Cairo.RectangleInt--constructWindowPropertiesGeometry :: Cairo.RectangleInt -> IO ([Char], GValue)-constructWindowPropertiesGeometry val = constructObjectPropertyBoxed "geometry" val--data WindowPropertiesGeometryPropertyInfo-instance AttrInfo WindowPropertiesGeometryPropertyInfo where-    type AttrAllowedOps WindowPropertiesGeometryPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Cairo.RectangleInt-    type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesGeometryPropertyInfo = Cairo.RectangleInt-    type AttrLabel WindowPropertiesGeometryPropertyInfo = "WindowProperties::geometry"-    attrGet _ = getWindowPropertiesGeometry-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesGeometry---- VVV Prop "locationbar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesLocationbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible"--constructWindowPropertiesLocationbarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesLocationbarVisible val = constructObjectPropertyBool "locationbar-visible" val--data WindowPropertiesLocationbarVisiblePropertyInfo-instance AttrInfo WindowPropertiesLocationbarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesLocationbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesLocationbarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "WindowProperties::locationbar-visible"-    attrGet _ = getWindowPropertiesLocationbarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesLocationbarVisible---- VVV Prop "menubar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesMenubarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible"--constructWindowPropertiesMenubarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesMenubarVisible val = constructObjectPropertyBool "menubar-visible" val--data WindowPropertiesMenubarVisiblePropertyInfo-instance AttrInfo WindowPropertiesMenubarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesMenubarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesMenubarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "WindowProperties::menubar-visible"-    attrGet _ = getWindowPropertiesMenubarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesMenubarVisible---- VVV Prop "resizable"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesResizable :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesResizable obj = liftIO $ getObjectPropertyBool obj "resizable"--constructWindowPropertiesResizable :: Bool -> IO ([Char], GValue)-constructWindowPropertiesResizable val = constructObjectPropertyBool "resizable" val--data WindowPropertiesResizablePropertyInfo-instance AttrInfo WindowPropertiesResizablePropertyInfo where-    type AttrAllowedOps WindowPropertiesResizablePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesResizablePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesResizablePropertyInfo = Bool-    type AttrLabel WindowPropertiesResizablePropertyInfo = "WindowProperties::resizable"-    attrGet _ = getWindowPropertiesResizable-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesResizable---- VVV Prop "scrollbars-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesScrollbarsVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesScrollbarsVisible obj = liftIO $ getObjectPropertyBool obj "scrollbars-visible"--constructWindowPropertiesScrollbarsVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesScrollbarsVisible val = constructObjectPropertyBool "scrollbars-visible" val--data WindowPropertiesScrollbarsVisiblePropertyInfo-instance AttrInfo WindowPropertiesScrollbarsVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesScrollbarsVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "WindowProperties::scrollbars-visible"-    attrGet _ = getWindowPropertiesScrollbarsVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesScrollbarsVisible---- VVV Prop "statusbar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesStatusbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible"--constructWindowPropertiesStatusbarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesStatusbarVisible val = constructObjectPropertyBool "statusbar-visible" val--data WindowPropertiesStatusbarVisiblePropertyInfo-instance AttrInfo WindowPropertiesStatusbarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesStatusbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesStatusbarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "WindowProperties::statusbar-visible"-    attrGet _ = getWindowPropertiesStatusbarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesStatusbarVisible---- VVV Prop "toolbar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWindowPropertiesToolbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible"--constructWindowPropertiesToolbarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesToolbarVisible val = constructObjectPropertyBool "toolbar-visible" val--data WindowPropertiesToolbarVisiblePropertyInfo-instance AttrInfo WindowPropertiesToolbarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesToolbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesToolbarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "WindowProperties::toolbar-visible"-    attrGet _ = getWindowPropertiesToolbarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesToolbarVisible--type instance AttributeList WindowProperties = '[ '("fullscreen", WindowPropertiesFullscreenPropertyInfo), '("geometry", WindowPropertiesGeometryPropertyInfo), '("locationbar-visible", WindowPropertiesLocationbarVisiblePropertyInfo), '("menubar-visible", WindowPropertiesMenubarVisiblePropertyInfo), '("resizable", WindowPropertiesResizablePropertyInfo), '("scrollbars-visible", WindowPropertiesScrollbarsVisiblePropertyInfo), '("statusbar-visible", WindowPropertiesStatusbarVisiblePropertyInfo), '("toolbar-visible", WindowPropertiesToolbarVisiblePropertyInfo)]-
− GI/WebKit2Signals.hs 
@@ -1,353 +0,0 @@--- Generated code.--{-# OPTIONS_GHC -fno-warn-orphans #-}--{-# LANGUAGE DataKinds,    FlexibleInstances,-             TypeFamilies, MultiParamTypeClasses,-               TypeOperators #-}--module GI.WebKit2Signals where--import Data.GI.Base.Properties (GObjectNotifySignalInfo)-import Data.GI.Base.Signals-import Data.GI.Base.Overloading--import qualified GI.GObjectSignals as GObject-import qualified GI.GtkSignals as Gtk-import GI.WebKit2--data AuthenticationRequestCancelledSignalInfo-instance SignalInfo AuthenticationRequestCancelledSignalInfo where-    type HaskellCallbackType AuthenticationRequestCancelledSignalInfo = AuthenticationRequestCancelledCallback-    connectSignal _ = connectAuthenticationRequestCancelled--type instance SignalList AuthenticationRequest = '[ '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data BackForwardListChangedSignalInfo-instance SignalInfo BackForwardListChangedSignalInfo where-    type HaskellCallbackType BackForwardListChangedSignalInfo = BackForwardListChangedCallback-    connectSignal _ = connectBackForwardListChanged--type instance SignalList BackForwardList = '[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList BackForwardListItem = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data ColorChooserRequestFinishedSignalInfo-instance SignalInfo ColorChooserRequestFinishedSignalInfo where-    type HaskellCallbackType ColorChooserRequestFinishedSignalInfo = ColorChooserRequestFinishedCallback-    connectSignal _ = connectColorChooserRequestFinished--type instance SignalList ColorChooserRequest = '[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ContextMenu = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ContextMenuItem = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data CookieManagerChangedSignalInfo-instance SignalInfo CookieManagerChangedSignalInfo where-    type HaskellCallbackType CookieManagerChangedSignalInfo = CookieManagerChangedCallback-    connectSignal _ = connectCookieManagerChanged--type instance SignalList CookieManager = '[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data DownloadCreatedDestinationSignalInfo-instance SignalInfo DownloadCreatedDestinationSignalInfo where-    type HaskellCallbackType DownloadCreatedDestinationSignalInfo = DownloadCreatedDestinationCallback-    connectSignal _ = connectDownloadCreatedDestination--data DownloadDecideDestinationSignalInfo-instance SignalInfo DownloadDecideDestinationSignalInfo where-    type HaskellCallbackType DownloadDecideDestinationSignalInfo = DownloadDecideDestinationCallback-    connectSignal _ = connectDownloadDecideDestination--data DownloadFailedSignalInfo-instance SignalInfo DownloadFailedSignalInfo where-    type HaskellCallbackType DownloadFailedSignalInfo = DownloadFailedCallback-    connectSignal _ = connectDownloadFailed--data DownloadFinishedSignalInfo-instance SignalInfo DownloadFinishedSignalInfo where-    type HaskellCallbackType DownloadFinishedSignalInfo = DownloadFinishedCallback-    connectSignal _ = connectDownloadFinished--data DownloadReceivedDataSignalInfo-instance SignalInfo DownloadReceivedDataSignalInfo where-    type HaskellCallbackType DownloadReceivedDataSignalInfo = DownloadReceivedDataCallback-    connectSignal _ = connectDownloadReceivedData--type instance SignalList Download = '[ '("created-destination", DownloadCreatedDestinationSignalInfo), '("decide-destination", DownloadDecideDestinationSignalInfo), '("failed", DownloadFailedSignalInfo), '("finished", DownloadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("received-data", DownloadReceivedDataSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data FaviconDatabaseFaviconChangedSignalInfo-instance SignalInfo FaviconDatabaseFaviconChangedSignalInfo where-    type HaskellCallbackType FaviconDatabaseFaviconChangedSignalInfo = FaviconDatabaseFaviconChangedCallback-    connectSignal _ = connectFaviconDatabaseFaviconChanged--type instance SignalList FaviconDatabase = '[ '("favicon-changed", FaviconDatabaseFaviconChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList FileChooserRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data FindControllerCountedMatchesSignalInfo-instance SignalInfo FindControllerCountedMatchesSignalInfo where-    type HaskellCallbackType FindControllerCountedMatchesSignalInfo = FindControllerCountedMatchesCallback-    connectSignal _ = connectFindControllerCountedMatches--data FindControllerFailedToFindTextSignalInfo-instance SignalInfo FindControllerFailedToFindTextSignalInfo where-    type HaskellCallbackType FindControllerFailedToFindTextSignalInfo = FindControllerFailedToFindTextCallback-    connectSignal _ = connectFindControllerFailedToFindText--data FindControllerFoundTextSignalInfo-instance SignalInfo FindControllerFoundTextSignalInfo where-    type HaskellCallbackType FindControllerFoundTextSignalInfo = FindControllerFoundTextCallback-    connectSignal _ = connectFindControllerFoundText--type instance SignalList FindController = '[ '("counted-matches", FindControllerCountedMatchesSignalInfo), '("failed-to-find-text", FindControllerFailedToFindTextSignalInfo), '("found-text", FindControllerFoundTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList FormSubmissionRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList GeolocationPermissionRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList HitTestResult = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList NavigationPolicyDecision = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data NotificationClosedSignalInfo-instance SignalInfo NotificationClosedSignalInfo where-    type HaskellCallbackType NotificationClosedSignalInfo = NotificationClosedCallback-    connectSignal _ = connectNotificationClosed--type instance SignalList Notification = '[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList NotificationPermissionRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList PermissionRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Plugin = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList PolicyDecision = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data PrintOperationFailedSignalInfo-instance SignalInfo PrintOperationFailedSignalInfo where-    type HaskellCallbackType PrintOperationFailedSignalInfo = PrintOperationFailedCallback-    connectSignal _ = connectPrintOperationFailed--data PrintOperationFinishedSignalInfo-instance SignalInfo PrintOperationFinishedSignalInfo where-    type HaskellCallbackType PrintOperationFinishedSignalInfo = PrintOperationFinishedCallback-    connectSignal _ = connectPrintOperationFinished--type instance SignalList PrintOperation = '[ '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ResponsePolicyDecision = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList SecurityManager = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Settings = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList URIRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList URIResponse = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList URISchemeRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data UserContentManagerScriptMessageReceivedSignalInfo-instance SignalInfo UserContentManagerScriptMessageReceivedSignalInfo where-    type HaskellCallbackType UserContentManagerScriptMessageReceivedSignalInfo = UserContentManagerScriptMessageReceivedCallback-    connectSignal _ = connectUserContentManagerScriptMessageReceived--type instance SignalList UserContentManager = '[ '("notify", GObject.ObjectNotifySignalInfo), '("script-message-received", UserContentManagerScriptMessageReceivedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList UserMediaPermissionRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data WebContextDownloadStartedSignalInfo-instance SignalInfo WebContextDownloadStartedSignalInfo where-    type HaskellCallbackType WebContextDownloadStartedSignalInfo = WebContextDownloadStartedCallback-    connectSignal _ = connectWebContextDownloadStarted--data WebContextInitializeWebExtensionsSignalInfo-instance SignalInfo WebContextInitializeWebExtensionsSignalInfo where-    type HaskellCallbackType WebContextInitializeWebExtensionsSignalInfo = WebContextInitializeWebExtensionsCallback-    connectSignal _ = connectWebContextInitializeWebExtensions--type instance SignalList WebContext = '[ '("download-started", WebContextDownloadStartedSignalInfo), '("initialize-web-extensions", WebContextInitializeWebExtensionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data WebInspectorAttachSignalInfo-instance SignalInfo WebInspectorAttachSignalInfo where-    type HaskellCallbackType WebInspectorAttachSignalInfo = WebInspectorAttachCallback-    connectSignal _ = connectWebInspectorAttach--data WebInspectorBringToFrontSignalInfo-instance SignalInfo WebInspectorBringToFrontSignalInfo where-    type HaskellCallbackType WebInspectorBringToFrontSignalInfo = WebInspectorBringToFrontCallback-    connectSignal _ = connectWebInspectorBringToFront--data WebInspectorClosedSignalInfo-instance SignalInfo WebInspectorClosedSignalInfo where-    type HaskellCallbackType WebInspectorClosedSignalInfo = WebInspectorClosedCallback-    connectSignal _ = connectWebInspectorClosed--data WebInspectorDetachSignalInfo-instance SignalInfo WebInspectorDetachSignalInfo where-    type HaskellCallbackType WebInspectorDetachSignalInfo = WebInspectorDetachCallback-    connectSignal _ = connectWebInspectorDetach--data WebInspectorOpenWindowSignalInfo-instance SignalInfo WebInspectorOpenWindowSignalInfo where-    type HaskellCallbackType WebInspectorOpenWindowSignalInfo = WebInspectorOpenWindowCallback-    connectSignal _ = connectWebInspectorOpenWindow--type instance SignalList WebInspector = '[ '("attach", WebInspectorAttachSignalInfo), '("bring-to-front", WebInspectorBringToFrontSignalInfo), '("closed", WebInspectorClosedSignalInfo), '("detach", WebInspectorDetachSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open-window", WebInspectorOpenWindowSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data WebResourceFailedSignalInfo-instance SignalInfo WebResourceFailedSignalInfo where-    type HaskellCallbackType WebResourceFailedSignalInfo = WebResourceFailedCallback-    connectSignal _ = connectWebResourceFailed--data WebResourceFailedWithTlsErrorsSignalInfo-instance SignalInfo WebResourceFailedWithTlsErrorsSignalInfo where-    type HaskellCallbackType WebResourceFailedWithTlsErrorsSignalInfo = WebResourceFailedWithTlsErrorsCallback-    connectSignal _ = connectWebResourceFailedWithTlsErrors--data WebResourceFinishedSignalInfo-instance SignalInfo WebResourceFinishedSignalInfo where-    type HaskellCallbackType WebResourceFinishedSignalInfo = WebResourceFinishedCallback-    connectSignal _ = connectWebResourceFinished--data WebResourceReceivedDataSignalInfo-instance SignalInfo WebResourceReceivedDataSignalInfo where-    type HaskellCallbackType WebResourceReceivedDataSignalInfo = WebResourceReceivedDataCallback-    connectSignal _ = connectWebResourceReceivedData--data WebResourceSentRequestSignalInfo-instance SignalInfo WebResourceSentRequestSignalInfo where-    type HaskellCallbackType WebResourceSentRequestSignalInfo = WebResourceSentRequestCallback-    connectSignal _ = connectWebResourceSentRequest--type instance SignalList WebResource = '[ '("failed", WebResourceFailedSignalInfo), '("failed-with-tls-errors", WebResourceFailedWithTlsErrorsSignalInfo), '("finished", WebResourceFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("received-data", WebResourceReceivedDataSignalInfo), '("sent-request", WebResourceSentRequestSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--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 = '[ '("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)]--type instance SignalList WebViewBase = '[ '("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)]--type instance SignalList WindowProperties = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]-
gi-webkit2.cabal view
@@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name:               gi-webkit2-version:            0.2.8.11+version:            0.2.8.12 synopsis:           WebKit2 bindings description:        Bindings for WebKit2, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -14,19 +14,73 @@  library     default-language:   Haskell2010-    exposed-modules:    GI.WebKit2, GI.WebKit2Attributes, GI.WebKit2Signals+    default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts+    other-extensions:   PatternSynonyms ScopedTypeVariables, ViewPatterns+    ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations+    exposed-modules:    GI.WebKit2.Types+                        GI.WebKit2+                        GI.WebKit2.Callbacks+                        GI.WebKit2.Constants+                        GI.WebKit2.Enums+                        GI.WebKit2.Flags+                        GI.WebKit2.Functions+                        GI.WebKit2.Interfaces+                        GI.WebKit2.Interfaces.PermissionRequest+                        GI.WebKit2.Objects+                        GI.WebKit2.Objects.AuthenticationRequest+                        GI.WebKit2.Objects.BackForwardList+                        GI.WebKit2.Objects.BackForwardListItem+                        GI.WebKit2.Objects.ColorChooserRequest+                        GI.WebKit2.Objects.ContextMenu+                        GI.WebKit2.Objects.ContextMenuItem+                        GI.WebKit2.Objects.CookieManager+                        GI.WebKit2.Objects.Download+                        GI.WebKit2.Objects.FaviconDatabase+                        GI.WebKit2.Objects.FileChooserRequest+                        GI.WebKit2.Objects.FindController+                        GI.WebKit2.Objects.FormSubmissionRequest+                        GI.WebKit2.Objects.GeolocationPermissionRequest+                        GI.WebKit2.Objects.HitTestResult+                        GI.WebKit2.Objects.NavigationPolicyDecision+                        GI.WebKit2.Objects.Notification+                        GI.WebKit2.Objects.NotificationPermissionRequest+                        GI.WebKit2.Objects.Plugin+                        GI.WebKit2.Objects.PolicyDecision+                        GI.WebKit2.Objects.PrintOperation+                        GI.WebKit2.Objects.ResponsePolicyDecision+                        GI.WebKit2.Objects.SecurityManager+                        GI.WebKit2.Objects.Settings+                        GI.WebKit2.Objects.URIRequest+                        GI.WebKit2.Objects.URIResponse+                        GI.WebKit2.Objects.URISchemeRequest+                        GI.WebKit2.Objects.UserContentManager+                        GI.WebKit2.Objects.UserMediaPermissionRequest+                        GI.WebKit2.Objects.WebContext+                        GI.WebKit2.Objects.WebInspector+                        GI.WebKit2.Objects.WebResource+                        GI.WebKit2.Objects.WebView+                        GI.WebKit2.Objects.WebViewBase+                        GI.WebKit2.Objects.WindowProperties+                        GI.WebKit2.Structs+                        GI.WebKit2.Structs.Credential+                        GI.WebKit2.Structs.JavascriptResult+                        GI.WebKit2.Structs.MimeInfo+                        GI.WebKit2.Structs.NavigationAction+                        GI.WebKit2.Structs.ScriptDialog+                        GI.WebKit2.Structs.UserScript+                        GI.WebKit2.Structs.UserStyleSheet     pkgconfig-depends:  webkit2gtk-4.0 >= 2.8     build-depends: base >= 4.7 && <5,-        haskell-gi-base >= 0.11 && < 1,-        gi-atk >= 0.2.16.11 && < 0.2.17,-        gi-glib >= 0.2.44.11 && < 0.2.45,-        gi-gobject >= 0.2.44.11 && < 0.2.45,-        gi-gdk >= 0.3.16.11 && < 0.3.17,-        gi-gio >= 0.2.44.11 && < 0.2.45,-        gi-gtk >= 0.3.16.11 && < 0.3.17,-        gi-javascriptcore >= 0.2.8.11 && < 0.2.9,-        gi-soup >= 0.2.50.11 && < 0.2.51,-        gi-cairo >= 0.1.14.11 && < 0.1.15,+        haskell-gi-base >= 0.12 && < 1,+        gi-atk >= 0.2.16.12 && < 0.2.17,+        gi-glib >= 0.2.44.12 && < 0.2.45,+        gi-gobject >= 0.2.44.12 && < 0.2.45,+        gi-gdk >= 0.3.16.12 && < 0.3.17,+        gi-gio >= 0.2.44.12 && < 0.2.45,+        gi-gtk >= 0.3.16.12 && < 0.3.17,+        gi-javascriptcore >= 0.2.8.12 && < 0.2.9,+        gi-soup >= 0.2.50.12 && < 0.2.51,+        gi-cairo >= 0.1.14.12 && < 0.1.15,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,