gi-webkit2 (empty) → 0.2.8.11
raw patch · 6 files changed
+19128/−0 lines, 6 filesdep +basedep +bytestringdep +containerssetup-changed
Dependencies added: base, bytestring, containers, gi-atk, gi-cairo, gi-gdk, gi-gio, gi-glib, gi-gobject, gi-gtk, gi-javascriptcore, gi-soup, haskell-gi-base, text, transformers
Files
- GI/WebKit2.hs +15679/−0
- GI/WebKit2Attributes.hs +2604/−0
- GI/WebKit2Signals.hs +353/−0
- LICENSE +456/−0
- Setup.hs +3/−0
- gi-webkit2.cabal +33/−0
+ GI/WebKit2.hs view
@@ -0,0 +1,15679 @@+-- 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'+
+ GI/WebKit2Attributes.hs view
@@ -0,0 +1,2604 @@+{-# 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 view
@@ -0,0 +1,353 @@+-- 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)]+
+ LICENSE view
@@ -0,0 +1,456 @@+ GNU LESSER GENERAL PUBLIC LICENSE+ Version 2.1, February 1999++ Copyright (C) 1991, 1999 Free Software Foundation, Inc.+ 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA+ Everyone is permitted to copy and distribute verbatim copies+ of this license document, but changing it is not allowed.++[This is the first released version of the Lesser GPL. It also counts+ as the successor of the GNU Library Public License, version 2, hence+ the version number 2.1.]++ Preamble++ The licenses for most software are designed to take away your+freedom to share and change it. By contrast, the GNU General Public+Licenses are intended to guarantee your freedom to share and change+free software--to make sure the software is free for all its users.++ This license, the Lesser General Public License, applies to some+specially designated software packages--typically libraries--of the+Free Software Foundation and other authors who decide to use it. You+can use it too, but we suggest you first think carefully about whether+this license or the ordinary General Public License is the better+strategy to use in any particular case, based on the explanations below.++ When we speak of free software, we are referring to freedom of use,+not price. Our General Public Licenses are designed to make sure that+you have the freedom to distribute copies of free software (and charge+for this service if you wish); that you receive source code or can get+it if you want it; that you can change the software and use pieces of+it in new free programs; and that you are informed that you can do+these things.++ To protect your rights, we need to make restrictions that forbid+distributors to deny you these rights or to ask you to surrender these+rights. These restrictions translate to certain responsibilities for+you if you distribute copies of the library or if you modify it.++ For example, if you distribute copies of the library, whether gratis+or for a fee, you must give the recipients all the rights that we gave+you. You must make sure that they, too, receive or can get the source+code. If you link other code with the library, you must provide+complete object files to the recipients, so that they can relink them+with the library after making changes to the library and recompiling+it. And you must show them these terms so they know their rights.++ We protect your rights with a two-step method: (1) we copyright the+library, and (2) we offer you this license, which gives you legal+permission to copy, distribute and/or modify the library.++ To protect each distributor, we want to make it very clear that+there is no warranty for the free library. Also, if the library is+modified by someone else and passed on, the recipients should know+that what they have is not the original version, so that the original+author's reputation will not be affected by problems that might be+introduced by others.++ Finally, software patents pose a constant threat to the existence of+any free program. We wish to make sure that a company cannot+effectively restrict the users of a free program by obtaining a+restrictive license from a patent holder. Therefore, we insist that+any patent license obtained for a version of the library must be+consistent with the full freedom of use specified in this license.++ Most GNU software, including some libraries, is covered by the+ordinary GNU General Public License. This license, the GNU Lesser+General Public License, applies to certain designated libraries, and+is quite different from the ordinary General Public License. We use+this license for certain libraries in order to permit linking those+libraries into non-free programs.++ When a program is linked with a library, whether statically or using+a shared library, the combination of the two is legally speaking a+combined work, a derivative of the original library. The ordinary+General Public License therefore permits such linking only if the+entire combination fits its criteria of freedom. The Lesser General+Public License permits more lax criteria for linking other code with+the library.++ We call this license the "Lesser" General Public License because it+does Less to protect the user's freedom than the ordinary General+Public License. It also provides other free software developers Less+of an advantage over competing non-free programs. These disadvantages+are the reason we use the ordinary General Public License for many+libraries. However, the Lesser license provides advantages in certain+special circumstances.++ For example, on rare occasions, there may be a special need to+encourage the widest possible use of a certain library, so that it becomes+a de-facto standard. To achieve this, non-free programs must be+allowed to use the library. A more frequent case is that a free+library does the same job as widely used non-free libraries. In this+case, there is little to gain by limiting the free library to free+software only, so we use the Lesser General Public License.++ In other cases, permission to use a particular library in non-free+programs enables a greater number of people to use a large body of+free software. For example, permission to use the GNU C Library in+non-free programs enables many more people to use the whole GNU+operating system, as well as its variant, the GNU/Linux operating+system.++ Although the Lesser General Public License is Less protective of the+users' freedom, it does ensure that the user of a program that is+linked with the Library has the freedom and the wherewithal to run+that program using a modified version of the Library.++ The precise terms and conditions for copying, distribution and+modification follow. Pay close attention to the difference between a+"work based on the library" and a "work that uses the library". The+former contains code derived from the library, whereas the latter must+be combined with the library in order to run.++ GNU LESSER GENERAL PUBLIC LICENSE+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION++ 0. This License Agreement applies to any software library or other+program which contains a notice placed by the copyright holder or+other authorized party saying it may be distributed under the terms of+this Lesser General Public License (also called "this License").+Each licensee is addressed as "you".++ A "library" means a collection of software functions and/or data+prepared so as to be conveniently linked with application programs+(which use some of those functions and data) to form executables.++ The "Library", below, refers to any such software library or work+which has been distributed under these terms. A "work based on the+Library" means either the Library or any derivative work under+copyright law: that is to say, a work containing the Library or a+portion of it, either verbatim or with modifications and/or translated+straightforwardly into another language. (Hereinafter, translation is+included without limitation in the term "modification".)++ "Source code" for a work means the preferred form of the work for+making modifications to it. For a library, complete source code means+all the source code for all modules it contains, plus any associated+interface definition files, plus the scripts used to control compilation+and installation of the library.++ Activities other than copying, distribution and modification are not+covered by this License; they are outside its scope. The act of+running a program using the Library is not restricted, and output from+such a program is covered only if its contents constitute a work based+on the Library (independent of the use of the Library in a tool for+writing it). Whether that is true depends on what the Library does+and what the program that uses the Library does.++ 1. You may copy and distribute verbatim copies of the Library's+complete source code as you receive it, in any medium, provided that+you conspicuously and appropriately publish on each copy an+appropriate copyright notice and disclaimer of warranty; keep intact+all the notices that refer to this License and to the absence of any+warranty; and distribute a copy of this License along with the+Library.++ You may charge a fee for the physical act of transferring a copy,+and you may at your option offer warranty protection in exchange for a+fee.++ 2. You may modify your copy or copies of the Library or any portion+of it, thus forming a work based on the Library, and copy and+distribute such modifications or work under the terms of Section 1+above, provided that you also meet all of these conditions:++ a) The modified work must itself be a software library.++ b) You must cause the files modified to carry prominent notices+ stating that you changed the files and the date of any change.++ c) You must cause the whole of the work to be licensed at no+ charge to all third parties under the terms of this License.++ d) If a facility in the modified Library refers to a function or a+ table of data to be supplied by an application program that uses+ the facility, other than as an argument passed when the facility+ is invoked, then you must make a good faith effort to ensure that,+ in the event an application does not supply such function or+ table, the facility still operates, and performs whatever part of+ its purpose remains meaningful.++ (For example, a function in a library to compute square roots has+ a purpose that is entirely well-defined independent of the+ application. Therefore, Subsection 2d requires that any+ application-supplied function or table used by this function must+ be optional: if the application does not supply it, the square+ root function must still compute square roots.)++These requirements apply to the modified work as a whole. If+identifiable sections of that work are not derived from the Library,+and can be reasonably considered independent and separate works in+themselves, then this License, and its terms, do not apply to those+sections when you distribute them as separate works. But when you+distribute the same sections as part of a whole which is a work based+on the Library, the distribution of the whole must be on the terms of+this License, whose permissions for other licensees extend to the+entire whole, and thus to each and every part regardless of who wrote+it.++Thus, it is not the intent of this section to claim rights or contest+your rights to work written entirely by you; rather, the intent is to+exercise the right to control the distribution of derivative or+collective works based on the Library.++In addition, mere aggregation of another work not based on the Library+with the Library (or with a work based on the Library) on a volume of+a storage or distribution medium does not bring the other work under+the scope of this License.++ 3. You may opt to apply the terms of the ordinary GNU General Public+License instead of this License to a given copy of the Library. To do+this, you must alter all the notices that refer to this License, so+that they refer to the ordinary GNU General Public License, version 2,+instead of to this License. (If a newer version than version 2 of the+ordinary GNU General Public License has appeared, then you can specify+that version instead if you wish.) Do not make any other change in+these notices.++ Once this change is made in a given copy, it is irreversible for+that copy, so the ordinary GNU General Public License applies to all+subsequent copies and derivative works made from that copy.++ This option is useful when you wish to copy part of the code of+the Library into a program that is not a library.++ 4. You may copy and distribute the Library (or a portion or+derivative of it, under Section 2) in object code or executable form+under the terms of Sections 1 and 2 above provided that you accompany+it with the complete corresponding machine-readable source code, which+must be distributed under the terms of Sections 1 and 2 above on a+medium customarily used for software interchange.++ If distribution of object code is made by offering access to copy+from a designated place, then offering equivalent access to copy the+source code from the same place satisfies the requirement to+distribute the source code, even though third parties are not+compelled to copy the source along with the object code.++ 5. A program that contains no derivative of any portion of the+Library, but is designed to work with the Library by being compiled or+linked with it, is called a "work that uses the Library". Such a+work, in isolation, is not a derivative work of the Library, and+therefore falls outside the scope of this License.++ However, linking a "work that uses the Library" with the Library+creates an executable that is a derivative of the Library (because it+contains portions of the Library), rather than a "work that uses the+library". The executable is therefore covered by this License.+Section 6 states terms for distribution of such executables.++ When a "work that uses the Library" uses material from a header file+that is part of the Library, the object code for the work may be a+derivative work of the Library even though the source code is not.+Whether this is true is especially significant if the work can be+linked without the Library, or if the work is itself a library. The+threshold for this to be true is not precisely defined by law.++ If such an object file uses only numerical parameters, data+structure layouts and accessors, and small macros and small inline+functions (ten lines or less in length), then the use of the object+file is unrestricted, regardless of whether it is legally a derivative+work. (Executables containing this object code plus portions of the+Library will still fall under Section 6.)++ Otherwise, if the work is a derivative of the Library, you may+distribute the object code for the work under the terms of Section 6.+Any executables containing that work also fall under Section 6,+whether or not they are linked directly with the Library itself.++ 6. As an exception to the Sections above, you may also combine or+link a "work that uses the Library" with the Library to produce a+work containing portions of the Library, and distribute that work+under terms of your choice, provided that the terms permit+modification of the work for the customer's own use and reverse+engineering for debugging such modifications.++ You must give prominent notice with each copy of the work that the+Library is used in it and that the Library and its use are covered by+this License. You must supply a copy of this License. If the work+during execution displays copyright notices, you must include the+copyright notice for the Library among them, as well as a reference+directing the user to the copy of this License. Also, you must do one+of these things:++ a) Accompany the work with the complete corresponding+ machine-readable source code for the Library including whatever+ changes were used in the work (which must be distributed under+ Sections 1 and 2 above); and, if the work is an executable linked+ with the Library, with the complete machine-readable "work that+ uses the Library", as object code and/or source code, so that the+ user can modify the Library and then relink to produce a modified+ executable containing the modified Library. (It is understood+ that the user who changes the contents of definitions files in the+ Library will not necessarily be able to recompile the application+ to use the modified definitions.)++ b) Use a suitable shared library mechanism for linking with the+ Library. A suitable mechanism is one that (1) uses at run time a+ copy of the library already present on the user's computer system,+ rather than copying library functions into the executable, and (2)+ will operate properly with a modified version of the library, if+ the user installs one, as long as the modified version is+ interface-compatible with the version that the work was made with.++ c) Accompany the work with a written offer, valid for at+ least three years, to give the same user the materials+ specified in Subsection 6a, above, for a charge no more+ than the cost of performing this distribution.++ d) If distribution of the work is made by offering access to copy+ from a designated place, offer equivalent access to copy the above+ specified materials from the same place.++ e) Verify that the user has already received a copy of these+ materials or that you have already sent this user a copy.++ For an executable, the required form of the "work that uses the+Library" must include any data and utility programs needed for+reproducing the executable from it. However, as a special exception,+the materials to be distributed need not include anything that is+normally distributed (in either source or binary form) with the major+components (compiler, kernel, and so on) of the operating system on+which the executable runs, unless that component itself accompanies+the executable.++ It may happen that this requirement contradicts the license+restrictions of other proprietary libraries that do not normally+accompany the operating system. Such a contradiction means you cannot+use both them and the Library together in an executable that you+distribute.++ 7. You may place library facilities that are a work based on the+Library side-by-side in a single library together with other library+facilities not covered by this License, and distribute such a combined+library, provided that the separate distribution of the work based on+the Library and of the other library facilities is otherwise+permitted, and provided that you do these two things:++ a) Accompany the combined library with a copy of the same work+ based on the Library, uncombined with any other library+ facilities. This must be distributed under the terms of the+ Sections above.++ b) Give prominent notice with the combined library of the fact+ that part of it is a work based on the Library, and explaining+ where to find the accompanying uncombined form of the same work.++ 8. You may not copy, modify, sublicense, link with, or distribute+the Library except as expressly provided under this License. Any+attempt otherwise to copy, modify, sublicense, link with, or+distribute the Library is void, and will automatically terminate your+rights under this License. However, parties who have received copies,+or rights, from you under this License will not have their licenses+terminated so long as such parties remain in full compliance.++ 9. You are not required to accept this License, since you have not+signed it. However, nothing else grants you permission to modify or+distribute the Library or its derivative works. These actions are+prohibited by law if you do not accept this License. Therefore, by+modifying or distributing the Library (or any work based on the+Library), you indicate your acceptance of this License to do so, and+all its terms and conditions for copying, distributing or modifying+the Library or works based on it.++ 10. Each time you redistribute the Library (or any work based on the+Library), the recipient automatically receives a license from the+original licensor to copy, distribute, link with or modify the Library+subject to these terms and conditions. You may not impose any further+restrictions on the recipients' exercise of the rights granted herein.+You are not responsible for enforcing compliance by third parties with+this License.++ 11. If, as a consequence of a court judgment or allegation of patent+infringement or for any other reason (not limited to patent issues),+conditions are imposed on you (whether by court order, agreement or+otherwise) that contradict the conditions of this License, they do not+excuse you from the conditions of this License. If you cannot+distribute so as to satisfy simultaneously your obligations under this+License and any other pertinent obligations, then as a consequence you+may not distribute the Library at all. For example, if a patent+license would not permit royalty-free redistribution of the Library by+all those who receive copies directly or indirectly through you, then+the only way you could satisfy both it and this License would be to+refrain entirely from distribution of the Library.++If any portion of this section is held invalid or unenforceable under any+particular circumstance, the balance of the section is intended to apply,+and the section as a whole is intended to apply in other circumstances.++It is not the purpose of this section to induce you to infringe any+patents or other property right claims or to contest validity of any+such claims; this section has the sole purpose of protecting the+integrity of the free software distribution system which is+implemented by public license practices. Many people have made+generous contributions to the wide range of software distributed+through that system in reliance on consistent application of that+system; it is up to the author/donor to decide if he or she is willing+to distribute software through any other system and a licensee cannot+impose that choice.++This section is intended to make thoroughly clear what is believed to+be a consequence of the rest of this License.++ 12. If the distribution and/or use of the Library is restricted in+certain countries either by patents or by copyrighted interfaces, the+original copyright holder who places the Library under this License may add+an explicit geographical distribution limitation excluding those countries,+so that distribution is permitted only in or among countries not thus+excluded. In such case, this License incorporates the limitation as if+written in the body of this License.++ 13. The Free Software Foundation may publish revised and/or new+versions of the Lesser General Public License from time to time.+Such new versions will be similar in spirit to the present version,+but may differ in detail to address new problems or concerns.++Each version is given a distinguishing version number. If the Library+specifies a version number of this License which applies to it and+"any later version", you have the option of following the terms and+conditions either of that version or of any later version published by+the Free Software Foundation. If the Library does not specify a+license version number, you may choose any version ever published by+the Free Software Foundation.++ 14. If you wish to incorporate parts of the Library into other free+programs whose distribution conditions are incompatible with these,+write to the author to ask for permission. For software which is+copyrighted by the Free Software Foundation, write to the Free+Software Foundation; we sometimes make exceptions for this. Our+decision will be guided by the two goals of preserving the free status+of all derivatives of our free software and of promoting the sharing+and reuse of software generally.++ NO WARRANTY++ 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE+LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.++ 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH+DAMAGES.
+ Setup.hs view
@@ -0,0 +1,3 @@+#!/usr/bin/env runhaskell+import Distribution.Simple+main = defaultMain
+ gi-webkit2.cabal view
@@ -0,0 +1,33 @@+-- Autogenerated, do not edit.+name: gi-webkit2+version: 0.2.8.11+synopsis: WebKit2 bindings+description: Bindings for WebKit2, autogenerated by haskell-gi.+homepage: https://github.com/haskell-gi/haskell-gi+license: LGPL-2.1+license-file: LICENSE+author: Will Thompson, Iñaki García Etxebarria and Jonas Platte+maintainer: Iñaki García Etxebarria (garetxe@gmail.com)+category: Bindings+build-type: Simple+cabal-version: >=1.10++library+ default-language: Haskell2010+ exposed-modules: GI.WebKit2, GI.WebKit2Attributes, GI.WebKit2Signals+ 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,+ bytestring >= 0.10,+ containers >= 0.5,+ text >= 1.0,+ transformers >= 0.3